This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Change 29723 breaks t/op/inccode-tie.t on Win32
[perl5.git] / opcode.pl
CommitLineData
79072805 1#!/usr/bin/perl
36bb303b
NC
2BEGIN {
3 # Get function prototypes
9ad884cb 4 require 'regen_lib.pl';
36bb303b 5}
79072805 6
bb6f4497
CL
7$opcode_new = 'opcode.h-new';
8$opname_new = 'opnames.h-new';
9open(OC, ">$opcode_new") || die "Can't create $opcode_new: $!\n";
dfb1454f 10binmode OC;
bb6f4497 11open(ON, ">$opname_new") || die "Can't create $opname_new: $!\n";
dfb1454f 12binmode ON;
79072805
LW
13select OC;
14
15# Read data.
16
17while (<DATA>) {
18 chop;
19 next unless $_;
20 next if /^#/;
c07a80fd
PP
21 ($key, $desc, $check, $flags, $args) = split(/\t+/, $_, 5);
22
23 warn qq[Description "$desc" duplicates $seen{$desc}\n] if $seen{$desc};
24 die qq[Opcode "$key" duplicates $seen{$key}\n] if $seen{$key};
25 $seen{$desc} = qq[description of opcode "$key"];
26 $seen{$key} = qq[opcode "$key"];
27
79072805 28 push(@ops, $key);
c07a80fd 29 $desc{$key} = $desc;
79072805
LW
30 $check{$key} = $check;
31 $ckname{$check}++;
32 $flags{$key} = $flags;
33 $args{$key} = $args;
34}
35
1d5774de
NC
36# Set up aliases
37
38my %alias;
39
40# Format is "this function" => "does these op names"
41my @raw_alias = (
6faeeb49 42 Perl_do_kv => [qw( keys values )],
5b9081af 43 Perl_unimplemented_op => [qw(padany mapstart)],
0b612f93
NC
44 # All the ops with a body of { return NORMAL; }
45 Perl_pp_null => [qw(scalar regcmaybe lineseq scope)],
46
47 Perl_pp_goto => ['dump'],
48 Perl_pp_require => ['dofile'],
49 Perl_pp_untie => ['dbmclose'],
50 Perl_pp_sysread => [qw(read recv)],
51 Perl_pp_sysseek => ['seek'],
52 Perl_pp_ioctl => ['fcntl'],
53 Perl_pp_ssockopt => ['gsockopt'],
54 Perl_pp_getpeername => ['getsockname'],
55 Perl_pp_stat => ['lstat'],
f1cb2d48 56 Perl_pp_ftrowned => [qw(fteowned ftzero ftsock ftchr ftblk
17ad201a
NC
57 ftfile ftdir ftpipe ftsuid ftsgid
58 ftsvtx)],
0b612f93
NC
59 Perl_pp_fttext => ['ftbinary'],
60 Perl_pp_gmtime => ['localtime'],
61 Perl_pp_semget => [qw(shmget msgget)],
62 Perl_pp_semctl => [qw(shmctl msgctl)],
0b612f93
NC
63 Perl_pp_ghostent => [qw(ghbyname ghbyaddr)],
64 Perl_pp_gnetent => [qw(gnbyname gnbyaddr)],
65 Perl_pp_gprotoent => [qw(gpbyname gpbynumber)],
66 Perl_pp_gservent => [qw(gsbyname gsbyport)],
67 Perl_pp_gpwent => [qw(gpwnam gpwuid)],
68 Perl_pp_ggrent => [qw(ggrnam ggrgid)],
957b0e1d 69 Perl_pp_ftis => [qw(ftsize ftmtime ftatime ftctime)],
605b9385 70 Perl_pp_chown => [qw(unlink chmod utime kill)],
ce6987d0 71 Perl_pp_link => ['symlink'],
af9e49b4
NC
72 Perl_pp_ftrread => [qw(ftrwrite ftrexec fteread ftewrite
73 fteexec)],
ca563b4e 74 Perl_pp_shmwrite => [qw(shmread msgsnd msgrcv semop)],
64a1bc8e 75 Perl_pp_send => ['syswrite'],
c960fc3b 76 Perl_pp_defined => [qw(dor dorassign)],
62726f23
SP
77 Perl_pp_and => ['andassign'],
78 Perl_pp_or => ['orassign'],
12e9c124 79 Perl_pp_ucfirst => ['lcfirst'],
afd9910b 80 Perl_pp_sle => [qw(slt sgt sge)],
0d863452 81 Perl_pp_print => ['say'],
2723d216 82 Perl_pp_index => ['rindex'],
daa2adfd 83 Perl_pp_oct => ['hex'],
789b4bc9 84 Perl_pp_shift => ['pop'],
71302fe3 85 Perl_pp_sin => [qw(cos exp log sqrt)],
3658c1f1 86 Perl_pp_bit_or => ['bit_xor'],
605b9385 87 );
1d5774de
NC
88
89while (my ($func, $names) = splice @raw_alias, 0, 2) {
6faeeb49 90 $alias{$_} = $func for @$names;
1d5774de
NC
91}
92
79072805
LW
93# Emit defines.
94
95$i = 0;
748a9306 96print <<"END";
37442d52
RGS
97/* -*- buffer-read-only: t -*-
98 *
d6376244
JH
99 * opcode.h
100 *
699a97de
RGS
101 * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
102 * 2001, 2002, 2003, 2004, 2005, 2006, 2007 by Larry Wall and others
d6376244
JH
103 *
104 * You may distribute under the terms of either the GNU General Public
105 * License or the Artistic License, as specified in the README file.
106 *
107 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
108 * This file is built by opcode.pl from its data. Any changes made here
109 * will be lost!
110 */
a27f85b3 111
27da23d5
JH
112#ifndef PERL_GLOBAL_STRUCT_INIT
113
864dbfa3
GS
114#define Perl_pp_i_preinc Perl_pp_preinc
115#define Perl_pp_i_predec Perl_pp_predec
116#define Perl_pp_i_postinc Perl_pp_postinc
117#define Perl_pp_i_postdec Perl_pp_postdec
748a9306 118
65bca31a
NC
119PERL_PPDEF(Perl_unimplemented_op)
120
748a9306 121END
abdd5c84
GS
122
123print ON <<"END";
37442d52
RGS
124/* -*- buffer-read-only: t -*-
125 *
d6376244
JH
126 * opnames.h
127 *
cfc85103 128 * Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
699a97de 129 * 2007 by Larry Wall and others
d6376244
JH
130 *
131 * You may distribute under the terms of either the GNU General Public
132 * License or the Artistic License, as specified in the README file.
133 *
134 *
135 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
136 * This file is built by opcode.pl from its data. Any changes made here
137 * will be lost!
138 */
abdd5c84
GS
139
140typedef enum opcode {
141END
142
79072805 143for (@ops) {
abdd5c84 144 print ON "\t", &tab(3,"OP_\U$_,"), "/* ", $i++, " */\n";
79072805 145}
abdd5c84
GS
146print ON "\t", &tab(3,"OP_max"), "\n";
147print ON "} opcode;\n";
4c80c0b2
NC
148print ON "\n#define MAXO ", scalar @ops, "\n";
149print ON "#define OP_phoney_INPUT_ONLY -1\n";
150print ON "#define OP_phoney_OUTPUT_ONLY -2\n\n";
79072805 151
c07a80fd 152# Emit op names and descriptions.
79072805
LW
153
154print <<END;
73c4f7a1
GS
155START_EXTERN_C
156
4a36906c
RGS
157#define OP_NAME(o) ((o)->op_type == OP_CUSTOM ? custom_op_name(o) : \\
158 PL_op_name[(o)->op_type])
159#define OP_DESC(o) ((o)->op_type == OP_CUSTOM ? custom_op_desc(o) : \\
160 PL_op_desc[(o)->op_type])
53e06cf0 161
79072805 162#ifndef DOINIT
27da23d5 163EXTCONST char* const PL_op_name[];
79072805 164#else
27da23d5 165EXTCONST char* const PL_op_name[] = {
79072805
LW
166END
167
168for (@ops) {
c07a80fd
PP
169 print qq(\t"$_",\n);
170}
171
172print <<END;
173};
174#endif
175
176END
177
178print <<END;
179#ifndef DOINIT
27da23d5 180EXTCONST char* const PL_op_desc[];
c07a80fd 181#else
27da23d5 182EXTCONST char* const PL_op_desc[] = {
c07a80fd
PP
183END
184
185for (@ops) {
42d38218
MS
186 my($safe_desc) = $desc{$_};
187
a567e93b 188 # Have to escape double quotes and escape characters.
42d38218
MS
189 $safe_desc =~ s/(^|[^\\])([\\"])/$1\\$2/g;
190
191 print qq(\t"$safe_desc",\n);
79072805
LW
192}
193
194print <<END;
195};
196#endif
197
73c4f7a1
GS
198END_EXTERN_C
199
27da23d5 200#endif /* !PERL_GLOBAL_STRUCT_INIT */
22c35a8c 201END
79072805 202
22c35a8c 203# Emit function declarations.
79072805 204
22c35a8c 205#for (sort keys %ckname) {
cea2e8a9 206# print "OP *\t", &tab(3,$_),"(pTHX_ OP* o);\n";
22c35a8c
GS
207#}
208#
209#print "\n";
210#
211#for (@ops) {
cea2e8a9 212# print "OP *\t", &tab(3, "pp_$_"), "(pTHX);\n";
22c35a8c 213#}
79072805
LW
214
215# Emit ppcode switch array.
216
217print <<END;
218
73c4f7a1
GS
219START_EXTERN_C
220
27da23d5 221#ifdef PERL_GLOBAL_STRUCT_INIT
97aff369 222# define PERL_PPADDR_INITED
27da23d5 223static const Perl_ppaddr_t Gppaddr[]
79072805 224#else
27da23d5 225# ifndef PERL_GLOBAL_STRUCT
97aff369 226# define PERL_PPADDR_INITED
27da23d5
JH
227EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
228# endif
229#endif /* PERL_GLOBAL_STRUCT */
230#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
97aff369 231# define PERL_PPADDR_INITED
27da23d5 232= {
79072805
LW
233END
234
235for (@ops) {
6faeeb49
MB
236 $_ eq "custom" and next;
237 if (my $name = $alias{$_}) {
238 print "\tMEMBER_TO_FPTR($name),\t/* Perl_pp_$_ */\n";
239 }
240 else {
241 print "\tMEMBER_TO_FPTR(Perl_pp_$_),\n";
242 }
79072805
LW
243}
244
245print <<END;
27da23d5 246}
79072805 247#endif
97aff369 248#ifdef PERL_PPADDR_INITED
27da23d5 249;
97aff369 250#endif
79072805
LW
251
252END
253
254# Emit check routines.
255
256print <<END;
27da23d5 257#ifdef PERL_GLOBAL_STRUCT_INIT
97aff369 258# define PERL_CHECK_INITED
27da23d5 259static const Perl_check_t Gcheck[]
79072805 260#else
27da23d5 261# ifndef PERL_GLOBAL_STRUCT
97aff369 262# define PERL_CHECK_INITED
27da23d5
JH
263EXT Perl_check_t PL_check[] /* or perlvars.h */
264# endif
265#endif
266#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
97aff369 267# define PERL_CHECK_INITED
27da23d5 268= {
79072805
LW
269END
270
271for (@ops) {
2b260de0 272 print "\t", &tab(3, "MEMBER_TO_FPTR(Perl_$check{$_}),"), "\t/* $_ */\n";
79072805
LW
273}
274
275print <<END;
27da23d5 276}
79072805 277#endif
97aff369 278#ifdef PERL_CHECK_INITED
27da23d5 279;
97aff369 280#endif /* #ifdef PERL_CHECK_INITED */
79072805
LW
281
282END
283
284# Emit allowed argument types.
285
286print <<END;
27da23d5
JH
287#ifndef PERL_GLOBAL_STRUCT_INIT
288
79072805 289#ifndef DOINIT
1ccb7c8d 290EXTCONST U32 PL_opargs[];
79072805 291#else
1ccb7c8d 292EXTCONST U32 PL_opargs[] = {
79072805
LW
293END
294
295%argnum = (
296 S, 1, # scalar
297 L, 2, # list
298 A, 3, # array value
299 H, 4, # hash value
300 C, 5, # code value
301 F, 6, # file value
302 R, 7, # scalar reference
303);
304
db173bac
MB
305%opclass = (
306 '0', 0, # baseop
307 '1', 1, # unop
308 '2', 2, # binop
309 '|', 3, # logop
1a67a97c
SM
310 '@', 4, # listop
311 '/', 5, # pmop
350de78d 312 '$', 6, # svop_or_padop
7934575e 313 '#', 7, # padop
1a67a97c
SM
314 '"', 8, # pvop_or_svop
315 '{', 9, # loop
316 ';', 10, # cop
317 '%', 11, # baseop_or_unop
318 '-', 12, # filestatop
319 '}', 13, # loopexop
db173bac
MB
320);
321
a85d93d9
JH
322my %OP_IS_SOCKET;
323my %OP_IS_FILETEST;
324
79072805
LW
325for (@ops) {
326 $argsum = 0;
327 $flags = $flags{$_};
328 $argsum |= 1 if $flags =~ /m/; # needs stack mark
329 $argsum |= 2 if $flags =~ /f/; # fold constants
330 $argsum |= 4 if $flags =~ /s/; # always produces scalar
331 $argsum |= 8 if $flags =~ /t/; # needs target scalar
b162f9ea 332 $argsum |= (8|256) if $flags =~ /T/; # ... which may be lexical
79072805
LW
333 $argsum |= 16 if $flags =~ /i/; # always produces integer
334 $argsum |= 32 if $flags =~ /I/; # has corresponding int op
335 $argsum |= 64 if $flags =~ /d/; # danger, unknown side effects
a0d0e21e 336 $argsum |= 128 if $flags =~ /u/; # defaults to $_
8be7d673 337 $flags =~ /([\W\d_])/ or die qq[Opcode "$_" has no class indicator];
b162f9ea
IZ
338 $argsum |= $opclass{$1} << 9;
339 $mul = 0x2000; # 2 ^ OASHIFT
79072805 340 for $arg (split(' ',$args{$_})) {
a85d93d9
JH
341 if ($arg =~ /^F/) {
342 $OP_IS_SOCKET{$_} = 1 if $arg =~ s/s//;
343 $OP_IS_FILETEST{$_} = 1 if $arg =~ s/-//;
344 }
79072805 345 $argnum = ($arg =~ s/\?//) ? 8 : 0;
a85d93d9 346 die "op = $_, arg = $arg\n" unless length($arg) == 1;
79072805 347 $argnum += $argnum{$arg};
b162f9ea
IZ
348 warn "# Conflicting bit 32 for '$_'.\n"
349 if $argnum & 8 and $mul == 0x10000000;
79072805
LW
350 $argsum += $argnum * $mul;
351 $mul <<= 4;
352 }
353 $argsum = sprintf("0x%08x", $argsum);
db173bac 354 print "\t", &tab(3, "$argsum,"), "/* $_ */\n";
79072805
LW
355}
356
357print <<END;
358};
359#endif
73c4f7a1
GS
360
361END_EXTERN_C
27da23d5
JH
362
363#endif /* !PERL_GLOBAL_STRUCT_INIT */
79072805
LW
364END
365
a85d93d9
JH
366if (keys %OP_IS_SOCKET) {
367 print ON "\n#define OP_IS_SOCKET(op) \\\n\t(";
368 print ON join(" || \\\n\t ",
369 map { "(op) == OP_" . uc() } sort keys %OP_IS_SOCKET);
370 print ON ")\n\n";
371}
372
373if (keys %OP_IS_FILETEST) {
374 print ON "\n#define OP_IS_FILETEST(op) \\\n\t(";
375 print ON join(" || \\\n\t ",
376 map { "(op) == OP_" . uc() } sort keys %OP_IS_FILETEST);
377 print ON ")\n\n";
378}
379
37442d52
RGS
380print OC "/* ex: set ro: */\n";
381print ON "/* ex: set ro: */\n";
382
735e0d5c 383close OC or die "Error closing opcode.h: $!";
abdd5c84 384close ON or die "Error closing opnames.h: $!";
735e0d5c 385
36bb303b
NC
386foreach ('opcode.h', 'opnames.h') {
387 safer_rename_silent $_, "$_-old";
388}
389safer_rename $opcode_new, 'opcode.h';
390safer_rename $opname_new, 'opnames.h';
46f659cb 391
bb6f4497
CL
392$pp_proto_new = 'pp_proto.h-new';
393$pp_sym_new = 'pp.sym-new';
394
395open PP, ">$pp_proto_new" or die "Error creating $pp_proto_new: $!";
dfb1454f 396binmode PP;
bb6f4497 397open PPSYM, ">$pp_sym_new" or die "Error creating $pp_sym_new: $!";
dfb1454f 398binmode PPSYM;
22c35a8c 399
a27f85b3 400print PP <<"END";
37442d52
RGS
401/* -*- buffer-read-only: t -*-
402 !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
a27f85b3
GS
403 This file is built by opcode.pl from its data. Any changes made here
404 will be lost!
405*/
406
407END
408
409print PPSYM <<"END";
37442d52 410# -*- buffer-read-only: t -*-
a27f85b3 411#
a567e93b 412# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
a27f85b3
GS
413# This file is built by opcode.pl from its data. Any changes made here
414# will be lost!
415#
416
417END
418
419
22c35a8c 420for (sort keys %ckname) {
864dbfa3
GS
421 print PP "PERL_CKDEF(Perl_$_)\n";
422 print PPSYM "Perl_$_\n";
20ce7b12 423#OP *\t", &tab(3,$_),"(OP* o);\n";
22c35a8c
GS
424}
425
426print PP "\n\n";
427
735e0d5c 428for (@ops) {
15e52e56 429 next if /^i_(pre|post)(inc|dec)$/;
53e06cf0 430 next if /^custom$/;
864dbfa3
GS
431 print PP "PERL_PPDEF(Perl_pp_$_)\n";
432 print PPSYM "Perl_pp_$_\n";
735e0d5c 433}
37442d52
RGS
434print PP "\n/* ex: set ro: */\n";
435print PPSYM "\n# ex: set ro:\n";
735e0d5c
IZ
436
437close PP or die "Error closing pp_proto.h: $!";
22c35a8c 438close PPSYM or die "Error closing pp.sym: $!";
735e0d5c 439
36bb303b
NC
440foreach ('pp_proto.h', 'pp.sym') {
441 safer_rename_silent $_, "$_-old";
442}
443safer_rename $pp_proto_new, 'pp_proto.h';
444safer_rename $pp_sym_new, 'pp.sym';
46f659cb 445
24600adc
JH
446END {
447 foreach ('opcode.h', 'opnames.h', 'pp_proto.h', 'pp.sym') {
448 1 while unlink "$_-old";
449 }
450}
451
79072805
LW
452###########################################################################
453sub tab {
454 local($l, $t) = @_;
455 $t .= "\t" x ($l - (length($t) + 1) / 8);
456 $t;
457}
458###########################################################################
b162f9ea
IZ
459
460# Some comments about 'T' opcode classifier:
461
462# Safe to set if the ppcode uses:
463# tryAMAGICbin, tryAMAGICun, SETn, SETi, SETu, PUSHn, PUSHTARG, SETTARG,
464# SETs(TARG), XPUSHn, XPUSHu,
465
466# Unsafe to set if the ppcode uses dTARG or [X]RETPUSH[YES|NO|UNDEF]
467
468# lt and friends do SETs (including ncmp, but not scmp)
469
21f5b33c
GS
470# Additional mode of failure: the opcode can modify TARG before it "used"
471# all the arguments (or may call an external function which does the same).
472# If the target coincides with one of the arguments ==> kaboom.
473
b162f9ea
IZ
474# pp.c pos substr each not OK (RETPUSHUNDEF)
475# substr vec also not OK due to LV to target (are they???)
476# ref not OK (RETPUSHNO)
477# trans not OK (dTARG; TARG = sv_newmortal();)
478# ucfirst etc not OK: TMP arg processed inplace
69b47968 479# quotemeta not OK (unsafe when TARG == arg)
91e74348 480# each repeat not OK too due to list context
b162f9ea 481# pack split - unknown whether they are safe
dae78bb1
IZ
482# sprintf: is calling do_sprintf(TARG,...) which can act on TARG
483# before other args are processed.
b162f9ea 484
21f5b33c
GS
485# Suspicious wrt "additional mode of failure" (and only it):
486# schop, chop, postinc/dec, bit_and etc, negate, complement.
487
488# Also suspicious: 4-arg substr, sprintf, uc/lc (POK_only), reverse, pack.
489
490# substr/vec: doing TAINT_off()???
491
b162f9ea
IZ
492# pp_hot.c
493# readline - unknown whether it is safe
494# match subst not OK (dTARG)
495# grepwhile not OK (not always setting)
69b47968 496# join not OK (unsafe when TARG == arg)
b162f9ea 497
21f5b33c
GS
498# Suspicious wrt "additional mode of failure": concat (dealt with
499# in ck_sassign()), join (same).
500
b162f9ea
IZ
501# pp_ctl.c
502# mapwhile flip caller not OK (not always setting)
503
504# pp_sys.c
505# backtick glob warn die not OK (not always setting)
506# warn not OK (RETPUSHYES)
507# open fileno getc sysread syswrite ioctl accept shutdown
508# ftsize(etc) readlink telldir fork alarm getlogin not OK (RETPUSHUNDEF)
509# umask select not OK (XPUSHs(&PL_sv_undef);)
510# fileno getc sysread syswrite tell not OK (meth("FILENO" "GETC"))
511# sselect shm* sem* msg* syscall - unknown whether they are safe
512# gmtime not OK (list context)
513
21f5b33c
GS
514# Suspicious wrt "additional mode of failure": warn, die, select.
515
79072805
LW
516__END__
517
4289559a 518# New ops always go at the end, just before 'custom'
7399586d 519
64b99527
SC
520# A recapitulation of the format of this file:
521# The file consists of five columns: the name of the op, an English
522# description, the name of the "check" routine used to optimize this
523# operation, some flags, and a description of the operands.
524
525# The flags consist of options followed by a mandatory op class signifier
526
527# The classes are:
528# baseop - 0 unop - 1 binop - 2
529# logop - | listop - @ pmop - /
530# padop/svop - $ padop - # (unused) loop - {
531# baseop/unop - % loopexop - } filestatop - -
3508218b 532# pvop/svop - " cop - ;
64b99527
SC
533
534# Other options are:
535# needs stack mark - m
536# needs constant folding - f
537# produces a scalar - s
538# produces an integer - i
539# needs a target - t
540# target can be in a pad - T
541# has a corresponding integer version - I
542# has side effects - d
543# uses $_ if no argument given - u
544
545# Values for the operands are:
546# scalar - S list - L array - A
547# hash - H sub (CV) - C file - F
548# socket - Fs filetest - F- reference - R
549# "?" denotes an optional operand.
550
79072805
LW
551# Nothing.
552
553null null operation ck_null 0
93a17b20 554stub stub ck_null 0
db173bac 555scalar scalar ck_fun s% S
79072805
LW
556
557# Pushy stuff.
558
db173bac
MB
559pushmark pushmark ck_null s0
560wantarray wantarray ck_null is0
79072805 561
db173bac 562const constant item ck_svconst s$
79072805 563
7934575e
GS
564gvsv scalar variable ck_null ds$
565gv glob value ck_null ds$
db173bac
MB
566gelem glob elem ck_null d2 S S
567padsv private variable ck_null ds0
568padav private array ck_null d0
569padhv private hash ck_null d0
f1612b5c 570padany private value ck_null d0
79072805 571
1167e5da 572pushre push regexp ck_null d/
79072805
LW
573
574# References and stuff.
575
db173bac 576rv2gv ref-to-glob cast ck_rvconst ds1
b89fed5f 577rv2sv scalar dereference ck_rvconst ds1
db173bac 578av2arylen array length ck_null is1
b89fed5f 579rv2cv subroutine dereference ck_rvconst d1
db173bac
MB
580anoncode anonymous subroutine ck_anoncode $
581prototype subroutine prototype ck_null s% S
5d11ae5e 582refgen reference constructor ck_spair m1 L
dfa0f641 583srefgen single ref constructor ck_null fs1 S
db173bac
MB
584ref reference-type operator ck_fun stu% S?
585bless bless ck_fun s@ S S?
79072805
LW
586
587# Pushy I/O.
588
e3f73d4e 589backtick quoted execution (``, qx) ck_open t% S
0a753a76 590# glob defaults its first arg to $_
649da076 591glob glob ck_glob t@ S?
b04ef359 592readline <HANDLE> ck_null t% F?
5fc9b9e4 593rcatline append I/O operator ck_null t$
79072805
LW
594
595# Bindable operators.
596
f1612b5c
GS
597regcmaybe regexp internal guard ck_fun s1 S
598regcreset regexp internal reset ck_fun s1 S
599regcomp regexp compilation ck_null s| S
600match pattern match (m//) ck_match d/
601qr pattern quote (qr//) ck_match s/
59f00321 602subst substitution (s///) ck_match dis/ S
f1612b5c 603substcont substitution iterator ck_null dis|
59f00321 604trans transliteration (tr///) ck_match is" S
79072805
LW
605
606# Lvalue operators.
db173bac
MB
607# sassign is special-cased for op class
608
b162f9ea 609sassign scalar assignment ck_sassign s0
db173bac
MB
610aassign list assignment ck_null t2 L L
611
21f5b33c
GS
612chop chop ck_spair mts% L
613schop scalar chop ck_null stu% S?
f1612b5c
GS
614chomp chomp ck_spair mTs% L
615schomp scalar chomp ck_null sTu% S?
69794302 616defined defined operator ck_defined isu% S?
db173bac
MB
617undef undef operator ck_lfun s% S?
618study study ck_fun su% S?
619pos match position ck_lfun stu% S?
620
42d38218
MS
621preinc preincrement (++) ck_lfun dIs1 S
622i_preinc integer preincrement (++) ck_lfun dis1 S
623predec predecrement (--) ck_lfun dIs1 S
624i_predec integer predecrement (--) ck_lfun dis1 S
21f5b33c 625postinc postincrement (++) ck_lfun dIst1 S
42d38218 626i_postinc integer postincrement (++) ck_lfun disT1 S
21f5b33c 627postdec postdecrement (--) ck_lfun dIst1 S
42d38218 628i_postdec integer postdecrement (--) ck_lfun disT1 S
79072805
LW
629
630# Ordinary operators.
631
42d38218
MS
632pow exponentiation (**) ck_null fsT2 S S
633
f1612b5c 634multiply multiplication (*) ck_null IfsT2 S S
42d38218
MS
635i_multiply integer multiplication (*) ck_null ifsT2 S S
636divide division (/) ck_null IfsT2 S S
637i_divide integer division (/) ck_null ifsT2 S S
638modulo modulus (%) ck_null IifsT2 S S
639i_modulo integer modulus (%) ck_null ifsT2 S S
640repeat repeat (x) ck_repeat mt2 L S
641
642add addition (+) ck_null IfsT2 S S
643i_add integer addition (+) ck_null ifsT2 S S
644subtract subtraction (-) ck_null IfsT2 S S
645i_subtract integer subtraction (-) ck_null ifsT2 S S
df91b2c5 646concat concatenation (.) or string ck_concat fsT2 S S
b162f9ea 647stringify string ck_fun fsT@ S
db173bac 648
42d38218
MS
649left_shift left bitshift (<<) ck_bitop fsT2 S S
650right_shift right bitshift (>>) ck_bitop fsT2 S S
651
652lt numeric lt (<) ck_null Iifs2 S S
653i_lt integer lt (<) ck_null ifs2 S S
654gt numeric gt (>) ck_null Iifs2 S S
655i_gt integer gt (>) ck_null ifs2 S S
656le numeric le (<=) ck_null Iifs2 S S
657i_le integer le (<=) ck_null ifs2 S S
658ge numeric ge (>=) ck_null Iifs2 S S
659i_ge integer ge (>=) ck_null ifs2 S S
660eq numeric eq (==) ck_null Iifs2 S S
661i_eq integer eq (==) ck_null ifs2 S S
662ne numeric ne (!=) ck_null Iifs2 S S
663i_ne integer ne (!=) ck_null ifs2 S S
664ncmp numeric comparison (<=>) ck_null Iifst2 S S
665i_ncmp integer comparison (<=>) ck_null ifst2 S S
db173bac 666
2de3dbcc
JH
667slt string lt ck_null ifs2 S S
668sgt string gt ck_null ifs2 S S
669sle string le ck_null ifs2 S S
670sge string ge ck_null ifs2 S S
db173bac
MB
671seq string eq ck_null ifs2 S S
672sne string ne ck_null ifs2 S S
2de3dbcc 673scmp string comparison (cmp) ck_null ifst2 S S
db173bac 674
21f5b33c
GS
675bit_and bitwise and (&) ck_bitop fst2 S S
676bit_xor bitwise xor (^) ck_bitop fst2 S S
677bit_or bitwise or (|) ck_bitop fst2 S S
db173bac 678
21f5b33c 679negate negation (-) ck_null Ifst1 S
f1612b5c 680i_negate integer negation (-) ck_null ifsT1 S
db173bac 681not not ck_null ifs1 S
21f5b33c 682complement 1's complement (~) ck_bitop fst1 S
79072805
LW
683
684# High falutin' math.
685
f1612b5c
GS
686atan2 atan2 ck_fun fsT@ S S
687sin sin ck_fun fsTu% S?
688cos cos ck_fun fsTu% S?
689rand rand ck_fun sT% S?
690srand srand ck_fun s% S?
691exp exp ck_fun fsTu% S?
692log log ck_fun fsTu% S?
693sqrt sqrt ck_fun fsTu% S?
79072805 694
cf26c822
CS
695# Lowbrow math.
696
b162f9ea
IZ
697int int ck_fun fsTu% S?
698hex hex ck_fun fsTu% S?
699oct oct ck_fun fsTu% S?
700abs abs ck_fun fsTu% S?
79072805
LW
701
702# String stuff.
703
b162f9ea 704length length ck_lengthconst isTu% S?
35fba0d9 705substr substr ck_substr st@ S S S? S?
db173bac 706vec vec ck_fun ist@ S S S
79072805 707
b162f9ea
IZ
708index index ck_index isT@ S S S?
709rindex rindex ck_index isT@ S S S?
79072805 710
fc7325bb 711sprintf sprintf ck_fun mst@ S L
db173bac 712formline formline ck_fun ms@ S L
b162f9ea
IZ
713ord ord ck_fun ifsTu% S?
714chr chr ck_fun fsTu% S?
715crypt crypt ck_fun fsT@ S S
2de3dbcc
JH
716ucfirst ucfirst ck_fun fstu% S?
717lcfirst lcfirst ck_fun fstu% S?
718uc uc ck_fun fstu% S?
719lc lc ck_fun fstu% S?
69b47968 720quotemeta quotemeta ck_fun fstu% S?
79072805
LW
721
722# Arrays.
723
f1612b5c 724rv2av array dereference ck_rvconst dt1
7934575e 725aelemfast constant array element ck_null s$ A S
db173bac
MB
726aelem array element ck_null s2 A S
727aslice array slice ck_null m@ A L
79072805 728
aa689395 729# Hashes.
79072805 730
59af0135 731each each ck_fun % H
db173bac
MB
732values values ck_fun t% H
733keys keys ck_fun t% H
734delete delete ck_delete % S
42d38218 735exists exists ck_exists is% S
f1612b5c
GS
736rv2hv hash dereference ck_rvconst dt1
737helem hash element ck_null s2@ H S
db173bac 738hslice hash slice ck_null m@ H L
79072805
LW
739
740# Explosives and implosives.
741
bab9c0ac 742unpack unpack ck_unpack @ S S?
db173bac
MB
743pack pack ck_fun mst@ S L
744split split ck_split t@ S S S
297b36dc 745join join or string ck_join mst@ S L
79072805
LW
746
747# List operators.
748
db173bac
MB
749list list ck_null m@ L
750lslice list slice ck_null 2 H L L
42d38218
MS
751anonlist anonymous list ([]) ck_fun ms@ L
752anonhash anonymous hash ({}) ck_fun ms@ L
79072805 753
db173bac 754splice splice ck_fun m@ A S? S? L
b162f9ea 755push push ck_fun imsT@ A L
26f600bc
RGS
756pop pop ck_shift s% A?
757shift shift ck_shift s% A?
b162f9ea 758unshift unshift ck_fun imsT@ A L
9850bf21 759sort sort ck_sort dm@ C? L
db173bac 760reverse reverse ck_fun mt@ L
79072805 761
f1612b5c
GS
762grepstart grep ck_grep dm@ C L
763grepwhile grep iterator ck_null dt|
79072805 764
f1612b5c
GS
765mapstart map ck_grep dm@ C L
766mapwhile map iterator ck_null dt|
a0d0e21e 767
79072805
LW
768# Range stuff.
769
1a67a97c 770range flipflop ck_null | S S
db173bac
MB
771flip range (or flip) ck_null 1 S S
772flop range (or flop) ck_null 1
79072805
LW
773
774# Control.
775
42d38218 776and logical and (&&) ck_null |
f1612b5c
GS
777or logical or (||) ck_null |
778xor logical xor ck_null fs2 S S
779cond_expr conditional expression ck_null d|
42d38218
MS
780andassign logical and assignment (&&=) ck_null s|
781orassign logical or assignment (||=) ck_null s|
db173bac 782
f5d5a27c 783method method lookup ck_method d1
db173bac
MB
784entersub subroutine entry ck_subr dmt1 L
785leavesub subroutine exit ck_null 1
78f9721b 786leavesublv lvalue subroutine return ck_null 1
db173bac
MB
787caller caller ck_fun t% S?
788warn warn ck_fun imst@ L
96e176bf 789die die ck_die dimst@ L
f1612b5c 790reset symbol reset ck_fun is% S?
db173bac
MB
791
792lineseq line sequence ck_null @
722969e2
DM
793nextstate next statement ck_null s;
794dbstate debug next statement ck_null s;
e9c54c90 795unstack iteration finalizer ck_null s0
79072805 796enter block entry ck_null 0
db173bac
MB
797leave block exit ck_null @
798scope block ck_null @
799enteriter foreach loop entry ck_null d{
79072805 800iter foreach loop iterator ck_null 0
db173bac
MB
801enterloop loop entry ck_null d{
802leaveloop loop exit ck_null 2
78f9721b 803return return ck_return dm@ L
db173bac
MB
804last last ck_null ds}
805next next ck_null ds}
806redo redo ck_null ds}
807dump dump ck_null ds}
808goto goto ck_null ds}
d98f61e7 809exit exit ck_exit ds% S?
7399586d 810# continued below
79072805 811
f1612b5c
GS
812#nswitch numeric switch ck_null d
813#cswitch character switch ck_null d
79072805
LW
814
815# I/O.
816
a567e93b 817open open ck_open ismt@ F S? L
db173bac
MB
818close close ck_fun is% F?
819pipe_op pipe ck_fun is@ F F
79072805 820
db173bac 821fileno fileno ck_fun ist% F
a86a20aa 822umask umask ck_fun ist% S?
1c1fc3ea 823binmode binmode ck_fun s@ F S?
79072805 824
db173bac
MB
825tie tie ck_fun idms@ R S L
826untie untie ck_fun is% R
827tied tied ck_fun s% R
828dbmopen dbmopen ck_fun is@ H S S
829dbmclose dbmclose ck_fun is% H
79072805 830
db173bac
MB
831sselect select system call ck_select t@ S S S S
832select select ck_select st@ F?
79072805 833
db173bac 834getc getc ck_eof st% F?
d1a002d4 835read read ck_fun imst@ F R S S?
db173bac
MB
836enterwrite write ck_fun dis% F?
837leavewrite write exit ck_null 1
79072805 838
db173bac
MB
839prtf printf ck_listiob ims@ F? L
840print print ck_listiob ims@ F? L
79072805 841
db173bac
MB
842sysopen sysopen ck_fun s@ F S S S?
843sysseek sysseek ck_fun s@ F S S
d1a002d4 844sysread sysread ck_fun imst@ F R S S?
145d37e2 845syswrite syswrite ck_fun imst@ F S S? S?
79072805 846
a85d93d9
JH
847send send ck_fun imst@ Fs S S S?
848recv recv ck_fun imst@ Fs R S S
79072805 849
db173bac
MB
850eof eof ck_eof is% F?
851tell tell ck_fun st% F?
852seek seek ck_fun s@ F S S
9b01e405 853# truncate really behaves as if it had both "S S" and "F S"
db173bac 854truncate truncate ck_trunc is@ S S
79072805 855
db173bac
MB
856fcntl fcntl ck_fun st@ F S S
857ioctl ioctl ck_fun st@ F S S
b162f9ea 858flock flock ck_fun isT@ F S
79072805
LW
859
860# Sockets.
861
a85d93d9
JH
862socket socket ck_fun is@ Fs S S S
863sockpair socketpair ck_fun is@ Fs Fs S S S
79072805 864
a85d93d9
JH
865bind bind ck_fun is@ Fs S
866connect connect ck_fun is@ Fs S
867listen listen ck_fun is@ Fs S
868accept accept ck_fun ist@ Fs Fs
869shutdown shutdown ck_fun ist@ Fs S
79072805 870
a85d93d9
JH
871gsockopt getsockopt ck_fun is@ Fs S S
872ssockopt setsockopt ck_fun is@ Fs S S S
79072805 873
a85d93d9
JH
874getsockname getsockname ck_fun is% Fs
875getpeername getpeername ck_fun is% Fs
79072805
LW
876
877# Stat calls.
878
db173bac
MB
879lstat lstat ck_ftst u- F
880stat stat ck_ftst u- F
a85d93d9
JH
881ftrread -R ck_ftst isu- F-
882ftrwrite -W ck_ftst isu- F-
883ftrexec -X ck_ftst isu- F-
884fteread -r ck_ftst isu- F-
885ftewrite -w ck_ftst isu- F-
886fteexec -x ck_ftst isu- F-
887ftis -e ck_ftst isu- F-
a85d93d9
JH
888ftsize -s ck_ftst istu- F-
889ftmtime -M ck_ftst stu- F-
890ftatime -A ck_ftst stu- F-
891ftctime -C ck_ftst stu- F-
7834bb7e
NC
892ftrowned -O ck_ftst isu- F-
893fteowned -o ck_ftst isu- F-
894ftzero -z ck_ftst isu- F-
a85d93d9
JH
895ftsock -S ck_ftst isu- F-
896ftchr -c ck_ftst isu- F-
897ftblk -b ck_ftst isu- F-
898ftfile -f ck_ftst isu- F-
899ftdir -d ck_ftst isu- F-
900ftpipe -p ck_ftst isu- F-
a85d93d9
JH
901ftsuid -u ck_ftst isu- F-
902ftsgid -g ck_ftst isu- F-
903ftsvtx -k ck_ftst isu- F-
7834bb7e 904ftlink -l ck_ftst isu- F-
a85d93d9
JH
905fttty -t ck_ftst is- F-
906fttext -T ck_ftst isu- F-
907ftbinary -B ck_ftst isu- F-
79072805
LW
908
909# File calls.
910
d4ac975e
GA
911# chdir really behaves as if it had both "S?" and "F?"
912chdir chdir ck_chdir isT% S?
b162f9ea
IZ
913chown chown ck_fun imsT@ L
914chroot chroot ck_fun isTu% S?
915unlink unlink ck_fun imsTu@ L
a86a20aa 916chmod chmod ck_fun imsT@ L
b162f9ea
IZ
917utime utime ck_fun imsT@ L
918rename rename ck_fun isT@ S S
919link link ck_fun isT@ S S
920symlink symlink ck_fun isT@ S S
db173bac 921readlink readlink ck_fun stu% S?
491873e5 922mkdir mkdir ck_fun isTu@ S? S?
b162f9ea 923rmdir rmdir ck_fun isTu% S?
79072805
LW
924
925# Directory calls.
926
1e2c6ed7 927open_dir opendir ck_fun is@ F S
db173bac
MB
928readdir readdir ck_fun % F
929telldir telldir ck_fun st% F
930seekdir seekdir ck_fun s@ F S
931rewinddir rewinddir ck_fun s% F
932closedir closedir ck_fun is% F
79072805
LW
933
934# Process control.
935
db173bac 936fork fork ck_null ist0
b162f9ea
IZ
937wait wait ck_null isT0
938waitpid waitpid ck_fun isT@ S S
939system system ck_exec imsT@ S? L
940exec exec ck_exec dimsT@ S? L
941kill kill ck_fun dimsT@ L
942getppid getppid ck_null isT0
943getpgrp getpgrp ck_fun isT% S?
944setpgrp setpgrp ck_fun isT@ S? S?
945getpriority getpriority ck_fun isT@ S S
946setpriority setpriority ck_fun isT@ S S S
79072805
LW
947
948# Time calls.
949
cd39f2b6
JH
950# NOTE: MacOS patches the 'i' of time() away later when the interpreter
951# is created because in MacOS time() is already returning times > 2**31-1,
952# that is, non-integers.
953
b162f9ea 954time time ck_null isT0
79072805 955tms times ck_null 0
db173bac
MB
956localtime localtime ck_fun t% S?
957gmtime gmtime ck_fun t% S?
958alarm alarm ck_fun istu% S?
b162f9ea 959sleep sleep ck_fun isT% S?
79072805
LW
960
961# Shared memory.
962
db173bac
MB
963shmget shmget ck_fun imst@ S S S
964shmctl shmctl ck_fun imst@ S S S
965shmread shmread ck_fun imst@ S S S S
966shmwrite shmwrite ck_fun imst@ S S S S
79072805
LW
967
968# Message passing.
969
db173bac
MB
970msgget msgget ck_fun imst@ S S
971msgctl msgctl ck_fun imst@ S S S
972msgsnd msgsnd ck_fun imst@ S S S
973msgrcv msgrcv ck_fun imst@ S S S S S
79072805
LW
974
975# Semaphores.
976
7834bb7e 977semop semop ck_fun imst@ S S
db173bac
MB
978semget semget ck_fun imst@ S S S
979semctl semctl ck_fun imst@ S S S S
79072805
LW
980
981# Eval.
982
db173bac 983require require ck_require du% S?
b3f4d674
GS
984dofile do "file" ck_fun d1 S
985entereval eval "string" ck_eval d% S
986leaveeval eval "string" exit ck_null 1 S
db173bac 987#evalonce eval constant string ck_null d1 S
42d38218 988entertry eval {block} ck_null |
f1612b5c 989leavetry eval {block} exit ck_null @
79072805
LW
990
991# Get system info.
992
db173bac
MB
993ghbyname gethostbyname ck_fun % S
994ghbyaddr gethostbyaddr ck_fun @ S S
79072805 995ghostent gethostent ck_null 0
db173bac
MB
996gnbyname getnetbyname ck_fun % S
997gnbyaddr getnetbyaddr ck_fun @ S S
79072805 998gnetent getnetent ck_null 0
db173bac
MB
999gpbyname getprotobyname ck_fun % S
1000gpbynumber getprotobynumber ck_fun @ S
79072805 1001gprotoent getprotoent ck_null 0
db173bac
MB
1002gsbyname getservbyname ck_fun @ S S
1003gsbyport getservbyport ck_fun @ S S
79072805 1004gservent getservent ck_null 0
db173bac
MB
1005shostent sethostent ck_fun is% S
1006snetent setnetent ck_fun is% S
1007sprotoent setprotoent ck_fun is% S
1008sservent setservent ck_fun is% S
1009ehostent endhostent ck_null is0
1010enetent endnetent ck_null is0
1011eprotoent endprotoent ck_null is0
1012eservent endservent ck_null is0
1013gpwnam getpwnam ck_fun % S
1014gpwuid getpwuid ck_fun % S
79072805 1015gpwent getpwent ck_null 0
db173bac
MB
1016spwent setpwent ck_null is0
1017epwent endpwent ck_null is0
1018ggrnam getgrnam ck_fun % S
1019ggrgid getgrgid ck_fun % S
79072805 1020ggrent getgrent ck_null 0
db173bac
MB
1021sgrent setgrent ck_null is0
1022egrent endgrent ck_null is0
1023getlogin getlogin ck_null st0
79072805
LW
1024
1025# Miscellaneous.
1026
db173bac 1027syscall syscall ck_fun imst@ S L
c0329465
MB
1028
1029# For multi-threading
5a47f09b 1030lock lock ck_rfun s% R
7399586d
HS
1031
1032# Control (contd.)
3f872cb9 1033setstate set statement info ck_null s;
f5d5a27c 1034method_named method with known name ck_null d$
53e06cf0 1035
c963b151
BD
1036dor defined or (//) ck_null |
1037dorassign defined or assignment (//=) ck_null s|
1038
0d863452
RH
1039entergiven given() ck_null d|
1040leavegiven leave given block ck_null 1
1041enterwhen when() ck_null d|
1042leavewhen leave when block ck_null 1
1043break break ck_null 0
1044continue continue ck_null 0
1045smartmatch smart match ck_smartmatch s2
1046
cfc4a7da 1047say say ck_listiob ims@ F? L
0d863452 1048
16bb0245 1049# Add new ops before this, the custom operator.
7e030f46 1050
53e06cf0 1051custom unknown custom operator ck_null 0