X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fa2p.h;h=6b6004c2da58e17735ef0910b0a55897a84f4274;hb=c5cb1db4779e061c5d9179a8fdbb794afe0c22a9;hp=77d55ced7a271f2323b55bfa629c330e6644c484;hpb=4633a7c4bad06b471d9310620b7fe8ddd158cccd;p=p5sagit%2Fp5-mst-13.2.git diff --git a/x2p/a2p.h b/x2p/a2p.h index 77d55ce..6b6004c 100644 --- a/x2p/a2p.h +++ b/x2p/a2p.h @@ -1,21 +1,50 @@ -/* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $ +/* a2p.h * - * Copyright (c) 1991, Larry Wall + * 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. - * - * $Log: a2p.h,v $ */ -#include "../embed.h" #define VOIDUSED 1 -#include "../config.h" -#if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus) +#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 +# 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 @@ -31,14 +60,38 @@ # include #endif +#ifdef USE_NEXT_CTYPE -#ifdef USE_NEXT_CTYPE +#if NX_CURRENT_COMPILER_RELEASE >= 400 +#include +#else /* NX_CURRENT_COMPILER_RELEASE < 400 */ #include -#else +#endif /* NX_CURRENT_COMPILER_RELEASE >= 400 */ + +#else /* !USE_NEXT_CTYPE */ #include -#endif +#endif /* USE_NEXT_CTYPE */ #define MEM_SIZE Size_t +#ifdef PERL_MEM_LOG +/* Blindly copied from ../perl.h. -- AD 2/2006. */ +/* Configure gets this right but the UTS compiler gets it wrong. + -- Hal Morris */ +# ifdef UTS +# undef UVTYPE +# define UVTYPE unsigned +# endif + + 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 @@ -46,19 +99,11 @@ # include #endif -#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 @@ -81,13 +126,15 @@ #ifdef DOSISH # if defined(OS2) +# define PTHX_UNUSED # include "../os2ish.h" # else # include "../dosish.h" # endif #else # if defined(VMS) -# include "../vmsish.h" +# define NO_PERL_TYPEDEFS +# include "vmsish.h" # endif #endif @@ -95,11 +142,27 @@ /* 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 */ -#include "handy.h" +#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 @@ -192,7 +255,7 @@ char *strcpy(), *strcat(); #define OSTAR 88 #ifdef DOINIT -char *opname[] = { +const char *opname[] = { "0", "PROG", "JUNK", @@ -285,7 +348,7 @@ char *opname[] = { "89" }; #else -extern char *opname[]; +extern const char *opname[]; #endif EXT int mop INIT(1); @@ -310,40 +373,36 @@ typedef struct htbl HASH; /* 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 ))) +EXT const char *Yes INIT("1"); +EXT const char *No INIT(""); -#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 )); +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); @@ -351,7 +410,7 @@ EXT FILE *rsfp; EXT char buf[2048]; EXT char *bufptr INIT(buf); -EXT STR *linestr INIT(Nullstr); +EXT STR *linestr INIT(NULL); EXT char tokenbuf[2048]; EXT int expectterm INIT(TRUE); @@ -361,9 +420,13 @@ 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 *freestrroot INIT(NULL); EXT STR str_no; EXT STR str_yes; @@ -387,8 +450,9 @@ EXT bool saw_altinput INIT(FALSE); EXT bool nomemok INIT(FALSE); EXT char const_FS INIT(0); -EXT char *namelist INIT(Nullch); +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);