perl 3.0 patch #38 (combined patch)

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

/* $Header: arg.h,v 3.0.1.8 90/11/10 01:04:36 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.8  90/11/10  01:04:36  lwall
 * patch38: added alarm function
 * patch38: socket, recv, select, socketpair, setsockopt didn't eval all args
 * 
 * Revision 3.0.1.7  90/10/15  14:53:59  lwall
 * patch29: added SysV IPC
 * patch29: added waitpid
 * patch29: added cmp and <=>
 * patch29: added caller
 * patch29: added scalar
 * patch29: added sysread and syswrite
 * patch29: added -M, -A and -C
 * patch29: index and substr now have optional 3rd args
 * patch29: you can now read into the middle string
 * patch29: various portability fixes
 * 
 * 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_OP 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 O_MSGGET 246
#define O_MSGCTL 247
#define O_MSGSND 248
#define O_MSGRCV 249
#define O_SEMGET 250
#define O_SEMCTL 251
#define O_SEMOP 252
#define O_SHMGET 253
#define O_SHMCTL 254
#define O_SHMREAD 255
#define O_SHMWRITE 256
#define O_NCMP 257
#define O_SCMP 258
#define O_CALLER 259
#define O_SCALAR 260
#define O_SYSREAD 261
#define O_SYSWRITE 262
#define O_FTMTIME 263
#define O_FTATIME 264
#define O_FTCTIME 265
#define O_WAITPID 266
#define O_ALARM 267
#define MAXO 268

#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",
    "MSGGET",
    "MSGCTL",
    "MSGSND",
    "MSGRCV",
    "SEMGET",
    "SEMCTL",
    "SEMOP",
    "SHMGET",
    "SHMCTL",
    "SHMREAD",
    "SHMWRITE",
    "NCMP",
    "SCMP",
    "CALLER",
    "SCALAR",
    "SYSREAD",
    "SYSWRITE",
    "FTMTIME",
    "FTATIME",
    "FTCTIME",
    "WAITPID",
    "ALARM",
    "268"
};
#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;
    unsigned short arg_type;
    unsigned short 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 unsigned short opargs[MAXO+1];
#else
#define A(e1,e2,e3)        (e1+(e2<<2)+(e3<<4))
#define A5(e1,e2,e3,e4,e5) (e1+(e2<<2)+(e3<<4)+(e4<<6)+(e5<<8))
unsigned short 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,1),       /* 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,1),       /* RINDEX */
        A(1,3,0),       /* PACK */
        A(1,1,0),       /* UNPACK */
        A(1,1,3),       /* 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 */
        A5(1,1,1,1,0),  /* 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 */
        A5(1,1,1,1,0),  /* RECV */
        A5(1,1,1,1,0),  /* SSELECT */
        A5(1,1,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 */
        A5(1,1,1,1,0),  /* 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 */
        A(1,1,0),       /* MSGGET */
        A(1,1,1),       /* MSGCTL */
        A(1,1,1),       /* MSGSND */
        A5(1,1,1,1,1),  /* MSGRCV */
        A(1,1,1),       /* SEMGET */
        A5(1,1,1,1,0),  /* SEMCTL */
        A(1,1,1),       /* SEMOP */
        A(1,1,1),       /* SHMGET */
        A(1,1,1),       /* SHMCTL */
        A5(1,1,1,1,0),  /* SHMREAD */
        A5(1,1,1,1,0),  /* SHMWRITE */
        A(1,1,0),       /* NCMP */
        A(1,1,0),       /* SCMP */
        A(1,0,0),       /* CALLER */
        A(1,0,0),       /* SCALAR */
        A(1,1,3),       /* SYSREAD */
        A(1,1,3),       /* SYSWRITE */
        A(1,0,0),       /* FTMTIME */
        A(1,0,0),       /* FTATIME */
        A(1,0,0),       /* FTCTIME */
        A(1,1,0),       /* WAITPID */
        A(1,0,0),       /* ALARM */
        0
};
#undef A
#undef A5
#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();