[p5sagit/p5-mst-13.2.git] / arg.h

/* $Header: arg.h,v 3.0.1.6 90/08/09 02:25:14 lwall Locked $
 *
 *    Copyright (c) 1989, 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.
 *
 * $Log:	arg.h,v $
 * Revision 3.0.1.6  90/08/09  02:25:14  lwall
 * patch19: added require operator
 * patch19: added truncate operator
 * 
 * Revision 3.0.1.5  90/03/27  15:29:41  lwall
 * patch16: MSDOS support
 * 
 * Revision 3.0.1.4  90/03/12  16:18:21  lwall
 * patch13: added list slice operator (LIST)[LIST]
 * patch13: added splice operator: @oldelems = splice(@array,$offset,$len,LIST)
 * 
 * Revision 3.0.1.3  90/02/28  16:21:55  lwall
 * patch9: added pipe function
 * 
 * Revision 3.0.1.2  89/12/21  19:13:14  lwall
 * patch7: send() didn't allow a TO argument
 * 
 * Revision 3.0.1.1  89/10/26  23:02:35  lwall
 * patch1: reverse didn't work
 * 
 * Revision 3.0  89/10/18  15:08:27  lwall
 * 3.0 baseline
 * 
 */

#define O_NULL 0
#define O_ITEM 1
#define O_ITEM2 2
#define O_ITEM3 3
#define O_CONCAT 4
#define O_MATCH 5
#define O_NMATCH 6
#define O_SUBST 7
#define O_NSUBST 8
#define O_ASSIGN 9
#define O_MULTIPLY 10
#define O_DIVIDE 11
#define O_MODULO 12
#define O_ADD 13
#define O_SUBTRACT 14
#define O_LEFT_SHIFT 15
#define O_RIGHT_SHIFT 16
#define O_LT 17
#define O_GT 18
#define O_LE 19
#define O_GE 20
#define O_EQ 21
#define O_NE 22
#define O_BIT_AND 23
#define O_XOR 24
#define O_BIT_OR 25
#define O_AND 26
#define O_OR 27
#define O_COND_EXPR 28
#define O_COMMA 29
#define O_NEGATE 30
#define O_NOT 31
#define O_COMPLEMENT 32
#define O_WRITE 33
#define O_OPEN 34
#define O_TRANS 35
#define O_NTRANS 36
#define O_CLOSE 37
#define O_ARRAY 38
#define O_HASH 39
#define O_LARRAY 40
#define O_LHASH 41
#define O_PUSH 42
#define O_POP 43
#define O_SHIFT 44
#define O_SPLIT 45
#define O_LENGTH 46
#define O_SPRINTF 47
#define O_SUBSTR 48
#define O_JOIN 49
#define O_SLT 50
#define O_SGT 51
#define O_SLE 52
#define O_SGE 53
#define O_SEQ 54
#define O_SNE 55
#define O_SUBR 56
#define O_PRINT 57
#define O_CHDIR 58
#define O_DIE 59
#define O_EXIT 60
#define O_RESET 61
#define O_LIST 62
#define O_SELECT 63
#define O_EOF 64
#define O_TELL 65
#define O_SEEK 66
#define O_LAST 67
#define O_NEXT 68
#define O_REDO 69
#define O_GOTO 70
#define O_INDEX 71
#define O_TIME 72
#define O_TMS 73
#define O_LOCALTIME 74
#define O_GMTIME 75
#define O_STAT 76
#define O_CRYPT 77
#define O_EXP 78
#define O_LOG 79
#define O_SQRT 80
#define O_INT 81
#define O_PRTF 82
#define O_ORD 83
#define O_SLEEP 84
#define O_FLIP 85
#define O_FLOP 86
#define O_KEYS 87
#define O_VALUES 88
#define O_EACH 89
#define O_CHOP 90
#define O_FORK 91
#define O_EXEC 92
#define O_SYSTEM 93
#define O_OCT 94
#define O_HEX 95
#define O_CHMOD 96
#define O_CHOWN 97
#define O_KILL 98
#define O_RENAME 99
#define O_UNLINK 100
#define O_UMASK 101
#define O_UNSHIFT 102
#define O_LINK 103
#define O_REPEAT 104
#define O_EVAL 105
#define O_FTEREAD 106
#define O_FTEWRITE 107
#define O_FTEEXEC 108
#define O_FTEOWNED 109
#define O_FTRREAD 110
#define O_FTRWRITE 111
#define O_FTREXEC 112
#define O_FTROWNED 113
#define O_FTIS 114
#define O_FTZERO 115
#define O_FTSIZE 116
#define O_FTFILE 117
#define O_FTDIR 118
#define O_FTLINK 119
#define O_SYMLINK 120
#define O_FTPIPE 121
#define O_FTSOCK 122
#define O_FTBLK 123
#define O_FTCHR 124
#define O_FTSUID 125
#define O_FTSGID 126
#define O_FTSVTX 127
#define O_FTTTY 128
#define O_DOFILE 129
#define O_FTTEXT 130
#define O_FTBINARY 131
#define O_UTIME 132
#define O_WAIT 133
#define O_SORT 134
#define O_DELETE 135
#define O_STUDY 136
#define O_ATAN2 137
#define O_SIN 138
#define O_COS 139
#define O_RAND 140
#define O_SRAND 141
#define O_POW 142
#define O_RETURN 143
#define O_GETC 144
#define O_MKDIR 145
#define O_RMDIR 146
#define O_GETPPID 147
#define O_GETPGRP 148
#define O_SETPGRP 149
#define O_GETPRIORITY 150
#define O_SETPRIORITY 151
#define O_CHROOT 152
#define O_IOCTL 153
#define O_FCNTL 154
#define O_FLOCK 155
#define O_RINDEX 156
#define O_PACK 157
#define O_UNPACK 158
#define O_READ 159
#define O_WARN 160
#define O_DBMOPEN 161
#define O_DBMCLOSE 162
#define O_ASLICE 163
#define O_HSLICE 164
#define O_LASLICE 165
#define O_LHSLICE 166
#define O_F_OR_R 167
#define O_RANGE 168
#define O_RCAT 169
#define O_AASSIGN 170
#define O_SASSIGN 171
#define O_DUMP 172
#define O_REVERSE 173
#define O_ADDROF 174
#define O_SOCKET 175
#define O_BIND 176
#define O_CONNECT 177
#define O_LISTEN 178
#define O_ACCEPT 179
#define O_SEND 180
#define O_RECV 181
#define O_SSELECT 182
#define O_SOCKPAIR 183
#define O_DBSUBR 184
#define O_DEFINED 185
#define O_UNDEF 186
#define O_READLINK 187
#define O_LSTAT 188
#define O_AELEM 189
#define O_HELEM 190
#define O_LAELEM 191
#define O_LHELEM 192
#define O_LOCAL 193
#define O_PIPE 194
#define O_FILENO 195
#define O_GHBYNAME 196
#define O_GHBYADDR 197
#define O_GHOSTENT 198
#define O_SHOSTENT 199
#define O_EHOSTENT 200
#define O_GSBYNAME 201
#define O_GSBYPORT 202
#define O_GSERVENT 203
#define O_SSERVENT 204
#define O_ESERVENT 205
#define O_GPBYNAME 206
#define O_GPBYNUMBER 207
#define O_GPROTOENT 208
#define O_SPROTOENT 209
#define O_EPROTOENT 210
#define O_GNBYNAME 211
#define O_GNBYADDR 212
#define O_GNETENT 213
#define O_SNETENT 214
#define O_ENETENT 215
#define O_VEC 216
#define O_GREP 217
#define O_GPWNAM 218
#define O_GPWUID 219
#define O_GPWENT 220
#define O_SPWENT 221
#define O_EPWENT 222
#define O_GGRNAM 223
#define O_GGRGID 224
#define O_GGRENT 225
#define O_SGRENT 226
#define O_EGRENT 227
#define O_SHUTDOWN 228
#define O_OPENDIR 229
#define O_READDIR 230
#define O_TELLDIR 231
#define O_SEEKDIR 232
#define O_REWINDDIR 233
#define O_CLOSEDIR 234
#define O_GETLOGIN 235
#define O_SYSCALL 236
#define O_GSOCKOPT 237
#define O_SSOCKOPT 238
#define O_GETSOCKNAME 239
#define O_GETPEERNAME 240
#define O_LSLICE 241
#define O_SPLICE 242
#define O_BINMODE 243
#define O_REQUIRE 244
#define O_TRUNCATE 245
#define MAXO 246

