1: /*
   2: **  GLOBALS.H -- Equel declarations
   3: **
   4: **	Compilation Flags:
   5: **		xDEBUG -- for Chardebug, to provide compatability
   6: **			with older Equels' "-c" flag, and for
   7: **			Lex_debug for the "-v" flag.
   8: **
   9: **	Version:
  10: **		@(#)globals.h	8.1	12/31/84
  11: */
  12: 
  13: 
  14: 
  15: /*
  16: **	Structure declarations
  17: */
  18: 
  19: 
  20:     /* parser keyword and operator table node */
  21: 
  22: struct optab
  23: {
  24:     char    *op_term;   /* pointer to terminal */
  25:     int     op_token;   /* lexical token */
  26:     int     op_code;    /* code to distinguish different op_terms
  27: 				 * with the same .op_token
  28: 				 */
  29: };
  30: 
  31: 
  32:     /* C variable tree node */
  33: 
  34: struct cvar
  35: {
  36:     char        *c_id;      /* identifier */
  37:     char        c_type;     /* type */
  38:     char        c_indir;    /* indirection level (- 1 for strings) */
  39:     struct cvar *c_left;    /* < sub-tree */
  40:     struct cvar *c_right;   /* > sub-tree */
  41: };
  42: 
  43:     /* Display structures (linked list of strings) */
  44: 
  45: struct disp_node
  46: {
  47:     char            *d_elm;     /* display element */
  48:     struct disp_node    *d_next;    /* next node */
  49:     int         d_line; /* for Symsp nodes, line
  50: 					 * where lexeme was seen
  51: 					 */
  52: };
  53: 
  54: struct display
  55: {
  56:     struct disp_node    *disp_first;    /* first node in display */
  57:     struct disp_node    *disp_last; /* last node in display */
  58: };
  59: 
  60:     /* Retrieval list */
  61: 
  62: struct ret_var
  63: {
  64:     char        *r_elm;     /* string invoking variable
  65: 					 * e.g. "*intpa [2]"
  66: 					 */
  67:     struct ret_var  *r_next;    /* next variable used in "tupret" */
  68:     char        r_type;     /* type of variable */
  69: };
  70: 
  71: struct ret_list
  72: {
  73:     struct ret_var  *ret_first; /* first node in ret_var chain */
  74:     struct ret_var  *ret_last;  /* last node in chain */
  75: };
  76: 
  77: 
  78:     /* "# include" file processing stack (list) */
  79: 
  80: struct inc_file
  81: {
  82:     int     inc_yyline; /* old file's yyline */
  83:     int     inc_lineout;    /*  "    "     Lineout */
  84:     char        *inc_fid;   /* name */
  85:     FILE        *inc_infile;    /* In_file */
  86:     FILE        *inc_outfile;   /* Out_file */
  87:     struct inc_file *inc_next;
  88: };
  89: 
  90: 
  91: /*
  92: ** Structure for yacc generated terminal codes
  93: **	This avoids having to include functions in
  94: **	[grammar.y] for the function to know the
  95: **	parser generated token numbers.
  96: */
  97: 
  98: struct special
  99: {
 100:     int sp_name;        /* NAME */
 101:     int sp_sconst;      /* SCONST */
 102:     int sp_i2const;     /* I2CONST */
 103:     int sp_i4const;     /* I4CONST */
 104:     int sp_f8const;     /* F8CONST */
 105:     int sp_quote;       /* QUOTE */
 106:     int sp_bgncmnt;     /* BGNCMNT */
 107:     int sp_endcmnt;     /* ENDCMNT */
 108:     int sp_c_code;      /* C_CODE */
 109:     int sp_struct_var;
 110: };
 111: 
 112: 
 113: /*
 114: **	Global definitions
 115: */
 116: 
 117: int     Opcode;         /* operator code to distinguis tokens */
 118: extern int  yychar;         /* yacc input token */
 119: int     yyline;         /* yacc external line counter */
 120: extern int  yydebug;        /* set by "-y" command line arg,
 121: 					 * has yacc parser give details
 122: 					 * of parse
 123: 					 */
 124: int     Newline;        /* less than one token has been
 125: 					 * read from the input line, and
 126: 					 *  yylex isn't sure yet whether it is
 127: 					 * C_CODE or not
 128: 					 */
 129: int     Lineout;        /* output line count */
 130: int     In_quote;       /* set if inside an IIwrite("... */
 131: char        *Input_file_name;   /* input file name */
 132: int     Type_spec;      /* used in parser, in C-declarations */
 133: int         C_code_flg;     /* set to indicate C-code in scanner */
 134: int         Pre_proc_flg;       /* set to indicate a
 135: 					 * pre-processor line
 136: 					 */
 137: int     Block_level;        /* > 0 local, 0 global */
 138: int     Indir_level;        /* holds indirection level
 139: 					 * of a reference to a C-var
 140: 					 */
 141: int     Field_indir;        /* indirection on a field of
 142: 					 * a structure variable
 143: 					 */
 144: int     Opflag;         /* mode in which to interpret syntax */
 145: int     In_string;      /* set if output is in a string */
 146: int     Fillmode;       /* set if output line is being filled */
 147: int     Fillcnt;        /* count to fill a line to */
 148: int     Charcnt;        /* # chars written onto output line */
 149: int     Lastc;          /* type of last char read (OPCHAR or
 150: 					 * KEYCHAR)
 151: 					 */
 152: int     Arg_error;      /* set in argproc() [main.c] on
 153: 					 * error in prcessing command line
 154: 					 * arguments.
 155: 					 */
 156: int     Rtdb;           /* set by "-d" command line arg,
 157: 					 * supplies equel runtime support
 158: 					 * with info to report file name
 159: 					 * and line number in case of an
 160: 					 * error
 161: 					 */
 162: int     Kwrdnum;        /* # of entries in Kwrdtab [tokens.y] */
 163: char        Line_buf [MAXSTRING + 1];   /* buffer for input line */
 164: char        *Line_pos;      /* position in input line */
 165: int     Peekc [2];      /* holds backup character */
 166: int     Struct_flag;        /* while processing a structure
 167: 					 * variable declaration, is set
 168: 					 */
 169: struct cvar *Cvarp, *Fieldp;        /* to process C variables */
 170: 
 171: 
 172: 
 173: struct optab        Kwrdtab []; /* table of key words [tokens.y] */
 174: struct optab        Optab [];   /* table of operators [tokens.y] */
 175: struct special      Tokens;     /* holds yacc generated lex codes
 176: 					 * [tokens.y]
 177: 					 */
 178: char            Cmap [];    /* a type for each character [cmap.c] */
 179: struct cvar     *C_globals; /* Global C-variable tree */
 180: struct cvar     *C_locals;  /* Local C-variable tree */
 181: struct cvar     *F_locals;  /* Local structure fields */
 182: struct cvar     *F_globals; /* Global structure fields */
 183: struct display      Displays [1];   /* Cv_display is set to point at this
 184: 					 * so that Cv_display may be passed
 185: 					 * as a parameter instead of &Cv_display
 186: 					 */
 187: struct display      *Cv_display;    /* display into which "cvarx"'s
 188: 					 * get put
 189: 					 */
 190: struct display      Symsp;      /* storage for symbols read by
 191: 					 * yylex()
 192: 					 */
 193: struct ret_list     Ret_list;   /* list of variables in a "ctlelm" */
 194: struct inc_file     *Inc_files; /* stack of files pushed by #includes */
 195: 
 196: 
 197: 
 198: 
 199: /*
 200: **	I/O manipulation data structures
 201: */
 202: 
 203: FILE    *In_file;       /* input file */
 204: FILE    *Out_file;      /* output file */
 205: 
 206: # ifdef xDEBUG
 207: char    Lex_debug;      /* debugging info for lexemes in yylex()
 208: 				 * [yylex.c]
 209: 				 */
 210: char    Chardebug;      /* print debugging info for routine
 211: 				 * in getch.c
 212: 				 */
 213: # endif
 214: 
 215: extern struct cvar  *getcvar(), *getfield();
 216: extern struct disp_node *addsym();

