4.1cBSD/usr/src/ucb/pascal/pdx/sym.h

/* Copyright (c) 1982 Regents of the University of California */

/* static char sccsid[] = "@(#)sym.h 1.3 2/17/82"; */

/*
 * 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 isvariable();		/* test if a symbol is a variable */
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 */