#ifndef DOINIT
extern char *opname[];
#else
char *opname[] = {
    "NULL",
    "ITEM",
    "ITEM2",
    "ITEM3",
    "CONCAT",
    "MATCH",
    "NMATCH",
    "SUBST",
    "NSUBST",
    "ASSIGN",
    "MULTIPLY",
    "DIVIDE",
    "MODULO",
    "ADD",
    "SUBTRACT",
    "LEFT_SHIFT",
    "RIGHT_SHIFT",
    "LT",
    "GT",
    "LE",
    "GE",
    "EQ",
    "NE",
    "BIT_AND",
    "XOR",
    "BIT_OR",
    "AND",
    "OR",
    "COND_EXPR",
    "COMMA",
    "NEGATE",
    "NOT",
    "COMPLEMENT",
    "WRITE",
    "OPEN",
    "TRANS",
    "NTRANS",
    "CLOSE",
    "ARRAY",
    "HASH",
    "LARRAY",
    "LHASH",
    "PUSH",
    "POP",
    "SHIFT",
    "SPLIT",
    "LENGTH",
    "SPRINTF",
    "SUBSTR",
    "JOIN",
    "SLT",
    "SGT",
    "SLE",
    "SGE",
    "SEQ",
    "SNE",
    "SUBR",
    "PRINT",
    "CHDIR",
    "DIE",
    "EXIT",
    "RESET",
    "LIST",
    "SELECT",
    "EOF",
    "TELL",
    "SEEK",
    "LAST",
    "NEXT",
    "REDO",
    "GOTO",/* shudder */
    "INDEX",
    "TIME",
    "TIMES",
    "LOCALTIME",
    "GMTIME",
    "STAT",
    "CRYPT",
    "EXP",
    "LOG",
    "SQRT",
    "INT",
    "PRINTF",
    "ORD",
    "SLEEP",
    "FLIP",
    "FLOP",
    "KEYS",
    "VALUES",
    "EACH",
    "CHOP",
    "FORK",
    "EXEC",
    "SYSTEM",
    "OCT",
    "HEX",
    "CHMOD",
    "CHOWN",
    "KILL",
    "RENAME",
    "UNLINK",
    "UMASK",
    "UNSHIFT",
    "LINK",
    "REPEAT",
    "EVAL",
    "FTEREAD",
    "FTEWRITE",
    "FTEEXEC",
    "FTEOWNED",
    "FTRREAD",
    "FTRWRITE",
    "FTREXEC",
    "FTROWNED",
    "FTIS",
    "FTZERO",
    "FTSIZE",
    "FTFILE",
    "FTDIR",
    "FTLINK",
    "SYMLINK",
    "FTPIPE",
    "FTSOCK",
    "FTBLK",
    "FTCHR",
    "FTSUID",
    "FTSGID",
    "FTSVTX",
    "FTTTY",
    "DOFILE",
    "FTTEXT",
    "FTBINARY",
    "UTIME",
    "WAIT",
    "SORT",
    "DELETE",
    "STUDY",
    "ATAN2",
    "SIN",
    "COS",
    "RAND",
    "SRAND",
    "POW",
    "RETURN",
    "GETC",
    "MKDIR",
    "RMDIR",
    "GETPPID",
    "GETPGRP",
    "SETPGRP",
    "GETPRIORITY",
    "SETPRIORITY",
    "CHROOT",
    "IOCTL",
    "FCNTL",
    "FLOCK",
    "RINDEX",
    "PACK",
    "UNPACK",
    "READ",
    "WARN",
    "DBMOPEN",
    "DBMCLOSE",
    "ASLICE",
    "HSLICE",
    "LASLICE",
    "LHSLICE",
    "FLIP_OR_RANGE",
    "RANGE",
    "RCAT",
    "AASSIGN",
    "SASSIGN",
    "DUMP",
    "REVERSE",
    "ADDRESS_OF",
    "SOCKET",
    "BIND",
    "CONNECT",
    "LISTEN",
    "ACCEPT",
    "SEND",
    "RECV",
    "SSELECT",
    "SOCKPAIR",
    "DBSUBR",
    "DEFINED",
    "UNDEF",
    "READLINK",
    "LSTAT",
    "AELEM",
    "HELEM",
    "LAELEM",
    "LHELEM",
    "LOCAL",
    "PIPE",
    "FILENO",
    "GHBYNAME",
    "GHBYADDR",
    "GHOSTENT",
    "SHOSTENT",
    "EHOSTENT",
    "GSBYNAME",
    "GSBYPORT",
    "GSERVENT",
    "SSERVENT",
    "ESERVENT",
    "GPBYNAME",
    "GPBYNUMBER",
    "GPROTOENT",
    "SPROTOENT",
    "EPROTOENT",
    "GNBYNAME",
    "GNBYADDR",
    "GNETENT",
    "SNETENT",
    "ENETENT",
    "VEC",
    "GREP",
    "GPWNAM",
    "GPWUID",
    "GPWENT",
    "SPWENT",
    "EPWENT",
    "GGRNAM",
    "GGRGID",
    "GGRENT",
    "SGRENT",
    "EGRENT",
    "SHUTDOWN",
    "OPENDIR",
    "READDIR",
    "TELLDIR",
    "SEEKDIR",
    "REWINDDIR",
    "CLOSEDIR",
    "GETLOGIN",
    "SYSCALL",
    "GSOCKOPT",
    "SSOCKOPT",
    "GETSOCKNAME",
    "GETPEERNAME",
    "LSLICE",
    "SPLICE",
    "BINMODE",
    "REQUIRE",
    "TRUNCATE",
    "245"
};
#endif

#define A_NULL 0
#define A_EXPR 1
#define A_CMD 2
#define A_STAB 3
#define A_LVAL 4
#define A_SINGLE 5
#define A_DOUBLE 6
#define A_BACKTICK 7
#define A_READ 8
#define A_SPAT 9
#define A_LEXPR 10
#define A_ARYLEN 11
#define A_ARYSTAB 12
#define A_LARYLEN 13
#define A_GLOB 14
#define A_WORD 15
#define A_INDREAD 16
#define A_LARYSTAB 17
#define A_STAR 18
#define A_LSTAR 19
#define A_WANTARRAY 20

#define A_MASK 31
#define A_DONT 32		/* or this into type to suppress evaluation */

#ifndef DOINIT
extern char *argname[];
#else
char *argname[] = {
    "A_NULL",
    "EXPR",
    "CMD",
    "STAB",
    "LVAL",
    "SINGLE",
    "DOUBLE",
    "BACKTICK",
    "READ",
    "SPAT",
    "LEXPR",
    "ARYLEN",
    "ARYSTAB",
    "LARYLEN",
    "GLOB",
    "WORD",
    "INDREAD",
    "LARYSTAB",
    "STAR",
    "LSTAR",
    "WANTARRAY",
    "21"
};
#endif

#ifndef DOINIT
extern bool hoistable[];
#else
bool hoistable[] =
  {0,	/* A_NULL */
   0,	/* EXPR */
   1,	/* CMD */
   1,	/* STAB */
   0,	/* LVAL */
   1,	/* SINGLE */
   0,	/* DOUBLE */
   0,	/* BACKTICK */
   0,	/* READ */
   0,	/* SPAT */
   0,	/* LEXPR */
   1,	/* ARYLEN */
   1,	/* ARYSTAB */
   0,	/* LARYLEN */
   0,	/* GLOB */
   1,	/* WORD */
   0,	/* INDREAD */
   0,	/* LARYSTAB */
   1,	/* STAR */
   1,	/* LSTAR */
   1,	/* WANTARRAY */
   0,	/* 21 */
};
#endif

