This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix typo
[perl5.git] / opcode.pl
CommitLineData
79072805
LW
1#!/usr/bin/perl
2
abdd5c84 3unlink "opcode.h", "opnames.h";
79072805 4open(OC, ">opcode.h") || die "Can't create opcode.h: $!\n";
abdd5c84 5open(ON, ">opnames.h") || die "Can't create opnames.h: $!\n";
79072805
LW
6select OC;
7
8# Read data.
9
10while (<DATA>) {
11 chop;
12 next unless $_;
13 next if /^#/;
c07a80fd
PP
14 ($key, $desc, $check, $flags, $args) = split(/\t+/, $_, 5);
15
16 warn qq[Description "$desc" duplicates $seen{$desc}\n] if $seen{$desc};
17 die qq[Opcode "$key" duplicates $seen{$key}\n] if $seen{$key};
18 $seen{$desc} = qq[description of opcode "$key"];
19 $seen{$key} = qq[opcode "$key"];
20
79072805 21 push(@ops, $key);
c07a80fd 22 $desc{$key} = $desc;
79072805
LW
23 $check{$key} = $check;
24 $ckname{$check}++;
25 $flags{$key} = $flags;
26 $args{$key} = $args;
27}
28
29# Emit defines.
30
31$i = 0;
748a9306 32print <<"END";
a27f85b3
GS
33/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
34 This file is built by opcode.pl from its data. Any changes made here
35 will be lost!
36*/
37
864dbfa3
GS
38#define Perl_pp_i_preinc Perl_pp_preinc
39#define Perl_pp_i_predec Perl_pp_predec
40#define Perl_pp_i_postinc Perl_pp_postinc
41#define Perl_pp_i_postdec Perl_pp_postdec
748a9306 42
748a9306 43END
abdd5c84
GS
44
45print ON <<"END";
46/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
47 This file is built by opcode.pl from its data. Any changes made here
48 will be lost!
49*/
50
51typedef enum opcode {
52END
53
79072805 54for (@ops) {
abdd5c84 55 print ON "\t", &tab(3,"OP_\U$_,"), "/* ", $i++, " */\n";
79072805 56}
abdd5c84
GS
57print ON "\t", &tab(3,"OP_max"), "\n";
58print ON "} opcode;\n";
59print ON "\n#define MAXO ", scalar @ops, "\n\n";
79072805 60
c07a80fd 61# Emit op names and descriptions.
79072805
LW
62
63print <<END;
73c4f7a1
GS
64
65START_EXTERN_C
66
79072805 67#ifndef DOINIT
22c35a8c 68EXT char *PL_op_name[];
79072805 69#else
22c35a8c 70EXT char *PL_op_name[] = {
79072805
LW
71END
72
73for (@ops) {
c07a80fd
PP
74 print qq(\t"$_",\n);
75}
76
77print <<END;
78};
79#endif
80
81END
82
83print <<END;
84#ifndef DOINIT
22c35a8c 85EXT char *PL_op_desc[];
c07a80fd 86#else
22c35a8c 87EXT char *PL_op_desc[] = {
c07a80fd
PP
88END
89
90for (@ops) {
42d38218
MS
91 my($safe_desc) = $desc{$_};
92
93 # Have to escape double quotes and escape characters.
94 $safe_desc =~ s/(^|[^\\])([\\"])/$1\\$2/g;
95
96 print qq(\t"$safe_desc",\n);
79072805
LW
97}
98
99print <<END;
100};
101#endif
102
73c4f7a1
GS
103END_EXTERN_C
104
22c35a8c 105END
79072805 106
22c35a8c 107# Emit function declarations.
79072805 108
22c35a8c 109#for (sort keys %ckname) {
cea2e8a9 110# print "OP *\t", &tab(3,$_),"(pTHX_ OP* o);\n";
22c35a8c
GS
111#}
112#
113#print "\n";
114#
115#for (@ops) {
cea2e8a9 116# print "OP *\t", &tab(3, "pp_$_"), "(pTHX);\n";
22c35a8c 117#}
79072805
LW
118
119# Emit ppcode switch array.
120
121print <<END;
122
73c4f7a1
GS
123START_EXTERN_C
124
79072805 125#ifndef DOINIT
cea2e8a9 126EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX);
79072805 127#else
cea2e8a9 128EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = {
79072805
LW
129END
130
131for (@ops) {
864dbfa3 132 print "\tPerl_pp_$_,\n";
79072805
LW
133}
134
135print <<END;
136};
137#endif
138
139END
140
141# Emit check routines.
142
143print <<END;
144#ifndef DOINIT
cea2e8a9 145EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op);
79072805 146#else
cea2e8a9 147EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
79072805
LW
148END
149
150for (@ops) {
864dbfa3 151 print "\t", &tab(3, "Perl_$check{$_},"), "/* $_ */\n";
79072805
LW
152}
153
154print <<END;
155};
156#endif
157
158END
159
160# Emit allowed argument types.
161
162print <<END;
163#ifndef DOINIT
22c35a8c 164EXT U32 PL_opargs[];
79072805 165#else
22c35a8c 166EXT U32 PL_opargs[] = {
79072805
LW
167END
168
169%argnum = (
170 S, 1, # scalar
171 L, 2, # list
172 A, 3, # array value
173 H, 4, # hash value
174 C, 5, # code value
175 F, 6, # file value
176 R, 7, # scalar reference
177);
178
db173bac
MB
179%opclass = (
180 '0', 0, # baseop
181 '1', 1, # unop
182 '2', 2, # binop
183 '|', 3, # logop
1a67a97c
SM
184 '@', 4, # listop
185 '/', 5, # pmop
186 '$', 6, # svop
187 '*', 7, # gvop
188 '"', 8, # pvop_or_svop
189 '{', 9, # loop
190 ';', 10, # cop
191 '%', 11, # baseop_or_unop
192 '-', 12, # filestatop
193 '}', 13, # loopexop
db173bac
MB
194);
195
79072805
LW
196for (@ops) {
197 $argsum = 0;
198 $flags = $flags{$_};
199 $argsum |= 1 if $flags =~ /m/; # needs stack mark
200 $argsum |= 2 if $flags =~ /f/; # fold constants
201 $argsum |= 4 if $flags =~ /s/; # always produces scalar
202 $argsum |= 8 if $flags =~ /t/; # needs target scalar
b162f9ea 203 $argsum |= (8|256) if $flags =~ /T/; # ... which may be lexical
79072805
LW
204 $argsum |= 16 if $flags =~ /i/; # always produces integer
205 $argsum |= 32 if $flags =~ /I/; # has corresponding int op
206 $argsum |= 64 if $flags =~ /d/; # danger, unknown side effects
a0d0e21e 207 $argsum |= 128 if $flags =~ /u/; # defaults to $_
db173bac 208
8be7d673 209 $flags =~ /([\W\d_])/ or die qq[Opcode "$_" has no class indicator];
b162f9ea
IZ
210 $argsum |= $opclass{$1} << 9;
211 $mul = 0x2000; # 2 ^ OASHIFT
79072805
LW
212 for $arg (split(' ',$args{$_})) {
213 $argnum = ($arg =~ s/\?//) ? 8 : 0;
214 $argnum += $argnum{$arg};
b162f9ea
IZ
215 warn "# Conflicting bit 32 for '$_'.\n"
216 if $argnum & 8 and $mul == 0x10000000;
79072805
LW
217 $argsum += $argnum * $mul;
218 $mul <<= 4;
219 }
220 $argsum = sprintf("0x%08x", $argsum);
db173bac 221 print "\t", &tab(3, "$argsum,"), "/* $_ */\n";
79072805
LW
222}
223
224print <<END;
225};
226#endif
73c4f7a1
GS
227
228END_EXTERN_C
79072805
LW
229END
230
735e0d5c 231close OC or die "Error closing opcode.h: $!";
abdd5c84 232close ON or die "Error closing opnames.h: $!";
735e0d5c 233
2cd61cdb 234unlink "pp_proto.h";
22c35a8c 235unlink "pp.sym";
735e0d5c 236open PP, '>pp_proto.h' or die "Error creating pp_proto.h: $!";
22c35a8c
GS
237open PPSYM, '>pp.sym' or die "Error creating pp.sym: $!";
238
a27f85b3
GS
239print PP <<"END";
240/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
241 This file is built by opcode.pl from its data. Any changes made here
242 will be lost!
243*/
244
245END
246
247print PPSYM <<"END";
248#
249# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
250# This file is built by opcode.pl from its data. Any changes made here
251# will be lost!
252#
253
254END
255
256
22c35a8c 257for (sort keys %ckname) {
864dbfa3
GS
258 print PP "PERL_CKDEF(Perl_$_)\n";
259 print PPSYM "Perl_$_\n";
20ce7b12 260#OP *\t", &tab(3,$_),"(OP* o);\n";
22c35a8c
GS
261}
262
263print PP "\n\n";
264
735e0d5c 265for (@ops) {
15e52e56 266 next if /^i_(pre|post)(inc|dec)$/;
864dbfa3
GS
267 print PP "PERL_PPDEF(Perl_pp_$_)\n";
268 print PPSYM "Perl_pp_$_\n";
735e0d5c
IZ
269}
270
271close PP or die "Error closing pp_proto.h: $!";
22c35a8c 272close PPSYM or die "Error closing pp.sym: $!";
735e0d5c 273
79072805
LW
274###########################################################################
275sub tab {
276 local($l, $t) = @_;
277 $t .= "\t" x ($l - (length($t) + 1) / 8);
278 $t;
279}
280###########################################################################
b162f9ea
IZ
281
282# Some comments about 'T' opcode classifier:
283
284# Safe to set if the ppcode uses:
285# tryAMAGICbin, tryAMAGICun, SETn, SETi, SETu, PUSHn, PUSHTARG, SETTARG,
286# SETs(TARG), XPUSHn, XPUSHu,
287
288# Unsafe to set if the ppcode uses dTARG or [X]RETPUSH[YES|NO|UNDEF]
289
290# lt and friends do SETs (including ncmp, but not scmp)
291
292# pp.c pos substr each not OK (RETPUSHUNDEF)
293# substr vec also not OK due to LV to target (are they???)
294# ref not OK (RETPUSHNO)
295# trans not OK (dTARG; TARG = sv_newmortal();)
296# ucfirst etc not OK: TMP arg processed inplace
297# each repeat not OK too due to array context
298# pack split - unknown whether they are safe
299
300# pp_hot.c
301# readline - unknown whether it is safe
302# match subst not OK (dTARG)
303# grepwhile not OK (not always setting)
304
305# pp_ctl.c
306# mapwhile flip caller not OK (not always setting)
307
308# pp_sys.c
309# backtick glob warn die not OK (not always setting)
310# warn not OK (RETPUSHYES)
311# open fileno getc sysread syswrite ioctl accept shutdown
312# ftsize(etc) readlink telldir fork alarm getlogin not OK (RETPUSHUNDEF)
313# umask select not OK (XPUSHs(&PL_sv_undef);)
314# fileno getc sysread syswrite tell not OK (meth("FILENO" "GETC"))
315# sselect shm* sem* msg* syscall - unknown whether they are safe
316# gmtime not OK (list context)
317
79072805
LW
318__END__
319
7399586d
HS
320# New ops always go at the very end
321
79072805
LW
322# Nothing.
323
324null null operation ck_null 0
93a17b20 325stub stub ck_null 0
db173bac 326scalar scalar ck_fun s% S
79072805
LW
327
328# Pushy stuff.
329
db173bac
MB
330pushmark pushmark ck_null s0
331wantarray wantarray ck_null is0
79072805 332
db173bac 333const constant item ck_svconst s$
79072805 334
db173bac
MB
335gvsv scalar variable ck_null ds*
336gv glob value ck_null ds*
337gelem glob elem ck_null d2 S S
338padsv private variable ck_null ds0
339padav private array ck_null d0
340padhv private hash ck_null d0
341padany private something ck_null d0
79072805 342
1167e5da 343pushre push regexp ck_null d/
79072805
LW
344
345# References and stuff.
346
db173bac
MB
347rv2gv ref-to-glob cast ck_rvconst ds1
348rv2sv scalar deref ck_rvconst ds1
349av2arylen array length ck_null is1
350rv2cv subroutine deref ck_rvconst d1
351anoncode anonymous subroutine ck_anoncode $
352prototype subroutine prototype ck_null s% S
5d11ae5e 353refgen reference constructor ck_spair m1 L
dfa0f641 354srefgen single ref constructor ck_null fs1 S
db173bac
MB
355ref reference-type operator ck_fun stu% S?
356bless bless ck_fun s@ S S?
79072805
LW
357
358# Pushy I/O.
359
42d38218 360backtick quoted execution (``, qx) ck_null t%
0a753a76 361# glob defaults its first arg to $_
db173bac
MB
362glob glob ck_glob t@ S? S?
363readline <HANDLE> ck_null t%
364rcatline append I/O operator ck_null t%
79072805
LW
365
366# Bindable operators.
367
42d38218 368regcmaybe regexp comp once ck_fun s1 S
2cd61cdb 369regcreset regexp reset interpolation flag ck_fun s1 S
42d38218
MS
370regcomp regexp compilation ck_null s| S
371match pattern match (m//) ck_match d/
372qr pattern quote (qr//) ck_match s/
373subst substitution (s///) ck_null dis/ S
374substcont substitution cont ck_null dis|
375trans character translation (tr///) ck_null is" S
79072805
LW
376
377# Lvalue operators.
db173bac
MB
378# sassign is special-cased for op class
379
b162f9ea 380sassign scalar assignment ck_sassign s0
db173bac
MB
381aassign list assignment ck_null t2 L L
382
b162f9ea
IZ
383chop chop ck_spair mTs% L
384schop scalar chop ck_null sTu% S?
385chomp safe chop ck_spair mTs% L
386schomp scalar safe chop ck_null sTu% S?
69794302 387defined defined operator ck_defined isu% S?
db173bac
MB
388undef undef operator ck_lfun s% S?
389study study ck_fun su% S?
390pos match position ck_lfun stu% S?
391
42d38218
MS
392preinc preincrement (++) ck_lfun dIs1 S
393i_preinc integer preincrement (++) ck_lfun dis1 S
394predec predecrement (--) ck_lfun dIs1 S
395i_predec integer predecrement (--) ck_lfun dis1 S
396postinc postincrement (++) ck_lfun dIsT1 S
397i_postinc integer postincrement (++) ck_lfun disT1 S
398postdec postdecrement (--) ck_lfun dIsT1 S
399i_postdec integer postdecrement (--) ck_lfun disT1 S
79072805
LW
400
401# Ordinary operators.
402
42d38218
MS
403pow exponentiation (**) ck_null fsT2 S S
404
405multiply multiplication (*) ck_null IfsT2 S S
406i_multiply integer multiplication (*) ck_null ifsT2 S S
407divide division (/) ck_null IfsT2 S S
408i_divide integer division (/) ck_null ifsT2 S S
409modulo modulus (%) ck_null IifsT2 S S
410i_modulo integer modulus (%) ck_null ifsT2 S S
411repeat repeat (x) ck_repeat mt2 L S
412
413add addition (+) ck_null IfsT2 S S
414i_add integer addition (+) ck_null ifsT2 S S
415subtract subtraction (-) ck_null IfsT2 S S
416i_subtract integer subtraction (-) ck_null ifsT2 S S
417concat concatenation (.) ck_concat fsT2 S S
b162f9ea 418stringify string ck_fun fsT@ S
db173bac 419
42d38218
MS
420left_shift left bitshift (<<) ck_bitop fsT2 S S
421right_shift right bitshift (>>) ck_bitop fsT2 S S
422
423lt numeric lt (<) ck_null Iifs2 S S
424i_lt integer lt (<) ck_null ifs2 S S
425gt numeric gt (>) ck_null Iifs2 S S
426i_gt integer gt (>) ck_null ifs2 S S
427le numeric le (<=) ck_null Iifs2 S S
428i_le integer le (<=) ck_null ifs2 S S
429ge numeric ge (>=) ck_null Iifs2 S S
430i_ge integer ge (>=) ck_null ifs2 S S
431eq numeric eq (==) ck_null Iifs2 S S
432i_eq integer eq (==) ck_null ifs2 S S
433ne numeric ne (!=) ck_null Iifs2 S S
434i_ne integer ne (!=) ck_null ifs2 S S
435ncmp numeric comparison (<=>) ck_null Iifst2 S S
436i_ncmp integer comparison (<=>) ck_null ifst2 S S
db173bac
MB
437
438slt string lt ck_scmp ifs2 S S
439sgt string gt ck_scmp ifs2 S S
440sle string le ck_scmp ifs2 S S
441sge string ge ck_scmp ifs2 S S
442seq string eq ck_null ifs2 S S
443sne string ne ck_null ifs2 S S
42d38218 444scmp string comparison (cmp) ck_scmp ifst2 S S
db173bac 445
42d38218
MS
446bit_and bitwise and (&) ck_bitop fsT2 S S
447bit_xor bitwise xor (^) ck_bitop fsT2 S S
448bit_or bitwise or (|) ck_bitop fsT2 S S
db173bac 449
42d38218
MS
450negate negate (-) ck_null IfsT1 S
451i_negate integer negate (-) ck_null ifsT1 S
db173bac 452not not ck_null ifs1 S
42d38218 453complement 1's complement (~) ck_bitop fsT1 S
79072805
LW
454
455# High falutin' math.
456
42d38218
MS
457atan2 atan2 ck_fun fsT@ S S
458sin sin ck_fun fsTu% S?
459cos cos ck_fun fsTu% S?
460rand rand ck_fun sT% S?
461srand srand ck_fun s% S?
462exp exp ck_fun fsTu% S?
463log log ck_fun fsTu% S?
464sqrt sqrt ck_fun fsTu% S?
79072805 465
cf26c822
CS
466# Lowbrow math.
467
b162f9ea
IZ
468int int ck_fun fsTu% S?
469hex hex ck_fun fsTu% S?
470oct oct ck_fun fsTu% S?
471abs abs ck_fun fsTu% S?
79072805
LW
472
473# String stuff.
474
b162f9ea 475length length ck_lengthconst isTu% S?
7b8d334a 476substr substr ck_fun st@ S S S? S?
db173bac 477vec vec ck_fun ist@ S S S
79072805 478
b162f9ea
IZ
479index index ck_index isT@ S S S?
480rindex rindex ck_index isT@ S S S?
79072805 481
b162f9ea 482sprintf sprintf ck_fun_locale mfsT@ S L
db173bac 483formline formline ck_fun ms@ S L
b162f9ea
IZ
484ord ord ck_fun ifsTu% S?
485chr chr ck_fun fsTu% S?
486crypt crypt ck_fun fsT@ S S
42d38218
MS
487ucfirst ucfirst ck_fun_locale fstu% S?
488lcfirst lcfirst ck_fun_locale fstu% S?
489uc uc ck_fun_locale fstu% S?
490lc lc ck_fun_locale fstu% S?
491quotemeta quotemeta ck_fun fsTu% S?
79072805
LW
492
493# Arrays.
494
db173bac
MB
495rv2av array deref ck_rvconst dt1
496aelemfast known array element ck_null s* A S
497aelem array element ck_null s2 A S
498aslice array slice ck_null m@ A L
79072805 499
aa689395 500# Hashes.
79072805 501
59af0135 502each each ck_fun % H
db173bac
MB
503values values ck_fun t% H
504keys keys ck_fun t% H
505delete delete ck_delete % S
42d38218 506exists exists ck_exists is% S
db173bac
MB
507rv2hv hash deref ck_rvconst dt1
508helem hash elem ck_null s2@ H S
509hslice hash slice ck_null m@ H L
79072805
LW
510
511# Explosives and implosives.
512
db173bac
MB
513unpack unpack ck_fun @ S S
514pack pack ck_fun mst@ S L
515split split ck_split t@ S S S
eb6e2d6f 516join join ck_join msT@ S L
79072805
LW
517
518# List operators.
519
db173bac
MB
520list list ck_null m@ L
521lslice list slice ck_null 2 H L L
42d38218
MS
522anonlist anonymous list ([]) ck_fun ms@ L
523anonhash anonymous hash ({}) ck_fun ms@ L
79072805 524
db173bac 525splice splice ck_fun m@ A S? S? L
b162f9ea 526push push ck_fun imsT@ A L
a9f58cad 527pop pop ck_shift s% A
db173bac 528shift shift ck_shift s% A
b162f9ea 529unshift unshift ck_fun imsT@ A L
db173bac
MB
530sort sort ck_sort m@ C? L
531reverse reverse ck_fun mt@ L
79072805 532
42d38218
MS
533grepstart grep ck_grep dm@ C L
534grepwhile grep iterator ck_null dt|
79072805 535
42d38218
MS
536mapstart map ck_grep dm@ C L
537mapwhile map iterator ck_null dt|
a0d0e21e 538
79072805
LW
539# Range stuff.
540
1a67a97c 541range flipflop ck_null | S S
db173bac
MB
542flip range (or flip) ck_null 1 S S
543flop range (or flop) ck_null 1
79072805
LW
544
545# Control.
546
42d38218
MS
547and logical and (&&) ck_null |
548or logical or (||) ck_null |
888b73cf 549xor logical xor ck_null fs2 S S
42d38218
MS
550cond_expr conditional operator (?:) ck_null d|
551andassign logical and assignment (&&=) ck_null s|
552orassign logical or assignment (||=) ck_null s|
db173bac 553
f5d5a27c 554method method lookup ck_method d1
db173bac
MB
555entersub subroutine entry ck_subr dmt1 L
556leavesub subroutine exit ck_null 1
cd06dffe 557leavesublv lvalue subroutine exit ck_null 1
db173bac
MB
558caller caller ck_fun t% S?
559warn warn ck_fun imst@ L
560die die ck_fun dimst@ L
561reset reset ck_fun is% S?
562
563lineseq line sequence ck_null @
564nextstate next statement ck_null s;
565dbstate debug next statement ck_null s;
e9c54c90 566unstack iteration finalizer ck_null s0
79072805 567enter block entry ck_null 0
db173bac
MB
568leave block exit ck_null @
569scope block ck_null @
570enteriter foreach loop entry ck_null d{
79072805 571iter foreach loop iterator ck_null 0
db173bac
MB
572enterloop loop entry ck_null d{
573leaveloop loop exit ck_null 2
574return return ck_null dm@ L
575last last ck_null ds}
576next next ck_null ds}
577redo redo ck_null ds}
578dump dump ck_null ds}
579goto goto ck_null ds}
580exit exit ck_fun ds% S?
7399586d 581# continued below
79072805 582
a0d0e21e
LW
583#nswitch numeric switch ck_null d
584#cswitch character switch ck_null d
79072805
LW
585
586# I/O.
587
6170680b 588open open ck_fun ist@ F S? S?
db173bac
MB
589close close ck_fun is% F?
590pipe_op pipe ck_fun is@ F F
79072805 591
db173bac
MB
592fileno fileno ck_fun ist% F
593umask umask ck_fun ist% S?
594binmode binmode ck_fun s% F
79072805 595
db173bac
MB
596tie tie ck_fun idms@ R S L
597untie untie ck_fun is% R
598tied tied ck_fun s% R
599dbmopen dbmopen ck_fun is@ H S S
600dbmclose dbmclose ck_fun is% H
79072805 601
db173bac
MB
602sselect select system call ck_select t@ S S S S
603select select ck_select st@ F?
79072805 604
db173bac 605getc getc ck_eof st% F?
d1a002d4 606read read ck_fun imst@ F R S S?
db173bac
MB
607enterwrite write ck_fun dis% F?
608leavewrite write exit ck_null 1
79072805 609
db173bac
MB
610prtf printf ck_listiob ims@ F? L
611print print ck_listiob ims@ F? L
79072805 612
db173bac
MB
613sysopen sysopen ck_fun s@ F S S S?
614sysseek sysseek ck_fun s@ F S S
d1a002d4 615sysread sysread ck_fun imst@ F R S S?
145d37e2 616syswrite syswrite ck_fun imst@ F S S? S?
79072805 617
db173bac 618send send ck_fun imst@ F S S S?
d1a002d4 619recv recv ck_fun imst@ F R S S
79072805 620
db173bac
MB
621eof eof ck_eof is% F?
622tell tell ck_fun st% F?
623seek seek ck_fun s@ F S S
9b01e405 624# truncate really behaves as if it had both "S S" and "F S"
db173bac 625truncate truncate ck_trunc is@ S S
79072805 626
db173bac
MB
627fcntl fcntl ck_fun st@ F S S
628ioctl ioctl ck_fun st@ F S S
b162f9ea 629flock flock ck_fun isT@ F S
79072805
LW
630
631# Sockets.
632
db173bac
MB
633socket socket ck_fun is@ F S S S
634sockpair socketpair ck_fun is@ F F S S S
79072805 635
db173bac
MB
636bind bind ck_fun is@ F S
637connect connect ck_fun is@ F S
638listen listen ck_fun is@ F S
639accept accept ck_fun ist@ F F
640shutdown shutdown ck_fun ist@ F S
79072805 641
db173bac
MB
642gsockopt getsockopt ck_fun is@ F S S
643ssockopt setsockopt ck_fun is@ F S S S
79072805 644
db173bac
MB
645getsockname getsockname ck_fun is% F
646getpeername getpeername ck_fun is% F
79072805
LW
647
648# Stat calls.
649
db173bac
MB
650lstat lstat ck_ftst u- F
651stat stat ck_ftst u- F
652ftrread -R ck_ftst isu- F
653ftrwrite -W ck_ftst isu- F
654ftrexec -X ck_ftst isu- F
655fteread -r ck_ftst isu- F
656ftewrite -w ck_ftst isu- F
657fteexec -x ck_ftst isu- F
658ftis -e ck_ftst isu- F
659fteowned -O ck_ftst isu- F
660ftrowned -o ck_ftst isu- F
661ftzero -z ck_ftst isu- F
662ftsize -s ck_ftst istu- F
663ftmtime -M ck_ftst stu- F
664ftatime -A ck_ftst stu- F
665ftctime -C ck_ftst stu- F
666ftsock -S ck_ftst isu- F
667ftchr -c ck_ftst isu- F
668ftblk -b ck_ftst isu- F
669ftfile -f ck_ftst isu- F
670ftdir -d ck_ftst isu- F
671ftpipe -p ck_ftst isu- F
672ftlink -l ck_ftst isu- F
673ftsuid -u ck_ftst isu- F
674ftsgid -g ck_ftst isu- F
675ftsvtx -k ck_ftst isu- F
676fttty -t ck_ftst is- F
677fttext -T ck_ftst isu- F
678ftbinary -B ck_ftst isu- F
79072805
LW
679
680# File calls.
681
b162f9ea
IZ
682chdir chdir ck_fun isT% S?
683chown chown ck_fun imsT@ L
684chroot chroot ck_fun isTu% S?
685unlink unlink ck_fun imsTu@ L
686chmod chmod ck_fun imsT@ L
687utime utime ck_fun imsT@ L
688rename rename ck_fun isT@ S S
689link link ck_fun isT@ S S
690symlink symlink ck_fun isT@ S S
db173bac 691readlink readlink ck_fun stu% S?
b162f9ea
IZ
692mkdir mkdir ck_fun isT@ S S
693rmdir rmdir ck_fun isTu% S?
79072805
LW
694
695# Directory calls.
696
db173bac
MB
697open_dir opendir ck_fun is@ F S
698readdir readdir ck_fun % F
699telldir telldir ck_fun st% F
700seekdir seekdir ck_fun s@ F S
701rewinddir rewinddir ck_fun s% F
702closedir closedir ck_fun is% F
79072805
LW
703
704# Process control.
705
db173bac 706fork fork ck_null ist0
b162f9ea
IZ
707wait wait ck_null isT0
708waitpid waitpid ck_fun isT@ S S
709system system ck_exec imsT@ S? L
710exec exec ck_exec dimsT@ S? L
711kill kill ck_fun dimsT@ L
712getppid getppid ck_null isT0
713getpgrp getpgrp ck_fun isT% S?
714setpgrp setpgrp ck_fun isT@ S? S?
715getpriority getpriority ck_fun isT@ S S
716setpriority setpriority ck_fun isT@ S S S
79072805
LW
717
718# Time calls.
719
b162f9ea 720time time ck_null isT0
79072805 721tms times ck_null 0
db173bac
MB
722localtime localtime ck_fun t% S?
723gmtime gmtime ck_fun t% S?
724alarm alarm ck_fun istu% S?
b162f9ea 725sleep sleep ck_fun isT% S?
79072805
LW
726
727# Shared memory.
728
db173bac
MB
729shmget shmget ck_fun imst@ S S S
730shmctl shmctl ck_fun imst@ S S S
731shmread shmread ck_fun imst@ S S S S
732shmwrite shmwrite ck_fun imst@ S S S S
79072805
LW
733
734# Message passing.
735
db173bac
MB
736msgget msgget ck_fun imst@ S S
737msgctl msgctl ck_fun imst@ S S S
738msgsnd msgsnd ck_fun imst@ S S S
739msgrcv msgrcv ck_fun imst@ S S S S S
79072805
LW
740
741# Semaphores.
742
db173bac
MB
743semget semget ck_fun imst@ S S S
744semctl semctl ck_fun imst@ S S S S
745semop semop ck_fun imst@ S S
79072805
LW
746
747# Eval.
748
db173bac
MB
749require require ck_require du% S?
750dofile do 'file' ck_fun d1 S
42d38218 751entereval eval "string" ck_eval d% S
db173bac
MB
752leaveeval eval exit ck_null 1 S
753#evalonce eval constant string ck_null d1 S
42d38218 754entertry eval {block} ck_null |
db173bac 755leavetry eval block exit ck_null @
79072805
LW
756
757# Get system info.
758
db173bac
MB
759ghbyname gethostbyname ck_fun % S
760ghbyaddr gethostbyaddr ck_fun @ S S
79072805 761ghostent gethostent ck_null 0
db173bac
MB
762gnbyname getnetbyname ck_fun % S
763gnbyaddr getnetbyaddr ck_fun @ S S
79072805 764gnetent getnetent ck_null 0
db173bac
MB
765gpbyname getprotobyname ck_fun % S
766gpbynumber getprotobynumber ck_fun @ S
79072805 767gprotoent getprotoent ck_null 0
db173bac
MB
768gsbyname getservbyname ck_fun @ S S
769gsbyport getservbyport ck_fun @ S S
79072805 770gservent getservent ck_null 0
db173bac
MB
771shostent sethostent ck_fun is% S
772snetent setnetent ck_fun is% S
773sprotoent setprotoent ck_fun is% S
774sservent setservent ck_fun is% S
775ehostent endhostent ck_null is0
776enetent endnetent ck_null is0
777eprotoent endprotoent ck_null is0
778eservent endservent ck_null is0
779gpwnam getpwnam ck_fun % S
780gpwuid getpwuid ck_fun % S
79072805 781gpwent getpwent ck_null 0
db173bac
MB
782spwent setpwent ck_null is0
783epwent endpwent ck_null is0
784ggrnam getgrnam ck_fun % S
785ggrgid getgrgid ck_fun % S
79072805 786ggrent getgrent ck_null 0
db173bac
MB
787sgrent setgrent ck_null is0
788egrent endgrent ck_null is0
789getlogin getlogin ck_null st0
79072805
LW
790
791# Miscellaneous.
792
db173bac 793syscall syscall ck_fun imst@ S L
c0329465
MB
794
795# For multi-threading
db173bac 796lock lock ck_rfun s% S
2faa37cc 797threadsv per-thread variable ck_null ds0
7399586d
HS
798
799# Control (contd.)
3f872cb9 800setstate set statement info ck_null s;
f5d5a27c 801method_named method with known name ck_null d$