1: #define INTERDATA 2
   2: #define GCOS 3
   3: #define PDP11 4
   4: #define IBM 5
   5: #define CMACH 6
   6: #define VAX 7
   7: 
   8: #define DMR 2
   9: #define SCJ 3
  10: 
  11: #define BINARY 2
  12: #define ASCII 3
  13: 
  14: #define PREFIX 2
  15: #define POSTFIX 3
  16: 
  17: #ifndef FAMILY
  18: FAMILY NOT DEFINED !!!
  19: Family = FAMILY
  20: #endif
  21: 
  22: #ifndef HERE
  23: HERE NOT DEFINED !!!!
  24: Here = HERE
  25: #endif
  26: 
  27: #ifndef OUTPUT
  28: OUTPUT NOT DEFINED!!!!
  29: Output = OUTPUT
  30: #endif
  31: 
  32: #ifndef POLISH
  33: POLISH NOT DEFINED !!!
  34: Polish = POLISH
  35: #endif
  36: 
  37: #define M(x) (1<<x)
  38: #define ALLOC(x) (struct x *) ckalloc(sizeof(struct x))
  39: typedef int *ptr;
  40: typedef FILE *FILEP;
  41: typedef short flag;
  42: typedef long int ftnint;
  43: #define LOCAL static
  44: 
  45: #define NO 0
  46: #define YES 1
  47: 
  48: 
  49: 
  50: /* block tag values */
  51: 
  52: #define TNAME 1
  53: #define TCONST 2
  54: #define TEXPR 3
  55: #define TADDR 4
  56: #define TPRIM 5
  57: #define TLIST 6
  58: #define TIMPLDO 7
  59: #define TERROR 8
  60: 
  61: 
  62: /* parser states */
  63: 
  64: #define OUTSIDE 0
  65: #define INSIDE 1
  66: #define INDCL 2
  67: #define INDATA 3
  68: #define INEXEC 4
  69: 
  70: /* procedure classes */
  71: 
  72: #define PROCMAIN 1
  73: #define PROCBLOCK 2
  74: #define PROCSUBR 3
  75: #define PROCFUNCT 4
  76: 
  77: 
  78: /* storage classes */
  79: 
  80: #define STGUNKNOWN 0
  81: #define STGARG 1
  82: #define STGAUTO 2
  83: #define STGBSS 3
  84: #define STGINIT 4
  85: #define STGCONST 5
  86: #define STGEXT 6
  87: #define STGINTR 7
  88: #define STGSTFUNCT 8
  89: #define STGCOMMON 9
  90: #define STGEQUIV 10
  91: #define STGREG 11
  92: #define STGLENG 12
  93: 
  94: /* name classes */
  95: 
  96: #define CLUNKNOWN 0
  97: #define CLPARAM 1
  98: #define CLVAR 2
  99: #define CLENTRY 3
 100: #define CLMAIN 4
 101: #define CLBLOCK 5
 102: #define CLPROC 6
 103: 
 104: 
 105: /* vproclass values */
 106: 
 107: #define PUNKNOWN 0
 108: #define PEXTERNAL 1
 109: #define PINTRINSIC 2
 110: #define PSTFUNCT 3
 111: #define PTHISPROC 4
 112: 
 113: /* control stack codes */
 114: 
 115: #define CTLDO 1
 116: #define CTLIF 2
 117: #define CTLELSE 3
 118: 
 119: 
 120: /* operators */
 121: 
 122: #define OPPLUS 1
 123: #define OPMINUS 2
 124: #define OPSTAR 3
 125: #define OPSLASH 4
 126: #define OPPOWER 5
 127: #define OPNEG 6
 128: #define OPOR 7
 129: #define OPAND 8
 130: #define OPEQV 9
 131: #define OPNEQV 10
 132: #define OPNOT 11
 133: #define OPCONCAT 12
 134: #define OPLT 13
 135: #define OPEQ 14
 136: #define OPGT 15
 137: #define OPLE 16
 138: #define OPNE 17
 139: #define OPGE 18
 140: #define OPCALL 19
 141: #define OPCCALL 20
 142: #define OPASSIGN 21
 143: #define OPPLUSEQ 22
 144: #define OPSTAREQ 23
 145: #define OPCONV 24
 146: #define OPLSHIFT 25
 147: #define OPMOD 26
 148: #define OPCOMMA 27
 149: #define OPQUEST 28
 150: #define OPCOLON 29
 151: #define OPABS 30
 152: #define OPMIN 31
 153: #define OPMAX 32
 154: #define OPADDR 33
 155: #define OPINDIRECT 34
 156: #define OPBITOR 35
 157: #define OPBITAND 36
 158: #define OPBITXOR 37
 159: #define OPBITNOT 38
 160: #define OPRSHIFT 39
 161: 
 162: 
 163: /* memory regions */
 164: 
 165: #define REGARG 1
 166: #define REGAUTO 2
 167: #define REGBSS 3
 168: #define REGINIT 4
 169: #define REGCONST 5
 170: #define REGEXT 6
 171: #define REGPROG 7
 172: 
 173: /* label type codes */
 174: 
 175: #define LABUNKNOWN 0
 176: #define LABEXEC 1
 177: #define LABFORMAT 2
 178: #define LABOTHER 3
 179: 
 180: 
 181: /* INTRINSIC function codes*/
 182: /*! comments added WFJolitz 8 april 80 */
 183: 
 184: #define INTREND 0   /* end of intrtab (marker)--unused! */
 185: #define INTRCONV 1  /* intrinsic conversion ---checks for constant folding */
 186: #define INTRMIN 2   /* min,max functions generated internally */
 187: #define INTRMAX 3
 188: #define INTRGEN 4   /* generic, select one of many by argument type */
 189: #define INTRSPEC 5  /* specific, check type and generate a call */
 190: #define INTRBOOL 6  /* generate internal code for boolean operators */
 191: #define INTRCNST 7  /* generate intrinsic constant (like pi in algol) --unused */
 192: 
 193: 
 194: /* I/O statement codes */
 195: 
 196: #define IOSTDIN ICON(5)
 197: #define IOSTDOUT ICON(6)
 198: 
 199: #define IOSBAD (-1)
 200: #define IOSPOSITIONAL 0
 201: #define IOSUNIT 1
 202: #define IOSFMT 2
 203: 
 204: #define IOINQUIRE 1
 205: #define IOOPEN 2
 206: #define IOCLOSE 3
 207: #define IOREWIND 4
 208: #define IOBACKSPACE 5
 209: #define IOENDFILE 6
 210: #define IOREAD 7
 211: #define IOWRITE 8
 212: 
 213: 
 214: /* type masks */
 215: 
 216: #define MSKLOGICAL  M(TYLOGICAL)
 217: #define MSKADDR M(TYADDR)
 218: #define MSKCHAR M(TYCHAR)
 219: #define MSKINT  M(TYSHORT)|M(TYLONG)
 220: #define MSKREAL M(TYREAL)|M(TYDREAL)
 221: #define MSKCOMPLEX  M(TYCOMPLEX)|M(TYDCOMPLEX)
 222: 
 223: /* miscellaneous macros */
 224: 
 225: #define ONEOF(x,y) (M(x) & (y))
 226: #define ISCOMPLEX(z) ONEOF(z, MSKCOMPLEX)
 227: #define ISREAL(z) ONEOF(z, MSKREAL)
 228: #define ISNUMERIC(z) ONEOF(z, MSKINT|MSKREAL|MSKCOMPLEX)
 229: #define ISICON(z) (z->tag==TCONST && ISINT(z->vtype))
 230: #define ISCHAR(z) (z->vtype==TYCHAR)
 231: #define ISINT(z)   ONEOF(z, MSKINT)
 232: #define ISCONST(z) (z->tag==TCONST)
 233: #define ISERROR(z) (z->tag==TERROR)
 234: #define ISPLUSOP(z) (z->tag==TEXPR && z->opcode==OPPLUS)
 235: #define ISSTAROP(z) (z->tag==TEXPR && z->opcode==OPSTAR)
 236: #define ISONE(z) (ISICON(z) && z->const.ci==1)
 237: #define INT(z) ONEOF(z, MSKINT|MSKCHAR)
 238: #define ICON(z) mkintcon( (ftnint)(z) )
 239: #define CHCON(z) mkstrcon(strlen(z), z)
 240: 
 241: /* round a up to a multiple of b */
 242: #define roundup(a,b)    ( b * ( (a+b-1)/b) )

