1: /*	@(#)yyseman.c	2.2	SCCS id keyword	*/
   2: /* Copyright (c) 1979 Regents of the University of California */
   3: #
   4: /*
   5:  * pi - Pascal interpreter code translator
   6:  *
   7:  * Charles Haley, Bill Joy UCB
   8:  * Version 1.1 February 1978
   9:  *
  10:  *
  11:  * pxp - Pascal execution profiler
  12:  *
  13:  * Bill Joy UCB
  14:  * Version 1.1 February 1978
  15:  */
  16: 
  17: #include "whoami"
  18: #include "0.h"
  19: #include "yy.h"
  20: 
  21: /*
  22:  * Assign semantics to a generated token
  23:  *
  24:  * Most terminals have a semantic value the current
  25:  * input line.  If they are generated they are flagged
  26:  * by having this number negated.
  27:  *
  28:  * The terminals which have true semantics such
  29:  * as identifiers and strings are instead given
  30:  * semantic value NIL here - we do not attempt
  31:  * to do repair, e.g. by giving generated integers
  32:  * the value 1, etc.
  33:  */
  34: nullsem(ch)
  35:     int ch;
  36: {
  37: 
  38:     switch (ch) {
  39:         case YID:
  40:         case YINT:
  41:         case YNUMB:
  42:         case YBINT:
  43:         case YSTRING:
  44:             return (NIL);
  45:         default:
  46:             return (-yyeline);
  47:     }
  48: }
Last modified: 1981-07-10
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 1721
Valid CSS Valid XHTML 1.0 Strict