home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / pascal / src / TRdata.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-16  |  3.5 KB  |  242 lines
  1. /*-
  2.  * Copyright (c) 1980 The Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms, with or without
  6.  * modification, are permitted provided that the following conditions
  7.  * are met:
  8.  * 1. Redistributions of source code must retain the above copyright
  9.  *    notice, this list of conditions and the following disclaimer.
  10.  * 2. Redistributions in binary form must reproduce the above copyright
  11.  *    notice, this list of conditions and the following disclaimer in the
  12.  *    documentation and/or other materials provided with the distribution.
  13.  * 3. All advertising materials mentioning features or use of this software
  14.  *    must display the following acknowledgement:
  15.  *    This product includes software developed by the University of
  16.  *    California, Berkeley and its contributors.
  17.  * 4. Neither the name of the University nor the names of its contributors
  18.  *    may be used to endorse or promote products derived from this software
  19.  *    without specific prior written permission.
  20.  *
  21.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31.  * SUCH DAMAGE.
  32.  */
  33.  
  34. #ifndef lint
  35. static char sccsid[] = "@(#)TRdata.c    5.2 (Berkeley) 4/16/91";
  36. #endif /* not lint */
  37.  
  38. #include "whoami.h"
  39. #include "0.h"
  40. #ifdef    PI1
  41. #ifdef    DEBUG
  42. char    *trnames[] =
  43. {
  44.     0,
  45.     "MINUS",
  46.     "MOD",
  47.     "DIV",
  48.     "DIVD",
  49.     "MULT",
  50.     "ADD",
  51.     "SUB",
  52.     "EQ",
  53.     "NE",
  54.     "LT",
  55.     "GT",
  56.     "LE",
  57.     "GE",
  58.     "NOT",
  59.     "AND",
  60.     "OR",
  61.     "ASGN",
  62.     "PLUS",
  63.     "IN",
  64.     "LISTPP",
  65.     "PDEC",
  66.     "FDEC",
  67.     "PVAL",
  68.     "PVAR",
  69.     "PFUNC",
  70.     "PPROC",
  71.     "NIL",
  72.     "STRNG",
  73.     "CSTRNG",
  74.     "PLUSC",
  75.     "MINUSC",
  76.     "ID",
  77.     "INT",
  78.     "FINT",
  79.     "CINT",
  80.     "CFINT",
  81.     "TYPTR",
  82.     "TYPACK",
  83.     "TYSCAL",
  84.     "TYRANG",
  85.     "TYARY",
  86.     "TYFILE",
  87.     "TYSET",
  88.     "TYREC",
  89.     "TYFIELD",
  90.     "TYVARPT",
  91.     "TYVARNT",
  92.     "CSTAT",
  93.     "BLOCK",
  94.     "BSTL",
  95.     "LABEL",
  96.     "PCALL",
  97.     "FCALL",
  98.     "CASE",
  99.     "WITH",
  100.     "WHILE",
  101.     "REPEAT",
  102.     "FORU",
  103.     "FORD",
  104.     "GOTO",
  105.     "IF",
  106.     "ASRT",
  107.     "CSET",
  108.     "RANG",
  109.     "VAR",
  110.     "ARGL",
  111.     "ARY",
  112.     "FIELD",
  113.     "PTR",
  114.     "WEXP",
  115.     "PROG",
  116.     "BINT",
  117.     "CBINT",
  118.     "IFEL",
  119.     "IFX",
  120.     "TYID",
  121.     "COPSTR",
  122.     "BOTTLE",
  123.     "RFIELD",
  124.     "FLDLST",
  125.     "LAST"
  126. };
  127. #endif
  128. #endif
  129.  
  130. #ifndef PC
  131. #ifndef OBJ
  132. char    *trdesc[] =
  133. {
  134.     0,
  135.     "dp",
  136.     "dpp",
  137.     "dpp",
  138.     "dpp",
  139.     "dpp",
  140.     "dpp",
  141.     "dpp",
  142.     "dpp",
  143.     "dpp",
  144.     "dpp",
  145.     "dpp",
  146.     "dpp",
  147.     "dpp",
  148.     "dp",
  149.     "dpp",
  150.     "dpp",
  151.     "npp",
  152.     "dp",
  153.     "dpp",
  154.     "pp",
  155.     "n\"pp",
  156.     "n\"pp",
  157.     "pp",
  158.     "pp",
  159.     "pp",
  160.     "p",
  161.     "d",
  162.     "dp",
  163.     "p",
  164.     "p",
  165.     "p",
  166.     "p",
  167.     "dp",
  168.     "dp",
  169.     "p",
  170.     "p",
  171.     "np",
  172.     "np",
  173.     "np",
  174.     "npp",
  175.     "npp",
  176.     "np",
  177.     "np",
  178.     "np",
  179.     "pp",
  180.     "nppp",
  181.     "npp",
  182.     "npp",
  183.     "np",
  184.     "np",
  185.     "n\"p",
  186.     "n\"p",
  187.     "n\"p",
  188.     "npp",
  189.     "npp",
  190.     "npp",
  191.     "npp",
  192.     "nppp",
  193.     "nppp",
  194.     "n\"",
  195.     "nppp",
  196.     "np",
  197.     "dp",
  198.     "pp",
  199.     "n\"p",
  200.     "p",
  201.     "p",
  202.     "pp",
  203.     "",
  204.     "ppp",
  205.     "n\"pp",
  206.     "dp",
  207.     "p",
  208.     "nppp",
  209.     "nppp",
  210.     "np",
  211.     "s",
  212.     "nnnnn",
  213.     "npp",
  214.     "npp",
  215.     "x"
  216. };
  217. #endif
  218. #endif
  219. char    *opnames[] =
  220. {
  221.     0,
  222.     "unary -",
  223.     "mod",
  224.     "div",
  225.     "/",
  226.     "*",
  227.     "+",
  228.     "-",
  229.     "=",
  230.     "<>",
  231.     "<",
  232.     ">",
  233.     "<=",
  234.     ">=",
  235.     "not",
  236.     "and",
  237.     "or",
  238.     ":=",
  239.     "unary +",
  240.     "in"
  241. };
  242.