Defined variables

Arg_error defined in line 152; used 3 times
C_code_flg defined in line 133; used 5 times
Cv_display defined in line 187; used 26 times
Cvarp defined in line 169; used 29 times
Displays defined in line 183; used 1 times
Field_indir defined in line 141; used 9 times
Fieldp defined in line 169; used 32 times
Fillcnt defined in line 147; used 6 times
Inc_files defined in line 194; used 4 times
Indir_level defined in line 138; used 16 times
Kwrdnum defined in line 162; used 2 times
Kwrdtab defined in line 173; used 1 times
Lastc defined in line 149; used 5 times
Line_buf defined in line 163; used 6 times
Line_pos defined in line 164; used 8 times
Opflag defined in line 144; used 51 times
Peekc defined in line 165; used 11 times
Ret_list defined in line 193; used 3 times
Rtdb defined in line 156; used 3 times
Struct_flag defined in line 166; used 4 times
Symsp defined in line 190; used 2 times
Type_spec defined in line 132; used 12 times

Defined struct's

cvar defined in line 34; used 58 times
disp_node defined in line 45; used 34 times
display defined in line 54; used 26 times
inc_file defined in line 80; used 10 times
ret_list defined in line 71; used 6 times
ret_var defined in line 62; used 14 times
special defined in line 98; used 2 times
  • in line 175(2)

Usage of this include

Last modified: 1986-04-17
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 1682
Valid CSS Valid XHTML 1.0 Strict