Jspice3
distprse.c
Go to the documentation of this file.
1 /***************************************************************************
2 JSPICE3 adaptation of Spice3f2 - Copyright (c) Stephen R. Whiteley 1992
3 Copyright 1990 Regents of the University of California. All rights reserved.
4 Authors: 1987 Thomas L. Quarles
5  1993 Stephen R. Whiteley
6 ****************************************************************************/
7 
8 #include "spice.h"
9 #include "ftedefs.h"
10 #include "inpdefs.h"
11 #include "inpmacs.h"
12 #include "misc.h"
13 
14 /* ARGSUSED */
15 int
16 DISTOparse(ckt,tab,which,currentp,line,task,gnode)
17 
18 /* .disto {DEC OCT LIN} NP FSTART FSTOP <F2OVERF1> */
19 GENERIC *ckt;
20 INPtables *tab;
21 int which;
22 GENERIC *currentp;
23 char **line;
24 GENERIC *task;
25 GENERIC *gnode;
26 {
27  GENERIC *foo; /* pointer to analysis */
28  IFvalue *parm; /* a pointer to a value struct for function returns */
29  int error; /* error code temporary */
30  card *current = (card *)currentp;
31 
32  IFC(newAnalysis,(ckt,which,"distoan",&foo, task))
33  GCA(ParseAC,(ckt,line,current,which,foo,tab))
34 
35  if (**line) {
36  parm = INPgetValue(ckt,line,IF_REAL,tab); /* f1phase */
37  GCA(INPapName,(ckt,which,foo,"f2overf1",parm))
38  }
39  return (0);
40 }
IFvalue * INPgetValue()
Definition: inpdefs.h:62
Definition: subckt.c:51
Definition: fteinp.h:14
#define GCA(func, args)
Definition: inpmacs.h:27
#define IFC(func, args)
Definition: inpmacs.h:19
#define IF_REAL
Definition: ifsim.h:108
int INPapName()
int DISTOparse(GENERIC *ckt, INPtables *tab, int which, GENERIC *currentp, char **line, GENERIC *task, GENERIC *gnode)
Definition: distprse.c:16
int ParseAC()
char GENERIC
Definition: ifsim.h:27