From: Mark Linton <linton@ucbvax.Berkeley.EDU>
Date: Tue, 19 Jan 1982 11:02:53 +0000 (-0800)
Subject: date and time created 82/01/18 19:02:53 by linton
X-Git-Tag: BSD-4_1_snap-Snapshot-Development~168
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/94a490d6cd42247e636112ec45f48d379aff4f54

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
index 0000000000..672124ba93
--- /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 */