[perl5.git] / regen / opcodes

# New ops always go at the end
# The restriction on having custom as the last op has been removed

# A recapitulation of the format of this file:
# The file consists of five columns: the name of the op, an English
# description, the name of the "check" routine used to optimize this
# operation, some flags, and a description of the operands.

# The flags consist of options followed by a mandatory op class signifier

# The classes are:
# baseop      - 0            unop     - 1            binop      - 2
# logop       - |            listop   - @            pmop       - /
# padop/svop  - $            padop    - # (unused)   loop       - {
# baseop/unop - %            loopexop - }            filestatop - -
# pvop/svop   - "            cop      - ;

# Other options are:
#   needs stack mark                    - m
#   needs constant folding              - f
#   produces a scalar                   - s
#   produces an integer                 - i
#   needs a target                      - t
#   target can be in a pad              - T
#   has a corresponding integer version - I
#   has side effects                    - d
#   uses $_ if no argument given        - u

# Values for the operands are:
# scalar      - S            list     - L            array     - A
# hash        - H            sub (CV) - C            file      - F
# socket      - Fs           filetest - F-           filetest_access - F-+
# num-compare - S<           dirhandle - DF

# reference - R
# "?" denotes an optional operand.

# Nothing.

null		null operation		ck_null		0	
stub		stub			ck_null		0
scalar		scalar			ck_fun		s%	S

# Pushy stuff.

pushmark	pushmark		ck_null		s0	
wantarray	wantarray		ck_null		is0	

const		constant item		ck_svconst	s$	

gvsv		scalar variable		ck_null		ds$	
gv		glob value		ck_null		ds$	
gelem		glob elem		ck_null		d2	S S
padsv		private variable	ck_null		ds0
padav		private array		ck_null		d0
padhv		private hash		ck_null		d0
padany		private value		ck_null		d0

pushre		push regexp		ck_null		d/

# References and stuff.

rv2gv		ref-to-glob cast	ck_rvconst	ds1	
rv2sv		scalar dereference	ck_rvconst	ds1	
av2arylen	array length		ck_null		is1	
rv2cv		subroutine dereference	ck_rvconst	d1
anoncode	anonymous subroutine	ck_anoncode	$	
prototype	subroutine prototype	ck_null		s%	S
refgen		reference constructor	ck_spair	m1	L
srefgen		single ref constructor	ck_null		fs1	S
ref		reference-type operator	ck_fun		stu%	S?
bless		bless			ck_fun		s@	S S?

# Pushy I/O.

backtick	quoted execution (``, qx)	ck_open		tu%	S?
# glob defaults its first arg to $_
glob		glob			ck_glob		t@	S?
readline	<HANDLE>		ck_readline	t%	F?
rcatline	append I/O operator	ck_null		t$

# Bindable operators.

