--- ray/src/common/calcomp.h	1989/02/02 10:34:13	1.1
+++ ray/src/common/calcomp.h	2003/02/25 02:47:21	2.7
@@ -1,40 +1,39 @@
-/* Copyright (c) 1986 Regents of the University of California */
-
-/* SCCSid "$SunId$ LBL" */
-
+/* RCSid $Id: calcomp.h,v 2.7 2003/02/25 02:47:21 greg Exp $ */
 /*
  *  calcomp.h - header file for expression parser.
- *
  */
-				/* EPNODE types */
-#define  VAR		1
-#define  NUM		2
-#define  UMINUS		3
-#define  CHAN		4
-#define  FUNC		5
-#define  ARG		6
-#define  TICK		7
-#define  SYM		8
-				/* also: '+', '-', '*', '/', '^', '=' */
 
+#include "copyright.h"
+
+#define	 VAR		1
+#define	 NUM		2
+#define	 UMINUS		3
+#define	 CHAN		4
+#define	 FUNC		5
+#define	 ARG		6
+#define	 TICK		7
+#define	 SYM		8
+				/* also: '+', '-', '*', '/', '^', '=', ':' */
+
 typedef struct {
     char  *fname;		/* function name */
-    int  nargs;			/* # of required arguments */
+    short  nargs;		/* # of required arguments */
+    short  atyp;		/* assignment type (':' or '=') */
     double  (*f)();		/* pointer to function */
 }  LIBR;		/* a library function */
 
 typedef struct epnode {
-    int  type;			/* node type */
+    int	 type;			/* node type */
     struct epnode  *sibling;	/* next child this level */
     union {
 	struct epnode  *kid;	/* first child */
-	double  num;		/* number */
+	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 */
+	    int	 nlinks;		/* number of references */
 	    struct epnode  *def;	/* definition */
 	    LIBR  *lib;			/* library definition */
 	    struct vardef  *next;	/* next in hash list */
@@ -44,18 +43,188 @@ typedef struct epnode {
 
 typedef struct vardef  VARDEF;	/* a variable definition */
 
-extern double  eval(), varvalue(), chanvalue(), funvalue();
-extern double  argument(), getnum();
+#define	 MAXWORD	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)
+
+					/* 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(), *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;
-extern int  errno;
 
-#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(int (*cs)());
+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