summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/x2p/a2p.h
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/x2p/a2p.h')
-rw-r--r--contrib/perl5/x2p/a2p.h486
1 files changed, 0 insertions, 486 deletions
diff --git a/contrib/perl5/x2p/a2p.h b/contrib/perl5/x2p/a2p.h
deleted file mode 100644
index cbcb80c..0000000
--- a/contrib/perl5/x2p/a2p.h
+++ /dev/null
@@ -1,486 +0,0 @@
-/* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $
- *
- * 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 $
- */
-
-#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
-
-#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_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)
-# 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
-
-#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;
OpenPOWER on IntegriCloud