regcmaybe	regexp internal guard	ck_fun		s1	S
regcreset	regexp internal reset	ck_fun		s1	S
regcomp		regexp compilation	ck_null		s|	S
match		pattern match (m//)	ck_match	d/
qr		pattern quote (qr//)	ck_match	s/
subst		substitution (s///)	ck_match	dis/	S
substcont	substitution iterator	ck_null		dis|	
trans		transliteration (tr///)	ck_match	is"	S
# y///r
transr		transliteration (tr///)	ck_match	is"	S

# Lvalue operators.
# sassign is special-cased for op class

sassign		scalar assignment	ck_sassign	s0
aassign		list assignment		ck_null		t2	L L

chop		chop			ck_spair	mts%	L
schop		scalar chop		ck_null		stu%	S?
chomp		chomp			ck_spair	mTs%	L
schomp		scalar chomp		ck_null		sTu%	S?
defined		defined operator	ck_defined	isu%	S?
undef		undef operator		ck_fun		s%	R?
study		study			ck_fun		su%	S?
pos		match position		ck_fun		stu%	R?

preinc		preincrement (++)		ck_lfun		dIs1	S
i_preinc	integer preincrement (++)	ck_lfun		dis1	S
predec		predecrement (--)		ck_lfun		dIs1	S
i_predec	integer predecrement (--)	ck_lfun		dis1	S
postinc		postincrement (++)		ck_lfun		dIst1	S
i_postinc	integer postincrement (++)	ck_lfun		disT1	S
postdec		postdecrement (--)		ck_lfun		dIst1	S
i_postdec	integer postdecrement (--)	ck_lfun		disT1	S

# Ordinary operators.

pow		exponentiation (**)	ck_null		fsT2	S S

multiply	multiplication (*)	ck_null		IfsT2	S S
i_multiply	integer multiplication (*)	ck_null		ifsT2	S S
divide		division (/)		ck_null		IfsT2	S S
i_divide	integer division (/)	ck_null		ifsT2	S S
modulo		modulus (%)		ck_null		IifsT2	S S
i_modulo	integer modulus (%)	ck_null		ifsT2	S S
repeat		repeat (x)		ck_repeat	fmt2	L S

add		addition (+)		ck_null		IfsT2	S S
i_add		integer addition (+)	ck_null		ifsT2	S S
subtract	subtraction (-)		ck_null		IfsT2	S S
i_subtract	integer subtraction (-)	ck_null		ifsT2	S S
concat		concatenation (.) or string	ck_concat	fsT2	S S
stringify	string			ck_fun		fsT@	S

left_shift	left bitshift (<<)	ck_bitop	fsT2	S S
right_shift	right bitshift (>>)	ck_bitop	fsT2	S S

lt		numeric lt (<)		ck_cmp		Iifs2	S S<
i_lt		integer lt (<)		ck_cmp		ifs2	S S<
gt		numeric gt (>)		ck_cmp		Iifs2	S S<
i_gt		integer gt (>)		ck_cmp		ifs2	S S<
le		numeric le (<=)		ck_cmp		Iifs2	S S<
i_le		integer le (<=)		ck_cmp		ifs2	S S<
ge		numeric ge (>=)		ck_cmp		Iifs2	S S<
i_ge		integer ge (>=)		ck_cmp		ifs2	S S<
eq		numeric eq (==)		ck_null		Iifs2	S S<
i_eq		integer eq (==)		ck_null		ifs2	S S<
ne		numeric ne (!=)		ck_null		Iifs2	S S<
i_ne		integer ne (!=)		ck_null		ifs2	S S<
ncmp		numeric comparison (<=>)	ck_null		Iifst2	S S<
i_ncmp		integer comparison (<=>)	ck_null		ifst2	S S<

slt		string lt		ck_null		ifs2	S S
sgt		string gt		ck_null		ifs2	S S
sle		string le		ck_null		ifs2	S S
sge		string ge		ck_null		ifs2	S S
seq		string eq		ck_null		ifs2	S S
sne		string ne		ck_null		ifs2	S S
scmp		string comparison (cmp)	ck_null		ifst2	S S

bit_and		bitwise and (&)		ck_bitop	fst2	S S
bit_xor		bitwise xor (^)		ck_bitop	fst2	S S
bit_or		bitwise or (|)		ck_bitop	fst2	S S

negate		negation (-)		ck_null		Ifst1	S
i_negate	integer negation (-)	ck_null		ifsT1	S
not		not			ck_null		ifs1	S
complement	1's complement (~)	ck_bitop	fst1	S

smartmatch	smart match		ck_smartmatch	s2

# High falutin' math.

atan2		atan2			ck_fun		fsT@	S S
sin		sin			ck_fun		fsTu%	S?
cos		cos			ck_fun		fsTu%	S?
rand		rand			ck_fun		sT%	S?
srand		srand			ck_fun		sT%	S?
exp		exp			ck_fun		fsTu%	S?
log		log			ck_fun		fsTu%	S?
sqrt		sqrt			ck_fun		fsTu%	S?

# Lowbrow math.

int		int			ck_fun		fsTu%	S?
hex		hex			ck_fun		fsTu%	S?
oct		oct			ck_fun		fsTu%	S?
abs		abs			ck_fun		fsTu%	S?

# String stuff.

length		length			ck_length	ifsTu%	S?
substr		substr			ck_substr	st@	S S S? S?
vec		vec			ck_fun		ist@	S S S

index		index			ck_index	isT@	S S S?
rindex		rindex			ck_index	isT@	S S S?

sprintf		sprintf			ck_lfun		fmst@	S L
formline	formline		ck_fun		ms@	S L
ord		ord			ck_fun		ifsTu%	S?
chr		chr			ck_fun		fsTu%	S?
crypt		crypt			ck_fun		fsT@	S S
ucfirst		ucfirst			ck_fun		fstu%	S?
lcfirst		lcfirst			ck_fun		fstu%	S?
uc		uc			ck_fun		fstu%	S?
lc		lc			ck_fun		fstu%	S?
quotemeta	quotemeta		ck_fun		fstu%	S?

# Arrays.

rv2av		array dereference	ck_rvconst	dt1	
aelemfast	constant array element	ck_null		s$	A S
aelemfast_lex	constant lexical array element	ck_null		d0	A S
aelem		array element		ck_null		s2	A S
aslice		array slice		ck_null		m@	A L

aeach		each on array		ck_each		%	A
akeys		keys on array		ck_each		t%	A
avalues		values on array		ck_each		t%	A

# Hashes.

each		each			ck_each		%	H
values		values			ck_each		t%	H
keys		keys			ck_each		t%	H
delete		delete			ck_delete	%	S
exists		exists			ck_exists	is%	S
rv2hv		hash dereference	ck_rvconst	dt1	
helem		hash element		ck_null		s2	H S
hslice		hash slice		ck_null		m@	H L
boolkeys	boolkeys		ck_fun		%	H

# Explosives and implosives.

unpack		unpack			ck_fun		u@	S S?
pack		pack			ck_fun		mst@	S L
split		split			ck_split	t@	S S S
join		join or string		ck_join		mst@	S L

# List operators.

list		list			ck_null		m@	L
lslice		list slice		ck_null		2	H L L
anonlist	anonymous list ([])	ck_fun		ms@	L
anonhash	anonymous hash ({})	ck_fun		ms@	L

splice		splice			ck_fun		m@	A S? S? L
push		push			ck_fun		imsT@	A L
pop		pop			ck_shift	s%	A?
shift		shift			ck_shift	s%	A?
unshift		unshift			ck_fun		imsT@	A L
sort		sort			ck_sort		dm@	C? L
reverse		reverse			ck_fun		mt@	L

grepstart	grep			ck_grep		dm@	C L
grepwhile	grep iterator		ck_null		dt|	

mapstart	map			ck_grep		dm@	C L
mapwhile	map iterator		ck_null		dt|

# Range stuff.

range		flipflop		ck_null		|	S S
flip		range (or flip)		ck_null		1	S S
flop		range (or flop)		ck_null		1

# Control.

and		logical and (&&)		ck_null		|	
or		logical or (||)			ck_null		|	
xor		logical xor			ck_null		fs2	S S	
dor		defined or (//)			ck_null		|
cond_expr	conditional expression		ck_null		d|	
andassign	logical and assignment (&&=)	ck_null		s|	
orassign	logical or assignment (||=)	ck_null		s|	
dorassign	defined or assignment (//=)	ck_null		s|

method		method lookup		ck_method	d1
entersub	subroutine entry	ck_subr		dmt1	L
leavesub	subroutine exit		ck_null		1	
leavesublv	lvalue subroutine return	ck_null		1	
caller		caller			ck_fun		t%	S?
warn		warn			ck_fun		imst@	L
die		die			ck_die		dimst@	L
reset		symbol reset		ck_fun		is%	S?

lineseq		line sequence		ck_null		@	
nextstate	next statement		ck_null		s;	
dbstate		debug next statement	ck_null		s;	
unstack		iteration finalizer	ck_null		s0
enter		block entry		ck_null		0	
leave		block exit		ck_null		@	
scope		block			ck_null		@	
enteriter	foreach loop entry	ck_null		d{	
iter		foreach loop iterator	ck_null		0	
enterloop	loop entry		ck_null		d{	
leaveloop	loop exit		ck_null		2	
return		return			ck_return	dm@	L
last		last			ck_null		ds}	
next		next			ck_null		ds}	
redo		redo			ck_null		ds}	
dump		dump			ck_null		ds}	
goto		goto			ck_null		ds}	
exit		exit			ck_exit		ds%	S?
method_named	method with known name	ck_null		d$

entergiven	given()			ck_null		d|
leavegiven	leave given block	ck_null		1
enterwhen	when()			ck_null		d|
leavewhen	leave when block	ck_null		1
break		break			ck_null		0
continue	continue		ck_null		0

# I/O.

open		open			ck_open		ismt@	F S? L
close		close			ck_fun		is%	F?
pipe_op		pipe			ck_fun		is@	F F

fileno		fileno			ck_fun		ist%	F
umask		umask			ck_fun		ist%	S?
binmode		binmode			ck_fun		s@	F S?

tie		tie			ck_fun		idms@	R S L
untie		untie			ck_fun		is%	R
tied		tied			ck_fun		s%	R
dbmopen		dbmopen			ck_fun		is@	H S S
dbmclose	dbmclose		ck_fun		is%	H

sselect		select system call	ck_select	t@	S S S S
select		select			ck_select	st@	F?

getc		getc			ck_eof		st%	F?
read		read			ck_fun		imst@	F R S S?
enterwrite	write			ck_fun		dis%	F?
leavewrite	write exit		ck_null		1	

prtf		printf			ck_listiob	ims@	F? L
print		print			ck_listiob	ims@	F? L
say		say			ck_listiob	ims@	F? L

sysopen		sysopen			ck_fun		s@	F S S S?
sysseek		sysseek			ck_fun		s@	F S S
sysread		sysread			ck_fun		imst@	F R S S?
syswrite	syswrite		ck_fun		imst@	F S S? S?

eof		eof			ck_eof		is%	F?
tell		tell			ck_tell		st%	F?
seek		seek			ck_tell		s@	F S S
# truncate really behaves as if it had both "S S" and "F S"
truncate	truncate		ck_trunc	is@	S S

fcntl		fcntl			ck_fun		st@	F S S
ioctl		ioctl			ck_fun		st@	F S S
flock		flock			ck_fun		isT@	F S

# Sockets.  OP_IS_SOCKET wants them consecutive (so moved 1st 2)

send		send			ck_fun		imst@	Fs S S S?
recv		recv			ck_fun		imst@	Fs R S S

socket		socket			ck_fun		is@	Fs S S S
sockpair	socketpair		ck_fun		is@	Fs Fs S S S

bind		bind			ck_fun		is@	Fs S
connect		connect			ck_fun		is@	Fs S
listen		listen			ck_fun		is@	Fs S
accept		accept			ck_fun		ist@	Fs Fs
shutdown	shutdown		ck_fun		ist@	Fs S

gsockopt	getsockopt		ck_fun		is@	Fs S S
ssockopt	setsockopt		ck_fun		is@	Fs S S S

getsockname	getsockname		ck_fun		is%	Fs
getpeername	getpeername		ck_fun		is%	Fs

# Stat calls.  OP_IS_FILETEST wants them consecutive.

lstat		lstat			ck_ftst		u-	F?
stat		stat			ck_ftst		u-	F?
ftrread		-R			ck_ftst		isu-	F-+
ftrwrite	-W			ck_ftst		isu-	F-+
ftrexec		-X			ck_ftst		isu-	F-+
fteread		-r			ck_ftst		isu-	F-+
ftewrite	-w			ck_ftst		isu-	F-+
fteexec		-x			ck_ftst		isu-	F-+
ftis		-e			ck_ftst		isu-	F-
ftsize		-s			ck_ftst		istu-	F-
ftmtime		-M			ck_ftst		stu-	F-
ftatime		-A			ck_ftst		stu-	F-
ftctime		-C			ck_ftst		stu-	F-
ftrowned	-O			ck_ftst		isu-	F-
fteowned	-o			ck_ftst		isu-	F-
ftzero		-z			ck_ftst		isu-	F-
ftsock		-S			ck_ftst		isu-	F-
ftchr		-c			ck_ftst		isu-	F-
ftblk		-b			ck_ftst		isu-	F-
ftfile		-f			ck_ftst		isu-	F-
ftdir		-d			ck_ftst		isu-	F-
ftpipe		-p			ck_ftst		isu-	F-
ftsuid		-u			ck_ftst		isu-	F-
ftsgid		-g			ck_ftst		isu-	F-
ftsvtx		-k			ck_ftst		isu-	F-
ftlink		-l			ck_ftst		isu-	F-
fttty		-t			ck_ftst		is-	F-
fttext		-T			ck_ftst		isu-	F-
ftbinary	-B			ck_ftst		isu-	F-

# File calls.

# chdir really behaves as if it had both "S?" and "F?"
chdir		chdir			ck_chdir	isT%	S?
chown		chown			ck_fun		imsT@	L
chroot		chroot			ck_fun		isTu%	S?
unlink		unlink			ck_fun		imsTu@	L
chmod		chmod			ck_fun		imsT@	L
utime		utime			ck_fun		imsT@	L
rename		rename			ck_fun		isT@	S S
link		link			ck_fun		isT@	S S
symlink		symlink			ck_fun		isT@	S S
readlink	readlink		ck_fun		stu%	S?
mkdir		mkdir			ck_fun		isTu@	S? S?
rmdir		rmdir			ck_fun		isTu%	S?

# Directory calls.

open_dir	opendir			ck_fun		is@	F S
readdir		readdir			ck_fun		%	DF
telldir		telldir			ck_fun		st%	DF
seekdir		seekdir			ck_fun		s@	DF S
rewinddir	rewinddir		ck_fun		s%	DF
closedir	closedir		ck_fun		is%	DF

# Process control.

fork		fork			ck_null		ist0	
wait		wait			ck_null		isT0	
waitpid		waitpid			ck_fun		isT@	S S
system		system			ck_exec		imsT@	S? L
exec		exec			ck_exec		dimsT@	S? L
kill		kill			ck_fun		dimsT@	L
getppid		getppid			ck_null		isT0	
getpgrp		getpgrp			ck_fun		isT%	S?
setpgrp		setpgrp			ck_fun		isT@	S? S?
getpriority	getpriority		ck_fun		isT@	S S
setpriority	setpriority		ck_fun		isT@	S S S

# Time calls.

time		time			ck_null		isT0	
tms		times			ck_null		0	
localtime	localtime		ck_fun		t%	S?
gmtime		gmtime			ck_fun		t%	S?
alarm		alarm			ck_fun		istu%	S?
sleep		sleep			ck_fun		isT%	S?

# Shared memory.

shmget		shmget			ck_fun		imst@	S S S
shmctl		shmctl			ck_fun		imst@	S S S
shmread		shmread			ck_fun		imst@	S S S S
shmwrite	shmwrite		ck_fun		imst@	S S S S

# Message passing.

msgget		msgget			ck_fun		imst@	S S
msgctl		msgctl			ck_fun		imst@	S S S
msgsnd		msgsnd			ck_fun		imst@	S S S
msgrcv		msgrcv			ck_fun		imst@	S S S S S

# Semaphores.

semop		semop			ck_fun		imst@	S S
semget		semget			ck_fun		imst@	S S S
semctl		semctl			ck_fun		imst@	S S S S

# Eval.

require		require			ck_require	du%	S?
dofile		do "file"		ck_fun		d1	S
hintseval	eval hints		ck_svconst	s$
entereval	eval "string"		ck_eval		du%	S?
leaveeval	eval "string" exit	ck_null		1	S
entertry	eval {block}		ck_eval		d|	
leavetry	eval {block} exit	ck_null		@	

# Get system info.

ghbyname	gethostbyname		ck_fun		%	S
ghbyaddr	gethostbyaddr		ck_fun		@	S S
ghostent	gethostent		ck_null		0	
gnbyname	getnetbyname		ck_fun		%	S
gnbyaddr	getnetbyaddr		ck_fun		@	S S
gnetent		getnetent		ck_null		0	
gpbyname	getprotobyname		ck_fun		%	S
gpbynumber	getprotobynumber	ck_fun		@	S
gprotoent	getprotoent		ck_null		0	
gsbyname	getservbyname		ck_fun		@	S S
gsbyport	getservbyport		ck_fun		@	S S
gservent	getservent		ck_null		0	
shostent	sethostent		ck_fun		is%	S
snetent		setnetent		ck_fun		is%	S
sprotoent	setprotoent		ck_fun		is%	S
sservent	setservent		ck_fun		is%	S
ehostent	endhostent		ck_null		is0	
enetent		endnetent		ck_null		is0	
eprotoent	endprotoent		ck_null		is0	
eservent	endservent		ck_null		is0	
gpwnam		getpwnam		ck_fun		%	S
gpwuid		getpwuid		ck_fun		%	S
gpwent		getpwent		ck_null		0	
spwent		setpwent		ck_null		is0	
epwent		endpwent		ck_null		is0	
ggrnam		getgrnam		ck_fun		%	S
ggrgid		getgrgid		ck_fun		%	S
ggrent		getgrent		ck_null		0	
sgrent		setgrent		ck_null		is0	
egrent		endgrent		ck_null		is0	
getlogin	getlogin		ck_null		st0	

# Miscellaneous.

syscall		syscall			ck_fun		imst@	S L

# For multi-threading
lock		lock			ck_rfun		s%	R

# For state support

once		once			ck_null		|	

custom		unknown custom operator		ck_null		0

# For smart dereference for each/keys/values
reach		each on reference			ck_each		%	S
rkeys		keys on reference			ck_each		t%	S
rvalues		values on reference			ck_each		t%	S

# For CORE:: subs
coreargs	CORE:: subroutine	ck_null		$	

runcv		__SUB__			ck_null		s0

# fc and \F
fc		fc			ck_fun		fstu%	S?
Commit	Line	Data
f8a58b02 NC	1	# New ops always go at the end
	2	# The restriction on having custom as the last op has been removed
	3
	4	# A recapitulation of the format of this file:
	5	# The file consists of five columns: the name of the op, an English
	6	# description, the name of the "check" routine used to optimize this
	7	# operation, some flags, and a description of the operands.
	8
	9	# The flags consist of options followed by a mandatory op class signifier
	10
	11	# The classes are:
	12	# baseop - 0 unop - 1 binop - 2
	13	# logop - \| listop - @ pmop - /
	14	# padop/svop - $ padop - # (unused) loop - {
	15	# baseop/unop - % loopexop - } filestatop - -
	16	# pvop/svop - " cop - ;
	17
	18	# Other options are:
	19	# needs stack mark - m
	20	# needs constant folding - f
	21	# produces a scalar - s
	22	# produces an integer - i
	23	# needs a target - t
	24	# target can be in a pad - T
	25	# has a corresponding integer version - I
	26	# has side effects - d
	27	# uses $_ if no argument given - u
	28
	29	# Values for the operands are:
	30	# scalar - S list - L array - A
	31	# hash - H sub (CV) - C file - F
	32	# socket - Fs filetest - F- filetest_access - F-+
332c2eac	33	# num-compare - S< dirhandle - DF
f8a58b02 NC	34
	35	# reference - R
	36	# "?" denotes an optional operand.
	37
	38	# Nothing.
	39
	40	null null operation ck_null 0
	41	stub stub ck_null 0
	42	scalar scalar ck_fun s% S
	43
	44	# Pushy stuff.
	45
	46	pushmark pushmark ck_null s0
	47	wantarray wantarray ck_null is0
	48
	49	const constant item ck_svconst s$
	50
	51	gvsv scalar variable ck_null ds$
	52	gv glob value ck_null ds$
	53	gelem glob elem ck_null d2 S S
	54	padsv private variable ck_null ds0
	55	padav private array ck_null d0
	56	padhv private hash ck_null d0
	57	padany private value ck_null d0
	58
	59	pushre push regexp ck_null d/
	60
	61	# References and stuff.
	62
	63	rv2gv ref-to-glob cast ck_rvconst ds1
	64	rv2sv scalar dereference ck_rvconst ds1
	65	av2arylen array length ck_null is1
	66	rv2cv subroutine dereference ck_rvconst d1
	67	anoncode anonymous subroutine ck_anoncode $
	68	prototype subroutine prototype ck_null s% S
	69	refgen reference constructor ck_spair m1 L
	70	srefgen single ref constructor ck_null fs1 S
	71	ref reference-type operator ck_fun stu% S?
	72	bless bless ck_fun s@ S S?
	73
	74	# Pushy I/O.
	75
	76	backtick quoted execution (``, qx) ck_open tu% S?
	77	# glob defaults its first arg to $_
	78	glob glob ck_glob t@ S?
	79	readline <HANDLE> ck_readline t% F?
	80	rcatline append I/O operator ck_null t$
	81
	82	# Bindable operators.
	83
	84	regcmaybe regexp internal guard ck_fun s1 S
	85	regcreset regexp internal reset ck_fun s1 S
	86	regcomp regexp compilation ck_null s\| S
	87	match pattern match (m//) ck_match d/
	88	qr pattern quote (qr//) ck_match s/
	89	subst substitution (s///) ck_match dis/ S
	90	substcont substitution iterator ck_null dis\|
	91	trans transliteration (tr///) ck_match is" S
bfa14884 NC	92	# y///r
bfa14884 NC	93	transr transliteration (tr///) ck_match is" S
f8a58b02 NC	94
	95	# Lvalue operators.
	96	# sassign is special-cased for op class
	97
	98	sassign scalar assignment ck_sassign s0
	99	aassign list assignment ck_null t2 L L
	100
	101	chop chop ck_spair mts% L
	102	schop scalar chop ck_null stu% S?
	103	chomp chomp ck_spair mTs% L
	104	schomp scalar chomp ck_null sTu% S?
	105	defined defined operator ck_defined isu% S?
89c5c07e	106	undef undef operator ck_fun s% R?
f8a58b02	107	study study ck_fun su% S?
abe56f58	108	pos match position ck_fun stu% R?
f8a58b02 NC	109
	110	preinc preincrement (++) ck_lfun dIs1 S
	111	i_preinc integer preincrement (++) ck_lfun dis1 S
	112	predec predecrement (--) ck_lfun dIs1 S
	113	i_predec integer predecrement (--) ck_lfun dis1 S
	114	postinc postincrement (++) ck_lfun dIst1 S
	115	i_postinc integer postincrement (++) ck_lfun disT1 S
	116	postdec postdecrement (--) ck_lfun dIst1 S
	117	i_postdec integer postdecrement (--) ck_lfun disT1 S
	118
	119	# Ordinary operators.
	120
	121	pow exponentiation (**) ck_null fsT2 S S
	122
	123	multiply multiplication (*) ck_null IfsT2 S S
	124	i_multiply integer multiplication (*) ck_null ifsT2 S S
	125	divide division (/) ck_null IfsT2 S S
	126	i_divide integer division (/) ck_null ifsT2 S S
	127	modulo modulus (%) ck_null IifsT2 S S
	128	i_modulo integer modulus (%) ck_null ifsT2 S S
baed7faa	129	repeat repeat (x) ck_repeat fmt2 L S
f8a58b02 NC	130
	131	add addition (+) ck_null IfsT2 S S
	132	i_add integer addition (+) ck_null ifsT2 S S
	133	subtract subtraction (-) ck_null IfsT2 S S
	134	i_subtract integer subtraction (-) ck_null ifsT2 S S
	135	concat concatenation (.) or string ck_concat fsT2 S S
	136	stringify string ck_fun fsT@ S
	137
	138	left_shift left bitshift (<<) ck_bitop fsT2 S S
	139	right_shift right bitshift (>>) ck_bitop fsT2 S S
	140
89474f50 FC	141	lt numeric lt (<) ck_cmp Iifs2 S S<
	142	i_lt integer lt (<) ck_cmp ifs2 S S<
	143	gt numeric gt (>) ck_cmp Iifs2 S S<
	144	i_gt integer gt (>) ck_cmp ifs2 S S<
	145	le numeric le (<=) ck_cmp Iifs2 S S<
	146	i_le integer le (<=) ck_cmp ifs2 S S<
	147	ge numeric ge (>=) ck_cmp Iifs2 S S<
	148	i_ge integer ge (>=) ck_cmp ifs2 S S<
2b420b63 JC	149	eq numeric eq (==) ck_null Iifs2 S S<
	150	i_eq integer eq (==) ck_null ifs2 S S<
	151	ne numeric ne (!=) ck_null Iifs2 S S<
	152	i_ne integer ne (!=) ck_null ifs2 S S<
	153	ncmp numeric comparison (<=>) ck_null Iifst2 S S<
	154	i_ncmp integer comparison (<=>) ck_null ifst2 S S<
f8a58b02 NC	155
	156	slt string lt ck_null ifs2 S S
	157	sgt string gt ck_null ifs2 S S
	158	sle string le ck_null ifs2 S S
	159	sge string ge ck_null ifs2 S S
	160	seq string eq ck_null ifs2 S S
	161	sne string ne ck_null ifs2 S S
	162	scmp string comparison (cmp) ck_null ifst2 S S
	163
	164	bit_and bitwise and (&) ck_bitop fst2 S S
	165	bit_xor bitwise xor (^) ck_bitop fst2 S S
	166	bit_or bitwise or (\|) ck_bitop fst2 S S
	167
	168	negate negation (-) ck_null Ifst1 S
	169	i_negate integer negation (-) ck_null ifsT1 S
	170	not not ck_null ifs1 S
	171	complement 1's complement (~) ck_bitop fst1 S
	172
	173	smartmatch smart match ck_smartmatch s2
	174
	175	# High falutin' math.
	176
	177	atan2 atan2 ck_fun fsT@ S S
	178	sin sin ck_fun fsTu% S?
	179	cos cos ck_fun fsTu% S?
	180	rand rand ck_fun sT% S?
	181	srand srand ck_fun sT% S?
	182	exp exp ck_fun fsTu% S?
	183	log log ck_fun fsTu% S?
	184	sqrt sqrt ck_fun fsTu% S?
	185
	186	# Lowbrow math.
	187
	188	int int ck_fun fsTu% S?
	189	hex hex ck_fun fsTu% S?
	190	oct oct ck_fun fsTu% S?
	191	abs abs ck_fun fsTu% S?
	192
	193	# String stuff.
	194
e508c8a4	195	length length ck_length ifsTu% S?
f8a58b02 NC	196	substr substr ck_substr st@ S S S? S?
	197	vec vec ck_fun ist@ S S S
	198
	199	index index ck_index isT@ S S S?
	200	rindex rindex ck_index isT@ S S S?
	201
69974ce6	202	sprintf sprintf ck_lfun fmst@ S L
f8a58b02 NC	203	formline formline ck_fun ms@ S L
	204	ord ord ck_fun ifsTu% S?
	205	chr chr ck_fun fsTu% S?
	206	crypt crypt ck_fun fsT@ S S
	207	ucfirst ucfirst ck_fun fstu% S?
	208	lcfirst lcfirst ck_fun fstu% S?
	209	uc uc ck_fun fstu% S?
	210	lc lc ck_fun fstu% S?
	211	quotemeta quotemeta ck_fun fstu% S?
	212
	213	# Arrays.
	214
	215	rv2av array dereference ck_rvconst dt1
	216	aelemfast constant array element ck_null s$ A S
bfa14884	217	aelemfast_lex constant lexical array element ck_null d0 A S
f8a58b02 NC	218	aelem array element ck_null s2 A S
	219	aslice array slice ck_null m@ A L
	220
	221	aeach each on array ck_each % A
	222	akeys keys on array ck_each t% A
	223	avalues values on array ck_each t% A
	224
	225	# Hashes.
	226
	227	each each ck_each % H
	228	values values ck_each t% H
	229	keys keys ck_each t% H
	230	delete delete ck_delete % S
	231	exists exists ck_exists is% S
	232	rv2hv hash dereference ck_rvconst dt1
	233	helem hash element ck_null s2 H S
	234	hslice hash slice ck_null m@ H L
	235	boolkeys boolkeys ck_fun % H
	236
	237	# Explosives and implosives.
	238
ea5703f4	239	unpack unpack ck_fun u@ S S?
f8a58b02 NC	240	pack pack ck_fun mst@ S L
	241	split split ck_split t@ S S S
	242	join join or string ck_join mst@ S L
	243
	244	# List operators.
	245
	246	list list ck_null m@ L
	247	lslice list slice ck_null 2 H L L
	248	anonlist anonymous list ([]) ck_fun ms@ L
	249	anonhash anonymous hash ({}) ck_fun ms@ L
	250
d4fc4415 FC	251	splice splice ck_fun m@ A S? S? L
d4fc4415 FC	252	push push ck_fun imsT@ A L
f8a58b02 NC	253	pop pop ck_shift s% A?
f8a58b02 NC	254	shift shift ck_shift s% A?
d4fc4415	255	unshift unshift ck_fun imsT@ A L
f8a58b02 NC	256	sort sort ck_sort dm@ C? L
	257	reverse reverse ck_fun mt@ L
	258
	259	grepstart grep ck_grep dm@ C L
	260	grepwhile grep iterator ck_null dt\|
	261
	262	mapstart map ck_grep dm@ C L
	263	mapwhile map iterator ck_null dt\|
	264
	265	# Range stuff.
	266
	267	range flipflop ck_null \| S S
	268	flip range (or flip) ck_null 1 S S
	269	flop range (or flop) ck_null 1
	270
	271	# Control.
	272
	273	and logical and (&&) ck_null \|
	274	or logical or (\|\|) ck_null \|
	275	xor logical xor ck_null fs2 S S
	276	dor defined or (//) ck_null \|
	277	cond_expr conditional expression ck_null d\|
	278	andassign logical and assignment (&&=) ck_null s\|
	279	orassign logical or assignment (\|\|=) ck_null s\|
	280	dorassign defined or assignment (//=) ck_null s\|
	281
	282	method method lookup ck_method d1
	283	entersub subroutine entry ck_subr dmt1 L
	284	leavesub subroutine exit ck_null 1
	285	leavesublv lvalue subroutine return ck_null 1
	286	caller caller ck_fun t% S?
	287	warn warn ck_fun imst@ L
	288	die die ck_die dimst@ L
	289	reset symbol reset ck_fun is% S?
	290
	291	lineseq line sequence ck_null @
	292	nextstate next statement ck_null s;
	293	dbstate debug next statement ck_null s;
	294	unstack iteration finalizer ck_null s0
	295	enter block entry ck_null 0
	296	leave block exit ck_null @
	297	scope block ck_null @
	298	enteriter foreach loop entry ck_null d{
	299	iter foreach loop iterator ck_null 0
	300	enterloop loop entry ck_null d{
	301	leaveloop loop exit ck_null 2
	302	return return ck_return dm@ L
	303	last last ck_null ds}
	304	next next ck_null ds}
	305	redo redo ck_null ds}
	306	dump dump ck_null ds}
	307	goto goto ck_null ds}
	308	exit exit ck_exit ds% S?
	309	method_named method with known name ck_null d$
	310
	311	entergiven given() ck_null d\|
	312	leavegiven leave given block ck_null 1
	313	enterwhen when() ck_null d\|
	314	leavewhen leave when block ck_null 1
	315	break break ck_null 0
	316	continue continue ck_null 0
	317
	318	# I/O.
	319
320	open open ck_open ismt@ F S? L
321	close close ck_fun is% F?
322	pipe_op pipe ck_fun is@ F F
323
324	fileno fileno ck_fun ist% F
325	umask umask ck_fun ist% S?
326	binmode binmode ck_fun s@ F S?
327
328	tie tie ck_fun idms@ R S L
329	untie untie ck_fun is% R
330	tied tied ck_fun s% R
331	dbmopen dbmopen ck_fun is@ H S S
332	dbmclose dbmclose ck_fun is% H
333
334	sselect select system call ck_select t@ S S S S
335	select select ck_select st@ F?
336
337	getc getc ck_eof st% F?
338	read read ck_fun imst@ F R S S?
339	enterwrite write ck_fun dis% F?
340	leavewrite write exit ck_null 1
341
342	prtf printf ck_listiob ims@ F? L
343	print print ck_listiob ims@ F? L
344	say say ck_listiob ims@ F? L
345
346	sysopen sysopen ck_fun s@ F S S S?
347	sysseek sysseek ck_fun s@ F S S
348	sysread sysread ck_fun imst@ F R S S?
349	syswrite syswrite ck_fun imst@ F S S? S?
350
351	eof eof ck_eof is% F?
8dc99089	352	tell tell ck_tell st% F?
423e8af5	353	seek seek ck_tell s@ F S S
f8a58b02 NC	354	# truncate really behaves as if it had both "S S" and "F S"
	355	truncate truncate ck_trunc is@ S S
	356
	357	fcntl fcntl ck_fun st@ F S S
	358	ioctl ioctl ck_fun st@ F S S
	359	flock flock ck_fun isT@ F S
	360
	361	# Sockets. OP_IS_SOCKET wants them consecutive (so moved 1st 2)
	362
	363	send send ck_fun imst@ Fs S S S?
	364	recv recv ck_fun imst@ Fs R S S
	365
	366	socket socket ck_fun is@ Fs S S S
	367	sockpair socketpair ck_fun is@ Fs Fs S S S
	368
	369	bind bind ck_fun is@ Fs S
	370	connect connect ck_fun is@ Fs S
	371	listen listen ck_fun is@ Fs S
	372	accept accept ck_fun ist@ Fs Fs
	373	shutdown shutdown ck_fun ist@ Fs S
	374
	375	gsockopt getsockopt ck_fun is@ Fs S S
	376	ssockopt setsockopt ck_fun is@ Fs S S S
	377
	378	getsockname getsockname ck_fun is% Fs
	379	getpeername getpeername ck_fun is% Fs
	380
	381	# Stat calls. OP_IS_FILETEST wants them consecutive.
	382
465bc0f5 FC	383	lstat lstat ck_ftst u- F?
465bc0f5 FC	384	stat stat ck_ftst u- F?
f8a58b02 NC	385	ftrread -R ck_ftst isu- F-+
	386	ftrwrite -W ck_ftst isu- F-+
	387	ftrexec -X ck_ftst isu- F-+
	388	fteread -r ck_ftst isu- F-+
	389	ftewrite -w ck_ftst isu- F-+
	390	fteexec -x ck_ftst isu- F-+
	391	ftis -e ck_ftst isu- F-
	392	ftsize -s ck_ftst istu- F-
	393	ftmtime -M ck_ftst stu- F-
	394	ftatime -A ck_ftst stu- F-
	395	ftctime -C ck_ftst stu- F-
	396	ftrowned -O ck_ftst isu- F-
	397	fteowned -o ck_ftst isu- F-
	398	ftzero -z ck_ftst isu- F-
	399	ftsock -S ck_ftst isu- F-
	400	ftchr -c ck_ftst isu- F-
	401	ftblk -b ck_ftst isu- F-
	402	ftfile -f ck_ftst isu- F-
	403	ftdir -d ck_ftst isu- F-
	404	ftpipe -p ck_ftst isu- F-
	405	ftsuid -u ck_ftst isu- F-
	406	ftsgid -g ck_ftst isu- F-
	407	ftsvtx -k ck_ftst isu- F-
	408	ftlink -l ck_ftst isu- F-
	409	fttty -t ck_ftst is- F-
	410	fttext -T ck_ftst isu- F-
	411	ftbinary -B ck_ftst isu- F-
	412
	413	# File calls.
	414
	415	# chdir really behaves as if it had both "S?" and "F?"
	416	chdir chdir ck_chdir isT% S?
	417	chown chown ck_fun imsT@ L
	418	chroot chroot ck_fun isTu% S?
	419	unlink unlink ck_fun imsTu@ L
	420	chmod chmod ck_fun imsT@ L
	421	utime utime ck_fun imsT@ L
	422	rename rename ck_fun isT@ S S
	423	link link ck_fun isT@ S S
	424	symlink symlink ck_fun isT@ S S
	425	readlink readlink ck_fun stu% S?
	426	mkdir mkdir ck_fun isTu@ S? S?
	427	rmdir rmdir ck_fun isTu% S?
	428
	429	# Directory calls.
	430
	431	open_dir opendir ck_fun is@ F S
332c2eac JC	432	readdir readdir ck_fun % DF
	433	telldir telldir ck_fun st% DF
	434	seekdir seekdir ck_fun s@ DF S
	435	rewinddir rewinddir ck_fun s% DF
	436	closedir closedir ck_fun is% DF
f8a58b02 NC	437
	438	# Process control.
	439
	440	fork fork ck_null ist0
	441	wait wait ck_null isT0
	442	waitpid waitpid ck_fun isT@ S S
	443	system system ck_exec imsT@ S? L
	444	exec exec ck_exec dimsT@ S? L
	445	kill kill ck_fun dimsT@ L
	446	getppid getppid ck_null isT0
	447	getpgrp getpgrp ck_fun isT% S?
	448	setpgrp setpgrp ck_fun isT@ S? S?
	449	getpriority getpriority ck_fun isT@ S S
	450	setpriority setpriority ck_fun isT@ S S S
	451
	452	# Time calls.
	453
f8a58b02 NC	454	time time ck_null isT0
	455	tms times ck_null 0
	456	localtime localtime ck_fun t% S?
	457	gmtime gmtime ck_fun t% S?
	458	alarm alarm ck_fun istu% S?
	459	sleep sleep ck_fun isT% S?
	460
	461	# Shared memory.
	462
	463	shmget shmget ck_fun imst@ S S S
	464	shmctl shmctl ck_fun imst@ S S S
	465	shmread shmread ck_fun imst@ S S S S
	466	shmwrite shmwrite ck_fun imst@ S S S S
	467
	468	# Message passing.
	469
	470	msgget msgget ck_fun imst@ S S
	471	msgctl msgctl ck_fun imst@ S S S
	472	msgsnd msgsnd ck_fun imst@ S S S
	473	msgrcv msgrcv ck_fun imst@ S S S S S
	474
	475	# Semaphores.
	476
	477	semop semop ck_fun imst@ S S
	478	semget semget ck_fun imst@ S S S
	479	semctl semctl ck_fun imst@ S S S S
	480
	481	# Eval.
	482
	483	require require ck_require du% S?
	484	dofile do "file" ck_fun d1 S
	485	hintseval eval hints ck_svconst s$
7d789282	486	entereval eval "string" ck_eval du% S?
f8a58b02	487	leaveeval eval "string" exit ck_null 1 S
f8a58b02 NC	488	entertry eval {block} ck_eval d\|
	489	leavetry eval {block} exit ck_null @
	490
	491	# Get system info.
	492
	493	ghbyname gethostbyname ck_fun % S
	494	ghbyaddr gethostbyaddr ck_fun @ S S
	495	ghostent gethostent ck_null 0
	496	gnbyname getnetbyname ck_fun % S
	497	gnbyaddr getnetbyaddr ck_fun @ S S
	498	gnetent getnetent ck_null 0
	499	gpbyname getprotobyname ck_fun % S
	500	gpbynumber getprotobynumber ck_fun @ S
	501	gprotoent getprotoent ck_null 0
	502	gsbyname getservbyname ck_fun @ S S
	503	gsbyport getservbyport ck_fun @ S S
	504	gservent getservent ck_null 0
	505	shostent sethostent ck_fun is% S
	506	snetent setnetent ck_fun is% S
	507	sprotoent setprotoent ck_fun is% S
	508	sservent setservent ck_fun is% S
	509	ehostent endhostent ck_null is0
	510	enetent endnetent ck_null is0
	511	eprotoent endprotoent ck_null is0
	512	eservent endservent ck_null is0
	513	gpwnam getpwnam ck_fun % S
	514	gpwuid getpwuid ck_fun % S
	515	gpwent getpwent ck_null 0
	516	spwent setpwent ck_null is0
	517	epwent endpwent ck_null is0
	518	ggrnam getgrnam ck_fun % S
	519	ggrgid getgrgid ck_fun % S
	520	ggrent getgrent ck_null 0
	521	sgrent setgrent ck_null is0
	522	egrent endgrent ck_null is0
	523	getlogin getlogin ck_null st0
	524
	525	# Miscellaneous.
	526
	527	syscall syscall ck_fun imst@ S L
	528
	529	# For multi-threading
	530	lock lock ck_rfun s% R
	531
	532	# For state support
	533
	534	once once ck_null \|
	535
	536	custom unknown custom operator ck_null 0
	537
	538	# For smart dereference for each/keys/values
	539	reach each on reference ck_each % S
	540	rkeys keys on reference ck_each t% S
	541	rvalues values on reference ck_each t% S
deb8a388 FC	542
	543	# For CORE:: subs
	544	coreargs CORE:: subroutine ck_null $
84ed0108 FC	545
84ed0108 FC	546	runcv __SUB__ ck_null s0
838f2281 BF	547
	548	# fc and \F
	549	fc fc ck_fun fstu% S?