union argptr {
    ARG		*arg_arg;
    char	*arg_cval;
    STAB	*arg_stab;
    SPAT	*arg_spat;
    CMD		*arg_cmd;
    STR		*arg_str;
    HASH	*arg_hash;
};

struct arg {
    union argptr arg_ptr;
    short	arg_len;
#ifdef mips
    short	pad;
#endif
    unsigned char arg_type;
    unsigned char arg_flags;
};

#define AF_ARYOK 1		/* op can handle multiple values here */
#define AF_POST 2		/* post *crement this item */
#define AF_PRE 4		/* pre *crement this item */
#define AF_UP 8			/* increment rather than decrement */
#define AF_COMMON 16		/* left and right have symbols in common */
#define AF_UNUSED 32		/*  */
#define AF_LISTISH 64		/* turn into list if important */
#define AF_LOCAL 128		/* list of local variables */

/*
 * Most of the ARG pointers are used as pointers to arrays of ARG.  When
 * so used, the 0th element is special, and represents the operator to
 * use on the list of arguments following.  The arg_len in the 0th element
 * gives the maximum argument number, and the arg_str is used to store
 * the return value in a more-or-less static location.  Sorry it's not
 * re-entrant (yet), but it sure makes it efficient.  The arg_type of the
 * 0th element is an operator (O_*) rather than an argument type (A_*).
 */

#define Nullarg Null(ARG*)

#ifndef DOINIT
EXT char opargs[MAXO+1];
#else
#define A(e1,e2,e3) (e1+(e2<<2)+(e3<<4))
char opargs[MAXO+1] = {
	A(0,0,0),	/* NULL */
	A(1,0,0),	/* ITEM */
	A(0,0,0),	/* ITEM2 */
	A(0,0,0),	/* ITEM3 */
	A(1,1,0),	/* CONCAT */
	A(1,0,0),	/* MATCH */
	A(1,0,0),	/* NMATCH */
	A(1,0,0),	/* SUBST */
	A(1,0,0),	/* NSUBST */
	A(1,1,0),	/* ASSIGN */
	A(1,1,0),	/* MULTIPLY */
	A(1,1,0),	/* DIVIDE */
	A(1,1,0),	/* MODULO */
	A(1,1,0),	/* ADD */
	A(1,1,0),	/* SUBTRACT */
	A(1,1,0),	/* LEFT_SHIFT */
	A(1,1,0),	/* RIGHT_SHIFT */
	A(1,1,0),	/* LT */
	A(1,1,0),	/* GT */
	A(1,1,0),	/* LE */
	A(1,1,0),	/* GE */
	A(1,1,0),	/* EQ */
	A(1,1,0),	/* NE */
	A(1,1,0),	/* BIT_AND */
	A(1,1,0),	/* XOR */
	A(1,1,0),	/* BIT_OR */
	A(1,0,0),	/* AND */
	A(1,0,0),	/* OR */
	A(1,0,0),	/* COND_EXPR */
	A(1,1,0),	/* COMMA */
	A(1,0,0),	/* NEGATE */
	A(1,0,0),	/* NOT */
	A(1,0,0),	/* COMPLEMENT */
	A(1,0,0),	/* WRITE */
	A(1,1,0),	/* OPEN */
	A(1,0,0),	/* TRANS */
	A(1,0,0),	/* NTRANS */
	A(1,0,0),	/* CLOSE */
	A(0,0,0),	/* ARRAY */
	A(0,0,0),	/* HASH */
	A(0,0,0),	/* LARRAY */
	A(0,0,0),	/* LHASH */
	A(0,3,0),	/* PUSH */
	A(0,0,0),	/* POP */
	A(0,0,0),	/* SHIFT */
	A(1,0,1),	/* SPLIT */
	A(1,0,0),	/* LENGTH */
	A(3,0,0),	/* SPRINTF */
	A(1,1,1),	/* SUBSTR */
	A(1,3,0),	/* JOIN */
	A(1,1,0),	/* SLT */
	A(1,1,0),	/* SGT */
	A(1,1,0),	/* SLE */
	A(1,1,0),	/* SGE */
	A(1,1,0),	/* SEQ */
	A(1,1,0),	/* SNE */
	A(0,3,0),	/* SUBR */
	A(1,3,0),	/* PRINT */
	A(1,0,0),	/* CHDIR */
	A(0,3,0),	/* DIE */
	A(1,0,0),	/* EXIT */
	A(1,0,0),	/* RESET */
	A(3,0,0),	/* LIST */
	A(1,0,0),	/* SELECT */
	A(1,0,0),	/* EOF */
	A(1,0,0),	/* TELL */
	A(1,1,1),	/* SEEK */
	A(0,0,0),	/* LAST */
	A(0,0,0),	/* NEXT */
	A(0,0,0),	/* REDO */
	A(0,0,0),	/* GOTO */
	A(1,1,0),	/* INDEX */
	A(0,0,0),	/* TIME */
	A(0,0,0),	/* TIMES */
	A(1,0,0),	/* LOCALTIME */
	A(1,0,0),	/* GMTIME */
	A(1,0,0),	/* STAT */
	A(1,1,0),	/* CRYPT */
	A(1,0,0),	/* EXP */
	A(1,0,0),	/* LOG */
	A(1,0,0),	/* SQRT */
	A(1,0,0),	/* INT */
	A(1,3,0),	/* PRINTF */
	A(1,0,0),	/* ORD */
	A(1,0,0),	/* SLEEP */
	A(1,0,0),	/* FLIP */
	A(0,1,0),	/* FLOP */
	A(0,0,0),	/* KEYS */
	A(0,0,0),	/* VALUES */
	A(0,0,0),	/* EACH */
	A(3,0,0),	/* CHOP */
	A(0,0,0),	/* FORK */
	A(1,3,0),	/* EXEC */
	A(1,3,0),	/* SYSTEM */
	A(1,0,0),	/* OCT */
	A(1,0,0),	/* HEX */
	A(0,3,0),	/* CHMOD */
	A(0,3,0),	/* CHOWN */
	A(0,3,0),	/* KILL */
	A(1,1,0),	/* RENAME */
	A(0,3,0),	/* UNLINK */
	A(1,0,0),	/* UMASK */
	A(0,3,0),	/* UNSHIFT */
	A(1,1,0),	/* LINK */
	A(1,1,0),	/* REPEAT */
	A(1,0,0),	/* EVAL */
	A(1,0,0),	/* FTEREAD */
	A(1,0,0),	/* FTEWRITE */
	A(1,0,0),	/* FTEEXEC */
	A(1,0,0),	/* FTEOWNED */
	A(1,0,0),	/* FTRREAD */
	A(1,0,0),	/* FTRWRITE */
	A(1,0,0),	/* FTREXEC */
	A(1,0,0),	/* FTROWNED */
	A(1,0,0),	/* FTIS */
	A(1,0,0),	/* FTZERO */
	A(1,0,0),	/* FTSIZE */
	A(1,0,0),	/* FTFILE */
	A(1,0,0),	/* FTDIR */
	A(1,0,0),	/* FTLINK */
	A(1,1,0),	/* SYMLINK */
	A(1,0,0),	/* FTPIPE */
	A(1,0,0),	/* FTSOCK */
	A(1,0,0),	/* FTBLK */
	A(1,0,0),	/* FTCHR */
	A(1,0,0),	/* FTSUID */
	A(1,0,0),	/* FTSGID */
	A(1,0,0),	/* FTSVTX */
	A(1,0,0),	/* FTTTY */
	A(1,0,0),	/* DOFILE */
	A(1,0,0),	/* FTTEXT */
	A(1,0,0),	/* FTBINARY */
	A(0,3,0),	/* UTIME */
	A(0,0,0),	/* WAIT */
	A(1,3,0),	/* SORT */
	A(0,1,0),	/* DELETE */
	A(1,0,0),	/* STUDY */
	A(1,1,0),	/* ATAN2 */
	A(1,0,0),	/* SIN */
	A(1,0,0),	/* COS */
	A(1,0,0),	/* RAND */
	A(1,0,0),	/* SRAND */
	A(1,1,0),	/* POW */
	A(0,3,0),	/* RETURN */
	A(1,0,0),	/* GETC */
	A(1,1,0),	/* MKDIR */
	A(1,0,0),	/* RMDIR */
	A(0,0,0),	/* GETPPID */
	A(1,0,0),	/* GETPGRP */
	A(1,1,0),	/* SETPGRP */
	A(1,1,0),	/* GETPRIORITY */
	A(1,1,1),	/* SETPRIORITY */
	A(1,0,0),	/* CHROOT */
	A(1,1,1),	/* IOCTL */
	A(1,1,1),	/* FCNTL */
	A(1,1,0),	/* FLOCK */
	A(1,1,0),	/* RINDEX */
	A(1,3,0),	/* PACK */
	A(1,1,0),	/* UNPACK */
	A(1,1,1),	/* READ */
	A(0,3,0),	/* WARN */
	A(1,1,1),	/* DBMOPEN */
	A(1,0,0),	/* DBMCLOSE */
	A(0,3,0),	/* ASLICE */
	A(0,3,0),	/* HSLICE */
	A(0,3,0),	/* LASLICE */
	A(0,3,0),	/* LHSLICE */
	A(1,0,0),	/* F_OR_R */
	A(1,1,0),	/* RANGE */
	A(1,1,0),	/* RCAT */
	A(3,3,0),	/* AASSIGN */
	A(0,0,0),	/* SASSIGN */
	A(0,0,0),	/* DUMP */
	A(0,3,0),	/* REVERSE */
	A(1,0,0),	/* ADDROF */
	A(1,1,1),	/* SOCKET */
	A(1,1,0),	/* BIND */
	A(1,1,0),	/* CONNECT */
	A(1,1,0),	/* LISTEN */
	A(1,1,0),	/* ACCEPT */
	A(1,1,3),	/* SEND */
	A(1,1,1),	/* RECV */
	A(1,1,1),	/* SSELECT */
	A(1,1,1),	/* SOCKPAIR */
	A(0,3,0),	/* DBSUBR */
	A(1,0,0),	/* DEFINED */
	A(1,0,0),	/* UNDEF */
	A(1,0,0),	/* READLINK */
	A(1,0,0),	/* LSTAT */
	A(0,1,0),	/* AELEM */
	A(0,1,0),	/* HELEM */
	A(0,1,0),	/* LAELEM */
	A(0,1,0),	/* LHELEM */
	A(1,0,0),	/* LOCAL */
	A(1,1,0),	/* PIPE */
	A(1,0,0),	/* FILENO */
	A(1,0,0),	/* GHBYNAME */
	A(1,1,0),	/* GHBYADDR */
	A(0,0,0),	/* GHOSTENT */
	A(1,0,0),	/* SHOSTENT */
	A(0,0,0),	/* EHOSTENT */
	A(1,1,0),	/* GSBYNAME */
	A(1,1,0),	/* GSBYPORT */
	A(0,0,0),	/* GSERVENT */
	A(1,0,0),	/* SSERVENT */
	A(0,0,0),	/* ESERVENT */
	A(1,0,0),	/* GPBYNAME */
	A(1,0,0),	/* GPBYNUMBER */
	A(0,0,0),	/* GPROTOENT */
	A(1,0,0),	/* SPROTOENT */
	A(0,0,0),	/* EPROTOENT */
	A(1,0,0),	/* GNBYNAME */
	A(1,1,0),	/* GNBYADDR */
	A(0,0,0),	/* GNETENT */
	A(1,0,0),	/* SNETENT */
	A(0,0,0),	/* ENETENT */
	A(1,1,1),	/* VEC */
	A(0,3,0),	/* GREP */
	A(1,0,0),	/* GPWNAM */
	A(1,0,0),	/* GPWUID */
	A(0,0,0),	/* GPWENT */
	A(0,0,0),	/* SPWENT */
	A(0,0,0),	/* EPWENT */
	A(1,0,0),	/* GGRNAM */
	A(1,0,0),	/* GGRGID */
	A(0,0,0),	/* GGRENT */
	A(0,0,0),	/* SGRENT */
	A(0,0,0),	/* EGRENT */
	A(1,1,0),	/* SHUTDOWN */
	A(1,1,0),	/* OPENDIR */
	A(1,0,0),	/* READDIR */
	A(1,0,0),	/* TELLDIR */
	A(1,1,0),	/* SEEKDIR */
	A(1,0,0),	/* REWINDDIR */
	A(1,0,0),	/* CLOSEDIR */
	A(0,0,0),	/* GETLOGIN */
	A(1,3,0),	/* SYSCALL */
	A(1,1,1),	/* GSOCKOPT */
	A(1,1,1),	/* SSOCKOPT */
	A(1,0,0),	/* GETSOCKNAME */
	A(1,0,0),	/* GETPEERNAME */
	A(0,3,3),	/* LSLICE */
	A(0,3,1),	/* SPLICE */
	A(1,0,0),	/* BINMODE */
	A(1,0,0),	/* REQUIRE */
	A(1,1,0),	/* TRUNCATE */
	0
};
#undef A
#endif

int do_trans();
int do_split();
bool do_eof();
long do_tell();
bool do_seek();
int do_tms();
int do_time();
int do_stat();
STR *do_push();
FILE *nextargv();
STR *do_fttext();
int do_slice();
Commit	Line	Data
87250799	1	/* $Header: arg.h,v 3.0.1.6 90/08/09 02:25:14 lwall Locked $
a687059c	2	*
	3	* Copyright (c) 1989, Larry Wall
	4	*
	5	* You may distribute under the terms of the GNU General Public License
	6	* as specified in the README file that comes with the perl 3.0 kit.
8d063cd8	7	*
8d063cd8	8	* $Log: arg.h,v $
87250799	9	* Revision 3.0.1.6 90/08/09 02:25:14 lwall
	10	* patch19: added require operator
	11	* patch19: added truncate operator
	12	*
0f85fab0	13	* Revision 3.0.1.5 90/03/27 15:29:41 lwall
	14	* patch16: MSDOS support
	15	*
ff2452de	16	* Revision 3.0.1.4 90/03/12 16:18:21 lwall
	17	* patch13: added list slice operator (LIST)[LIST]
	18	* patch13: added splice operator: @oldelems = splice(@array,$offset,$len,LIST)
	19	*
449aadca	20	* Revision 3.0.1.3 90/02/28 16:21:55 lwall
	21	* patch9: added pipe function
	22	*
d8f2e4cc	23	* Revision 3.0.1.2 89/12/21 19:13:14 lwall
	24	* patch7: send() didn't allow a TO argument
	25	*
03a14243	26	* Revision 3.0.1.1 89/10/26 23:02:35 lwall
	27	* patch1: reverse didn't work
	28	*
a687059c	29	* Revision 3.0 89/10/18 15:08:27 lwall
a687059c	30	* 3.0 baseline
8d063cd8	31	*
	32	*/
	33
	34	#define O_NULL 0
	35	#define O_ITEM 1
	36	#define O_ITEM2 2
	37	#define O_ITEM3 3
	38	#define O_CONCAT 4
	39	#define O_MATCH 5
	40	#define O_NMATCH 6
	41	#define O_SUBST 7
	42	#define O_NSUBST 8
	43	#define O_ASSIGN 9
	44	#define O_MULTIPLY 10
	45	#define O_DIVIDE 11
	46	#define O_MODULO 12
	47	#define O_ADD 13
	48	#define O_SUBTRACT 14
	49	#define O_LEFT_SHIFT 15
	50	#define O_RIGHT_SHIFT 16
	51	#define O_LT 17
	52	#define O_GT 18
	53	#define O_LE 19
	54	#define O_GE 20
	55	#define O_EQ 21
	56	#define O_NE 22
	57	#define O_BIT_AND 23
	58	#define O_XOR 24
	59	#define O_BIT_OR 25
	60	#define O_AND 26
	61	#define O_OR 27
	62	#define O_COND_EXPR 28
	63	#define O_COMMA 29
	64	#define O_NEGATE 30
	65	#define O_NOT 31
	66	#define O_COMPLEMENT 32
	67	#define O_WRITE 33
	68	#define O_OPEN 34
	69	#define O_TRANS 35
	70	#define O_NTRANS 36
	71	#define O_CLOSE 37
	72	#define O_ARRAY 38
	73	#define O_HASH 39
	74	#define O_LARRAY 40
	75	#define O_LHASH 41
	76	#define O_PUSH 42
	77	#define O_POP 43
	78	#define O_SHIFT 44
	79	#define O_SPLIT 45
	80	#define O_LENGTH 46
	81	#define O_SPRINTF 47
	82	#define O_SUBSTR 48
	83	#define O_JOIN 49
	84	#define O_SLT 50
	85	#define O_SGT 51
	86	#define O_SLE 52
	87	#define O_SGE 53
	88	#define O_SEQ 54
	89	#define O_SNE 55
	90	#define O_SUBR 56
	91	#define O_PRINT 57
	92	#define O_CHDIR 58
	93	#define O_DIE 59
	94	#define O_EXIT 60
95	#define O_RESET 61
96	#define O_LIST 62
97	#define O_SELECT 63
98	#define O_EOF 64
99	#define O_TELL 65
100	#define O_SEEK 66
101	#define O_LAST 67
102	#define O_NEXT 68
103	#define O_REDO 69
104	#define O_GOTO 70
105	#define O_INDEX 71
106	#define O_TIME 72
107	#define O_TMS 73
108	#define O_LOCALTIME 74
109	#define O_GMTIME 75
110	#define O_STAT 76
111	#define O_CRYPT 77
112	#define O_EXP 78
113	#define O_LOG 79
114	#define O_SQRT 80
115	#define O_INT 81
116	#define O_PRTF 82
117	#define O_ORD 83
118	#define O_SLEEP 84
119	#define O_FLIP 85
120	#define O_FLOP 86
121	#define O_KEYS 87
122	#define O_VALUES 88
123	#define O_EACH 89
124	#define O_CHOP 90
125	#define O_FORK 91
126	#define O_EXEC 92
127	#define O_SYSTEM 93
128	#define O_OCT 94
129	#define O_HEX 95
130	#define O_CHMOD 96
131	#define O_CHOWN 97
132	#define O_KILL 98
133	#define O_RENAME 99
134	#define O_UNLINK 100
135	#define O_UMASK 101
136	#define O_UNSHIFT 102
137	#define O_LINK 103
138	#define O_REPEAT 104
a559c259	139	#define O_EVAL 105
378cc40b	140	#define O_FTEREAD 106
	141	#define O_FTEWRITE 107
	142	#define O_FTEEXEC 108
	143	#define O_FTEOWNED 109
	144	#define O_FTRREAD 110
	145	#define O_FTRWRITE 111
	146	#define O_FTREXEC 112
	147	#define O_FTROWNED 113
	148	#define O_FTIS 114
	149	#define O_FTZERO 115
	150	#define O_FTSIZE 116
	151	#define O_FTFILE 117
	152	#define O_FTDIR 118
	153	#define O_FTLINK 119
	154	#define O_SYMLINK 120
	155	#define O_FTPIPE 121
	156	#define O_FTSOCK 122
	157	#define O_FTBLK 123
	158	#define O_FTCHR 124
	159	#define O_FTSUID 125
	160	#define O_FTSGID 126
	161	#define O_FTSVTX 127
	162	#define O_FTTTY 128
	163	#define O_DOFILE 129
	164	#define O_FTTEXT 130
	165	#define O_FTBINARY 131
	166	#define O_UTIME 132
	167	#define O_WAIT 133
	168	#define O_SORT 134
	169	#define O_DELETE 135
	170	#define O_STUDY 136
a687059c	171	#define O_ATAN2 137
	172	#define O_SIN 138
	173	#define O_COS 139
	174	#define O_RAND 140
	175	#define O_SRAND 141
	176	#define O_POW 142
	177	#define O_RETURN 143
	178	#define O_GETC 144
	179	#define O_MKDIR 145
	180	#define O_RMDIR 146
	181	#define O_GETPPID 147
	182	#define O_GETPGRP 148
	183	#define O_SETPGRP 149
	184	#define O_GETPRIORITY 150
	185	#define O_SETPRIORITY 151
	186	#define O_CHROOT 152
	187	#define O_IOCTL 153
	188	#define O_FCNTL 154
	189	#define O_FLOCK 155
	190	#define O_RINDEX 156
	191	#define O_PACK 157
	192	#define O_UNPACK 158
	193	#define O_READ 159
	194	#define O_WARN 160
	195	#define O_DBMOPEN 161
	196	#define O_DBMCLOSE 162
	197	#define O_ASLICE 163
	198	#define O_HSLICE 164
	199	#define O_LASLICE 165
	200	#define O_LHSLICE 166
	201	#define O_F_OR_R 167
	202	#define O_RANGE 168
	203	#define O_RCAT 169
	204	#define O_AASSIGN 170
	205	#define O_SASSIGN 171
	206	#define O_DUMP 172
	207	#define O_REVERSE 173
	208	#define O_ADDROF 174
	209	#define O_SOCKET 175
	210	#define O_BIND 176
	211	#define O_CONNECT 177
	212	#define O_LISTEN 178
	213	#define O_ACCEPT 179
	214	#define O_SEND 180
	215	#define O_RECV 181
	216	#define O_SSELECT 182
87250799	217	#define O_SOCKPAIR 183
a687059c	218	#define O_DBSUBR 184
	219	#define O_DEFINED 185
	220	#define O_UNDEF 186
	221	#define O_READLINK 187
	222	#define O_LSTAT 188
	223	#define O_AELEM 189
	224	#define O_HELEM 190
	225	#define O_LAELEM 191
	226	#define O_LHELEM 192
	227	#define O_LOCAL 193
449aadca	228	#define O_PIPE 194
a687059c	229	#define O_FILENO 195
	230	#define O_GHBYNAME 196
	231	#define O_GHBYADDR 197
	232	#define O_GHOSTENT 198
	233	#define O_SHOSTENT 199
	234	#define O_EHOSTENT 200
	235	#define O_GSBYNAME 201
	236	#define O_GSBYPORT 202
	237	#define O_GSERVENT 203
	238	#define O_SSERVENT 204
	239	#define O_ESERVENT 205
	240	#define O_GPBYNAME 206
	241	#define O_GPBYNUMBER 207
	242	#define O_GPROTOENT 208
	243	#define O_SPROTOENT 209
	244	#define O_EPROTOENT 210
	245	#define O_GNBYNAME 211
	246	#define O_GNBYADDR 212
	247	#define O_GNETENT 213
	248	#define O_SNETENT 214
	249	#define O_ENETENT 215
	250	#define O_VEC 216
	251	#define O_GREP 217
	252	#define O_GPWNAM 218
	253	#define O_GPWUID 219
	254	#define O_GPWENT 220
	255	#define O_SPWENT 221
	256	#define O_EPWENT 222
	257	#define O_GGRNAM 223
	258	#define O_GGRGID 224
	259	#define O_GGRENT 225
	260	#define O_SGRENT 226
	261	#define O_EGRENT 227
	262	#define O_SHUTDOWN 228
	263	#define O_OPENDIR 229
	264	#define O_READDIR 230
	265	#define O_TELLDIR 231
	266	#define O_SEEKDIR 232
	267	#define O_REWINDDIR 233
	268	#define O_CLOSEDIR 234
	269	#define O_GETLOGIN 235
	270	#define O_SYSCALL 236
	271	#define O_GSOCKOPT 237
	272	#define O_SSOCKOPT 238
	273	#define O_GETSOCKNAME 239
	274	#define O_GETPEERNAME 240
ff2452de	275	#define O_LSLICE 241
ff2452de	276	#define O_SPLICE 242
0f85fab0	277	#define O_BINMODE 243
87250799	278	#define O_REQUIRE 244
	279	#define O_TRUNCATE 245
	280	#define MAXO 246
8d063cd8	281
	282	#ifndef DOINIT
	283	extern char *opname[];
	284	#else
	285	char *opname[] = {
	286	"NULL",
	287	"ITEM",
	288	"ITEM2",
	289	"ITEM3",
	290	"CONCAT",
	291	"MATCH",
	292	"NMATCH",
	293	"SUBST",
	294	"NSUBST",
	295	"ASSIGN",
	296	"MULTIPLY",
	297	"DIVIDE",
	298	"MODULO",
	299	"ADD",
	300	"SUBTRACT",
	301	"LEFT_SHIFT",
	302	"RIGHT_SHIFT",
	303	"LT",
	304	"GT",
	305	"LE",
	306	"GE",
	307	"EQ",
	308	"NE",
	309	"BIT_AND",
	310	"XOR",
	311	"BIT_OR",
	312	"AND",
	313	"OR",
	314	"COND_EXPR",
	315	"COMMA",
	316	"NEGATE",
	317	"NOT",
	318	"COMPLEMENT",
	319	"WRITE",
	320	"OPEN",
	321	"TRANS",
	322	"NTRANS",
	323	"CLOSE",
	324	"ARRAY",
	325	"HASH",
	326	"LARRAY",
	327	"LHASH",
	328	"PUSH",
	329	"POP",
	330	"SHIFT",
	331	"SPLIT",
	332	"LENGTH",
	333	"SPRINTF",
	334	"SUBSTR",
	335	"JOIN",
	336	"SLT",
	337	"SGT",
	338	"SLE",
	339	"SGE",
	340	"SEQ",
	341	"SNE",
	342	"SUBR",
	343	"PRINT",
	344	"CHDIR",
345	"DIE",
346	"EXIT",
347	"RESET",
348	"LIST",
349	"SELECT",
350	"EOF",
351	"TELL",
352	"SEEK",
353	"LAST",
354	"NEXT",
355	"REDO",
356	"GOTO",/* shudder */
357	"INDEX",
358	"TIME",
359	"TIMES",
360	"LOCALTIME",
361	"GMTIME",
362	"STAT",
363	"CRYPT",
364	"EXP",
365	"LOG",
366	"SQRT",
367	"INT",
368	"PRINTF",
369	"ORD",
370	"SLEEP",
371	"FLIP",
372	"FLOP",
373	"KEYS",
374	"VALUES",
375	"EACH",
376	"CHOP",
377	"FORK",
378	"EXEC",
379	"SYSTEM",
380	"OCT",
381	"HEX",
382	"CHMOD",
383	"CHOWN",
384	"KILL",
385	"RENAME",
386	"UNLINK",
387	"UMASK",
388	"UNSHIFT",
389	"LINK",
390	"REPEAT",
a559c259	391	"EVAL",
378cc40b	392	"FTEREAD",
	393	"FTEWRITE",
	394	"FTEEXEC",
	395	"FTEOWNED",
	396	"FTRREAD",
	397	"FTRWRITE",
	398	"FTREXEC",
	399	"FTROWNED",
	400	"FTIS",
	401	"FTZERO",
	402	"FTSIZE",
	403	"FTFILE",
	404	"FTDIR",
	405	"FTLINK",
	406	"SYMLINK",
	407	"FTPIPE",
	408	"FTSOCK",
	409	"FTBLK",
	410	"FTCHR",
	411	"FTSUID",
	412	"FTSGID",
	413	"FTSVTX",
	414	"FTTTY",
	415	"DOFILE",
	416	"FTTEXT",
	417	"FTBINARY",
	418	"UTIME",
	419	"WAIT",
	420	"SORT",
	421	"DELETE",
	422	"STUDY",
a687059c	423	"ATAN2",
	424	"SIN",
	425	"COS",
	426	"RAND",
	427	"SRAND",
	428	"POW",
	429	"RETURN",
	430	"GETC",
	431	"MKDIR",
	432	"RMDIR",
	433	"GETPPID",
	434	"GETPGRP",
	435	"SETPGRP",
	436	"GETPRIORITY",
	437	"SETPRIORITY",
	438	"CHROOT",
	439	"IOCTL",
	440	"FCNTL",
	441	"FLOCK",
	442	"RINDEX",
	443	"PACK",
	444	"UNPACK",
	445	"READ",
	446	"WARN",
	447	"DBMOPEN",
	448	"DBMCLOSE",
	449	"ASLICE",
	450	"HSLICE",
	451	"LASLICE",
	452	"LHSLICE",
	453	"FLIP_OR_RANGE",
	454	"RANGE",
	455	"RCAT",
	456	"AASSIGN",
	457	"SASSIGN",
	458	"DUMP",
	459	"REVERSE",
	460	"ADDRESS_OF",
	461	"SOCKET",
	462	"BIND",
	463	"CONNECT",
	464	"LISTEN",
	465	"ACCEPT",
	466	"SEND",
	467	"RECV",
	468	"SSELECT",
87250799	469	"SOCKPAIR",
a687059c	470	"DBSUBR",
	471	"DEFINED",
	472	"UNDEF",
	473	"READLINK",
	474	"LSTAT",
	475	"AELEM",
	476	"HELEM",
	477	"LAELEM",
	478	"LHELEM",
	479	"LOCAL",
449aadca	480	"PIPE",
a687059c	481	"FILENO",
	482	"GHBYNAME",
	483	"GHBYADDR",
	484	"GHOSTENT",
	485	"SHOSTENT",
	486	"EHOSTENT",
	487	"GSBYNAME",
	488	"GSBYPORT",
	489	"GSERVENT",
	490	"SSERVENT",
	491	"ESERVENT",
	492	"GPBYNAME",
	493	"GPBYNUMBER",
	494	"GPROTOENT",
	495	"SPROTOENT",
	496	"EPROTOENT",
	497	"GNBYNAME",
	498	"GNBYADDR",
	499	"GNETENT",
	500	"SNETENT",
	501	"ENETENT",
	502	"VEC",
	503	"GREP",
	504	"GPWNAM",
	505	"GPWUID",
	506	"GPWENT",
	507	"SPWENT",
	508	"EPWENT",
	509	"GGRNAM",
	510	"GGRGID",
	511	"GGRENT",
	512	"SGRENT",
	513	"EGRENT",
	514	"SHUTDOWN",
	515	"OPENDIR",
	516	"READDIR",
	517	"TELLDIR",
	518	"SEEKDIR",
	519	"REWINDDIR",
	520	"CLOSEDIR",
	521	"GETLOGIN",
	522	"SYSCALL",
	523	"GSOCKOPT",
	524	"SSOCKOPT",
	525	"GETSOCKNAME",
	526	"GETPEERNAME",
ff2452de	527	"LSLICE",
ff2452de	528	"SPLICE",
0f85fab0	529	"BINMODE",
87250799	530	"REQUIRE",
	531	"TRUNCATE",
	532	"245"
8d063cd8	533	};
	534	#endif
	535
	536	#define A_NULL 0
	537	#define A_EXPR 1
	538	#define A_CMD 2
	539	#define A_STAB 3
	540	#define A_LVAL 4
	541	#define A_SINGLE 5
	542	#define A_DOUBLE 6
	543	#define A_BACKTICK 7
	544	#define A_READ 8
	545	#define A_SPAT 9
	546	#define A_LEXPR 10
	547	#define A_ARYLEN 11
a687059c	548	#define A_ARYSTAB 12
378cc40b	549	#define A_LARYLEN 13
	550	#define A_GLOB 14
	551	#define A_WORD 15
	552	#define A_INDREAD 16
a687059c	553	#define A_LARYSTAB 17
	554	#define A_STAR 18
	555	#define A_LSTAR 19
	556	#define A_WANTARRAY 20
	557
	558	#define A_MASK 31
	559	#define A_DONT 32 /* or this into type to suppress evaluation */
