Context Navigation

source: trunk/third/perl/opcode.pl @ 14545

Visit:

Revision 14545, 20.9 KB checked in by ghudson, 25 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r14544, which included commits to RCS files with non-trunk default branches.
Property svn:executable set to ``*

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: