X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fa2p.h;h=f4dcd268ff2567b763bb498147e1f02543a5801e;hb=55140b7900b214ce61d6c3e08927a21f01997d6c;hp=0eb0d1cf61188c42a3f109b908acf27bd5835ebb;hpb=bf10efe7e35fa48859e575b890018da16608a9d7;p=p5sagit%2Fp5-mst-13.2.git diff --git a/x2p/a2p.h b/x2p/a2p.h index 0eb0d1c..f4dcd26 100644 --- a/x2p/a2p.h +++ b/x2p/a2p.h @@ -1,33 +1,152 @@ -/* $RCSfile: a2p.h,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:12:23 $ +/* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $ * - * Copyright (c) 1991, Larry Wall + * Copyright (c) 1991-2001, 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 $ - * Revision 4.0.1.2 92/06/08 16:12:23 lwall - * patch20: hash tables now split only if the memory is available to do so - * - * Revision 4.0.1.1 91/06/07 12:12:27 lwall - * patch4: new copyright notice - * - * Revision 4.0 91/03/20 01:57:07 lwall - * 4.0 baseline. - * */ #define VOIDUSED 1 -#include "../config.h" -#ifndef HAS_BCOPY -# define bcopy(s1,s2,l) memcpy(s2,s1,l) +#ifdef WIN32 +#define _INC_WIN32_PERL5 /* kludge around win32 stdio layer */ #endif -#ifndef HAS_BZERO -# define bzero(s,l) memset(s,0,l) + +#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 +#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 */ + +#else /* !USE_NEXT_CTYPE */ +#include +#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 +#else +# include +#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) +# 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) || 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 -#include "handy.h" +#undef Nullfp +#define Nullfp Null(FILE*) + #define Nullop 0 #define OPROG 1 @@ -227,10 +346,7 @@ union u_ops { #else #define OPSMAX 50000 #endif /* 80286 hack */ -union u_ops ops[OPSMAX]; - -#include -#include +EXT union u_ops ops[OPSMAX]; typedef struct string STR; typedef struct htbl HASH; @@ -238,6 +354,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"); @@ -252,12 +369,28 @@ 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); @@ -275,6 +408,10 @@ 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); @@ -303,11 +440,12 @@ 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; @@ -336,3 +474,5 @@ EXT HASH *curarghash; #define P_POW 95 #define P_AUTO 100 #define P_MAX 999 + +EXT int an;