8d063cd8	560
	561	#ifndef DOINIT
	562	extern char *argname[];
	563	#else
	564	char *argname[] = {
	565	"A_NULL",
	566	"EXPR",
	567	"CMD",
	568	"STAB",
	569	"LVAL",
	570	"SINGLE",
	571	"DOUBLE",
	572	"BACKTICK",
	573	"READ",
	574	"SPAT",
	575	"LEXPR",
	576	"ARYLEN",
a687059c	577	"ARYSTAB",
378cc40b	578	"LARYLEN",
	579	"GLOB",
	580	"WORD",
	581	"INDREAD",
a687059c	582	"LARYSTAB",
	583	"STAR",
	584	"LSTAR",
	585	"WANTARRAY",
	586	"21"
8d063cd8	587	};
	588	#endif
	589
	590	#ifndef DOINIT
	591	extern bool hoistable[];
	592	#else
a687059c	593	bool hoistable[] =
	594	{0, /* A_NULL */
	595	0, /* EXPR */
	596	1, /* CMD */
	597	1, /* STAB */
	598	0, /* LVAL */
	599	1, /* SINGLE */
	600	0, /* DOUBLE */
	601	0, /* BACKTICK */
	602	0, /* READ */
	603	0, /* SPAT */
	604	0, /* LEXPR */
	605	1, /* ARYLEN */
	606	1, /* ARYSTAB */
	607	0, /* LARYLEN */
	608	0, /* GLOB */
	609	1, /* WORD */
	610	0, /* INDREAD */
	611	0, /* LARYSTAB */
	612	1, /* STAR */
	613	1, /* LSTAR */
	614	1, /* WANTARRAY */
	615	0, /* 21 */
	616	};
8d063cd8	617	#endif
8d063cd8	618
378cc40b	619	union argptr {
	620	ARG *arg_arg;
	621	char *arg_cval;
	622	STAB *arg_stab;
	623	SPAT *arg_spat;
	624	CMD *arg_cmd;
	625	STR *arg_str;
a687059c	626	HASH *arg_hash;
378cc40b	627	};
378cc40b	628
8d063cd8	629	struct arg {
378cc40b	630	union argptr arg_ptr;
8d063cd8	631	short arg_len;
a687059c	632	#ifdef mips
	633	short pad;
	634	#endif
378cc40b	635	unsigned char arg_type;
378cc40b	636	unsigned char arg_flags;
8d063cd8	637	};
8d063cd8	638
a687059c	639	#define AF_ARYOK 1 /* op can handle multiple values here */
8d063cd8	640	#define AF_POST 2 /* post crement this item /
	641	#define AF_PRE 4 /* pre crement this item /
	642	#define AF_UP 8 /* increment rather than decrement */
	643	#define AF_COMMON 16 /* left and right have symbols in common */
a687059c	644	#define AF_UNUSED 32 /* */
8d063cd8	645	#define AF_LISTISH 64 /* turn into list if important */
378cc40b	646	#define AF_LOCAL 128 /* list of local variables */
8d063cd8	647
	648	/*
	649	* Most of the ARG pointers are used as pointers to arrays of ARG. When
	650	* so used, the 0th element is special, and represents the operator to
	651	* use on the list of arguments following. The arg_len in the 0th element
	652	* gives the maximum argument number, and the arg_str is used to store
	653	* the return value in a more-or-less static location. Sorry it's not
a687059c	654	* re-entrant (yet), but it sure makes it efficient. The arg_type of the
8d063cd8	655	* 0th element is an operator (O_) rather than an argument type (A_).
	656	*/
	657
	658	#define Nullarg Null(ARG*)
	659
