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