#define VOIDUSED 1

#ifdef WIN32

#define _INC_WIN32_PERL5 /* kludge around win32 stdio layer */

#endif

#ifdef VMS

# include "config.h"

#else

# include "../config.h"

#endif

#if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)

# define STANDARD_C 1

#endif

#ifdef WIN32

#undef USE_STDIO_PTR /* XXX fast gets won't work, must investigate */

# ifndef STANDARD_C

# define STANDARD_C

# endif

# if defined(__BORLANDC__)

# pragma warn -ccc

# pragma warn -rch

# pragma warn -sig

# pragma warn -pia

# pragma warn -par

# pragma warn -aus

# pragma warn -use

# pragma warn -csu

# pragma warn -pro

# elif defined(_MSC_VER)

# elif defined(__MINGW32__)

# endif

#endif

#if defined(STANDARD_C) && defined(I_STDLIB)

# include <stdlib.h>

#endif /* STANDARD_C */

#include <stdio.h>

#ifdef I_MATH

#include <math.h>

#endif

#ifdef I_SYS_TYPES

# include <sys/types.h>

#endif

#ifdef USE_NEXT_CTYPE

#if NX_CURRENT_COMPILER_RELEASE >= 400

#include <objc/NXCType.h>

#else /* NX_CURRENT_COMPILER_RELEASE < 400 */

#include <appkit/NXCType.h>

#endif /* NX_CURRENT_COMPILER_RELEASE >= 400 */

#else /* !USE_NEXT_CTYPE */

#include <ctype.h>

#endif /* USE_NEXT_CTYPE */

#define MEM_SIZE Size_t

#ifndef STANDARD_C

Malloc_t malloc (MEM_SIZE nbytes);

Malloc_t calloc (MEM_SIZE elements, MEM_SIZE size);

Malloc_t realloc (Malloc_t where, MEM_SIZE nbytes);

Free_t free (Malloc_t where);

#endif

#if defined(I_STRING) || defined(__cplusplus)

# include <string.h>

#else

# include <strings.h>

#endif

#if !defined(HAS_BCOPY) || defined(__cplusplus)

# define bcopy(s1,s2,l) memcpy(s2,s1,l)

#endif

#if !defined(HAS_BZERO) || defined(__cplusplus)

# define bzero(s,l) memset(s,0,l)

#endif

#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)

#define strchr index

#define strrchr rindex

#endif

#ifdef I_TIME

# include <time.h>

#endif

#ifdef I_SYS_TIME

# ifdef I_SYS_TIME_KERNEL

# define KERNEL

# endif

# include <sys/time.h>

# ifdef I_SYS_TIME_KERNEL

# undef KERNEL

# endif

#endif

#ifndef MSDOS

# if defined(HAS_TIMES) && defined(I_SYS_TIMES)

# include <sys/times.h>

# endif

#endif

#ifdef DOSISH

# if defined(OS2)

# define PTHX_UNUSED

# include "../os2ish.h"

# else

# include "../dosish.h"

# endif

#else

# if defined(VMS)

# define NO_PERL_TYPEDEFS

# include "vmsish.h"

# endif

#endif

#ifndef STANDARD_C

Time_t time();

struct tm *gmtime(), *localtime();

#if defined(OEMVS) || defined(__OPEN_VM)

char *(strchr)(), *(strrchr)();

char *(strcpy)(), *(strcat)();

#else

char *strchr(), *strrchr();

char *strcpy(), *strcat();

#endif

#endif /* ! STANDARD_C */

#ifdef VMS

# include "handy.h"

#else

# include "../handy.h"

#endif

#undef Nullfp

#define Nullfp Null(FILE*)

#define Nullop 0

#define OPROG 1

#define OJUNK 2

#define OHUNKS 3

#define ORANGE 4

#define OPAT 5

#define OHUNK 6

#define OPPAREN 7

#define OPANDAND 8

#define OPOROR 9

