contrib/perl5/x2p/a2p.h

   1 /* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $
   2  *
   3  *    Copyright (c) 1991-1997, Larry Wall
   4  *
   5  *    You may distribute under the terms of either the GNU General Public
   6  *    License or the Artistic License, as specified in the README file.
   7  *
   8  * $Log:        a2p.h,v $
   9  */
  10
  11 #define VOIDUSED 1
  12
  13 #ifdef WIN32
  14 #define _INC_WIN32_PERL5        /* kludge around win32 stdio layer */
  15 #endif
  16
  17 #ifdef VMS
  18 #  include "config.h"
  19 #else
  20 #  include "../config.h"
  21 #endif
  22
  23 #if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
  24 # define STANDARD_C 1
  25 #endif
  26
  27 #ifdef WIN32
  28 #undef USE_STDIO_PTR            /* XXX fast gets won't work, must investigate */
  29 #  ifndef STANDARD_C
  30 #    define STANDARD_C
  31 #  endif
  32 #  if defined(__BORLANDC__)
  33 #    pragma warn -ccc
  34 #    pragma warn -rch
  35 #    pragma warn -sig
  36 #    pragma warn -pia
  37 #    pragma warn -par
  38 #    pragma warn -aus
  39 #    pragma warn -use
  40 #    pragma warn -csu
  41 #    pragma warn -pro
  42 #  elif defined(_MSC_VER)
  43 #  elif defined(__MINGW32__)
  44 #  endif
  45 #endif
  46
  47 /* Use all the "standard" definitions? */
  48 #if defined(STANDARD_C) && defined(I_STDLIB)
  49 #   include <stdlib.h>
  50 #endif /* STANDARD_C */
  51
  52 #include <stdio.h>
  53
  54 #ifdef I_MATH
  55 #include <math.h>
  56 #endif
  57
  58 #ifdef I_SYS_TYPES
  59 #  include <sys/types.h>
  60 #endif
  61
  62 #ifdef USE_NEXT_CTYPE
  63
  64 #if NX_CURRENT_COMPILER_RELEASE >= 400
  65 #include <objc/NXCType.h>
  66 #else /*  NX_CURRENT_COMPILER_RELEASE < 400 */
  67 #include <appkit/NXCType.h>
  68 #endif /*  NX_CURRENT_COMPILER_RELEASE >= 400 */
  69
  70 #else /* !USE_NEXT_CTYPE */
  71 #include <ctype.h>
  72 #endif /* USE_NEXT_CTYPE */
  73
  74 #define MEM_SIZE Size_t
  75
  76 #ifdef STANDARD_C
  77 #   include <stdlib.h>
  78 #else
  79     Malloc_t malloc _((MEM_SIZE nbytes));
  80     Malloc_t calloc _((MEM_SIZE elements, MEM_SIZE size));
  81     Malloc_t realloc _((Malloc_t where, MEM_SIZE nbytes));
  82     Free_t   free _((Malloc_t where));
  83 #endif
  84
  85 #if defined(I_STRING) || defined(__cplusplus)
  86 #   include <string.h>
  87 #else
  88 #   include <strings.h>
  89 #endif
  90
  91 #if !defined(HAS_BCOPY) || defined(__cplusplus)
  92 #   define bcopy(s1,s2,l) memcpy(s2,s1,l)
  93 #endif
  94 #if !defined(HAS_BZERO) || defined(__cplusplus)
  95 #   define bzero(s,l) memset(s,0,l)
  96 #endif
  97
  98 #if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
  99 #define strchr index
 100 #define strrchr rindex
 101 #endif
 102
 103
 104 #ifdef I_TIME
 105 #   include <time.h>
 106 #endif
 107
 108 #ifdef I_SYS_TIME
 109 #   ifdef I_SYS_TIME_KERNEL
 110 #       define KERNEL
 111 #   endif
 112 #   include <sys/time.h>
 113 #   ifdef I_SYS_TIME_KERNEL
 114 #       undef KERNEL
 115 #   endif
 116 #endif
 117
 118 #ifndef MSDOS
 119 #  if defined(HAS_TIMES) && defined(I_SYS_TIMES)
 120 #    include <sys/times.h>
 121 #  endif
 122 #endif
 123
 124 #ifdef DOSISH
 125 # if defined(OS2)
 126 #   include "../os2ish.h"
 127 # else
 128 #   include "../dosish.h"
 129 # endif
 130 #else
 131 # if defined(VMS)
 132 #   define NO_PERL_TYPEDEFS
 133 #   include "vmsish.h"
 134 # endif
 135 #endif
 136
 137 #ifndef STANDARD_C
 138 /* All of these are in stdlib.h or time.h for ANSI C */
 139 Time_t time();
 140 struct tm *gmtime(), *localtime();
 141 char *strchr(), *strrchr();
 142 char *strcpy(), *strcat();
 143 #endif /* ! STANDARD_C */
 144
 145 #ifdef VMS
 146 #  include "handy.h"
 147 #else
 148 #  include "../handy.h"
 149 #endif
 150
 151 #undef Nullfp
 152 #define Nullfp Null(FILE*)
 153
 154 #define Nullop 0
 155
 156 #define OPROG           1
 157 #define OJUNK           2
 158 #define OHUNKS          3
 159 #define ORANGE          4
 160 #define OPAT            5
 161 #define OHUNK           6
 162 #define OPPAREN         7
 163 #define OPANDAND        8
 164 #define OPOROR          9
 165 #define OPNOT           10
 166 #define OCPAREN         11
 167 #define OCANDAND        12
 168 #define OCOROR          13
 169 #define OCNOT           14
 170 #define ORELOP          15
 171 #define ORPAREN         16
 172 #define OMATCHOP        17
 173 #define OMPAREN         18
 174 #define OCONCAT         19
 175 #define OASSIGN         20
 176 #define OADD            21
 177 #define OSUBTRACT       22
 178 #define OMULT           23
 179 #define ODIV            24
 180 #define OMOD            25
 181 #define OPOSTINCR       26
 182 #define OPOSTDECR       27
 183 #define OPREINCR        28
 184 #define OPREDECR        29
 185 #define OUMINUS         30
 186 #define OUPLUS          31
 187 #define OPAREN          32
 188 #define OGETLINE        33
 189 #define OSPRINTF        34
 190 #define OSUBSTR         35
 191 #define OSTRING         36
 192 #define OSPLIT          37
 193 #define OSNEWLINE       38
 194 #define OINDEX          39
 195 #define ONUM            40
 196 #define OSTR            41
 197 #define OVAR            42
 198 #define OFLD            43
 199 #define ONEWLINE        44
 200 #define OCOMMENT        45
 201 #define OCOMMA          46
 202 #define OSEMICOLON      47
 203 #define OSCOMMENT       48
 204 #define OSTATES         49
 205 #define OSTATE          50
 206 #define OPRINT          51
 207 #define OPRINTF         52
 208 #define OBREAK          53
 209 #define ONEXT           54
 210 #define OEXIT           55
 211 #define OCONTINUE       56
 212 #define OREDIR          57
 213 #define OIF             58
 214 #define OWHILE          59
 215 #define OFOR            60
 216 #define OFORIN          61
 217 #define OVFLD           62
 218 #define OBLOCK          63
 219 #define OREGEX          64
 220 #define OLENGTH         65
 221 #define OLOG            66
 222 #define OEXP            67
 223 #define OSQRT           68
 224 #define OINT            69
 225 #define ODO             70
 226 #define OPOW            71
 227 #define OSUB            72
 228 #define OGSUB           73
 229 #define OMATCH          74
 230 #define OUSERFUN        75
 231 #define OUSERDEF        76
 232 #define OCLOSE          77
 233 #define OATAN2          78
 234 #define OSIN            79
 235 #define OCOS            80
 236 #define ORAND           81
 237 #define OSRAND          82
 238 #define ODELETE         83
 239 #define OSYSTEM         84
 240 #define OCOND           85
 241 #define ORETURN         86
 242 #define ODEFINED        87
 243 #define OSTAR           88
 244
 245 #ifdef DOINIT
 246 char *opname[] = {
 247     "0",
 248     "PROG",
 249     "JUNK",
 250     "HUNKS",
 251     "RANGE",
 252     "PAT",
 253     "HUNK",
 254     "PPAREN",
 255     "PANDAND",
 256     "POROR",
 257     "PNOT",
 258     "CPAREN",
 259     "CANDAND",
 260     "COROR",
 261     "CNOT",
 262     "RELOP",
 263     "RPAREN",
 264     "MATCHOP",
 265     "MPAREN",
 266     "CONCAT",
 267     "ASSIGN",
 268     "ADD",
 269     "SUBTRACT",
 270     "MULT",
 271     "DIV",
 272     "MOD",
 273     "POSTINCR",
 274     "POSTDECR",
 275     "PREINCR",
 276     "PREDECR",
 277     "UMINUS",
 278     "UPLUS",
 279     "PAREN",
 280     "GETLINE",
 281     "SPRINTF",
 282     "SUBSTR",
 283     "STRING",
 284     "SPLIT",
 285     "SNEWLINE",
 286     "INDEX",
 287     "NUM",
 288     "STR",
 289     "VAR",
 290     "FLD",
 291     "NEWLINE",
 292     "COMMENT",
 293     "COMMA",
 294     "SEMICOLON",
 295     "SCOMMENT",
 296     "STATES",
 297     "STATE",
 298     "PRINT",
 299     "PRINTF",
 300     "BREAK",
 301     "NEXT",
 302     "EXIT",
 303     "CONTINUE",
 304     "REDIR",
 305     "IF",
 306     "WHILE",
 307     "FOR",
 308     "FORIN",
 309     "VFLD",
 310     "BLOCK",
 311     "REGEX",
 312     "LENGTH",
 313     "LOG",
 314     "EXP",
 315     "SQRT",
 316     "INT",
 317     "DO",
 318     "POW",
 319     "SUB",
 320     "GSUB",
 321     "MATCH",
 322     "USERFUN",
 323     "USERDEF",
 324     "CLOSE",
 325     "ATAN2",
 326     "SIN",
 327     "COS",
 328     "RAND",
 329     "SRAND",
 330     "DELETE",
 331     "SYSTEM",
 332     "COND",
 333     "RETURN",
 334     "DEFINED",
 335     "STAR",
 336     "89"
 337 };
 338 #else
 339 extern char *opname[];
 340 #endif
 341
 342 EXT int mop INIT(1);
 343
 344 union u_ops {
 345     int ival;
 346     char *cval;
 347 };
 348 #if defined(iAPX286) || defined(M_I286) || defined(I80286)      /* 80286 hack */
 349 #define OPSMAX (64000/sizeof(union u_ops))      /* approx. max segment size */
 350 #else
 351 #define OPSMAX 50000
 352 #endif                                                  /* 80286 hack */
 353 EXT union u_ops ops[OPSMAX];
 354
 355 typedef struct string STR;
 356 typedef struct htbl HASH;
 357
 358 #include "str.h"
 359 #include "hash.h"
 360
 361
 362 /* A string is TRUE if not "" or "0". */
 363 #define True(val) (tmps = (val), (*tmps && !(*tmps == '0' && !tmps[1])))
 364 EXT char *Yes INIT("1");
 365 EXT char *No INIT("");
 366
 367 #define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
 368
 369 #define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
 370 #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
 371 #define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
 372 EXT STR *Str;
 373
 374 #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
 375
 376 /* Prototypes for things in a2p.c */
 377 int aryrefarg _(( int arg ));
 378 int bl _(( int arg, int maybe ));
 379 void dump _(( int branch ));
 380 int fixfargs _(( int name, int arg, int prevargs ));
 381 int fixrargs _(( char *name, int arg, int prevargs ));
 382 void fixup _(( STR *str ));
 383 int numary _(( int arg ));
 384 int oper0 _(( int type ));
 385 int oper1 _(( int type, int arg1 ));
 386 int oper2 _(( int type, int arg1, int arg2 ));
 387 int oper3 _(( int type, int arg1, int arg2, int arg3 ));
 388 int oper4 _(( int type, int arg1, int arg2, int arg3, int arg4 ));
 389 int oper5 _(( int type, int arg1, int arg2, int arg3, int arg4, int arg5 ));
 390 void putlines _(( STR *str ));
 391 void putone _(( void ));
 392 int rememberargs _(( int arg ));
 393 char * scannum _(( char *s ));
 394 char * scanpat _(( char *s ));
 395 int string _(( char *ptr, int len ));
 396 void yyerror _(( char *s ));
 397 int yylex _(( void ));
 398
 399 EXT int line INIT(0);
 400
 401 EXT FILE *rsfp;
 402 EXT char buf[2048];
 403 EXT char *bufptr INIT(buf);
 404
 405 EXT STR *linestr INIT(Nullstr);
 406
 407 EXT char tokenbuf[2048];
 408 EXT int expectterm INIT(TRUE);
 409
 410 #ifdef DEBUGGING
 411 EXT int debug INIT(0);
 412 EXT int dlevel INIT(0);
 413 #define YYDEBUG 1
 414 extern int yydebug;
 415 #else
 416 # ifndef YYDEBUG
 417 #  define YYDEBUG 0
 418 # endif
 419 #endif
 420
 421 EXT STR *freestrroot INIT(Nullstr);
 422
 423 EXT STR str_no;
 424 EXT STR str_yes;
 425
 426 EXT bool do_split INIT(FALSE);
 427 EXT bool split_to_array INIT(FALSE);
 428 EXT bool set_array_base INIT(FALSE);
 429 EXT bool saw_RS INIT(FALSE);
 430 EXT bool saw_OFS INIT(FALSE);
 431 EXT bool saw_ORS INIT(FALSE);
 432 EXT bool saw_line_op INIT(FALSE);
 433 EXT bool in_begin INIT(TRUE);
 434 EXT bool do_opens INIT(FALSE);
 435 EXT bool do_fancy_opens INIT(FALSE);
 436 EXT bool lval_field INIT(FALSE);
 437 EXT bool do_chop INIT(FALSE);
 438 EXT bool need_entire INIT(FALSE);
 439 EXT bool absmaxfld INIT(FALSE);
 440 EXT bool saw_altinput INIT(FALSE);
 441
 442 EXT bool nomemok INIT(FALSE);
 443
 444 EXT char const_FS INIT(0);
 445 EXT char *namelist INIT(Nullch);
 446 EXT char fswitch INIT(0);
 447 EXT bool old_awk INIT(0);
 448
 449 EXT int saw_FS INIT(0);
 450 EXT int maxfld INIT(0);
 451 EXT int arymax INIT(0);
 452 EXT char *nameary[100];
 453
 454 EXT STR *opens;
 455
 456 EXT HASH *symtab;
 457 EXT HASH *curarghash;
 458
 459 #define P_MIN           0
 460 #define P_LISTOP        5
 461 #define P_COMMA         10
 462 #define P_ASSIGN        15
 463 #define P_COND          20
 464 #define P_DOTDOT        25
 465 #define P_OROR          30
 466 #define P_ANDAND        35
 467 #define P_OR            40
 468 #define P_AND           45
 469 #define P_EQ            50
 470 #define P_REL           55
 471 #define P_UNI           60
 472 #define P_FILETEST      65
 473 #define P_SHIFT         70
 474 #define P_ADD           75
 475 #define P_MUL           80
 476 #define P_MATCH         85
 477 #define P_UNARY         90
 478 #define P_POW           95
 479 #define P_AUTO          100
 480 #define P_MAX           999
 481
 482 EXT int an;