Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
Delete
Unzip
Name
Size
Permission
Date
Action
.config
[ DIR ]
drwxr-xr-x
2016-10-10 17:32
Cross
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
NetWare
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
Porting
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
cpan
[ DIR ]
drwxr-xr-x
2015-02-14 16:55
cygwin
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
dist
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
djgpp
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
ext
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
h2pl
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
haiku
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
hints
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
lib
[ DIR ]
drwxr-xr-x
2016-10-10 18:16
mad
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
os2
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
plan9
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
pod
[ DIR ]
drwxr-xr-x
2016-10-10 18:13
qnx
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
regen
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
symbian
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
t
[ DIR ]
drwxr-xr-x
2016-10-10 19:00
utils
[ DIR ]
drwxr-xr-x
2016-10-10 17:41
vms
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
vos
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
win32
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
x2p
[ DIR ]
drwxr-xr-x
2016-10-10 17:41
AUTHORS
44.95
KB
-r--r--r--
2015-01-28 21:08
Artistic
6.17
KB
-r--r--r--
2014-12-27 11:48
Changes
3.09
KB
-r--r--r--
2014-12-27 11:48
Configure
539.85
KB
-r-xr-xr-x
2015-01-10 12:06
Copying
12.34
KB
-r--r--r--
2014-12-27 11:48
DynaLoader.o
9.58
KB
-rw-r--r--
2016-10-10 17:38
EXTERN.h
2.04
KB
-r--r--r--
2014-12-27 11:48
INSTALL
104.05
KB
-r--r--r--
2015-01-31 15:32
INTERN.h
1.47
KB
-r--r--r--
2014-12-27 11:49
MANIFEST
300.93
KB
-r--r--r--
2015-01-28 21:08
META.json
3.58
KB
-r--r--r--
2015-02-01 03:22
META.yml
2.83
KB
-r--r--r--
2015-01-28 21:08
Makefile
34.77
KB
-rw-r--r--
2016-10-10 17:34
Makefile.SH
48.39
KB
-r-xr-xr-x
2014-12-27 11:49
Makefile.micro
5.13
KB
-r--r--r--
2014-12-27 11:48
Policy.sh
5.33
KB
-rw-r--r--
2016-10-10 17:34
Policy_sh.SH
7.94
KB
-r-xr-xr-x
2014-12-27 11:48
README
5.53
KB
-r--r--r--
2015-01-28 21:11
README.aix
19.15
KB
-r--r--r--
2014-12-27 11:49
README.amiga
6.87
KB
-r--r--r--
2014-12-27 11:48
README.android
7.61
KB
-r--r--r--
2014-12-27 11:48
README.bs2000
7.73
KB
-r--r--r--
2014-12-27 11:48
README.ce
14.27
KB
-r--r--r--
2014-12-27 11:48
README.cn
4.58
KB
-r--r--r--
2014-12-27 11:48
README.cygwin
26.67
KB
-r--r--r--
2014-12-27 11:49
README.dos
10.28
KB
-r--r--r--
2014-12-27 11:48
README.freebsd
1.55
KB
-r--r--r--
2014-12-27 11:48
README.haiku
1.47
KB
-r--r--r--
2015-01-28 21:08
README.hpux
28.68
KB
-r--r--r--
2014-12-27 11:49
README.hurd
1.94
KB
-r--r--r--
2014-12-27 11:48
README.irix
4.29
KB
-r--r--r--
2014-12-27 11:48
README.jp
7.34
KB
-r--r--r--
2014-12-27 11:48
README.ko
11.97
KB
-r--r--r--
2014-12-27 11:48
README.linux
1.45
KB
-r--r--r--
2014-12-27 11:48
README.macos
1001
B
-r--r--r--
2014-12-27 11:48
README.macosx
11.72
KB
-r--r--r--
2015-01-28 21:08
README.micro
1.81
KB
-r--r--r--
2014-12-27 11:48
README.netware
6.32
KB
-r--r--r--
2014-12-27 11:48
README.openbsd
1.18
KB
-r--r--r--
2014-12-27 11:48
README.os2
90.54
KB
-r--r--r--
2015-01-28 21:08
README.os390
15.19
KB
-r--r--r--
2014-12-27 11:48
README.os400
4.51
KB
-r--r--r--
2014-12-27 11:48
README.plan9
5
KB
-r--r--r--
2014-12-27 11:48
README.qnx
6.52
KB
-r--r--r--
2014-12-27 11:48
README.riscos
1.49
KB
-r--r--r--
2014-12-27 11:48
README.solaris
29.11
KB
-r--r--r--
2014-12-27 11:48
README.symbian
15.44
KB
-r--r--r--
2014-12-27 11:48
README.synology
6.88
KB
-r--r--r--
2014-12-27 11:48
README.tru64
7.56
KB
-r--r--r--
2014-12-27 11:49
README.tw
4.5
KB
-r--r--r--
2014-12-27 11:48
README.vms
23.45
KB
-r--r--r--
2015-01-28 21:08
README.vos
3.75
KB
-r--r--r--
2014-12-27 11:48
README.win32
37.59
KB
-r--r--r--
2015-01-15 22:12
TestInit.pm
2.95
KB
-r--r--r--
2014-12-27 11:49
XSUB.h
21.18
KB
-r--r--r--
2014-12-27 11:49
autodoc.pl
13.88
KB
-r--r--r--
2014-12-27 11:49
av.c
23.23
KB
-r--r--r--
2014-12-27 11:49
av.h
3.15
KB
-r--r--r--
2014-12-27 11:49
av.o
17.22
KB
-rw-r--r--
2016-10-10 17:36
bitcount.h
850
B
-rw-r--r--
2016-10-10 17:36
caretx.c
4.14
KB
-r--r--r--
2014-12-27 11:49
caretx.o
2.1
KB
-rw-r--r--
2016-10-10 17:36
cflags
3.79
KB
-rwxr-xr-x
2016-10-10 17:34
cflags.SH
10.3
KB
-r-xr-xr-x
2014-12-27 11:49
charclass_invlists.h
86.63
KB
-r--r--r--
2014-12-27 11:49
config.h
144.21
KB
-rw-r--r--
2016-10-10 17:34
config.sh
33.79
KB
-rw-r--r--
2016-10-10 17:34
config_h.SH
147.66
KB
-r-xr-xr-x
2014-12-27 11:49
configpm
31.32
KB
-r-xr-xr-x
2014-12-27 11:49
configure.com
211.66
KB
-r--r--r--
2014-12-27 11:49
configure.gnu
2.5
KB
-r-xr-xr-x
2014-12-27 11:48
cop.h
40.55
KB
-r--r--r--
2014-12-27 11:49
cv.h
10.25
KB
-r--r--r--
2014-12-27 11:49
deb.c
7.48
KB
-r--r--r--
2014-12-27 11:49
deb.o
2.15
KB
-rw-r--r--
2016-10-10 17:36
doio.c
64.64
KB
-r--r--r--
2014-12-27 11:49
doio.o
54.52
KB
-rw-r--r--
2016-10-10 17:36
doop.c
29.36
KB
-r--r--r--
2014-12-27 11:49
doop.o
23.63
KB
-rw-r--r--
2016-10-10 17:36
dosish.h
5.41
KB
-r--r--r--
2014-12-27 11:48
dquote_static.c
10.92
KB
-r--r--r--
2014-12-27 11:49
dump.c
99.94
KB
-r--r--r--
2015-01-12 22:02
dump.o
75.78
KB
-rw-r--r--
2016-10-10 17:36
embed.fnc
114
KB
-r--r--r--
2014-12-27 11:49
embed.h
88.24
KB
-rw-r--r--
2014-12-27 11:49
embedvar.h
17.51
KB
-rw-r--r--
2014-12-27 11:49
ext.libs
0
B
-rw-r--r--
2016-10-10 17:38
extra.pods
585
B
-rw-r--r--
2016-10-10 17:36
fakesdio.h
3.24
KB
-r--r--r--
2014-12-27 11:48
feature.h
4.26
KB
-rw-r--r--
2014-12-27 11:49
form.h
1.43
KB
-r--r--r--
2014-12-27 11:48
generate_uudmap
14.41
KB
-rwxr-xr-x
2016-10-10 17:36
generate_uudmap.c
3.73
KB
-r--r--r--
2014-12-27 11:49
generate_uudmap.o
10.16
KB
-rw-r--r--
2016-10-10 17:36
git_version.h
357
B
-rw-r--r--
2016-10-10 17:36
globals.c
1.28
KB
-r--r--r--
2014-12-27 11:48
globals.o
96.84
KB
-rw-r--r--
2016-10-10 17:36
globvar.sym
994
B
-r--r--r--
2014-12-27 11:49
gv.c
99.2
KB
-r--r--r--
2014-12-27 12:19
gv.h
10.54
KB
-r--r--r--
2014-12-27 11:49
gv.o
82.3
KB
-rw-r--r--
2016-10-10 17:35
handy.h
90.96
KB
-r--r--r--
2014-12-27 11:49
hv.c
102.94
KB
-r--r--r--
2014-12-27 11:49
hv.h
23.9
KB
-r--r--r--
2014-12-27 11:48
hv.o
43.42
KB
-rw-r--r--
2016-10-10 17:36
hv_func.h
17.45
KB
-r--r--r--
2014-12-27 11:49
inline.h
9.29
KB
-r--r--r--
2014-12-27 11:49
inline_invlist.c
1.91
KB
-r--r--r--
2014-12-27 11:49
install_lib.pl
3.9
KB
-r--r--r--
2014-12-27 11:49
installhtml
17.04
KB
-r--r--r--
2014-12-27 11:48
installman
5.62
KB
-r-xr-xr-x
2014-12-27 11:48
installperl
27.46
KB
-r-xr-xr-x
2015-01-10 12:06
intrpvar.h
26.99
KB
-r--r--r--
2015-01-28 21:08
iperlsys.h
47.63
KB
-r--r--r--
2014-12-27 11:49
keywords.c
88.86
KB
-rw-r--r--
2014-12-27 11:49
keywords.h
6.43
KB
-rw-r--r--
2014-12-27 11:49
keywords.o
30.68
KB
-rw-r--r--
2016-10-10 17:36
l1_char_class_tab.h
38.25
KB
-r--r--r--
2014-12-27 11:49
libperl.a
2.75
MB
-rw-r--r--
2016-10-10 17:38
locale.c
45.02
KB
-r--r--r--
2014-12-27 11:49
locale.o
15.68
KB
-rw-r--r--
2016-10-10 17:36
madly.c
704
B
-r--r--r--
2014-12-27 11:49
make_ext.pl
24.34
KB
-r--r--r--
2015-01-10 12:06
make_patchnum.pl
6.65
KB
-r--r--r--
2014-12-27 11:49
makedef.pl
33.97
KB
-r--r--r--
2015-01-12 20:14
makedepend
7.07
KB
-rwxr-xr-x
2016-10-10 17:34
makedepend.SH
7.82
KB
-r-xr-xr-x
2014-12-27 11:49
makefile
303.73
KB
-rw-r--r--
2016-10-10 17:34
makefile.old
34.77
KB
-rw-r--r--
2016-10-10 17:34
malloc.c
70.51
KB
-r--r--r--
2014-12-27 11:49
malloc_ctl.h
1.48
KB
-r--r--r--
2014-12-27 11:48
mathoms.c
30.41
KB
-r--r--r--
2014-12-27 11:49
mathoms.o
30.02
KB
-rw-r--r--
2016-10-10 17:36
metaconfig.SH
1.18
KB
-r-xr-xr-x
2014-12-27 11:48
metaconfig.h
981
B
-r--r--r--
2014-12-27 11:49
mg.c
84.07
KB
-r--r--r--
2014-12-27 12:31
mg.h
2.9
KB
-r--r--r--
2014-12-27 11:49
mg.o
72.97
KB
-rw-r--r--
2016-10-10 17:36
mg_data.h
4.7
KB
-rw-r--r--
2016-10-10 17:36
mg_names.c
2.05
KB
-r--r--r--
2014-12-27 11:49
mg_raw.h
4.02
KB
-r--r--r--
2014-12-27 11:49
mg_vtable.h
8.73
KB
-rw-r--r--
2014-12-27 11:49
miniperl
1.53
MB
-rwxr-xr-x
2016-10-10 17:36
miniperlmain.c
5.11
KB
-r--r--r--
2014-12-27 11:49
miniperlmain.o
2.95
KB
-rw-r--r--
2016-10-10 17:35
mkppport
4.26
KB
-r--r--r--
2014-12-27 11:48
mkppport.lst
257
B
-r--r--r--
2014-12-27 11:48
mro.c
42.78
KB
-r--r--r--
2014-12-27 11:49
mro.o
24.22
KB
-rw-r--r--
2016-10-10 17:36
myconfig
2
KB
-rwxr-xr-x
2016-10-10 17:34
myconfig.SH
2.45
KB
-r-xr-xr-x
2014-12-27 11:49
mydtrace.h
2.83
KB
-r--r--r--
2014-12-27 11:48
nostdio.h
3.37
KB
-r--r--r--
2014-12-27 11:49
numeric.c
33.86
KB
-r--r--r--
2014-12-27 11:49
numeric.o
14.3
KB
-rw-r--r--
2016-10-10 17:36
op.c
339.8
KB
-r--r--r--
2015-01-12 22:02
op.h
37.45
KB
-r--r--r--
2014-12-27 12:38
op.o
218.2
KB
-rw-r--r--
2016-10-10 17:38
op_reg_common.h
5.08
KB
-r--r--r--
2014-12-27 11:49
opcode.h
46.78
KB
-rw-r--r--
2014-12-27 11:49
opmini.c
339.8
KB
-r--r--r--
2015-01-12 22:02
opmini.o
217.94
KB
-rw-r--r--
2016-10-10 17:35
opnames.h
8.17
KB
-rw-r--r--
2014-12-27 11:49
overload.c
3.32
KB
-rw-r--r--
2014-12-27 11:48
overload.h
2.95
KB
-rw-r--r--
2014-12-27 11:48
packsizetables.c
5.94
KB
-r--r--r--
2014-12-27 11:48
pad.c
71.56
KB
-r--r--r--
2015-01-15 22:12
pad.h
15.99
KB
-r--r--r--
2015-01-15 22:12
pad.o
31.54
KB
-rw-r--r--
2016-10-10 17:36
parser.h
6.52
KB
-r--r--r--
2014-12-27 11:49
patchlevel.h
5.19
KB
-r--r--r--
2015-02-01 03:22
perl
1.63
MB
-rwxr-xr-x
2016-10-10 19:19
perl.c
131.72
KB
-r--r--r--
2015-01-28 21:12
perl.h
177.1
KB
-r--r--r--
2015-01-12 20:14
perl.o
175.37
KB
-rw-r--r--
2016-10-10 17:38
perlapi.c
1.69
KB
-rw-r--r--
2014-12-27 11:48
perlapi.h
5.49
KB
-rw-r--r--
2014-12-27 11:48
perlapi.o
939
B
-rw-r--r--
2016-10-10 17:36
perldtrace.d
563
B
-r--r--r--
2014-12-27 11:48
perlio.c
117.77
KB
-r--r--r--
2014-12-27 11:49
perlio.h
10.22
KB
-r--r--r--
2014-12-27 11:48
perlio.o
72.05
KB
-rw-r--r--
2016-10-10 17:36
perlio.sym
446
B
-r--r--r--
2014-12-27 11:48
perliol.h
13.32
KB
-r--r--r--
2014-12-27 11:49
perlmain.c
5.09
KB
-rw-r--r--
2016-10-10 19:19
perlmain.o
3.38
KB
-rw-r--r--
2016-10-10 19:19
perlmini.c
131.72
KB
-r--r--r--
2015-01-28 21:12
perlmini.o
173.31
KB
-rw-r--r--
2016-10-10 17:35
perlsdio.h
4.92
KB
-r--r--r--
2014-12-27 11:48
perlvars.h
8.76
KB
-r--r--r--
2014-12-27 11:48
perly.act
55.04
KB
-r--r--r--
2014-12-27 11:49
perly.c
16.1
KB
-r--r--r--
2014-12-27 11:49
perly.h
6.08
KB
-r--r--r--
2014-12-27 11:49
perly.o
51.13
KB
-rw-r--r--
2016-10-10 17:36
perly.tab
74.01
KB
-r--r--r--
2014-12-27 11:49
perly.y
38.93
KB
-r--r--r--
2014-12-27 11:49
pp.c
147.83
KB
-r--r--r--
2014-12-27 11:49
pp.h
19.83
KB
-r--r--r--
2014-12-27 11:49
pp.o
150.74
KB
-rw-r--r--
2016-10-10 17:36
pp_ctl.c
142.43
KB
-r--r--r--
2015-01-24 15:03
pp_ctl.o
143.59
KB
-rw-r--r--
2016-10-10 17:36
pp_hot.c
82.79
KB
-r--r--r--
2014-12-27 11:49
pp_hot.o
76.93
KB
-rw-r--r--
2016-10-10 17:36
pp_pack.c
81.07
KB
-r--r--r--
2014-12-27 11:49
pp_pack.o
78.95
KB
-rw-r--r--
2016-10-10 17:36
pp_proto.h
10.81
KB
-rw-r--r--
2014-12-27 11:49
pp_sort.c
64.99
KB
-r--r--r--
2014-12-27 11:49
pp_sort.o
25.86
KB
-rw-r--r--
2016-10-10 17:36
pp_sys.c
128.85
KB
-r--r--r--
2015-01-11 14:03
pp_sys.o
145.77
KB
-rw-r--r--
2016-10-10 17:36
proto.h
275.69
KB
-rw-r--r--
2014-12-27 11:49
realclean.sh
46.47
KB
-rw-r--r--
2016-10-10 19:19
reentr.c
15.59
KB
-rw-r--r--
2014-12-27 11:49
reentr.h
76.44
KB
-rw-r--r--
2014-12-27 11:49
reentr.o
1.52
KB
-rw-r--r--
2016-10-10 17:36
regcharclass.h
52.42
KB
-rw-r--r--
2014-12-27 11:49
regcomp.c
610.17
KB
-r--r--r--
2015-01-10 13:15
regcomp.h
37.6
KB
-r--r--r--
2014-12-27 11:49
regcomp.o
220.61
KB
-rw-r--r--
2016-10-10 17:36
regcomp.sym
11.89
KB
-r--r--r--
2014-12-27 11:49
regen.pl
862
B
-r--r--r--
2014-12-27 11:49
regen_perly.pl
9
KB
-r--r--r--
2014-12-27 11:49
regexec.c
291.97
KB
-r--r--r--
2014-12-27 11:49
regexec.o
109.56
KB
-rw-r--r--
2016-10-10 17:36
regexp.h
31.38
KB
-r--r--r--
2014-12-27 11:49
regnodes.h
34.54
KB
-rw-r--r--
2014-12-27 11:49
run.c
1.53
KB
-r--r--r--
2014-12-27 11:49
run.o
1.59
KB
-rw-r--r--
2016-10-10 17:36
runtests
1.09
KB
-rwxr-xr-x
2016-10-10 17:34
runtests.SH
1.79
KB
-r-xr-xr-x
2014-12-27 11:49
scope.c
36.35
KB
-r--r--r--
2014-12-27 11:49
scope.h
11.64
KB
-r--r--r--
2014-12-27 11:49
scope.o
29.58
KB
-rw-r--r--
2016-10-10 17:36
sv.c
408.23
KB
-r--r--r--
2015-01-15 22:12
sv.h
80.16
KB
-r--r--r--
2015-01-15 22:12
sv.o
166.73
KB
-rw-r--r--
2016-10-10 17:36
taint.c
4.91
KB
-r--r--r--
2014-12-27 11:49
taint.o
5.8
KB
-rw-r--r--
2016-10-10 17:36
thread.h
11.53
KB
-r--r--r--
2014-12-27 11:49
time64.c
15.29
KB
-r--r--r--
2014-12-27 11:49
time64.h
1.57
KB
-r--r--r--
2014-12-27 11:49
time64_config.h
1.98
KB
-r--r--r--
2014-12-27 11:49
toke.c
350.24
KB
-r--r--r--
2015-01-24 15:03
toke.o
274.02
KB
-rw-r--r--
2016-10-10 17:36
uconfig.h
144.22
KB
-rw-r--r--
2014-12-27 11:49
uconfig.sh
15.69
KB
-r--r--r--
2014-12-27 11:49
uconfig64.sh
15.73
KB
-r--r--r--
2014-12-27 11:49
unicode_constants.h
2.12
KB
-r--r--r--
2014-12-27 11:49
universal.c
24.91
KB
-r--r--r--
2014-12-27 11:49
universal.o
45.73
KB
-rw-r--r--
2016-10-10 17:36
unixish.h
4.48
KB
-r--r--r--
2014-12-27 11:49
utf8.c
135.85
KB
-r--r--r--
2014-12-27 12:10
utf8.h
29.3
KB
-r--r--r--
2014-12-27 11:49
utf8.o
77.52
KB
-rw-r--r--
2016-10-10 17:36
utfebcdic.h
45.12
KB
-r--r--r--
2014-12-27 11:49
util.c
138.18
KB
-r--r--r--
2014-12-27 12:20
util.h
2.53
KB
-r--r--r--
2014-12-27 11:49
util.o
70.16
KB
-rw-r--r--
2016-10-10 17:36
utils.lst
623
B
-r--r--r--
2014-12-27 11:49
uudmap.h
904
B
-rw-r--r--
2016-10-10 17:36
veryclean.sh
46.47
KB
-rw-r--r--
2016-10-10 19:19
vutil.c
25.44
KB
-r--r--r--
2014-12-27 11:49
vutil.h
7.06
KB
-r--r--r--
2014-12-27 11:49
vxs.inc
10.91
KB
-r--r--r--
2014-12-27 11:49
warnings.h
4.94
KB
-rw-r--r--
2014-12-27 11:49
write_buildcustomize.pl
3.01
KB
-r--r--r--
2014-12-27 11:49
Save
Rename
/* perly.y * * Copyright (c) 1991-2002, 2003, 2004, 2005, 2006 Larry Wall * Copyright (c) 2007, 2008, 2009, 2010, 2011 by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * */ /* * 'I see,' laughed Strider. 'I look foul and feel fair. Is that it? * All that is gold does not glitter, not all those who wander are lost.' * * [p.171 of _The Lord of the Rings_, I/x: "Strider"] */ /* * This file holds the grammar for the Perl language. If edited, you need * to run regen_perly.pl, which re-creates the files perly.h, perly.tab * and perly.act which are derived from this. * * Note that these derived files are included and compiled twice; once * from perly.c, and once from madly.c. The second time, a number of MAD * macros are defined, which compile in extra code that allows the parse * tree to be accurately dumped. In particular: * * MAD defined if compiling madly.c * DO_MAD(A) expands to A under madly.c, to null otherwise * IF_MAD(a,b) expands to A under madly.c, to B otherwise * TOKEN_GETMAD() expands to token_getmad() under madly.c, to null otherwise * TOKEN_FREE() similarly * OP_GETMAD() similarly * IVAL(i) expands to (i)->tk_lval.ival or (i) * PVAL(p) expands to (p)->tk_lval.pval or (p) * * The main job of of this grammar is to call the various newFOO() * functions in op.c to build a syntax tree of OP structs. * It relies on the lexer in toke.c to do the tokenizing. * * Note: due to the way that the cleanup code works WRT to freeing ops on * the parse stack, it is dangerous to assign to the $n variables within * an action. */ /* Make the parser re-entrant. */ %pure_parser /* FIXME for MAD - is the new mintro on while and until important? */ %start grammar %union { I32 ival; /* __DEFAULT__ (marker for regen_perly.pl; must always be 1st union member) */ char *pval; OP *opval; GV *gvval; #ifdef PERL_IN_MADLY_C TOKEN* p_tkval; TOKEN* i_tkval; #else char *p_tkval; I32 i_tkval; #endif #ifdef PERL_MAD TOKEN* tkval; #endif } %token <ival> GRAMPROG GRAMEXPR GRAMBLOCK GRAMBARESTMT GRAMFULLSTMT GRAMSTMTSEQ %token <i_tkval> '{' '}' '[' ']' '-' '+' '$' '@' '%' '*' '&' ';' '=' '.' %token <opval> WORD METHOD FUNCMETH THING PMFUNC PRIVATEREF QWLIST %token <opval> FUNC0OP FUNC0SUB UNIOPSUB LSTOPSUB %token <opval> PLUGEXPR PLUGSTMT %token <p_tkval> LABEL %token <i_tkval> FORMAT SUB ANONSUB PACKAGE USE %token <i_tkval> WHILE UNTIL IF UNLESS ELSE ELSIF CONTINUE FOR %token <i_tkval> GIVEN WHEN DEFAULT %token <i_tkval> LOOPEX DOTDOT YADAYADA %token <i_tkval> FUNC0 FUNC1 FUNC UNIOP LSTOP %token <i_tkval> RELOP EQOP MULOP ADDOP %token <i_tkval> DOLSHARP DO HASHBRACK NOAMP %token <i_tkval> LOCAL MY REQUIRE %token <i_tkval> COLONATTR FORMLBRACK FORMRBRACK %type <ival> grammar remember mremember %type <ival> startsub startanonsub startformsub /* FIXME for MAD - are these two ival? */ %type <ival> mintro %type <opval> stmtseq fullstmt labfullstmt barestmt block mblock else %type <opval> expr term subscripted scalar ary hsh arylen star amper sideff %type <opval> sliceme kvslice gelem %type <opval> listexpr nexpr texpr iexpr mexpr mnexpr miexpr %type <opval> optlistexpr optexpr indirob listop method %type <opval> formname subname proto optsubbody cont my_scalar formblock %type <opval> subattrlist myattrlist myattrterm myterm %type <opval> realsubbody subsignature termbinop termunop anonymous termdo %type <opval> formstmtseq formline formarg %nonassoc <i_tkval> PREC_LOW %nonassoc LOOPEX %left <i_tkval> OROP DOROP %left <i_tkval> ANDOP %right <i_tkval> NOTOP %nonassoc LSTOP LSTOPSUB %left <i_tkval> ',' %right <i_tkval> ASSIGNOP %right <i_tkval> '?' ':' %nonassoc DOTDOT YADAYADA %left <i_tkval> OROR DORDOR %left <i_tkval> ANDAND %left <i_tkval> BITOROP %left <i_tkval> BITANDOP %nonassoc EQOP %nonassoc RELOP %nonassoc UNIOP UNIOPSUB %nonassoc REQUIRE %left <i_tkval> SHIFTOP %left ADDOP %left MULOP %left <i_tkval> MATCHOP %right <i_tkval> '!' '~' UMINUS REFGEN %right <i_tkval> POWOP %nonassoc <i_tkval> PREINC PREDEC POSTINC POSTDEC POSTJOIN %left <i_tkval> ARROW %nonassoc <i_tkval> ')' %left <i_tkval> '(' %left '[' '{' %token <i_tkval> PEG %% /* RULES */ /* Top-level choice of what kind of thing yyparse was called to parse */ grammar : GRAMPROG { PL_parser->expect = XSTATE; } remember stmtseq { newPROG(block_end($3,$4)); $$ = 0; } | GRAMEXPR { parser->expect = XTERM; } optexpr { PL_eval_root = $3; $$ = 0; } | GRAMBLOCK { parser->expect = XBLOCK; } block { PL_pad_reset_pending = TRUE; PL_eval_root = $3; $$ = 0; yyunlex(); parser->yychar = YYEOF; } | GRAMBARESTMT { parser->expect = XSTATE; } barestmt { PL_pad_reset_pending = TRUE; PL_eval_root = $3; $$ = 0; yyunlex(); parser->yychar = YYEOF; } | GRAMFULLSTMT { parser->expect = XSTATE; } fullstmt { PL_pad_reset_pending = TRUE; PL_eval_root = $3; $$ = 0; yyunlex(); parser->yychar = YYEOF; } | GRAMSTMTSEQ { parser->expect = XSTATE; } stmtseq { PL_eval_root = $3; $$ = 0; } ; /* An ordinary block */ block : '{' remember stmtseq '}' { if (PL_parser->copline > (line_t)IVAL($1)) PL_parser->copline = (line_t)IVAL($1); $$ = block_end($2, $3); TOKEN_GETMAD($1,$$,'{'); TOKEN_GETMAD($4,$$,'}'); } ; /* format body */ formblock: '=' remember ';' FORMRBRACK formstmtseq ';' '.' { if (PL_parser->copline > (line_t)IVAL($1)) PL_parser->copline = (line_t)IVAL($1); $$ = block_end($2, $5); TOKEN_GETMAD($1,$$,'{'); TOKEN_GETMAD($7,$$,'}'); } ; remember: /* NULL */ /* start a full lexical scope */ { $$ = block_start(TRUE); } ; mblock : '{' mremember stmtseq '}' { if (PL_parser->copline > (line_t)IVAL($1)) PL_parser->copline = (line_t)IVAL($1); $$ = block_end($2, $3); TOKEN_GETMAD($1,$$,'{'); TOKEN_GETMAD($4,$$,'}'); } ; mremember: /* NULL */ /* start a partial lexical scope */ { $$ = block_start(FALSE); } ; /* A sequence of statements in the program */ stmtseq : /* NULL */ { $$ = (OP*)NULL; } | stmtseq fullstmt { $$ = op_append_list(OP_LINESEQ, $1, $2); PL_pad_reset_pending = TRUE; if ($1 && $2) PL_hints |= HINT_BLOCK_SCOPE; } ; /* A sequence of format lines */ formstmtseq: /* NULL */ { $$ = (OP*)NULL; } | formstmtseq formline { $$ = op_append_list(OP_LINESEQ, $1, $2); PL_pad_reset_pending = TRUE; if ($1 && $2) PL_hints |= HINT_BLOCK_SCOPE; } ; /* A statement in the program, including optional labels */ fullstmt: barestmt { if($1) { $$ = newSTATEOP(0, NULL, $1); } else { $$ = IF_MAD(newOP(OP_NULL, 0), NULL); } } | labfullstmt { $$ = $1; } ; labfullstmt: LABEL barestmt { $$ = newSTATEOP(SVf_UTF8 * PVAL($1)[strlen(PVAL($1))+1], PVAL($1), $2); TOKEN_GETMAD($1, $2 ? cLISTOPx($$)->op_first : $$, 'L'); } | LABEL labfullstmt { $$ = newSTATEOP(SVf_UTF8 * PVAL($1)[strlen(PVAL($1))+1], PVAL($1), $2); TOKEN_GETMAD($1, cLISTOPx($$)->op_first, 'L'); } ; /* A bare statement, lacking label and other aspects of state op */ barestmt: PLUGSTMT { $$ = $1; } | PEG { $$ = newOP(OP_NULL,0); TOKEN_GETMAD($1,$$,'p'); } | FORMAT startformsub formname formblock { CV *fmtcv = PL_compcv; #ifdef MAD $$ = newFORM($2, $3, $4); prepend_madprops($1->tk_mad, $$, 'F'); $1->tk_mad = 0; token_free($1); #else newFORM($2, $3, $4); $$ = (OP*)NULL; #endif if (CvOUTSIDE(fmtcv) && !CvEVAL(CvOUTSIDE(fmtcv))) { SvREFCNT_inc_simple_void(fmtcv); pad_add_anon(fmtcv, OP_NULL); } } | SUB subname startsub { if ($2->op_type == OP_CONST) { const char *const name = SvPV_nolen_const(((SVOP*)$2)->op_sv); if (strEQ(name, "BEGIN") || strEQ(name, "END") || strEQ(name, "INIT") || strEQ(name, "CHECK") || strEQ(name, "UNITCHECK")) CvSPECIAL_on(PL_compcv); } else /* State subs inside anonymous subs need to be clonable themselves. */ if (CvANON(CvOUTSIDE(PL_compcv)) || CvCLONE(CvOUTSIDE(PL_compcv)) || !PadnameIsSTATE(PadlistNAMESARRAY(CvPADLIST( CvOUTSIDE(PL_compcv) ))[$2->op_targ])) CvCLONE_on(PL_compcv); PL_parser->in_my = 0; PL_parser->in_my_stash = NULL; } proto subattrlist optsubbody { SvREFCNT_inc_simple_void(PL_compcv); #ifdef MAD { OP* o = newSVOP(OP_ANONCODE, 0, (SV*)( #endif $2->op_type == OP_CONST ? newATTRSUB($3, $2, $5, $6, $7) : newMYSUB($3, $2, $5, $6, $7) #ifdef MAD )); $$ = newOP(OP_NULL,0); op_getmad(o,$$,'&'); op_getmad($2,$$,'n'); op_getmad($5,$$,'s'); op_getmad($6,$$,'a'); token_getmad($1,$$,'d'); append_madprops($7->op_madprop, $$, 0); $7->op_madprop = 0; } #else ; $$ = (OP*)NULL; #endif intro_my(); } | PACKAGE WORD WORD ';' { #ifdef MAD $$ = package($3); token_getmad($1,$$,'o'); if ($2) package_version($2); token_getmad($4,$$,';'); #else package($3); if ($2) package_version($2); $$ = (OP*)NULL; #endif } | USE startsub { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ } WORD WORD optlistexpr ';' { SvREFCNT_inc_simple_void(PL_compcv); #ifdef MAD $$ = utilize(IVAL($1), $2, $4, $5, $6); token_getmad($1,$$,'o'); token_getmad($7,$$,';'); if (PL_parser->rsfp_filters && AvFILLp(PL_parser->rsfp_filters) >= 0) append_madprops(newMADPROP('!', MAD_NULL, NULL, 0), $$, 0); #else utilize(IVAL($1), $2, $4, $5, $6); $$ = (OP*)NULL; #endif } | IF '(' remember mexpr ')' mblock else { $$ = block_end($3, newCONDOP(0, $4, op_scope($6), $7)); TOKEN_GETMAD($1,$$,'I'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($5,$$,')'); PL_parser->copline = (line_t)IVAL($1); } | UNLESS '(' remember miexpr ')' mblock else { $$ = block_end($3, newCONDOP(0, $4, op_scope($6), $7)); TOKEN_GETMAD($1,$$,'I'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($5,$$,')'); PL_parser->copline = (line_t)IVAL($1); } | GIVEN '(' remember mexpr ')' mblock { const PADOFFSET offset = pad_findmy_pvs("$_", 0); $$ = block_end($3, newGIVENOP($4, op_scope($6), offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset) ? 0 : offset)); PL_parser->copline = (line_t)IVAL($1); } | WHEN '(' remember mexpr ')' mblock { $$ = block_end($3, newWHENOP($4, op_scope($6))); } | DEFAULT block { $$ = newWHENOP(0, op_scope($2)); } | WHILE '(' remember texpr ')' mintro mblock cont { $$ = block_end($3, newWHILEOP(0, 1, (LOOP*)(OP*)NULL, $4, $7, $8, $6)); TOKEN_GETMAD($1,$$,'W'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($5,$$,')'); PL_parser->copline = (line_t)IVAL($1); } | UNTIL '(' remember iexpr ')' mintro mblock cont { $$ = block_end($3, newWHILEOP(0, 1, (LOOP*)(OP*)NULL, $4, $7, $8, $6)); TOKEN_GETMAD($1,$$,'W'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($5,$$,')'); PL_parser->copline = (line_t)IVAL($1); } | FOR '(' remember mnexpr ';' texpr ';' mintro mnexpr ')' mblock { OP *initop = IF_MAD($4 ? $4 : newOP(OP_NULL, 0), $4); OP *forop = newWHILEOP(0, 1, (LOOP*)(OP*)NULL, scalar($6), $11, $9, $8); if (initop) { forop = op_prepend_elem(OP_LINESEQ, initop, op_append_elem(OP_LINESEQ, newOP(OP_UNSTACK, OPf_SPECIAL), forop)); } DO_MAD({ forop = newUNOP(OP_NULL, 0, forop); }) $$ = block_end($3, forop); TOKEN_GETMAD($1,$$,'3'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($5,$$,'1'); TOKEN_GETMAD($7,$$,'2'); TOKEN_GETMAD($10,$$,')'); PL_parser->copline = (line_t)IVAL($1); } | FOR MY remember my_scalar '(' mexpr ')' mblock cont { $$ = block_end($3, newFOROP(0, $4, $6, $8, $9)); TOKEN_GETMAD($1,$$,'W'); TOKEN_GETMAD($2,$$,'d'); TOKEN_GETMAD($5,$$,'('); TOKEN_GETMAD($7,$$,')'); PL_parser->copline = (line_t)IVAL($1); } | FOR scalar '(' remember mexpr ')' mblock cont { $$ = block_end($4, newFOROP(0, op_lvalue($2, OP_ENTERLOOP), $5, $7, $8)); TOKEN_GETMAD($1,$$,'W'); TOKEN_GETMAD($3,$$,'('); TOKEN_GETMAD($6,$$,')'); PL_parser->copline = (line_t)IVAL($1); } | FOR '(' remember mexpr ')' mblock cont { $$ = block_end($3, newFOROP(0, (OP*)NULL, $4, $6, $7)); TOKEN_GETMAD($1,$$,'W'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($5,$$,')'); PL_parser->copline = (line_t)IVAL($1); } | block cont { /* a block is a loop that happens once */ $$ = newWHILEOP(0, 1, (LOOP*)(OP*)NULL, (OP*)NULL, $1, $2, 0); } | PACKAGE WORD WORD '{' remember { package($3); if ($2) { package_version($2); } } stmtseq '}' { /* a block is a loop that happens once */ $$ = newWHILEOP(0, 1, (LOOP*)(OP*)NULL, (OP*)NULL, block_end($5, $7), (OP*)NULL, 0); TOKEN_GETMAD($4,$$,'{'); TOKEN_GETMAD($8,$$,'}'); if (PL_parser->copline > (line_t)IVAL($4)) PL_parser->copline = (line_t)IVAL($4); } | sideff ';' { PL_parser->expect = XSTATE; $$ = $1; TOKEN_GETMAD($2,$$,';'); } | ';' { PL_parser->expect = XSTATE; $$ = IF_MAD(newOP(OP_NULL, 0), (OP*)NULL); TOKEN_GETMAD($1,$$,';'); PL_parser->copline = NOLINE; } ; /* Format line */ formline: THING formarg { OP *list; if ($2) { OP *term = $2; DO_MAD(term = newUNOP(OP_NULL, 0, term)); list = op_append_elem(OP_LIST, $1, term); } else { #ifdef MAD OP *op = newNULLLIST(); list = op_append_elem(OP_LIST, $1, op); #else list = $1; #endif } if (PL_parser->copline == NOLINE) PL_parser->copline = CopLINE(PL_curcop)-1; else PL_parser->copline--; $$ = newSTATEOP(0, NULL, convert(OP_FORMLINE, 0, list)); } ; formarg : /* NULL */ { $$ = NULL; } | FORMLBRACK stmtseq FORMRBRACK { $$ = op_unscope($2); } ; /* An expression which may have a side-effect */ sideff : error { $$ = (OP*)NULL; } | expr { $$ = $1; } | expr IF expr { $$ = newLOGOP(OP_AND, 0, $3, $1); TOKEN_GETMAD($2,$$,'i'); } | expr UNLESS expr { $$ = newLOGOP(OP_OR, 0, $3, $1); TOKEN_GETMAD($2,$$,'i'); } | expr WHILE expr { $$ = newLOOPOP(OPf_PARENS, 1, scalar($3), $1); TOKEN_GETMAD($2,$$,'w'); } | expr UNTIL iexpr { $$ = newLOOPOP(OPf_PARENS, 1, $3, $1); TOKEN_GETMAD($2,$$,'w'); } | expr FOR expr { $$ = newFOROP(0, (OP*)NULL, $3, $1, (OP*)NULL); TOKEN_GETMAD($2,$$,'w'); PL_parser->copline = (line_t)IVAL($2); } | expr WHEN expr { $$ = newWHENOP($3, op_scope($1)); } ; /* else and elsif blocks */ else : /* NULL */ { $$ = (OP*)NULL; } | ELSE mblock { ($2)->op_flags |= OPf_PARENS; $$ = op_scope($2); TOKEN_GETMAD($1,$$,'o'); } | ELSIF '(' mexpr ')' mblock else { PL_parser->copline = (line_t)IVAL($1); $$ = newCONDOP(0, newSTATEOP(OPf_SPECIAL,NULL,$3), op_scope($5), $6); PL_hints |= HINT_BLOCK_SCOPE; TOKEN_GETMAD($1,$$,'I'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($4,$$,')'); } ; /* Continue blocks */ cont : /* NULL */ { $$ = (OP*)NULL; } | CONTINUE block { $$ = op_scope($2); TOKEN_GETMAD($1,$$,'o'); } ; /* determine whether there are any new my declarations */ mintro : /* NULL */ { $$ = (PL_min_intro_pending && PL_max_intro_pending >= PL_min_intro_pending); intro_my(); } /* Normal expression */ nexpr : /* NULL */ { $$ = (OP*)NULL; } | sideff ; /* Boolean expression */ texpr : /* NULL means true */ { YYSTYPE tmplval; (void)scan_num("1", &tmplval); $$ = tmplval.opval; } | expr ; /* Inverted boolean expression */ iexpr : expr { $$ = invert(scalar($1)); } ; /* Expression with its own lexical scope */ mexpr : expr { $$ = $1; intro_my(); } ; mnexpr : nexpr { $$ = $1; intro_my(); } ; miexpr : iexpr { $$ = $1; intro_my(); } ; formname: WORD { $$ = $1; } | /* NULL */ { $$ = (OP*)NULL; } ; startsub: /* NULL */ /* start a regular subroutine scope */ { $$ = start_subparse(FALSE, 0); SAVEFREESV(PL_compcv); } ; startanonsub: /* NULL */ /* start an anonymous subroutine scope */ { $$ = start_subparse(FALSE, CVf_ANON); SAVEFREESV(PL_compcv); } ; startformsub: /* NULL */ /* start a format subroutine scope */ { $$ = start_subparse(TRUE, 0); SAVEFREESV(PL_compcv); } ; /* Name of a subroutine - must be a bareword, could be special */ subname : WORD | PRIVATEREF ; /* Subroutine prototype */ proto : /* NULL */ { $$ = (OP*)NULL; } | THING ; /* Optional list of subroutine attributes */ subattrlist: /* NULL */ { $$ = (OP*)NULL; } | COLONATTR THING { $$ = $2; TOKEN_GETMAD($1,$$,':'); } | COLONATTR { $$ = IF_MAD( newOP(OP_NULL, 0), (OP*)NULL ); TOKEN_GETMAD($1,$$,':'); } ; /* List of attributes for a "my" variable declaration */ myattrlist: COLONATTR THING { $$ = $2; TOKEN_GETMAD($1,$$,':'); } | COLONATTR { $$ = IF_MAD( newOP(OP_NULL, 0), (OP*)NULL ); TOKEN_GETMAD($1,$$,':'); } ; /* Optional subroutine signature */ subsignature: /* NULL */ { $$ = (OP*)NULL; } | '(' { if (!FEATURE_SIGNATURES_IS_ENABLED) Perl_croak(aTHX_ "Experimental " "subroutine signatures not enabled"); Perl_ck_warner_d(aTHX_ packWARN(WARN_EXPERIMENTAL__SIGNATURES), "The signatures feature is experimental"); $<opval>$ = parse_subsignature(); } ')' { $$ = op_append_list(OP_LINESEQ, $<opval>2, newSTATEOP(0, NULL, sawparens(newNULLLIST()))); PL_parser->expect = XBLOCK; } ; /* Subroutine body - block with optional signature */ realsubbody: remember subsignature '{' stmtseq '}' { if (PL_parser->copline > (line_t)IVAL($3)) PL_parser->copline = (line_t)IVAL($3); $$ = block_end($1, op_append_list(OP_LINESEQ, $2, $4)); TOKEN_GETMAD($3,$$,'{'); TOKEN_GETMAD($5,$$,'}'); } ; /* Optional subroutine body, for named subroutine declaration */ optsubbody: realsubbody { $$ = $1; } | ';' { $$ = IF_MAD( newOP(OP_NULL,0), (OP*)NULL ); PL_parser->expect = XSTATE; TOKEN_GETMAD($1,$$,';'); } ; /* Ordinary expressions; logical combinations */ expr : expr ANDOP expr { $$ = newLOGOP(OP_AND, 0, $1, $3); TOKEN_GETMAD($2,$$,'o'); } | expr OROP expr { $$ = newLOGOP(IVAL($2), 0, $1, $3); TOKEN_GETMAD($2,$$,'o'); } | expr DOROP expr { $$ = newLOGOP(OP_DOR, 0, $1, $3); TOKEN_GETMAD($2,$$,'o'); } | listexpr %prec PREC_LOW ; /* Expressions are a list of terms joined by commas */ listexpr: listexpr ',' { #ifdef MAD OP* op = newNULLLIST(); token_getmad($2,op,','); $$ = op_append_elem(OP_LIST, $1, op); #else $$ = $1; #endif } | listexpr ',' term { OP* term = $3; DO_MAD( term = newUNOP(OP_NULL, 0, term); token_getmad($2,term,','); ) $$ = op_append_elem(OP_LIST, $1, term); } | term %prec PREC_LOW ; /* List operators */ listop : LSTOP indirob listexpr /* map {...} @args or print $fh @args */ { $$ = convert(IVAL($1), OPf_STACKED, op_prepend_elem(OP_LIST, newGVREF(IVAL($1),$2), $3) ); TOKEN_GETMAD($1,$$,'o'); } | FUNC '(' indirob expr ')' /* print ($fh @args */ { $$ = convert(IVAL($1), OPf_STACKED, op_prepend_elem(OP_LIST, newGVREF(IVAL($1),$3), $4) ); TOKEN_GETMAD($1,$$,'o'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($5,$$,')'); } | term ARROW method '(' optexpr ')' /* $foo->bar(list) */ { $$ = convert(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, scalar($1), $5), newUNOP(OP_METHOD, 0, $3))); TOKEN_GETMAD($2,$$,'A'); TOKEN_GETMAD($4,$$,'('); TOKEN_GETMAD($6,$$,')'); } | term ARROW method /* $foo->bar */ { $$ = convert(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, scalar($1), newUNOP(OP_METHOD, 0, $3))); TOKEN_GETMAD($2,$$,'A'); } | METHOD indirob optlistexpr /* new Class @args */ { $$ = convert(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, $2, $3), newUNOP(OP_METHOD, 0, $1))); } | FUNCMETH indirob '(' optexpr ')' /* method $object (@args) */ { $$ = convert(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, $2, $4), newUNOP(OP_METHOD, 0, $1))); TOKEN_GETMAD($3,$$,'('); TOKEN_GETMAD($5,$$,')'); } | LSTOP optlistexpr /* print @args */ { $$ = convert(IVAL($1), 0, $2); TOKEN_GETMAD($1,$$,'o'); } | FUNC '(' optexpr ')' /* print (@args) */ { $$ = convert(IVAL($1), 0, $3); TOKEN_GETMAD($1,$$,'o'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($4,$$,')'); } | LSTOPSUB startanonsub block /* sub f(&@); f { foo } ... */ { SvREFCNT_inc_simple_void(PL_compcv); $<opval>$ = newANONATTRSUB($2, 0, (OP*)NULL, $3); } optlistexpr %prec LSTOP /* ... @bar */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, $<opval>4, $5), $1)); } ; /* Names of methods. May use $object->$methodname */ method : METHOD | scalar ; /* Some kind of subscripted expression */ subscripted: gelem '{' expr ';' '}' /* *main::{something} */ /* In this and all the hash accessors, ';' is * provided by the tokeniser */ { $$ = newBINOP(OP_GELEM, 0, $1, scalar($3)); PL_parser->expect = XOPERATOR; TOKEN_GETMAD($2,$$,'{'); TOKEN_GETMAD($4,$$,';'); TOKEN_GETMAD($5,$$,'}'); } | scalar '[' expr ']' /* $array[$element] */ { $$ = newBINOP(OP_AELEM, 0, oopsAV($1), scalar($3)); TOKEN_GETMAD($2,$$,'['); TOKEN_GETMAD($4,$$,']'); } | term ARROW '[' expr ']' /* somearef->[$element] */ { $$ = newBINOP(OP_AELEM, 0, ref(newAVREF($1),OP_RV2AV), scalar($4)); TOKEN_GETMAD($2,$$,'a'); TOKEN_GETMAD($3,$$,'['); TOKEN_GETMAD($5,$$,']'); } | subscripted '[' expr ']' /* $foo->[$bar]->[$baz] */ { $$ = newBINOP(OP_AELEM, 0, ref(newAVREF($1),OP_RV2AV), scalar($3)); TOKEN_GETMAD($2,$$,'['); TOKEN_GETMAD($4,$$,']'); } | scalar '{' expr ';' '}' /* $foo{bar();} */ { $$ = newBINOP(OP_HELEM, 0, oopsHV($1), jmaybe($3)); PL_parser->expect = XOPERATOR; TOKEN_GETMAD($2,$$,'{'); TOKEN_GETMAD($4,$$,';'); TOKEN_GETMAD($5,$$,'}'); } | term ARROW '{' expr ';' '}' /* somehref->{bar();} */ { $$ = newBINOP(OP_HELEM, 0, ref(newHVREF($1),OP_RV2HV), jmaybe($4)); PL_parser->expect = XOPERATOR; TOKEN_GETMAD($2,$$,'a'); TOKEN_GETMAD($3,$$,'{'); TOKEN_GETMAD($5,$$,';'); TOKEN_GETMAD($6,$$,'}'); } | subscripted '{' expr ';' '}' /* $foo->[bar]->{baz;} */ { $$ = newBINOP(OP_HELEM, 0, ref(newHVREF($1),OP_RV2HV), jmaybe($3)); PL_parser->expect = XOPERATOR; TOKEN_GETMAD($2,$$,'{'); TOKEN_GETMAD($4,$$,';'); TOKEN_GETMAD($5,$$,'}'); } | term ARROW '(' ')' /* $subref->() */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, newCVREF(0, scalar($1))); TOKEN_GETMAD($2,$$,'a'); TOKEN_GETMAD($3,$$,'('); TOKEN_GETMAD($4,$$,')'); } | term ARROW '(' expr ')' /* $subref->(@args) */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, $4, newCVREF(0, scalar($1)))); TOKEN_GETMAD($2,$$,'a'); TOKEN_GETMAD($3,$$,'('); TOKEN_GETMAD($5,$$,')'); } | subscripted '(' expr ')' /* $foo->{bar}->(@args) */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, $3, newCVREF(0, scalar($1)))); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($4,$$,')'); } | subscripted '(' ')' /* $foo->{bar}->() */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, newCVREF(0, scalar($1))); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($3,$$,')'); } | '(' expr ')' '[' expr ']' /* list slice */ { $$ = newSLICEOP(0, $5, $2); TOKEN_GETMAD($1,$$,'('); TOKEN_GETMAD($3,$$,')'); TOKEN_GETMAD($4,$$,'['); TOKEN_GETMAD($6,$$,']'); } | QWLIST '[' expr ']' /* list literal slice */ { $$ = newSLICEOP(0, $3, $1); TOKEN_GETMAD($2,$$,'['); TOKEN_GETMAD($4,$$,']'); } | '(' ')' '[' expr ']' /* empty list slice! */ { $$ = newSLICEOP(0, $4, (OP*)NULL); TOKEN_GETMAD($1,$$,'('); TOKEN_GETMAD($2,$$,')'); TOKEN_GETMAD($3,$$,'['); TOKEN_GETMAD($5,$$,']'); } ; /* Binary operators between terms */ termbinop: term ASSIGNOP term /* $x = $y */ { $$ = newASSIGNOP(OPf_STACKED, $1, IVAL($2), $3); TOKEN_GETMAD($2,$$,'o'); } | term POWOP term /* $x ** $y */ { $$ = newBINOP(IVAL($2), 0, scalar($1), scalar($3)); TOKEN_GETMAD($2,$$,'o'); } | term MULOP term /* $x * $y, $x x $y */ { if (IVAL($2) != OP_REPEAT) scalar($1); $$ = newBINOP(IVAL($2), 0, $1, scalar($3)); TOKEN_GETMAD($2,$$,'o'); } | term ADDOP term /* $x + $y */ { $$ = newBINOP(IVAL($2), 0, scalar($1), scalar($3)); TOKEN_GETMAD($2,$$,'o'); } | term SHIFTOP term /* $x >> $y, $x << $y */ { $$ = newBINOP(IVAL($2), 0, scalar($1), scalar($3)); TOKEN_GETMAD($2,$$,'o'); } | term RELOP term /* $x > $y, etc. */ { $$ = newBINOP(IVAL($2), 0, scalar($1), scalar($3)); TOKEN_GETMAD($2,$$,'o'); } | term EQOP term /* $x == $y, $x eq $y */ { $$ = newBINOP(IVAL($2), 0, scalar($1), scalar($3)); TOKEN_GETMAD($2,$$,'o'); } | term BITANDOP term /* $x & $y */ { $$ = newBINOP(IVAL($2), 0, scalar($1), scalar($3)); TOKEN_GETMAD($2,$$,'o'); } | term BITOROP term /* $x | $y */ { $$ = newBINOP(IVAL($2), 0, scalar($1), scalar($3)); TOKEN_GETMAD($2,$$,'o'); } | term DOTDOT term /* $x..$y, $x...$y */ { $$ = newRANGE(IVAL($2), scalar($1), scalar($3)); DO_MAD({ UNOP *op; op = (UNOP*)$$; op = (UNOP*)op->op_first; /* get to flop */ op = (UNOP*)op->op_first; /* get to flip */ op = (UNOP*)op->op_first; /* get to range */ token_getmad($2,(OP*)op,'o'); }); } | term ANDAND term /* $x && $y */ { $$ = newLOGOP(OP_AND, 0, $1, $3); TOKEN_GETMAD($2,$$,'o'); } | term OROR term /* $x || $y */ { $$ = newLOGOP(OP_OR, 0, $1, $3); TOKEN_GETMAD($2,$$,'o'); } | term DORDOR term /* $x // $y */ { $$ = newLOGOP(OP_DOR, 0, $1, $3); TOKEN_GETMAD($2,$$,'o'); } | term MATCHOP term /* $x =~ /$y/ */ { $$ = bind_match(IVAL($2), $1, $3); TOKEN_GETMAD($2, ($$->op_type == OP_NOT ? ((UNOP*)$$)->op_first : $$), '~'); } ; /* Unary operators and terms */ termunop : '-' term %prec UMINUS /* -$x */ { $$ = newUNOP(OP_NEGATE, 0, scalar($2)); TOKEN_GETMAD($1,$$,'o'); } | '+' term %prec UMINUS /* +$x */ { $$ = IF_MAD( newUNOP(OP_NULL, 0, $2), $2 ); TOKEN_GETMAD($1,$$,'+'); } | '!' term /* !$x */ { $$ = newUNOP(OP_NOT, 0, scalar($2)); TOKEN_GETMAD($1,$$,'o'); } | '~' term /* ~$x */ { $$ = newUNOP(OP_COMPLEMENT, 0, scalar($2)); TOKEN_GETMAD($1,$$,'o'); } | term POSTINC /* $x++ */ { $$ = newUNOP(OP_POSTINC, 0, op_lvalue(scalar($1), OP_POSTINC)); TOKEN_GETMAD($2,$$,'o'); } | term POSTDEC /* $x-- */ { $$ = newUNOP(OP_POSTDEC, 0, op_lvalue(scalar($1), OP_POSTDEC)); TOKEN_GETMAD($2,$$,'o'); } | term POSTJOIN /* implicit join after interpolated ->@ */ { $$ = convert(OP_JOIN, 0, op_append_elem( OP_LIST, newSVREF(scalar( newSVOP(OP_CONST,0, newSVpvs("\"")) )), $1 )); TOKEN_GETMAD($2,$$,'o'); } | PREINC term /* ++$x */ { $$ = newUNOP(OP_PREINC, 0, op_lvalue(scalar($2), OP_PREINC)); TOKEN_GETMAD($1,$$,'o'); } | PREDEC term /* --$x */ { $$ = newUNOP(OP_PREDEC, 0, op_lvalue(scalar($2), OP_PREDEC)); TOKEN_GETMAD($1,$$,'o'); } ; /* Constructors for anonymous data */ anonymous: '[' expr ']' { $$ = newANONLIST($2); TOKEN_GETMAD($1,$$,'['); TOKEN_GETMAD($3,$$,']'); } | '[' ']' { $$ = newANONLIST((OP*)NULL); TOKEN_GETMAD($1,$$,'['); TOKEN_GETMAD($2,$$,']'); } | HASHBRACK expr ';' '}' %prec '(' /* { foo => "Bar" } */ { $$ = newANONHASH($2); TOKEN_GETMAD($1,$$,'{'); TOKEN_GETMAD($3,$$,';'); TOKEN_GETMAD($4,$$,'}'); } | HASHBRACK ';' '}' %prec '(' /* { } (';' by tokener) */ { $$ = newANONHASH((OP*)NULL); TOKEN_GETMAD($1,$$,'{'); TOKEN_GETMAD($2,$$,';'); TOKEN_GETMAD($3,$$,'}'); } | ANONSUB startanonsub proto subattrlist realsubbody %prec '(' { SvREFCNT_inc_simple_void(PL_compcv); $$ = newANONATTRSUB($2, $3, $4, $5); TOKEN_GETMAD($1,$$,'o'); OP_GETMAD($3,$$,'s'); OP_GETMAD($4,$$,'a'); } ; /* Things called with "do" */ termdo : DO term %prec UNIOP /* do $filename */ { $$ = dofile($2, IVAL($1)); TOKEN_GETMAD($1,$$,'o'); } | DO block %prec '(' /* do { code */ { $$ = newUNOP(OP_NULL, OPf_SPECIAL, op_scope($2)); TOKEN_GETMAD($1,$$,'D'); } ; term : termbinop | termunop | anonymous | termdo | term '?' term ':' term { $$ = newCONDOP(0, $1, $3, $5); TOKEN_GETMAD($2,$$,'?'); TOKEN_GETMAD($4,$$,':'); } | REFGEN term /* \$x, \@y, \%z */ { $$ = newUNOP(OP_REFGEN, 0, op_lvalue($2,OP_REFGEN)); TOKEN_GETMAD($1,$$,'o'); } | myattrterm %prec UNIOP { $$ = $1; } | LOCAL term %prec UNIOP { $$ = localize($2,IVAL($1)); TOKEN_GETMAD($1,$$,'k'); } | '(' expr ')' { $$ = sawparens(IF_MAD(newUNOP(OP_NULL,0,$2), $2)); TOKEN_GETMAD($1,$$,'('); TOKEN_GETMAD($3,$$,')'); } | QWLIST { $$ = IF_MAD(newUNOP(OP_NULL,0,$1), $1); } | '(' ')' { $$ = sawparens(newNULLLIST()); TOKEN_GETMAD($1,$$,'('); TOKEN_GETMAD($2,$$,')'); } | scalar %prec '(' { $$ = $1; } | star %prec '(' { $$ = $1; } | hsh %prec '(' { $$ = $1; } | ary %prec '(' { $$ = $1; } | arylen %prec '(' /* $#x, $#{ something } */ { $$ = newUNOP(OP_AV2ARYLEN, 0, ref($1, OP_AV2ARYLEN));} | subscripted { $$ = $1; } | sliceme '[' expr ']' /* array slice */ { $$ = op_prepend_elem(OP_ASLICE, newOP(OP_PUSHMARK, 0), newLISTOP(OP_ASLICE, 0, list($3), ref($1, OP_ASLICE))); if ($$ && $1) $$->op_private |= $1->op_private & OPpSLICEWARNING; TOKEN_GETMAD($2,$$,'['); TOKEN_GETMAD($4,$$,']'); } | kvslice '[' expr ']' /* array key/value slice */ { $$ = op_prepend_elem(OP_KVASLICE, newOP(OP_PUSHMARK, 0), newLISTOP(OP_KVASLICE, 0, list($3), ref(oopsAV($1), OP_KVASLICE))); if ($$ && $1) $$->op_private |= $1->op_private & OPpSLICEWARNING; TOKEN_GETMAD($2,$$,'['); TOKEN_GETMAD($4,$$,']'); } | sliceme '{' expr ';' '}' /* @hash{@keys} */ { $$ = op_prepend_elem(OP_HSLICE, newOP(OP_PUSHMARK, 0), newLISTOP(OP_HSLICE, 0, list($3), ref(oopsHV($1), OP_HSLICE))); if ($$ && $1) $$->op_private |= $1->op_private & OPpSLICEWARNING; PL_parser->expect = XOPERATOR; TOKEN_GETMAD($2,$$,'{'); TOKEN_GETMAD($4,$$,';'); TOKEN_GETMAD($5,$$,'}'); } | kvslice '{' expr ';' '}' /* %hash{@keys} */ { $$ = op_prepend_elem(OP_KVHSLICE, newOP(OP_PUSHMARK, 0), newLISTOP(OP_KVHSLICE, 0, list($3), ref($1, OP_KVHSLICE))); if ($$ && $1) $$->op_private |= $1->op_private & OPpSLICEWARNING; PL_parser->expect = XOPERATOR; TOKEN_GETMAD($2,$$,'{'); TOKEN_GETMAD($4,$$,';'); TOKEN_GETMAD($5,$$,'}'); } | THING %prec '(' { $$ = $1; } | amper /* &foo; */ { $$ = newUNOP(OP_ENTERSUB, 0, scalar($1)); } | amper '(' ')' /* &foo() or foo() */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar($1)); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($3,$$,')'); } | amper '(' expr ')' /* &foo(@args) or foo(@args) */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, $3, scalar($1))); DO_MAD({ OP* op = $$; if (op->op_type == OP_CONST) { /* defeat const fold */ op = (OP*)op->op_madprop->mad_val; } token_getmad($2,op,'('); token_getmad($4,op,')'); }); } | NOAMP subname optlistexpr /* foo @args (no parens) */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, $3, scalar($2))); TOKEN_GETMAD($1,$$,'o'); } | term ARROW '$' '*' { $$ = newSVREF($1); TOKEN_GETMAD($3,$$,'$'); } | term ARROW '@' '*' { $$ = newAVREF($1); TOKEN_GETMAD($3,$$,'@'); } | term ARROW '%' '*' { $$ = newHVREF($1); TOKEN_GETMAD($3,$$,'%'); } | term ARROW '&' '*' { $$ = newUNOP(OP_ENTERSUB, 0, scalar(newCVREF(IVAL($3),$1))); TOKEN_GETMAD($3,$$,'&'); } | term ARROW '*' '*' %prec '(' { $$ = newGVREF(0,$1); TOKEN_GETMAD($3,$$,'*'); } | LOOPEX /* loop exiting command (goto, last, dump, etc) */ { $$ = newOP(IVAL($1), OPf_SPECIAL); PL_hints |= HINT_BLOCK_SCOPE; TOKEN_GETMAD($1,$$,'o'); } | LOOPEX term { $$ = newLOOPEX(IVAL($1),$2); TOKEN_GETMAD($1,$$,'o'); } | NOTOP listexpr /* not $foo */ { $$ = newUNOP(OP_NOT, 0, scalar($2)); TOKEN_GETMAD($1,$$,'o'); } | UNIOP /* Unary op, $_ implied */ { $$ = newOP(IVAL($1), 0); TOKEN_GETMAD($1,$$,'o'); } | UNIOP block /* eval { foo }* */ { $$ = newUNOP(IVAL($1), 0, $2); TOKEN_GETMAD($1,$$,'o'); } | UNIOP term /* Unary op */ { $$ = newUNOP(IVAL($1), 0, $2); TOKEN_GETMAD($1,$$,'o'); } | REQUIRE /* require, $_ implied */ { $$ = newOP(OP_REQUIRE, $1 ? OPf_SPECIAL : 0); TOKEN_GETMAD($1,$$,'o'); } | REQUIRE term /* require Foo */ { $$ = newUNOP(OP_REQUIRE, $1 ? OPf_SPECIAL : 0, $2); TOKEN_GETMAD($1,$$,'o'); } | UNIOPSUB { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar($1)); } | UNIOPSUB term /* Sub treated as unop */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, $2, scalar($1))); } | FUNC0 /* Nullary operator */ { $$ = newOP(IVAL($1), 0); TOKEN_GETMAD($1,$$,'o'); } | FUNC0 '(' ')' { $$ = newOP(IVAL($1), 0); TOKEN_GETMAD($1,$$,'o'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($3,$$,')'); } | FUNC0OP /* Same as above, but op created in toke.c */ { $$ = $1; } | FUNC0OP '(' ')' { $$ = $1; TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($3,$$,')'); } | FUNC0SUB /* Sub treated as nullop */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar($1)); } | FUNC1 '(' ')' /* not () */ { $$ = (IVAL($1) == OP_NOT) ? newUNOP(IVAL($1), 0, newSVOP(OP_CONST, 0, newSViv(0))) : newOP(IVAL($1), OPf_SPECIAL); TOKEN_GETMAD($1,$$,'o'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($3,$$,')'); } | FUNC1 '(' expr ')' /* not($foo) */ { $$ = newUNOP(IVAL($1), 0, $3); TOKEN_GETMAD($1,$$,'o'); TOKEN_GETMAD($2,$$,'('); TOKEN_GETMAD($4,$$,')'); } | PMFUNC /* m//, s///, qr//, tr/// */ { if ( $1->op_type != OP_TRANS && $1->op_type != OP_TRANSR && (((PMOP*)$1)->op_pmflags & PMf_HAS_CV)) { $<ival>$ = start_subparse(FALSE, CVf_ANON); SAVEFREESV(PL_compcv); } else $<ival>$ = 0; } '(' listexpr ')' { $$ = pmruntime($1, $4, 1, $<ival>2); TOKEN_GETMAD($3,$$,'('); TOKEN_GETMAD($5,$$,')'); } | WORD | listop | YADAYADA { $$ = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0), newSVOP(OP_CONST, 0, newSVpvs("Unimplemented"))); TOKEN_GETMAD($1,$$,'X'); } | PLUGEXPR ; /* "my" declarations, with optional attributes */ myattrterm: MY myterm myattrlist { $$ = my_attrs($2,$3); DO_MAD( token_getmad($1,$$,'d'); append_madprops($3->op_madprop, $$, 'a'); $3->op_madprop = 0; ); } | MY myterm { $$ = localize($2,IVAL($1)); TOKEN_GETMAD($1,$$,'d'); } ; /* Things that can be "my"'d */ myterm : '(' expr ')' { $$ = sawparens($2); TOKEN_GETMAD($1,$$,'('); TOKEN_GETMAD($3,$$,')'); } | '(' ')' { $$ = sawparens(newNULLLIST()); TOKEN_GETMAD($1,$$,'('); TOKEN_GETMAD($2,$$,')'); } | scalar %prec '(' { $$ = $1; } | hsh %prec '(' { $$ = $1; } | ary %prec '(' { $$ = $1; } ; /* Basic list expressions */ optlistexpr: /* NULL */ %prec PREC_LOW { $$ = (OP*)NULL; } | listexpr %prec PREC_LOW { $$ = $1; } ; optexpr: /* NULL */ { $$ = (OP*)NULL; } | expr { $$ = $1; } ; /* A little bit of trickery to make "for my $foo (@bar)" actually be lexical */ my_scalar: scalar { PL_parser->in_my = 0; $$ = my($1); } ; amper : '&' indirob { $$ = newCVREF(IVAL($1),$2); TOKEN_GETMAD($1,$$,'&'); } ; scalar : '$' indirob { $$ = newSVREF($2); TOKEN_GETMAD($1,$$,'$'); } ; ary : '@' indirob { $$ = newAVREF($2); if ($$) $$->op_private |= IVAL($1); TOKEN_GETMAD($1,$$,'@'); } ; hsh : '%' indirob { $$ = newHVREF($2); if ($$) $$->op_private |= IVAL($1); TOKEN_GETMAD($1,$$,'%'); } ; arylen : DOLSHARP indirob { $$ = newAVREF($2); TOKEN_GETMAD($1,$$,'l'); } | term ARROW DOLSHARP '*' { $$ = newAVREF($1); TOKEN_GETMAD($3,$$,'l'); } ; star : '*' indirob { $$ = newGVREF(0,$2); TOKEN_GETMAD($1,$$,'*'); } ; sliceme : ary | term ARROW '@' { $$ = newAVREF($1); TOKEN_GETMAD($3,$$,'@'); } ; kvslice : hsh | term ARROW '%' { $$ = newHVREF($1); TOKEN_GETMAD($3,$$,'@'); } ; gelem : star | term ARROW '*' { $$ = newGVREF(0,$1); TOKEN_GETMAD($3,$$,'*'); } ; /* Indirect objects */ indirob : WORD { $$ = scalar($1); } | scalar %prec PREC_LOW { $$ = scalar($1); } | block { $$ = op_scope($1); } | PRIVATEREF { $$ = $1; } ;