date and time created 82/01/18 19:02:53 by linton

SCCS-vsn: usr.bin/pascal/pdx/sym.h 1.1

diff --git a/usr/src/usr.bin/pascal/pdx/sym.h b/usr/src/usr.bin/pascal/pdx/sym.h
new file mode 100644 (file)
index 0000000..672124b
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/sym.h
@@ -0,0 +1,57 @@
+/* Copyright (c) 1982 Regents of the University of California */
+
+static char sccsid[] = "@(#)sym.h 1.1 %G%";
+
+/*
+ * This header file declares the variables and routines that
+ * are defined within the "sym" subdirectory and that can be
+ * accessed from outside.
+ */
+
+SYM *program;
+
+/*
+ * attributes
+ */
+
+char *name();                  /* symbol string name */
+char *classname();             /* class name of a symbol */
+int toknum();                  /* token number of reserved word */
+int tokval();                  /* associated token value */
+int size();                    /* size in bytes of a type */
+SYM *rtype();                  /* the reduced type, i.e. no type names */
+SYM *container();              /* symbol (block) that contains given symbol */
+ADDRESS codeloc();             /* address of the beginning of a function */
+
+/*
+ * predicates
+ */
+
+BOOLEAN isblock();             /* test if a symbol is a block name */
+BOOLEAN isbuiltin();           /* test if a symbol is a builtin type */
+BOOLEAN isparam();             /* test if a symbol is a parameter */
+BOOLEAN isvarparam();          /* test if a symbol is a var parameter */
+BOOLEAN isambiguous();         /* test if a symbol name is not unique */
+BOOLEAN compatible();          /* test to see if two types are compatible */
+BOOLEAN should_print();                /* test if a symbol should be printed */
+
+SYM *readsym();                        /* read in a symbol from object file */
+SYM *which();                  /* find the appropriate symbol of given name */
+SYM *findsym();                        /* find a symbol for a given block */
+SYM *findclass();              /* find symbol with given class */
+NODE *dot();                   /* construct a tree for the dot operator */
+NODE *subscript();             /* construct a tree for subscripting */
+SYM *treetype();               /* return the type of a tree, checking also */
+evalindex();                   /* evaluate a subscript index */
+unmkstring();                  /* free a constant string type */
+chkboolean();                  /* check if a tree is boolean-valued */
+printdecl();                   /* print out a symbol's declaration */
+printparams();                 /* print out values of a fn's parameters */
+printentry();                  /* note entrance of a block */
+printexit();                   /* note exiting from a block */
+printcall();                   /* note call of a function */
+printval();                    /* print an eval result */
+printv();                      /* print the name and value of a variable */
+printwhich();                  /* print the full "path" of an identifier */
+maketypes();                   /* initialize basic types */
+make_keyword();                        /* create a keyword in a given symbol table */