4.3BSD - /usr/src/ucb/pascal/pdx/object/maketypes.c

   1: /*
   2:  * Copyright (c) 1980 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  */
   6: 
   7: #ifndef lint
   8: static char sccsid[] = "@(#)maketypes.c	5.1 (Berkeley) 6/6/85";
   9: #endif not lint
  10: 
  11: /*
  12:  * make symbols
  13:  */
  14: 
  15: #include "defs.h"
  16: #include "sym.h"
  17: #include "symtab.h"
  18: #include "sym/btypes.h"
  19: #include "sym/classes.h"
  20: #include "sym/sym.rep"
  21: 
  22: /*
  23:  * point the basic types in the right direction
  24:  */
  25: 
  26: maketypes()
  27: {
  28:     t_int = st_lookup(symtab, "integer")->type;
  29:     t_real = st_lookup(symtab, "real")->type;
  30:     t_char = st_lookup(symtab, "char")->type;
  31:     t_boolean = st_lookup(symtab, "boolean")->type;
  32:     if (t_int==NIL || t_real==NIL || t_char==NIL || t_boolean==NIL) {
  33:         panic("basic types are missing from namelist");
  34:     }
  35: }
  36: 
  37: /*
  38:  * enter a keyword in the given table
  39:  */
  40: 
  41: make_keyword(table, name, tnum)
  42: SYMTAB *table;
  43: char *name;
  44: int tnum;
  45: {
  46:     register SYM *s;
  47: 
  48:     s = st_insert(table, name);
  49:     s->class = BADUSE;
  50:     s->blkno = 0;
  51:     s->symvalue.token.toknum = tnum;
  52: }

Defined functions

Defined variables