Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
.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

Rename

/*    perly.c
 *
 *    Copyright (c) 2004, 2005, 2006, 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.
 * 
 *    Note that this file was originally generated as an output from
 *    GNU bison version 1.875, but now the code is statically maintained
 *    and edited; the bits that are dependent on perly.y are now
 *    #included from the files perly.tab and perly.act.
 *
 *    Here is an important copyright statement from the original, generated
 *    file:
 *
 *	As a special exception, when this file is copied by Bison into a
 *	Bison output file, you may use that output file without
 *	restriction.  This special exception was added by the Free
 *	Software Foundation in version 1.24 of Bison.
 *
 * Note that this file is also #included in madly.c, to allow compilation
 * of a second parser, Perl_madparse, that is identical to Perl_yyparse,
 * but which includes extra code for dumping the parse tree.
 * This is controlled by the PERL_IN_MADLY_C define.
 */

#include "EXTERN.h"
#define PERL_IN_PERLY_C
#include "perl.h"
#include "feature.h"

typedef unsigned char yytype_uint8;
typedef signed char yytype_int8;
typedef unsigned short int yytype_uint16;
typedef short int yytype_int16;
typedef signed char yysigned_char;

/* YYINITDEPTH -- initial size of the parser's stacks.  */
#define YYINITDEPTH 200

#ifdef YYDEBUG
#  undef YYDEBUG
#endif
#ifdef DEBUGGING
#  define YYDEBUG 1
#else
#  define YYDEBUG 0
#endif

#ifndef YY_NULL
# define YY_NULL 0
#endif

/* contains all the parser state tables; auto-generated from perly.y */
#include "perly.tab"

# define YYSIZE_T size_t

#define YYEOF		0
#define YYTERROR	1

#define YYACCEPT	goto yyacceptlab
#define YYABORT		goto yyabortlab
#define YYERROR		goto yyerrlab1

/* Enable debugging if requested.  */
#ifdef DEBUGGING

#  define yydebug (DEBUG_p_TEST)

#  define YYFPRINTF PerlIO_printf

#  define YYDPRINTF(Args)			\
do {						\
    if (yydebug)				\
	YYFPRINTF Args;				\
} while (0)

#  define YYDSYMPRINTF(Title, Token, Value)			\
do {								\
    if (yydebug) {						\
	YYFPRINTF (Perl_debug_log, "%s ", Title);		\
	yysymprint (aTHX_ Perl_debug_log,  Token, Value);	\
	YYFPRINTF (Perl_debug_log, "\n");			\
    }								\
} while (0)

/*--------------------------------.
| Print this symbol on YYOUTPUT.  |
`--------------------------------*/

static void
yysymprint(pTHX_ PerlIO * const yyoutput, int yytype, const YYSTYPE * const yyvaluep)
{
    if (yytype < YYNTOKENS) {
	YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
#   ifdef YYPRINT
	YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
#   else
	YYFPRINTF (yyoutput, "0x%"UVxf, (UV)yyvaluep->ival);
#   endif
    }
    else
	YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);

YYFPRINTF (yyoutput, ")");
}

/*  yy_stack_print()
 *  print the top 8 items on the parse stack.
 */

