ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/common/calcomp.h
(Generate patch)

Comparing ray/src/common/calcomp.h (file contents):
Revision 2.3 by greg, Thu Apr 8 16:41:34 1993 UTC vs.
Revision 2.24 by greg, Tue Sep 26 18:33:14 2023 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1992 Regents of the University of California */
2 <
3 < /* SCCSid "$SunId$ LBL" */
4 <
1 > /* RCSid $Id$ */
2   /*
3   *  calcomp.h - header file for expression parser.
7 – *
4   */
5 <                                /* EPNODE types */
5 > #ifndef _RAD_CALCOMP_H_
6 > #define _RAD_CALCOMP_H_
7 >
8 > #include <stdio.h>
9 >
10 > #ifdef __cplusplus
11 > extern "C" {
12 > #endif
13 >
14   #define  VAR            1
15   #define  NUM            2
16   #define  UMINUS         3
17   #define  CHAN           4
18   #define  FUNC           5
19   #define  ARG            6
20 < #define  TICK           7
20 > #define  CLKT           7
21   #define  SYM            8
22                                  /* also: '+', '-', '*', '/', '^', '=', ':' */
23  
# Line 21 | Line 25 | typedef struct {
25      char  *fname;               /* function name */
26      short  nargs;               /* # of required arguments */
27      short  atyp;                /* assignment type (':' or '=') */
28 <    double  (*f)();             /* pointer to function */
28 >    double  (*f)(char *);       /* pointer to function */
29   }  LIBR;                /* a library function */
30  
31   typedef struct epnode {
28 –    int  type;                  /* node type */
29 –    struct epnode  *sibling;    /* next child this level */
32      union {
33          struct epnode  *kid;    /* first child */
34          double  num;            /* number */
35          char  *name;            /* symbol name */
36          int  chan;              /* channel number */
37 <        long  tick;             /* timestamp */
37 >        unsigned long  tick;    /* timestamp */
38          struct vardef {
39              char  *name;                /* variable name */
40              int  nlinks;                /* number of references */
# Line 41 | Line 43 | typedef struct epnode {
43              struct vardef  *next;       /* next in hash list */
44          }  *ln;                 /* link */
45      } v;                /* value */
46 +    struct epnode  *sibling;    /* next child this level */
47 +    int  type;                  /* node type */
48   }  EPNODE;      /* an expression node */
49  
50   typedef struct vardef  VARDEF;  /* a variable definition */
51  
52 < #define  MAXWORD        63              /* maximum word/id length */
52 > #define  RMAXWORD       127             /* maximum word/id length */
53   #define  CNTXMARK       '`'             /* context mark */
54  
55   #define  isid(c)        (isalnum(c) || (c) == '_' || \
56                          (c) == '.' || (c) == CNTXMARK)
57  
58 < extern double  eval(), varvalue(), chanvalue(), funvalue();
59 < extern double  argument(), getnum();
60 < extern double  (*eoper[])();
61 < extern int  getinum();
62 < extern char  *getname(), *qualname(), *argfun();
63 < extern char  *setcontext(), *pushcontext(), *popcontext();
64 < extern EPNODE  *eparse(), *ekid(), *dlookup(), *dpop(), *dfirst(), *dnext();
65 < extern EPNODE  *getdefn(), *getchan();
66 < extern EPNODE  *getE1(), *getE2(), *getE3(), *getE4(), *getE5(), *rconst();
67 < extern VARDEF  *varinsert(), *varlookup(), *argf();
68 < extern LIBR  *liblookup();
69 < extern long  eclock;
58 > #define  evalue(ep)     (*eoper[(ep)->type])(ep)
59 >
60 > #define  dfn_name(ep)   ((ep)->v.kid->type == SYM ? \
61 >                        (ep)->v.kid->v.name : \
62 >                        (ep)->v.kid->v.kid->v.name)
63 >
64 >                                        /* flags to set in esupport */
65 > #define  E_VARIABLE     001
66 > #define  E_FUNCTION     002
67 > #define  E_INCHAN       004
68 > #define  E_OUTCHAN      010
69 > #define  E_RCONST       020
70 > #define  E_REDEFW       040
71 >
72 > extern double  (*eoper[])(EPNODE *);
73 > extern unsigned long  eclock;
74 > extern unsigned int  esupport;
75 > extern EPNODE   *curfunc;
76   extern int  nextc;
77 + extern int  eofc;
78 +                                        /* defined in biggerlib.c */
79 + extern void biggerlib(void);
80 +                                        /* defined in caldefn.c */
81 + extern void     fcompile(char *fname);
82 + extern void     scompile(char *str, char *fname, int ln);
83 + extern double   varvalue(char *vname);
84 + extern double   evariable(EPNODE *ep);
85 + extern void     varset(char *vname, int assign, double val);
86 + extern void     dclear(char *name);
87 + extern void     dremove(char *name);
88 + extern int      vardefined(char *name);
89 + extern char     *calcontext(char *ctx);
90 + extern char     *pushcontext(char *ctx);
91 + extern char     *popcontext(void);
92 + extern char     *qualname(char *nam, int lvl);
93 + extern int      incontext(char *qn);
94 + extern void     chanout(void (*cs)(int n, double v));
95 + extern void     dcleanup(int lvl);
96 + extern EPNODE   *dlookup(char *name);
97 + extern VARDEF   *varlookup(char *name);
98 + extern VARDEF   *varinsert(char *name);
99 + extern void     varfree(VARDEF *ln);
100 + extern EPNODE   *dfirst(void);
101 + extern EPNODE   *dnext(void);
102 + extern EPNODE   *dpop(char *name);
103 + extern void     dpush(char *nm, EPNODE *ep);
104 + extern void     addchan(EPNODE *sp);
105 + extern void     getstatement(void);
106 + extern EPNODE   *getdefn(void);
107 + extern EPNODE   *getchan(void);
108 +                                        /* defined in calexpr.c */
109 + extern EPNODE   *eparse(char *expr);
110 + extern double   eval(char *expr);
111 + extern int      epcmp(EPNODE *ep1, EPNODE *ep2);
112 + extern void     epfree(EPNODE *epar);
113 + extern EPNODE   *ekid(EPNODE *ep, int n);
114 + extern int      nekids(EPNODE *ep);
115 + extern void     initfile(FILE *fp, char *fn, int ln);
116 + extern void     initstr(char *s, char *fn, int ln);
117 + extern void     getscanpos(char **fnp, int *lnp, char **spp, FILE **fpp);
118 + extern int      scan(void);
119 + extern char     *long2ascii(long l);
120 + extern void     syntax(char *err);
121 + extern void     addekid(EPNODE *ep, EPNODE *ekid);
122 + extern char     *getname(void);
123 + extern int      getinum(void);
124 + extern double   getnum(void);
125 + extern EPNODE   *getE1(void);
126 + extern EPNODE   *getE2(void);
127 + extern EPNODE   *getE3(void);
128 + extern EPNODE   *getE4(void);
129 + extern EPNODE   *getE5(void);
130 + extern EPNODE   *rconst(EPNODE *epar);
131 + extern int      isconstvar(EPNODE *ep);
132 + extern int      isconstfun(EPNODE *ep);
133 +                                        /* defined in calfunc.c */
134 + extern int      fundefined(char *fname);
135 + extern double   funvalue(char *fname, int n, double *a);
136 + extern void     funset(char *fname, int nargs, int assign,
137 +                                double (*fptr)(char *));
138 + extern int      nargum(void);
139 + extern double   argument(int n);
140 + extern VARDEF   *argf(int n);
141 + extern char     *argfun(int n);
142 + extern double   efunc(EPNODE *ep);
143 + extern LIBR     *liblookup(char *fname);
144 + extern void     libupdate(char *fn);
145 +                                        /* defined in calprnt.c */
146 + extern void     eprint(EPNODE *ep, FILE *fp);
147 + extern void     dprint(char *name, FILE *fp);
148 +                                        /* defined by client */
149 + extern double   chanvalue(int n);
150  
151 < #define  evalue(ep)     (*eoper[(ep)->type])(ep)
151 > #ifdef __cplusplus
152 > }
153 > #endif
154 > #endif /* _RAD_CALCOMP_H_ */
155 >

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)