This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 3
[perl5.git] / opcode.pl
1 #!/usr/bin/perl
2
3 open(OC, ">opcode.h") || die "Can't create opcode.h: $!\n";
4 select OC;
5
6 # Read data.
7
8 while (<DATA>) {
9     chop;
10     next unless $_;
11     next if /^#/;
12     ($key, $name, $check, $flags, $args) = split(/\t+/, $_, 5);
13     push(@ops, $key);
14     $name{$key} = $name;
15     $check{$key} = $check;
16     $ckname{$check}++;
17     $flags{$key} = $flags;
18     $args{$key} = $args;
19 }
20
21 # Emit defines.
22
23 $i = 0;
24 print "typedef enum {\n";
25 for (@ops) {
26     print "\t", &tab(3,"OP_\U$_,"), "/* ", $i++, " */\n";
27 }
28 print "} opcode;\n";
29 print "\n#define MAXO ", scalar @ops, "\n\n"; 
30
31 # Emit opnames.
32
33 print <<END;
34 #ifndef DOINIT
35 extern char *op_name[];
36 #else
37 char *op_name[] = {
38 END
39
40 for (@ops) {
41     print qq(\t"$name{$_}",\n);
42 }
43
44 print <<END;
45 };
46 #endif
47
48 END
49
50 # Emit function declarations.
51
52 for (sort keys %ckname) {
53     print "OP *\t", &tab(3,$_),"P((OP* op));\n";
54 }
55
56 print "\n";
57
58 for (@ops) {
59     print "OP *\t", &tab(3, "pp_\L$_"), "P((ARGSproto));\n";
60 }
61
62 # Emit ppcode switch array.
63
64 print <<END;
65
66 #ifndef DOINIT
67 extern OP * (*ppaddr[])();
68 #else
69 OP * (*ppaddr[])() = {
70 END
71
72 for (@ops) {
73     print "\tpp_\L$_,\n";
74 }
75
76 print <<END;
77 };
78 #endif
79
80 END
81
82 # Emit check routines.
83
84 print <<END;
85 #ifndef DOINIT
86 extern OP * (*check[])();
87 #else
88 OP * (*check[])() = {
89 END
90
91 for (@ops) {
92     print "\t", &tab(3, "$check{$_},"), "/* \L$_ */\n";
93 }
94
95 print <<END;
96 };
97 #endif
98
99 END
100
101 # Emit allowed argument types.
102
103 print <<END;
104 #ifndef DOINIT
105 EXT U32 opargs[];
106 #else
107 U32 opargs[] = {
108 END
109
110 %argnum = (
111     S,  1,              # scalar
112     L,  2,              # list
113     A,  3,              # array value
114     H,  4,              # hash value
115     C,  5,              # code value
116     F,  6,              # file value
117     R,  7,              # scalar reference
118 );
119
120 for (@ops) {
121     $argsum = 0;
122     $flags = $flags{$_};
123     $argsum |= 1 if $flags =~ /m/;              # needs stack mark
124     $argsum |= 2 if $flags =~ /f/;              # fold constants
125     $argsum |= 4 if $flags =~ /s/;              # always produces scalar
126     $argsum |= 8 if $flags =~ /t/;              # needs target scalar
127     $argsum |= 16 if $flags =~ /i/;             # always produces integer
128     $argsum |= 32 if $flags =~ /I/;             # has corresponding int op
129     $argsum |= 64 if $flags =~ /d/;             # danger, unknown side effects
130     $mul = 256;
131     for $arg (split(' ',$args{$_})) {
132         $argnum = ($arg =~ s/\?//) ? 8 : 0;
133         $argnum += $argnum{$arg};
134         $argsum += $argnum * $mul;
135         $mul <<= 4;
136     }
137     $argsum = sprintf("0x%08x", $argsum);
138     print "\t", &tab(3, "$argsum,"), "/* \L$_ */\n";
139 }
140
141 print <<END;
142 };
143 #endif
144 END
145
146 ###########################################################################
147 sub tab {
148     local($l, $t) = @_;
149     $t .= "\t" x ($l - (length($t) + 1) / 8);
150     $t;
151 }
152 ###########################################################################
153 __END__
154
155 # Nothing.
156
157 null            null operation          ck_null         0       
158 stub            stub                    ck_null         0
159 scalar          scalar                  ck_fun          s       S
160
161 # Pushy stuff.
162
163 pushmark        pushmark                ck_null         s       
164 wantarray       wantarray               ck_null         is      
165
166 const           constant item           ck_null         s       
167 interp          interpreted string      ck_null         0       
168
169 gvsv            scalar variable         ck_null         ds      
170 gv              glob value              ck_null         ds      
171 padsv           private variable        ck_null         0
172 padav           private array           ck_null         0
173 padhv           private hash            ck_null         0
174
175 pushre          push regexp             ck_null         0
176
177 # References and stuff.
178
179 rv2gv           ref-to-glob cast        ck_rvconst      ds      
180 sv2len          scalar value length     ck_null         ist     
181 rv2sv           ref-to-scalar cast      ck_rvconst      ds      
182 av2arylen       array length            ck_null         is      
183 rv2cv           subroutine reference    ck_rvconst      d
184 refgen          backslash reference     ck_null         fst     L
185 ref             reference-type operator ck_fun          st      S
186 bless           bless                   ck_fun          s       S
187
188 # Pushy I/O.
189
190 backtick        backticks               ck_null         t       
191 glob            glob                    ck_glob         t       
192 readline        <HANDLE>                ck_null         t       
193 rcatline        append I/O operator     ck_null         t       
194
195 # Bindable operators.
196
197 regcomp         regexp compilation      ck_null         s       S
198 match           pattern match           ck_match        d
199 subst           substitution            ck_null         dis     S
200 substcont       substitution cont       ck_null         dis     
201 trans           character translation   ck_null         is      S
202
203 # Lvalue operators.
204
205 sassign         scalar assignment       ck_null         s
206 aassign         list assignment         ck_null         t       L L
207
208 schop           scalar chop             ck_null         t
209 chop            chop                    ck_chop         mt      L
210 defined         defined operator        ck_lfun         is      S?
211 undef           undef operator          ck_lfun         s       S?
212 study           study                   ck_fun          st      S?
213
214 preinc          preincrement            ck_lfun         s       S
215 predec          predecrement            ck_lfun         s       S
216 postinc         postincrement           ck_lfun         st      S
217 postdec         postdecrement           ck_lfun         st      S
218
219 # Ordinary operators.
220
221 pow             exponentiation          ck_null         fst     S S
222
223 multiply        multiplication          ck_null         fst     S S
224 divide          division                ck_null         fst     S S
225 modulo          modulus                 ck_null         ifst    S S
226 repeat          repeat                  ck_repeat       mt      L S
227
228 add             addition                ck_null         Ifst    S S
229 intadd          integer addition        ck_null         ifst    S S
230 subtract        subtraction             ck_null         fst     S S
231 concat          concatenation           ck_concat       fst     S S
232
233 left_shift      left bitshift           ck_null         ifst    S S
234 right_shift     right bitshift          ck_null         ifst    S S
235
236 lt              numeric lt              ck_null         ifs     S S
237 gt              numeric gt              ck_null         ifs     S S
238 le              numeric le              ck_null         ifs     S S
239 ge              numeric ge              ck_null         ifs     S S
240 eq              numeric eq              ck_null         ifs     S S
241 ne              numeric ne              ck_null         ifs     S S
242 ncmp            spaceship               ck_null         ifst    S S
243
244 slt             string lt               ck_null         ifs     S S
245 sgt             string gt               ck_null         ifs     S S
246 sle             string le               ck_null         ifs     S S
247 sge             string ge               ck_null         ifs     S S
248 seq             string eq               ck_null         ifs     S S
249 sne             string ne               ck_null         ifs     S S
250 scmp            string comparison       ck_null         ifst    S S
251
252 bit_and         bit and                 ck_null         fst     S S
253 xor             xor                     ck_null         fst     S S
254 bit_or          bit or                  ck_null         fst     S S
255
256 negate          negate                  ck_null         fst     S
257 not             not                     ck_null         ifs     S
258 complement      1's complement          ck_null         fst     S
259
260 # High falutin' math.
261
262 atan2           atan2                   ck_fun          fst     S S
263 sin             sin                     ck_fun          fst     S?
264 cos             cos                     ck_fun          fst     S?
265 rand            rand                    ck_fun          st      S?
266 srand           srand                   ck_fun          s       S?
267 exp             exp                     ck_fun          fst     S?
268 log             log                     ck_fun          fst     S?
269 sqrt            sqrt                    ck_fun          fst     S?
270
271 int             int                     ck_fun          fst     S?
272 hex             hex                     ck_fun          ist     S?
273 oct             oct                     ck_fun          ist     S?
274
275 # String stuff.
276
277 length          length                  ck_lengthconst  ist     S
278 substr          substr                  ck_fun          st      S S S?
279 vec             vec                     ck_fun          ist     S S S
280
281 index           index                   ck_index        ist     S S S?
282 rindex          rindex                  ck_index        ist     S S S?
283
284 sprintf         sprintf                 ck_fun          mst     S L
285 formline        formline                ck_formline     ms      S L
286 ord             ord                     ck_fun          ifst    S?
287 crypt           crypt                   ck_fun          fst     S S
288 ucfirst         upper case first        ck_fun          ft      S
289 lcfirst         lower case first        ck_fun          ft      S
290 uc              upper case              ck_fun          ft      S
291 lc              lower case              ck_fun          ft      S
292
293 # Arrays.
294
295 rv2av           array deref             ck_rvconst      dt      
296 aelemfast       known array element     ck_null         s       A S
297 aelem           array element           ck_aelem        s       A S
298 aslice          array slice             ck_null         m       A L
299
300 # Associative arrays.
301
302 each            each                    ck_fun          t       H
303 values          values                  ck_fun          t       H
304 keys            keys                    ck_fun          t       H
305 delete          delete                  ck_null         s       H S
306 rv2hv           associative array deref ck_rvconst      dt      
307 helem           associative array elem  ck_null         s       H S
308 hslice          associative array slice ck_null         m       H L
309
310 # Explosives and implosives.
311
312 unpack          unpack                  ck_fun          0       S S
313 pack            pack                    ck_fun          mst     S L
314 split           split                   ck_split        t       S S S
315 join            join                    ck_fun          mst     S L
316
317 # List operators.
318
319 list            list                    ck_null         m       L
320 lslice          list slice              ck_null         0       H L L
321 anonlist        anonymous list          ck_null         m       L
322 anonhash        anonymous hash          ck_null         m       L
323
324 splice          splice                  ck_fun          m       A S S? L
325 push            push                    ck_fun          imst    A L
326 pop             pop                     ck_shift        s       A
327 shift           shift                   ck_shift        s       A
328 unshift         unshift                 ck_fun          imst    A L
329 sort            sort                    ck_sort         m       C? L
330 reverse         reverse                 ck_fun          mt      L
331
332 grepstart       grep                    ck_grep         dm      C L
333 grepwhile       grep iterator           ck_null         dt      
334
335 # Range stuff.
336
337 range           flipflop                ck_null         0       S S
338 flip            range (or flip)         ck_null         0       S S
339 flop            range (or flop)         ck_null         0
340
341 # Control.
342
343 and             logical and             ck_null         0       
344 or              logical or              ck_null         0       
345 cond_expr       conditional expression  ck_null         0       
346 andassign       logical and assignment  ck_null         s       
347 orassign        logical or assignment   ck_null         s       
348
349 method          method lookup           ck_null         dt
350 entersubr       subroutine entry        ck_subr         dm      L
351 leavesubr       subroutine exit         ck_null         0       
352 caller          caller                  ck_fun          t       S?
353 warn            warn                    ck_fun          imst    L
354 die             die                     ck_fun          dimst   L
355 reset           reset                   ck_fun          is      S?
356
357 lineseq         line sequence           ck_null         0       
358 nextstate       next statement          ck_null         s       
359 dbstate         debug next statement    ck_null         s       
360 unstack         unstack                 ck_null         s
361 enter           block entry             ck_null         0       
362 leave           block exit              ck_null         0       
363 enteriter       foreach loop entry      ck_null         d       
364 iter            foreach loop iterator   ck_null         0       
365 enterloop       loop entry              ck_null         d       
366 leaveloop       loop exit               ck_null         s       
367 return          return                  ck_fun          dm      L
368 last            last                    ck_null         ds      
369 next            next                    ck_null         ds      
370 redo            redo                    ck_null         ds      
371 dump            dump                    ck_null         ds      
372 goto            goto                    ck_null         ds      
373 exit            exit                    ck_fun          ds      S?
374
375 nswitch         numeric switch          ck_null         d       
376 cswitch         character switch        ck_null         d       
377
378 # I/O.
379
380 open            open                    ck_fun          ist     F S?
381 close           close                   ck_fun          is      F?
382 pipe_op         pipe                    ck_fun          is      F F
383
384 fileno          fileno                  ck_fun          ist     F
385 umask           umask                   ck_fun          ist     S?
386 binmode         binmode                 ck_fun          s       F
387
388 dbmopen         dbmopen                 ck_fun          ist     H S S
389 dbmclose        dbmclose                ck_fun          is      H
390
391 sselect         select system call      ck_select       t       S S S S
392 select          select                  ck_select       st      F?
393
394 getc            getc                    ck_eof          st      F?
395 read            read                    ck_fun          imst    F R S S?
396 enterwrite      write                   ck_fun          dis     F?
397 leavewrite      write exit              ck_null         0       
398
399 prtf            prtf                    ck_listiob      ims     F? L
400 print           print                   ck_listiob      ims     F? L
401
402 sysread         sysread                 ck_fun          imst    F R S S?
403 syswrite        syswrite                ck_fun          imst    F S S S?
404
405 send            send                    ck_fun          imst    F S S S?
406 recv            recv                    ck_fun          imst    F R S S
407
408 eof             eof                     ck_eof          is      F?
409 tell            tell                    ck_fun          st      F?
410 seek            seek                    ck_fun          s       F S S
411 truncate        truncate                ck_trunc        is      S S
412
413 fcntl           fcntl                   ck_fun          st      F S S
414 ioctl           ioctl                   ck_fun          st      F S S
415 flock           flock                   ck_fun          ist     F S
416
417 # Sockets.
418
419 socket          socket                  ck_fun          is      F S S S
420 sockpair        socketpair              ck_fun          is      F F S S S
421
422 bind            bind                    ck_fun          is      F S
423 connect         connect                 ck_fun          is      F S
424 listen          listen                  ck_fun          is      F S
425 accept          accept                  ck_fun          ist     F F
426 shutdown        shutdown                ck_fun          ist     F S
427
428 gsockopt        getsockopt              ck_fun          is      F S S
429 ssockopt        setsockopt              ck_fun          is      F S S S
430
431 getsockname     getsockname             ck_fun          is      F
432 getpeername     getpeername             ck_fun          is      F
433
434 # Stat calls.
435
436 lstat           lstat                   ck_ftst         0       F
437 stat            stat                    ck_ftst         0       F
438 ftrread         -R                      ck_ftst         is      F
439 ftrwrite        -W                      ck_ftst         is      F
440 ftrexec         -X                      ck_ftst         is      F
441 fteread         -r                      ck_ftst         is      F
442 ftewrite        -w                      ck_ftst         is      F
443 fteexec         -x                      ck_ftst         is      F
444 ftis            -e                      ck_ftst         is      F
445 fteowned        -O                      ck_ftst         is      F
446 ftrowned        -o                      ck_ftst         is      F
447 ftzero          -z                      ck_ftst         is      F
448 ftsize          -s                      ck_ftst         ist     F
449 ftmtime         -M                      ck_ftst         st      F
450 ftatime         -A                      ck_ftst         st      F
451 ftctime         -C                      ck_ftst         st      F
452 ftsock          -S                      ck_ftst         is      F
453 ftchr           -c                      ck_ftst         is      F
454 ftblk           -b                      ck_ftst         is      F
455 ftfile          -f                      ck_ftst         is      F
456 ftdir           -d                      ck_ftst         is      F
457 ftpipe          -p                      ck_ftst         is      F
458 ftlink          -l                      ck_ftst         is      F
459 ftsuid          -u                      ck_ftst         is      F
460 ftsgid          -g                      ck_ftst         is      F
461 ftsvtx          -k                      ck_ftst         is      F
462 fttty           -t                      ck_ftst         is      F
463 fttext          -T                      ck_ftst         is      F
464 ftbinary        -B                      ck_ftst         is      F
465
466 # File calls.
467
468 chdir           chdir                   ck_fun          ist     S?
469 chown           chown                   ck_fun          imst    L
470 chroot          chroot                  ck_fun          ist     S?
471 unlink          unlink                  ck_fun          imst    L
472 chmod           chmod                   ck_fun          imst    L
473 utime           utime                   ck_fun          imst    L
474 rename          rename                  ck_fun          ist     S S
475 link            link                    ck_fun          ist     S S
476 symlink         symlink                 ck_fun          ist     S S
477 readlink        readlink                ck_fun          st      S?
478 mkdir           mkdir                   ck_fun          ist     S S
479 rmdir           rmdir                   ck_fun          ist     S?
480
481 # Directory calls.
482
483 open_dir        opendir                 ck_fun          is      F S
484 readdir         readdir                 ck_fun          0       F
485 telldir         telldir                 ck_fun          st      F
486 seekdir         seekdir                 ck_fun          s       F S
487 rewinddir       rewinddir               ck_fun          s       F
488 closedir        closedir                ck_fun          is      F
489
490 # Process control.
491
492 fork            fork                    ck_null         ist     
493 wait            wait                    ck_null         ist     
494 waitpid         waitpid                 ck_fun          ist     S S
495 system          system                  ck_exec         imst    S? L
496 exec            exec                    ck_exec         dimst   S? L
497 kill            kill                    ck_fun          dimst   L
498 getppid         getppid                 ck_null         ist     
499 getpgrp         getpgrp                 ck_fun          ist     S?
500 setpgrp         setpgrp                 ck_fun          ist     S S
501 getpriority     getpriority             ck_fun          ist     S S
502 setpriority     setpriority             ck_fun          ist     S S S
503
504 # Time calls.
505
506 time            time                    ck_null         ist     
507 tms             times                   ck_null         0       
508 localtime       localtime               ck_fun          t       S?
509 gmtime          gmtime                  ck_fun          t       S?
510 alarm           alarm                   ck_fun          ist     S?
511 sleep           sleep                   ck_fun          ist     S?
512
513 # Shared memory.
514
515 shmget          shmget                  ck_fun          imst    S S S
516 shmctl          shmctl                  ck_fun          imst    S S S
517 shmread         shmread                 ck_fun          imst    S S S S
518 shmwrite        shmwrite                ck_fun          ist     S S S S
519
520 # Message passing.
521
522 msgget          msgget                  ck_fun          imst    S S
523 msgctl          msgctl                  ck_fun          imst    S S S
524 msgsnd          msgsnd                  ck_fun          imst    S S S
525 msgrcv          msgrcv                  ck_fun          imst    S S S S S
526
527 # Semaphores.
528
529 semget          semget                  ck_fun          imst    S S S
530 semctl          semctl                  ck_fun          imst    S S S S
531 semop           semop                   ck_fun          imst    S S S
532
533 # Eval.
534
535 require         require                 ck_fun          d       S
536 dofile          do 'file'               ck_fun          d       S
537 entereval       eval string             ck_eval         d       S
538 leaveeval       eval exit               ck_null         0       S
539 evalonce        eval constant string    ck_null         d       S
540 entertry        eval block              ck_null         0       
541 leavetry        eval block exit         ck_null         0       
542
543 # Get system info.
544
545 ghbyname        gethostbyname           ck_fun          0       S
546 ghbyaddr        gethostbyaddr           ck_fun          0       S S
547 ghostent        gethostent              ck_null         0       
548 gnbyname        getnetbyname            ck_fun          0       S
549 gnbyaddr        getnetbyaddr            ck_fun          0       S S
550 gnetent         getnetent               ck_null         0       
551 gpbyname        getprotobyname          ck_fun          0       S
552 gpbynumber      getprotobynumber        ck_fun          0       S
553 gprotoent       getprotoent             ck_null         0       
554 gsbyname        getservbyname           ck_fun          0       S S
555 gsbyport        getservbyport           ck_fun          0       S S
556 gservent        getservent              ck_null         0       
557 shostent        sethostent              ck_fun          is      S
558 snetent         setnetent               ck_fun          is      S
559 sprotoent       setprotoent             ck_fun          is      S
560 sservent        setservent              ck_fun          is      S
561 ehostent        endhostent              ck_null         is      
562 enetent         endnetent               ck_null         is      
563 eprotoent       endprotoent             ck_null         is      
564 eservent        endservent              ck_null         is      
565 gpwnam          getpwnam                ck_fun          0       S
566 gpwuid          getpwuid                ck_fun          0       S
567 gpwent          getpwent                ck_null         0       
568 spwent          setpwent                ck_null         ist     
569 epwent          endpwent                ck_null         ist     
570 ggrnam          getgrnam                ck_fun          0       S
571 ggrgid          getgrgid                ck_fun          0       S
572 ggrent          getgrent                ck_null         0       
573 sgrent          setgrent                ck_null         ist     
574 egrent          endgrent                ck_null         ist     
575 getlogin        getlogin                ck_null         st      
576
577 # Miscellaneous.
578
579 syscall         syscall                 ck_fun          ist     S L