static void
yy_stack_print (pTHX_ const yy_parser *parser)
{
    const yy_stack_frame *ps, *min;

min = parser->ps - 8 + 1;
    if (min <= parser->stack)
	min = parser->stack + 1;

PerlIO_printf(Perl_debug_log, "\nindex:");
    for (ps = min; ps <= parser->ps; ps++)
	PerlIO_printf(Perl_debug_log, " %8d", (int)(ps - parser->stack));

PerlIO_printf(Perl_debug_log, "\nstate:");
    for (ps = min; ps <= parser->ps; ps++)
	PerlIO_printf(Perl_debug_log, " %8d", ps->state);

PerlIO_printf(Perl_debug_log, "\ntoken:");
    for (ps = min; ps <= parser->ps; ps++)
	PerlIO_printf(Perl_debug_log, " %8.8s", ps->name);

PerlIO_printf(Perl_debug_log, "\nvalue:");
    for (ps = min; ps <= parser->ps; ps++) {
	switch (yy_type_tab[yystos[ps->state]]) {
	case toketype_opval:
	    PerlIO_printf(Perl_debug_log, " %8.8s",
		  ps->val.opval
		    ? PL_op_name[ps->val.opval->op_type]
		    : "(Nullop)"
	    );
	    break;
#ifndef PERL_IN_MADLY_C
	case toketype_i_tkval:
#endif
	case toketype_ival:
	    PerlIO_printf(Perl_debug_log, " %8"IVdf, (IV)ps->val.ival);
	    break;
	default:
	    PerlIO_printf(Perl_debug_log, " %8"UVxf, (UV)ps->val.ival);
	}
    }
    PerlIO_printf(Perl_debug_log, "\n\n");
}

#  define YY_STACK_PRINT(parser)	\
do {					\
    if (yydebug && DEBUG_v_TEST)	\
	yy_stack_print (aTHX_ parser);	\
} while (0)

/*------------------------------------------------.
| Report that the YYRULE is going to be reduced.  |
`------------------------------------------------*/

static void
yy_reduce_print (pTHX_ int yyrule)
{
    int yyi;
    const unsigned int yylineno = yyrline[yyrule];
    YYFPRINTF (Perl_debug_log, "Reducing stack by rule %d (line %u), ",
			  yyrule - 1, yylineno);
    /* Print the symbols being reduced, and their result.  */
    for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++)
	YYFPRINTF (Perl_debug_log, "%s ", yytname [yyrhs[yyi]]);
    YYFPRINTF (Perl_debug_log, "-> %s\n", yytname [yyr1[yyrule]]);
}

#  define YY_REDUCE_PRINT(Rule)		\
do {					\
    if (yydebug)			\
	yy_reduce_print (aTHX_ Rule);		\
} while (0)

#else /* !DEBUGGING */
#  define YYDPRINTF(Args)
#  define YYDSYMPRINTF(Title, Token, Value)
#  define YY_STACK_PRINT(parser)
#  define YY_REDUCE_PRINT(Rule)
#endif /* !DEBUGGING */

/* called during cleanup (via SAVEDESTRUCTOR_X) to free any items on the
 * parse stack, thus avoiding leaks if we die  */

static void
S_clear_yystack(pTHX_  const yy_parser *parser)
{
    yy_stack_frame *ps     = parser->ps;
    int i = 0;

if (!parser->stack)
	return;

YYDPRINTF ((Perl_debug_log, "clearing the parse stack\n"));

for (i=0; i< parser->yylen; i++) {
	SvREFCNT_dec(ps[-i].compcv);
    }
    ps -= parser->yylen;

/* now free whole the stack, including the just-reduced ops */

while (ps > parser->stack) {
	LEAVE_SCOPE(ps->savestack_ix);
	if (yy_type_tab[yystos[ps->state]] == toketype_opval
	    && ps->val.opval)
	{
	    if (ps->compcv != PL_compcv) {
		PL_compcv = ps->compcv;
		PAD_SET_CUR_NOSAVE(CvPADLIST(PL_compcv), 1);
		PL_comppad_name = PadlistNAMES(CvPADLIST(PL_compcv));
	    }
	    YYDPRINTF ((Perl_debug_log, "(freeing op)\n"));
	    op_free(ps->val.opval);
	}
	SvREFCNT_dec(ps->compcv);
	ps--;
    }

Safefree(parser->stack);
}

/*----------.
| yyparse.  |
`----------*/

int
#ifdef PERL_IN_MADLY_C
Perl_madparse (pTHX_ int gramtype)
#else
Perl_yyparse (pTHX_ int gramtype)
#endif
{
    dVAR;
    int yystate;
    int yyn;
    int yyresult;

/* Lookahead token as an internal (translated) token number.  */
    int yytoken = 0;

yy_parser *parser;	    /* the parser object */
    yy_stack_frame  *ps;   /* current parser stack frame */

#define YYPOPSTACK   parser->ps = --ps
#define YYPUSHSTACK  parser->ps = ++ps

/* The variable used to return semantic value and location from the
	  action routines: ie $$.  */
    YYSTYPE yyval;

#ifndef PERL_IN_MADLY_C
#  ifdef PERL_MAD
    if (PL_madskills)
	return madparse(gramtype);
#  endif
#endif

YYDPRINTF ((Perl_debug_log, "Starting parse\n"));

parser = PL_parser;

ENTER;  /* force parser state cleanup/restoration before we return */
    SAVEPPTR(parser->yylval.pval);
    SAVEINT(parser->yychar);
    SAVEINT(parser->yyerrstatus);
    SAVEINT(parser->stack_size);
    SAVEINT(parser->yylen);
    SAVEVPTR(parser->stack);
    SAVEVPTR(parser->ps);

/* initialise state for this parse */
    parser->yychar = gramtype;
    parser->yyerrstatus = 0;
    parser->stack_size = YYINITDEPTH;
    parser->yylen = 0;
    Newx(parser->stack, YYINITDEPTH, yy_stack_frame);
    ps = parser->ps = parser->stack;
    ps->state = 0;
    SAVEDESTRUCTOR_X(S_clear_yystack, parser);

/*------------------------------------------------------------.
| yynewstate -- Push a new state, which is found in yystate.  |
`------------------------------------------------------------*/
  yynewstate:

yystate = ps->state;

YYDPRINTF ((Perl_debug_log, "Entering state %d\n", yystate));

parser->yylen = 0;

{
	size_t size = ps - parser->stack + 1;

/* grow the stack? We always leave 1 spare slot,
	 * in case of a '' -> 'foo' reduction */

if (size >= (size_t)parser->stack_size - 1) {
	    /* this will croak on insufficient memory */
	    parser->stack_size *= 2;
	    Renew(parser->stack, parser->stack_size, yy_stack_frame);
	    ps = parser->ps = parser->stack + size -1;

YYDPRINTF((Perl_debug_log,
			    "parser stack size increased to %lu frames\n",
			    (unsigned long int)parser->stack_size));
	}
    }

/* Do appropriate processing given the current state.  */
/* Read a lookahead token if we need one and don't already have one.  */

/* First try to decide what to do without reference to lookahead token.  */

yyn = yypact[yystate];
    if (yyn == YYPACT_NINF)
	goto yydefault;

/* Not known => get a lookahead token if don't already have one.  */

/* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
    if (parser->yychar == YYEMPTY) {
	YYDPRINTF ((Perl_debug_log, "Reading a token: "));
#ifdef PERL_IN_MADLY_C
	parser->yychar = PL_madskills ? madlex() : yylex();
#else
	parser->yychar = yylex();
#endif

/* perly.tab is shipped based on an ASCII system; if it were to be regenerated
 * on a platform that doesn't use ASCII, this translation back would need to be
 * removed */
#  ifdef EBCDIC
	if (parser->yychar >= 0 && parser->yychar < 255) {
	    parser->yychar = NATIVE_TO_LATIN1(parser->yychar);
	}
#  endif
    }

if (parser->yychar <= YYEOF) {
	parser->yychar = yytoken = YYEOF;
	YYDPRINTF ((Perl_debug_log, "Now at end of input.\n"));
    }
    else {
	yytoken = YYTRANSLATE (parser->yychar);
	YYDSYMPRINTF ("Next token is", yytoken, &parser->yylval);
    }

/* If the proper action on seeing token YYTOKEN is to reduce or to
	  detect an error, take that action.  */
    yyn += yytoken;
    if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
	goto yydefault;
    yyn = yytable[yyn];
    if (yyn <= 0) {
	if (yyn == 0 || yyn == YYTABLE_NINF)
	    goto yyerrlab;
	yyn = -yyn;
	goto yyreduce;
    }

