freebsd-nq/contrib/perl5/x2p/a2p.h

483 lines
9.3 KiB
C

/* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $
*
* Copyright (c) 1991-1997, Larry Wall
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* $Log: a2p.h,v $
*/
#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
/* 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 STANDARD_C
# include <stdlib.h>
#else
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)
# 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();
char *strchr(), *strrchr();
char *strcpy(), *strcat();
#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"
/* A string is TRUE if not "" or "0". */
#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)
/* 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 _(( 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;