Defined typedef's

Defined macros

ASCII defined in line 12; never used
BINARY defined in line 11; used 2 times
CHCON defined in line 239; never used
CLENTRY defined in line 99; used 4 times
CLPARAM defined in line 97; used 1 times
CMACH defined in line 5; never used
CTLDO defined in line 115; used 2 times
CTLELSE defined in line 117; used 2 times
CTLIF defined in line 116; used 4 times
GCOS defined in line 2; used 2 times
IBM defined in line 4; never used
INDATA defined in line 67; used 3 times
INDCL defined in line 66; never used
INEXEC defined in line 68; used 2 times
INSIDE defined in line 65; used 1 times
INT defined in line 237; used 1 times
INTERDATA defined in line 1; used 10 times
INTRBOOL defined in line 190; used 6 times
INTRCNST defined in line 191; never used
INTRCONV defined in line 185; used 13 times
INTREND defined in line 184; used 1 times
INTRGEN defined in line 188; used 34 times
INTRMAX defined in line 187; used 6 times
INTRMIN defined in line 186; used 7 times
INTRSPEC defined in line 189; used 46 times
IOBACKSPACE defined in line 208; never used
IOCLOSE defined in line 206; used 1 times
IOENDFILE defined in line 209; never used
IOINQUIRE defined in line 204; used 15 times
IOOPEN defined in line 205; used 6 times
IOREAD defined in line 210; used 7 times
IOREWIND defined in line 207; never used
IOSBAD defined in line 199; used 2 times
IOSFMT defined in line 202; used 6 times
IOSPOSITIONAL defined in line 200; used 1 times
IOSTDIN defined in line 196; used 1 times
IOSTDOUT defined in line 197; used 1 times
IOSUNIT defined in line 201; used 7 times
IOWRITE defined in line 211; used 5 times
ISCHAR defined in line 230; used 5 times
ISERROR defined in line 233; used 1 times
ISNUMERIC defined in line 228; used 7 times
ISONE defined in line 236; used 4 times
ISPLUSOP defined in line 234; used 1 times
ISREAL defined in line 227; used 5 times
ISSTAROP defined in line 235; used 1 times
LABEXEC defined in line 176; never used
LABFORMAT defined in line 177; used 4 times
LABOTHER defined in line 178; never used
LABUNKNOWN defined in line 175; used 2 times
M defined in line 37; used 51 times
MSKADDR defined in line 217; used 4 times
MSKCHAR defined in line 218; used 1 times
MSKCOMPLEX defined in line 221; used 2 times
MSKINT defined in line 219; used 13 times
MSKLOGICAL defined in line 216; used 2 times
MSKREAL defined in line 220; used 7 times
OPABS defined in line 151; never used
OPADDR defined in line 154; used 3 times
OPAND defined in line 129; used 2 times
OPBITAND defined in line 157; used 2 times
OPBITNOT defined in line 159; used 4 times
OPBITOR defined in line 156; used 1 times
OPBITXOR defined in line 158; used 1 times
OPCOMMA defined in line 148; used 3 times
OPCONCAT defined in line 133; used 3 times
OPEQV defined in line 130; never used
OPGE defined in line 139; used 5 times
OPGT defined in line 136; used 2 times
OPINDIRECT defined in line 155; never used
OPLSHIFT defined in line 146; used 1 times
OPMAX defined in line 153; used 1 times
OPMIN defined in line 152; used 2 times
OPMOD defined in line 147; used 2 times
OPNE defined in line 138; used 2 times
OPNEQV defined in line 131; never used
OPNOT defined in line 132; used 2 times
OPOR defined in line 128; used 3 times
OPPLUSEQ defined in line 143; used 2 times
OPPOWER defined in line 126; never used
OPRSHIFT defined in line 160; used 1 times
OPSLASH defined in line 125; used 5 times
OPSTAREQ defined in line 144; used 1 times
PEXTERNAL defined in line 108; used 6 times
POSTFIX defined in line 15; never used
PREFIX defined in line 14; never used
PROCBLOCK defined in line 73; never used
PROCFUNCT defined in line 75; never used
PROCMAIN defined in line 72; never used
PROCSUBR defined in line 74; never used
PSTFUNCT defined in line 110; used 1 times
PTHISPROC defined in line 111; used 5 times
PUNKNOWN defined in line 107; used 2 times
REGARG defined in line 165; never used
REGAUTO defined in line 166; never used
REGBSS defined in line 167; never used
REGCONST defined in line 169; never used
REGEXT defined in line 170; never used
REGINIT defined in line 168; never used
REGPROG defined in line 171; never used
STGAUTO defined in line 82; used 3 times
STGBSS defined in line 83; used 3 times
STGCONST defined in line 85; used 1 times
STGEXT defined in line 86; used 10 times
STGINIT defined in line 84; never used
STGINTR defined in line 87; used 3 times
STGLENG defined in line 92; used 1 times
STGREG defined in line 91; used 3 times
STGSTFUNCT defined in line 88; used 1 times
TCONST defined in line 53; used 9 times
TERROR defined in line 59; used 4 times
TEXPR defined in line 54; used 15 times
TLIST defined in line 57; used 1 times
TNAME defined in line 52; used 3 times
TPRIM defined in line 56; used 11 times
roundup defined in line 242; used 5 times

Usage of this include

Last modified: 1987-02-17
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 5094
Valid CSS Valid XHTML 1.0 Strict