home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk1.iso / altsrc / articles / 11116 < prev    next >
Text File  |  1994-08-13  |  64KB  |  2,039 lines
  1. Newsgroups: alt.sources
  2. Path: wupost!math.ohio-state.edu!usc!cs.utexas.edu!convex!news.duke.edu!eff!news.kei.com!travelers.mail.cornell.edu!cornell!rochester!rit!atd
  3. From: atd@cs.rit.edu (Albert T Davis)
  4. Subject: ACS (Al's Circuit Simulator) patch02
  5. Message-ID: <1994Aug13.022249.25894@cs.rit.edu>
  6. Sender: news@cs.rit.edu (USENET News Admin)
  7. Nntp-Posting-Host: cobalt
  8. Organization: Rochester Institute of Technology, Rochester, NY
  9. Date: Sat, 13 Aug 1994 02:22:49 GMT
  10. Lines: 2027
  11.  
  12. Submitted-By: atd@cs.rit.edu (Al Davis)
  13. Archive-Name: acs-0.14/patch02
  14. Environment: UNIX, MS-DOS, VMS
  15.  
  16. This is a patch to ACS 0.14 making ACS 0.15.
  17.  
  18. From rn, say "| patch -d DIR", where DIR is your acs root directory
  19. (the one containing man and src).  Outside of rn, say "cd DIR;
  20. patch <thisarticle".  If you don't have the patch program, apply
  21. the following by hand, or get patch (version 2.0, latest patchlevel).
  22.  
  23. This is the second of two parts.  Apply them both, then recompile.
  24. Both the manual and program have been changed.
  25. =================================
  26. diff -cN ../acs-0.14/src/ac_setup.c src/ac_setup.c
  27. *** ../acs-0.14/src/ac_setup.c    Wed Jul  6 12:11:47 1994
  28. --- src/ac_setup.c    Sun Jul 31 23:09:47 1994
  29. ***************
  30. *** 1,4 ****
  31. ! /* ac_setup.c  93.12.19
  32.    * Copyright 1983-1992   Albert Davis
  33.    * ac analysis setup
  34.    */
  35. --- 1,4 ----
  36. ! /* ac_setup.c  94.07.29
  37.    * Copyright 1983-1992   Albert Davis
  38.    * ac analysis setup
  39.    */
  40. ***************
  41. *** 69,75 ****
  42.             ac->stop = ac->start;
  43.          if (isfloat(cmd[*cnt]))
  44.             ac_optby(cmd,cnt);
  45. !     }else if (outset(cmd,cnt,(char*)NULL,"ac ")){
  46.       ;
  47.       }else{
  48.       syntax_check(cmd,cnt,bWARNING);
  49. --- 69,75 ----
  50.             ac->stop = ac->start;
  51.          if (isfloat(cmd[*cnt]))
  52.             ac_optby(cmd,cnt);
  53. !     }else if (outset(cmd,cnt,"","")){
  54.       ;
  55.       }else{
  56.       syntax_check(cmd,cnt,bWARNING);
  57. diff -cN ../acs-0.14/src/branch.h src/branch.h
  58. *** ../acs-0.14/src/branch.h    Wed Jul  6 12:11:36 1994
  59. --- src/branch.h    Sun Jul 31 23:09:38 1994
  60. ***************
  61. *** 1,4 ****
  62. ! /* branch.h  94.07.01
  63.    * Copyright 1983-1992   Albert Davis
  64.    * branch structure type definitions
  65.    * device types (enumeration type?)
  66. --- 1,4 ----
  67. ! /* branch.h  94.07.11
  68.    * Copyright 1983-1992   Albert Davis
  69.    * branch structure type definitions
  70.    * device types (enumeration type?)
  71. ***************
  72. *** 58,63 ****
  73. --- 58,64 ----
  74.      double   ic;        /* initial condition            */
  75.      unsigned bypass:1,    /* is bypassing now            */
  76.            tracesubckt:1,/* trace subckt fanout            */
  77. +         nodamp:1,    /* don't apply iteration damping    */
  78.             converged:1;/* convergence status            */
  79.      int        method_a;    /* actual integration method (auto)    */
  80.      int      method_u;    /* method to use for this part per user    */
  81. ***************
  82. *** 77,85 ****
  83.      cpoly1_t m0;        /* matrix parameters, new        */
  84.      cpoly1_t m1;        /* matrix parameters, 1 fill ago    */
  85.      cpoly1_t mt1;    /* matrix parameters, 1 time ago    */
  86. - #ifdef KEEP_OLD_TIME_INFO
  87. -    cpoly1_t mt2;    /* matrix parameters, 2 time ago    */
  88. - #endif
  89.   
  90.      complex_t  ev;    /* ac effective value (usually real)    */
  91.      complex_t  acg;    /* ac admittance matrix values        */   
  92. --- 78,83 ----
  93. diff -cN ../acs-0.14/src/ctostr.c src/ctostr.c
  94. *** ../acs-0.14/src/ctostr.c    Wed Jul  6 12:11:49 1994
  95. --- src/ctostr.c    Sun Jul 31 23:09:50 1994
  96. ***************
  97. *** 1,4 ****
  98. ! /* ctostr.c  93.12.19
  99.    * Copyright 1983-1992   Albert Davis
  100.    * get string from string
  101.    */
  102. --- 1,4 ----
  103. ! /* ctostr.c  94.07.13
  104.    * Copyright 1983-1992   Albert Davis
  105.    * get string from string
  106.    */
  107. ***************
  108. *** 5,11 ****
  109.   #include "ecah.h"
  110.   #include "declare.h"
  111.   /*--------------------------------------------------------------------------*/
  112. !     char    *ctostr(const char*,int*,char*,int);
  113.   /*--------------------------------------------------------------------------*/
  114.   /* ctostr: character input to string
  115.    * scan (and eat) an input string (cmd) using index (cnt).
  116. --- 5,11 ----
  117.   #include "ecah.h"
  118.   #include "declare.h"
  119.   /*--------------------------------------------------------------------------*/
  120. !     char    *ctostr(const char*,int*,char*,int,const char*);
  121.   /*--------------------------------------------------------------------------*/
  122.   /* ctostr: character input to string
  123.    * scan (and eat) an input string (cmd) using index (cnt).
  124. ***************
  125. *** 16,22 ****
  126.    * skips leading whitespace.  skips trailing whitespace and comma
  127.    * skips parts of input word too big for destination
  128.    */
  129. ! char *ctostr(const char *cmd, int *cnt, char *des, int len)
  130.   {
  131.    char chr;
  132.    int dind;
  133. --- 16,22 ----
  134.    * skips leading whitespace.  skips trailing whitespace and comma
  135.    * skips parts of input word too big for destination
  136.    */
  137. ! char *ctostr(const char *cmd, int *cnt, char *des, int len, const char *term)
  138.   {
  139.    char chr;
  140.    int dind;
  141. ***************
  142. *** 24,36 ****
  143.    skipbl(cmd,cnt);
  144.    for (dind = 0;  dind < len;  (*cnt)++, dind++){
  145.       chr = cmd[*cnt];
  146. !     if (isterm(chr))
  147.          break;
  148.       des[dind] = chr;
  149.    }
  150.    des[dind] = '\0';
  151.   
  152. !  while (!isterm(cmd[*cnt]))
  153.       (*cnt)++;
  154.    skipcom(cmd,cnt);
  155.    return des;
  156. --- 24,36 ----
  157.    skipbl(cmd,cnt);
  158.    for (dind = 0;  dind < len;  (*cnt)++, dind++){
  159.       chr = cmd[*cnt];
  160. !     if (isterm(chr,term))
  161.          break;
  162.       des[dind] = chr;
  163.    }
  164.    des[dind] = '\0';
  165.   
  166. !  while (!isterm(cmd[*cnt],term))
  167.       (*cnt)++;
  168.    skipcom(cmd,cnt);
  169.    return des;
  170. diff -cN ../acs-0.14/src/d_bjt.c src/d_bjt.c
  171. *** ../acs-0.14/src/d_bjt.c    Wed Jul  6 12:11:52 1994
  172. --- src/d_bjt.c    Sun Jul 31 23:09:52 1994
  173. ***************
  174. *** 1,4 ****
  175. ! /* d_bjt.c  93.12.22
  176.    * Copyright 1983-1992   Albert Davis
  177.    * bjt model.
  178.    * this is not really a bjt, but a diode
  179. --- 1,4 ----
  180. ! /* d_bjt.c  94.07.18
  181.    * Copyright 1983-1992   Albert Davis
  182.    * bjt model.
  183.    * this is not really a bjt, but a diode
  184. ***************
  185. *** 99,106 ****
  186.    x = (struct bjt*)brh->x;
  187.   
  188.    parselabel(brh,cmd,cnt);
  189. !  (void)parsenodes(brh,cmd,cnt,2);
  190. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN);
  191.    x->m = (struct qmod*)NULL;
  192.    if (isdigit(cmd[*cnt])  ||  cmd[*cnt] == '.')
  193.       x->area = fabs(ctof(cmd,cnt));
  194. --- 99,106 ----
  195.    x = (struct bjt*)brh->x;
  196.   
  197.    parselabel(brh,cmd,cnt);
  198. !  (void)parsenodes(brh,cmd,cnt);
  199. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN, TOKENTERM);
  200.    x->m = (struct qmod*)NULL;
  201.    if (isdigit(cmd[*cnt])  ||  cmd[*cnt] == '.')
  202.       x->area = fabs(ctof(cmd,cnt));
  203. ***************
  204. *** 185,191 ****
  205.   
  206.    m = (struct qmod*)brh->x;
  207.   
  208. !  (void)ctostr(cmd, cnt, brh->label, LABELEN);
  209.    skiparg(cmd,cnt);    /* skip known "d" */
  210.   
  211.    for (;;){
  212. --- 185,191 ----
  213.   
  214.    m = (struct qmod*)brh->x;
  215.   
  216. !  (void)ctostr(cmd, cnt, brh->label, LABELEN, TOKENTERM);
  217.    skiparg(cmd,cnt);    /* skip known "d" */
  218.   
  219.    for (;;){
  220. diff -cN ../acs-0.14/src/d_cap.c src/d_cap.c
  221. *** ../acs-0.14/src/d_cap.c    Wed Jul  6 12:11:52 1994
  222. --- src/d_cap.c    Sun Jul 31 23:09:52 1994
  223. ***************
  224. *** 1,4 ****
  225. ! /* d_cap.c  94.07.01
  226.    * Copyright 1983-1992   Albert Davis
  227.    * capacitor models
  228.    * two levels: linear (lin) and nonlinear (nl)
  229. --- 1,4 ----
  230. ! /* d_cap.c  94.07.25
  231.    * Copyright 1983-1992   Albert Davis
  232.    * capacitor models
  233.    * two levels: linear (lin) and nonlinear (nl)
  234. ***************
  235. *** 199,205 ****
  236.    if (brh->time3 <= 0.){
  237.       return BIGBIG;
  238.    }else{
  239. !     double factor = 12.;      /* 1/coefficient of 3rd der, trapezoid rule */
  240.       double dt0 = brh->time0 - brh->time1;
  241.       double dt1 = brh->time1 - brh->time2;    /* BUG: these values should */
  242.       double dt2 = brh->time2 - brh->time3;    /* be stored */
  243. --- 199,205 ----
  244.    if (brh->time3 <= 0.){
  245.       return BIGBIG;
  246.    }else{
  247. !     double factor = 1./12.;      /* coefficient of 3rd der, trapezoid rule */
  248.       double dt0 = brh->time0 - brh->time1;
  249.       double dt1 = brh->time1 - brh->time2;    /* BUG: these values should */
  250.       double dt2 = brh->time2 - brh->time3;    /* be stored */
  251. ***************
  252. *** 229,235 ****
  253.       double chargetol = MAX(opt.chgtol,MAX(fabs(q0),fabs(qt1)))
  254.                  * opt.reltol / dt0;
  255.       double tol = MAX(currenttol,chargetol);
  256. !     double timestep = opt.trtol * sqrt(factor * tol / fabs(dddqdddt));
  257.   
  258.       if (timestep <= tr->dtmin){
  259.          error(bDANGER,"step control error:%s %g\n",printlabel(brh,0),timestep);
  260. --- 229,236 ----
  261.       double chargetol = MAX(opt.chgtol,MAX(fabs(q0),fabs(qt1)))
  262.                  * opt.reltol / dt0;
  263.       double tol = MAX(currenttol,chargetol);
  264. !     double denom = MAX(opt.abstol, (factor *fabs(dddqdddt)));  /* avoid / 0 */
  265. !     double timestep = opt.trtol * sqrt(tol / denom);
  266.   
  267.       if (timestep <= tr->dtmin){
  268.          error(bDANGER,"step control error:%s %g\n",printlabel(brh,0),timestep);
  269. ***************
  270. *** 237,243 ****
  271.          error(bTRACE, "it=%g qt=%g tol=%g\n", currenttol, chargetol, tol);
  272.          timestep = tr->dtmin;
  273.       }
  274. !     if (timestep < (brh->time0 - brh->time1) * opt.trreject){
  275.          error(bTRACE, "step rejected:%s\n", printlabel(brh,0));
  276.          error(bTRACE, "new=%g  old=%g  rej=%g\n",
  277.                  timestep, dt0, dt0 * opt.trreject);
  278. --- 238,244 ----
  279.          error(bTRACE, "it=%g qt=%g tol=%g\n", currenttol, chargetol, tol);
  280.          timestep = tr->dtmin;
  281.       }
  282. !     if (timestep < dt0 * opt.trreject){
  283.          error(bTRACE, "step rejected:%s\n", printlabel(brh,0));
  284.          error(bTRACE, "new=%g  old=%g  rej=%g\n",
  285.                  timestep, dt0, dt0 * opt.trreject);
  286. diff -cN ../acs-0.14/src/d_coil.c src/d_coil.c
  287. *** ../acs-0.14/src/d_coil.c    Wed Jul  6 12:11:52 1994
  288. --- src/d_coil.c    Sun Jul 31 23:09:53 1994
  289. ***************
  290. *** 1,4 ****
  291. ! /* d_coil.c  94.06.23
  292.    * Copyright 1983-1992   Albert Davis
  293.    * inductors
  294.    * two levels: linear (lin) and nonlinear (nl) (not really)
  295. --- 1,4 ----
  296. ! /* d_coil.c  94.07.25
  297.    * Copyright 1983-1992   Albert Davis
  298.    * inductors
  299.    * two levels: linear (lin) and nonlinear (nl) (not really)
  300. ***************
  301. *** 216,225 ****
  302.   /*--------------------------------------------------------------------------*/
  303.   static double tr_review_coil(branch_t *brh)
  304.   {
  305. !  if (brh->time2 <= 0.){
  306.       return BIGBIG;
  307.    }else{
  308. !     double factor = 12.;      /* 1/coefficient of 3rd der, trapezoid rule */
  309.       double dt0 = brh->time0 - brh->time1;
  310.       double dt1 = brh->time1 - brh->time2;    /* BUG: these values should */
  311.       double dt2 = brh->time2 - brh->time3;    /* be stored */
  312. --- 216,225 ----
  313.   /*--------------------------------------------------------------------------*/
  314.   static double tr_review_coil(branch_t *brh)
  315.   {
  316. !  if (brh->time3 <= 0.){
  317.       return BIGBIG;
  318.    }else{
  319. !     double factor = 1./12.;      /* coefficient of 3rd der, trapezoid rule */
  320.       double dt0 = brh->time0 - brh->time1;
  321.       double dt1 = brh->time1 - brh->time2;    /* BUG: these values should */
  322.       double dt2 = brh->time2 - brh->time3;    /* be stored */
  323. ***************
  324. *** 249,255 ****
  325.       double chargetol = MAX(opt.chgtol,MAX(fabs(q0),fabs(qt1)))
  326.                  * opt.reltol / dt0;
  327.       double tol = MAX(currenttol,chargetol);
  328. !     double timestep = opt.trtol * sqrt(factor * tol / fabs(dddqdddt));
  329.   
  330.       if (timestep <= tr->dtmin){
  331.          error(bDANGER,"step control error:%s %g\n",printlabel(brh,0),timestep);
  332. --- 249,256 ----
  333.       double chargetol = MAX(opt.chgtol,MAX(fabs(q0),fabs(qt1)))
  334.                  * opt.reltol / dt0;
  335.       double tol = MAX(currenttol,chargetol);
  336. !     double denom = MAX(opt.abstol, (factor *fabs(dddqdddt)));  /* avoid / 0 */
  337. !     double timestep = opt.trtol * sqrt(tol / denom);
  338.   
  339.       if (timestep <= tr->dtmin){
  340.          error(bDANGER,"step control error:%s %g\n",printlabel(brh,0),timestep);
  341. diff -cN ../acs-0.14/src/d_diode.c src/d_diode.c
  342. *** ../acs-0.14/src/d_diode.c    Wed Jul  6 12:11:53 1994
  343. --- src/d_diode.c    Sun Jul 31 23:09:54 1994
  344. ***************
  345. *** 1,4 ****
  346. ! /* d_diode.c  94.04.28
  347.    * Copyright 1983-1992   Albert Davis
  348.    * diode model.
  349.    * netlist syntax:
  350. --- 1,4 ----
  351. ! /* d_diode.c  94.07.18
  352.    * Copyright 1983-1992   Albert Davis
  353.    * diode model.
  354.    * netlist syntax:
  355. ***************
  356. *** 107,114 ****
  357.    x = (struct diode*)brh->x;
  358.   
  359.    parselabel(brh,cmd,cnt);
  360. !  (void)parsenodes(brh,cmd,cnt,2);
  361. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN);
  362.    x->m = (struct dmod*)NULL;
  363.    if (isdigit(cmd[*cnt])  ||  cmd[*cnt] == '.')
  364.       x->area = fabs(ctof(cmd,cnt));
  365. --- 107,114 ----
  366.    x = (struct diode*)brh->x;
  367.   
  368.    parselabel(brh,cmd,cnt);
  369. !  (void)parsenodes(brh,cmd,cnt);
  370. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN, TOKENTERM);
  371.    x->m = (struct dmod*)NULL;
  372.    if (isdigit(cmd[*cnt])  ||  cmd[*cnt] == '.')
  373.       x->area = fabs(ctof(cmd,cnt));
  374. ***************
  375. *** 193,199 ****
  376.   
  377.    m = (struct dmod*)brh->x;
  378.   
  379. !  (void)ctostr(cmd, cnt, brh->label, LABELEN);
  380.    skiparg(cmd,cnt);    /* skip known "d" */
  381.    (void)skiplparen(cmd,cnt);
  382.    for (;;){
  383. --- 193,199 ----
  384.   
  385.    m = (struct dmod*)brh->x;
  386.   
  387. !  (void)ctostr(cmd, cnt, brh->label, LABELEN, TOKENTERM);
  388.    skiparg(cmd,cnt);    /* skip known "d" */
  389.    (void)skiplparen(cmd,cnt);
  390.    for (;;){
  391. diff -cN ../acs-0.14/src/d_dot.c src/d_dot.c
  392. *** ../acs-0.14/src/d_dot.c    Wed Jul  6 12:11:53 1994
  393. --- src/d_dot.c    Sun Jul 31 23:09:54 1994
  394. ***************
  395. *** 1,4 ****
  396. ! /* d_dot.c  93.12.22
  397.    * Copyright 1983-1992   Albert Davis
  398.    * processing for DOTCARD netlist item (pseudo-device)
  399.    */
  400. --- 1,4 ----
  401. ! /* d_dot.c  94.07.13
  402.    * Copyright 1983-1992   Albert Davis
  403.    * processing for DOTCARD netlist item (pseudo-device)
  404.    */
  405. ***************
  406. *** 69,75 ****
  407.   
  408.    newbrh = brh;
  409.    labelcnt = *cnt;
  410. !  (void)ctostr(cmd, cnt, brh->label, LABELEN);
  411.    setmatch(cmd,cnt);
  412.         if (rematch("D"    ))  newbrh = create_branch(&model_diode);
  413.    else if (rematch("NPn"    ))  newbrh = create_branch(&model_bjt);
  414. --- 69,75 ----
  415.   
  416.    newbrh = brh;
  417.    labelcnt = *cnt;
  418. !  (void)ctostr(cmd, cnt, brh->label, LABELEN, TOKENTERM);
  419.    setmatch(cmd,cnt);
  420.         if (rematch("D"    ))  newbrh = create_branch(&model_diode);
  421.    else if (rematch("NPn"    ))  newbrh = create_branch(&model_bjt);
  422. ***************
  423. *** 79,84 ****
  424. --- 79,85 ----
  425.    else if (rematch("NMos"))  newbrh = create_branch(&model_mos);
  426.    else if (rematch("PMos"))  newbrh = create_branch(&model_mos);
  427.    else if (rematch("Logic")) newbrh = create_branch(&model_logic);
  428. +  else if (rematch("SW"))    newbrh = create_branch(&model_vswtch);
  429.    else                newbrh = create_branch(&model_subckt);
  430.    if (newbrh != brh){
  431.       *brh = *newbrh;
  432. diff -cN ../acs-0.14/src/d_logic.c src/d_logic.c
  433. *** ../acs-0.14/src/d_logic.c    Wed Jul  6 12:11:54 1994
  434. --- src/d_logic.c    Sun Jul 31 23:09:54 1994
  435. ***************
  436. *** 1,4 ****
  437. ! /* d_logic.c  94.05.30
  438.    * Copyright 1983-1992   Albert Davis
  439.    * logic model.
  440.    */
  441. --- 1,4 ----
  442. ! /* d_logic.c  94.07.22
  443.    * Copyright 1983-1992   Albert Davis
  444.    * logic model.
  445.    */
  446. ***************
  447. *** 129,136 ****
  448.    x = (struct logic*)brh->x;
  449.   
  450.    parselabel(brh,cmd,cnt);
  451. !  x->incount = parsenodes(brh,cmd,cnt,PORTSPERGATE);
  452. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN);
  453.    if (argparse(cmd,cnt,ONEPASS,
  454.           "AND",    aENUM,        &x->type,    lAND,
  455.       "NAND",    aENUM,        &x->type,    lNAND,
  456. --- 129,136 ----
  457.    x = (struct logic*)brh->x;
  458.   
  459.    parselabel(brh,cmd,cnt);
  460. !  x->incount = parsenodes(brh,cmd,cnt);
  461. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN, TOKENTERM);
  462.    if (argparse(cmd,cnt,ONEPASS,
  463.           "AND",    aENUM,        &x->type,    lAND,
  464.       "NAND",    aENUM,        &x->type,    lNAND,
  465. ***************
  466. *** 176,182 ****
  467.    struct lmod *m;
  468.    m = (struct lmod*)brh->x;
  469.   
  470. !  (void)ctostr(cmd, cnt, brh->label, LABELEN);
  471.    skiparg(cmd,cnt);    /* skip known "logic" */
  472.    (void)skiplparen(cmd,cnt);
  473.    for (;;){
  474. --- 176,182 ----
  475.    struct lmod *m;
  476.    m = (struct lmod*)brh->x;
  477.   
  478. !  (void)ctostr(cmd, cnt, brh->label, LABELEN, TOKENTERM);
  479.    skiparg(cmd,cnt);    /* skip known "logic" */
  480.    (void)skiplparen(cmd,cnt);
  481.    for (;;){
  482. ***************
  483. *** 276,284 ****
  484.    m = x->m;
  485.    n = &(nstat[brh->n[1].m]);
  486.   
  487. !  if ((x->gatemode == mANALOG)
  488.    ||  (opt.mode == mMIXED && sim_phase == pINIT_DC)
  489. !  ||  (opt.mode == mANALOG)){
  490.       x->gatemode = n->nodemode = mANALOG;
  491.       return brh->converged = tr_fill_rl(brh->subckt);
  492.    }
  493. --- 276,284 ----
  494.    m = x->m;
  495.    n = &(nstat[brh->n[1].m]);
  496.   
  497. !  if (brh->subckt  &&  ((x->gatemode == mANALOG)
  498.    ||  (opt.mode == mMIXED && sim_phase == pINIT_DC)
  499. !  ||  (opt.mode == mANALOG))){
  500.       x->gatemode = n->nodemode = mANALOG;
  501.       return brh->converged = tr_fill_rl(brh->subckt);
  502.    }
  503. ***************
  504. *** 289,296 ****
  505.   
  506.    brh->bypass = YES;
  507.    x->gatemode = n->nodemode = mDIGITAL;
  508. !                     /* in transition */
  509. !  if (trtime0 >= n->finaltime){            /* time to propagate */
  510.       brh->bypass = NO;
  511.       n->lv0 = n->lv1;
  512.       n->ls0 = n->ls1;
  513. --- 289,301 ----
  514.   
  515.    brh->bypass = YES;
  516.    x->gatemode = n->nodemode = mDIGITAL;
  517. ! 
  518. !  if (sim_phase == pINIT_DC){
  519. !     (void)tr_review_logic(brh);
  520. !     n->finaltime = 0.;
  521. !  }
  522. ! 
  523. !  if (trtime0 >= n->finaltime){    /* in transition, time to propagate */
  524.       brh->bypass = NO;
  525.       n->lv0 = n->lv1;
  526.       n->ls0 = n->ls1;
  527. ***************
  528. *** 469,475 ****
  529.    /* count == number of connections, now const */
  530.    /* if lastchangenode == 1, no new changes, bypass */
  531.   
  532. !  if ((opt.mode == mANALOG)  ||  (opt.mode == mMIXED && quality != qGOOD)){
  533.       if (x->gatemode == mDIGITAL){
  534.          error(bTRACE, "%s:%u:%g switch to analog (review), %s\n",
  535.                  printlabel(brh,0), stats.iter[iTOTAL], trtime0, failuremode);
  536. --- 474,481 ----
  537.    /* count == number of connections, now const */
  538.    /* if lastchangenode == 1, no new changes, bypass */
  539.   
  540. !  if (brh->subckt  &&  
  541. !  ((opt.mode == mANALOG)  ||  (opt.mode == mMIXED && quality != qGOOD))){
  542.       if (x->gatemode == mDIGITAL){
  543.          error(bTRACE, "%s:%u:%g switch to analog (review), %s\n",
  544.                  printlabel(brh,0), stats.iter[iTOTAL], trtime0, failuremode);
  545. diff -cN ../acs-0.14/src/d_mos.c src/d_mos.c
  546. *** ../acs-0.14/src/d_mos.c    Wed Jul  6 12:11:54 1994
  547. --- src/d_mos.c    Sun Jul 31 23:09:55 1994
  548. ***************
  549. *** 1,4 ****
  550. ! /* d_mos.c  94.05.27
  551.    * Copyright 1983-1992   Albert Davis
  552.    * mos model basics
  553.    * netlist syntax:
  554. --- 1,4 ----
  555. ! /* d_mos.c  94.07.29
  556.    * Copyright 1983-1992   Albert Davis
  557.    * mos model basics
  558.    * netlist syntax:
  559. ***************
  560. *** 39,45 ****
  561.   extern const int inc_mode;    /* make incremental changes            */
  562.   extern const int sim_mode;
  563.   extern const int bypass_ok;
  564. - extern const int *nm;
  565.   extern struct nodestuff ns;
  566.   extern const struct options opt;
  567.   extern const struct status stats;
  568. --- 39,44 ----
  569. ***************
  570. *** 148,155 ****
  571.    x = (struct mos*)brh->x;
  572.   
  573.    parselabel(brh,cmd,cnt);
  574. !  (void)parsenodes(brh,cmd,cnt,4);
  575. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN);
  576.    x->m = (struct mmod*)NULL;
  577.    if (isdigit(cmd[*cnt])  ||  cmd[*cnt] == '.'){
  578.       x->wo = fabs(ctof(cmd,cnt)) * SCALE;
  579. --- 147,154 ----
  580.    x = (struct mos*)brh->x;
  581.   
  582.    parselabel(brh,cmd,cnt);
  583. !  (void)parsenodes(brh,cmd,cnt);
  584. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN, TOKENTERM);
  585.    x->m = (struct mmod*)NULL;
  586.    if (isdigit(cmd[*cnt])  ||  cmd[*cnt] == '.'){
  587.       x->wo = fabs(ctof(cmd,cnt)) * SCALE;
  588. ***************
  589. *** 235,241 ****
  590.    
  591.    m = (struct mmod*)brh->x;
  592.   
  593. !  (void)ctostr(cmd, cnt, brh->label, LABELEN);
  594.    if (argparse(cmd,cnt,ONEPASS,
  595.       "NMos",    aENUM,        &m->polarity,    pN,
  596.       "PMos",    aENUM,        &m->polarity,    pP,
  597. --- 234,240 ----
  598.    
  599.    m = (struct mmod*)brh->x;
  600.   
  601. !  (void)ctostr(cmd, cnt, brh->label, LABELEN, TOKENTERM);
  602.    if (argparse(cmd,cnt,ONEPASS,
  603.       "NMos",    aENUM,        &m->polarity,    pN,
  604.       "PMos",    aENUM,        &m->polarity,    pP,
  605. diff -cN ../acs-0.14/src/d_subckt.c src/d_subckt.c
  606. *** ../acs-0.14/src/d_subckt.c    Wed Jul  6 12:11:57 1994
  607. --- src/d_subckt.c    Sun Jul 31 23:09:59 1994
  608. ***************
  609. *** 1,4 ****
  610. ! /* d_subckt.c  94.01.01
  611.    * Copyright 1983-1992   Albert Davis
  612.    * subcircuit stuff
  613.    * netlist syntax:
  614. --- 1,4 ----
  615. ! /* d_subckt.c  94.07.18
  616.    * Copyright 1983-1992   Albert Davis
  617.    * subcircuit stuff
  618.    * netlist syntax:
  619. ***************
  620. *** 139,146 ****
  621.    x = (struct subckt*)brh->x;
  622.   
  623.    parselabel(brh,cmd,cnt);
  624. !  (void)parsenodes(brh,cmd,cnt,PORTSPERSUBCKT);
  625. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN);
  626.   }
  627.   /*--------------------------------------------------------------------------*/
  628.   static void print_subckt(const branch_t *brh, int where, int detail)
  629. --- 139,146 ----
  630.    x = (struct subckt*)brh->x;
  631.   
  632.    parselabel(brh,cmd,cnt);
  633. !  (void)parsenodes(brh,cmd,cnt);
  634. !  (void)ctostr(cmd, cnt, x->modelname, LABELEN, TOKENTERM);
  635.   }
  636.   /*--------------------------------------------------------------------------*/
  637.   static void print_subckt(const branch_t *brh, int where, int detail)
  638. ***************
  639. *** 185,192 ****
  640.    if (nestlevel >= RECURSE)
  641.       error(bERROR,"%s: subckt nesting too deep\n", printlabel(brh,NO));
  642.   
  643. !  (void)ctostr(cmd, cnt, brh->label, LABELEN);
  644. !  (void)parsenodes(brh,cmd,cnt,PORTSPERSUBCKT);
  645.   
  646.    strcpy(namestack[nestlevel], brh->label);
  647.    neststack[nestlevel] = insertbefore;
  648. --- 185,192 ----
  649.    if (nestlevel >= RECURSE)
  650.       error(bERROR,"%s: subckt nesting too deep\n", printlabel(brh,NO));
  651.   
  652. !  (void)ctostr(cmd, cnt, brh->label, LABELEN, TOKENTERM);
  653. !  (void)parsenodes(brh,cmd,cnt);
  654.   
  655.    strcpy(namestack[nestlevel], brh->label);
  656.    neststack[nestlevel] = insertbefore;
  657. diff -cN ../acs-0.14/src/d_trln.c src/d_trln.c
  658. *** ../acs-0.14/src/d_trln.c    Wed Jul  6 12:11:58 1994
  659. --- src/d_trln.c    Sun Jul 31 23:09:55 1994
  660. ***************
  661. *** 55,61 ****
  662.    x = (struct trnlin*)brh->x;
  663.   
  664.    parselabel(brh,cmd,cnt);
  665. !  (void)parsenodes(brh,cmd,cnt,4);
  666.    for (;;){
  667.       if (argparse(cmd,cnt,REPEAT,
  668.       "Z",    a2DOUBLE,   &x->z0,    &x->z0,
  669. --- 55,61 ----
  670.    x = (struct trnlin*)brh->x;
  671.   
  672.    parselabel(brh,cmd,cnt);
  673. !  (void)parsenodes(brh,cmd,cnt);
  674.    for (;;){
  675.       if (argparse(cmd,cnt,REPEAT,
  676.       "Z",    a2DOUBLE,   &x->z0,    &x->z0,
  677. diff -cN ../acs-0.14/src/d_vswtch.c src/d_vswtch.c
  678. *** ../acs-0.14/src/d_vswtch.c
  679. --- src/d_vswtch.c    Sun Jul 31 23:10:00 1994
  680. ***************
  681. *** 0 ****
  682. --- 1,267 ----
  683. + /* d_vswtch.c  94.07.23
  684. +  * Copyright 1994   Albert Davis
  685. +  * voltage controlled switch model.
  686. +  * netlist syntax:
  687. +  * device:  sxxxx n+ n- mname <on>|<off> <model-card-args>
  688. +  * model:   .model mname SW <args>
  689. +  */
  690. + #include "ecah.h"
  691. + #include "argparse.h"
  692. + #include "branch.h"
  693. + #include "d_vswtch.h"
  694. + #include "error.h"
  695. + #include "mode.h"
  696. + #include "status.h"
  697. + #include "types.h"
  698. + #include "declare.h"
  699. + /*--------------------------------------------------------------------------*/
  700. + static     void    parse_vswtch(branch_t*,const char*,int*);
  701. + static     void    print_vswtch(const branch_t*,int,int);
  702. + static    branch_t *create_model_vswtch(const functions_t*);
  703. + static    branch_t *copy_model_vswtch(const branch_t*);
  704. + static     void    parse_model_vswtch(branch_t*,const char*,int*);
  705. + static     void    print_model_vswtch(const branch_t*,int,int);
  706. + static     void    expand_vswtch(branch_t*);
  707. + static     int    tr_vswtch(branch_t*);
  708. + static     void    ac_vswtch(branch_t*);
  709. + /*--------------------------------------------------------------------------*/
  710. + extern const int sim_phase;
  711. + extern const struct status stats;
  712. + static struct vswtch defalt = {(generic_t*)NULL, sizeof(struct vswtch),
  713. +     (struct vswtchmod*)NULL, vswDEFDEV_modelname, vswDEFDEV_ic, /*more*/};
  714. + static struct vswtchmod defaltmodel = {(generic_t*)NULL, 
  715. +     sizeof(struct vswtchmod), vswDEFMOD_vt, vswDEFMOD_vh, vswDEFMOD_ron,
  716. +     vswDEFMOD_roff};
  717. + static branch_t modellist = {(generic_t*)&defaltmodel, sizeof(branch_t),
  718. +     &model_vswtch, &modellist, &modellist, &modellist, &modellist,
  719. +     (branch_t*)NULL, (branch_t*)NULL, vswDEFMOD_modelname, /*more*/};
  720. + /*--------------------------------------------------------------------------*/
  721. + functions_t dev_vswtch = {
  722. +    (generic_t*)&defalt,    /* x */
  723. +    sizeof(functions_t),    /* ssize */
  724. +    sizeof(branch_t),    /* elementsize */
  725. +    (functions_t*)NULL,    /* super */
  726. +    4,             /* numnodes */
  727. +    rnTWOPORT,        /* refnode */
  728. +    rnONEPORT,        /* isdevice */
  729. +    create_std,        /* create */
  730. +    copy_std,        /* copy */
  731. +    parse_vswtch,    /* parse */
  732. +    print_vswtch,    /* print */
  733. +    expand_vswtch,    /* expand */
  734. +    probe_std,        /* probe */
  735. +    tr_vswtch,        /* dotr */
  736. +    unloadpassive,    /* untr */
  737. +    ac_vswtch,        /* doac */
  738. +    NULL,        /* trfun1 */
  739. +    NULL,        /* trfun0 */
  740. +    NULL,        /* acfun */
  741. +    NULL,        /* tr_guess */
  742. +    NULL,        /* tr_advance */
  743. +    NULL            /* tr_review */
  744. + };
  745. + functions_t model_vswtch = {
  746. +    (generic_t*)&defaltmodel,    /* x */
  747. +    sizeof(functions_t),    /* ssize */
  748. +    sizeof(branch_t),    /* elementsize */
  749. +    (functions_t*)NULL,    /* super */
  750. +    0,             /* numnodes */
  751. +    rnMODEL,        /* refnode */
  752. +    NO,            /* isdevice */
  753. +    create_model_vswtch,    /* create */
  754. +    copy_model_vswtch,    /* copy */
  755. +    parse_model_vswtch,    /* parse */
  756. +    print_model_vswtch,    /* print */
  757. +    NULL,        /* expand */
  758. +    NULL,        /* probe */
  759. +    NULL,        /* dotr */
  760. +    NULL,        /* untr */
  761. +    NULL,        /* doac */
  762. +    NULL,        /* trfun1 */
  763. +    NULL,        /* trfun0 */
  764. +    NULL,        /* acfun */
  765. +    NULL,        /* tr_guess */
  766. +    NULL,        /* tr_advance */
  767. +    NULL            /* tr_review */
  768. + };
  769. + /*--------------------------------------------------------------------------*/
  770. + static void parse_vswtch(branch_t *brh, const char *cmd, int *cnt)
  771. + {
  772. +  struct vswtch *x;
  773. + 
  774. +  x = (struct vswtch*)brh->x;
  775. + 
  776. +  parselabel(brh,cmd,cnt);
  777. +  (void)parsenodes(brh,cmd,cnt);
  778. +  (void)ctostr(cmd, cnt, x->modelname, LABELEN, TOKENTERM);
  779. +  x->m = (struct vswtchmod*)NULL;
  780. +  for (;;){
  781. +     if (argparse(cmd,cnt,REPEAT,
  782. +     "OFF",    aENUM,        &x->ic,        swOFF,
  783. +     "ON",    aENUM,        &x->ic,        swON,
  784. +     ""))
  785. +     ;
  786. +     else{
  787. +        syntax_check(cmd,cnt,bWARNING);
  788. +        break;
  789. +     }
  790. +  }
  791. + }
  792. + /*--------------------------------------------------------------------------*/
  793. + static void print_vswtch(const branch_t *brh, int where, int detail)
  794. + {
  795. +  const struct vswtch *x;
  796. + 
  797. +  x = (const struct vswtch*)brh->x;
  798. + 
  799. +  (void)printlabel(brh,where);
  800. +  printnodes(brh,where);
  801. +  mprintf(where, " %s ", x->modelname);
  802. + 
  803. +  if (x->ic == swOFF)
  804. +     mprintf(where, " off ");
  805. +  else if (x->ic == swON)
  806. +     mprintf(where, " on ");
  807. +  /* else (x->ic == swUNKNOWN) */
  808. +  mprintf(where, "\n");
  809. + }
  810. + /*--------------------------------------------------------------------------*/
  811. + static branch_t *create_model_vswtch(const functions_t *func)
  812. + {
  813. +  branch_t *brh;
  814. + 
  815. +  brh = create_std(func);
  816. +  brh->stprev = &modellist;
  817. +  return brh;
  818. + }
  819. + /*--------------------------------------------------------------------------*/
  820. + static branch_t *copy_model_vswtch(const branch_t *proto)
  821. + {
  822. +  branch_t *brh;
  823. + 
  824. +  brh = copy_std(proto);
  825. +  brh->stprev = &modellist;
  826. +  return brh;
  827. + }
  828. + /*--------------------------------------------------------------------------*/
  829. + static void parse_model_vswtch(branch_t *brh, const char *cmd, int *cnt)
  830. + {
  831. +  struct vswtchmod *m;
  832. + 
  833. +  m = (struct vswtchmod*)brh->x;
  834. + 
  835. +  (void)ctostr(cmd, cnt, brh->label, LABELEN, TOKENTERM);
  836. +  skiparg(cmd,cnt);    /* skip known "sw" */
  837. +  (void)skiplparen(cmd,cnt);
  838. +  for (;;){
  839. +     if (argparse(cmd,cnt,REPEAT,
  840. +     "VT",    aDOUBLE,    &m->vt,
  841. +     "VH",    aUDOUBLE,    &m->vh,
  842. +     "RON",    aDOUBLE,    &m->ron,
  843. +     "ROFF",    aDOUBLE,    &m->roff,
  844. +      ""))
  845. +        ;
  846. +     else{
  847. +        (void)skiprparen(cmd,cnt);
  848. +        syntax_check(cmd,cnt,bWARNING);
  849. +        break;
  850. +     }
  851. +  }
  852. + }
  853. + /*--------------------------------------------------------------------------*/
  854. + static void print_model_vswtch(const branch_t *brh, int where, int detail)
  855. + {
  856. +  const struct vswtchmod *m;
  857. +  m = (const struct vswtchmod*)brh->x;
  858. + 
  859. +  mprintf(where, ".model  %s  sw  (", brh->label);
  860. +  mprintf(where, " vt=%s ",  ftos(m->vt,  "", 7, 0));
  861. +  mprintf(where, " vh=%s ",  ftos(m->vh,  "", 7, 0));
  862. +  mprintf(where, " ron=%s ",   ftos(m->ron,   "", 7, 0));
  863. +  mprintf(where, " roff=%s ",  ftos(m->roff,  "", 7, 0));
  864. +  mprintf(where, ")\n");
  865. + }
  866. + /*--------------------------------------------------------------------------*/
  867. + static void expand_vswtch(branch_t *brh)
  868. + {
  869. +  struct vswtch *x;
  870. +  const struct vswtchmod *m;
  871. + 
  872. +  expandgeneric(brh,&modellist);
  873. +  x = (struct vswtch*)brh->x;
  874. +  m = x->m;
  875. +  brh->val = m->ron;
  876. +  brh->y0.f0 = LINEAR;
  877. +  if (x->ic == swON){
  878. +     brh->y0.f1 = m->ron;
  879. +  }else{            /* unknown is off */
  880. +     brh->y0.f1 = m->roff;
  881. +  }
  882. +  x->previous_state = x->current_state = x->ic;
  883. +  brh->m0.f1 = 1./brh->y0.f1;
  884. +  brh->m0.c0 = 0.;
  885. +  brh->ev.x  = brh->y0.f1;
  886. +  brh->ev.y  = 0.;
  887. +  brh->acg.x = brh->m0.f1;
  888. +  brh->acg.y = 0.;
  889. +  brh->nodamp = YES;
  890. + }
  891. + /*--------------------------------------------------------------------------*/
  892. + static int tr_vswtch(branch_t *brh)
  893. + {
  894. +  struct vswtch *x;
  895. +  const struct vswtchmod *m;
  896. +  double control;
  897. +  int new_state;
  898. +  
  899. +  x = (struct vswtch*)brh->x;
  900. +  m = x->m;
  901. +  
  902. +  if (stats.iter[iSTEP] <= 1){
  903. +     if (sim_phase == pINIT_DC){   
  904. +        if (x->ic == swON){
  905. +       brh->y0.f1 = m->ron;
  906. +        }else{
  907. +       brh->y0.f1 = m->roff;
  908. +        }
  909. +        x->current_state = x->ic;
  910. +        brh->m0.f1 = 1./brh->y0.f1;
  911. +     }
  912. +     x->previous_state = x->current_state;
  913. +  }
  914. +  
  915. +  control = tr_volts(&(brh->n[IN1]),&(brh->n[IN2]));
  916. +  if (control > m->vt + m->vh){
  917. +     new_state = swON;
  918. +  }else if (control < m->vt - m->vh){
  919. +     new_state = swOFF;
  920. +  }else{
  921. +     new_state = x->previous_state;
  922. +  }
  923. + 
  924. +  if (new_state != x->current_state){
  925. +     if (new_state == swON){
  926. +        brh->y0.f1 = m->ron;
  927. +     }else{
  928. +        brh->y0.f1 = m->roff;
  929. +     }
  930. +     x->current_state = new_state;
  931. +     brh->m0.f1 = 1./brh->y0.f1;
  932. +     trloadpassive(brh);
  933. +     return NO;
  934. +  }else{
  935. +     trloadpassive(brh);
  936. +     return YES;
  937. +  }
  938. + }
  939. + /*--------------------------------------------------------------------------*/
  940. + static void ac_vswtch(branch_t *brh)
  941. + {
  942. +  brh->ev.x  = brh->y0.f1;
  943. +  brh->ev.y  = 0.;
  944. +  brh->acg.x = brh->m0.f1;
  945. +  brh->acg.y = 0.;
  946. +  acloadpassivereal(brh);
  947. + }
  948. + /*--------------------------------------------------------------------------*/
  949. + /*--------------------------------------------------------------------------*/
  950. diff -cN ../acs-0.14/src/d_vswtch.h src/d_vswtch.h
  951. *** ../acs-0.14/src/d_vswtch.h
  952. --- src/d_vswtch.h    Sun Jul 31 23:09:40 1994
  953. ***************
  954. *** 0 ****
  955. --- 1,37 ----
  956. + /* d_vswtch.h  94.07.13
  957. +  * Copyright 1994  Albert Davis
  958. +  * data structures for voltage controlled switch
  959. +  */
  960. + #define vswDEFMOD_modelname    "-sw-"
  961. + #define vswDEFMOD_vt    0.0
  962. + #define vswDEFMOD_vh    0.0
  963. + #define vswDEFMOD_ron    1.0
  964. + #define vswDEFMOD_roff    1e+12
  965. + 
  966. + #define vswDEFDEV_modelname    vswDEFMOD_modelname
  967. + #define    vswDEFDEV_ic    swUNKNOWN
  968. + 
  969. + #define swUNKNOWN     0
  970. + #define    swON        1
  971. + #define swOFF        -1
  972. + 
  973. + struct vswtch {
  974. +    generic_t    *x;        /* (not used) */
  975. +    size_t    ssize;
  976. +    const struct vswtchmod *m;    /* model params */
  977. +    char     modelname[LABELEN+1];
  978. +    int        ic;        /* initial state */
  979. +    int        current_state;    /* state 1 iter ago (may be bad) */
  980. +    int        previous_state;    /* state 1 time or step ago (known good) */
  981. + };
  982. + 
  983. + struct vswtchmod {
  984. +    generic_t    *x;        /* owned expansion stuff (not used)    */
  985. +    size_t    ssize;        /* spice2 parameters            */
  986. +    double    vt;        /* threshold voltage            */
  987. +    double    vh;        /* hysteresis voltage            */
  988. +    double    ron;        /* on resistance            */
  989. +    double    roff;        /* off resistance            */
  990. + };
  991. + 
  992. + 
  993. diff -cN ../acs-0.14/src/dc_setup.c src/dc_setup.c
  994. *** ../acs-0.14/src/dc_setup.c    Wed Jul  6 12:11:50 1994
  995. --- src/dc_setup.c    Sun Jul 31 23:09:50 1994
  996. ***************
  997. *** 1,4 ****
  998. ! /* dc_setup.c  93.12.19
  999.    * Copyright 1983-1992   Albert Davis
  1000.    * dc analysis setup
  1001.    */
  1002. --- 1,4 ----
  1003. ! /* dc_setup.c  94.07.29
  1004.    * Copyright 1983-1992   Albert Davis
  1005.    * dc analysis setup
  1006.    */
  1007. ***************
  1008. *** 131,137 ****
  1009.       ;    
  1010.       else if (isfloat(cmd[*cnt]))
  1011.           dcoptby(cmd,cnt);
  1012. !     else if (outset(cmd,cnt,(char*)NULL,((sim_mode==sOP)?"bi ":"dc ")))
  1013.       ;
  1014.       else{
  1015.          syntax_check(cmd,cnt,bWARNING);
  1016. --- 131,137 ----
  1017.       ;    
  1018.       else if (isfloat(cmd[*cnt]))
  1019.           dcoptby(cmd,cnt);
  1020. !     else if (outset(cmd,cnt,"",""))
  1021.       ;
  1022.       else{
  1023.          syntax_check(cmd,cnt,bWARNING);
  1024. diff -cN ../acs-0.14/src/declare.h src/declare.h
  1025. *** ../acs-0.14/src/declare.h    Wed Jul  6 12:11:38 1994
  1026. --- src/declare.h    Sun Jul 31 23:09:40 1994
  1027. ***************
  1028. *** 1,4 ****
  1029. ! /* declare  94.05.06
  1030.    * Copyright 1983-1992   Albert Davis
  1031.    * declarations for type checking
  1032.    */
  1033. --- 1,4 ----
  1034. ! /* declare  94.07.15
  1035.    * Copyright 1983-1992   Albert Davis
  1036.    * declarations for type checking
  1037.    */
  1038. ***************
  1039. *** 61,67 ****
  1040.   /* crtset   */    void      cmd_crtset(const char*,int*);
  1041.           int      testcrt(void);
  1042.           struct graph *initcrt(void);
  1043. ! /* ctostr   */    char      *ctostr(const char*,int*,char*,int);
  1044.   /* ctof     */    double      ctof(const char*,int*);
  1045.           double      x10(int);
  1046.   /* ctoi     */    int      ctoi(const char*,int*);
  1047. --- 61,67 ----
  1048.   /* crtset   */    void      cmd_crtset(const char*,int*);
  1049.           int      testcrt(void);
  1050.           struct graph *initcrt(void);
  1051. ! /* ctostr   */    char      *ctostr(const char*,int*,char*,int,const char*);
  1052.   /* ctof     */    double      ctof(const char*,int*);
  1053.           double      x10(int);
  1054.   /* ctoi     */    int      ctoi(const char*,int*);
  1055. ***************
  1056. *** 130,136 ****
  1057.   /* insert   */    void      cmd_insert(const char*,int*);
  1058.   /* ipow     */    double      ipow(double,int);
  1059.   /* isfloat  */    int      isfloat(int);
  1060. ! /* isterm   */    int      isterm(int);
  1061.   /* itos     */    char      *itos(int,char*,int,int);
  1062.   /* line     */    void      initgraph(struct graph*);
  1063.            void      stext(int,int,const char*,int);
  1064. --- 130,136 ----
  1065.   /* insert   */    void      cmd_insert(const char*,int*);
  1066.   /* ipow     */    double      ipow(double,int);
  1067.   /* isfloat  */    int      isfloat(int);
  1068. ! /* isterm   */    int      isterm(int,const char*);
  1069.   /* itos     */    char      *itos(int,char*,int,int);
  1070.   /* line     */    void      initgraph(struct graph*);
  1071.            void      stext(int,int,const char*,int);
  1072. ***************
  1073. *** 151,157 ****
  1074.           void      cmd_unfault(void);
  1075.   /* nodes    */    int      newnode_subckt(void);
  1076.           int      newnode_model(void);
  1077. !         int      parsenodes(branch_t*,const char*,int*,int);
  1078.           void      printnodes(const branch_t*,int);
  1079.   /* nodeset  */    void      cmd_ic(const char*,int*);
  1080.           void      cmd_nodeset(const char*,int*);
  1081. --- 151,157 ----
  1082.           void      cmd_unfault(void);
  1083.   /* nodes    */    int      newnode_subckt(void);
  1084.           int      newnode_model(void);
  1085. !         int      parsenodes(branch_t*,const char*,int*);
  1086.           void      printnodes(const branch_t*,int);
  1087.   /* nodeset  */    void      cmd_ic(const char*,int*);
  1088.           void      cmd_nodeset(const char*,int*);
  1089. diff -cN ../acs-0.14/src/dev.c src/dev.c
  1090. *** ../acs-0.14/src/dev.c    Wed Jul  6 12:11:51 1994
  1091. --- src/dev.c    Sun Jul 31 23:09:51 1994
  1092. ***************
  1093. *** 1,4 ****
  1094. ! /* dev.c  94.07.03
  1095.    * Copyright 1983-1992   Albert Davis
  1096.    * top level device functions that call the specific one and
  1097.    * standard device functions to be used where nothing else is needed
  1098. --- 1,4 ----
  1099. ! /* dev.c  94.07.15
  1100.    * Copyright 1983-1992   Albert Davis
  1101.    * top level device functions that call the specific one and
  1102.    * standard device functions to be used where nothing else is needed
  1103. ***************
  1104. *** 149,155 ****
  1105.   void parse_std(branch_t *brh, const char *cmd, int *cnt)
  1106.   {
  1107.    parselabel(brh,cmd,cnt);
  1108. !  (void)parsenodes(brh,cmd,cnt,brh->f->numnodes);
  1109.    parseexpr(brh,cmd,cnt);
  1110.    if (brh->f->super)
  1111.       brh->f = brh->f->super;
  1112. --- 149,155 ----
  1113.   void parse_std(branch_t *brh, const char *cmd, int *cnt)
  1114.   {
  1115.    parselabel(brh,cmd,cnt);
  1116. !  (void)parsenodes(brh,cmd,cnt);
  1117.    parseexpr(brh,cmd,cnt);
  1118.    if (brh->f->super)
  1119.       brh->f = brh->f->super;
  1120. ***************
  1121. *** 160,166 ****
  1122.    */
  1123.   void parselabel(branch_t *brh, const char *cmd, int *cnt)
  1124.   {
  1125. !  (void)ctostr(cmd, cnt, brh->label, LABELEN);
  1126.    brh->label[0] = to_upper(brh->label[0]);
  1127.   }
  1128.   /*--------------------------------------------------------------------------*/
  1129. --- 160,166 ----
  1130.    */
  1131.   void parselabel(branch_t *brh, const char *cmd, int *cnt)
  1132.   {
  1133. !  (void)ctostr(cmd, cnt, brh->label, LABELEN, TOKENTERM);
  1134.    brh->label[0] = to_upper(brh->label[0]);
  1135.   }
  1136.   /*--------------------------------------------------------------------------*/
  1137. ***************
  1138. *** 315,329 ****
  1139.       double i0  = (brh->m0.f1  * brh->m0.x  + brh->m0.c0);
  1140.       double it1 = (brh->mt1.f1 * brh->mt1.x + brh->mt1.c0);
  1141.       return  (i0 - it1) / (brh->time0 - brh->time1);
  1142. - #ifdef KEEP_OLD_TIME_INFO
  1143. -  }else if (rematch("DDIddt")){
  1144. -     double i0  = (brh->m0.f1  * brh->m0.x  + brh->m0.c0);
  1145. -     double it1 = (brh->mt1.f1 * brh->mt1.x + brh->mt1.c0);
  1146. -     double it2 = (brh->mt2.f1 * brh->mt2.x + brh->mt2.c0);
  1147. -     double didt0 = (i0  - it1) / (brh->time0 - brh->time1);
  1148. -     double didt1 = (it1 - it2) / (brh->time1 - brh->time2);
  1149. -     return 2. * (didt0 - didt1) / (brh->time0 - brh->time2);
  1150. - #endif
  1151.    }else if (rematch("DTNew")){
  1152.       return brh->timef - brh->time0;
  1153.    }else if (rematch("DTOld")){
  1154. --- 315,320 ----
  1155. diff -cN ../acs-0.14/src/ecah.h src/ecah.h
  1156. *** ../acs-0.14/src/ecah.h    Wed Jul  6 12:11:39 1994
  1157. --- src/ecah.h    Sun Jul 31 23:09:40 1994
  1158. ***************
  1159. *** 1,4 ****
  1160. ! /* ecah.h  94.04.29
  1161.    * Copyright 1983-1992   Albert Davis
  1162.    * define assorted stuff
  1163.    */
  1164. --- 1,4 ----
  1165. ! /* ecah.h  94.07.13
  1166.    * Copyright 1983-1992   Albert Davis
  1167.    * define assorted stuff
  1168.    */
  1169. ***************
  1170. *** 27,32 ****
  1171. --- 27,33 ----
  1172.   #define DBVOLTMIN   (20.*log10(VOLTMIN))
  1173.   #define PWRMIN        (1.0e-100)
  1174.   #define DBPWRMIN    (10.*log10(PWRMIN))
  1175. + #define TOKENTERM   ",=()[]"
  1176.   
  1177.   #define    YES    (1)
  1178.   #define    NO    (0)
  1179. diff -cN ../acs-0.14/src/fanout.c src/fanout.c
  1180. *** ../acs-0.14/src/fanout.c    Wed Jul  6 12:12:01 1994
  1181. --- src/fanout.c    Sun Jul 31 23:10:01 1994
  1182. ***************
  1183. *** 1,4 ****
  1184. ! /* fanout.c  93.12.19
  1185.    * Copyright 1983-1992   Albert Davis
  1186.    * Prints out a list of all node connections.
  1187.    */
  1188. --- 1,4 ----
  1189. ! /* fanout.c  94.07.29
  1190.    * Copyright 1983-1992   Albert Davis
  1191.    * Prints out a list of all node connections.
  1192.    */
  1193. ***************
  1194. *** 41,47 ****
  1195.          skipbl(cmd,cnt);
  1196.          if (isdigit(cmd[*cnt]))
  1197.         stop = ctoi(cmd,cnt);
  1198. !     }else if (outset(cmd,cnt,(char*)NULL,"   ")){
  1199.          /*nothing*/;
  1200.       }else{
  1201.          syntax_check(cmd,cnt,bWARNING);
  1202. --- 41,47 ----
  1203.          skipbl(cmd,cnt);
  1204.          if (isdigit(cmd[*cnt]))
  1205.         stop = ctoi(cmd,cnt);
  1206. !     }else if (outset(cmd,cnt,"","")){
  1207.          /*nothing*/;
  1208.       }else{
  1209.          syntax_check(cmd,cnt,bWARNING);
  1210. diff -cN ../acs-0.14/src/fft.c src/fft.c
  1211. *** ../acs-0.14/src/fft.c    Wed Jul  6 12:12:02 1994
  1212. --- src/fft.c    Sun Jul 31 23:10:01 1994
  1213. ***************
  1214. *** 1,4 ****
  1215. ! /* fft.c  93.12.19
  1216.    * Copyright 1983-1992   Albert Davis
  1217.    * fast fourier transform
  1218.    */
  1219. --- 1,4 ----
  1220. ! /* fft.c  94.07.23
  1221.    * Copyright 1983-1992   Albert Davis
  1222.    * fast fourier transform
  1223.    */
  1224. ***************
  1225. *** 15,21 ****
  1226.    double wpwr, arg;
  1227.    
  1228.    s = (inv) ? 1 : -1;
  1229. !  for (nxp=n  ;    (nxp2=nxp/2)  ;  nxp=nxp2){
  1230.       wpwr = kPIx2 / nxp;
  1231.       for (m=0 ;     m<nxp2 ;  m++){
  1232.          register int j1, j2;
  1233. --- 15,21 ----
  1234.    double wpwr, arg;
  1235.    
  1236.    s = (inv) ? 1 : -1;
  1237. !  for (nxp=n  ;    (nxp2=nxp/2) > 0  ;  nxp=nxp2){
  1238.       wpwr = kPIx2 / nxp;
  1239.       for (m=0 ;     m<nxp2 ;  m++){
  1240.          register int j1, j2;
  1241. diff -cN ../acs-0.14/src/file.c src/file.c
  1242. *** ../acs-0.14/src/file.c    Wed Jul  6 12:12:02 1994
  1243. --- src/file.c    Sun Jul 31 23:10:02 1994
  1244. ***************
  1245. *** 1,4 ****
  1246. ! /* file.c  93.12.19
  1247.    * Copyright 1983-1992   Albert Davis
  1248.    * route output to & from files, get command
  1249.    */
  1250. --- 1,4 ----
  1251. ! /* file.c  94.07.29
  1252.    * Copyright 1983-1992   Albert Davis
  1253.    * route output to & from files, get command
  1254.    */
  1255. ***************
  1256. *** 41,47 ****
  1257.             ++*cnt;
  1258.             skipbl(cmd,cnt);
  1259.          }
  1260. !        files[nest] = xopen(cmd,cnt,"eca",access);
  1261.          if (files[nest]){
  1262.             mlog |= 1<<fileno(files[nest]);
  1263.             nest++;
  1264. --- 41,47 ----
  1265.             ++*cnt;
  1266.             skipbl(cmd,cnt);
  1267.          }
  1268. !        files[nest] = xopen(cmd,cnt,"",access);
  1269.          if (files[nest]){
  1270.             mlog |= 1<<fileno(files[nest]);
  1271.             nest++;
  1272. ***************
  1273. *** 82,88 ****
  1274.             ++*cnt;
  1275.             skipbl(cmd,cnt);
  1276.          }
  1277. !        files[nest] = xopen(cmd,cnt,"   ",access);
  1278.          if (files[nest]){
  1279.             mout       |= 1<<fileno(files[nest]);
  1280.             io.mstdout |= 1<<fileno(files[nest]);
  1281. --- 82,88 ----
  1282.             ++*cnt;
  1283.             skipbl(cmd,cnt);
  1284.          }
  1285. !        files[nest] = xopen(cmd,cnt,"",access);
  1286.          if (files[nest]){
  1287.             mout       |= 1<<fileno(files[nest]);
  1288.             io.mstdout |= 1<<fileno(files[nest]);
  1289. diff -cN ../acs-0.14/src/findbr.c src/findbr.c
  1290. *** ../acs-0.14/src/findbr.c    Wed Jul  6 12:12:02 1994
  1291. --- src/findbr.c    Sun Jul 31 23:10:02 1994
  1292. ***************
  1293. *** 1,4 ****
  1294. ! /* findbr.c  94.01.02
  1295.    * Copyright 1983-1992   Albert Davis
  1296.    * find a branch with matching label
  1297.    * returns the branch pointer
  1298. --- 1,4 ----
  1299. ! /* findbr.c  94.07.13
  1300.    * Copyright 1983-1992   Albert Davis
  1301.    * find a branch with matching label
  1302.    * returns the branch pointer
  1303. ***************
  1304. *** 30,36 ****
  1305.    char *wanted;
  1306.   
  1307.    save = *cnt;                /* copy the name to local space        */
  1308. !  (void)ctostr(cmd, cnt, labelwanted, BUFLEN);
  1309.   
  1310.    if (!labelwanted[1]){
  1311.       *cnt = save;            /* don't match single letter        */
  1312. --- 30,36 ----
  1313.    char *wanted;
  1314.   
  1315.    save = *cnt;                /* copy the name to local space        */
  1316. !  (void)ctostr(cmd, cnt, labelwanted, BUFLEN, TOKENTERM);
  1317.   
  1318.    if (!labelwanted[1]){
  1319.       *cnt = save;            /* don't match single letter        */
  1320. ***************
  1321. *** 50,56 ****
  1322.    brh = start;
  1323.    do {
  1324.       int dummy = 0;
  1325. !     (void)ctostr( brh->label, &dummy, thislabel, BUFLEN );
  1326.       if (wmatch(wanted,thislabel)){
  1327.          if (!dot){                /* found it */
  1328.             return (branch_t*)brh;
  1329. --- 50,56 ----
  1330.    brh = start;
  1331.    do {
  1332.       int dummy = 0;
  1333. !     (void)ctostr( brh->label, &dummy, thislabel, BUFLEN, TOKENTERM );
  1334.       if (wmatch(wanted,thislabel)){
  1335.          if (!dot){                /* found it */
  1336.             return (branch_t*)brh;
  1337. diff -cN ../acs-0.14/src/findfile.c src/findfile.c
  1338. *** ../acs-0.14/src/findfile.c    Wed Jul  6 12:12:03 1994
  1339. --- src/findfile.c    Sun Jul 31 23:10:02 1994
  1340. ***************
  1341. *** 1,4 ****
  1342. ! /* findfile.c  93.12.19
  1343.    * Modified by AD.  Sent to me by C-WARE
  1344.    * This file contains the routine to locate a file,
  1345.    *    using a path string for the directories to search.
  1346. --- 1,4 ----
  1347. ! /* findfile.c  94.07.13
  1348.    * Modified by AD.  Sent to me by C-WARE
  1349.    * This file contains the routine to locate a file,
  1350.    *    using a path string for the directories to search.
  1351. ***************
  1352. *** 34,41 ****
  1353.       t_ptr = target_buf;                /* copy the directory name        */
  1354.       while (*p_ptr != PATHSEP  &&  *p_ptr != '\0')
  1355.          *t_ptr++ = *p_ptr++;
  1356. !     if (t_ptr != target_buf  &&  t_ptr[-1] != '/'  &&  t_ptr[-1] != '\\')
  1357. !        *t_ptr++ = '/';                /* append '/' if needed        */
  1358.       *t_ptr = '\0';
  1359.       
  1360.       strcat(target_buf, filename);
  1361. --- 34,41 ----
  1362.       t_ptr = target_buf;                /* copy the directory name        */
  1363.       while (*p_ptr != PATHSEP  &&  *p_ptr != '\0')
  1364.          *t_ptr++ = *p_ptr++;
  1365. !     if (t_ptr != target_buf  &&  !strchr(ENDDIR,t_ptr[-1]))
  1366. !        *t_ptr++ = *ENDDIR;            /* append '/' if needed        */
  1367.       *t_ptr = '\0';
  1368.       
  1369.       strcat(target_buf, filename);
  1370. diff -cN ../acs-0.14/src/getckt.c src/getckt.c
  1371. *** ../acs-0.14/src/getckt.c    Wed Jul  6 12:12:04 1994
  1372. --- src/getckt.c    Sun Jul 31 23:10:03 1994
  1373. ***************
  1374. *** 1,4 ****
  1375. ! /* getckt.c  93.12.19
  1376.    * Copyright 1983-1992   Albert Davis
  1377.    * build, get, merge, "<" commands
  1378.    * process circuit files, and keyboard entry
  1379. --- 1,4 ----
  1380. ! /* getckt.c  94.07.29
  1381.    * Copyright 1983-1992   Albert Davis
  1382.    * build, get, merge, "<" commands
  1383.    * process circuit files, and keyboard entry
  1384. ***************
  1385. *** 116,122 ****
  1386.    stats.iter[iTOTAL] = 1;
  1387.    dealloc(YES);
  1388.    xclose(&filen);
  1389. !  filen = xopen(cmd,cnt,"ckt","r");
  1390.    if (!filen)
  1391.       error(bERROR, "");
  1392.   
  1393. --- 116,122 ----
  1394.    stats.iter[iTOTAL] = 1;
  1395.    dealloc(YES);
  1396.    xclose(&filen);
  1397. !  filen = xopen(cmd,cnt,"","r");
  1398.    if (!filen)
  1399.       error(bERROR, "");
  1400.   
  1401. ***************
  1402. *** 167,196 ****
  1403.   static branch_t *parsebranch(char *buffer, int alwaysdupcheck)
  1404.   {
  1405.    branch_t *brh;            /* place for cparse to return data        */
  1406. -  branch_t *old;            /* possible replace this one            */
  1407.    branch_t *before;        /* actually insert here                */
  1408.   
  1409.    before = insertbefore;        /* save insert place in case something like */
  1410.                    /* a subckt changes it                */
  1411.   
  1412. !  brh = cparse(buffer);                /* parse it                     */
  1413.    if (exists(brh)){
  1414. !     if (opt.dupcheck ||  alwaysdupcheck){
  1415. !        int dummy;            /* string index for parse package   */
  1416. !        dummy = 0;
  1417. !        old = findbranch(brh->label, &dummy, insertbefore, insertbefore->prev);
  1418. !        if (exists(old)){            /* already exists, replace it   */
  1419. !           error(bWARNING, "replacing: %s\n", brh->label);
  1420. !           brh->next = old->next;        /* set link so new is in same   */
  1421. !           (void)deletebranch(old);        /* place, then delete.        */
  1422. !        }else{
  1423. !           brh->next = before;
  1424. !        }
  1425. !     }else{
  1426.          brh->next = before;
  1427.       }
  1428. -     brh = insertbranch(brh);
  1429.    }
  1430.    if (isdevice(brh)){
  1431.       dealloc(YES);
  1432.    }
  1433. --- 167,195 ----
  1434.   static branch_t *parsebranch(char *buffer, int alwaysdupcheck)
  1435.   {
  1436.    branch_t *brh;            /* place for cparse to return data        */
  1437.    branch_t *before;        /* actually insert here                */
  1438.   
  1439. +  brh = (branch_t*)NULL;
  1440.    before = insertbefore;        /* save insert place in case something like */
  1441.                    /* a subckt changes it                */
  1442.   
  1443. !  if (opt.dupcheck ||  alwaysdupcheck){
  1444. !     int dummy = 0;
  1445. !     brh = findbranch(buffer, &dummy, insertbefore, insertbefore->prev);
  1446. !  }
  1447. !  
  1448.    if (exists(brh)){
  1449. !     int dummy = 0;
  1450. !     error(bWARNING, "replacing: %s\n", brh->label);
  1451. !     parse_branch(brh,buffer,&dummy);
  1452. !  }else{
  1453. !     brh = cparse(buffer);
  1454. !     if (exists(brh)){
  1455.          brh->next = before;
  1456. +        brh = insertbranch(brh);
  1457.       }
  1458.    }
  1459. + 
  1460.    if (isdevice(brh)){
  1461.       dealloc(YES);
  1462.    }
  1463. ***************
  1464. *** 237,243 ****
  1465.       case 'P':    syntax_msg(cmd,cnt,bWARNING);        break;
  1466.       case 'Q':    brh = create_branch(&dev_bjt);        break;
  1467.       case 'R':    brh = create_branch(&dev_resistor);    break;
  1468. !     case 'S':    syntax_msg(cmd,cnt,bWARNING);        break;
  1469.       case 'T':    brh = create_branch(&dev_trnlin);    break;
  1470.       case 'U':    brh = create_branch(&dev_logic);    break;
  1471.       case 'V':    brh = create_branch(&dev_vs);        break;
  1472. --- 236,242 ----
  1473.       case 'P':    syntax_msg(cmd,cnt,bWARNING);        break;
  1474.       case 'Q':    brh = create_branch(&dev_bjt);        break;
  1475.       case 'R':    brh = create_branch(&dev_resistor);    break;
  1476. !     case 'S':    brh = create_branch(&dev_vswtch);    break;
  1477.       case 'T':    brh = create_branch(&dev_trnlin);    break;
  1478.       case 'U':    brh = create_branch(&dev_logic);    break;
  1479.       case 'V':    brh = create_branch(&dev_vs);        break;
  1480. diff -cN ../acs-0.14/src/isterm.c src/isterm.c
  1481. *** ../acs-0.14/src/isterm.c    Wed Jul  6 12:12:06 1994
  1482. --- src/isterm.c    Sun Jul 31 23:10:05 1994
  1483. ***************
  1484. *** 1,4 ****
  1485. ! /* isterm.c  93.12.19
  1486.    * Copyright 1983-1992   Albert Davis
  1487.    * return 1 if terminator (space, comma, =, or null)
  1488.    * else 0
  1489. --- 1,4 ----
  1490. ! /* isterm.c  94.07.13
  1491.    * Copyright 1983-1992   Albert Davis
  1492.    * return 1 if terminator (space, comma, =, or null)
  1493.    * else 0
  1494. ***************
  1495. *** 6,12 ****
  1496.   #include "ecah.h"
  1497.   #include "declare.h"
  1498.   
  1499. ! int isterm(int chr)
  1500.   {
  1501. !  return (chr=='\0' || isspace(chr) || strchr(",=()[]",chr));
  1502.   }
  1503. --- 6,12 ----
  1504.   #include "ecah.h"
  1505.   #include "declare.h"
  1506.   
  1507. ! int isterm(int chr, const char *term)
  1508.   {
  1509. !  return (chr=='\0' || isspace(chr) || strchr(term,chr));
  1510.   }
  1511. diff -cN ../acs-0.14/src/list.c src/list.c
  1512. *** ../acs-0.14/src/list.c    Wed Jul  6 12:12:07 1994
  1513. --- src/list.c    Sun Jul 31 23:10:06 1994
  1514. ***************
  1515. *** 1,4 ****
  1516. ! /* list.c  93.12.19
  1517.    * Copyright 1983-1992   Albert Davis
  1518.    * list and save commands.
  1519.    * save is list with direction to file
  1520. --- 1,4 ----
  1521. ! /* list.c  94.07.29
  1522.    * Copyright 1983-1992   Albert Davis
  1523.    * list and save commands.
  1524.    * save is list with direction to file
  1525. ***************
  1526. *** 25,31 ****
  1527.   void cmd_save(const char *cmd, int *cnt)
  1528.   {
  1529.    *cnt = 0;              /* back up to beginning of input line        */
  1530. !  (void)outset(cmd,cnt,(char*)NULL,"ckt");
  1531.                     /* (outset will re-eat words save or list)*/
  1532.                     /* its purpose is to set up where to send */
  1533.                     /* the stuff.                    */
  1534. --- 25,31 ----
  1535.   void cmd_save(const char *cmd, int *cnt)
  1536.   {
  1537.    *cnt = 0;              /* back up to beginning of input line        */
  1538. !  (void)outset(cmd,cnt,"","");
  1539.                     /* (outset will re-eat words save or list)*/
  1540.                     /* its purpose is to set up where to send */
  1541.                     /* the stuff.                    */
  1542. diff -cN ../acs-0.14/src/nodes.c src/nodes.c
  1543. *** ../acs-0.14/src/nodes.c    Wed Jul  6 12:12:08 1994
  1544. --- src/nodes.c    Sun Jul 31 23:10:08 1994
  1545. ***************
  1546. *** 1,4 ****
  1547. ! /* nodes.c  93.12.20
  1548.    * Copyright 1983-1992   Albert Davis
  1549.    * functions to handle node mapping
  1550.    */
  1551. --- 1,4 ----
  1552. ! /* nodes.c  94.07.23
  1553.    * Copyright 1983-1992   Albert Davis
  1554.    * functions to handle node mapping
  1555.    */
  1556. ***************
  1557. *** 9,15 ****
  1558.   /*--------------------------------------------------------------------------*/
  1559.       int    newnode_subckt(void);
  1560.       int    newnode_model(void);
  1561. !     int    parsenodes(branch_t*,const char*,int*,int);
  1562.       void    printnodes(const branch_t*,int);
  1563.   static    int    name2number(const char*,int*);
  1564.   static    char*    number2name(char*,int);
  1565. --- 9,15 ----
  1566.   /*--------------------------------------------------------------------------*/
  1567.       int    newnode_subckt(void);
  1568.       int    newnode_model(void);
  1569. !     int    parsenodes(branch_t*,const char*,int*);
  1570.       void    printnodes(const branch_t*,int);
  1571.   static    int    name2number(const char*,int*);
  1572.   static    char*    number2name(char*,int);
  1573. ***************
  1574. *** 34,47 ****
  1575.   /*--------------------------------------------------------------------------*/
  1576.   /* parsenodes: parse circuit connections from input string
  1577.    * result in brh.
  1578. !  * n array must hold at least nodecount+1
  1579.    * cnt updated.
  1580.    */
  1581. ! int parsenodes(branch_t *brh, const char *cmd, int *cnt, int nodecount)
  1582.   {
  1583.    int ii;
  1584.    int count = 0;
  1585. !  for (ii = 0;  ii < nodecount;  ii++){
  1586.       brh->n[ii].t = brh->n[ii].e = name2number(cmd,cnt);
  1587.       if (brh->n[ii].e != INVALIDNODE)
  1588.          count = ii+1;
  1589. --- 34,47 ----
  1590.   /*--------------------------------------------------------------------------*/
  1591.   /* parsenodes: parse circuit connections from input string
  1592.    * result in brh.
  1593. !  * n array must hold at least numnodes+1
  1594.    * cnt updated.
  1595.    */
  1596. ! int parsenodes(branch_t *brh, const char *cmd, int *cnt)
  1597.   {
  1598.    int ii;
  1599.    int count = 0;
  1600. !  for (ii = 0;  ii < brh->f->numnodes;  ii++){
  1601.       brh->n[ii].t = brh->n[ii].e = name2number(cmd,cnt);
  1602.       if (brh->n[ii].e != INVALIDNODE)
  1603.          count = ii+1;
  1604. diff -cN ../acs-0.14/src/patchlev.h src/patchlev.h
  1605. *** ../acs-0.14/src/patchlev.h    Wed Jul  6 12:11:41 1994
  1606. --- src/patchlev.h    Sun Jul 31 23:09:43 1994
  1607. ***************
  1608. *** 1,3 ****
  1609. ! /* patchlev.h  94.05.27
  1610.    */
  1611. ! #define PATCHLEVEL 14
  1612. --- 1,3 ----
  1613. ! /* patchlev.h  94.07.31
  1614.    */
  1615. ! #define PATCHLEVEL 15
  1616. diff -cN ../acs-0.14/src/probe.c src/probe.c
  1617. *** ../acs-0.14/src/probe.c    Wed Jul  6 12:12:13 1994
  1618. --- src/probe.c    Sun Jul 31 23:10:12 1994
  1619. ***************
  1620. *** 1,4 ****
  1621. ! /* probe.c  94.05.06
  1622.    * Copyright 1983-1992   Albert Davis
  1623.    * probe and plot commands
  1624.    * set up print and plot (select points, maintain probe lists)
  1625. --- 1,4 ----
  1626. ! /* probe.c  94.07.13
  1627.    * Copyright 1983-1992   Albert Davis
  1628.    * probe and plot commands
  1629.    * set up print and plot (select points, maintain probe lists)
  1630. ***************
  1631. *** 161,167 ****
  1632.    int oldcount = probecount;
  1633.    int paren = 0;
  1634.    prb.lo = prb.hi = 0.;
  1635. !  (void)ctostr(cmd,cnt,prb.what,LABELEN);    /* parameter */
  1636.    if (!*(prb.what))
  1637.       syntax_msg(cmd,cnt,bWARNING);
  1638.    paren += skiplparen(cmd,cnt);            /* device, node, etc. */
  1639. --- 161,167 ----
  1640.    int oldcount = probecount;
  1641.    int paren = 0;
  1642.    prb.lo = prb.hi = 0.;
  1643. !  (void)ctostr(cmd,cnt,prb.what,LABELEN,TOKENTERM);    /* parameter */
  1644.    if (!*(prb.what))
  1645.       syntax_msg(cmd,cnt,bWARNING);
  1646.    paren += skiplparen(cmd,cnt);            /* device, node, etc. */
  1647. ***************
  1648. *** 315,325 ****
  1649.    int dropcount = 0;
  1650.    int savecnt;
  1651.    savecnt = *cnt;
  1652. !  (void)ctostr(cmd,cnt,parameter,BUFLEN);
  1653.    strcat(parameter,"(");
  1654.    paren += skiplparen(cmd,cnt);            /* device, node, etc. */
  1655.    (void)ctostr(cmd, cnt, &(parameter[strlen(parameter)]), 
  1656. !                  BUFLEN-(int)strlen(parameter));
  1657.    strcat(parameter,")");
  1658.    paren -= skiprparen(cmd,cnt);
  1659.    if (paren != 0  || !*parameter)
  1660. --- 315,325 ----
  1661.    int dropcount = 0;
  1662.    int savecnt;
  1663.    savecnt = *cnt;
  1664. !  (void)ctostr(cmd,cnt,parameter,BUFLEN,TOKENTERM);
  1665.    strcat(parameter,"(");
  1666.    paren += skiplparen(cmd,cnt);            /* device, node, etc. */
  1667.    (void)ctostr(cmd, cnt, &(parameter[strlen(parameter)]), 
  1668. !                  BUFLEN-(int)strlen(parameter), TOKENTERM);
  1669.    strcat(parameter,")");
  1670.    paren -= skiprparen(cmd,cnt);
  1671.    if (paren != 0  || !*parameter)
  1672. diff -cN ../acs-0.14/src/syscall.c src/syscall.c
  1673. *** ../acs-0.14/src/syscall.c    Wed Jul  6 12:12:24 1994
  1674. --- src/syscall.c    Sun Jul 31 23:10:20 1994
  1675. ***************
  1676. *** 1,4 ****
  1677. ! /* syscall.c  93.12.21
  1678.    * Copyright 1983-1992   Albert Davis
  1679.    * system calls: change directory, invoke another program, invoke editor, etc.
  1680.    */
  1681. --- 1,4 ----
  1682. ! /* syscall.c  94.07.31
  1683.    * Copyright 1983-1992   Albert Davis
  1684.    * system calls: change directory, invoke another program, invoke editor, etc.
  1685.    */
  1686. ***************
  1687. *** 34,44 ****
  1688.    }else{
  1689.       strcpy(name, EDITFILE);
  1690.       (void)mktemp(name);
  1691. !     sprintf(args, "save %s\n", name);
  1692.       (void)cmdproc(args);
  1693. !     sprintf(args, "%s %s\n", editor, name);
  1694.       system(args);
  1695. !     sprintf(args, "get %s quiet\n", name);
  1696.       (void)cmdproc(args);
  1697.       (void)unlink(name);
  1698.    }
  1699. --- 34,44 ----
  1700.    }else{
  1701.       strcpy(name, EDITFILE);
  1702.       (void)mktemp(name);
  1703. !     sprintf(args, "save %s", name);
  1704.       (void)cmdproc(args);
  1705. !     sprintf(args, "%s %s", editor, name);
  1706.       system(args);
  1707. !     sprintf(args, "get %s quiet", name);
  1708.       (void)cmdproc(args);
  1709.       (void)unlink(name);
  1710.    }
  1711. ***************
  1712. *** 64,70 ****
  1713.    char buf[BUFLEN];
  1714.   
  1715.    if (cmd[*cnt])
  1716. !     (void)chdir(ctostr(cmd, cnt, buf, BUFLEN-1));
  1717.    if (getcwd(buf,BUFLEN))
  1718.       mprintf(io.mstderr, "%s\n", buf);
  1719.    else
  1720. --- 64,70 ----
  1721.    char buf[BUFLEN];
  1722.   
  1723.    if (cmd[*cnt])
  1724. !     (void)chdir(ctostr(cmd, cnt, buf, BUFLEN-1, ""));
  1725.    if (getcwd(buf,BUFLEN))
  1726.       mprintf(io.mstderr, "%s\n", buf);
  1727.    else
  1728. diff -cN ../acs-0.14/src/tr_adv.c src/tr_adv.c
  1729. *** ../acs-0.14/src/tr_adv.c    Wed Jul  6 12:12:16 1994
  1730. --- src/tr_adv.c    Sun Jul 31 23:10:14 1994
  1731. ***************
  1732. *** 1,4 ****
  1733. ! /* tr_adv.c  94.07.01
  1734.    * Copyright 1983-1992   Albert Davis
  1735.    * Functions to set up the next time step, and next iteration
  1736.    */
  1737. --- 1,4 ----
  1738. ! /* tr_adv.c  94.07.14
  1739.    * Copyright 1983-1992   Albert Davis
  1740.    * Functions to set up the next time step, and next iteration
  1741.    */
  1742. ***************
  1743. *** 24,42 ****
  1744.    brh->y1 = brh->y0;
  1745.    if (sim_mode == sDC  ||  sim_phase == pINIT_DC){    /* initial dc */
  1746.       brh->mt1 = brh->m0;
  1747. - #ifdef KEEP_OLD_TIME_INFO
  1748. -     brh->mt2 = brh->mt1;
  1749. - #endif
  1750.       brh->time0 = brh->time1 = brh->time2 = trtime0;
  1751.    }else if (brh->time0 != trtime0){    /* new time step */
  1752.       if (brh->time0 < trtime0){        /* forward */
  1753. - #ifdef KEEP_OLD_TIME_INFO
  1754. -        brh->mt2 = brh->mt1;
  1755. - #endif
  1756.          brh->mt1 = brh->m0;
  1757.          brh->yt3 = brh->yt2;
  1758.          brh->yt2 = brh->yt1;
  1759.          brh->yt1 = brh->y0;
  1760.          brh->time2 = brh->time1;
  1761.          brh->time1 = brh->time0;
  1762.       }                    /* else backward, don't save */
  1763. --- 24,37 ----
  1764.    brh->y1 = brh->y0;
  1765.    if (sim_mode == sDC  ||  sim_phase == pINIT_DC){    /* initial dc */
  1766.       brh->mt1 = brh->m0;
  1767.       brh->time0 = brh->time1 = brh->time2 = trtime0;
  1768.    }else if (brh->time0 != trtime0){    /* new time step */
  1769.       if (brh->time0 < trtime0){        /* forward */
  1770.          brh->mt1 = brh->m0;
  1771.          brh->yt3 = brh->yt2;
  1772.          brh->yt2 = brh->yt1;
  1773.          brh->yt1 = brh->y0;
  1774. +        brh->time3 = brh->time2;
  1775.          brh->time2 = brh->time1;
  1776.          brh->time1 = brh->time0;
  1777.       }                    /* else backward, don't save */
  1778. diff -cN ../acs-0.14/src/tr_load.c src/tr_load.c
  1779. *** ../acs-0.14/src/tr_load.c    Wed Jul  6 12:12:19 1994
  1780. --- src/tr_load.c    Sun Jul 31 23:10:16 1994
  1781. ***************
  1782. *** 1,4 ****
  1783. ! /* tr_load.c  94.05.26
  1784.    * Copyright 1983-1992   Albert Davis
  1785.    * Load matrix from pre-computed values
  1786.    */
  1787. --- 1,4 ----
  1788. ! /* tr_load.c  94.07.11
  1789.    * Copyright 1983-1992   Albert Davis
  1790.    * Load matrix from pre-computed values
  1791.    */
  1792. ***************
  1793. *** 36,42 ****
  1794.       error(bDANGER, "%s: double load\n", printlabel(brh,0));
  1795.    brh->loaditer = stats.iter[iTOTAL];
  1796.    
  1797. !  if (stats.iter[iSTEP] > 1){
  1798.       dc0 = opt.damp * (brh->m0.c0 - brh->m1.c0);
  1799.       brh->m0.c0 = brh->m1.c0 + dc0;
  1800.       if (!inc_mode){
  1801. --- 36,42 ----
  1802.       error(bDANGER, "%s: double load\n", printlabel(brh,0));
  1803.    brh->loaditer = stats.iter[iTOTAL];
  1804.    
  1805. !  if (stats.iter[iSTEP] > 1  &&  !brh->nodamp){
  1806.       dc0 = opt.damp * (brh->m0.c0 - brh->m1.c0);
  1807.       brh->m0.c0 = brh->m1.c0 + dc0;
  1808.       if (!inc_mode){
  1809. ***************
  1810. *** 70,76 ****
  1811.       error(bDANGER, "%s: double load\n", printlabel(brh,0));
  1812.    brh->loaditer = stats.iter[iTOTAL];
  1813.    
  1814. !  if (stats.iter[iSTEP] > 1){
  1815.       dc0 = opt.damp * (brh->m0.c0 - brh->m1.c0);
  1816.       brh->m0.c0 = brh->m1.c0 + dc0;
  1817.       df1 = opt.damp * (brh->m0.f1 - brh->m1.f1);
  1818. --- 70,76 ----
  1819.       error(bDANGER, "%s: double load\n", printlabel(brh,0));
  1820.    brh->loaditer = stats.iter[iTOTAL];
  1821.    
  1822. !  if (stats.iter[iSTEP] > 1  &&  !brh->nodamp){
  1823.       dc0 = opt.damp * (brh->m0.c0 - brh->m1.c0);
  1824.       brh->m0.c0 = brh->m1.c0 + dc0;
  1825.       df1 = opt.damp * (brh->m0.f1 - brh->m1.f1);
  1826. ***************
  1827. *** 123,129 ****
  1828.       error(bDANGER, "%s: double load\n", printlabel(brh,0));
  1829.    brh->loaditer = stats.iter[iTOTAL];
  1830.   
  1831. !  if (stats.iter[iSTEP] > 1){
  1832.       dc0 = opt.damp * (brh->m0.c0 - brh->m1.c0);
  1833.       brh->m0.c0 = brh->m1.c0 + dc0;
  1834.       df1 = opt.damp * (brh->m0.f1 - brh->m1.f1);
  1835. --- 123,129 ----
  1836.       error(bDANGER, "%s: double load\n", printlabel(brh,0));
  1837.    brh->loaditer = stats.iter[iTOTAL];
  1838.   
  1839. !  if (stats.iter[iSTEP] > 1  &&  !brh->nodamp){
  1840.       dc0 = opt.damp * (brh->m0.c0 - brh->m1.c0);
  1841.       brh->m0.c0 = brh->m1.c0 + dc0;
  1842.       df1 = opt.damp * (brh->m0.f1 - brh->m1.f1);
  1843. diff -cN ../acs-0.14/src/tr_reviw.c src/tr_reviw.c
  1844. *** ../acs-0.14/src/tr_reviw.c    Wed Jul  6 12:12:20 1994
  1845. --- src/tr_reviw.c    Sun Jul 31 23:10:17 1994
  1846. ***************
  1847. *** 1,4 ****
  1848. ! /* tr_reviw.c  94.06.05
  1849.    * Copyright 1983-1992   Albert Davis
  1850.    * review the solution after solution at a time point
  1851.    * Set up events, evaluate logic inputs, truncation error.
  1852. --- 1,4 ----
  1853. ! /* tr_reviw.c  94.07.23
  1854.    * Copyright 1983-1992   Albert Davis
  1855.    * review the solution after solution at a time point
  1856.    * Set up events, evaluate logic inputs, truncation error.
  1857. ***************
  1858. *** 81,98 ****
  1859.   
  1860.    worsttime = BIGBIG;
  1861.    if (exists(brh)){
  1862. -     const branch_t *controller;
  1863. -     controller = brh;
  1864.       stop = brh;
  1865.       do {
  1866.          devicetime = tr_review_branch(brh);
  1867.          if (devicetime < worsttime){
  1868.             worsttime = devicetime;
  1869. -       controller = brh;
  1870.          }
  1871.       } while (brh=nextbranch_dev(brh),  brh != stop);
  1872. -     error(bTRACE,"%s: t-1=%e  t-0=%e  t+1=%e\n", printlabel(controller,0),
  1873. -              controller->time1, controller->time0, worsttime);
  1874.    }
  1875.    return worsttime;
  1876.   }
  1877. --- 81,93 ----
  1878. diff -cN ../acs-0.14/src/tr_setup.c src/tr_setup.c
  1879. *** ../acs-0.14/src/tr_setup.c    Wed Jul  6 12:12:21 1994
  1880. --- src/tr_setup.c    Sun Jul 31 23:10:18 1994
  1881. ***************
  1882. *** 1,4 ****
  1883. ! /* tr_setup.c  94.06.23
  1884.    * Copyright 1983-1992   Albert Davis
  1885.    * set up transient and fourier analysis
  1886.    */
  1887. --- 1,4 ----
  1888. ! /* tr_setup.c  94.07.29
  1889.    * Copyright 1983-1992   Albert Davis
  1890.    * set up transient and fourier analysis
  1891.    */
  1892. ***************
  1893. *** 206,212 ****
  1894.       "WAtch",    aENUM,        &tr->trace,    tITERATION,
  1895.       ""))
  1896.       ;    
  1897. !     else if (outset(cmd,cnt,(char*)NULL,((sim_mode==sTRAN)?"tr ":"fo ")))
  1898.       ;
  1899.       else{
  1900.          syntax_check(cmd,cnt,bWARNING);
  1901. --- 206,212 ----
  1902.       "WAtch",    aENUM,        &tr->trace,    tITERATION,
  1903.       ""))
  1904.       ;    
  1905. !     else if (outset(cmd,cnt,"",""))
  1906.       ;
  1907.       else{
  1908.          syntax_check(cmd,cnt,bWARNING);
  1909. diff -cN ../acs-0.14/src/types.h src/types.h
  1910. *** ../acs-0.14/src/types.h    Wed Jul  6 12:11:43 1994
  1911. --- src/types.h    Sun Jul 31 23:09:45 1994
  1912. ***************
  1913. *** 1,4 ****
  1914. ! /* types.h  11/19/91
  1915.    * Copyright 1983-1992   Albert Davis
  1916.    * external declarations for device models
  1917.    */
  1918. --- 1,4 ----
  1919. ! /* types.h  94.07.12
  1920.    * Copyright 1983-1992   Albert Davis
  1921.    * external declarations for device models
  1922.    */
  1923. ***************
  1924. *** 18,25 ****
  1925. --- 18,27 ----
  1926.   extern functions_t dev_vccs;
  1927.   extern functions_t dev_vcvs;
  1928.   extern functions_t dev_vs;
  1929. + extern functions_t dev_vswtch;
  1930.   extern functions_t model_bjt;
  1931.   extern functions_t model_diode;
  1932.   extern functions_t model_logic;
  1933.   extern functions_t model_mos;
  1934.   extern functions_t model_subckt;
  1935. + extern functions_t model_vswtch;
  1936. diff -cN ../acs-0.14/src/xopen.c src/xopen.c
  1937. *** ../acs-0.14/src/xopen.c    Wed Jul  6 12:12:25 1994
  1938. --- src/xopen.c    Sun Jul 31 23:10:21 1994
  1939. ***************
  1940. *** 1,4 ****
  1941. ! /* xopen.c  93.12.21
  1942.    * Copyright 1983-1992   Albert Davis
  1943.    * scan a string for a file name
  1944.    * fill in extension, if necessary
  1945. --- 1,4 ----
  1946. ! /* xopen.c  94.07.13
  1947.    * Copyright 1983-1992   Albert Davis
  1948.    * scan a string for a file name
  1949.    * fill in extension, if necessary
  1950. ***************
  1951. *** 22,32 ****
  1952.    }
  1953.   }
  1954.   /*--------------------------------------------------------------------------*/
  1955.   FILE *xopen(const char *cmd, int *cnt, const char *ext, const char *how)
  1956.   {
  1957. !  int i;
  1958. !  int defalt;
  1959. !  FILE *code;
  1960.    char fname[BUFLEN+5];
  1961.   
  1962.    skipbl(cmd,cnt);
  1963. --- 22,38 ----
  1964.    }
  1965.   }
  1966.   /*--------------------------------------------------------------------------*/
  1967. + /* xopen: open a file from a command string
  1968. +  *     scan and eat up the name from the command
  1969. +  *    add default extension if appropriate
  1970. +  *    if there is no name, prompt for one
  1971. +  *    trap errors of not found and clobber
  1972. +  */
  1973.   FILE *xopen(const char *cmd, int *cnt, const char *ext, const char *how)
  1974.   {
  1975. !  int i;        /* an index */
  1976. !  int defalt;    /* flag: we need to add the default extension */
  1977. !  FILE *code;    /* a file pointer for the file we found */
  1978.    char fname[BUFLEN+5];
  1979.   
  1980.    skipbl(cmd,cnt);
  1981. ***************
  1982. *** 36,62 ****
  1983.       loccount = 0;
  1984.       cnt = &loccount;
  1985.    }
  1986. ! 
  1987.    skipbl(cmd,cnt);            /* find out if we want to add the   */
  1988.    defalt = YES;                /* default extension            */
  1989.    for (i = 0;   i < BUFLEN;   ){
  1990.       char c;
  1991.       c = cmd[(*cnt)++];
  1992. !     if (isterm(c))
  1993.          break;
  1994.       if (c == '$'){
  1995.          sprintf(&(fname[i]), "%ld", (long)time((time_t*)NULL));
  1996.          i = strlen(fname);
  1997. !     }else{
  1998. !        fname[i++] = c;
  1999. !        if (c == '.')
  2000. !           defalt = NO;
  2001. !        else if (c == '\\'  ||  c == '/')
  2002. !           defalt = YES;
  2003. !     }
  2004. !  }
  2005.    (*cnt)--;
  2006. !  if (defalt){                /* add the extension            */
  2007.       fname[i++] = '.';
  2008.       strcpy(&fname[i],ext);
  2009.    }else{
  2010. --- 42,69 ----
  2011.       loccount = 0;
  2012.       cnt = &loccount;
  2013.    }
  2014. !                     /* copy the name            */
  2015. !                     /* and while we're at it ...        */
  2016.    skipbl(cmd,cnt);            /* find out if we want to add the   */
  2017.    defalt = YES;                /* default extension            */
  2018.    for (i = 0;   i < BUFLEN;   ){
  2019.       char c;
  2020.       c = cmd[(*cnt)++];
  2021. !     if (!c || isspace(c))
  2022.          break;
  2023.       if (c == '$'){
  2024.          sprintf(&(fname[i]), "%ld", (long)time((time_t*)NULL));
  2025.          i = strlen(fname);
  2026. !     }else{                /* we want to add the extension        */
  2027. !        fname[i++] = c;            /* if it doesn't already have one,  */
  2028. !        if (c == '.')            /* as determined by a '.'        */
  2029. !           defalt = NO;            /* not before the directory        */
  2030. !        else if (strchr(ENDDIR,c))    /* separator-terminator character   */
  2031. !           defalt = YES;            /* '\' or '/' for msdos,        */
  2032. !     }                      /* ']' or '/' for vms,            */
  2033. !  }                    /* '/' for unix  (in ENDDIR)        */
  2034.    (*cnt)--;
  2035. !  if (defalt && ext && *ext){        /* add the extension (maybe)        */
  2036.       fname[i++] = '.';
  2037.       strcpy(&fname[i],ext);
  2038.    }else{
  2039.