if (yyn == YYFINAL)
	YYACCEPT;

/* Shift the lookahead token.  */
    YYDPRINTF ((Perl_debug_log, "Shifting token %s, ", yytname[yytoken]));

/* Discard the token being shifted unless it is eof.  */
    if (parser->yychar != YYEOF)
	parser->yychar = YYEMPTY;

YYPUSHSTACK;
    ps->state   = yyn;
    ps->val     = parser->yylval;
    ps->compcv  = (CV*)SvREFCNT_inc(PL_compcv);
    ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
    ps->name    = (const char *)(yytname[yytoken]);
#endif

/* Count tokens shifted since error; after three, turn off error
	  status.  */
    if (parser->yyerrstatus)
	parser->yyerrstatus--;

goto yynewstate;

/*-----------------------------------------------------------.
  | yydefault -- do the default action for the current state.  |
  `-----------------------------------------------------------*/
  yydefault:
    yyn = yydefact[yystate];
    if (yyn == 0)
	goto yyerrlab;
    goto yyreduce;

/*-----------------------------.
  | yyreduce -- Do a reduction.  |
  `-----------------------------*/
  yyreduce:
    /* yyn is the number of a rule to reduce with.  */
    parser->yylen = yyr2[yyn];

/* If YYLEN is nonzero, implement the default value of the action:
      "$$ = $1".

Otherwise, the following line sets YYVAL to garbage.
      This behavior is undocumented and Bison
      users should not rely upon it.  Assigning to YYVAL
      unconditionally makes the parser a bit smaller, and it avoids a
      GCC warning that YYVAL may be used uninitialized.  */
    yyval = ps[1-parser->yylen].val;

YY_STACK_PRINT(parser);
    YY_REDUCE_PRINT (yyn);

switch (yyn) {

#ifdef PERL_IN_MADLY_C
#  define IVAL(i) (i)->tk_lval.ival
#  define PVAL(p) (p)->tk_lval.pval
#  define TOKEN_GETMAD(a,b,c) token_getmad((a),(b),(c))
#  define TOKEN_FREE(a) token_free(a)
#  define OP_GETMAD(a,b,c) op_getmad((a),(b),(c))
#  define IF_MAD(a,b) (a)
#  define DO_MAD(a) a
#  define MAD
#else
#  define IVAL(i) (i)
#  define PVAL(p) (p)
#  define TOKEN_GETMAD(a,b,c)
#  define TOKEN_FREE(a)
#  define OP_GETMAD(a,b,c)
#  define IF_MAD(a,b) (b)
#  define DO_MAD(a)
#  undef MAD
#endif

/* contains all the rule actions; auto-generated from perly.y */
#include "perly.act"

}

{
	int i;
	for (i=0; i< parser->yylen; i++) {
	    SvREFCNT_dec(ps[-i].compcv);
	}
    }

parser->ps = ps -= (parser->yylen-1);

/* Now shift the result of the reduction.  Determine what state
	  that goes to, based on the state we popped back to and the rule
	  number reduced by.  */

ps->val     = yyval;
    ps->compcv  = (CV*)SvREFCNT_inc(PL_compcv);
    ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
    ps->name    = (const char *)(yytname [yyr1[yyn]]);
#endif

yyn = yyr1[yyn];

yystate = yypgoto[yyn - YYNTOKENS] + ps[-1].state;
    if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == ps[-1].state)
	yystate = yytable[yystate];
    else
	yystate = yydefgoto[yyn - YYNTOKENS];
    ps->state = yystate;

goto yynewstate;

/*------------------------------------.
  | yyerrlab -- here on detecting error |
  `------------------------------------*/
  yyerrlab:
    /* If not already recovering from an error, report this error.  */
    if (!parser->yyerrstatus) {
	yyerror ("syntax error");
    }

