--- ray/src/common/calcomp.h 1992/09/21 12:01:33 2.2 +++ ray/src/common/calcomp.h 2003/04/27 06:08:03 2.8 @@ -1,12 +1,10 @@ -/* Copyright (c) 1992 Regents of the University of California */ - -/* SCCSid "$SunId$ LBL" */ - +/* RCSid $Id: calcomp.h,v 2.8 2003/04/27 06:08:03 greg Exp $ */ /* * calcomp.h - header file for expression parser. - * */ - /* EPNODE types */ + +#include "copyright.h" + #define VAR 1 #define NUM 2 #define UMINUS 3 @@ -32,7 +30,7 @@ typedef struct epnode { double num; /* number */ char *name; /* symbol name */ int chan; /* channel number */ - long tick; /* timestamp */ + unsigned long tick; /* timestamp */ struct vardef { char *name; /* variable name */ int nlinks; /* number of references */ @@ -45,23 +43,188 @@ typedef struct epnode { typedef struct vardef VARDEF; /* a variable definition */ -#define MAXWORD 63 /* maximum word/id length */ +#define MAXWORD 127 /* maximum word/id length */ #define CNTXMARK '`' /* context mark */ #define isid(c) (isalnum(c) || (c) == '_' || \ (c) == '.' || (c) == CNTXMARK) -extern double eval(), varvalue(), chanvalue(), funvalue(); -extern double argument(), getnum(); +#define evalue(ep) (*eoper[(ep)->type])(ep) + + /* 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[])(); -extern int getinum(); -extern char *getname(), *qualname(), *setcontext(), *argfun(); -extern EPNODE *eparse(), *ekid(), *dlookup(), *dpop(), *dfirst(), *dnext(); -extern EPNODE *getdefn(), *getchan(); -extern EPNODE *getE1(), *getE2(), *getE3(), *getE4(), *getE5(), *rconst(); -extern VARDEF *varinsert(), *varlookup(), *argf(); -extern LIBR *liblookup(); -extern long eclock; +extern unsigned long eclock; +extern unsigned int esupport; +extern EPNODE *curfunc; extern int nextc; -#define evalue(ep) (*eoper[(ep)->type])(ep) +#ifdef NOPROTO + +extern void fcompile(); +extern void scompile(); +extern double varvalue(); +extern double evariable(); +extern void varset(); +extern void dclear(); +extern void dremove(); +extern int vardefined(); +extern char *setcontext(); +extern char *pushcontext(); +extern char *popcontext(); +extern char *qualname(); +extern int incontext(); +extern void chanout(); +extern void dcleanup(); +extern EPNODE *dlookup(); +extern VARDEF *varlookup(); +extern VARDEF *varinsert(); +extern void varfree(); +extern EPNODE *dfirst(); +extern EPNODE *dnext(); +extern EPNODE *dpop(); +extern void dpush(); +extern void addchan(); +extern void getstatement(); +extern EPNODE *getdefn(); +extern EPNODE *getchan(); +extern EPNODE *eparse(); +extern double eval(); +extern int epcmp(); +extern void epfree(); +extern EPNODE *ekid(); +extern int nekids(); +extern void initfile(); +extern void initstr(); +extern void getscanpos(); +extern int scan(); +extern char *long2ascii(); +extern void syntax(); +extern void addekid(); +extern char *getname(); +extern int getinum(); +extern double getnum(); +extern EPNODE *getE1(); +extern EPNODE *getE2(); +extern EPNODE *getE3(); +extern EPNODE *getE4(); +extern EPNODE *getE5(); +extern EPNODE *rconst(); +extern int isconstvar(); +extern int isconstfun(); +extern int fundefined(); +extern double funvalue(); +extern void funset(); +extern int nargum(); +extern double argument(); +extern VARDEF *argf(); +extern char *argfun(); +extern double efunc(); +extern LIBR *liblookup(); +extern void libupdate(); +extern void eprint(); +extern void dprint(); +extern char *savestr(); +extern void freestr(); +extern int shash(); +extern char *emalloc(); +extern char *ecalloc(); +extern char *erealloc(); +extern void efree(); +extern void eputs(); +extern void wputs(); +extern void quit(); + +extern double chanvalue(); + +#else + /* 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 *fname, int assign, double val); +extern void dclear(char *name); +extern void dremove(char *name); +extern int vardefined(char *name); +extern char *setcontext(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(); +extern EPNODE *getdefn(); +extern EPNODE *getchan(); + /* 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)()); +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 in savestr.c */ +extern char *savestr(char *str); +extern void freestr(char *s); +extern int shash(char *s); + /* defined in ealloc.c */ +extern char *emalloc(unsigned int n); +extern char *ecalloc(unsigned int ne, unsigned int es); +extern char *erealloc(char *cp, unsigned int n); +extern void efree(char *cp); + /* miscellaneous */ +extern void eputs(char *s); +extern void wputs(char *s); +extern void quit(int code); + /* defined by client */ +extern double chanvalue(int n); + +#endif