~rsrchboy/+junk/ndn-perl

/*    a2p.h

 *

 *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,

 *    2000, 2001, 2002, by Larry Wall and others

 *

 *    You may distribute under the terms of either the GNU General Public

 *    License or the Artistic License, as specified in the README file.

 */

#ifdef WIN32

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

#endif

#ifdef __VMS

#  include "config.h"

#elif defined(NETWARE)

#  include "../NetWare/config.h"

#else

#  include "../config.h"

#endif

#if defined(__STDC__) || 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

#endif

/* Use all the "standard" definitions? */

#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

#ifdef PERL_MEM_LOG

  typedef IVTYPE IV;

  typedef UVTYPE UV;

#endif

#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_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

/* All of these are in stdlib.h or time.h for ANSI C */

Time_t time();

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

#if defined(OEMVS)

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

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

#else

char *strchr(), *strrchr();

char *strcpy(), *strcat();

#endif

#endif /* ! STANDARD_C */

#ifdef __cplusplus

#  define PERL_EXPORT_C extern "C"

#else

#  define PERL_EXPORT_C extern

#endif

#ifdef VMS

#  include "handy.h"

#else 

#  include "../handy.h"

#endif

#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

const 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 const char *opname[];

#endif

EXT int mop INIT(1);

union u_ops {

    int ival;

    char *cval;

};

#define OPSMAX 50000

EXT union u_ops ops[OPSMAX];

typedef struct string STR;

typedef struct htbl HASH;

#include "str.h"

#include "hash.h"

/* A string is TRUE if not "" or "0". */

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

EXT const char *Yes INIT("1");

EXT const char *No INIT("");

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

EXT STR *Str;

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

/* Prototypes for things in a2p.c */

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 ( const char *ptr, int len );

void yyerror ( const 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(NULL);

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(NULL);

EXT STR str_no;

EXT STR str_yes;

EXT bool do_split INIT(FALSE);

EXT bool split_to_array 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(NULL);

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;