numparam.h

ngspice又一个电子CAD仿真软件代码.功能更全

/*
 * numparam.h 
 * $Id: numparam.h,v 1.4 2005/05/29 01:18:20 sjborley Exp $
 */

/*** interface to spice frontend  subckt.c ***/

#include "numpaif.h"

/***** numparam internals ********/

#define ln(x) log(x)
#define trunc(x) floor(x)

Cconst(Nul, 0)
Cconst(Nodekey,'#') /*introduces node symbol*/
Cconst(Intro  ,'&') /*introduces preprocessor tokens*/
Cconst(Comment,'*') /*Spice Comment lines*/
Cconst(Pspice,'{')  /*Pspice expression */
Cconst(Maxdico,200) /*size of symbol table*/

/* Composite line length
   This used to be 250 characters, but this is too easy to exceed with a
   .model line, especially when spread over several continuation 
   lines with much white space.  I hope 1000 will be enough. */
Cconst(Llen,1000)

typedef char str20 [24];
typedef char str80 [84];

Cconst(Maxline, 1000) /* size of initial unexpanded circuit code */
Cconst(Maxckt,  5000)  /* size of expanded circuit code */


typedef Pchar auxtable; /* dummy */

Record(entry)
  char   tp; /* type:  I)nt R)eal S)tring F)unction M)acro P)ointer */
  str20  nom;
  short  level; /* subckt nesting level */
  double vl;    /* float value if defined */
  Word   ivl;   /*int value or string buffer index*/
  Pchar  sbbase; /* string buffer base address if any */
EndRec(entry)

Record(fumas) /*function,macro,string*/
   Word   start /*,stop*/ ; /*buffer index or location */
EndRec(fumas)

Record(tdico)
/* the input scanner data structure */
  str80   srcfile; /* last piece of source file name */
  short   srcline;
  short   errcount;
  entry   dat[Maxdico+1];
  short   nbd;   /* number of data entries */
  fumas   fms[101];
  short   nfms;   /* number of functions & macros */
  short   stack[20];
  short   tos;    /* top of stack index for symbol mark/release mechanics */
  str20   option; /* one-character translator options */
  auxtable nodetab;
  Darray(refptr,  Pchar, Maxline)  /* pointers to source code lines */
  Darray(category, char, Maxline) /* category of each line */
EndRec(tdico)

Proc initdico(tdico * dico);
Func short donedico(tdico * dico);
Func Bool defsubckt( tdico *dico, Pchar s, Word w, char categ);
Func short findsubckt( tdico *dico, Pchar s, Pchar subname);  
Func Bool nupa_substitute( tdico *dico, Pchar s, Pchar r, Bool err);
Func Bool nupa_assignment( tdico *dico, Pchar  s, char mode);
Func Bool nupa_subcktcall( tdico *dico, Pchar s, Pchar x, Bool err);
Proc nupa_subcktexit( tdico *dico);
Func tdico * nupa_fetchinstance(void);
Func char getidtype( tdico *d, Pchar s);