if (parser->yyerrstatus == 3) {
	/* If just tried and failed to reuse lookahead token after an
	      error, discard it.  */

/* Return failure if at end of input.  */
	if (parser->yychar == YYEOF) {
	    /* Pop the error token.  */
	    SvREFCNT_dec(ps->compcv);
	    YYPOPSTACK;
	    /* Pop the rest of the stack.  */
	    while (ps > parser->stack) {
		YYDSYMPRINTF ("Error: popping", yystos[ps->state], &ps->val);
		LEAVE_SCOPE(ps->savestack_ix);
		if (yy_type_tab[yystos[ps->state]] == toketype_opval
			&& ps->val.opval)
		{
		    YYDPRINTF ((Perl_debug_log, "(freeing op)\n"));
		    if (ps->compcv != PL_compcv) {
			PL_compcv = ps->compcv;
			PAD_SET_CUR_NOSAVE(CvPADLIST(PL_compcv), 1);
		    }
		    op_free(ps->val.opval);
		}
		SvREFCNT_dec(ps->compcv);
		YYPOPSTACK;
	    }
	    YYABORT;
	}

YYDSYMPRINTF ("Error: discarding", yytoken, &parser->yylval);
	parser->yychar = YYEMPTY;

}

/* Else will try to reuse lookahead token after shifting the error
	  token.  */
    goto yyerrlab1;

/*----------------------------------------------------.
  | yyerrlab1 -- error raised explicitly by an action.  |
  `----------------------------------------------------*/
  yyerrlab1:
    parser->yyerrstatus = 3;	/* Each real token shifted decrements this.  */

for (;;) {
	yyn = yypact[yystate];
	if (yyn != YYPACT_NINF) {
	    yyn += YYTERROR;
	    if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) {
		yyn = yytable[yyn];
		if (0 < yyn)
		    break;
	    }
	}

/* Pop the current state because it cannot handle the error token.  */
	if (ps == parser->stack)
	    YYABORT;

YYDSYMPRINTF ("Error: popping", yystos[ps->state], &ps->val);
	LEAVE_SCOPE(ps->savestack_ix);
	if (yy_type_tab[yystos[ps->state]] == toketype_opval && ps->val.opval) {
	    YYDPRINTF ((Perl_debug_log, "(freeing op)\n"));
	    if (ps->compcv != PL_compcv) {
		PL_compcv = ps->compcv;
		PAD_SET_CUR_NOSAVE(CvPADLIST(PL_compcv), 1);
	    }
	    op_free(ps->val.opval);
	}
	SvREFCNT_dec(ps->compcv);
	YYPOPSTACK;
	yystate = ps->state;

YY_STACK_PRINT(parser);
    }

if (yyn == YYFINAL)
	YYACCEPT;

YYDPRINTF ((Perl_debug_log, "Shifting error token, "));

YYPUSHSTACK;
    ps->state   = yyn;
    ps->val     = parser->yylval;
    ps->compcv  = (CV*)SvREFCNT_inc(PL_compcv);
    ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
    ps->name    ="<err>";
#endif

goto yynewstate;

/*-------------------------------------.
  | yyacceptlab -- YYACCEPT comes here.  |
  `-------------------------------------*/
  yyacceptlab:
    yyresult = 0;
    for (ps=parser->ps; ps > parser->stack; ps--) {
	SvREFCNT_dec(ps->compcv);
    }
    parser->ps = parser->stack; /* disable cleanup */
    goto yyreturn;

/*-----------------------------------.
  | yyabortlab -- YYABORT comes here.  |
  `-----------------------------------*/
  yyabortlab:
    yyresult = 1;
    goto yyreturn;

yyreturn:
    LEAVE;	/* force parser stack cleanup before we return */
    return yyresult;
}

/*
 * Local variables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: nil
 * End:
 *
 * ex: set ts=8 sts=4 sw=4 et:
 */