src/common/calcomp.h

/* RCSid $Id: calcomp.h,v 2.26 2024/02/26 18:16:35 greg Exp $ */
/*
 *  calcomp.h - header file for expression parser.
 */
#ifndef _RAD_CALCOMP_H_
#define _RAD_CALCOMP_H_

#include <stdio.h>

#ifdef __cplusplus
extern "C" {
#endif

#define  VAR            1
#define  NUM            2
#define  UMINUS         3
#define  CHAN           4
#define  FUNC           5
#define  ARG            6
#define  CLKT           7
#define  SYM            8
                                /* also: '+', '-', '*', '/', '^', '=', ':' */

typedef struct {
    char  *fname;               /* function name */
    short  nargs;               /* # of required arguments */
    short  atyp;                /* assignment type (':' or '=') */
    double  (*f)(char *);       /* pointer to function */
}  ELIBR;               /* a library function */

typedef struct epnode {
    union {
        struct epnode  *kid;    /* first child */
        double  num;            /* number */
        char  *name;            /* symbol name */
        int  chan;              /* channel number */
        unsigned long  tick;    /* timestamp */
        struct vardef {
            char  *name;                /* variable name */
            int  nlinks;                /* number of references */
            struct epnode  *def;        /* definition */
            ELIBR  *lib;                /* library definition */
            struct vardef  *next;       /* next in hash list */
        }  *ln;                 /* link */
    } v;                /* value */
    struct epnode  *sibling;    /* next child this level */
    short  type;                /* node type */
    short  nkids;               /* child count (neg if array) */
}  EPNODE;      /* an expression node */

typedef struct vardef  VARDEF;  /* a variable definition */

#define  nekids(ep)     abs((ep)->nkids)

#define  RMAXWORD       127             /* maximum word/id length */
#define  CNTXMARK       '`'             /* context mark */

#define  isid(c)        (isalnum(c) || (c) == '_' || \
                        (c) == '.' || (c) == CNTXMARK)

#define  evalue(ep)     (*eoper[(ep)->type])(ep)

#define  dfn_name(ep)   ((ep)->v.kid->type == SYM ? \
                        (ep)->v.kid->v.name : \
                        (ep)->v.kid->v.kid->v.name)

                                        /* flags to set in esupport */
#define  E_VARIABLE     001
#define  E_FUNCTION     002
#define  E_INCHAN       004
#define  E_OUTCHAN      010
#define  E_RCONST       020
#define  E_REDEFW       040

extern double  (*eoper[])(EPNODE *);
extern unsigned long  eclock;
extern unsigned int  esupport;
extern EPNODE   *ecurfunc;
extern int  nextc;
extern int  eofc;
                                        /* defined in biggerlib.c */
extern void biggerlib(void);
                                        /* defined in caldefn.c */
extern void     fcompile(char *fname);
extern void     scompile(char *str, char *fname, int ln);
extern double   varvalue(char *vname);
extern double   evariable(EPNODE *ep);
extern void     varset(char *vname, int assign, double val);
extern void     dclear(char *name);
extern void     dremove(char *name);
extern int      vardefined(char *name);
extern char     *calcontext(char *ctx);
extern char     *pushcontext(char *ctx);
extern char     *popcontext(void);
extern char     *qualname(char *nam, int lvl);
extern int      incontext(char *qn);
extern void     chanout(void (*cs)(int n, double v));
extern void     doptimize(int activate);
extern void     dcleanup(int lvl);
extern EPNODE   *dlookup(char *name);
extern VARDEF   *varlookup(char *name);
extern VARDEF   *varinsert(char *name);
extern void     varfree(VARDEF *ln);
extern EPNODE   *dfirst(void);
extern EPNODE   *dnext(void);
extern EPNODE   *dpop(char *name);
extern void     dpush(char *nm, EPNODE *ep);
extern void     eaddchan(EPNODE *sp);
extern void     egetstatement(void);
extern EPNODE   *egetdefn(void);
extern EPNODE   *egetchan(void);
                                        /* defined in calexpr.c */