#define OPNOT 10

#define OCPAREN 11

#define OCANDAND 12

#define OCOROR 13

#define OCNOT 14

#define ORELOP 15

#define ORPAREN 16

#define OMATCHOP 17

#define OMPAREN 18

#define OCONCAT 19

#define OASSIGN 20

#define OADD 21

#define OSUBTRACT 22

#define OMULT 23

#define ODIV 24

#define OMOD 25

#define OPOSTINCR 26

#define OPOSTDECR 27

#define OPREINCR 28

#define OPREDECR 29

#define OUMINUS 30

#define OUPLUS 31

#define OPAREN 32

#define OGETLINE 33

#define OSPRINTF 34

#define OSUBSTR 35

#define OSTRING 36

#define OSPLIT 37

#define OSNEWLINE 38

#define OINDEX 39

#define ONUM 40

#define OSTR 41

#define OVAR 42

#define OFLD 43

#define ONEWLINE 44

#define OCOMMENT 45

#define OCOMMA 46

#define OSEMICOLON 47

#define OSCOMMENT 48

#define OSTATES 49

#define OSTATE 50

#define OPRINT 51

#define OPRINTF 52

#define OBREAK 53

#define ONEXT 54

#define OEXIT 55

#define OCONTINUE 56

#define OREDIR 57

#define OIF 58

#define OWHILE 59

#define OFOR 60

#define OFORIN 61

#define OVFLD 62

#define OBLOCK 63

#define OREGEX 64

#define OLENGTH 65

#define OLOG 66

#define OEXP 67

#define OSQRT 68

#define OINT 69

#define ODO 70

#define OPOW 71

#define OSUB 72

#define OGSUB 73

#define OMATCH 74

#define OUSERFUN 75

#define OUSERDEF 76

#define OCLOSE 77

#define OATAN2 78

#define OSIN 79

#define OCOS 80

#define ORAND 81

#define OSRAND 82

#define ODELETE 83

#define OSYSTEM 84

#define OCOND 85

#define ORETURN 86

#define ODEFINED 87

#define OSTAR 88

#ifdef DOINIT

char *opname[] = {

"0",

"PROG",

"JUNK",

"HUNKS",

"RANGE",

"PAT",

"HUNK",

"PPAREN",

"PANDAND",

"POROR",

"PNOT",

"CPAREN",

"CANDAND",

"COROR",

"CNOT",

"RELOP",

"RPAREN",

"MATCHOP",

"MPAREN",

"CONCAT",

"ASSIGN",

"ADD",

"SUBTRACT",

"MULT",

"DIV",

"MOD",

"POSTINCR",

"POSTDECR",

"PREINCR",

"PREDECR",

"UMINUS",

"UPLUS",

"PAREN",

"GETLINE",

"SPRINTF",

"SUBSTR",

"STRING",

"SPLIT",

"SNEWLINE",

"INDEX",

"NUM",

"STR",

"VAR",

"FLD",

"NEWLINE",

"COMMENT",

"COMMA",

"SEMICOLON",

"SCOMMENT",

"STATES",

"STATE",

"PRINT",

"PRINTF",

"BREAK",

"NEXT",

"EXIT",

"CONTINUE",

"REDIR",

"IF",

"WHILE",

"FOR",

"FORIN",

"VFLD",

"BLOCK",

"REGEX",

"LENGTH",

"LOG",

"EXP",

"SQRT",

"INT",

"DO",

"POW",

"SUB",

"GSUB",

"MATCH",

"USERFUN",

"USERDEF",

"CLOSE",

"ATAN2",

"SIN",

"COS",

"RAND",

"SRAND",

"DELETE",

"SYSTEM",

"COND",

"RETURN",

"DEFINED",

"STAR",

"89"

};

#else

extern char *opname[];

#endif

EXT int mop INIT(1);

union u_ops {

int ival;

char *cval;

};