a687059c	660	#ifndef DOINIT
	661	EXT char opargs[MAXO+1];
	662	#else
	663	#define A(e1,e2,e3) (e1+(e2<<2)+(e3<<4))
	664	char opargs[MAXO+1] = {
	665	A(0,0,0), /* NULL */
	666	A(1,0,0), /* ITEM */
	667	A(0,0,0), /* ITEM2 */
	668	A(0,0,0), /* ITEM3 */
	669	A(1,1,0), /* CONCAT */
	670	A(1,0,0), /* MATCH */
	671	A(1,0,0), /* NMATCH */
	672	A(1,0,0), /* SUBST */
	673	A(1,0,0), /* NSUBST */
	674	A(1,1,0), /* ASSIGN */
	675	A(1,1,0), /* MULTIPLY */
	676	A(1,1,0), /* DIVIDE */
	677	A(1,1,0), /* MODULO */
	678	A(1,1,0), /* ADD */
	679	A(1,1,0), /* SUBTRACT */
	680	A(1,1,0), /* LEFT_SHIFT */
	681	A(1,1,0), /* RIGHT_SHIFT */
	682	A(1,1,0), /* LT */
	683	A(1,1,0), /* GT */
	684	A(1,1,0), /* LE */
	685	A(1,1,0), /* GE */
	686	A(1,1,0), /* EQ */
	687	A(1,1,0), /* NE */
	688	A(1,1,0), /* BIT_AND */
	689	A(1,1,0), /* XOR */
	690	A(1,1,0), /* BIT_OR */
	691	A(1,0,0), /* AND */
	692	A(1,0,0), /* OR */
	693	A(1,0,0), /* COND_EXPR */
	694	A(1,1,0), /* COMMA */
	695	A(1,0,0), /* NEGATE */
	696	A(1,0,0), /* NOT */
	697	A(1,0,0), /* COMPLEMENT */
	698	A(1,0,0), /* WRITE */
	699	A(1,1,0), /* OPEN */
	700	A(1,0,0), /* TRANS */
	701	A(1,0,0), /* NTRANS */
	702	A(1,0,0), /* CLOSE */
	703	A(0,0,0), /* ARRAY */
	704	A(0,0,0), /* HASH */
	705	A(0,0,0), /* LARRAY */
	706	A(0,0,0), /* LHASH */
	707	A(0,3,0), /* PUSH */
	708	A(0,0,0), /* POP */
	709	A(0,0,0), /* SHIFT */
	710	A(1,0,1), /* SPLIT */
	711	A(1,0,0), /* LENGTH */
	712	A(3,0,0), /* SPRINTF */
	713	A(1,1,1), /* SUBSTR */
	714	A(1,3,0), /* JOIN */
	715	A(1,1,0), /* SLT */
	716	A(1,1,0), /* SGT */
	717	A(1,1,0), /* SLE */
	718	A(1,1,0), /* SGE */
	719	A(1,1,0), /* SEQ */
	720	A(1,1,0), /* SNE */
	721	A(0,3,0), /* SUBR */
	722	A(1,3,0), /* PRINT */
	723	A(1,0,0), /* CHDIR */
724	A(0,3,0), /* DIE */
725	A(1,0,0), /* EXIT */
726	A(1,0,0), /* RESET */
727	A(3,0,0), /* LIST */
728	A(1,0,0), /* SELECT */
729	A(1,0,0), /* EOF */
730	A(1,0,0), /* TELL */
731	A(1,1,1), /* SEEK */
732	A(0,0,0), /* LAST */
733	A(0,0,0), /* NEXT */
734	A(0,0,0), /* REDO */
735	A(0,0,0), /* GOTO */
736	A(1,1,0), /* INDEX */
737	A(0,0,0), /* TIME */
738	A(0,0,0), /* TIMES */
739	A(1,0,0), /* LOCALTIME */
740	A(1,0,0), /* GMTIME */
741	A(1,0,0), /* STAT */
742	A(1,1,0), /* CRYPT */
743	A(1,0,0), /* EXP */
744	A(1,0,0), /* LOG */
745	A(1,0,0), /* SQRT */
746	A(1,0,0), /* INT */
747	A(1,3,0), /* PRINTF */
748	A(1,0,0), /* ORD */
749	A(1,0,0), /* SLEEP */
750	A(1,0,0), /* FLIP */
751	A(0,1,0), /* FLOP */
752	A(0,0,0), /* KEYS */
753	A(0,0,0), /* VALUES */
754	A(0,0,0), /* EACH */
755	A(3,0,0), /* CHOP */
756	A(0,0,0), /* FORK */
757	A(1,3,0), /* EXEC */
758	A(1,3,0), /* SYSTEM */
759	A(1,0,0), /* OCT */
760	A(1,0,0), /* HEX */
761	A(0,3,0), /* CHMOD */
762	A(0,3,0), /* CHOWN */
763	A(0,3,0), /* KILL */
764	A(1,1,0), /* RENAME */
765	A(0,3,0), /* UNLINK */
766	A(1,0,0), /* UMASK */
767	A(0,3,0), /* UNSHIFT */
768	A(1,1,0), /* LINK */
769	A(1,1,0), /* REPEAT */
770	A(1,0,0), /* EVAL */
771	A(1,0,0), /* FTEREAD */
772	A(1,0,0), /* FTEWRITE */
773	A(1,0,0), /* FTEEXEC */
774	A(1,0,0), /* FTEOWNED */
775	A(1,0,0), /* FTRREAD */
776	A(1,0,0), /* FTRWRITE */
777	A(1,0,0), /* FTREXEC */
778	A(1,0,0), /* FTROWNED */
779	A(1,0,0), /* FTIS */
780	A(1,0,0), /* FTZERO */
781	A(1,0,0), /* FTSIZE */
782	A(1,0,0), /* FTFILE */
783	A(1,0,0), /* FTDIR */
784	A(1,0,0), /* FTLINK */
785	A(1,1,0), /* SYMLINK */
786	A(1,0,0), /* FTPIPE */
787	A(1,0,0), /* FTSOCK */
788	A(1,0,0), /* FTBLK */
789	A(1,0,0), /* FTCHR */
790	A(1,0,0), /* FTSUID */
791	A(1,0,0), /* FTSGID */
792	A(1,0,0), /* FTSVTX */
793	A(1,0,0), /* FTTTY */
794	A(1,0,0), /* DOFILE */
795	A(1,0,0), /* FTTEXT */
796	A(1,0,0), /* FTBINARY */
797	A(0,3,0), /* UTIME */
798	A(0,0,0), /* WAIT */
799	A(1,3,0), /* SORT */
800	A(0,1,0), /* DELETE */
801	A(1,0,0), /* STUDY */
802	A(1,1,0), /* ATAN2 */
803	A(1,0,0), /* SIN */
804	A(1,0,0), /* COS */
805	A(1,0,0), /* RAND */
806	A(1,0,0), /* SRAND */
807	A(1,1,0), /* POW */
808	A(0,3,0), /* RETURN */
809	A(1,0,0), /* GETC */
810	A(1,1,0), /* MKDIR */
811	A(1,0,0), /* RMDIR */
812	A(0,0,0), /* GETPPID */
813	A(1,0,0), /* GETPGRP */
814	A(1,1,0), /* SETPGRP */
815	A(1,1,0), /* GETPRIORITY */
816	A(1,1,1), /* SETPRIORITY */
817	A(1,0,0), /* CHROOT */
818	A(1,1,1), /* IOCTL */
819	A(1,1,1), /* FCNTL */
820	A(1,1,0), /* FLOCK */
821	A(1,1,0), /* RINDEX */
822	A(1,3,0), /* PACK */
823	A(1,1,0), /* UNPACK */
824	A(1,1,1), /* READ */
825	A(0,3,0), /* WARN */
826	A(1,1,1), /* DBMOPEN */
827	A(1,0,0), /* DBMCLOSE */
828	A(0,3,0), /* ASLICE */
829	A(0,3,0), /* HSLICE */
830	A(0,3,0), /* LASLICE */
831	A(0,3,0), /* LHSLICE */
832	A(1,0,0), /* F_OR_R */
833	A(1,1,0), /* RANGE */
834	A(1,1,0), /* RCAT */
835	A(3,3,0), /* AASSIGN */
836	A(0,0,0), /* SASSIGN */
837	A(0,0,0), /* DUMP */
03a14243	838	A(0,3,0), /* REVERSE */
a687059c	839	A(1,0,0), /* ADDROF */
	840	A(1,1,1), /* SOCKET */
	841	A(1,1,0), /* BIND */
	842	A(1,1,0), /* CONNECT */
	843	A(1,1,0), /* LISTEN */
	844	A(1,1,0), /* ACCEPT */
d8f2e4cc	845	A(1,1,3), /* SEND */
a687059c	846	A(1,1,1), /* RECV */
a687059c	847	A(1,1,1), /* SSELECT */
87250799	848	A(1,1,1), /* SOCKPAIR */
a687059c	849	A(0,3,0), /* DBSUBR */
	850	A(1,0,0), /* DEFINED */
	851	A(1,0,0), /* UNDEF */
	852	A(1,0,0), /* READLINK */
	853	A(1,0,0), /* LSTAT */
	854	A(0,1,0), /* AELEM */
	855	A(0,1,0), /* HELEM */
	856	A(0,1,0), /* LAELEM */
	857	A(0,1,0), /* LHELEM */
	858	A(1,0,0), /* LOCAL */
87250799	859	A(1,1,0), /* PIPE */
a687059c	860	A(1,0,0), /* FILENO */
	861	A(1,0,0), /* GHBYNAME */
	862	A(1,1,0), /* GHBYADDR */
	863	A(0,0,0), /* GHOSTENT */
	864	A(1,0,0), /* SHOSTENT */
	865	A(0,0,0), /* EHOSTENT */
	866	A(1,1,0), /* GSBYNAME */
	867	A(1,1,0), /* GSBYPORT */
	868	A(0,0,0), /* GSERVENT */
	869	A(1,0,0), /* SSERVENT */
	870	A(0,0,0), /* ESERVENT */
	871	A(1,0,0), /* GPBYNAME */
	872	A(1,0,0), /* GPBYNUMBER */
	873	A(0,0,0), /* GPROTOENT */
	874	A(1,0,0), /* SPROTOENT */
	875	A(0,0,0), /* EPROTOENT */
	876	A(1,0,0), /* GNBYNAME */
	877	A(1,1,0), /* GNBYADDR */
	878	A(0,0,0), /* GNETENT */
	879	A(1,0,0), /* SNETENT */
	880	A(0,0,0), /* ENETENT */
	881	A(1,1,1), /* VEC */
	882	A(0,3,0), /* GREP */
	883	A(1,0,0), /* GPWNAM */
	884	A(1,0,0), /* GPWUID */
	885	A(0,0,0), /* GPWENT */
	886	A(0,0,0), /* SPWENT */
	887	A(0,0,0), /* EPWENT */
	888	A(1,0,0), /* GGRNAM */
	889	A(1,0,0), /* GGRGID */
	890	A(0,0,0), /* GGRENT */
	891	A(0,0,0), /* SGRENT */
	892	A(0,0,0), /* EGRENT */
	893	A(1,1,0), /* SHUTDOWN */
	894	A(1,1,0), /* OPENDIR */
	895	A(1,0,0), /* READDIR */
	896	A(1,0,0), /* TELLDIR */
	897	A(1,1,0), /* SEEKDIR */
	898	A(1,0,0), /* REWINDDIR */
	899	A(1,0,0), /* CLOSEDIR */
	900	A(0,0,0), /* GETLOGIN */
	901	A(1,3,0), /* SYSCALL */
	902	A(1,1,1), /* GSOCKOPT */
	903	A(1,1,1), /* SSOCKOPT */
	904	A(1,0,0), /* GETSOCKNAME */
	905	A(1,0,0), /* GETPEERNAME */
ff2452de	906	A(0,3,3), /* LSLICE */
ff2452de	907	A(0,3,1), /* SPLICE */
0f85fab0	908	A(1,0,0), /* BINMODE */
87250799	909	A(1,0,0), /* REQUIRE */
87250799	910	A(1,1,0), /* TRUNCATE */
a687059c	911	0
	912	};
	913	#undef A
	914	#endif
8d063cd8	915
	916	int do_trans();
	917	int do_split();
	918	bool do_eof();
	919	long do_tell();
	920	bool do_seek();
	921	int do_tms();
	922	int do_time();
	923	int do_stat();
378cc40b	924	STR *do_push();
	925	FILE *nextargv();
	926	STR *do_fttext();
a687059c	927	int do_slice();