extern EPNODE   *eparse(char *expr);
extern double   eval(char *expr);
extern int      epcmp(EPNODE *ep1, EPNODE *ep2);
extern void     epfree(EPNODE *epar, int frep);
extern void     epoptimize(EPNODE *epar);
extern EPNODE   *ekid(EPNODE *ep, int n);
extern void     initfile(FILE *fp, char *fn, int ln);
extern void     initstr(char *s, char *fn, int ln);
extern void     getscanpos(char **fnp, int *lnp, char **spp, FILE **fpp);
extern int      escan(void);
extern char     *long2ascii(long l);
extern void     esyntax(char *err);
extern void     addekid(EPNODE *ep, EPNODE *ek);
extern char     *getname(void);
extern int      getinum(void);
extern double   getnum(void);
extern EPNODE   *getE1(void);
extern EPNODE   *getE2(void);
extern EPNODE   *getE3(void);
extern EPNODE   *getE4(void);
extern EPNODE   *getE5(void);
extern EPNODE   *rconst(EPNODE *epar);
extern int      isconstvar(EPNODE *ep);
extern int      isconstfun(EPNODE *ep);
                                        /* defined in calfunc.c */
extern int      fundefined(char *fname);
extern double   funvalue(char *fname, int n, double *a);
extern void     funset(char *fname, int nargs, int assign,
                                double (*fptr)(char *));
extern int      nargum(void);
extern double   argument(int n);
extern VARDEF   *eargf(int n);
extern char     *eargfun(int n);
extern double   efunc(EPNODE *ep);
extern double   eargument(EPNODE *ep);
extern ELIBR    *eliblookup(char *fname);
extern void     elibupdate(char *fn);
                                        /* defined in calprnt.c */
extern void     eprint(EPNODE *ep, FILE *fp);
extern void     dprint(char *name, FILE *fp);
                                        /* defined by client */
extern double   chanvalue(int n);

#ifdef __cplusplus
}
#endif
#endif /* _RAD_CALCOMP_H_ */

Revision:	2.27
Committed:	Mon Sep 16 17:31:14 2024 UTC (13 months, 2 weeks ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad6R0, HEAD
Changes since 2.26:	+14 -14 lines
Log Message:	refactor: Changed too-generic symbol names in calcomp.h
#	User	Rev	Content
1	greg	2.27	/* RCSid $Id: calcomp.h,v 2.26 2024/02/26 18:16:35 greg Exp $ */
2	greg	1.1	/*
3			* calcomp.h - header file for expression parser.
4	greg	2.6	*/
5	schorsch	2.9	#ifndef _RAD_CALCOMP_H_
6			#define _RAD_CALCOMP_H_
7	schorsch	2.14
8			#include <stdio.h>
9
10	schorsch	2.9	#ifdef __cplusplus
11			extern "C" {
12			#endif
13	greg	2.7
14	greg	2.2	#define VAR 1
15			#define NUM 2
16			#define UMINUS 3
17			#define CHAN 4
18			#define FUNC 5
19			#define ARG 6
20	greg	2.22	#define CLKT 7
21	greg	2.2	#define SYM 8
22	greg	1.4	/* also: '+', '-', '', '/', '^', '=', ':' /
23	greg	1.1
24			typedef struct {
25			char fname; / function name */
26	greg	1.5	short nargs; /* # of required arguments */
27			short atyp; /* assignment type (':' or '=') */
28	greg	2.16	double (f)(char ); /* pointer to function */
29	greg	2.27	} ELIBR; /* a library function */
30	greg	1.1
31			typedef struct epnode {
32			union {
33			struct epnode kid; / first child */
34	greg	2.2	double num; /* number */
35	greg	1.1	char name; / symbol name */
36			int chan; /* channel number */
37	greg	2.4	unsigned long tick; /* timestamp */
38	greg	1.1	struct vardef {
39			char name; / variable name */
40	greg	2.2	int nlinks; /* number of references */
41	greg	1.1	struct epnode def; / definition */
42	greg	2.27	ELIBR lib; / library definition */
43	greg	1.1	struct vardef next; / next in hash list */
44			} ln; / link */
45			} v; /* value */
46	greg	2.21	struct epnode sibling; / next child this level */
47	greg	2.25	short type; /* node type */
48			short nkids; /* child count (neg if array) */
49	greg	1.1	} EPNODE; /* an expression node */
50
51			typedef struct vardef VARDEF; /* a variable definition */
52
53	greg	2.25	#define nekids(ep) abs((ep)->nkids)
54
55	schorsch	2.13	#define RMAXWORD 127 /* maximum word/id length */
56	greg	2.2	#define CNTXMARK '`' /* context mark */
57	greg	1.6
58	greg	2.2	#define isid(c) (isalnum(c) \|\| (c) == '_' \|\| \
59	greg	1.6	(c) == '.' \|\| (c) == CNTXMARK)
60
61	greg	2.6	#define evalue(ep) (*eoper[(ep)->type])(ep)
62
63	greg	2.24	#define dfn_name(ep) ((ep)->v.kid->type == SYM ? \
64			(ep)->v.kid->v.name : \
65			(ep)->v.kid->v.kid->v.name)
66
67	greg	2.6	/* flags to set in esupport */
68			#define E_VARIABLE 001
69			#define E_FUNCTION 002
70			#define E_INCHAN 004
71			#define E_OUTCHAN 010
72			#define E_RCONST 020
73			#define E_REDEFW 040
74
75	greg	2.15	extern double (eoper[])(EPNODE );
76	greg	2.4	extern unsigned long eclock;
77	greg	2.6	extern unsigned int esupport;
78	greg	2.27	extern EPNODE *ecurfunc;
79	greg	1.1	extern int nextc;
80	greg	2.19	extern int eofc;
81	schorsch	2.14	/* defined in biggerlib.c */
82			extern void biggerlib(void);
83	greg	2.6	/* defined in caldefn.c */
84			extern void fcompile(char *fname);
85			extern void scompile(char str, char fname, int ln);
86			extern double varvalue(char *vname);
87			extern double evariable(EPNODE *ep);
88	greg	2.20	extern void varset(char *vname, int assign, double val);
89	greg	2.6	extern void dclear(char *name);
90			extern void dremove(char *name);
91			extern int vardefined(char *name);
92	greg	2.23	extern char calcontext(char ctx);
93	greg	2.6	extern char pushcontext(char ctx);
94			extern char *popcontext(void);
95			extern char qualname(char nam, int lvl);
96			extern int incontext(char *qn);
97	greg	2.8	extern void chanout(void (*cs)(int n, double v));
98	greg	2.25	extern void doptimize(int activate);
99	greg	2.6	extern void dcleanup(int lvl);
100			extern EPNODE dlookup(char name);
101			extern VARDEF varlookup(char name);
102			extern VARDEF varinsert(char name);
103			extern void varfree(VARDEF *ln);
104			extern EPNODE *dfirst(void);
105			extern EPNODE *dnext(void);
106			extern EPNODE dpop(char name);
107			extern void dpush(char nm, EPNODE ep);
108	greg	2.27	extern void eaddchan(EPNODE *sp);
109			extern void egetstatement(void);
110			extern EPNODE *egetdefn(void);
111			extern EPNODE *egetchan(void);
112	greg	2.6	/* defined in calexpr.c */
113			extern EPNODE eparse(char expr);
114			extern double eval(char *expr);
115			extern int epcmp(EPNODE ep1, EPNODE ep2);
116	greg	2.25	extern void epfree(EPNODE *epar, int frep);
117			extern void epoptimize(EPNODE *epar);
118	greg	2.6	extern EPNODE ekid(EPNODE ep, int n);
119			extern void initfile(FILE fp, char fn, int ln);
120			extern void initstr(char s, char fn, int ln);
121			extern void getscanpos(char *fnp, int lnp, char spp, FILE fpp);
122	greg	2.27	extern int escan(void);
123	greg	2.6	extern char *long2ascii(long l);
124	greg	2.27	extern void esyntax(char *err);
125	greg	2.25	extern void addekid(EPNODE ep, EPNODE ek);
126	greg	2.6	extern char *getname(void);
127			extern int getinum(void);
128			extern double getnum(void);
129			extern EPNODE *getE1(void);
130			extern EPNODE *getE2(void);
131			extern EPNODE *getE3(void);
132			extern EPNODE *getE4(void);
133			extern EPNODE *getE5(void);
134			extern EPNODE rconst(EPNODE epar);
135			extern int isconstvar(EPNODE *ep);
136			extern int isconstfun(EPNODE *ep);
137			/* defined in calfunc.c */
138			extern int fundefined(char *fname);
139			extern double funvalue(char fname, int n, double a);
140	greg	2.16	extern void funset(char *fname, int nargs, int assign,
141			double (fptr)(char ));
142	greg	2.6	extern int nargum(void);
143			extern double argument(int n);
144	greg	2.27	extern VARDEF *eargf(int n);
145			extern char *eargfun(int n);
146	greg	2.6	extern double efunc(EPNODE *ep);
147	greg	2.26	extern double eargument(EPNODE *ep);
148	greg	2.27	extern ELIBR eliblookup(char fname);
149			extern void elibupdate(char *fn);
150	greg	2.6	/* defined in calprnt.c */
151			extern void eprint(EPNODE ep, FILE fp);
152			extern void dprint(char name, FILE fp);
153			/* defined by client */
154			extern double chanvalue(int n);
155
156	schorsch	2.9	#ifdef __cplusplus
157			}
158	greg	2.6	#endif
159	schorsch	2.9	#endif /* _RAD_CALCOMP_H_ */
160