database.c

来自「ngspice又一个电子CAD仿真软件代码.功能更全」· C语言 代码 · 共 73 行

/**********
Copyright 1992 Regents of the University of California.  All rights reserved.
Author:	1992 David A. Gates, U. C. Berkeley CAD Group
**********/

#include "ngspice.h"
#include "fteext.h"
/* #include "ftedata.h" */

struct plot *
DBread( fileName )
{
  struct plot *plot;

  plot = raw_read( fileName );

  return(plot);
}

double *
DBgetData( plot, name, lengthWanted )
struct plot *plot;
char *name;
int lengthWanted;
{
  struct dvec *v;
  double *data;
  int i;

  v = vec_fromplot(name,plot);

  if (!v) {
    fprintf( stderr, "Error: cannot locate variable '%s'\n", name );
    return(NULL);
  }
  if (v->v_length != lengthWanted ) {
    fprintf( stderr, "Error: vector '%s' has incorrect length\n", name );
    return(NULL);
  }

  data = (double *) malloc(sizeof (double) * v->v_length);
  if (isreal(v)) {
    bcopy((char *) v->v_realdata, (char *) data, sizeof (double) * v->v_length);
  } else {
    for (i=0; i < v->v_length; i++) {
      data[i] = realpart(&v->v_compdata[i]);
    }
  }
  return(data);
}

void
DBfree( plot )
struct plot *plot;
{
  struct dvec *v, *nextv;
  struct plot *pl, *nextpl;

  for (pl = plot; pl; pl = nextpl) {
    nextpl = pl->pl_next;
    tfree( pl->pl_title );
    tfree( pl->pl_date );
    tfree( pl->pl_name );
    tfree( pl->pl_typename );
    for (v = pl->pl_dvecs; v; v = nextv) {
      nextv = v->v_next;
      vec_free( v );
    }
    wl_free( pl->pl_commands );
    /* XXX Environment variables (pl->pl_env) will leak. */
  }
}