src/common/calcomp.h

/* RCSid $Id: calcomp.h,v 2.23 2022/03/30 16:00:56 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 */
}  LIBR;                /* 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 */
            LIBR  *lib;                 /* library definition */
            struct vardef  *next;       /* next in hash list */
        }  *ln;                 /* link */
    } v;                /* value */
    struct epnode  *sibling;    /* next child this level */
    int  type;                  /* node type */
}  EPNODE;      /* an expression node */

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

#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   *curfunc;
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     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     addchan(EPNODE *sp);
extern void     getstatement(void);
extern EPNODE   *getdefn(void);
extern EPNODE   *getchan(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);
extern EPNODE   *ekid(EPNODE *ep, int n);
extern int      nekids(EPNODE *ep);
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      scan(void);
extern char     *long2ascii(long l);
extern void     syntax(char *err);
extern void     addekid(EPNODE *ep, EPNODE *ekid);
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   *argf(int n);
extern char     *argfun(int n);
extern double   efunc(EPNODE *ep);
extern LIBR     *liblookup(char *fname);
extern void     libupdate(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.24
Committed:	Tue Sep 26 18:33:14 2023 UTC (7 months, 2 weeks ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad5R4
Changes since 2.23:	+5 -4 lines
Log Message:	style: minor code clean-ups
#	User	Rev	Content
1	greg	2.24	/* RCSid $Id: calcomp.h,v 2.23 2022/03/30 16:00:56 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	1.1	} LIBR; /* a library function */
30
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			LIBR lib; / library definition */
43			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			int type; /* node type */
48	greg	1.1	} EPNODE; /* an expression node */
49
50			typedef struct vardef VARDEF; /* a variable definition */
51
52	schorsch	2.13	#define RMAXWORD 127 /* maximum word/id length */
53	greg	2.2	#define CNTXMARK '`' /* context mark */
54	greg	1.6
55	greg	2.2	#define isid(c) (isalnum(c) \|\| (c) == '_' \|\| \
56	greg	1.6	(c) == '.' \|\| (c) == CNTXMARK)
57
58	greg	2.6	#define evalue(ep) (*eoper[(ep)->type])(ep)
59
60	greg	2.24	#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	greg	2.6	/* 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	greg	2.15	extern double (eoper[])(EPNODE );
73	greg	2.4	extern unsigned long eclock;
74	greg	2.6	extern unsigned int esupport;
75			extern EPNODE *curfunc;
76	greg	1.1	extern int nextc;
77	greg	2.19	extern int eofc;
78	schorsch	2.14	/* defined in biggerlib.c */
79			extern void biggerlib(void);
80	greg	2.6	/* 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	greg	2.20	extern void varset(char *vname, int assign, double val);
86	greg	2.6	extern void dclear(char *name);
87			extern void dremove(char *name);
88			extern int vardefined(char *name);
89	greg	2.23	extern char calcontext(char ctx);
90	greg	2.6	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	greg	2.8	extern void chanout(void (*cs)(int n, double v));
95	greg	2.6	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	schorsch	2.14	extern void getstatement(void);
106			extern EPNODE *getdefn(void);
107			extern EPNODE *getchan(void);
108	greg	2.6	/* 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	greg	2.16	extern void funset(char *fname, int nargs, int assign,
137			double (fptr)(char ));
138	greg	2.6	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	schorsch	2.9	#ifdef __cplusplus
152			}
153	greg	2.6	#endif
154	schorsch	2.9	#endif /* _RAD_CALCOMP_H_ */
155