X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fa2p.h;h=b00b0723eab3486a7a1ffc529a157f8d1747bccc;hb=77a005ab9f9f951511e847aba59fbf2ab1bb17e3;hp=b322516b4f4287d7b622c4edfaa3e5ffea7ec28c;hpb=bf38876a182e0df9dd73362f56cf0ab8b43aa789;p=p5sagit%2Fp5-mst-13.2.git diff --git a/x2p/a2p.h b/x2p/a2p.h index b322516..b00b072 100644 --- a/x2p/a2p.h +++ b/x2p/a2p.h @@ -1,28 +1,131 @@ -/* $Header: a2p.h,v 3.0.1.1 89/11/11 05:07:00 lwall Locked $ +/* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $ * - * Copyright (c) 1989, Larry Wall + * Copyright (c) 1991-1997, Larry Wall * - * You may distribute under the terms of the GNU General Public License - * as specified in the README file that comes with the perl 3.0 kit. + * 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 $ - * Revision 3.0.1.1 89/11/11 05:07:00 lwall - * patch2: Configure may now set -DDEBUGGING - * - * Revision 3.0 89/10/18 15:34:14 lwall - * 3.0 baseline - * */ #define VOIDUSED 1 -#include "../config.h" +#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 + +/* Use all the "standard" definitions? */ +#if defined(STANDARD_C) && defined(I_STDLIB) +# include +#endif /* STANDARD_C */ + +#include + +#ifdef I_MATH +#include +#endif + +#ifdef I_SYS_TYPES +# include +#endif + +#ifdef USE_NEXT_CTYPE + +#if NX_CURRENT_COMPILER_RELEASE >= 400 +#include +#else /* NX_CURRENT_COMPILER_RELEASE < 400 */ +#include +#endif /* NX_CURRENT_COMPILER_RELEASE >= 400 */ -#ifndef BCOPY -# define bcopy(s1,s2,l) memcpy(s2,s1,l); -# define bzero(s,l) memset(s,0,l); +#else /* !USE_NEXT_CTYPE */ +#include +#endif /* USE_NEXT_CTYPE */ + +#define MEM_SIZE Size_t + +#ifdef STANDARD_C +# include +#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 +#else +# include #endif -#include "handy.h" +#ifndef HAS_BCOPY +# define bcopy(s1,s2,l) memcpy(s2,s1,l) +#endif +#ifndef HAS_BZERO +# 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 +#endif + +#ifdef I_SYS_TIME +# ifdef I_SYS_TIME_KERNEL +# define KERNEL +# endif +# include +# ifdef I_SYS_TIME_KERNEL +# undef KERNEL +# endif +#endif + +#ifndef MSDOS +# if defined(HAS_TIMES) && defined(I_SYS_TIMES) +# include +# 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 @@ -213,14 +316,16 @@ extern char *opname[]; EXT int mop INIT(1); -#define OPSMAX 50000 -union { +union u_ops { int ival; char *cval; -} ops[OPSMAX]; /* hope they have 200k to spare */ - -#include -#include +}; +#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; @@ -228,6 +333,7 @@ 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"); @@ -242,22 +348,38 @@ EXT STR *Str; #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len) -STR *str_new(); - -char *scanpat(); -char *scannum(); - -void str_free(); +/* 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[1024]; +EXT char buf[2048]; EXT char *bufptr INIT(buf); EXT STR *linestr INIT(Nullstr); -EXT char tokenbuf[256]; +EXT char tokenbuf[2048]; EXT int expectterm INIT(TRUE); #ifdef DEBUGGING @@ -288,14 +410,17 @@ 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); -char *nameary[100]; +EXT char *nameary[100]; EXT STR *opens; @@ -324,3 +449,5 @@ EXT HASH *curarghash; #define P_POW 95 #define P_AUTO 100 #define P_MAX 999 + +EXT int an;