#if defined(iAPX286) || defined(M_I286) || defined(I80286) /* 80286 hack */

#define OPSMAX (64000/sizeof(union u_ops)) /* approx. max segment size */

#else

#define OPSMAX 50000

#endif /* 80286 hack */

EXT union u_ops ops[OPSMAX];

typedef struct string STR;

typedef struct htbl HASH;

#include "str.h"

#include "hash.h"

#define True(val) (tmps = (val), (*tmps && !(*tmps == '0' && !tmps[1])))

EXT char *Yes INIT("1");

EXT char *No INIT("");

#define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))

#define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))

#define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))

#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))

EXT STR *Str;

#define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)

int aryrefarg ( int arg );

int bl ( int arg, int maybe );

void dump ( int branch );

int fixfargs ( int name, int arg, int prevargs );

int fixrargs ( char *name, int arg, int prevargs );

void fixup ( STR *str );

int numary ( int arg );

int oper0 ( int type );

int oper1 ( int type, int arg1 );

int oper2 ( int type, int arg1, int arg2 );

int oper3 ( int type, int arg1, int arg2, int arg3 );

int oper4 ( int type, int arg1, int arg2, int arg3, int arg4 );

int oper5 ( int type, int arg1, int arg2, int arg3, int arg4, int arg5 );

void putlines ( STR *str );

void putone ( void );

int rememberargs ( int arg );

char * scannum ( char *s );

char * scanpat ( char *s );

int string ( char *ptr, int len );

void yyerror ( char *s );

int yylex ( void );

EXT int line INIT(0);

EXT FILE *rsfp;

EXT char buf[2048];

EXT char *bufptr INIT(buf);

EXT STR *linestr INIT(Nullstr);

EXT char tokenbuf[2048];

EXT int expectterm INIT(TRUE);

#ifdef DEBUGGING

EXT int debug INIT(0);

EXT int dlevel INIT(0);

#define YYDEBUG 1

extern int yydebug;

#else

# ifndef YYDEBUG

# define YYDEBUG 0

# endif

#endif

EXT STR *freestrroot INIT(Nullstr);

EXT STR str_no;

EXT STR str_yes;

EXT bool do_split INIT(FALSE);

EXT bool split_to_array INIT(FALSE);

EXT bool set_array_base INIT(FALSE);

EXT bool saw_RS INIT(FALSE);

EXT bool saw_OFS INIT(FALSE);

EXT bool saw_ORS INIT(FALSE);

EXT bool saw_line_op INIT(FALSE);

EXT bool in_begin INIT(TRUE);

EXT bool do_opens INIT(FALSE);

EXT bool do_fancy_opens INIT(FALSE);

EXT bool lval_field INIT(FALSE);

EXT bool do_chop INIT(FALSE);

EXT bool need_entire INIT(FALSE);

EXT bool absmaxfld INIT(FALSE);

EXT bool saw_altinput INIT(FALSE);

EXT bool nomemok INIT(FALSE);

EXT char const_FS INIT(0);

EXT char *namelist INIT(Nullch);

EXT char fswitch INIT(0);

EXT bool old_awk INIT(0);

EXT int saw_FS INIT(0);

EXT int maxfld INIT(0);

EXT int arymax INIT(0);

EXT char *nameary[100];

EXT STR *opens;

EXT HASH *symtab;

EXT HASH *curarghash;

#define P_MIN 0

#define P_LISTOP 5

#define P_COMMA 10

#define P_ASSIGN 15

#define P_COND 20

#define P_DOTDOT 25

#define P_OROR 30

#define P_ANDAND 35

#define P_OR 40

#define P_AND 45

#define P_EQ 50

#define P_REL 55

#define P_UNI 60

#define P_FILETEST 65

#define P_SHIFT 70

#define P_ADD 75

#define P_MUL 80

#define P_MATCH 85

#define P_UNARY 90

#define P_POW 95

#define P_AUTO 100

#define P_MAX 999

EXT int an;