www.pudn.com > lib.zip > co_debug.C

#include  
 
#include "private.h" 
#include "complex.h" 
#include "debug.h" 
 
co_debugger::co_debugger(int xl) 
  { len = xl; ptr = 0; 
    vec = new complex[len]; 
  } 
 
void co_debugger::insert(complex z) 
  { if (ptr < len) vec[ptr++] = z; 
  } 
 
co_debugger::~co_debugger() 
  { delete vec; 
  } 
 
void co_debugger::print(char *fn) 
  { FILE *fi = fopen(fn, "w"); 
    if (fi != NULL) 
      { int n = 0; 
	while (n < ptr) 
	  { int n1 = n + 500; 
	    if (n1 > ptr) n1 = ptr; 
	    fprintf(fi, ".sp 0.5i\n"); 
	    fprintf(fi, "%d ... %d\n", n, n1-1); 
	    fprintf(fi, ".G1 8i\n"); 
	    for (int i = n; i < n1; i++) fprintf(fi, "%g %g\n", vec[i].re, vec[i].im); 
	    fprintf(fi, ".G2\n.bp\n"); 
	    n = n1; 
	  } 
	fclose(fi); 
      } 
    else fprintf(stderr, "can't create %s\n", fn); 
  }