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