x2p/a2p.h

   1 /* $Header: a2p.h,v 3.0.1.1 89/11/11 05:07:00 lwall Locked $
   2  *
   3  *    Copyright (c) 1989, Larry Wall
   4  *
   5  *    You may distribute under the terms of the GNU General Public License
   6  *    as specified in the README file that comes with the perl 3.0 kit.
   7  *
   8  * $Log:        a2p.h,v $
   9  * Revision 3.0.1.1  89/11/11  05:07:00  lwall
  10  * patch2: Configure may now set -DDEBUGGING
  11  *
  12  * Revision 3.0  89/10/18  15:34:14  lwall
  13  * 3.0 baseline
  14  *
  15  */
  16
  17 #define VOIDUSED 1
  18 #include "../config.h"
  19
  20 #ifndef BCOPY
  21 #   define bcopy(s1,s2,l) memcpy(s2,s1,l);
  22 #   define bzero(s,l) memset(s,0,l);
  23 #endif
  24
  25 #include "handy.h"
  26 #define Nullop 0
  27
  28 #define OPROG           1
  29 #define OJUNK           2
  30 #define OHUNKS          3
  31 #define ORANGE          4
  32 #define OPAT            5
  33 #define OHUNK           6
  34 #define OPPAREN         7
  35 #define OPANDAND        8
  36 #define OPOROR          9
  37 #define OPNOT           10
  38 #define OCPAREN         11
  39 #define OCANDAND        12
  40 #define OCOROR          13
  41 #define OCNOT           14
  42 #define ORELOP          15
  43 #define ORPAREN         16
  44 #define OMATCHOP        17
  45 #define OMPAREN         18
  46 #define OCONCAT         19
  47 #define OASSIGN         20
  48 #define OADD            21
  49 #define OSUBTRACT       22
  50 #define OMULT           23
  51 #define ODIV            24
  52 #define OMOD            25
  53 #define OPOSTINCR       26
  54 #define OPOSTDECR       27
  55 #define OPREINCR        28
  56 #define OPREDECR        29
  57 #define OUMINUS         30
  58 #define OUPLUS          31
  59 #define OPAREN          32
  60 #define OGETLINE        33
  61 #define OSPRINTF        34
  62 #define OSUBSTR         35
  63 #define OSTRING         36
  64 #define OSPLIT          37
  65 #define OSNEWLINE       38
  66 #define OINDEX          39
  67 #define ONUM            40
  68 #define OSTR            41
  69 #define OVAR            42
  70 #define OFLD            43
  71 #define ONEWLINE        44
  72 #define OCOMMENT        45
  73 #define OCOMMA          46
  74 #define OSEMICOLON      47
  75 #define OSCOMMENT       48
  76 #define OSTATES         49
  77 #define OSTATE          50
  78 #define OPRINT          51
  79 #define OPRINTF         52
  80 #define OBREAK          53
  81 #define ONEXT           54
  82 #define OEXIT           55
  83 #define OCONTINUE       56
  84 #define OREDIR          57
  85 #define OIF             58
  86 #define OWHILE          59
  87 #define OFOR            60
  88 #define OFORIN          61
  89 #define OVFLD           62
  90 #define OBLOCK          63
  91 #define OREGEX          64
  92 #define OLENGTH         65
  93 #define OLOG            66
  94 #define OEXP            67
  95 #define OSQRT           68
  96 #define OINT            69
  97 #define ODO             70
  98 #define OPOW            71
  99 #define OSUB            72
 100 #define OGSUB           73
 101 #define OMATCH          74
 102 #define OUSERFUN        75
 103 #define OUSERDEF        76
 104 #define OCLOSE          77
 105 #define OATAN2          78
 106 #define OSIN            79
 107 #define OCOS            80
 108 #define ORAND           81
 109 #define OSRAND          82
 110 #define ODELETE         83
 111 #define OSYSTEM         84
 112 #define OCOND           85
 113 #define ORETURN         86
 114 #define ODEFINED        87
 115 #define OSTAR           88
 116
 117 #ifdef DOINIT
 118 char *opname[] = {
 119     "0",
 120     "PROG",
 121     "JUNK",
 122     "HUNKS",
 123     "RANGE",
 124     "PAT",
 125     "HUNK",
 126     "PPAREN",
 127     "PANDAND",
 128     "POROR",
 129     "PNOT",
 130     "CPAREN",
 131     "CANDAND",
 132     "COROR",
 133     "CNOT",
 134     "RELOP",
 135     "RPAREN",
 136     "MATCHOP",
 137     "MPAREN",
 138     "CONCAT",
 139     "ASSIGN",
 140     "ADD",
 141     "SUBTRACT",
 142     "MULT",
 143     "DIV",
 144     "MOD",
 145     "POSTINCR",
 146     "POSTDECR",
 147     "PREINCR",
 148     "PREDECR",
 149     "UMINUS",
 150     "UPLUS",
 151     "PAREN",
 152     "GETLINE",
 153     "SPRINTF",
 154     "SUBSTR",
 155     "STRING",
 156     "SPLIT",
 157     "SNEWLINE",
 158     "INDEX",
 159     "NUM",
 160     "STR",
 161     "VAR",
 162     "FLD",
 163     "NEWLINE",
 164     "COMMENT",
 165     "COMMA",
 166     "SEMICOLON",
 167     "SCOMMENT",
 168     "STATES",
 169     "STATE",
 170     "PRINT",
 171     "PRINTF",
 172     "BREAK",
 173     "NEXT",
 174     "EXIT",
 175     "CONTINUE",
 176     "REDIR",
 177     "IF",
 178     "WHILE",
 179     "FOR",
 180     "FORIN",
 181     "VFLD",
 182     "BLOCK",
 183     "REGEX",
 184     "LENGTH",
 185     "LOG",
 186     "EXP",
 187     "SQRT",
 188     "INT",
 189     "DO",
 190     "POW",
 191     "SUB",
 192     "GSUB",
 193     "MATCH",
 194     "USERFUN",
 195     "USERDEF",
 196     "CLOSE",
 197     "ATAN2",
 198     "SIN",
 199     "COS",
 200     "RAND",
 201     "SRAND",
 202     "DELETE",
 203     "SYSTEM",
 204     "COND",
 205     "RETURN",
 206     "DEFINED",
 207     "STAR",
 208     "89"
 209 };
 210 #else
 211 extern char *opname[];
 212 #endif
 213
 214 EXT int mop INIT(1);
 215
 216 #define OPSMAX 50000
 217 union {
 218     int ival;
 219     char *cval;
 220 } ops[OPSMAX];          /* hope they have 200k to spare */
 221
 222 #include <stdio.h>
 223 #include <ctype.h>
 224
 225 typedef struct string STR;
 226 typedef struct htbl HASH;
 227
 228 #include "str.h"
 229 #include "hash.h"
 230
 231 /* A string is TRUE if not "" or "0". */
 232 #define True(val) (tmps = (val), (*tmps && !(*tmps == '0' && !tmps[1])))
 233 EXT char *Yes INIT("1");
 234 EXT char *No INIT("");
 235
 236 #define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
 237
 238 #define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
 239 #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
 240 #define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
 241 EXT STR *Str;
 242
 243 #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
 244
 245 STR *str_new();
 246
 247 char *scanpat();
 248 char *scannum();
 249
 250 void str_free();
 251
 252 EXT int line INIT(0);
 253
 254 EXT FILE *rsfp;
 255 EXT char buf[1024];
 256 EXT char *bufptr INIT(buf);
 257
 258 EXT STR *linestr INIT(Nullstr);
 259
 260 EXT char tokenbuf[256];
 261 EXT int expectterm INIT(TRUE);
 262
 263 #ifdef DEBUGGING
 264 EXT int debug INIT(0);
 265 EXT int dlevel INIT(0);
 266 #define YYDEBUG 1
 267 extern int yydebug;
 268 #endif
 269
 270 EXT STR *freestrroot INIT(Nullstr);
 271
 272 EXT STR str_no;
 273 EXT STR str_yes;
 274
 275 EXT bool do_split INIT(FALSE);
 276 EXT bool split_to_array INIT(FALSE);
 277 EXT bool set_array_base INIT(FALSE);
 278 EXT bool saw_RS INIT(FALSE);
 279 EXT bool saw_OFS INIT(FALSE);
 280 EXT bool saw_ORS INIT(FALSE);
 281 EXT bool saw_line_op INIT(FALSE);
 282 EXT bool in_begin INIT(TRUE);
 283 EXT bool do_opens INIT(FALSE);
 284 EXT bool do_fancy_opens INIT(FALSE);
 285 EXT bool lval_field INIT(FALSE);
 286 EXT bool do_chop INIT(FALSE);
 287 EXT bool need_entire INIT(FALSE);
 288 EXT bool absmaxfld INIT(FALSE);
 289 EXT bool saw_altinput INIT(FALSE);
 290
 291 EXT char const_FS INIT(0);
 292 EXT char *namelist INIT(Nullch);
 293 EXT char fswitch INIT(0);
 294
 295 EXT int saw_FS INIT(0);
 296 EXT int maxfld INIT(0);
 297 EXT int arymax INIT(0);
 298 char *nameary[100];
 299
 300 EXT STR *opens;
 301
 302 EXT HASH *symtab;
 303 EXT HASH *curarghash;
 304
 305 #define P_MIN           0
 306 #define P_LISTOP        5
 307 #define P_COMMA         10
 308 #define P_ASSIGN        15
 309 #define P_COND          20
 310 #define P_DOTDOT        25
 311 #define P_OROR          30
 312 #define P_ANDAND        35
 313 #define P_OR            40
 314 #define P_AND           45
 315 #define P_EQ            50
 316 #define P_REL           55
 317 #define P_UNI           60
 318 #define P_FILETEST      65
 319 #define P_SHIFT         70
 320 #define P_ADD           75
 321 #define P_MUL           80
 322 #define P_MATCH         85
 323 #define P_UNARY         90
 324 #define P_POW           95
 325 #define P_AUTO          100
 326 #define P_MAX           999