arg.h

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