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