Remove x2p
authorLeon Timmermans <fawaka@gmail.com>
Wed, 21 May 2014 11:56:54 +0000 (13:56 +0200)
committerLeon Timmermans <fawaka@gmail.com>
Thu, 29 May 2014 13:01:50 +0000 (15:01 +0200)
This removes find2perl, s2p and a2p from core. They have all been
released to CPAN as separate distributions.

28 files changed:
MANIFEST
Makefile.SH
Porting/exec-bit.txt
pod/perlutil.pod
t/x2p/find2perl.t [deleted file]
t/x2p/s2p.t [deleted file]
utils.lst
vms/descrip_mms.template
win32/Makefile
win32/makefile.mk
x2p/.gitignore [deleted file]
x2p/EXTERN.h [deleted file]
x2p/INTERN.h [deleted file]
x2p/Makefile.SH [deleted file]
x2p/a2p.c [deleted file]
x2p/a2p.h [deleted file]
x2p/a2p.pod [deleted file]
x2p/a2p.y [deleted file]
x2p/a2py.c [deleted file]
x2p/find2perl.PL [deleted file]
x2p/hash.c [deleted file]
x2p/hash.h [deleted file]
x2p/s2p.PL [deleted file]
x2p/str.c [deleted file]
x2p/str.h [deleted file]
x2p/util.c [deleted file]
x2p/util.h [deleted file]
x2p/walk.c [deleted file]

index 9bd0745..f2eab2c 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -5374,8 +5374,6 @@ t/win32/runenv.t          Test if Win* perl honors its env variables
 t/win32/signal.t               Test Win32 signal emulation
 t/win32/system.t               See if system works in Win*
 t/win32/system_tests           Test runner for system.t
-t/x2p/find2perl.t              Test find2perl
-t/x2p/s2p.t                    See if s2p/psed work
 uconfig64.sh                   Configuration script for microperl for LP64
 uconfig.h                      Configuration header for microperl
 uconfig.sh                     Configuration script for microperl
@@ -5491,21 +5489,4 @@ win32/wince.c                    WinCE port
 win32/wince.h                  WinCE port
 win32/wincesck.c               WinCE port
 write_buildcustomize.pl                Generate lib/buildcustomize.pl
-x2p/a2p.c                      Output of a2p.y run through byacc
-x2p/a2p.h                      Global declarations
-x2p/a2p.pod                    Pod for awk to perl translator
-x2p/a2p.y                      A yacc grammar for awk
-x2p/a2py.c                     Awk compiler, sort of
-x2p/EXTERN.h                   Same as above
-x2p/find2perl.PL               A find to perl translator
-x2p/hash.c                     Hashes again
-x2p/hash.h                     Public declarations for the above
-x2p/INTERN.h                   Same as above
-x2p/Makefile.SH                        Precursor to Makefile
-x2p/s2p.PL                     Sed to perl translator
-x2p/str.c                      String handling package
-x2p/str.h                      Public declarations for the above
-x2p/util.c                     Utility routines
-x2p/util.h                     Public declarations for the above
-x2p/walk.c                     Parse tree walker
 XSUB.h                         Include file for extension subroutines
index 727a763..7287853 100755 (executable)
@@ -435,7 +435,7 @@ SH_to_target() {
     echo $@ | sed -e s/\\\.SH//g -e s/_/./g
 }
 
-SH='Makefile.SH cflags.SH config_h.SH makedepend.SH myconfig.SH runtests.SH pod/Makefile.SH x2p/Makefile.SH'
+SH='Makefile.SH cflags.SH config_h.SH makedepend.SH myconfig.SH runtests.SH pod/Makefile.SH'
 shextract=`SH_to_target $SH`
 
 ## In the following dollars and backticks do not need the extra backslash.
@@ -589,30 +589,15 @@ perl$(OBJ_EXT): git_version.h
 case "$usedl$static_cwd" in
 defineundef)
     util_deps='$(MINIPERL_EXE) $(CONFIGPM) lib/auto/Cwd/Cwd$(DLSUFFIX) FORCE'
-     x2p_deps="\$(MINIPERL_EXE) \$(CONFIGPM) \$(dynamic_ext) x2p/$firstmakefile FORCE"
     ;;
 definedefine)
     util_deps='$(PERL_EXE) $(CONFIGPM) FORCE'
-     x2p_deps="\$(PERL_EXE) \$(CONFIGPM) \$(dynamic_ext) x2p/$firstmakefile FORCE"
     ;;
 *)  util_deps='$(PERL_EXE) $(CONFIGPM) FORCE'
-     x2p_deps="\$(PERL_EXE) \$(CONFIGPM) x2p/$firstmakefile FORCE"
     ;;
 esac
 
 $spitshell >>$Makefile <<!GROK!THIS!
-x2p/$firstmakefile:    makedepend
-       cd x2p; \$(MAKE) depend
-
-translators:   $x2p_deps
-       @echo " "; echo "       Making x2p stuff"; cd x2p; \$(LDLIBPTH) \$(MAKE) all
-
-x2p/s2p: $x2p_deps
-       cd x2p; \$(LDLIBPTH) \$(MAKE) s2p
-
-x2p/find2perl: $x2p_deps
-       cd x2p; \$(LDLIBPTH) \$(MAKE) find2perl
-
 utils/Makefile: \$(MINIPERL_EXE) \$(CONFIGPM) utils/Makefile.PL
        \$(MINIPERL) -Ilib utils/Makefile.PL
 
@@ -1269,7 +1254,6 @@ _mopup:
 _tidy:
        -cd pod; $(LDLIBPTH) $(MAKE) clean
        -cd utils; $(LDLIBPTH) $(MAKE) clean
-       -cd x2p; $(LDLIBPTH) $(MAKE) clean
        -rm -f lib/Config_git.pl git_version.h
        -@for x in $(DYNALOADER) $(dynamic_ext) $(static_ext) $(nonxs_ext) ; do \
        $(MINIPERL) make_ext.pl --target=clean $$x MAKE=$(MAKE) ; \
@@ -1279,7 +1263,6 @@ _cleaner1:
        -cd os2; rm -f Makefile
        -cd pod; $(LDLIBPTH) $(MAKE) $(CLEAN)
        -cd utils; $(LDLIBPTH) $(MAKE) $(CLEAN)
-       -cd x2p; $(LDLIBPTH) $(MAKE) $(CLEAN)
        -@if test -f $(MINIPERL_EXE) ; then \
        for x in $(DYNALOADER) $(dynamic_ext) $(static_ext) $(nonxs_ext) ; do \
        $(MINIPERL) make_ext.pl --target=$(CLEAN) $$x MAKE=$(MAKE) ; \
@@ -1409,15 +1392,14 @@ test_prep_pre: preplibrary utilities $(nonxs_ext)
 case "$targethost" in
 '') $spitshell >>$Makefile <<'!NO!SUBS!'
 test_prep test-prep: test_prep_pre $(MINIPERL_EXE) $(unidatafiles) $(PERL_EXE) \
-       $(dynamic_ext) $(TEST_PERL_DLL) runtests x2p/s2p x2p/find2perl \
-       $(generated_pods)
+       $(dynamic_ext) $(TEST_PERL_DLL) runtests $(generated_pods)
        cd t && (rm -f $(PERL_EXE); $(LNS) ../$(PERL_EXE) $(PERL_EXE))
 
 !NO!SUBS!
 ;;
 *) $spitshell >>$Makefile <<!GROK!THIS!
 test_prep test-prep: test_prep_pre \$(MINIPERL_EXE) \$(unidatafiles) \$(PERL_EXE) \
-       \$(dynamic_ext) \$(TEST_PERL_DLL) runtests x2p/s2p x2p/find2perl \
+       \$(dynamic_ext) \$(TEST_PERL_DLL) runtests \
        \$(generated_pods)
        $to libperl.*
        $to t/*
@@ -1454,8 +1436,6 @@ test_prep test-prep: test_prep_pre \$(MINIPERL_EXE) \$(unidatafiles) \$(PERL_EXE
 # --- For Module::Build
        $to cpan/Module-Build/lib/*
        $to *.h
-# --- For t/x2p/s2p.t
-       $to x2p
 # --- For t/TEST
        $to config.sh
 # --- For lib/diagnostics.t with -Duseshrplib
@@ -1608,44 +1588,6 @@ define)
     echo "This is an EBCDIC system, checking if any parser files need regenerating." >&2
 case "$osname" in
 os390|posix-bc)
-    if cd x2p
-    then
-        rm -f y.tab.c y.tab.h
-        case "$osname" in
-        posix-bc)
-           # we are using two different yaccs in BS2000 Posix!
-           byacc a2p.y >/dev/null 2>&1
-           ;;
-        *) # e.g. os390
-           yacc  a2p.y >/dev/null 2>&1
-           ;;
-        esac
-        if cmp -s y.tab.c a2p.c
-        then
-            rm -f y.tab.c
-        else
-            echo "a2p.y -> a2p.c" >&2
-            mv -f y.tab.c a2p.c
-            chmod u+w a2p.c
-            sed -e 's/fprintf *( *stderr *,/PerlIO_printf(Perl_debug_log,/g' \
-               -e 's|^static void __YY_YACC_MAIN.*BS2000.*|/*static main deleted*/|' \
-                -e 's/y\.tab/a2p/g' a2p.c >a2p.tmp && mv a2p.tmp a2p.c
-            xxx="$xxx a2p.c"
-        fi
-        # In case somebody yacc -d:ed the a2p.y.
-        if test -f y.tab.h
-        then
-            if cmp -s y.tab.h a2p.h
-            then
-                rm -f y.tab.h
-            else
-                echo "a2p.h -> a2p.h" >&2
-                mv -f y.tab.h a2p.h
-                xxx="$xxx a2p.h"
-            fi
-        fi
-        cd ..
-    fi
     ;;
 *)
     echo "'$osname' is an EBCDIC system I don't know that well." >&4
index 1dd17ba..a89d496 100644 (file)
@@ -27,7 +27,6 @@ regen/regcharclass.pl
 regen/uconfig_h.pl
 runtests.SH
 t/TEST
-x2p/Makefile.SH
 Porting/Maintainers.pl
 Porting/add-package.pl
 Porting/bisect.pl
index ed73229..4047b42 100644 (file)
@@ -76,56 +76,9 @@ typeset PostScript or text file of the whole lot.
 
 =head2 Converters
 
-To help you convert legacy programs to Perl, we've included three
-conversion filters:
-
-=over 3
-
-=item L<a2p|a2p>
-
-F<a2p> converts F<awk> scripts to Perl programs; for example, C<a2p -F:>
-on the simple F<awk> script C<{print $2}> will produce a Perl program
-based around this code:
-
-    while (<>) {
-        ($Fld1,$Fld2) = split(/[:\n]/, $_, -1);
-        print $Fld2;
-    }
-
-=item L<s2p|s2p> and L<psed>
-
-Similarly, F<s2p> converts F<sed> scripts to Perl programs. F<s2p> run
-on C<s/foo/bar> will produce a Perl program based around this:
-
-    while (<>) {
-        chomp;
-        s/foo/bar/g;
-        print if $printit;
-    }
-
-When invoked as F<psed>, it behaves as a F<sed> implementation, written in
-Perl.
-
-=item L<find2perl|find2perl>
-
-Finally, F<find2perl> translates C<find> commands to Perl equivalents which 
-use the L<File::Find|File::Find> module. As an example, 
-C<find2perl . -user root -perm 4000 -print> produces the following callback
-subroutine for C<File::Find>:
-
-    sub wanted {
-        my ($dev,$ino,$mode,$nlink,$uid,$gid);
-        (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-        $uid == $uid{'root'}) &&
-        (($mode & 0777) == 04000);
-        print("$name\n");
-    }
-
-=back
-
-As well as these filters for converting other languages, the
-L<pl2pm|pl2pm> utility will help you convert old-style Perl 4 libraries to 
-new-style Perl5 modules.
+To help you convert legacy programs to more modern Perl, the
+L<pl2pm|pl2pm> utility will help you convert old-style Perl 4 libraries
+to new-style Perl5 modules.
 
 =head2 Administration
 
@@ -284,10 +237,9 @@ validate your packlists and even create a tarball from an installed module.
 L<perldoc|perldoc>, L<pod2man|pod2man>, L<perlpod>,
 L<pod2html|pod2html>, L<pod2usage|pod2usage>, L<podselect|podselect>,
 L<podchecker|podchecker>, L<splain|splain>, L<perldiag>,
-C<roffitall|roffitall>, L<a2p|a2p>, L<s2p|s2p>, L<find2perl|find2perl>,
-L<File::Find|File::Find>, L<pl2pm|pl2pm>, L<perlbug|perlbug>,
-L<h2ph|h2ph>, L<c2ph|c2ph>, L<h2xs|h2xs>, L<enc2xs>, L<xsubpp>,
-L<cpan>, L<instmodsh>, L<piconv>, L<prove>,
-L<corelist>, L<ptar>, L<ptardiff>, L<shasum>, L<zipdetails>
+C<roffitall|roffitall>, L<File::Find|File::Find>, L<pl2pm|pl2pm>,
+L<perlbug|perlbug>, L<h2ph|h2ph>, L<c2ph|c2ph>, L<h2xs|h2xs>, L<enc2xs>,
+L<xsubpp>, L<cpan>, L<instmodsh>, L<piconv>, L<prove>, L<corelist>, L<ptar>,
+L<ptardiff>, L<shasum>, L<zipdetails>
 
 =cut
diff --git a/t/x2p/find2perl.t b/t/x2p/find2perl.t
deleted file mode 100644 (file)
index f0dfa03..0000000
+++ /dev/null
@@ -1,229 +0,0 @@
-#!./perl
-
-# Based on ideas from x2p/s2p.t
-#
-# This doesn't currently test -exec etc, just the default -print on
-# the platforms below.
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = ( '../lib' );
-}
-
-use strict;
-use warnings;
-use File::Path 'remove_tree';
-use File::Spec;
-require "./test.pl";
-
-# add more platforms if you feel like it, but make sure the
-# tests below are portable to the find(1) for any new platform,
-# or that they skip on that platform
-$^O =~ /^(?:linux|\w+bsd|darwin)$/
-    or skip_all("Need something vaguely POSIX");
-
-my $VERBOSE = grep $_ eq '-v', @ARGV;
-
-my $tmpdir = tempfile();
-my $script = tempfile();
-mkdir $tmpdir
-    or die "Cannot make temp dir $tmpdir: $!";
-
-# test file names shouldn't contain any shell special characters,
-# and for portability, probably shouldn't contain any high ascii or
-# Unicode characters
-#
-# handling Unicode here would be nice, but I think handling of Unicode
-# in perl's file system interfaces (open, unlink, readdir) etc needs to
-# be more regular before we can expect interoperability between find2perl
-# and a system find(1)
-#
-# keys for the test file list:
-#   name - required
-#   type - type of file to create:
-#      "f" regular file, "d" directory, "l" link to target,
-#      "s" symlink to target
-#   atime, mtime - file times (default now)
-#   mode - file mode (default per umask)
-#   content - file content for type f files
-#   target - target for link for type l and s
-#
-# I could have simply written code to create all the files, but I think
-# this makes the file tree a little more obvious
-use constant HOUR => 3600; # an hour in seconds
-my @test_files =
-    (
-        { name => "abc" },
-        { name => "acc", mtime => time() - HOUR * 48 },
-        { name => "ac", content => "x" x 10 },
-        { name => "somedir", type => "d" },
-        { name => "link", type => "l", target => "abc" },
-        { name => "symlink", type => "s", target => "brokenlink" },
-    );
-# make some files to search
-for my $spec (@test_files) {
-    my $file = File::Spec->catfile($tmpdir, split '/', $spec->{name});
-    my $type = $spec->{type} || "f";
-    if ($type eq "f") {
-        open my $fh, ">", $file
-            or die "Cannot create test file $file: $!";
-        if ($spec->{content}) {
-            binmode $fh;
-            print $fh $spec->{content};
-        }
-        close $fh
-            or die "Cannot close $file: $!";
-    }
-    elsif ($type eq "d") {
-        mkdir $file
-            or die "Cannot create test directory $file: $!";
-    }
-    elsif ($type eq "l") {
-        my $target = File::Spec->catfile($tmpdir, split '/', $spec->{target});
-        link $target, $file
-            or die "Cannot create test link $file: $!";
-    }
-    elsif ($type eq "s") {
-        my $target = File::Spec->catfile($tmpdir, split '/', $spec->{target});
-        symlink $target, $file
-            or die "Cannot create test symlink $file: $!";
-    }
-    if ($spec->{mode}) {
-        chmod $spec->{mode}, $file
-            or die "Cannot set mode of test file $file: $!";
-    }
-    if ($spec->{mtime} || $spec->{atime}) {
-        # default the times to now, since we just created the files
-        my $mtime = $spec->{mtime} || time();
-        my $atime = $spec->{atime} || time();
-        utime $atime, $mtime, $file
-            or die "Cannot set times of test file $file: $!";
-    }
-}
-
-# do we have a vaguely sane find(1)?
-# BusyBox find is non-POSIX - it doesn't have -links
-my @files = sort `find '$tmpdir' '(' -name 'abc' -o -name 'acc' ')' -a -links +0`;
-@files == 2 && $files[0] =~ /\babc\n\z/ && $files[1] =~ /\bacc\n\z/
-    or skip_all("doesn't appear to be a sane find(1)");
-
-# required keys:
-#   args - find search spec as an array ref
-# optional:
-#   name - short description of the test (defaults to args)
-#   expect - an array ref of files expected to be found (skips the find(1) call)
-#   TODO - why this test is TODO (if it is), if a code reference that is
-#          called to check if the test is TODO (and why)
-#   SKIP - return a message for why to skip
-my @testcases =
-    (
-        {
-            name => "all files",
-            args => [],
-        },
-        {
-            name => "mapping of *",
-            args => [ "-name", "a*c" ],
-        },
-        {
-            args => [ "-type", "d" ],
-            expect => [ "", "somedir" ],
-        },
-        {
-            args => [ "-type", "f" ],
-        },
-        {
-            args => [ "-mtime", "+1" ],
-            expect => [ "acc" ],
-        },
-        {
-            args => [ "-mtime", "-1" ],
-        },
-        {
-            args => [ "-size", "10c" ],
-            expect => [ "ac" ],
-        },
-        {
-            args => [ "-links", "2" ],
-        },
-        {
-            name => "[perl #113054] mapping of ?",
-            args => [ "-name", "a?c" ],
-        },
-    );
-
-plan(tests => 1 + 4 * @testcases);
-
-my $find2perl = File::Spec->catfile(File::Spec->updir(), "x2p", "find2perl");
-ok (-x $find2perl, "find2perl exists");
-our $TODO;
-
-for my $test (@testcases) {
- SKIP:
-    {
-        local $TODO = $test->{TODO};
-        $TODO = $TODO->() if ref $TODO;
-        my $args = $test->{args}
-            or die "Missing test args";
-        my $name = $test->{name} || "@$args";
-
-        my $skip = $test->{SKIP} && $test->{SKIP}->();
-        $skip
-            and skip($skip, 4);
-
-        my $code = runperl(args => [ $find2perl, $tmpdir, @$args ]);
-
-        ok($code, "$name: run findperl")
-            or skip("", 3);
-
-        open my $script_fh, ">", $script
-            or die "Cannot create $script: $!";
-        print $script_fh $code;
-        close $script_fh
-            or die "Cannot close $script: $!";
-
-        my $files = runperl(progfile => $script);
-
-        ok(length $files, "$name: run output script")
-            or skip("", 2);
-
-        my $find_files;
-        my $source;
-        if ($test->{expect}) {
-            $find_files = join "\n",
-                map { $_ eq "" ? $tmpdir : "$tmpdir/$_" }
-                @{$test->{expect}};
-            $source = "expected";
-            # to balance the ok() in the other branch
-            pass("$name: got files ok");
-        }
-        else {
-            my $findcmd = "find $tmpdir ". join " ", map "'$_'", @$args;
-
-            # make sure PERL_UNICODE doesn't reinterpret the output of find
-            use open IN => ':raw';
-            $find_files = `$findcmd`;
-            ok(length $find_files, "$name: run find")
-                or skip("", 1);
-            $source = "find";
-        }
-
-        # is the order from find (or find2perl) guaranteed?
-        # assume it isn't
-        $files = join("\n", sort split /\n/, $files);
-        $find_files = join("\n", sort split /\n/, $find_files);
-
-        if ($VERBOSE) {
-            note("script:\n$code");
-            note("args:\n@$args");
-            note("find2perl:\n$files");
-            note("find:\n$find_files");
-        }
-
-        is($files, $find_files, "$name: find2perl matches $source");
-    }
-}
-
-END {
-    remove_tree($tmpdir);
-}
diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t
deleted file mode 100644 (file)
index 0a0716d..0000000
+++ /dev/null
@@ -1,892 +0,0 @@
-#!./perl
-
-=head1 NAME
-
-s2p.t - test suite for s2p/psed
-
-=head1 NOTES
-
-The general idea is to
-
-  (a) run psed with a sed script and input data to obtain some output
-  (b) run s2p with a sed script creating a Perl program and then run the
-      Perl program with the input data, again producing output
-
-Both final outputs should be identical to the expected output.
-
-A $testcase{<name>} contains entries (after the comment ### <name> ###):
-
-  - script: the sed script
-  - input:  the key of the input data, stored in $input{<input>}
-  - expect: the expected output
-  - datfil: an additional file [ <path>, <data> ] (if required)
-
-Temporary files are created in the working directory (embedding $$
-in the name), and removed after the test.
-
-Except for bin2dec (which indeed converts binary to decimal) none of the
-sed scripts is doing something useful.
-
-Author: Wolfgang Laun.
-
-=cut
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = ( '../lib' );
-}
-
-use File::Copy;
-use File::Spec;
-require './test.pl';
-
-# BRE extensions
-$ENV{PSEDEXTBRE} = '<>wW';
-
-our %input = (
-   bins => <<'[TheEnd]',
-0
-111
-1000
-10001
-[TheEnd]
-
-   text => <<'[TheEnd]',
-line 1
-line 2
-line 3
-line 4
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-
-   adr1 => <<'[TheEnd]',
-#no autoprint
-# This script should be run on itself
-/^#__DATA__$/,${
-   /^#A$/p
-   s/^# *[0-9]* *//
-   /^#\*$/p
-   /^#\.$/p
-   /^#\(..\)\(..\)\2\1*$/p
-   /^#[abc]\{1,\}[def]\{1,\}$/p
-}
-#__DATA__
-#A
-#*
-#.
-#abxyxy
-#abxyxyab
-#abxyxyabab
-#ad
-#abcdef
-[TheEnd]
-);
-
-
-our %testcase = (
-
-### bin2dec ###
-'bin2dec' => {
-  script => <<'[TheEnd]',
-# binary -> decimal
-s/^[   ]*\([01]\{1,\}\)[       ]*/\1/
-t go
-i\
-is not a binary number
-d
-
-# expand binary to Xs
-: go
-s/^0*//
-s/^1/X/
-: expand
-s/^\(X\{1,\}\)0/\1\1/
-s/^\(X\{1,\}\)1/\1\1X/
-t expand
-
-# count Xs in decimal
-: count
-s/^X/1/
-s/0X/1/
-s/1X/2/
-s/2X/3/
-s/3X/4/
-s/4X/5/
-s/5X/6/
-s/6X/7/
-s/7X/8/
-s/8X/9/
-s/9X/X0/
-t count
-s/^$/0/
-[TheEnd]
-  input  => 'bins',
-  expect => <<'[TheEnd]',
-0
-7
-8
-17
-[TheEnd]
-},
-
-
-### = ###
-'=' => {
-  script => <<'[TheEnd]',
-1=
-$=
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-1
-line 1
-line 2
-line 3
-line 4
-line 5
-line 6
-line 7
-8
-line 8
-[TheEnd]
-},
-
-### D ###
-'D' => {
-  script => <<'[TheEnd]',
-#no autoprint
-/1/{
-N
-N
-N
-D
-}
-p
-/2/D
-=
-p
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 2
-line 3
-line 4
-line 3
-line 4
-4
-line 3
-line 4
-line 5
-5
-line 5
-line 6
-6
-line 6
-line 7
-7
-line 7
-line 8
-8
-line 8
-[TheEnd]
-},
-
-### H ###
-'H' => {
-  script => <<'[TheEnd]',
-#no autoprint
-1,$H
-$g
-$=
-$p
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-8
-
-line 1
-line 2
-line 3
-line 4
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### N ###
-'N' => {
-  script => <<'[TheEnd]',
-3a\
-added line
-4a\
-added line
-5a\
-added line
-3,5N
-=
-d
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-1
-2
-added line
-4
-added line
-6
-7
-8
-[TheEnd]
-},
-
-### P ###
-'P' => {
-  script => <<'[TheEnd]',
-1N
-2N
-3N
-4=
-4P
-4,$d
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-4
-line 1
-[TheEnd]
-},
-
-### a ###
-'a' => {
-  script => <<'[TheEnd]',
-1a\
-added line 1.1\
-added line 1.2
-
-3a\
-added line 3.1
-3a\
-added line 3.2
-
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-added line 1.1
-added line 1.2
-line 2
-line 3
-added line 3.1
-added line 3.2
-line 4
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### b ###
-'b' => {
-  script => <<'[TheEnd]',
-#no autoprint
-2 b eos
-4 b eos
-p
-: eos
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 3
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### block ###
-'block' => {
-  script => "#no autoprint\n1,3{\n=\np\n}",
-  input  => 'text',
-  expect => <<'[TheEnd]',
-1
-line 1
-2
-line 2
-3
-line 3
-[TheEnd]
-},
-
-### c ###
-'c' => {
-  script => <<'[TheEnd]',
-2=
-
-2,4c\
-change 2,4 line 1\
-change 2,4 line 2
-
-2=
-
-3,5c\
-change 3,5 line 1\
-change 3,5 line 2
-
-3=
-
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-2
-change 2,4 line 1
-change 2,4 line 2
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### c1 ###
-'c1' => {
-  script => <<'[TheEnd]',
-1c\
-replaces line 1
-
-2,3c\
-replaces lines 2-3
-
-/5/,/6/c\
-replaces lines 3-4
-
-8,10c\
-replaces lines 6-10
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-replaces line 1
-replaces lines 2-3
-line 4
-replaces lines 3-4
-line 7
-[TheEnd]
-},
-
-### c2 ###
-'c2' => {
-  script => <<'[TheEnd]',
-3!c\
-replace all except line 3
-
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-replace all except line 3
-replace all except line 3
-line 3
-replace all except line 3
-replace all except line 3
-replace all except line 3
-replace all except line 3
-replace all except line 3
-[TheEnd]
-},
-
-### c3 ###
-'c3' => {
-  script => <<'[TheEnd]',
-1,4!c\
-replace all except 1-4
-
-/5/,/8/!c\
-replace all except 5-8
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-replace all except 5-8
-replace all except 5-8
-replace all except 5-8
-replace all except 5-8
-replace all except 1-4
-replace all except 1-4
-replace all except 1-4
-replace all except 1-4
-[TheEnd]
-},
-
-### d ###
-'d' => {
-  script => <<'[TheEnd]',
-# d delete pattern space, start next cycle
-2,4 d
-5 d
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### gh ###
-'gh' => {
-  script => <<'[TheEnd]',
-1h
-2g
-3h
-4g
-5q
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 1
-line 3
-line 3
-line 5
-[TheEnd]
-},
-
-### i ###
-'i' => {
-  script => <<'[TheEnd]',
-1i\
-inserted line 1.1\
-inserted line 1.2
-
-3i\
-inserted line 3.1
-3i\
-inserted line 3.2
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-inserted line 1.1
-inserted line 1.2
-line 1
-line 2
-inserted line 3.1
-inserted line 3.2
-line 3
-line 4
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### n ###
-'n' => {
-  script => <<'[TheEnd]',
-3a\
-added line
-4a\
-added line
-5a\
-added line
-3,5n
-=
-d
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-1
-2
-line 3
-added line
-4
-line 5
-added line
-6
-7
-8
-[TheEnd]
-},
-
-### o ###
-'o' => {
-  script => <<'[TheEnd]',
-/abc/,/def/ s//XXX/
-// i\
-cheers
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 2
-line 3
-line 4
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### q ###
-'q' => {
-  script => <<'[TheEnd]',
-2a\
-append to line 2
-3a\
-append to line 3 - should not appear in output
-3q
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 2
-append to line 2
-line 3
-[TheEnd]
-},
-
-### r ###
-'r' => {
-  datfil => [ 'r.txt', "r.txt line 1\nr.txt line 2\nr.txt line 3\n" ],
-  script => <<'[TheEnd]',
-2r%r.txt%
-4r %r.txt%
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 2
-r.txt line 1
-r.txt line 2
-r.txt line 3
-line 3
-line 4
-r.txt line 1
-r.txt line 2
-r.txt line 3
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### s ###
-'s' => {
-  script => <<'[TheEnd]',
-# enclose any '(a)'.. '(c)' in '-'
-s/([a-z])/-\1-/g
-
-s/\([abc]\)/-\1-/g
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 2
-line 3
-line 4
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### s1 ###
-'s1' => {
-  script => <<'[TheEnd]',
-s/\w/@1/
-s/\y/@2/
-
-s/\n/@3/
-
-# this is literal { }
-s/a{3}/@4/
-
-# proper repetition
-s/a\{3\}/a rep 3/
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-@1ine 1
-@1ine 2
-@1ine 3
-@1ine 4
-@1ine 5
-@1ine 6
-@1ine 7
-@1ine 8
-[TheEnd]
-},
-
-### s2 ### RT #115156
-'s2' => {
-  todo   => 'RT #115156',
-  script => 's/1*$/x/g',
-  input  => 'bins',
-  expect => <<'[TheEnd]',
-0x
-x
-1000x
-1000x
-[TheEnd]
-},
-
-### t ###
-'t' => {
-  script => join( "\n",
-   '#no autoprint', 's/./X/p', 's/foo/bar/p', 't bye', '=', 'p', ':bye' ),
-  input  => 'text',
-  expect => <<'[TheEnd]',
-Xine 1
-Xine 2
-Xine 3
-Xine 4
-Xine 5
-Xine 6
-Xine 7
-Xine 8
-[TheEnd]
-},
-
-### w ###
-'w' => {
-  datfil => [ 'w.txt', '' ],
-  script => <<'[TheEnd]',
-w %w.txt%
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 2
-line 3
-line 4
-line 5
-line 6
-line 7
-line 8
-[TheEnd]
-},
-
-### x ###
-'x' => {
-  script => <<'[TheEnd]',
-1h
-1d
-2x
-2,$G
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-line 1
-line 2
-line 3
-line 2
-line 4
-line 2
-line 5
-line 2
-line 6
-line 2
-line 7
-line 2
-line 8
-line 2
-[TheEnd]
-},
-
-### y ###
-'y' => {
-  script => <<'[TheEnd]',
-y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/
-y/|/\
-/ 
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-LINE 1
-LINE 2
-LINE 3
-LINE 4
-LINE 5
-LINE 6
-LINE 7
-LINE 8
-[TheEnd]
-},
-
-### cnt ###
-'cnt' => {
-  script => <<'[TheEnd]',
-#no autoprint
-
-# delete line, append NL to hold space
-s/.*//
-H
-$!b
-
-# last line only: get hold
-g
-s/./X/g
-t count
-: count
-s/^X/1/
-s/0X/1/
-s/1X/2/
-s/2X/3/
-s/3X/4/
-s/4X/5/
-s/5X/6/
-s/6X/7/
-s/7X/8/
-s/8X/9/
-s/9X/X0/
-t count
-p
-[TheEnd]
-  input  => 'text',
-  expect => <<'[TheEnd]',
-8
-[TheEnd]
-},
-
-### adr1 ###
-'adr1' => {
-  script => <<'[TheEnd]',
-#no autoprint
-# This script should be run on itself
-/^#__DATA__$/,${
-   /^#A$/p
-   s/^# *[0-9]* *//
-   /^#\*$/p
-   /^#\.$/p
-   /^#\(..\)\(..\)\2\1*$/p
-   /^#[abc]\{1,\}[def]\{1,\}$/p
-}
-#__DATA__
-#A
-#*
-#.
-#abxyxy
-#abxyxyab
-#abxyxyabab
-#ad
-#abcdef
-[TheEnd]
-  input  => 'adr1',
-  expect => <<'[TheEnd]',
-#A
-[TheEnd]
-},
-
-);
-
-my @aux = ();
-my $ntc = 2 * keys %testcase;
-plan( $ntc );
-
-# temporary file names
-my $script = "s2pt$$.sed";
-my $stdin  = "s2pt$$.in";
-my $plsed  = "s2pt$$.pl";
-
-# various command lines for 
-my $s2p  = File::Spec->catfile( File::Spec->updir(), 'x2p', 's2p' );
-my $psed = File::Spec->catfile( File::Spec->curdir(), 'psed' );
-if ($^O eq 'VMS') {
-  # default in the .com extension if it's not already there
-  $s2p = VMS::Filespec::vmsify($s2p);
-  $psed = VMS::Filespec::vmsify($psed);
-  # Converting file specs from Unix format to VMS with the extended
-  # character set active can result in a trailing '.' added for null
-  # extensions.  This must be removed if the intent is to default the
-  # extension.
-  $s2p =~ s/\.$//;
-  $psed =~ s/\.$//;
-  $s2p = VMS::Filespec::rmsexpand($s2p, '.com');
-  $psed = VMS::Filespec::rmsexpand($psed, '.com');
-}
-my $sedcmd = [ $psed, '-f', $script, $stdin ];
-my $s2pcmd = [ $s2p,  '-f', $script ];
-my $plcmd  = [ $plsed, $stdin ];
-
-# psed: we create a local copy as linking may not work on some systems.
-copy( $s2p, $psed );
-push( @aux, $psed );
-
-# process all testcases
-#
-my $indat = '';
-for my $tc ( sort keys %testcase ){
-    my( $psedres, $s2pres );
-
-    local $TODO = $testcase{$tc}{todo};
-
-    # 1st test: run psed
-    # prepare the script 
-    open( SED, ">$script" ) || goto FAIL_BOTH;
-    my $script = $testcase{$tc}{script};
-
-    # additional files for r, w: patch script, inserting temporary names
-    if( exists( $testcase{$tc}{datfil} ) ){
-        my( $datnam, $datdat ) = @{$testcase{$tc}{datfil}};
-        my $datfil = "s2pt$$" . $datnam;
-        push( @aux, $datfil );
-        open( DAT, ">$datfil" ) || goto FAIL_BOTH;
-        print DAT $datdat;
-        close( DAT );
-        $script =~ s/\%$datnam\%/$datfil/eg;
-    }
-    print SED $script;
-    close( SED ) || goto FAIL_BOTH;
-
-    # prepare input
-    #
-    if( $indat ne $testcase{$tc}{input} ){
-        $indat = $testcase{$tc}{input};
-        open( IN, ">$stdin" ) || goto FAIL_BOTH;
-        print IN $input{$indat};
-        close( IN ) || goto FAIL_BOTH;
-    }
-
-    # on VMS, runperl eats blank lines to work around 
-    # spurious newlines in pipes
-    $testcase{$tc}{expect} =~ s/\n\n/\n/ if $^O eq 'VMS';
-
-    # run and compare
-    #
-    $psedres = runperl( args => $sedcmd );
-    is( $psedres, $testcase{$tc}{expect}, "psed $tc" );
-
-    # 2nd test: run s2p
-    # translate the sed script to a Perl program
-
-    my $perlprog = runperl( args => $s2pcmd );
-    open( PP, ">$plsed" ) || goto FAIL_S2P;
-    print PP $perlprog;
-    close( PP ) || goto FAIL_S2P;
-
-    # execute generated Perl program, compare
-    $s2pres = runperl( args => $plcmd );
-    is( $s2pres, $testcase{$tc}{expect}, "s2p $tc" );
-    next;
-
-FAIL_BOTH:
-    fail( "psed $tc" );
-FAIL_S2P:
-    fail( "s2p $tc" );
-}
-
-END {
-    for my $f ( $script, $stdin, $plsed, @aux ){
-        1 while unlink( $f ); # hats off to VMS...
-    }
-}
index 0922407..c108c4a 100644 (file)
--- a/utils.lst
+++ b/utils.lst
@@ -26,6 +26,3 @@ utils/shasum
 utils/splain
 utils/xsubpp
 utils/zipdetails
-x2p/a2p
-x2p/find2perl
-x2p/s2p         # link = x2p/psed
index ff5f82b..3398e91 100644 (file)
@@ -166,11 +166,9 @@ MTHREADLINKFLAGS =
 # C preprocessor manifest "DEBUGGING" ==> perl -D, not the VMS debugger
 .IFDEF LARGEFILE
 CFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)/Define=$(LARGEFILE)
-X2PCFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)/Define=(PERL_FOR_X2P,$(LARGEFILE))
 CORECFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)/Define=(PERL_CORE,$(LARGEFILE))
 .ELSE
 CFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)
-X2PCFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)/Define=PERL_FOR_X2P
 CORECFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)/Define=PERL_CORE
 .ENDIF
 
@@ -289,19 +287,11 @@ utils3 = [.utils]perlivp.com [.lib]splain.com [.utils]pl2pm.com [.utils]xsubpp.c
 utils4 = [.utils]enc2xs.com [.utils]piconv.com [.utils]cpan.com [.utils]prove.com [.utils]ptar.com [.utils]ptardiff.com [.utils]shasum.com
 utils5 = [.utils]corelist.com [.utils]ptargrep.com [.utils]zipdetails.com
 
-.ifdef NOX2P
 all : base extras archcorefiles preplibrary [.pod]perltoc.pod
        @ QUALIFIERS := $(MMSQUALIFIERS)
        @ QUALIFIERS = QUALIFIERS - """" - """"
        @ write sys$output " "
        @ write sys$output " Everything is up to date. '$(MMS)''QUALIFIERS' test' to run test suite."
-.else
-all : base extras x2p archcorefiles preplibrary [.pod]perltoc.pod
-       @ QUALIFIERS := $(MMSQUALIFIERS)
-       @ QUALIFIERS = QUALIFIERS - """" - """"
-       @ write sys$output " "
-       @ write sys$output " Everything is up to date. '$(MMS)''QUALIFIERS' test' to run test suite."
-.endif
 
 git_version.h : $(MINIPERL_EXE) make_patchnum.pl
         $(MINIPERL) make_patchnum.pl
@@ -314,8 +304,6 @@ libmods : $(LIBPREREQ)
        @ $(NOOP)
 utils : $(utils1) $(utils2) $(utils3) $(utils4) $(utils5)
        @ $(NOOP)
-x2p : [.x2p]$(DBG)a2p$(E) [.x2p]s2p.com [.x2p]find2perl.com 
-       @ $(NOOP)
 extra.pods : miniperl
        @ @extra_pods.com
 
@@ -511,12 +499,6 @@ nonxsext : $(LIBPREREQ) preplibrary $(MINIPERL_EXE) [.pod]perlfunc.pod
        $(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
        Copy/NoConfirm/Log [.utils]splain.com [.lib]
 
-[.x2p]find2perl.com : [.x2p]find2perl.PL $(ARCHDIR)Config.pm
-       $(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
-
-[.x2p]s2p.com : [.x2p]s2p.PL $(ARCHDIR)Config.pm
-       $(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
-
 [.utils]xsubpp.com : [.utils]xsubpp.PL $(ARCHDIR)Config.pm nonxsext
        $(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
 
@@ -526,35 +508,6 @@ nonxsext : $(LIBPREREQ) preplibrary $(MINIPERL_EXE) [.pod]perlfunc.pod
 [.utils]pod2html.com : [.utils]pod2html.PL $(ARCHDIR)Config.pm nonxsext
        $(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
 
-# Rename catches problem with some DECC versions in which object file is
-# placed in current default dir, not same one as source file.
-[.x2p]$(DBG)a2p$(E) : [.x2p]a2p$(O), [.x2p]hash$(O), [.x2p]str$(O), [.x2p]util$(O), [.x2p]walk$(O)
-       @ If F$Search("hash$(O)").nes."" Then Rename/NoLog hash$(O),str$(O),util$(O),walk$(O) [.x2p]
-       Link $(LINKFLAGS) /Exe=$(MMS$TARGET) $(MMS$SOURCE_LIST) $(CRTLOPTS)
-
-# Accommodate buggy cpp in some version of DECC, which chokes on illegal
-# filespec "y.tab.c", and broken gcc cpp, which doesn't start #include ""
-# search in same dir as source file
-[.x2p]a2p$(O) : [.x2p]a2p.c [.x2p]a2py.c [.x2p]INTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h config.h handy.h vmsish.h $(MINIPERL_EXE)
-       $(MINIPERL) -pe "s/^#line\s+(\d+)\s+\Q""y.tab.c""/#line $1 ""y_tab.c""/;" $(MMS$SOURCE) >$(MMS$TARGET_NAME)_vms.c
-       $(CC) $(X2PCFLAGS) /Object=$(MMS$TARGET)/Include=([.x2p],[],"./x2p") $(MMS$TARGET_NAME)_vms.c
-       Delete/Log/NoConfirm $(MMS$TARGET_NAME)_vms.c;
-
-# gcc cpp broken -- doesn't look in directory of source file for #include ""
-.ifdef GNUC
-[.x2p]hash$(O) : [.x2p]hash.c
-       $(CC) $(X2PCFLAGS) /Include=[.x2p] $(MMS$SOURCE)
-
-[.x2p]str$(O) : [.x2p]str.c
-       $(CC) $(X2PCFLAGS) /Include=[.x2p] $(MMS$SOURCE)
-
-[.x2p]util$(O) : [.x2p]util.c
-       $(CC) $(X2PCFLAGS) /Include=[.x2p] $(MMS$SOURCE)
-
-[.x2p]walk$(O) : [.x2p]walk.c
-       $(CC) $(X2PCFLAGS) /Include=[.x2p] $(MMS$SOURCE)
-.endif
-
 preplibrary : $(MINIPERL_EXE) $(LIBPREREQ) 
        @ $(NOOP)
 
@@ -625,8 +578,8 @@ archify : all
        Delete/Log/NoConfirm [.lib.auto...]*.*;*/exclude=(*.al,*.ix,*.dir)
        Delete/Log/NoConfirm [.lib]Config.pm;*
        Delete/Log/NoConfirm [.lib]Config_heavy.pl;*
-       Copy/Log/NoConfirm *$(E);,[.x2p]$(DBG)a2p$(E); $(ARCHDIR)
-       Delete/Log/NoConfirm Perl*$(E);*,[.x2p]$(DBG)a2p$(E);*
+       Copy/Log/NoConfirm *$(E);, $(ARCHDIR)
+       Delete/Log/NoConfirm Perl*$(E);*
        @ QUALIFIERS := $(MMSQUALIFIERS)
        @ QUALIFIERS = QUALIFIERS - """" - """"
        @ Write Sys$Output "Architecture-specific setup completed."
@@ -655,7 +608,7 @@ $(ARCHAUTO)time.stamp :
 
 .ifdef LINK_ONLY
 .else
-# We need an action line here for broken older versions of MMS which
+# We need(ed?) an action line here for broken older versions of MMS which
 # otherwise conclude that they should be compiling [.x2p]utils.c :-(
 #util$(O) : util.c
 #      $(CC) $(CORECFLAGS) $(MMS$SOURCE)
@@ -743,18 +696,6 @@ util$(O) : util.c $(h)
 vms$(O) : vms.c $(h)
        $(CC) $(CORECFLAGS) $(MMS$SOURCE)
 
-[.x2p]hash$(O) : [.x2p]hash.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h
-       $(CC) $(X2PCFLAGS) $(MMS$SOURCE)
-
-[.x2p]str$(O) : [.x2p]str.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h
-       $(CC) $(X2PCFLAGS) $(MMS$SOURCE)
-
-[.x2p]util$(O) : [.x2p]util.c [.x2p]EXTERN.h [.x2p]INTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h
-       $(CC) $(X2PCFLAGS) $(MMS$SOURCE)
-
-[.x2p]walk$(O) : [.x2p]walk.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h
-       $(CC) $(X2PCFLAGS) $(MMS$SOURCE)
-
 # End of automatically generated make dependencies
 .endif # !LINK_ONLY
 
@@ -819,7 +760,6 @@ tidy : cleanlis
        - If F$Search("[.lib]*.com;-1").nes."" Then Purge/NoConfirm/Log [.lib]*.com
        - If F$Search("[.pod]*.com;-1").nes."" Then Purge/NoConfirm/Log [.pod]*.com
        - If F$Search("[.utils]*.com;-1").nes."" Then Purge/NoConfirm/Log [.utils]*.com
-       - If F$Search("[.x2p]*.com;-1").nes."" Then Purge/NoConfirm/Log [.x2p]*.com
        - If F$Search("[.lib]buildcustomize.pl;-1").nes."" Then Purge/NoConfirm/Log [.lib]buildcustomize.pl
 
 clean : tidy cleantest
@@ -869,7 +809,6 @@ realclean : clean
        - If F$Search("[.lib...].exists").nes."" Then Delete/NoConfirm/Log [.lib...].exists;*
        - If F$Search("[.pod]*.com").nes."" Then Delete/NoConfirm/Log [.pod]*.com;*
        - If F$Search("[.utils]*.com").nes."" Then Delete/NoConfirm/Log [.utils]*.com;*
-       - If F$Search("[.x2p]*.com").nes."" Then Delete/NoConfirm/Log [.x2p]*.com;*
        - If F$Search("$(ARCHDIR)Config.pm").nes."" Then Delete/NoConfirm/Log $(ARCHDIR)Config.pm;*
        - If F$Search("$(ARCHDIR)Config_heavy.pl").nes."" Then Delete/NoConfirm/Log $(ARCHDIR)Config_heavy.pl;*
        - If F$Search("[.utils]perldoc.com").nes."" Then Delete/NoConfirm/Log [.utils]perldoc.com;*
index 9979998..383bee7 100644 (file)
@@ -581,7 +581,6 @@ WPERLEXE    = ..\wperl.exe
 PERLEXESTATIC  = ..\perl-static.exe
 GLOBEXE                = ..\perlglob.exe
 CONFIGPM       = ..\lib\Config.pm ..\lib\Config_heavy.pl
-X2P            = ..\x2p\a2p.exe
 GENUUDMAP      = ..\generate_uudmap.exe
 !IF "$(BUILD_STATIC)" == "define" || "$(ALL_STATIC)" == "define"
 PERLSTATIC     = static
@@ -640,9 +639,6 @@ UTILS               =                       \
                ..\utils\instmodsh      \
                ..\utils\json_pp        \
                ..\utils\pod2html       \
-               ..\x2p\find2perl        \
-               ..\x2p\psed             \
-               ..\x2p\s2p              \
                bin\exetype.pl          \
                bin\runperl.pl          \
                bin\pl2bat.pl           \
@@ -722,13 +718,6 @@ WIN32_SRC  = $(WIN32_SRC) .\win32io.c
 #!ENDIF
 
 
-X2P_SRC                =               \
-               ..\x2p\a2p.c    \
-               ..\x2p\hash.c   \
-               ..\x2p\str.c    \
-               ..\x2p\util.c   \
-               ..\x2p\walk.c
-
 CORE_NOCFG_H   =               \
                ..\av.h         \
                ..\cop.h        \
@@ -786,7 +775,6 @@ MINICORE_OBJ        = $(MICROCORE_OBJ:..\=.\mini\)  \
 MINIWIN32_OBJ  = $(WIN32_OBJ:.\=.\mini\)
 MINI_OBJ       = $(MINICORE_OBJ) $(MINIWIN32_OBJ)
 DLL_OBJ                = $(DYNALOADER)
-X2P_OBJ                = $(X2P_SRC:.c=.obj)
 GENUUDMAP_OBJ  = $(GENUUDMAP:.exe=.obj)
 
 PERLDLL_OBJ    = $(CORE_OBJ)
@@ -845,7 +833,7 @@ CFG_VARS    =                                       \
 #
 
 all : .\config.h ..\git_version.h $(GLOBEXE) $(CONFIGPM) \
-       $(UNIDATAFILES) MakePPPort $(PERLEXE) $(X2P) Extensions_nonxs Extensions $(PERLSTATIC)
+       $(UNIDATAFILES) MakePPPort $(PERLEXE) Extensions_nonxs Extensions $(PERLSTATIC)
        @echo   Everything is up to date. '$(MAKE_BARE) test' to run test suite.
 
 regnodes : ..\regnodes.h
@@ -855,7 +843,7 @@ regnodes : ..\regnodes.h
 ..\regexec$(o) : ..\regnodes.h ..\regcharclass.h
 
 reonly : regnodes .\config.h ..\git_version.h $(GLOBEXE) $(CONFIGPM) \
-       $(UNIDATAFILES) $(PERLEXE) $(X2P) Extensions_reonly
+       $(UNIDATAFILES) $(PERLEXE) Extensions_reonly
        @echo   Perl and 're' are up to date.
 
 static: $(PERLEXESTATIC)
@@ -1024,7 +1012,6 @@ $(MINI_OBJ)       : $(CORE_NOCFG_H)
 $(WIN32_OBJ)   : $(CORE_H)
 $(CORE_OBJ)    : $(CORE_H)
 $(DLL_OBJ)     : $(CORE_H)
-$(X2P_OBJ)     : $(CORE_H)
 
 perldll.def : $(MINIPERL) $(CONFIGPM) ..\embed.fnc ..\makedef.pl create_perllibst_h.pl
        $(MINIPERL) -I..\lib create_perllibst_h.pl
@@ -1046,29 +1033,6 @@ $(PERLSTATICLIB): Extensions_static
 
 $(PERLEXE_RES): perlexe.rc $(PERLEXE_MANIFEST) $(PERLEXE_ICO)
 
-..\x2p\a2p$(o) : ..\x2p\a2p.c
-       $(CC) -I..\x2p $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\a2p.c
-
-..\x2p\hash$(o) : ..\x2p\hash.c
-       $(CC) -I..\x2p  $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\hash.c
-
-..\x2p\str$(o) : ..\x2p\str.c
-       $(CC) -I..\x2p  $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\str.c
-
-..\x2p\util$(o) : ..\x2p\util.c
-       $(CC) -I..\x2p  $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\util.c
-
-..\x2p\walk$(o) : ..\x2p\walk.c
-       $(CC) -I..\x2p  $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\walk.c
-
-$(X2P) : $(MINIPERL) $(X2P_OBJ) Extensions
-       $(MINIPERL) -I..\lib ..\x2p\find2perl.PL
-       $(MINIPERL) -I..\lib ..\x2p\s2p.PL
-       $(LINK32) -subsystem:console -out:$@ @<<
-               $(LINK_FLAGS) $(LIBFILES) $(X2P_OBJ)
-<<
-       $(EMBED_EXE_MANI)
-
 $(MINIDIR)\globals$(o) : $(GENERATED_HEADERS)
 
 $(UUDMAP_H) $(MG_DATA_H) : $(BITCOUNT_H)
@@ -1154,7 +1118,7 @@ doc: $(PERLEXE) ..\pod\perltoc.pod
 # Note that this next section is parsed (and regenerated) by pod/buildtoc
 # so please check that script before making structural changes here
 
-utils: $(PERLEXE) $(X2P) ..\utils\Makefile
+utils: $(PERLEXE) ..\utils\Makefile
        cd ..\utils
        $(MAKE) PERL=$(MINIPERL)
        cd ..\pod
@@ -1299,7 +1263,6 @@ distclean: realclean
        -cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \
            perldoc perlivp libnetcfg enc2xs piconv cpan *.bat \
            xsubpp pod2html instmodsh json_pp prove ptar ptardiff ptargrep shasum corelist zipdetails
-       -cd ..\x2p && del /f find2perl s2p psed *.bat
        -del /f ..\config.sh perlmain.c dlutils.c config.h.new \
                perlmainst.c
        -del /f $(CONFIGPM)
@@ -1326,7 +1289,6 @@ installbare : utils ..\pod\perltoc.pod
        if exist $(PERLEXESTATIC) $(XCOPY) $(PERLEXESTATIC) $(INST_BIN)\*.*
        $(XCOPY) $(GLOBEXE) $(INST_BIN)\*.*
        if exist ..\perl*.pdb $(XCOPY) ..\perl*.pdb $(INST_BIN)\*.*
-       if exist ..\x2p\a2p.pdb $(XCOPY) ..\x2p\a2p.pdb $(INST_BIN)\*.*
        $(XCOPY) bin\*.bat $(INST_SCRIPT)\*.*
 
 installhtml : doc
@@ -1414,10 +1376,8 @@ _clean :
        -@$(DEL) $(UNIDATAFILES)
        -@$(DEL) $(WIN32_OBJ)
        -@$(DEL) $(DLL_OBJ)
-       -@$(DEL) $(X2P_OBJ)
        -@$(DEL) ..\*$(o) ..\*.lib ..\*.exp *$(o) *.lib *.exp *.res
        -@$(DEL) ..\t\*.exe ..\t\*.dll ..\t\*.bat
-       -@$(DEL) ..\x2p\*.exe ..\x2p\*.bat
        -@$(DEL) *.ilk
        -@$(DEL) *.pdb
        -@$(DEL) Extensions_static
index 6aeef74..b0f54d7 100644 (file)
@@ -692,7 +692,6 @@ PERLEXESTATIC       = ..\perl-static.exe
 STATICDIR      = .\static.tmp
 GLOBEXE                = ..\perlglob.exe
 CONFIGPM       = ..\lib\Config.pm ..\lib\Config_heavy.pl
-X2P            = ..\x2p\a2p.exe
 GENUUDMAP      = ..\generate_uudmap.exe
 .IF "$(BUILD_STATIC)" == "define" || "$(ALL_STATIC)" == "define"
 PERLSTATIC     = static
@@ -749,9 +748,6 @@ UTILS               =                       \
                ..\utils\shasum         \
                ..\utils\instmodsh      \
                ..\utils\json_pp        \
-               ..\x2p\find2perl        \
-               ..\x2p\psed             \
-               ..\x2p\s2p              \
                bin\exetype.pl          \
                bin\runperl.pl          \
                bin\pl2bat.pl           \
@@ -845,13 +841,6 @@ WIN32_SRC  =               \
 WIN32_SRC      += .\win32io.c
 #.ENDIF
 
-X2P_SRC                =               \
-               ..\x2p\a2p.c    \
-               ..\x2p\hash.c   \
-               ..\x2p\str.c    \
-               ..\x2p\util.c   \
-               ..\x2p\walk.c
-
 CORE_NOCFG_H   =               \
                ..\av.h         \
                ..\cop.h        \
@@ -907,7 +896,6 @@ MINICORE_OBJ        = $(MINIDIR)\{$(MICROCORE_OBJ:f) miniperlmain$(o) perlio$(o)}
 MINIWIN32_OBJ  = $(MINIDIR)\{$(WIN32_OBJ:f)}
 MINI_OBJ       = $(MINICORE_OBJ) $(MINIWIN32_OBJ)
 DLL_OBJ                = $(DYNALOADER)
-X2P_OBJ                = $(X2P_SRC:db:+$(o))
 GENUUDMAP_OBJ  = $(GENUUDMAP:db:+$(o))
 
 PERLDLL_OBJ    = $(CORE_OBJ)
@@ -976,7 +964,7 @@ CFG_VARS    =                                       \
 
 all : CHECKDMAKE .\config.h ..\git_version.h $(GLOBEXE) $(MINIPERL)    \
        $(CONFIGPM) $(UNIDATAFILES) MakePPPort                          \
-       $(PERLEXE) $(X2P) Extensions Extensions_nonxs $(PERLSTATIC)
+       $(PERLEXE) Extensions Extensions_nonxs $(PERLSTATIC)
 
 regnodes : ..\regnodes.h
 
@@ -986,7 +974,7 @@ regnodes : ..\regnodes.h
 
 reonly : regnodes .\config.h ..\git_version.h $(GLOBEXE) $(MINIPERL)   \
        $(CONFIGPM) $(UNIDATAFILES) $(PERLEXE)                          \
-       $(X2P) Extensions_reonly
+       Extensions_reonly
 
 static: $(PERLEXESTATIC)
 
@@ -1181,8 +1169,6 @@ $(CORE_OBJ)       : $(CORE_H)
 
 $(DLL_OBJ)     : $(CORE_H)
 
-$(X2P_OBJ)     : $(CORE_H)
-
 perldll.def : $(MINIPERL) $(CONFIGPM) ..\embed.fnc ..\makedef.pl create_perllibst_h.pl
        $(MINIPERL) -I..\lib create_perllibst_h.pl
        $(MINIPERL) -I..\lib -w ..\makedef.pl PLATFORM=win32 $(OPTIMIZE) $(DEFINES) \
@@ -1229,33 +1215,6 @@ $(PERLSTATICLIB): $(PERLDLL_OBJ) Extensions_static
 
 $(PERLEXE_RES): perlexe.rc $(PERLEXE_MANIFEST) $(PERLEXE_ICO)
 
-..\x2p\a2p$(o) : ..\x2p\a2p.c
-       $(CC) -I..\x2p $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\a2p.c
-
-..\x2p\hash$(o) : ..\x2p\hash.c
-       $(CC) -I..\x2p  $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\hash.c
-
-..\x2p\str$(o) : ..\x2p\str.c
-       $(CC) -I..\x2p  $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\str.c
-
-..\x2p\util$(o) : ..\x2p\util.c
-       $(CC) -I..\x2p  $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\util.c
-
-..\x2p\walk$(o) : ..\x2p\walk.c
-       $(CC) -I..\x2p  $(CFLAGS) $(OBJOUT_FLAG)$@ -c ..\x2p\walk.c
-
-$(X2P) : $(MINIPERL) $(X2P_OBJ) Extensions
-       $(MINIPERL) -I..\lib ..\x2p\find2perl.PL
-       $(MINIPERL) -I..\lib ..\x2p\s2p.PL
-.IF "$(CCTYPE)" == "GCC"
-       $(LINK32) -v -o $@ $(BLINK_FLAGS) \
-           $(mktmp $(LKPRE) $(X2P_OBJ) $(LIBFILES) $(LKPOST))
-.ELSE
-       $(LINK32) -subsystem:console -out:$@ $(BLINK_FLAGS) \
-           @$(mktmp $(LIBFILES) $(X2P_OBJ))
-       $(EMBED_EXE_MANI)
-.ENDIF
-
 $(MINIDIR)\globals$(o) : $(GENERATED_HEADERS)
 
 $(UUDMAP_H) $(MG_DATA_H) : $(BITCOUNT_H)
@@ -1355,7 +1314,7 @@ doc: $(PERLEXE) ..\pod\perltoc.pod
 
 # Note that this next section is parsed (and regenerated) by pod/buildtoc
 # so please check that script before making structural changes here
-utils: $(PERLEXE) $(X2P) ..\utils\Makefile
+utils: $(PERLEXE) ..\utils\Makefile
        cd ..\utils && $(MAKE) PERL=$(MINIPERL)
        copy ..\README.aix      ..\pod\perlaix.pod
        copy ..\README.amiga    ..\pod\perlamiga.pod
@@ -1497,7 +1456,6 @@ distclean: realclean
        -cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \
            perldoc perlivp libnetcfg enc2xs piconv cpan *.bat \
            xsubpp pod2html instmodsh json_pp prove ptar ptardiff ptargrep shasum corelist zipdetails
-       -cd ..\x2p && del /f find2perl s2p psed *.bat
        -del /f ..\config.sh perlmain.c dlutils.c config.h.new \
            perlmainst.c
        -del /f $(CONFIGPM)
@@ -1524,7 +1482,6 @@ installbare : utils ..\pod\perltoc.pod
        if exist $(PERLEXESTATIC) $(XCOPY) $(PERLEXESTATIC) $(INST_BIN)\*.*
        $(XCOPY) $(GLOBEXE) $(INST_BIN)\*.*
        if exist ..\perl*.pdb $(XCOPY) ..\perl*.pdb $(INST_BIN)\*.*
-       if exist ..\x2p\a2p.pdb $(XCOPY) ..\x2p\a2p.pdb $(INST_BIN)\*.*
        $(XCOPY) bin\*.bat $(INST_SCRIPT)\*.*
 
 installhtml : doc
@@ -1618,10 +1575,8 @@ _clean :
        -@erase $(UNIDATAFILES)
        -@erase $(WIN32_OBJ)
        -@erase $(DLL_OBJ)
-       -@erase $(X2P_OBJ)
        -@erase ..\*$(o) ..\*$(a) ..\*.exp *$(o) *$(a) *.exp *.res
        -@erase ..\t\*.exe ..\t\*.dll ..\t\*.bat
-       -@erase ..\x2p\*.exe ..\x2p\*.bat
        -@erase *.ilk
        -@erase *.pdb
        -@erase Extensions_static
diff --git a/x2p/.gitignore b/x2p/.gitignore
deleted file mode 100644 (file)
index 1ee0a5b..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-/a2p
-/find2perl
-/find2perl.bat
-/psed
-/psed.bat
-/s2p
-/s2p.bat
diff --git a/x2p/EXTERN.h b/x2p/EXTERN.h
deleted file mode 100644 (file)
index dcc1b24..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-/*    EXTERN.h
- *
- *    Copyright (C) 1991, 1992, 1993, 1994, 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.
- */
-
-#undef EXT
-#define EXT extern
-
-#ifdef __cplusplus
-#  define EXTERN_C extern "C"
-#else
-#  define EXTERN_C extern
-#endif
-
-#undef INIT
-#define INIT(x)
-
-#undef DOINIT
diff --git a/x2p/INTERN.h b/x2p/INTERN.h
deleted file mode 100644 (file)
index 2933294..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-/*    INTERN.h
- *
- *    Copyright (C) 1993, 1994, 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.
- */
-
-#undef EXT
-#define EXT
-
-#ifdef __cplusplus
-#  define EXTERN_C extern "C"
-#else
-#  ifndef EXTERN_C
-#    define EXTERN_C
-#  endif
-#endif
-
-#undef INIT
-#define INIT(x) = x
-
-#define DOINIT
diff --git a/x2p/Makefile.SH b/x2p/Makefile.SH
deleted file mode 100755 (executable)
index 2e55401..0000000
+++ /dev/null
@@ -1,178 +0,0 @@
-#!/bin/sh
-
-case $PERL_CONFIG_SH in
-'')
-       if test -f config.sh; then TOP=.;
-       elif test -f ../config.sh; then TOP=..;
-       elif test -f ../../config.sh; then TOP=../..;
-       elif test -f ../../../config.sh; then TOP=../../..;
-       elif test -f ../../../../config.sh; then TOP=../../../..;
-       else
-               echo "Can't find config.sh."; exit 1
-       fi
-       . $TOP/config.sh
-       ;;
-esac
-: This forces SH files to create target in same directory as SH file.
-: This is so that make depend always knows where to find SH derivatives.
-case "$0" in
-*/Makefile.SH) cd `expr X$0 : 'X\(.*\)/'` ;;
-Makefile.SH) ;;
-*) case `pwd` in
-   */x2p) ;;
-   *) if test -d x2p; then cd x2p
-      else echo "Can't figure out where to write output."; exit 1
-         fi;;
-   esac;;
-esac
-
-echo "Extracting x2p/Makefile (with variable substitutions)"
-rm -f Makefile
-
-# The .PL extractions use the Cwd extension.  For statically-built
-# perls, we need perl, not just miniperl.
-case "$usedl" in
-    define) perl="../miniperl" ;;
-    *)      perl="../perl" ;;
-esac
-
-cat >Makefile <<!GROK!THIS!
-# $RCSfile: Makefile.SH,v $$Revision: 4.1 $$Date: 92/08/07 18:29:07 $
-#
-# $Log:        Makefile.SH,v $
-
-CC = $cc
-BYACC = $byacc
-LDFLAGS = $ldflags
-shellflags = $shellflags
-
-libs = $perllibs
-
-$make_set_make
-# grrr
-SHELL = $sh
-
-# These variables may need to be manually set for non-Unix systems.
-AR = $ar
-EXE_EXT = $_exe
-LIB_EXT = $_a
-OBJ_EXT = $_o
-PATH_SEP = $p_
-
-FIRSTMAKEFILE = $firstmakefile
-
-# how to tr(anslate) newlines
-
-TRNL = '$trnl'
-
-OPTIMIZE = $optimize
-
-.SUFFIXES: .c \$(OBJ_EXT)
-
-RUN =
-PERL = $perl
-
-!GROK!THIS!
-
-cat >>Makefile <<'!NO!SUBS!'
-
-REALPERL = ../perl
-CCCMD = `sh $(shellflags) ../cflags "optimize='$(OPTIMIZE)'" $@`
-
-pl = find2perl.PL s2p.PL
-plextract = find2perl s2p
-
-h = EXTERN.h INTERN.h ../config.h ../handy.h hash.h a2p.h str.h util.h
-
-c = hash.c str.c util.c walk.c
-
-obj = hash$(OBJ_EXT) str$(OBJ_EXT) util$(OBJ_EXT) walk$(OBJ_EXT)
-
-lintflags = -phbvxac
-
-
-.c$(OBJ_EXT):
-       $(CCCMD) -DPERL_FOR_X2P $*.c
-
-all: a2p$(EXE_EXT) s2p find2perl
-       @echo " "
-
-a2p$(EXE_EXT): $(obj) a2p$(OBJ_EXT)
-       $(CC) -o a2p $(LDFLAGS) $(obj) a2p$(OBJ_EXT) $(libs)
-
-# I now supply a2p.c with the kits, so the following section is
-# used only if you force byacc to run by saying
-#    make run_byacc
-# byacc 1.8.2 or 1.9 are recommended.
-
-run_byacc:     FORCE
-       @ echo Expect many shift/reduce and reduce/reduce conflicts
-       $(BYACC) a2p.y
-       rm -f a2p.c
-       sed -e 's/(yyn = yydefred\[yystate\])/((yyn = yydefred[yystate]))/' \
-           -e 's/(yys = getenv("YYDEBUG"))/((yys = getenv("YYDEBUG")))/' \
-           -e 's/^yyerrlab://' \
-           -e 's/^    goto yyerrlab;//' \
-           -e 's/^yynewerror://' \
-           -e 's/^    goto yynewerror;//' \
-           -e 's|^static char yysccsid\(.*\)|/* static char yysccsid\1 */|' \
-           -e 's/^\(char \*yyname\[\]\)/const \1/' \
-           -e 's/^\(char \*yyrule\[\]\)/const \1/' \
-           -e 's/^\(    register\) \(char \*yys;\)/\1 const \2/' \
-           < y.tab.c > a2p.c
-
-FORCE:
-
-# We don't want to regenerate a2p.c, but it might appear out-of-date
-# after a patch is applied or a new distribution is made.
-a2p.c: a2p.y
-       -@sh -c true
-
-a2p$(OBJ_EXT): a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h \
-               ../handy.h ../config.h str.h hash.h
-       $(CCCMD) a2p.c
-
-clean:
-       rm -f a2p$(EXE_EXT) psed *$(OBJ_EXT) $(plexe) $(plc)
-
-distclean: veryclean
-
-realclean: clean
-       -rmdir .depending
-       rm -f core $(plextract) all
-       rm -f $(FIRSTMAKEFILE) $(FIRSTMAKEFILE).old makefile.old
-
-veryclean: realclean
-       rm -f *~ *.orig
-
-# The following lint has practically everything turned on.  Unfortunately,
-# you have to wade through a lot of mumbo jumbo that can't be suppressed.
-# If the source file has a /*NOSTRICT*/ somewhere, ignore the lint message
-# for that spot.
-
-lint:
-       lint $(lintflags) $(defs) $(c) > a2p.fuzz
-
-depend: ../makedepend
-       sh ../makedepend MAKE=$(MAKE) ../cflags
-
-clist:
-       echo $(c) | tr ' ' $(TRNL) >.clist
-
-hlist:
-       echo $(h) | tr ' ' $(TRNL) >.hlist
-
-$(plextract):
-       $(RUN) $(PERL) -I../lib $@.PL
-
-find2perl: find2perl.PL ../config.sh
-
-s2p: s2p.PL ../config.sh
-
-# AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
-$(obj):
-       @ echo "You haven't done a "'"make depend" yet!'; exit 1
-makedepend: depend
-!NO!SUBS!
-$eunicefix Makefile
-rm -f $firstmakefile
diff --git a/x2p/a2p.c b/x2p/a2p.c
deleted file mode 100644 (file)
index 8d6e9cd..0000000
--- a/x2p/a2p.c
+++ /dev/null
@@ -1,2941 +0,0 @@
-#ifndef lint
-static const char yysccsid[] = "@(#)yaccpar    1.9 (Berkeley) 02/21/93";
-#endif
-#define YYBYACC 1
-#define YYMAJOR 1
-#define YYMINOR 9
-#define yyclearin (yychar=(-1))
-#define yyerrok (yyerrflag=0)
-#define YYRECOVERING (yyerrflag!=0)
-extern int yyparse(void);
-#define YYPREFIX "yy"
-#line 2 "a2p.y"
-/* $RCSfile: a2p.y,v $$Revision: 4.1 $$Date: 92/08/07 18:29:12 $
- *
- *    Copyright (C) 1991, 1992, 1993, 1994, 1996, 1997, 1999, 2000,
- *    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.
- *
- * $Log:       a2p.y,v $
- */
-
-#include "INTERN.h"
-#include "a2p.h"
-
-int root;
-int begins = Nullop;
-int ends = Nullop;
-
-#line 32 "y.tab.c"
-#define BEGIN 257
-#define END 258
-#define REGEX 259
-#define SEMINEW 260
-#define NEWLINE 261
-#define COMMENT 262
-#define FUN1 263
-#define FUNN 264
-#define GRGR 265
-#define PRINT 266
-#define PRINTF 267
-#define SPRINTF_OLD 268
-#define SPRINTF_NEW 269
-#define SPLIT 270
-#define IF 271
-#define ELSE 272
-#define WHILE 273
-#define FOR 274
-#define IN 275
-#define EXIT 276
-#define NEXT 277
-#define BREAK 278
-#define CONTINUE 279
-#define RET 280
-#define GETLINE 281
-#define DO 282
-#define SUB 283
-#define GSUB 284
-#define MATCH 285
-#define FUNCTION 286
-#define USERFUN 287
-#define DELETE 288
-#define ASGNOP 289
-#define OROR 290
-#define ANDAND 291
-#define NUMBER 292
-#define VAR 293
-#define SUBSTR 294
-#define INDEX 295
-#define MATCHOP 296
-#define RELOP 297
-#define OR 298
-#define STRING 299
-#define UMINUS 300
-#define NOT 301
-#define INCR 302
-#define DECR 303
-#define FIELD 304
-#define VFIELD 305
-#define SVFIELD 306
-#define YYERRCODE 256
-short yylhs[] = {                                        -1,
-    0,    3,    6,    6,    2,    2,    7,    7,    7,    7,
-    7,    7,    9,    8,    8,   11,   11,   11,   11,   11,
-   15,   15,   15,   15,   14,   14,   14,   14,   13,   13,
-   13,   13,   12,   12,   12,   12,   18,   18,   16,   16,
-   16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
-   16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
-   16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
-   16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
-   16,   16,   16,   16,   17,   17,   17,   17,   17,   10,
-   10,   10,   19,   19,   19,    1,    1,   20,   20,   20,
-   20,    4,    4,   21,   21,   22,   22,   22,   22,    5,
-    5,   23,   23,   23,   23,   26,   26,   24,   24,   24,
-   24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
-   27,   27,   27,   25,   25,   25,   25,   25,   25,   25,
-   25,
-};
-short yylen[] = {                                         2,
-    2,    6,    5,    2,    3,    0,    1,    5,   10,    4,
-    1,    1,    1,    1,    3,    1,    1,    1,    1,    5,
-    3,    4,    4,    2,    3,    3,    3,    3,    3,    3,
-    1,    3,    1,    2,    5,    3,    1,    1,    1,    1,
-    1,    3,    3,    3,    3,    3,    3,    3,    2,    2,
-    2,    2,    2,    2,    3,    1,    2,    3,    4,    3,
-    4,    1,    3,    4,    4,    4,    4,    2,    8,    6,
-    8,    8,    6,    6,    6,    6,    6,    6,    6,    6,
-    8,    8,    8,    8,    1,    4,    1,    1,    2,    1,
-    1,    0,    4,    4,    3,    2,    0,    1,    1,    1,
-    1,    2,    0,    1,    1,    2,    2,    2,    2,    2,
-    0,    3,    2,    2,    1,    1,    0,    1,    4,    2,
-    4,    2,    1,    1,    1,    2,    1,    1,    2,    5,
-    1,    1,    1,    6,    9,    6,    7,   10,    9,    6,
-    5,
-};
-short yydefred[] = {                                     97,
-    0,    0,   99,  100,  101,   98,    0,   96,    0,    0,
-   31,    0,    0,   38,    0,    0,    0,    0,    0,    0,
-    0,    0,   40,    0,    0,    0,   41,    0,    0,    0,
-    0,    0,   87,    0,   88,  103,    0,   11,    0,   97,
-    0,    0,    0,   17,   18,   19,    0,    0,    0,  103,
-  103,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   24,
-   51,   52,    0,    0,    0,    0,    0,    0,    4,    0,
-  103,    0,  103,  103,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   49,   50,    0,   68,    0,    0,    0,    0,   63,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,  104,  105,    0,  102,   55,
-   32,   28,   21,    0,    0,    0,    0,    0,    0,   30,
-    0,    0,    0,    0,   48,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,  103,  103,    0,    0,
-   64,   65,   67,    0,    0,    0,    0,    0,    0,    0,
-    0,   13,   66,   86,    0,    0,  103,    0,    0,    0,
-    0,    0,    0,  124,  123,  127,    0,  103,    0,  103,
-   10,  103,    0,  110,    0,  115,    0,    0,    0,   22,
-    0,   61,   95,    0,    0,   97,    3,    0,    0,    0,
-    0,    0,    0,    0,  103,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,  103,
-  103,  103,  103,  103,    8,    0,    0,    0,    0,    0,
-   73,    0,   78,    0,   77,    0,   80,    0,   79,    0,
-   75,   76,    0,   70,    0,   74,  132,  131,  133,    0,
-    0,    0,    0,    0,  116,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-  103,    0,    0,    0,  103,  103,  103,    0,    0,    0,
-  103,   72,   71,   82,   81,   84,   83,    0,   69,    0,
-    0,    0,    0,    0,    0,  130,    0,    0,    0,  136,
-  140,    0,    0,    0,    9,  103,  103,    0,  137,    0,
-    0,  103,  135,  139,    0,  138,
-};
-short yydgoto[] = {                                       1,
-    2,    7,   38,   74,  128,   39,   40,   41,  171,  104,
-   75,  193,   44,   45,   46,   47,   48,   49,  106,    8,
-  129,  234,  194,  195,  196,  266,  260,
-};
-short yysindex[] = {                                      0,
-    0,  -52,    0,    0,    0,    0, 6281,    0,  -83,  -65,
-    0,   27,   28,    0,   43,   46,   29,   48,   50,   51,
- -218,   64,    0,  -14,   65,   66,    0, 8153, 8153, 6722,
- -176, -176,    0, 8153,    0,    0, 6722,    0, -165,    0,
-  -38,  -13, 6376,    0,    0,    0,  -32, -232, 8198,    0,
-    0, 7770, 8198, 8198, 8153, 8153,   47, 7835, 7883, 8153,
-   69, 8198, 8198, 8153, 8153, 6722,  -57, -267,  -57,    0,
-    0,    0,   -2, -210,  -41,   79,   80,   85,    0,  -52,
-    0, 8153,    0,    0, 6722, 8153, 7931, 8153, 8153, 8153,
-  -32, -166, 8153, 8153, 8153, 8153, 8153, 8153, -150, 6722,
-    0,    0, 6770,    0, 3731,   88, -210, -210,    0, 1055,
-   93,   94, 6815,  184, 8153,   92, 6892,   96, 6939, 7003,
- 8198,   97,   44, 7048, 7094,    0,    0, 5585,    0,    0,
-    0,    0,    0, -210, 7172, 2108, 2108,  -60, 7216,    0,
-  184,  184,  184,  184,    0,   45,   45,  -57,  -57,  -57,
-  -57, -176,  -60, 6770, 6332,   32,    0,    0, 5632, 5700,
-    0,    0,    0, -148,  184, 8153, 8153, 8153, 8153, 8001,
-  102,    0,    0,    0, 8153, 8153,    0, 8198, 8198,  107,
-  121,  127, 8153,    0,    0,    0, 8153,    0, -130,    0,
-    0,    0, 8045,    0,  -43,    0, 5899, 8153, -119,    0,
- 8153,    0,    0, 1434, 1434,    0,    0,   37, 5431, 6447,
- 6491, 6548,  134, 7281,    0, 6611, 7327, -210,  -45,  -45,
- 6722, 6722, 2656, 8045, 8045, 4777,   90, -210, -210,    0,
-    0,    0,    0,    0,    0, 8045, 8045, 8045, 8045,  -52,
-    0, 8105,    0, 8153,    0, 8153,    0, 8153,    0, 8153,
-    0,    0,  -96,    0, 8153,    0,    0,    0,    0, 8153,
- 8153,  -39,  -37, 7371,    0,  124,  -89, 8198, 5967, -210,
- -210, -210, -210, -210,  144, 7449, 7493, 7560, 7604, 7648,
-    0, 7726, 8045, 8045,    0,    0,    0, 6659,  146,   95,
-    0,    0,    0,    0,    0,    0,    0, -210,    0, 4777,
- 4777, 4777, 2656,  -51, 6722,    0, -210, 6014,  -85,    0,
-    0,  151, 2656,  -35,    0,    0,    0,  152,    0, 4777,
- 4777,    0,    0,    0, 4777,    0,
-};
-short yyrindex[] = {                                      0,
-    0, 2742,    0,    0,    0,    0,  194,    0,    0,    0,
-    0,   56,    0,    0,  111,    0, 3174,    0,    0,    0,
-    0,    0,    0,    1,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0, 2475,    0,
- 2531, 2375, 4311,    0,    0,    0, 2057, 1630, 3897,    0,
-    0,    0,  154,  154,    0,    0,  382,    0,    0,    0,
-    0,  154,  105,    0,    0,    0,  818,  872, 1143,    0,
-    0,    0,  437, 6065,    0,  -54,  -49,  -44,    0, 2798,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
- 2324,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0, 4263,  492, 6065, 6065,    0,    0,
-    0,    0,    0, 3222,    0,    0,    0,    0,    0,    0,
-  154,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0, 6065,    0,    0,    0, 2425,    0,    0,
- 3462, 3507, 3552, 3621,    0, 1956, 2007, 1197, 1251, 1522,
- 1576, 3119, 1901,    0,  -23,    0,    0,    0,    0,    0,
-    0,    0,    0,    0, 3830,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,  504,  504,    0,
-    0,    0,   13,    0,    0,    0,  103,    0,    0,    0,
-    0,    0,  123,    0,    0,    0,    0,    0,  763,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0, 4830,  173,  242,
-    0,    0,  140,  297,  350,    0,    0, 6065, 4878,    0,
-    0,    0,    0,    0,    0, 3945, 4017, 4106, 4208, 2848,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,  141,    0,    0,    0,  105,    0, 4952,
- 5145, 5219, 5266, 5318,    0,    0,    0,    0,    0,    0,
-    0,    0,  398,  484,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0, 6065,    0,    0,
-    0,    0,  161,    0,    0,    0, 5534,    0, 6180,    0,
-    0,    0,  161,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,
-};
-short yygindex[] = {                                      0,
-  -17,    0,    0, 4597,  -87,    0,    0,    0,    0,   12,
-   23, 4555,  -12,   -8,   -3, 8435, 4752,    0,  -70,    0,
-    0,    0, -124, -191,    0, -264,   -7,
-};
-#define YYTABLESIZE 8719
-short yytable[] = {                                     130,
-   85,  285,   82,  286,   97,  319,    6,  313,   17,   95,
-   93,   82,   94,   18,   96,  233,  258,   16,   19,  159,
-  160,   82,   80,   82,   76,   82,  281,   82,   77,   42,
-   85,  265,  156,   78,  101,  102,   98,   85,  312,   50,
-   85,   85,   85,   85,   85,   85,  197,   85,  318,   82,
-  126,  127,   70,  125,   99,   62,  100,   51,   85,   85,
-   85,   98,   85,   85,  111,  112,   52,   53,   61,  101,
-  102,  125,  203,  122,  123,  158,   63,  241,  259,   99,
-  242,   97,   54,  156,   81,   55,   95,   58,   56,   59,
-   60,   96,   62,   85,   85,   79,   62,   62,   62,   62,
-   62,  267,   62,   62,   64,   65,  115,  138,  121,   99,
-   37,  265,   85,   62,   62,   62,   24,   62,   62,  131,
-  132,  265,  153,   85,   85,  133,  145,   33,   34,   35,
-  152,  158,  172,  162,  163,  166,  174,  173,   98,  168,
-  269,   76,  215,  128,  208,   77,  221,   37,   62,   62,
-   78,   37,   37,   37,   37,   37,   99,   37,  199,  200,
-  222,  128,  227,  118,  126,  127,  223,   62,   37,   37,
-   37,   84,   37,   37,  251,  309,  310,  311,   62,   62,
-  268,  118,  288,  289,  292,  305,  316,  306,  240,  219,
-  220,  317,  322,    1,   92,  323,  324,   92,  117,  118,
-  326,  117,    0,   37,   37,    0,    0,    3,    4,    5,
-  308,    0,  261,  120,    0,    0,  230,  231,  232,  257,
-    0,    0,   37,   66,    0,    0,   28,    0,   29,   83,
-   84,  120,    0,   37,   37,   17,   17,    0,   83,   84,
-   18,   18,   92,  262,  263,   19,   19,    0,   83,   84,
-   83,   84,   83,   84,   83,   84,    0,   85,   85,   85,
-   85,   85,   85,   85,   85,   85,   16,   16,   85,   85,
-   85,    0,  125,  125,  125,   85,   83,   84,    0,  290,
-    0,   85,  122,   85,   85,   85,   85,   85,    0,   85,
-   85,   85,   85,   85,   85,   85,   85,   85,    0,   85,
-  122,   85,   85,   85,   85,   85,   85,    0,    0,    0,
-  304,    0,   62,   62,   62,   62,   62,   62,   62,   62,
-   62,   24,    0,   62,   62,   62,    0,  314,    0,    0,
-   62,    0,   33,   34,   35,    0,   62,  126,   62,   62,
-   62,   62,   62,    0,   62,   62,   62,   62,   62,   62,
-   62,   62,   62,    0,   62,  126,   62,   62,   62,   62,
-   62,   62,  128,  128,  128,    0,    0,   37,   37,   37,
-   37,   37,   37,   37,   37,   37,    0,    0,   37,   37,
-   37,   57,  118,  118,  118,   37,    0,    0,    0,    0,
-  129,   37,    0,   37,   37,   37,   37,   37,    0,   37,
-   37,   37,   37,   37,   37,   37,   37,   37,  129,   37,
-    0,   37,   37,   37,   37,   37,   37,    0,   57,    0,
-    0,   57,   57,   57,   57,   57,   57,    0,   57,    0,
-    0,    0,  120,  120,  120,    0,   89,    0,  119,   57,
-   57,    0,    0,   57,   57,    0,   12,   13,    0,    0,
-    0,   14,   15,   16,    0,    0,  119,    0,    0,    0,
-    0,    0,    0,    0,   17,    0,   18,   19,   20,    0,
-   22,    0,    0,   89,   57,   57,   89,   89,   89,   89,
-   89,   89,   27,   89,    0,   31,   32,   33,   34,   35,
-    0,   91,    0,   57,   89,   89,   89,    0,   89,   89,
-    0,  122,  122,  122,   57,   57,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,  121,    0,    0,    0,   91,   89,
-   89,   91,   91,   91,   91,    0,   91,    0,   91,    0,
-    0,    0,  121,    0,   92,    0,    0,    0,    0,   91,
-   91,   91,    0,   91,   91,    0,  126,  126,  126,   89,
-   89,    0,   92,    0,    0,   92,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   91,   91,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   91,    0,    0,    0,    0,    0,  129,
-  129,  129,    0,    0,   91,   91,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   92,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   57,   57,
-   57,   57,   57,   57,   57,   57,   57,    0,    0,   57,
-   57,   57,    0,    0,    0,    0,   57,  119,  119,  119,
-    0,    0,   57,    0,   57,   57,   57,   57,   57,    0,
-   57,   57,   57,   57,   57,   57,   57,   57,   57,    0,
-   57,    0,   57,   57,   57,   57,   57,   57,    0,    0,
-    0,    0,    0,   89,   89,   89,   89,   89,   89,   89,
-   89,   89,    0,    0,   89,   89,   89,    0,    0,    0,
-    0,   89,    0,    0,    0,    0,    0,   89,    0,   89,
-   89,   89,   89,   89,    0,   89,   89,   89,   89,   89,
-   89,   89,   89,   89,    0,   89,    0,   89,   89,   89,
-   89,   89,   89,  121,  121,  121,    0,    0,   91,   91,
-   91,   91,   91,   91,   91,   91,   91,    0,    0,   91,
-   91,   91,   23,   92,   92,   92,   91,    0,   92,    0,
-    0,    0,   91,    0,   91,   91,   91,   91,   91,    0,
-   91,   91,   91,   91,   91,   91,   91,   91,   91,    0,
-   91,    0,   91,   91,   91,   91,   91,   91,    0,   23,
-    0,    0,   23,   23,   23,   23,   23,   23,    0,   23,
-    0,    0,    0,    0,    0,    0,    0,   54,    0,    0,
-   23,   23,   23,    0,   23,   23,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   54,   23,   23,   54,   54,   54,
-   54,   54,   54,    0,   54,    0,    0,    0,    0,    0,
-    0,   39,    0,    0,   23,   54,   54,   54,    0,   54,
-   54,    0,    0,    0,    0,   23,   23,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   39,    0,
-   54,   39,   39,   39,   39,   39,   39,    0,   39,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   39,
-   39,   39,    0,   39,   39,    0,    0,    0,    0,    0,
-   54,   54,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   39,   39,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   39,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   39,   39,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   23,
-   23,   23,   23,   23,   23,   23,   23,   23,    0,    0,
-   23,   23,   23,    0,    0,    0,    0,   23,    0,    0,
-    0,    0,    0,   23,    0,   23,   23,   23,   23,   23,
-    0,   23,   23,    0,   23,   23,   23,   23,   23,   23,
-    0,   23,    0,   23,   23,   23,   23,   23,   23,    0,
-    0,    0,    0,    0,   54,   54,   54,   54,   54,   54,
-   54,   54,   54,    0,    0,   54,   54,   54,    0,    0,
-    0,    0,   54,    0,   66,  161,    0,   28,   54,   29,
-   54,   54,   54,   54,   54,    0,   54,   54,   54,   54,
-   54,   54,   54,   54,   54,    0,   54,   86,   54,   54,
-   54,   54,   54,   54,    0,    0,    0,    0,   39,   39,
-   39,   39,   39,   39,   39,   39,   39,    0,    0,   39,
-   39,   39,   53,    0,    0,    0,   39,    0,    0,    0,
-    0,    0,   39,    0,   39,   39,   39,   39,   39,    0,
-   39,   39,   39,   39,   39,   39,   39,   39,   39,    0,
-   39,    0,   39,    0,    0,   39,   39,   39,    0,   53,
-    0,    0,   53,   53,   53,   53,   53,   53,    0,   53,
-    0,    0,    0,    0,    0,    0,   44,    0,    0,    0,
-   53,   53,   53,    0,   53,   53,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   44,    0,   53,   44,   44,   44,   44,
-   44,   44,    0,   44,    0,    0,    0,    0,    0,    0,
-   45,    0,    0,    0,   44,   44,   44,    0,   44,   44,
-    0,    0,    0,    0,    0,   53,   53,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   45,    0,   44,
-   45,   45,   45,   45,   45,   45,    0,   45,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   45,   45,
-   45,    0,   45,   45,    0,    0,    0,   12,   13,   44,
-   44,    0,   14,   15,   16,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   17,    0,   18,   19,   20,
-    0,   22,    0,   45,    0,    0,   23,   24,   25,   26,
-    0,    0,    0,   27,    0,    0,   31,   32,   33,   34,
-   35,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   45,   45,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   53,
-   53,   53,   53,   53,   53,   53,   53,   53,    0,    0,
-   53,   53,   53,    0,    0,    0,    0,   53,    0,    0,
-    0,    0,    0,   53,    0,   53,   53,   53,   53,   53,
-    0,   53,   53,   53,   53,   53,   53,   53,   53,   53,
-    0,   53,    0,   53,   53,   53,   53,   53,   53,    0,
-    0,    0,    0,   44,   44,   44,   44,   44,   44,   44,
-   44,   44,    0,    0,   44,   44,   44,    0,    0,    0,
-    0,   44,    0,   66,    0,    0,   28,   44,   29,   44,
-   44,   44,   44,   44,    0,   44,   44,   44,   44,   44,
-   44,   44,   44,   44,    0,   44,    0,   44,   44,   44,
-   44,   44,   44,    0,    0,    0,    0,   45,   45,   45,
-   45,   45,   45,   45,   45,   45,    0,    0,   45,   45,
-   45,   46,    0,    0,    0,   45,    0,    0,    0,    0,
-    0,   45,    0,   45,   45,   45,   45,   45,    0,   45,
-   45,   45,   45,   45,   45,   45,   45,   45,    0,   45,
-    0,   45,   45,   45,   45,   45,   45,    0,   46,    0,
-    0,   46,   46,   46,   46,   46,   46,    0,   46,    0,
-    0,    0,    0,    0,    0,   47,    0,    0,    0,   46,
-   46,   46,    0,   46,   46,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   47,    0,   46,   47,   47,   47,   47,   47,
-   47,    0,   47,    0,    0,    0,    0,    0,    0,   39,
-    0,    0,    0,   47,   47,   47,    0,   47,   47,    0,
-    0,    0,    0,    0,   46,   46,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   39,    0,   47,   39,
-   39,   39,   39,   39,   39,    0,   39,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   39,   39,   39,
-    0,   39,   39,    0,  126,  127,   12,   13,   47,   47,
-    0,   14,   15,   16,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   17,    0,   18,   19,   20,    0,
-   22,    0,   39,   39,    0,   23,   24,   25,   26,    0,
-    0,    0,   27,    0,    0,   31,   32,   33,   34,   35,
-    0,   39,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   39,   39,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   46,   46,
-   46,   46,   46,   46,   46,   46,   46,    0,    0,   46,
-   46,   46,    0,    0,    0,    0,   46,    0,    0,    0,
-    0,    0,   46,    0,   46,   46,   46,   46,   46,    0,
-   46,   46,   46,   46,   46,   46,   46,   46,   46,    0,
-   46,    0,   46,   46,   46,   46,   46,   46,    0,    0,
-    0,    0,   47,   47,   47,   47,   47,   47,   47,   47,
-   47,    0,    0,   47,   47,   47,    0,    0,    0,    0,
-   47,    0,    0,    0,    0,    0,   47,    0,   47,   47,
-   47,   47,   47,    0,   47,   47,   47,   47,   47,   47,
-   47,   47,   47,    0,   47,    0,   47,   47,   47,   47,
-   47,   47,    0,    0,    0,    0,   39,   39,   39,   39,
-   39,   39,   39,   39,   39,    0,    0,   39,   39,   39,
-   36,    0,    0,    0,   39,    0,    0,    0,    0,    0,
-   39,    0,   39,   39,   39,   39,   39,    0,    0,   39,
-   39,   39,   39,   39,   39,   39,   39,    0,   39,    0,
-   39,    0,    0,   39,   39,   39,    0,   36,    0,    0,
-   36,   36,   36,   36,   36,   36,    0,   36,    0,    0,
-    0,    0,    0,    0,    0,   42,    0,    0,   36,   36,
-   36,    0,   36,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   36,   36,   42,   42,    0,   42,   42,
-   42,    0,    0,    0,    0,    0,   43,    0,    0,    0,
-    0,    0,   36,   42,   42,   42,    0,   42,   42,    0,
-    0,    0,    0,   36,   36,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   43,   43,   42,   43,
-   43,   43,    0,    0,    0,    0,   33,    0,    0,    0,
-    0,    0,    0,    0,   43,   43,   43,    0,   43,   43,
-    0,    0,    0,    0,    0,    0,    0,    0,   42,   42,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   33,   33,    0,   43,
-   33,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   33,   33,   33,    0,   33,   33,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   43,
-   43,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   37,    0,   33,
-   28,    0,   29,    0,    0,    0,    0,   36,   36,   36,
-   36,   36,   36,   36,   36,   36,    0,    0,   36,   36,
-   36,    0,    0,    0,    0,   36,    0,    0,    0,   33,
-   33,   36,    0,   36,   36,   36,   36,   36,    0,   36,
-    0,    0,   36,   36,   36,   36,   36,   36,    0,   36,
-    0,   36,   36,   36,   36,   36,   36,    0,    0,    0,
-    0,    0,   42,   42,   42,   42,   42,   42,   42,   42,
-   42,    0,    0,   42,   42,   42,    0,    0,    0,    0,
-   42,    0,    0,    0,    0,    0,   42,    0,   42,   42,
-   42,   42,   42,    0,   42,   42,   42,   42,   42,   42,
-   42,   42,   42,    0,   42,    0,   42,   42,   42,   42,
-   42,   42,    0,   43,   43,   43,   43,   43,   43,   43,
-   43,   43,    0,    0,   43,   43,   43,    0,    0,    0,
-    0,   43,    0,    0,    0,    0,    0,   43,    0,   43,
-   43,   43,   43,   43,    0,   43,   43,   43,   43,   43,
-   43,   43,   43,   43,    0,   43,    0,   43,   43,   43,
-   43,   43,   43,   33,   33,   33,   33,   33,   33,   33,
-   33,   33,    0,   34,   33,   33,   33,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   33,    0,   33,
-   33,   33,   33,   33,    0,   33,   33,   33,   33,   33,
-   33,   33,   33,   33,    0,   33,    0,   33,   33,   33,
-   33,   33,   33,   34,   34,    0,   11,   34,  126,  127,
-   12,   13,    0,    0,   14,   14,   15,   16,    0,    0,
-    0,   34,   34,   34,    0,   34,   34,    0,   17,    0,
-   18,   19,   20,    0,   22,    0,    0,    0,    0,   23,
-   24,   25,   26,    0,    0,    0,   27,    0,   30,   31,
-   32,   33,   34,   35,   14,    0,   34,   14,    0,   14,
-    0,    0,    0,    0,   15,    0,    0,    0,    0,    0,
-    0,    0,    0,   14,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   34,   34,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   15,    0,    0,   15,    0,   15,
-    0,    0,    0,    0,   12,    0,    0,    0,    0,    0,
-    0,    0,    0,   15,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   14,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   12,    0,    0,   12,    0,   12,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    7,    0,    0,   12,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   15,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    7,    0,    0,    7,    0,    7,    0,    0,    0,    0,
-   34,   34,   34,   34,   34,   34,   34,   34,   34,    7,
-    0,   34,   34,   34,    0,    0,    0,   12,    0,    0,
-    0,    0,    0,    0,   34,    0,   34,   34,   34,   34,
-   34,    0,   34,   34,   34,   34,   34,   34,   34,   34,
-   34,    0,   34,    0,   34,   34,   34,   34,   34,   34,
-    0,   14,   14,   14,   14,   14,   14,   14,   14,    0,
-    0,    0,   14,   14,   14,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   14,    0,   14,   14,   14,
-   14,   14,    0,    0,    0,    0,   14,   14,   14,   14,
-    0,    0,    0,   14,    0,   14,   14,   14,   14,   14,
-   14,   15,   15,   15,   15,   15,   15,   15,   15,    0,
-    0,    0,   15,   15,   15,   66,    0,    0,   28,    0,
-   29,    0,    0,    0,    0,   15,    0,   15,   15,   15,
-   15,   15,    0,    0,    0,    0,   15,   15,   15,   15,
-    0,    0,    0,   15,    0,   15,   15,   15,   15,   15,
-   15,   12,   12,   12,   12,    0,   12,   12,   12,    0,
-    0,    6,   12,   12,   12,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   12,    0,   12,   12,   12,
-   12,   12,    0,    0,    0,    0,   12,   12,   12,   12,
-    0,    0,    0,   12,    0,   12,   12,   12,   12,   12,
-   12,    6,    0,    0,    6,    0,    6,    7,    7,    7,
-    7,    7,    7,    7,    7,    0,    0,    5,    7,    7,
-    7,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    7,    0,    7,    7,    7,    7,    7,    0,    0,
-    0,    0,    7,    7,    7,    7,    0,    0,    0,    7,
-    0,    7,    7,    7,    7,    7,    7,    5,    0,    0,
-    5,    0,    5,    0,    0,    0,    0,    2,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    6,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    2,    0,    0,
-    2,    0,    2,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   12,   13,
-    5,  178,  179,   14,   15,   16,    0,    0,    0,    0,
-    0,  183,  184,  185,  186,  187,   17,    0,   18,   19,
-   20,    0,   22,  189,    0,    0,    0,   23,   24,   25,
-   26,    0,    0,    0,   27,    0,    0,   31,   32,   33,
-   34,   35,    0,    0,    0,    0,    0,    0,    0,    0,
-    2,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    6,    6,
-    6,    0,    0,    0,    6,    6,    0,    0,    0,    6,
-    6,    6,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    6,    0,    6,    6,    6,    6,    6,    0,
-    0,    0,    0,    6,    6,    6,    6,    0,    0,    0,
-    6,    0,    6,    6,    6,    6,    6,    6,    0,    0,
-    0,    0,    0,    0,    5,    5,    5,    0,    0,    0,
-    5,    5,    0,    0,    0,    5,    5,    5,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    5,    0,
-    5,    5,    5,    5,    5,    0,    0,    0,    0,    5,
-    5,    5,    5,    0,    0,    0,    5,    0,    5,    5,
-    5,    5,    5,    5,    2,    2,    2,    0,    0,    0,
-    2,    2,    0,    0,    0,    2,    2,    2,   60,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    2,    0,
-    2,    2,    2,    2,    2,    0,    0,    0,    0,    2,
-    2,    2,    2,    0,    0,    0,    2,    0,    2,    2,
-    2,    2,    2,    2,    0,   60,    0,    0,   60,   60,
-   60,   60,   60,   60,    0,   60,    0,    0,    0,    0,
-    0,    0,    0,   56,    0,    0,   60,   60,   60,    0,
-   60,   60,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   56,   60,   60,   56,   56,   56,   56,   56,   56,    0,
-   56,   58,    0,    0,    0,    0,    0,    0,    0,    0,
-   60,   56,   56,    0,    0,   56,   56,    0,    0,    0,
-    0,   60,   60,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   58,    0,
-    0,    0,   58,   58,    0,   58,   56,   56,   58,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   58,
-   58,   58,    0,   58,   58,   56,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   56,   56,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   58,   58,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   58,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   58,   58,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   60,   60,   60,   60,   60,
-   60,   60,   60,   60,    0,    0,   60,   60,   60,    0,
-    0,    0,    0,   60,    0,    0,    0,    0,    0,   60,
-    0,   60,   60,   60,   60,   60,    0,   60,   60,   60,
-   60,    0,   60,   60,   60,   60,    0,   60,    0,   60,
-   60,   60,    0,    0,    0,    0,    0,    0,    0,    0,
-   56,   56,   56,   56,   56,   56,   56,   56,   56,    0,
-    0,   56,   56,   56,    0,    0,    0,    0,   56,    0,
-    0,    0,    0,    0,   56,    0,   56,   56,   56,   56,
-   56,   29,   56,   56,   56,   56,    0,   56,   56,   56,
-   56,    0,   56,    0,   56,   56,   56,    0,   58,   58,
-   58,   58,   58,   58,    0,    0,   58,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   58,    0,   29,    0,
-    0,    0,   29,   29,    0,   29,   25,   58,   29,    0,
-   58,   58,   58,   58,   58,   58,   58,   58,   58,   29,
-   29,   29,   58,   29,   29,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   25,    0,    0,    0,   25,   25,    0,
-   25,   27,    0,   25,   29,   29,    0,    0,    0,    0,
-    0,    0,    0,    0,   25,   25,   25,    0,   25,   25,
-    0,    0,    0,   29,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   29,   29,    0,    0,   27,    0,
-    0,    0,   27,   27,    0,   27,    0,    0,   27,   25,
-   25,    0,    0,    0,    0,    0,    0,    0,    0,   27,
-   27,   27,    0,   27,   27,    0,    0,    0,   25,    0,
-   26,    0,    0,    0,    0,    0,    0,    0,    0,   25,
-   25,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   27,   27,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   26,    0,    0,
-    0,   26,   26,   27,   26,    0,    0,   26,    0,    0,
-    0,    0,    0,    0,   27,   27,    0,    0,   26,   26,
-   26,    0,   26,   26,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   26,   26,    0,    0,    0,   29,   29,
-   29,   29,   29,   29,    0,    0,   29,    0,    0,    0,
-    0,    0,   26,    0,    0,    0,   29,    0,    0,    0,
-    0,    0,    0,   26,   26,    0,    0,   29,    0,    0,
-   29,   29,   29,   29,   29,   29,   29,   29,   29,    0,
-    0,    0,   29,   25,   25,   25,   25,   25,   25,    0,
-   66,   25,    0,   28,  157,   29,    0,    0,    0,    0,
-    0,   25,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   25,   86,    0,   25,   25,   25,   25,   25,
-   25,   25,   25,   25,    0,    0,    0,   25,   27,   27,
-   27,   27,   27,   27,    0,    0,   27,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   27,    0,    0,   59,
-    0,    0,    0,    0,    0,    0,    0,   27,    0,    0,
-   27,   27,   27,   27,   27,   27,   27,   27,   27,    0,
-    0,    0,   27,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   59,    0,    0,    0,
-   59,   59,    0,   59,    0,    0,   59,   26,   26,   26,
-   26,   26,   26,    0,    0,   26,    0,   59,   59,   59,
-    0,   59,   59,    0,    0,   26,   92,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   26,    0,    0,   26,
-   26,   26,   26,   26,   26,   26,   26,   26,    0,    0,
-    0,   26,   59,   59,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   92,    0,    0,    0,   92,   92,    0,
-   92,   59,    0,   92,   20,    0,    0,    0,    0,    0,
-    0,    0,   59,   59,   92,   92,   92,    0,   92,   92,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,   20,    0,    0,    0,   20,   20,    0,   20,   92,
-   92,   20,    0,   12,   13,    0,    0,    0,   14,   15,
-   16,    0,   20,   20,   20,    0,   20,    0,   92,    0,
-    0,   17,    0,   18,   19,   20,   35,   22,    0,   92,
-   92,    0,   23,   24,   25,   26,    0,    0,    0,   27,
-    0,    0,   31,   32,   33,   34,   35,   20,   20,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   35,    0,    0,   20,   35,   35,    0,
-   35,    0,    0,   35,    0,    0,    0,   20,   20,    0,
-    0,    0,    0,    0,   35,   35,   35,    0,   35,    0,
-    0,    0,    0,    0,    0,    0,   59,   59,   59,   59,
-   59,   59,    0,    0,   59,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   59,   93,    0,    0,    0,   35,
-   35,    0,    0,    0,    0,   59,    0,    0,   59,   59,
-   59,   59,   59,   59,   59,   59,   59,    0,   35,    0,
-   59,    0,    0,    0,    0,    0,    0,    0,    0,   35,
-   35,    0,   93,    0,    0,    0,   93,   93,    0,   93,
-    0,    0,   93,   92,   92,   92,   92,   92,   92,    0,
-    0,   92,    0,   93,   93,   93,    0,   93,    0,    0,
-    0,   92,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   92,    0,    0,   92,   92,   92,    0,    0,
-    0,    0,   92,   92,    0,    0,    0,   92,   93,   93,
-    0,   20,   20,   20,   20,   20,   20,   94,    0,   20,
-    0,    0,    0,    0,    0,    0,    0,   93,    0,   20,
-    0,    0,    0,    0,    0,    0,    0,    0,   93,   93,
-   20,    0,    0,   20,   20,   20,    0,    0,    0,    0,
-   20,   20,    0,    0,   94,   20,    0,    0,   94,   94,
-    0,   94,    0,    0,   94,    0,    0,    0,    0,    0,
-    0,    0,   90,    0,    0,   94,   94,   94,    0,   94,
-    0,    0,    0,   35,   35,   35,   35,   35,   35,    0,
-    0,   35,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,   35,    0,    0,    0,    0,    0,    0,    0,   90,
-   94,   94,   35,   90,   90,   35,   35,   35,    0,   90,
-   16,    0,   35,   35,    0,    0,    0,   35,    0,   94,
-   90,   90,   90,    0,   90,    0,    0,    0,    0,    0,
-   94,   94,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   16,    0,    0,
-    0,   16,   16,    0,   16,   90,   90,   16,    0,    0,
-    0,    0,   93,   93,   93,   93,   93,   93,   16,   16,
-   93,    0,    0,    0,   90,    0,    0,    0,    0,    0,
-   93,    0,    0,    0,    0,   90,   90,    0,    0,    0,
-    0,   93,    0,    0,   93,   93,   93,    0,    0,    0,
-    0,   93,   93,   16,   16,    0,   93,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   16,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   16,   16,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   94,   94,   94,   94,   94,   94,
-    0,    0,   94,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   94,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   94,    0,    0,   94,   94,   94,    0,
-    0,    0,    0,   94,   94,    0,    0,    0,   94,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   90,
-   90,   90,   90,   90,   90,    0,    0,   90,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   90,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   90,    0,
-    0,   90,   90,   90,    0,    0,    0,    0,   90,   90,
-    0,   43,    0,   90,    0,    0,    0,   16,   16,   16,
-   16,   16,   16,    0,    0,   16,    0,    0,    0,    0,
-    0,    0,    0,    0,   43,   16,    0,    0,    0,    0,
-    0,   43,    0,    0,    0,    0,   16,    0,    0,   16,
-   16,   16,    0,  105,    0,    0,  110,  105,  105,  113,
-  114,   16,  117,  119,  120,    0,  105,  105,  124,  125,
-   43,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,  135,    0,    0,   43,
-  139,  141,  142,  143,  144,    0,  107,  108,    0,    0,
-    0,    0,    0,    0,   43,    0,    0,  155,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,  165,
-    0,    0,    0,    0,    0,  105,    0,  134,    0,  136,
-  137,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   43,   43,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,  155,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-  209,  210,  211,  212,  214,    0,    0,    0,    0,  216,
-  217,    0,  105,  105,    0,    0,    0,  224,    0,    0,
-    0,  225,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,  236,  204,  205,  237,    0,    0,  238,  239,
-    0,    0,    0,    0,    0,    0,    0,    0,   57,    0,
-    0,    0,    0,  218,    0,   43,   43,  264,    0,   68,
-   68,    0,   71,   72,  226,   68,  228,    0,  229,    0,
-    0,    0,    0,    0,   68,    0,  276,    0,  277,    0,
-  278,    0,  279,    0,  280,    0,    0,    0,    0,  282,
-    0,  253,    0,    0,  283,  284,   66,    0,    0,   28,
-    0,   29,  105,    0,    0,    0,  270,  271,  272,  273,
-  274,    0,    0,    0,    0,  192,    0,    0,    0,    0,
-    0,    0,   43,    0,   68,   68,   68,   68,   68,   68,
-    0,    0,    0,    0,    0,    0,   68,    0,    0,   43,
-    0,   68,    0,    0,   68,   68,    0,    0,   68,  114,
-   68,   68,  114,    0,  114,   68,   68,  298,    0,    0,
-    0,  300,  301,  302,    0,    0,   68,  307,  114,    0,
-   68,    0,   68,   68,   68,   68,    0,    0,    0,  190,
-    0,    0,    0,  202,    0,    0,   68,    0,    0,    0,
-    0,    0,  320,  321,    0,    0,   68,  113,  325,    0,
-  113,    0,  113,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,  113,    0,    0,    0,
-    0,    0,    0,    0,   68,    0,    0,    0,    0,    0,
-    0,    0,  114,    0,  114,    0,    0,    0,    0,    0,
-   68,   68,   68,   68,    0,   68,    0,   68,   68,    0,
-    0,    0,    0,    0,    0,   68,   68,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   68,   68,   68,
-   68,  107,    0,    0,  107,    0,  107,    0,    0,    0,
-  113,    0,  113,    0,    0,    0,    0,    0,    0,    0,
-  107,    0,    0,    0,    0,   68,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   68,   68,   68,
-   68,   68,    0,   68,   68,   68,  177,  126,  127,   12,
-   13,    0,  178,  179,   14,   15,   16,  180,    0,  181,
-  182,    0,  183,  184,  185,  186,  187,   17,  188,   18,
-   19,   20,    0,   22,  189,    0,    0,    0,   23,   24,
-   25,   26,    0,    0,  107,   27,  107,    0,   31,   32,
-   33,   34,   35,    0,    0,    0,    0,    0,    0,  114,
-    0,    0,  114,  114,    0,  114,  114,  114,  114,  114,
-  114,  114,  114,  114,    0,  114,  114,  114,  114,  114,
-  114,  114,  114,  114,  114,    0,  114,  114,    0,    0,
-    0,  114,  114,  114,  114,    0,    0,    0,  114,    0,
-    0,  114,  114,  114,  114,  114,    0,  113,    0,    0,
-  113,  113,    0,  113,  113,  113,  113,  113,  113,  113,
-  113,  113,    0,  113,  113,  113,  113,  113,  113,  113,
-  113,  113,  113,    0,  113,  113,    0,    0,    0,  113,
-  113,  113,  113,    0,    0,    0,  113,    0,    0,  113,
-  113,  113,  113,  113,  108,    0,    0,  108,    0,  108,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,  108,    0,    0,    0,    0,    0,    0,
-    0,  107,    0,    0,  107,  107,    0,  107,  107,  107,
-  107,  107,  107,  107,  107,  107,    0,  107,  107,  107,
-  107,  107,  107,  107,  107,  107,  107,    0,  107,  107,
-    0,    0,    0,  107,  107,  107,  107,    0,    0,    0,
-  107,    0,    0,  107,  107,  107,  107,  107,  109,    0,
-    0,  109,    0,  109,    0,    0,    0,  108,    0,  108,
-    0,    0,    0,    0,    0,    0,    0,  109,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,  106,    0,    0,  106,    0,
-  106,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,  106,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,  109,    0,  109,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,  112,    0,    0,
-  112,    0,  112,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,  112,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,  106,    0,
-  106,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,  108,    0,    0,  108,  108,    0,
-  108,  108,  108,  108,  108,  108,  108,  108,  108,    0,
-  108,  108,  108,  108,  108,  108,  108,  108,  108,  108,
-    0,  108,  108,    0,    0,    0,  108,  108,  108,  108,
-  112,    0,  112,  108,    0,    0,  108,  108,  108,  108,
-  108,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   66,  243,    0,   28,  244,   29,    0,    0,  109,    0,
-    0,  109,  109,    0,  109,  109,  109,  109,  109,  109,
-  109,  109,  109,   86,  109,  109,  109,  109,  109,  109,
-  109,  109,  109,  109,    0,  109,  109,    0,    0,    0,
-  109,  109,  109,  109,    0,    0,    0,  109,    0,    0,
-  109,  109,  109,  109,  109,  106,    0,    0,  106,  106,
-    0,  106,  106,  106,  106,  106,  106,  106,  106,  106,
-    0,  106,  106,  106,  106,  106,  106,  106,  106,  106,
-  106,    0,  106,  106,    0,    0,    0,  106,  106,  106,
-  106,    0,    0,    0,  106,    0,    0,  106,  106,  106,
-  106,  106,    0,  141,    0,    0,  141,  112,  141,    0,
-  112,  112,    0,  112,  112,  112,  112,  112,  112,  112,
-  112,  112,  141,  112,  112,  112,  112,  112,  112,  112,
-  112,  112,  112,    0,  112,  112,    0,    0,    0,  112,
-  112,  112,  112,    0,    0,    0,  112,    0,    0,  112,
-  112,  112,  112,  112,   66,    0,    0,   28,    0,   29,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,  192,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,  141,    0,  141,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,   66,    0,    0,   28,    0,   29,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-  192,    0,    0,   12,   13,    0,    0,    0,   14,   15,
-   16,    0,    0,    0,    0,    0,    0,  190,    0,  191,
-    0,   17,    0,   18,   19,   20,    0,   22,    0,    0,
-    0,    0,   23,   24,   25,   26,    0,    0,    0,   27,
-    0,    0,   31,   32,   33,   34,   35,    0,    0,   66,
-    0,    0,   28,    0,   29,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,  190,    0,  206,    0,  192,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,  141,    0,    0,  141,  141,    0,  141,
-  141,  141,  141,  141,  141,  141,  141,  141,    0,  141,
-  141,  141,  141,  141,  141,  141,  141,  141,  141,    0,
-  141,  141,  190,    0,  207,  141,  141,  141,  141,    0,
-    0,    0,  141,    0,    0,  141,  141,  141,  141,  141,
-    0,    0,    0,    0,  177,    0,    0,   12,   13,    0,
-  178,  179,   14,   15,   16,  180,    0,  181,  182,    0,
-  183,  184,  185,  186,  187,   17,  188,   18,   19,   20,
-    0,   22,  189,    0,    0,    0,   23,   24,   25,   26,
-    0,    0,    0,   27,    0,    0,   31,   32,   33,   34,
-   35,  177,    0,    0,   12,   13,    0,  178,  179,   14,
-   15,   16,  180,    0,  181,  182,    0,  183,  184,  185,
-  186,  187,   17,  188,   18,   19,   20,    0,   22,  189,
-    0,    0,    0,   23,   24,   25,   26,    0,    0,    0,
-   27,    0,    0,   31,   32,   33,   34,   35,   66,    0,
-    0,   28,    0,   29,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,  192,    0,  177,
-    0,    0,   12,   13,    0,  178,  179,   14,   15,   16,
-  180,    0,  181,  182,    0,  183,  184,  185,  186,  187,
-   17,  188,   18,   19,   20,    0,   22,  189,    0,    0,
-    0,   23,   24,   25,   26,    0,    0,    0,   27,    0,
-    0,   31,   32,   33,   34,   35,   66,    0,    0,   28,
-    0,   29,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,  190,    0,  235,    0,  192,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   66,    0,    0,   28,    0,   29,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,  192,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,  190,
-    0,  291,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,  111,    0,    0,  111,    0,  111,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,  111,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,  190,    0,  315,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,  177,    0,
-    0,   12,   13,    0,  178,  179,   14,   15,   16,  180,
-    0,  181,  182,    0,  183,  184,  185,  186,  187,   17,
-  188,   18,   19,   20,    0,   22,  189,  111,    0,  111,
-   23,   24,   25,   26,    0,    0,    0,   27,    0,    0,
-   31,   32,   33,   34,   35,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,  134,
-    0,    0,  134,    0,  134,    0,  177,    0,    0,   12,
-   13,    0,  178,  179,   14,   15,   16,  180,  134,  181,
-  182,    0,  183,  184,  185,  186,  187,   17,  188,   18,
-   19,   20,    0,   22,  189,    0,    0,    0,   23,   24,
-   25,   26,    0,    0,    0,   27,    0,    0,   31,   32,
-   33,   34,   35,  177,    0,    0,   12,   13,    0,  178,
-  179,   14,   15,   16,  180,    0,  181,  182,    0,  183,
-  184,  185,  186,  187,   17,  188,   18,   19,   20,    0,
-   22,  189,  134,    0,  134,   23,   24,   25,   26,    0,
-    0,    0,   27,    0,    0,   31,   32,   33,   34,   35,
-   37,    0,    0,   28,  111,   29,    0,  111,  111,    0,
-  111,  111,  111,  111,  111,  111,    0,  111,  111,    0,
-  111,  111,  111,  111,  111,  111,  111,  111,  111,  111,
-    0,  111,  111,    0,    0,    0,  111,  111,  111,  111,
-    0,    0,    0,  111,    0,    0,  111,  111,  111,  111,
-  111,   66,    0,    0,   28,  157,   29,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,   89,    0,   90,   86,    0,    0,    0,    0,    0,
-    0,    0,    0,   36,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   66,    0,    0,   28,    0,
-   29,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   89,    0,   90,   86,  134,
-    0,    0,  134,  134,    0,  134,  134,  134,  134,  134,
-  134,    0,  134,  134,    0,  134,  134,  134,  134,  134,
-  134,  134,  134,  134,  134,    0,  134,  134,    0,    0,
-    0,  134,  134,  134,  134,    0,    0,    0,  134,    0,
-    0,  134,  134,  134,  134,  134,   66,  245,    0,   28,
-  246,   29,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   86,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   66,  247,    0,   28,  248,   29,    0,    9,   10,   11,
-    0,    0,    0,   12,   13,    0,    0,    0,   14,   15,
-   16,    0,    0,   86,    0,    0,    0,    0,    0,    0,
-    0,   17,    0,   18,   19,   20,   21,   22,    0,    0,
-    0,    0,   23,   24,   25,   26,    0,    0,    0,   27,
-    0,   30,   31,   32,   33,   34,   35,   66,  249,    0,
-   28,  250,   29,    0,   12,   13,    0,    0,    0,   14,
-   15,   16,    0,    0,    0,    0,    0,    0,    0,    0,
-   86,    0,   17,    0,   18,   19,   20,    0,   22,    0,
-    0,    0,    0,   23,   24,   25,   26,   87,   88,    0,
-   27,    0,    0,   31,   32,   33,   34,   35,   12,   13,
-    0,    0,    0,   14,   15,   16,    0,    0,    0,    0,
-   66,  254,    0,   28,  255,   29,   17,    0,   18,   19,
-   20,    0,   22,    0,    0,    0,    0,   23,   24,   25,
-   26,   87,   88,   86,   27,    0,    0,   31,   32,   33,
-   34,   35,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   37,    0,
-    0,   28,    0,   29,    0,    0,    0,    0,    0,   12,
-   13,    0,    0,    0,   14,   15,   16,  303,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   17,    0,   18,
-   19,   20,    0,   22,    0,    0,    0,    0,   23,   24,
-   25,   26,    0,    0,    0,   27,    0,    0,   31,   32,
-   33,   34,   35,   12,   13,    0,    0,    0,   14,   15,
-   16,   37,    0,    0,   28,    0,   29,    0,    0,    0,
-    0,   17,    0,   18,   19,   20,    0,   22,    0,    0,
-    0,    0,   23,   24,   25,   26,    0,    0,    0,   27,
-    0,    0,   31,   32,   33,   34,   35,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,  154,
-   12,   13,   28,    0,   29,   14,   15,   16,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   17,    0,
-   18,   19,   20,    0,   22,    0,    0,    0,    0,   23,
-   24,   25,   26,    0,    0,    0,   27,    0,    0,   31,
-   32,   33,   34,   35,   66,    0,    0,   28,  164,   29,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   12,   13,    0,    0,   86,   14,   15,
-   16,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,   17,    0,   18,   19,   20,    0,   22,    0,    0,
-    0,    0,   23,   24,   25,   26,    0,    0,    0,   27,
-    0,    0,   31,   32,   33,   34,   35,   11,    0,    0,
-    0,   12,   13,    0,    0,    0,   14,   15,   16,    0,
-    0,   66,    0,    0,   28,  167,   29,    0,    0,   17,
-    0,   18,   19,   20,    0,   22,    0,    0,    0,    0,
-   23,   24,   25,   26,   86,    0,    0,   27,    0,   30,
-   31,   32,   33,   34,   35,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   66,    0,
-   11,   28,  169,   29,   12,   13,    0,    0,    0,   14,
-   15,   16,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,   86,   17,    0,   18,   19,   20,    0,   22,    0,
-    0,    0,    0,   23,   24,   25,   26,    0,    0,    0,
-   27,    0,   30,   31,   32,   33,   34,   35,   11,    0,
-    0,    0,   12,   13,    0,    0,    0,   14,   15,   16,
-    0,    0,   66,    0,    0,   28,  170,   29,    0,    0,
-   17,    0,   18,   19,   20,    0,   22,    0,    0,    0,
-    0,   23,   24,   25,   26,   86,    0,    0,   27,    0,
-   30,   31,   32,   33,   34,   35,    0,   12,   13,    0,
-    0,    0,   14,   15,   16,    0,    0,   66,    0,    0,
-   28,  175,   29,    0,    0,   17,    0,   18,   19,   20,
-    0,   22,    0,    0,    0,    0,   23,   24,   25,   26,
-   86,    0,    0,   27,    0,    0,   31,   32,   33,   34,
-   35,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   66,    0,    0,   28,  176,   29,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,   12,   13,   86,    0,    0,   14,
-   15,   16,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   17,    0,   18,   19,   20,    0,   22,    0,
-    0,    0,    0,   23,   24,   25,   26,    0,    0,    0,
-   27,    0,    0,   31,   32,   33,   34,   35,    0,    0,
-    0,   12,   13,    0,    0,    0,   14,   15,   16,    0,
-    0,   66,    0,    0,   28,    0,   29,    0,    0,   17,
-    0,   18,   19,   20,    0,   22,    0,    0,    0,  198,
-   23,   24,   25,   26,   86,    0,    0,   27,    0,    0,
-   31,   32,   33,   34,   35,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   66,    0,    0,   28,    0,
-   29,    0,    0,    0,    0,   12,   13,    0,    0,    0,
-   14,   15,   16,  201,    0,    0,    0,    0,   86,    0,
-    0,    0,    0,   17,    0,   18,   19,   20,    0,   22,
-    0,    0,    0,    0,   23,   24,   25,   26,    0,    0,
-    0,   27,    0,    0,   31,   32,   33,   34,   35,    0,
-   12,   13,    0,    0,    0,   14,   15,   16,    0,    0,
-   66,  252,    0,   28,    0,   29,    0,    0,   17,    0,
-   18,   19,   20,    0,   22,    0,    0,    0,    0,   23,
-   24,   25,   26,   86,    0,    0,   27,    0,    0,   31,
-   32,   33,   34,   35,    0,    0,   12,   13,    0,    0,
-    0,   14,   15,   16,    0,    0,   66,  256,    0,   28,
-    0,   29,    0,    0,   17,    0,   18,   19,   20,    0,
-   22,    0,    0,    0,    0,   23,   24,   25,   26,   86,
-    0,    0,   27,    0,    0,   31,   32,   33,   34,   35,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   66,  287,    0,   28,    0,   29,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   86,   12,   13,    0,    0,    0,   14,
-   15,   16,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   17,    0,   18,   19,   20,    0,   22,    0,
-    0,    0,    0,   23,   24,   25,   26,    0,    0,    0,
-   27,    0,    0,   31,   32,   33,   34,   35,   12,   13,
-    0,    0,    0,   14,   15,   16,    0,    0,   66,  293,
-    0,   28,    0,   29,    0,    0,   17,    0,   18,   19,
-   20,    0,   22,    0,    0,    0,    0,   23,   24,   25,
-   26,   86,    0,    0,   27,    0,    0,   31,   32,   33,
-   34,   35,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,   66,  294,    0,   28,    0,   29,    0,    0,
-    0,    0,    0,   12,   13,    0,    0,    0,   14,   15,
-   16,    0,    0,    0,    0,   86,    0,    0,    0,    0,
-    0,   17,    0,   18,   19,   20,    0,   22,    0,    0,
-    0,    0,   23,   24,   25,   26,    0,    0,    0,   27,
-    0,    0,   31,   32,   33,   34,   35,    0,    0,   12,
-   13,    0,    0,    0,   14,   15,   16,    0,    0,   66,
-  295,    0,   28,    0,   29,    0,    0,   17,    0,   18,
-   19,   20,    0,   22,    0,    0,    0,    0,   23,   24,
-   25,   26,   86,    0,    0,   27,    0,    0,   31,   32,
-   33,   34,   35,   12,   13,    0,    0,    0,   14,   15,
-   16,    0,    0,   66,  296,    0,   28,    0,   29,    0,
-    0,   17,    0,   18,   19,   20,    0,   22,    0,    0,
-    0,    0,   23,   24,   25,   26,   86,    0,    0,   27,
-    0,    0,   31,   32,   33,   34,   35,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   66,  297,    0,
-   28,    0,   29,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   86,   12,   13,    0,    0,    0,   14,   15,   16,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   17,
-    0,   18,   19,   20,    0,   22,    0,    0,    0,    0,
-   23,   24,   25,   26,    0,    0,    0,   27,    0,    0,
-   31,   32,   33,   34,   35,   12,   13,    0,    0,    0,
-   14,   15,   16,    0,    0,   66,  299,    0,   28,    0,
-   29,    0,    0,   17,    0,   18,   19,   20,    0,   22,
-    0,    0,    0,    0,   23,   24,   25,   26,   86,    0,
-    0,   27,    0,    0,   31,   32,   33,   34,   35,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   66,
-  109,    0,   28,    0,   29,    0,    0,    0,    0,    0,
-    0,    0,   12,   13,    0,    0,    0,   14,   15,   16,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   17,    0,   18,   19,   20,    0,   22,    0,    0,    0,
-    0,   23,   24,   25,   26,    0,    0,    0,   27,    0,
-    0,   31,   32,   33,   34,   35,   12,   13,    0,    0,
-    0,   14,   15,   16,   66,    0,    0,   28,    0,   29,
-    0,    0,    0,    0,   17,    0,   18,   19,   20,    0,
-   22,    0,    0,    0,    0,   23,   24,   25,   26,    0,
-    0,    0,   27,    0,    0,   31,   32,   33,   34,   35,
-   12,   13,    0,    0,    0,   14,   15,   16,    0,    0,
-    0,    0,   66,    0,    0,   28,    0,   29,   17,    0,
-   18,   19,   20,    0,   22,    0,    0,    0,    0,   23,
-   24,   25,   26,    0,    0,    0,   27,    0,    0,   31,
-   32,   33,   34,   35,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   66,    0,    0,   28,    0,   29,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   12,   13,
-    0,    0,    0,   14,   15,   16,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,   17,    0,   18,   19,
-   20,    0,   22,    0,    0,    0,    0,   23,   24,   25,
-   26,    0,    0,    0,   27,    0,    0,   31,   32,   33,
-   34,   35,   12,   13,    0,    0,    0,   14,   15,   16,
-   66,    0,    0,   28,    0,   29,    0,    0,    0,    0,
-   17,    0,   18,   19,   20,    0,   22,    0,    0,    0,
-    0,   23,   24,   25,   26,    0,    0,    0,   27,    0,
-    0,   31,   32,   33,   34,   35,    0,    0,    0,    0,
-    0,    0,    0,    0,   66,    0,    0,   28,    0,   29,
-    0,    0,    0,  116,    0,    0,    0,   12,   13,    0,
-    0,    0,   14,   15,   16,    0,    0,   86,    0,    0,
-    0,    0,    0,    0,    0,   17,    0,   18,   19,   20,
-    0,   22,    0,    0,    0,    0,   23,   24,   25,   26,
-    0,    0,    0,   27,    0,    0,   31,   32,   33,   34,
-   35,  118,    0,    0,   66,   12,   13,   28,    0,   29,
-   14,   15,   16,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   17,    0,   18,   19,   20,    0,   22,
-    0,    0,    0,    0,   23,   24,   25,   26,    0,    0,
-    0,   27,    0,    0,   31,   32,   33,   34,   35,  140,
-    0,    0,   66,   12,   13,   28,    0,   29,   14,   15,
-   16,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,   17,    0,   18,   19,   20,    0,   22,    0,    0,
-    0,    0,   23,   24,   25,   26,    0,    0,    0,   27,
-    0,    0,   31,   32,   33,   34,   35,  103,    0,    0,
-   28,    0,   29,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,  213,
-    0,    0,    0,   12,   13,    0,    0,    0,   14,   15,
-   16,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,   17,    0,   18,   19,   20,    0,   22,    0,    0,
-    0,    0,   23,   24,   25,   26,    0,    0,    0,   27,
-    0,    0,   31,   32,   33,   34,   35,   12,   13,    0,
-    0,    0,   14,   15,   16,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   17,    0,   18,   19,   20,
-    0,   22,    0,    0,    0,    0,   23,   24,   25,   26,
-    0,    0,    0,   27,    0,    0,   31,   32,   33,   34,
-   35,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,  275,    0,    0,    0,   12,   13,    0,
-    0,    0,   14,   15,   16,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,   17,    0,   18,   19,   20,
-    0,   22,    0,    0,    0,    0,   23,   24,   25,   26,
-    0,    0,    0,   27,    0,    0,   31,   32,   33,   34,
-   35,    0,    0,    0,    0,   12,   13,    0,    0,    0,
-   14,   15,   16,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   17,    0,   18,   19,   20,    0,   22,
-    0,    0,    0,    0,   23,   24,   25,   26,    0,    0,
-    0,   27,    0,    0,   31,   32,   33,   34,   35,    0,
-   12,   13,   67,   69,    0,   14,   15,   16,   73,    0,
-    0,    0,    0,    0,    0,    0,    0,   91,   17,    0,
-   18,   19,   20,    0,   22,    0,    0,    0,    0,   23,
-   24,   25,   26,    0,    0,    0,   27,    0,    0,   31,
-   32,   33,   34,   35,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,  146,  147,  148,
-  149,  150,  151,    0,    0,    0,    0,    0,    0,   91,
-    0,    0,    0,    0,   91,    0,    0,   91,   91,    0,
-    0,   91,    0,   91,   91,    0,    0,    0,   91,   91,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   91,
-    0,    0,    0,   91,    0,   91,   91,   91,   91,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   91,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,   91,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,   91,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,   91,   91,   91,   91,    0,   91,    0,
-   91,   91,    0,    0,    0,    0,    0,    0,   91,   91,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   91,   91,   91,   91,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,   91,    0,
-    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-   91,   91,   91,   91,   91,    0,   91,   91,   91,
-};
-short yycheck[] = {                                      41,
-    0,   41,   63,   41,   37,   41,   59,   59,   63,   42,
-   43,   63,   45,   63,   47,   59,   62,   41,   63,  107,
-  108,   63,   40,   63,   37,   63,  123,   63,   37,    7,
-   44,  223,  103,   37,  302,  303,   94,   37,  303,  123,
-   40,   41,   42,   43,   44,   45,  134,   47,  313,   63,
-  261,  262,   30,   41,  112,    0,  289,  123,   58,   59,
-   60,   94,   62,   63,   53,   54,   40,   40,  287,  302,
-  303,   59,   41,   62,   63,   44,   91,   41,  124,  112,
-   44,   37,   40,  154,  123,   40,   42,   40,   60,   40,
-   40,   47,   37,   93,   94,  261,   41,   42,   43,   44,
-   45,  226,   47,   40,   40,   40,   60,   85,   40,  112,
-    0,  303,  112,   58,   59,   60,  293,   62,   63,   41,
-   41,  313,  100,  123,  124,   41,  293,  304,  305,  306,
-  281,   44,  121,   41,   41,   44,   93,   41,   94,   44,
-  228,  154,   41,   41,  293,  154,   40,   37,   93,   94,
-  154,   41,   42,   43,   44,   45,  112,   47,  136,  137,
-   40,   59,  293,   41,  261,  262,   40,  112,   58,   59,
-   60,  291,   62,   63,   41,  300,  301,  302,  123,  124,
-   91,   59,   59,  273,   41,   40,  272,   93,  206,  178,
-  179,   41,   41,    0,   41,  320,  321,   93,   59,   59,
-  325,   41,   -1,   93,   94,   -1,   -1,  260,  261,  262,
-  298,   -1,  220,   41,   -1,   -1,  260,  261,  262,  265,
-   -1,   -1,  112,   40,   -1,   -1,   43,   -1,   45,  290,
-  291,   59,   -1,  123,  124,  290,  291,   -1,  290,  291,
-  290,  291,  275,  221,  222,  290,  291,   -1,  290,  291,
-  290,  291,  290,  291,  290,  291,   -1,  257,  258,  259,
-  260,  261,  262,  263,  264,  265,  290,  291,  268,  269,
-  270,   -1,  260,  261,  262,  275,  290,  291,   -1,  268,
-   -1,  281,   41,  283,  284,  285,  286,  287,   -1,  289,
-  290,  291,  292,  293,  294,  295,  296,  297,   -1,  299,
-   59,  301,  302,  303,  304,  305,  306,   -1,   -1,   -1,
-  288,   -1,  257,  258,  259,  260,  261,  262,  263,  264,
-  265,  293,   -1,  268,  269,  270,   -1,  305,   -1,   -1,
-  275,   -1,  304,  305,  306,   -1,  281,   41,  283,  284,
-  285,  286,  287,   -1,  289,  290,  291,  292,  293,  294,
-  295,  296,  297,   -1,  299,   59,  301,  302,  303,  304,
-  305,  306,  260,  261,  262,   -1,   -1,  257,  258,  259,
-  260,  261,  262,  263,  264,  265,   -1,   -1,  268,  269,
-  270,    0,  260,  261,  262,  275,   -1,   -1,   -1,   -1,
-   41,  281,   -1,  283,  284,  285,  286,  287,   -1,  289,
-  290,  291,  292,  293,  294,  295,  296,  297,   59,  299,
-   -1,  301,  302,  303,  304,  305,  306,   -1,   37,   -1,
-   -1,   40,   41,   42,   43,   44,   45,   -1,   47,   -1,
-   -1,   -1,  260,  261,  262,   -1,    0,   -1,   41,   58,
-   59,   -1,   -1,   62,   63,   -1,  263,  264,   -1,   -1,
-   -1,  268,  269,  270,   -1,   -1,   59,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,   -1,
-  287,   -1,   -1,   37,   93,   94,   40,   41,   42,   43,
-   44,   45,  299,   47,   -1,  302,  303,  304,  305,  306,
-   -1,    0,   -1,  112,   58,   59,   60,   -1,   62,   63,
-   -1,  260,  261,  262,  123,  124,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   41,   -1,   -1,   -1,   37,   93,
-   94,   40,   41,   42,   43,   -1,   45,   -1,   47,   -1,
-   -1,   -1,   59,   -1,   41,   -1,   -1,   -1,   -1,   58,
-   59,   60,   -1,   62,   63,   -1,  260,  261,  262,  123,
-  124,   -1,   59,   -1,   -1,   62,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   93,   94,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  112,   -1,   -1,   -1,   -1,   -1,  260,
-  261,  262,   -1,   -1,  123,  124,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  124,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  257,  258,
-  259,  260,  261,  262,  263,  264,  265,   -1,   -1,  268,
-  269,  270,   -1,   -1,   -1,   -1,  275,  260,  261,  262,
-   -1,   -1,  281,   -1,  283,  284,  285,  286,  287,   -1,
-  289,  290,  291,  292,  293,  294,  295,  296,  297,   -1,
-  299,   -1,  301,  302,  303,  304,  305,  306,   -1,   -1,
-   -1,   -1,   -1,  257,  258,  259,  260,  261,  262,  263,
-  264,  265,   -1,   -1,  268,  269,  270,   -1,   -1,   -1,
-   -1,  275,   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,
-  284,  285,  286,  287,   -1,  289,  290,  291,  292,  293,
-  294,  295,  296,  297,   -1,  299,   -1,  301,  302,  303,
-  304,  305,  306,  260,  261,  262,   -1,   -1,  257,  258,
-  259,  260,  261,  262,  263,  264,  265,   -1,   -1,  268,
-  269,  270,    0,  260,  261,  262,  275,   -1,  265,   -1,
-   -1,   -1,  281,   -1,  283,  284,  285,  286,  287,   -1,
-  289,  290,  291,  292,  293,  294,  295,  296,  297,   -1,
-  299,   -1,  301,  302,  303,  304,  305,  306,   -1,   37,
-   -1,   -1,   40,   41,   42,   43,   44,   45,   -1,   47,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,    0,   -1,   -1,
-   58,   59,   60,   -1,   62,   63,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   37,   93,   94,   40,   41,   42,
-   43,   44,   45,   -1,   47,   -1,   -1,   -1,   -1,   -1,
-   -1,    0,   -1,   -1,  112,   58,   59,   60,   -1,   62,
-   63,   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   37,   -1,
-   93,   40,   41,   42,   43,   44,   45,   -1,   47,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   58,
-   59,   60,   -1,   62,   63,   -1,   -1,   -1,   -1,   -1,
-  123,  124,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   93,   94,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  112,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  257,
-  258,  259,  260,  261,  262,  263,  264,  265,   -1,   -1,
-  268,  269,  270,   -1,   -1,   -1,   -1,  275,   -1,   -1,
-   -1,   -1,   -1,  281,   -1,  283,  284,  285,  286,  287,
-   -1,  289,  290,   -1,  292,  293,  294,  295,  296,  297,
-   -1,  299,   -1,  301,  302,  303,  304,  305,  306,   -1,
-   -1,   -1,   -1,   -1,  257,  258,  259,  260,  261,  262,
-  263,  264,  265,   -1,   -1,  268,  269,  270,   -1,   -1,
-   -1,   -1,  275,   -1,   40,   41,   -1,   43,  281,   45,
-  283,  284,  285,  286,  287,   -1,  289,  290,  291,  292,
-  293,  294,  295,  296,  297,   -1,  299,   63,  301,  302,
-  303,  304,  305,  306,   -1,   -1,   -1,   -1,  257,  258,
-  259,  260,  261,  262,  263,  264,  265,   -1,   -1,  268,
-  269,  270,    0,   -1,   -1,   -1,  275,   -1,   -1,   -1,
-   -1,   -1,  281,   -1,  283,  284,  285,  286,  287,   -1,
-  289,  290,  291,  292,  293,  294,  295,  296,  297,   -1,
-  299,   -1,  301,   -1,   -1,  304,  305,  306,   -1,   37,
-   -1,   -1,   40,   41,   42,   43,   44,   45,   -1,   47,
-   -1,   -1,   -1,   -1,   -1,   -1,    0,   -1,   -1,   -1,
-   58,   59,   60,   -1,   62,   63,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   37,   -1,   93,   40,   41,   42,   43,
-   44,   45,   -1,   47,   -1,   -1,   -1,   -1,   -1,   -1,
-    0,   -1,   -1,   -1,   58,   59,   60,   -1,   62,   63,
-   -1,   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   37,   -1,   93,
-   40,   41,   42,   43,   44,   45,   -1,   47,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   58,   59,
-   60,   -1,   62,   63,   -1,   -1,   -1,  263,  264,  123,
-  124,   -1,  268,  269,  270,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,
-   -1,  287,   -1,   93,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,
-  306,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  257,
-  258,  259,  260,  261,  262,  263,  264,  265,   -1,   -1,
-  268,  269,  270,   -1,   -1,   -1,   -1,  275,   -1,   -1,
-   -1,   -1,   -1,  281,   -1,  283,  284,  285,  286,  287,
-   -1,  289,  290,  291,  292,  293,  294,  295,  296,  297,
-   -1,  299,   -1,  301,  302,  303,  304,  305,  306,   -1,
-   -1,   -1,   -1,  257,  258,  259,  260,  261,  262,  263,
-  264,  265,   -1,   -1,  268,  269,  270,   -1,   -1,   -1,
-   -1,  275,   -1,   40,   -1,   -1,   43,  281,   45,  283,
-  284,  285,  286,  287,   -1,  289,  290,  291,  292,  293,
-  294,  295,  296,  297,   -1,  299,   -1,  301,  302,  303,
-  304,  305,  306,   -1,   -1,   -1,   -1,  257,  258,  259,
-  260,  261,  262,  263,  264,  265,   -1,   -1,  268,  269,
-  270,    0,   -1,   -1,   -1,  275,   -1,   -1,   -1,   -1,
-   -1,  281,   -1,  283,  284,  285,  286,  287,   -1,  289,
-  290,  291,  292,  293,  294,  295,  296,  297,   -1,  299,
-   -1,  301,  302,  303,  304,  305,  306,   -1,   37,   -1,
-   -1,   40,   41,   42,   43,   44,   45,   -1,   47,   -1,
-   -1,   -1,   -1,   -1,   -1,    0,   -1,   -1,   -1,   58,
-   59,   60,   -1,   62,   63,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   37,   -1,   93,   40,   41,   42,   43,   44,
-   45,   -1,   47,   -1,   -1,   -1,   -1,   -1,   -1,    0,
-   -1,   -1,   -1,   58,   59,   60,   -1,   62,   63,   -1,
-   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   37,   -1,   93,   40,
-   41,   42,   43,   44,   45,   -1,   47,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   58,   59,   60,
-   -1,   62,   63,   -1,  261,  262,  263,  264,  123,  124,
-   -1,  268,  269,  270,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,   -1,
-  287,   -1,   93,   94,   -1,  292,  293,  294,  295,   -1,
-   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,
-   -1,  112,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  123,  124,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  257,  258,
-  259,  260,  261,  262,  263,  264,  265,   -1,   -1,  268,
-  269,  270,   -1,   -1,   -1,   -1,  275,   -1,   -1,   -1,
-   -1,   -1,  281,   -1,  283,  284,  285,  286,  287,   -1,
-  289,  290,  291,  292,  293,  294,  295,  296,  297,   -1,
-  299,   -1,  301,  302,  303,  304,  305,  306,   -1,   -1,
-   -1,   -1,  257,  258,  259,  260,  261,  262,  263,  264,
-  265,   -1,   -1,  268,  269,  270,   -1,   -1,   -1,   -1,
-  275,   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,
-  285,  286,  287,   -1,  289,  290,  291,  292,  293,  294,
-  295,  296,  297,   -1,  299,   -1,  301,  302,  303,  304,
-  305,  306,   -1,   -1,   -1,   -1,  257,  258,  259,  260,
-  261,  262,  263,  264,  265,   -1,   -1,  268,  269,  270,
-    0,   -1,   -1,   -1,  275,   -1,   -1,   -1,   -1,   -1,
-  281,   -1,  283,  284,  285,  286,  287,   -1,   -1,  290,
-  291,  292,  293,  294,  295,  296,  297,   -1,  299,   -1,
-  301,   -1,   -1,  304,  305,  306,   -1,   37,   -1,   -1,
-   40,   41,   42,   43,   44,   45,   -1,   47,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,    0,   -1,   -1,   58,   59,
-   60,   -1,   62,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   93,   94,   40,   41,   -1,   43,   44,
-   45,   -1,   -1,   -1,   -1,   -1,    0,   -1,   -1,   -1,
-   -1,   -1,  112,   58,   59,   60,   -1,   62,   63,   -1,
-   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   40,   41,   93,   43,
-   44,   45,   -1,   -1,   -1,   -1,    0,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   58,   59,   60,   -1,   62,   63,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,  124,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   40,   41,   -1,   93,
-   44,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   58,   59,   60,   -1,   62,   63,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,
-  124,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,   -1,   93,
-   43,   -1,   45,   -1,   -1,   -1,   -1,  257,  258,  259,
-  260,  261,  262,  263,  264,  265,   -1,   -1,  268,  269,
-  270,   -1,   -1,   -1,   -1,  275,   -1,   -1,   -1,  123,
-  124,  281,   -1,  283,  284,  285,  286,  287,   -1,  289,
-   -1,   -1,  292,  293,  294,  295,  296,  297,   -1,  299,
-   -1,  301,  302,  303,  304,  305,  306,   -1,   -1,   -1,
-   -1,   -1,  257,  258,  259,  260,  261,  262,  263,  264,
-  265,   -1,   -1,  268,  269,  270,   -1,   -1,   -1,   -1,
-  275,   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,
-  285,  286,  287,   -1,  289,  290,  291,  292,  293,  294,
-  295,  296,  297,   -1,  299,   -1,  301,  302,  303,  304,
-  305,  306,   -1,  257,  258,  259,  260,  261,  262,  263,
-  264,  265,   -1,   -1,  268,  269,  270,   -1,   -1,   -1,
-   -1,  275,   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,
-  284,  285,  286,  287,   -1,  289,  290,  291,  292,  293,
-  294,  295,  296,  297,   -1,  299,   -1,  301,  302,  303,
-  304,  305,  306,  257,  258,  259,  260,  261,  262,  263,
-  264,  265,   -1,    0,  268,  269,  270,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,
-  284,  285,  286,  287,   -1,  289,  290,  291,  292,  293,
-  294,  295,  296,  297,   -1,  299,   -1,  301,  302,  303,
-  304,  305,  306,   40,   41,   -1,  259,   44,  261,  262,
-  263,  264,   -1,   -1,    0,  268,  269,  270,   -1,   -1,
-   -1,   58,   59,   60,   -1,   62,   63,   -1,  281,   -1,
-  283,  284,  285,   -1,  287,   -1,   -1,   -1,   -1,  292,
-  293,  294,  295,   -1,   -1,   -1,  299,   -1,  301,  302,
-  303,  304,  305,  306,   40,   -1,   93,   43,   -1,   45,
-   -1,   -1,   -1,   -1,    0,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   40,   -1,   -1,   43,   -1,   45,
-   -1,   -1,   -1,   -1,    0,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   40,   -1,   -1,   43,   -1,   45,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-    0,   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   40,   -1,   -1,   43,   -1,   45,   -1,   -1,   -1,   -1,
-  257,  258,  259,  260,  261,  262,  263,  264,  265,   59,
-   -1,  268,  269,  270,   -1,   -1,   -1,  123,   -1,   -1,
-   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,  286,
-  287,   -1,  289,  290,  291,  292,  293,  294,  295,  296,
-  297,   -1,  299,   -1,  301,  302,  303,  304,  305,  306,
-   -1,  257,  258,  259,  260,  261,  262,  263,  264,   -1,
-   -1,   -1,  268,  269,  270,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,
-  286,  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,  301,  302,  303,  304,  305,
-  306,  257,  258,  259,  260,  261,  262,  263,  264,   -1,
-   -1,   -1,  268,  269,  270,   40,   -1,   -1,   43,   -1,
-   45,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,
-  286,  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,  301,  302,  303,  304,  305,
-  306,  257,  258,  259,  260,   -1,  262,  263,  264,   -1,
-   -1,    0,  268,  269,  270,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,
-  286,  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,  301,  302,  303,  304,  305,
-  306,   40,   -1,   -1,   43,   -1,   45,  257,  258,  259,
-  260,  261,  262,  263,  264,   -1,   -1,    0,  268,  269,
-  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  281,   -1,  283,  284,  285,  286,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,  301,  302,  303,  304,  305,  306,   40,   -1,   -1,
-   43,   -1,   45,   -1,   -1,   -1,   -1,    0,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  123,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,   -1,   -1,
-   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  263,  264,
-  123,  266,  267,  268,  269,  270,   -1,   -1,   -1,   -1,
-   -1,  276,  277,  278,  279,  280,  281,   -1,  283,  284,
-  285,   -1,  287,  288,   -1,   -1,   -1,  292,  293,  294,
-  295,   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,
-  305,  306,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-  123,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  257,  258,
-  259,   -1,   -1,   -1,  263,  264,   -1,   -1,   -1,  268,
-  269,  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  281,   -1,  283,  284,  285,  286,  287,   -1,
-   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,
-  299,   -1,  301,  302,  303,  304,  305,  306,   -1,   -1,
-   -1,   -1,   -1,   -1,  257,  258,  259,   -1,   -1,   -1,
-  263,  264,   -1,   -1,   -1,  268,  269,  270,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  281,   -1,
-  283,  284,  285,  286,  287,   -1,   -1,   -1,   -1,  292,
-  293,  294,  295,   -1,   -1,   -1,  299,   -1,  301,  302,
-  303,  304,  305,  306,  257,  258,  259,   -1,   -1,   -1,
-  263,  264,   -1,   -1,   -1,  268,  269,  270,    0,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  281,   -1,
-  283,  284,  285,  286,  287,   -1,   -1,   -1,   -1,  292,
-  293,  294,  295,   -1,   -1,   -1,  299,   -1,  301,  302,
-  303,  304,  305,  306,   -1,   37,   -1,   -1,   40,   41,
-   42,   43,   44,   45,   -1,   47,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,    0,   -1,   -1,   58,   59,   60,   -1,
-   62,   63,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   37,   93,   94,   40,   41,   42,   43,   44,   45,   -1,
-   47,    0,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-  112,   58,   59,   -1,   -1,   62,   63,   -1,   -1,   -1,
-   -1,  123,  124,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   37,   -1,
-   -1,   -1,   41,   42,   -1,   44,   93,   94,   47,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   58,
-   59,   60,   -1,   62,   63,  112,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   93,   94,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  112,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,  257,  258,  259,  260,  261,
-  262,  263,  264,  265,   -1,   -1,  268,  269,  270,   -1,
-   -1,   -1,   -1,  275,   -1,   -1,   -1,   -1,   -1,  281,
-   -1,  283,  284,  285,  286,  287,   -1,  289,  290,  291,
-  292,   -1,  294,  295,  296,  297,   -1,  299,   -1,  301,
-  302,  303,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-  257,  258,  259,  260,  261,  262,  263,  264,  265,   -1,
-   -1,  268,  269,  270,   -1,   -1,   -1,   -1,  275,   -1,
-   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,  286,
-  287,    0,  289,  290,  291,  292,   -1,  294,  295,  296,
-  297,   -1,  299,   -1,  301,  302,  303,   -1,  257,  258,
-  259,  260,  261,  262,   -1,   -1,  265,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  275,   -1,   37,   -1,
-   -1,   -1,   41,   42,   -1,   44,    0,  286,   47,   -1,
-  289,  290,  291,  292,  293,  294,  295,  296,  297,   58,
-   59,   60,  301,   62,   63,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   37,   -1,   -1,   -1,   41,   42,   -1,
-   44,    0,   -1,   47,   93,   94,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   58,   59,   60,   -1,   62,   63,
-   -1,   -1,   -1,  112,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,   37,   -1,
-   -1,   -1,   41,   42,   -1,   44,   -1,   -1,   47,   93,
-   94,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   58,
-   59,   60,   -1,   62,   63,   -1,   -1,   -1,  112,   -1,
-    0,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,
-  124,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   93,   94,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   37,   -1,   -1,
-   -1,   41,   42,  112,   44,   -1,   -1,   47,   -1,   -1,
-   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,   58,   59,
-   60,   -1,   62,   63,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   93,   94,   -1,   -1,   -1,  257,  258,
-  259,  260,  261,  262,   -1,   -1,  265,   -1,   -1,   -1,
-   -1,   -1,  112,   -1,   -1,   -1,  275,   -1,   -1,   -1,
-   -1,   -1,   -1,  123,  124,   -1,   -1,  286,   -1,   -1,
-  289,  290,  291,  292,  293,  294,  295,  296,  297,   -1,
-   -1,   -1,  301,  257,  258,  259,  260,  261,  262,   -1,
-   40,  265,   -1,   43,   44,   45,   -1,   -1,   -1,   -1,
-   -1,  275,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  286,   63,   -1,  289,  290,  291,  292,  293,
-  294,  295,  296,  297,   -1,   -1,   -1,  301,  257,  258,
-  259,  260,  261,  262,   -1,   -1,  265,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  275,   -1,   -1,    0,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  286,   -1,   -1,
-  289,  290,  291,  292,  293,  294,  295,  296,  297,   -1,
-   -1,   -1,  301,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   37,   -1,   -1,   -1,
-   41,   42,   -1,   44,   -1,   -1,   47,  257,  258,  259,
-  260,  261,  262,   -1,   -1,  265,   -1,   58,   59,   60,
-   -1,   62,   63,   -1,   -1,  275,    0,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  286,   -1,   -1,  289,
-  290,  291,  292,  293,  294,  295,  296,  297,   -1,   -1,
-   -1,  301,   93,   94,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   37,   -1,   -1,   -1,   41,   42,   -1,
-   44,  112,   -1,   47,    0,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  123,  124,   58,   59,   60,   -1,   62,   63,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   37,   -1,   -1,   -1,   41,   42,   -1,   44,   93,
-   94,   47,   -1,  263,  264,   -1,   -1,   -1,  268,  269,
-  270,   -1,   58,   59,   60,   -1,   62,   -1,  112,   -1,
-   -1,  281,   -1,  283,  284,  285,    0,  287,   -1,  123,
-  124,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,   -1,  302,  303,  304,  305,  306,   93,   94,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   37,   -1,   -1,  112,   41,   42,   -1,
-   44,   -1,   -1,   47,   -1,   -1,   -1,  123,  124,   -1,
-   -1,   -1,   -1,   -1,   58,   59,   60,   -1,   62,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  257,  258,  259,  260,
-  261,  262,   -1,   -1,  265,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  275,    0,   -1,   -1,   -1,   93,
-   94,   -1,   -1,   -1,   -1,  286,   -1,   -1,  289,  290,
-  291,  292,  293,  294,  295,  296,  297,   -1,  112,   -1,
-  301,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,
-  124,   -1,   37,   -1,   -1,   -1,   41,   42,   -1,   44,
-   -1,   -1,   47,  257,  258,  259,  260,  261,  262,   -1,
-   -1,  265,   -1,   58,   59,   60,   -1,   62,   -1,   -1,
-   -1,  275,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  286,   -1,   -1,  289,  290,  291,   -1,   -1,
-   -1,   -1,  296,  297,   -1,   -1,   -1,  301,   93,   94,
-   -1,  257,  258,  259,  260,  261,  262,    0,   -1,  265,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  112,   -1,  275,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,  124,
-  286,   -1,   -1,  289,  290,  291,   -1,   -1,   -1,   -1,
-  296,  297,   -1,   -1,   37,  301,   -1,   -1,   41,   42,
-   -1,   44,   -1,   -1,   47,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,    0,   -1,   -1,   58,   59,   60,   -1,   62,
-   -1,   -1,   -1,  257,  258,  259,  260,  261,  262,   -1,
-   -1,  265,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  275,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   37,
-   93,   94,  286,   41,   42,  289,  290,  291,   -1,   47,
-    0,   -1,  296,  297,   -1,   -1,   -1,  301,   -1,  112,
-   58,   59,   60,   -1,   62,   -1,   -1,   -1,   -1,   -1,
-  123,  124,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   37,   -1,   -1,
-   -1,   41,   42,   -1,   44,   93,   94,   47,   -1,   -1,
-   -1,   -1,  257,  258,  259,  260,  261,  262,   58,   59,
-  265,   -1,   -1,   -1,  112,   -1,   -1,   -1,   -1,   -1,
-  275,   -1,   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,
-   -1,  286,   -1,   -1,  289,  290,  291,   -1,   -1,   -1,
-   -1,  296,  297,   93,   94,   -1,  301,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  112,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  123,  124,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  257,  258,  259,  260,  261,  262,
-   -1,   -1,  265,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  275,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  286,   -1,   -1,  289,  290,  291,   -1,
-   -1,   -1,   -1,  296,  297,   -1,   -1,   -1,  301,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  257,
-  258,  259,  260,  261,  262,   -1,   -1,  265,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  275,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  286,   -1,
-   -1,  289,  290,  291,   -1,   -1,   -1,   -1,  296,  297,
-   -1,    7,   -1,  301,   -1,   -1,   -1,  257,  258,  259,
-  260,  261,  262,   -1,   -1,  265,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   30,  275,   -1,   -1,   -1,   -1,
-   -1,   37,   -1,   -1,   -1,   -1,  286,   -1,   -1,  289,
-  290,  291,   -1,   49,   -1,   -1,   52,   53,   54,   55,
-   56,  301,   58,   59,   60,   -1,   62,   63,   64,   65,
-   66,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   82,   -1,   -1,   85,
-   86,   87,   88,   89,   90,   -1,   50,   51,   -1,   -1,
-   -1,   -1,   -1,   -1,  100,   -1,   -1,  103,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  115,
-   -1,   -1,   -1,   -1,   -1,  121,   -1,   81,   -1,   83,
-   84,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-  136,  137,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  154,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-  166,  167,  168,  169,  170,   -1,   -1,   -1,   -1,  175,
-  176,   -1,  178,  179,   -1,   -1,   -1,  183,   -1,   -1,
-   -1,  187,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  198,  157,  158,  201,   -1,   -1,  204,  205,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   17,   -1,
-   -1,   -1,   -1,  177,   -1,  221,  222,  223,   -1,   28,
-   29,   -1,   31,   32,  188,   34,  190,   -1,  192,   -1,
-   -1,   -1,   -1,   -1,   43,   -1,  242,   -1,  244,   -1,
-  246,   -1,  248,   -1,  250,   -1,   -1,   -1,   -1,  255,
-   -1,  215,   -1,   -1,  260,  261,   40,   -1,   -1,   43,
-   -1,   45,  268,   -1,   -1,   -1,  230,  231,  232,  233,
-  234,   -1,   -1,   -1,   -1,   59,   -1,   -1,   -1,   -1,
-   -1,   -1,  288,   -1,   93,   94,   95,   96,   97,   98,
-   -1,   -1,   -1,   -1,   -1,   -1,  105,   -1,   -1,  305,
-   -1,  110,   -1,   -1,  113,  114,   -1,   -1,  117,   40,
-  119,  120,   43,   -1,   45,  124,  125,  281,   -1,   -1,
-   -1,  285,  286,  287,   -1,   -1,  135,  291,   59,   -1,
-  139,   -1,  141,  142,  143,  144,   -1,   -1,   -1,  123,
-   -1,   -1,   -1,  152,   -1,   -1,  155,   -1,   -1,   -1,
-   -1,   -1,  316,  317,   -1,   -1,  165,   40,  322,   -1,
-   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   59,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  193,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  123,   -1,  125,   -1,   -1,   -1,   -1,   -1,
-  209,  210,  211,  212,   -1,  214,   -1,  216,  217,   -1,
-   -1,   -1,   -1,   -1,   -1,  224,  225,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  236,  237,  238,
-  239,   40,   -1,   -1,   43,   -1,   45,   -1,   -1,   -1,
-  123,   -1,  125,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   59,   -1,   -1,   -1,   -1,  264,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  276,  277,  278,
-  279,  280,   -1,  282,  283,  284,  260,  261,  262,  263,
-  264,   -1,  266,  267,  268,  269,  270,  271,   -1,  273,
-  274,   -1,  276,  277,  278,  279,  280,  281,  282,  283,
-  284,  285,   -1,  287,  288,   -1,   -1,   -1,  292,  293,
-  294,  295,   -1,   -1,  123,  299,  125,   -1,  302,  303,
-  304,  305,  306,   -1,   -1,   -1,   -1,   -1,   -1,  260,
-   -1,   -1,  263,  264,   -1,  266,  267,  268,  269,  270,
-  271,  272,  273,  274,   -1,  276,  277,  278,  279,  280,
-  281,  282,  283,  284,  285,   -1,  287,  288,   -1,   -1,
-   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,   -1,
-   -1,  302,  303,  304,  305,  306,   -1,  260,   -1,   -1,
-  263,  264,   -1,  266,  267,  268,  269,  270,  271,  272,
-  273,  274,   -1,  276,  277,  278,  279,  280,  281,  282,
-  283,  284,  285,   -1,  287,  288,   -1,   -1,   -1,  292,
-  293,  294,  295,   -1,   -1,   -1,  299,   -1,   -1,  302,
-  303,  304,  305,  306,   40,   -1,   -1,   43,   -1,   45,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  260,   -1,   -1,  263,  264,   -1,  266,  267,  268,
-  269,  270,  271,  272,  273,  274,   -1,  276,  277,  278,
-  279,  280,  281,  282,  283,  284,  285,   -1,  287,  288,
-   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,
-  299,   -1,   -1,  302,  303,  304,  305,  306,   40,   -1,
-   -1,   43,   -1,   45,   -1,   -1,   -1,  123,   -1,  125,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   59,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   40,   -1,   -1,   43,   -1,
-   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  123,   -1,  125,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,   -1,   -1,
-   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   59,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,   -1,
-  125,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  260,   -1,   -1,  263,  264,   -1,
-  266,  267,  268,  269,  270,  271,  272,  273,  274,   -1,
-  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
-   -1,  287,  288,   -1,   -1,   -1,  292,  293,  294,  295,
-  123,   -1,  125,  299,   -1,   -1,  302,  303,  304,  305,
-  306,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   40,   41,   -1,   43,   44,   45,   -1,   -1,  260,   -1,
-   -1,  263,  264,   -1,  266,  267,  268,  269,  270,  271,
-  272,  273,  274,   63,  276,  277,  278,  279,  280,  281,
-  282,  283,  284,  285,   -1,  287,  288,   -1,   -1,   -1,
-  292,  293,  294,  295,   -1,   -1,   -1,  299,   -1,   -1,
-  302,  303,  304,  305,  306,  260,   -1,   -1,  263,  264,
-   -1,  266,  267,  268,  269,  270,  271,  272,  273,  274,
-   -1,  276,  277,  278,  279,  280,  281,  282,  283,  284,
-  285,   -1,  287,  288,   -1,   -1,   -1,  292,  293,  294,
-  295,   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,
-  305,  306,   -1,   40,   -1,   -1,   43,  260,   45,   -1,
-  263,  264,   -1,  266,  267,  268,  269,  270,  271,  272,
-  273,  274,   59,  276,  277,  278,  279,  280,  281,  282,
-  283,  284,  285,   -1,  287,  288,   -1,   -1,   -1,  292,
-  293,  294,  295,   -1,   -1,   -1,  299,   -1,   -1,  302,
-  303,  304,  305,  306,   40,   -1,   -1,   43,   -1,   45,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  123,   -1,  125,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   40,   -1,   -1,   43,   -1,   45,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   59,   -1,   -1,  263,  264,   -1,   -1,   -1,  268,  269,
-  270,   -1,   -1,   -1,   -1,   -1,   -1,  123,   -1,  125,
-   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,   -1,  302,  303,  304,  305,  306,   -1,   -1,   40,
-   -1,   -1,   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  123,   -1,  125,   -1,   59,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  260,   -1,   -1,  263,  264,   -1,  266,
-  267,  268,  269,  270,  271,  272,  273,  274,   -1,  276,
-  277,  278,  279,  280,  281,  282,  283,  284,  285,   -1,
-  287,  288,  123,   -1,  125,  292,  293,  294,  295,   -1,
-   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,
-   -1,   -1,   -1,   -1,  260,   -1,   -1,  263,  264,   -1,
-  266,  267,  268,  269,  270,  271,   -1,  273,  274,   -1,
-  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
-   -1,  287,  288,   -1,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,
-  306,  260,   -1,   -1,  263,  264,   -1,  266,  267,  268,
-  269,  270,  271,   -1,  273,  274,   -1,  276,  277,  278,
-  279,  280,  281,  282,  283,  284,  285,   -1,  287,  288,
-   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,
-  299,   -1,   -1,  302,  303,  304,  305,  306,   40,   -1,
-   -1,   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   59,   -1,  260,
-   -1,   -1,  263,  264,   -1,  266,  267,  268,  269,  270,
-  271,   -1,  273,  274,   -1,  276,  277,  278,  279,  280,
-  281,  282,  283,  284,  285,   -1,  287,  288,   -1,   -1,
-   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,   -1,
-   -1,  302,  303,  304,  305,  306,   40,   -1,   -1,   43,
-   -1,   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  123,   -1,  125,   -1,   59,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   40,   -1,   -1,   43,   -1,   45,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,
-   -1,  125,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   40,   -1,   -1,   43,   -1,   45,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  123,   -1,  125,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  260,   -1,
-   -1,  263,  264,   -1,  266,  267,  268,  269,  270,  271,
-   -1,  273,  274,   -1,  276,  277,  278,  279,  280,  281,
-  282,  283,  284,  285,   -1,  287,  288,  123,   -1,  125,
-  292,  293,  294,  295,   -1,   -1,   -1,  299,   -1,   -1,
-  302,  303,  304,  305,  306,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,
-   -1,   -1,   43,   -1,   45,   -1,  260,   -1,   -1,  263,
-  264,   -1,  266,  267,  268,  269,  270,  271,   59,  273,
-  274,   -1,  276,  277,  278,  279,  280,  281,  282,  283,
-  284,  285,   -1,  287,  288,   -1,   -1,   -1,  292,  293,
-  294,  295,   -1,   -1,   -1,  299,   -1,   -1,  302,  303,
-  304,  305,  306,  260,   -1,   -1,  263,  264,   -1,  266,
-  267,  268,  269,  270,  271,   -1,  273,  274,   -1,  276,
-  277,  278,  279,  280,  281,  282,  283,  284,  285,   -1,
-  287,  288,  123,   -1,  125,  292,  293,  294,  295,   -1,
-   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,
-   40,   -1,   -1,   43,  260,   45,   -1,  263,  264,   -1,
-  266,  267,  268,  269,  270,  271,   -1,  273,  274,   -1,
-  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
-   -1,  287,  288,   -1,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,
-  306,   40,   -1,   -1,   43,   44,   45,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   60,   -1,   62,   63,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  123,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   40,   -1,   -1,   43,   -1,
-   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   60,   -1,   62,   63,  260,
-   -1,   -1,  263,  264,   -1,  266,  267,  268,  269,  270,
-  271,   -1,  273,  274,   -1,  276,  277,  278,  279,  280,
-  281,  282,  283,  284,  285,   -1,  287,  288,   -1,   -1,
-   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,   -1,
-   -1,  302,  303,  304,  305,  306,   40,   41,   -1,   43,
-   44,   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   63,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   40,   41,   -1,   43,   44,   45,   -1,  257,  258,  259,
-   -1,   -1,   -1,  263,  264,   -1,   -1,   -1,  268,  269,
-  270,   -1,   -1,   63,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  281,   -1,  283,  284,  285,  286,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,  301,  302,  303,  304,  305,  306,   40,   41,   -1,
-   43,   44,   45,   -1,  263,  264,   -1,   -1,   -1,  268,
-  269,  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   63,   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,
-   -1,   -1,   -1,  292,  293,  294,  295,  296,  297,   -1,
-  299,   -1,   -1,  302,  303,  304,  305,  306,  263,  264,
-   -1,   -1,   -1,  268,  269,  270,   -1,   -1,   -1,   -1,
-   40,   41,   -1,   43,   44,   45,  281,   -1,  283,  284,
-  285,   -1,  287,   -1,   -1,   -1,   -1,  292,  293,  294,
-  295,  296,  297,   63,  299,   -1,   -1,  302,  303,  304,
-  305,  306,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,   -1,
-   -1,   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,  263,
-  264,   -1,   -1,   -1,  268,  269,  270,   59,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,
-  284,  285,   -1,  287,   -1,   -1,   -1,   -1,  292,  293,
-  294,  295,   -1,   -1,   -1,  299,   -1,   -1,  302,  303,
-  304,  305,  306,  263,  264,   -1,   -1,   -1,  268,  269,
-  270,   40,   -1,   -1,   43,   -1,   45,   -1,   -1,   -1,
-   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,   -1,  302,  303,  304,  305,  306,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,
-  263,  264,   43,   -1,   45,  268,  269,  270,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  281,   -1,
-  283,  284,  285,   -1,  287,   -1,   -1,   -1,   -1,  292,
-  293,  294,  295,   -1,   -1,   -1,  299,   -1,   -1,  302,
-  303,  304,  305,  306,   40,   -1,   -1,   43,   44,   45,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  263,  264,   -1,   -1,   63,  268,  269,
-  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,   -1,  302,  303,  304,  305,  306,  259,   -1,   -1,
-   -1,  263,  264,   -1,   -1,   -1,  268,  269,  270,   -1,
-   -1,   40,   -1,   -1,   43,   44,   45,   -1,   -1,  281,
-   -1,  283,  284,  285,   -1,  287,   -1,   -1,   -1,   -1,
-  292,  293,  294,  295,   63,   -1,   -1,  299,   -1,  301,
-  302,  303,  304,  305,  306,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,   -1,
-  259,   43,   44,   45,  263,  264,   -1,   -1,   -1,  268,
-  269,  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   63,  281,   -1,  283,  284,  285,   -1,  287,   -1,
-   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,
-  299,   -1,  301,  302,  303,  304,  305,  306,  259,   -1,
-   -1,   -1,  263,  264,   -1,   -1,   -1,  268,  269,  270,
-   -1,   -1,   40,   -1,   -1,   43,   44,   45,   -1,   -1,
-  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,   -1,
-   -1,  292,  293,  294,  295,   63,   -1,   -1,  299,   -1,
-  301,  302,  303,  304,  305,  306,   -1,  263,  264,   -1,
-   -1,   -1,  268,  269,  270,   -1,   -1,   40,   -1,   -1,
-   43,   44,   45,   -1,   -1,  281,   -1,  283,  284,  285,
-   -1,  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,
-   63,   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,
-  306,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   40,   -1,   -1,   43,   44,   45,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,  263,  264,   63,   -1,   -1,  268,
-  269,  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,
-   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,
-  299,   -1,   -1,  302,  303,  304,  305,  306,   -1,   -1,
-   -1,  263,  264,   -1,   -1,   -1,  268,  269,  270,   -1,
-   -1,   40,   -1,   -1,   43,   -1,   45,   -1,   -1,  281,
-   -1,  283,  284,  285,   -1,  287,   -1,   -1,   -1,   58,
-  292,  293,  294,  295,   63,   -1,   -1,  299,   -1,   -1,
-  302,  303,  304,  305,  306,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   40,   -1,   -1,   43,   -1,
-   45,   -1,   -1,   -1,   -1,  263,  264,   -1,   -1,   -1,
-  268,  269,  270,   58,   -1,   -1,   -1,   -1,   63,   -1,
-   -1,   -1,   -1,  281,   -1,  283,  284,  285,   -1,  287,
-   -1,   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,
-   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,   -1,
-  263,  264,   -1,   -1,   -1,  268,  269,  270,   -1,   -1,
-   40,   41,   -1,   43,   -1,   45,   -1,   -1,  281,   -1,
-  283,  284,  285,   -1,  287,   -1,   -1,   -1,   -1,  292,
-  293,  294,  295,   63,   -1,   -1,  299,   -1,   -1,  302,
-  303,  304,  305,  306,   -1,   -1,  263,  264,   -1,   -1,
-   -1,  268,  269,  270,   -1,   -1,   40,   41,   -1,   43,
-   -1,   45,   -1,   -1,  281,   -1,  283,  284,  285,   -1,
-  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,   63,
-   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   40,   41,   -1,   43,   -1,   45,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   63,  263,  264,   -1,   -1,   -1,  268,
-  269,  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,
-   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,
-  299,   -1,   -1,  302,  303,  304,  305,  306,  263,  264,
-   -1,   -1,   -1,  268,  269,  270,   -1,   -1,   40,   41,
-   -1,   43,   -1,   45,   -1,   -1,  281,   -1,  283,  284,
-  285,   -1,  287,   -1,   -1,   -1,   -1,  292,  293,  294,
-  295,   63,   -1,   -1,  299,   -1,   -1,  302,  303,  304,
-  305,  306,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   40,   41,   -1,   43,   -1,   45,   -1,   -1,
-   -1,   -1,   -1,  263,  264,   -1,   -1,   -1,  268,  269,
-  270,   -1,   -1,   -1,   -1,   63,   -1,   -1,   -1,   -1,
-   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,   -1,  302,  303,  304,  305,  306,   -1,   -1,  263,
-  264,   -1,   -1,   -1,  268,  269,  270,   -1,   -1,   40,
-   41,   -1,   43,   -1,   45,   -1,   -1,  281,   -1,  283,
-  284,  285,   -1,  287,   -1,   -1,   -1,   -1,  292,  293,
-  294,  295,   63,   -1,   -1,  299,   -1,   -1,  302,  303,
-  304,  305,  306,  263,  264,   -1,   -1,   -1,  268,  269,
-  270,   -1,   -1,   40,   41,   -1,   43,   -1,   45,   -1,
-   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   63,   -1,   -1,  299,
-   -1,   -1,  302,  303,  304,  305,  306,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,   41,   -1,
-   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   63,  263,  264,   -1,   -1,   -1,  268,  269,  270,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  281,
-   -1,  283,  284,  285,   -1,  287,   -1,   -1,   -1,   -1,
-  292,  293,  294,  295,   -1,   -1,   -1,  299,   -1,   -1,
-  302,  303,  304,  305,  306,  263,  264,   -1,   -1,   -1,
-  268,  269,  270,   -1,   -1,   40,   41,   -1,   43,   -1,
-   45,   -1,   -1,  281,   -1,  283,  284,  285,   -1,  287,
-   -1,   -1,   -1,   -1,  292,  293,  294,  295,   63,   -1,
-   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   40,
-   41,   -1,   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,  263,  264,   -1,   -1,   -1,  268,  269,  270,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,   -1,
-   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,   -1,
-   -1,  302,  303,  304,  305,  306,  263,  264,   -1,   -1,
-   -1,  268,  269,  270,   40,   -1,   -1,   43,   -1,   45,
-   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,   -1,
-  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,   -1,
-   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,
-  263,  264,   -1,   -1,   -1,  268,  269,  270,   -1,   -1,
-   -1,   -1,   40,   -1,   -1,   43,   -1,   45,  281,   -1,
-  283,  284,  285,   -1,  287,   -1,   -1,   -1,   -1,  292,
-  293,  294,  295,   -1,   -1,   -1,  299,   -1,   -1,  302,
-  303,  304,  305,  306,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   40,   -1,   -1,   43,   -1,   45,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  263,  264,
-   -1,   -1,   -1,  268,  269,  270,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,
-  285,   -1,  287,   -1,   -1,   -1,   -1,  292,  293,  294,
-  295,   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,
-  305,  306,  263,  264,   -1,   -1,   -1,  268,  269,  270,
-   40,   -1,   -1,   43,   -1,   45,   -1,   -1,   -1,   -1,
-  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,   -1,
-   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,   -1,
-   -1,  302,  303,  304,  305,  306,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   40,   -1,   -1,   43,   -1,   45,
-   -1,   -1,   -1,  259,   -1,   -1,   -1,  263,  264,   -1,
-   -1,   -1,  268,  269,  270,   -1,   -1,   63,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,
-   -1,  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,
-  306,  259,   -1,   -1,   40,  263,  264,   43,   -1,   45,
-  268,  269,  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  281,   -1,  283,  284,  285,   -1,  287,
-   -1,   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,
-   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,  259,
-   -1,   -1,   40,  263,  264,   43,   -1,   45,  268,  269,
-  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,   -1,  302,  303,  304,  305,  306,   40,   -1,   -1,
-   43,   -1,   45,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  259,
-   -1,   -1,   -1,  263,  264,   -1,   -1,   -1,  268,  269,
-  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,  281,   -1,  283,  284,  285,   -1,  287,   -1,   -1,
-   -1,   -1,  292,  293,  294,  295,   -1,   -1,   -1,  299,
-   -1,   -1,  302,  303,  304,  305,  306,  263,  264,   -1,
-   -1,   -1,  268,  269,  270,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,
-   -1,  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,
-  306,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  259,   -1,   -1,   -1,  263,  264,   -1,
-   -1,   -1,  268,  269,  270,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,  281,   -1,  283,  284,  285,
-   -1,  287,   -1,   -1,   -1,   -1,  292,  293,  294,  295,
-   -1,   -1,   -1,  299,   -1,   -1,  302,  303,  304,  305,
-  306,   -1,   -1,   -1,   -1,  263,  264,   -1,   -1,   -1,
-  268,  269,  270,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  281,   -1,  283,  284,  285,   -1,  287,
-   -1,   -1,   -1,   -1,  292,  293,  294,  295,   -1,   -1,
-   -1,  299,   -1,   -1,  302,  303,  304,  305,  306,   -1,
-  263,  264,   28,   29,   -1,  268,  269,  270,   34,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   43,  281,   -1,
-  283,  284,  285,   -1,  287,   -1,   -1,   -1,   -1,  292,
-  293,  294,  295,   -1,   -1,   -1,  299,   -1,   -1,  302,
-  303,  304,  305,  306,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   93,   94,   95,
-   96,   97,   98,   -1,   -1,   -1,   -1,   -1,   -1,  105,
-   -1,   -1,   -1,   -1,  110,   -1,   -1,  113,  114,   -1,
-   -1,  117,   -1,  119,  120,   -1,   -1,   -1,  124,  125,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  135,
-   -1,   -1,   -1,  139,   -1,  141,  142,  143,  144,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  155,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  165,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,  193,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,  209,  210,  211,  212,   -1,  214,   -1,
-  216,  217,   -1,   -1,   -1,   -1,   -1,   -1,  224,  225,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-  236,  237,  238,  239,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  264,   -1,
-   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
-  276,  277,  278,  279,  280,   -1,  282,  283,  284,
-};
-#define YYFINAL 1
-#ifndef YYDEBUG
-#define YYDEBUG 0
-#endif
-#define YYMAXTOKEN 306
-#if YYDEBUG
-const char *yyname[] = {
-"end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-0,0,0,"'%'",0,0,"'('","')'","'*'","'+'","','","'-'",0,"'/'",0,0,0,0,0,0,0,0,0,0,
-"':'","';'","'<'",0,"'>'","'?'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-0,0,0,"'['",0,"']'","'^'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"'p'",0,0,0,0,0,0,0,
-0,0,0,"'{'","'|'","'}'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"BEGIN","END","REGEX","SEMINEW",
-"NEWLINE","COMMENT","FUN1","FUNN","GRGR","PRINT","PRINTF","SPRINTF_OLD",
-"SPRINTF_NEW","SPLIT","IF","ELSE","WHILE","FOR","IN","EXIT","NEXT","BREAK",
-"CONTINUE","RET","GETLINE","DO","SUB","GSUB","MATCH","FUNCTION","USERFUN",
-"DELETE","ASGNOP","OROR","ANDAND","NUMBER","VAR","SUBSTR","INDEX","MATCHOP",
-"RELOP","OR","STRING","UMINUS","NOT","INCR","DECR","FIELD","VFIELD","SVFIELD",
-};
-const char *yyrule[] = {
-"$accept : program",
-"program : junk hunks",
-"begin : BEGIN '{' maybe states '}' junk",
-"end : END '{' maybe states '}'",
-"end : end NEWLINE",
-"hunks : hunks hunk junk",
-"hunks :",
-"hunk : patpat",
-"hunk : patpat '{' maybe states '}'",
-"hunk : FUNCTION USERFUN '(' arg_list ')' maybe '{' maybe states '}'",
-"hunk : '{' maybe states '}'",
-"hunk : begin",
-"hunk : end",
-"arg_list : expr_list",
-"patpat : cond",
-"patpat : cond ',' cond",
-"cond : expr",
-"cond : match",
-"cond : rel",
-"cond : compound_cond",
-"cond : cond '?' expr ':' expr",
-"compound_cond : '(' compound_cond ')'",
-"compound_cond : cond ANDAND maybe cond",
-"compound_cond : cond OROR maybe cond",
-"compound_cond : NOT cond",
-"rel : expr RELOP expr",
-"rel : expr '>' expr",
-"rel : expr '<' expr",
-"rel : '(' rel ')'",
-"match : expr MATCHOP expr",
-"match : expr MATCHOP REGEX",
-"match : REGEX",
-"match : '(' match ')'",
-"expr : term",
-"expr : expr term",
-"expr : expr '?' expr ':' expr",
-"expr : variable ASGNOP cond",
-"sprintf : SPRINTF_NEW",
-"sprintf : SPRINTF_OLD",
-"term : variable",
-"term : NUMBER",
-"term : STRING",
-"term : term '+' term",
-"term : term '-' term",
-"term : term '*' term",
-"term : term '/' term",
-"term : term '%' term",
-"term : term '^' term",
-"term : term IN VAR",
-"term : variable INCR",
-"term : variable DECR",
-"term : INCR variable",
-"term : DECR variable",
-"term : '-' term",
-"term : '+' term",
-"term : '(' cond ')'",
-"term : GETLINE",
-"term : GETLINE variable",
-"term : GETLINE '<' expr",
-"term : GETLINE variable '<' expr",
-"term : term 'p' GETLINE",
-"term : term 'p' GETLINE variable",
-"term : FUN1",
-"term : FUN1 '(' ')'",
-"term : FUN1 '(' expr ')'",
-"term : FUNN '(' expr_list ')'",
-"term : USERFUN '(' expr_list ')'",
-"term : SPRINTF_NEW '(' expr_list ')'",
-"term : sprintf expr_list",
-"term : SUBSTR '(' expr ',' expr ',' expr ')'",
-"term : SUBSTR '(' expr ',' expr ')'",
-"term : SPLIT '(' expr ',' VAR ',' expr ')'",
-"term : SPLIT '(' expr ',' VAR ',' REGEX ')'",
-"term : SPLIT '(' expr ',' VAR ')'",
-"term : INDEX '(' expr ',' expr ')'",
-"term : MATCH '(' expr ',' REGEX ')'",
-"term : MATCH '(' expr ',' expr ')'",
-"term : SUB '(' expr ',' expr ')'",
-"term : SUB '(' REGEX ',' expr ')'",
-"term : GSUB '(' expr ',' expr ')'",
-"term : GSUB '(' REGEX ',' expr ')'",
-"term : SUB '(' expr ',' expr ',' expr ')'",
-"term : SUB '(' REGEX ',' expr ',' expr ')'",
-"term : GSUB '(' expr ',' expr ',' expr ')'",
-"term : GSUB '(' REGEX ',' expr ',' expr ')'",
-"variable : VAR",
-"variable : VAR '[' expr_list ']'",
-"variable : FIELD",
-"variable : SVFIELD",
-"variable : VFIELD term",
-"expr_list : expr",
-"expr_list : clist",
-"expr_list :",
-"clist : expr ',' maybe expr",
-"clist : clist ',' maybe expr",
-"clist : '(' clist ')'",
-"junk : junk hunksep",
-"junk :",
-"hunksep : ';'",
-"hunksep : SEMINEW",
-"hunksep : NEWLINE",
-"hunksep : COMMENT",
-"maybe : maybe nlstuff",
-"maybe :",
-"nlstuff : NEWLINE",
-"nlstuff : COMMENT",
-"separator : ';' maybe",
-"separator : SEMINEW maybe",
-"separator : NEWLINE maybe",
-"separator : COMMENT maybe",
-"states : states statement",
-"states :",
-"statement : simple separator maybe",
-"statement : ';' maybe",
-"statement : SEMINEW maybe",
-"statement : compound",
-"simpnull : simple",
-"simpnull :",
-"simple : expr",
-"simple : PRINT expr_list redir expr",
-"simple : PRINT expr_list",
-"simple : PRINTF expr_list redir expr",
-"simple : PRINTF expr_list",
-"simple : BREAK",
-"simple : NEXT",
-"simple : EXIT",
-"simple : EXIT expr",
-"simple : CONTINUE",
-"simple : RET",
-"simple : RET expr",
-"simple : DELETE VAR '[' expr_list ']'",
-"redir : '>'",
-"redir : GRGR",
-"redir : '|'",
-"compound : IF '(' cond ')' maybe statement",
-"compound : IF '(' cond ')' maybe statement ELSE maybe statement",
-"compound : WHILE '(' cond ')' maybe statement",
-"compound : DO maybe statement WHILE '(' cond ')'",
-"compound : FOR '(' simpnull ';' cond ';' simpnull ')' maybe statement",
-"compound : FOR '(' simpnull ';' ';' simpnull ')' maybe statement",
-"compound : FOR '(' expr ')' maybe statement",
-"compound : '{' maybe states '}' maybe",
-};
-#endif
-#ifndef YYSTYPE
-typedef int YYSTYPE;
-#endif
-#ifdef YYSTACKSIZE
-#undef YYMAXDEPTH
-#define YYMAXDEPTH YYSTACKSIZE
-#else
-#ifdef YYMAXDEPTH
-#define YYSTACKSIZE YYMAXDEPTH
-#else
-#define YYSTACKSIZE 500
-#define YYMAXDEPTH 500
-#endif
-#endif
-int yydebug;
-int yynerrs;
-int yyerrflag;
-int yychar;
-short *yyssp;
-YYSTYPE *yyvsp;
-YYSTYPE yyval;
-YYSTYPE yylval;
-short yyss[YYSTACKSIZE];
-YYSTYPE yyvs[YYSTACKSIZE];
-#define yystacksize YYSTACKSIZE
-#line 429 "a2p.y"
-
-int yyparse (void);
-
-#include "a2py.c"
-#line 2178 "y.tab.c"
-#define YYABORT goto yyabort
-#define YYREJECT goto yyabort
-#define YYACCEPT goto yyaccept
-#define YYERROR goto yyerrlab
-
-#if YYDEBUG
-#  if defined(WIN32)
-EXTERN_C _CRTIMP char *getenv(const char *);
-#  else
-EXTERN_C char *getenv(const char *);
-#  endif
-#endif
-
-int
-yyparse(void)
-{
-    int yym, yyn, yystate;
-#if YYDEBUG
-    const char *yys;
-
-    if ((yys = getenv("YYDEBUG")))
-    {
-        yyn = *yys;
-        if (yyn >= '0' && yyn <= '9')
-            yydebug = yyn - '0';
-    }
-#endif
-
-    yynerrs = 0;
-    yyerrflag = 0;
-    yychar = (-1);
-
-    yyssp = yyss;
-    yyvsp = yyvs;
-    *yyssp = yystate = 0;
-
-yyloop:
-    if (((yyn = yydefred[yystate])) != 0) goto yyreduce;
-    if (yychar < 0)
-    {
-        if ((yychar = yylex()) < 0) yychar = 0;
-#if YYDEBUG
-        if (yydebug)
-        {
-            yys = 0;
-            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
-            if (!yys) yys = "illegal-symbol";
-            printf("%sdebug: state %d, reading %d (%s)\n",
-                    YYPREFIX, yystate, yychar, yys);
-        }
-#endif
-    }
-    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
-            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
-    {
-#if YYDEBUG
-        if (yydebug)
-            printf("%sdebug: state %d, shifting to state %d\n",
-                    YYPREFIX, yystate, yytable[yyn]);
-#endif
-        if (yyssp >= yyss + yystacksize - 1)
-        {
-            goto yyoverflow;
-        }
-        *++yyssp = yystate = yytable[yyn];
-        *++yyvsp = yylval;
-        yychar = (-1);
-        if (yyerrflag > 0)  --yyerrflag;
-        goto yyloop;
-    }
-    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
-            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
-    {
-        yyn = yytable[yyn];
-        goto yyreduce;
-    }
-    if (yyerrflag) goto yyinrecovery;
-#ifdef lint
-
-#endif
-
-    yyerror("syntax error");
-#ifdef lint
-
-#endif
-
-    ++yynerrs;
-yyinrecovery:
-    if (yyerrflag < 3)
-    {
-        yyerrflag = 3;
-        for (;;)
-        {
-            if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
-                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
-            {
-#if YYDEBUG
-                if (yydebug)
-                    printf("%sdebug: state %d, error recovery shifting\
- to state %d\n", YYPREFIX, *yyssp, yytable[yyn]);
-#endif
-                if (yyssp >= yyss + yystacksize - 1)
-                {
-                    goto yyoverflow;
-                }
-                *++yyssp = yystate = yytable[yyn];
-                *++yyvsp = yylval;
-                goto yyloop;
-            }
-            else
-            {
-#if YYDEBUG
-                if (yydebug)
-                    printf("%sdebug: error recovery discarding state %d\n",
-                            YYPREFIX, *yyssp);
-#endif
-                if (yyssp <= yyss) goto yyabort;
-                --yyssp;
-                --yyvsp;
-            }
-        }
-    }
-    else
-    {
-        if (yychar == 0) goto yyabort;
-#if YYDEBUG
-        if (yydebug)
-        {
-            yys = 0;
-            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
-            if (!yys) yys = "illegal-symbol";
-            printf("%sdebug: state %d, error recovery discards token %d (%s)\n",
-                    YYPREFIX, yystate, yychar, yys);
-        }
-#endif
-        yychar = (-1);
-        goto yyloop;
-    }
-yyreduce:
-#if YYDEBUG
-    if (yydebug)
-        printf("%sdebug: state %d, reducing by rule %d (%s)\n",
-                YYPREFIX, yystate, yyn, yyrule[yyn]);
-#endif
-    yym = yylen[yyn];
-    yyval = yyvsp[1-yym];
-    switch (yyn)
-    {
-case 1:
-#line 52 "a2p.y"
-{ root = oper4(OPROG,yyvsp[-1],begins,yyvsp[0],ends); }
-break;
-case 2:
-#line 56 "a2p.y"
-{ begins = oper4(OJUNK,begins,yyvsp[-3],yyvsp[-2],yyvsp[0]); in_begin = FALSE;
-                   yyval = Nullop; }
-break;
-case 3:
-#line 61 "a2p.y"
-{ ends = oper3(OJUNK,ends,yyvsp[-2],yyvsp[-1]); yyval = Nullop; }
-break;
-case 4:
-#line 63 "a2p.y"
-{ yyval = yyvsp[-1]; }
-break;
-case 5:
-#line 67 "a2p.y"
-{ yyval = oper3(OHUNKS,yyvsp[-2],yyvsp[-1],yyvsp[0]); }
-break;
-case 6:
-#line 69 "a2p.y"
-{ yyval = Nullop; }
-break;
-case 7:
-#line 73 "a2p.y"
-{ yyval = oper1(OHUNK,yyvsp[0]); need_entire = TRUE; }
-break;
-case 8:
-#line 75 "a2p.y"
-{ yyval = oper2(OHUNK,yyvsp[-4],oper2(OJUNK,yyvsp[-2],yyvsp[-1])); }
-break;
-case 9:
-#line 77 "a2p.y"
-{ fixfargs(yyvsp[-8],yyvsp[-6],0); yyval = oper5(OUSERDEF,yyvsp[-8],yyvsp[-6],yyvsp[-4],yyvsp[-2],yyvsp[-1]); }
-break;
-case 10:
-#line 79 "a2p.y"
-{ yyval = oper2(OHUNK,Nullop,oper2(OJUNK,yyvsp[-2],yyvsp[-1])); }
-break;
-case 13:
-#line 85 "a2p.y"
-{ yyval = rememberargs(yyval); }
-break;
-case 14:
-#line 89 "a2p.y"
-{ yyval = oper1(OPAT,yyvsp[0]); }
-break;
-case 15:
-#line 91 "a2p.y"
-{ yyval = oper2(ORANGE,yyvsp[-2],yyvsp[0]); }
-break;
-case 20:
-#line 99 "a2p.y"
-{ yyval = oper3(OCOND,yyvsp[-4],yyvsp[-2],yyvsp[0]); }
-break;
-case 21:
-#line 104 "a2p.y"
-{ yyval = oper1(OCPAREN,yyvsp[-1]); }
-break;
-case 22:
-#line 106 "a2p.y"
-{ yyval = oper3(OCANDAND,yyvsp[-3],yyvsp[-1],yyvsp[0]); }
-break;
-case 23:
-#line 108 "a2p.y"
-{ yyval = oper3(OCOROR,yyvsp[-3],yyvsp[-1],yyvsp[0]); }
-break;
-case 24:
-#line 110 "a2p.y"
-{ yyval = oper1(OCNOT,yyvsp[0]); }
-break;
-case 25:
-#line 114 "a2p.y"
-{ yyval = oper3(ORELOP,yyvsp[-1],yyvsp[-2],yyvsp[0]); }
-break;
-case 26:
-#line 116 "a2p.y"
-{ yyval = oper3(ORELOP,string(">",1),yyvsp[-2],yyvsp[0]); }
-break;
-case 27:
-#line 118 "a2p.y"
-{ yyval = oper3(ORELOP,string("<",1),yyvsp[-2],yyvsp[0]); }
-break;
-case 28:
-#line 120 "a2p.y"
-{ yyval = oper1(ORPAREN,yyvsp[-1]); }
-break;
-case 29:
-#line 124 "a2p.y"
-{ yyval = oper3(OMATCHOP,yyvsp[-1],yyvsp[-2],yyvsp[0]); }
-break;
-case 30:
-#line 126 "a2p.y"
-{ yyval = oper3(OMATCHOP,yyvsp[-1],yyvsp[-2],oper1(OREGEX,yyvsp[0])); }
-break;
-case 31:
-#line 128 "a2p.y"
-{ yyval = oper1(OREGEX,yyvsp[0]); }
-break;
-case 32:
-#line 130 "a2p.y"
-{ yyval = oper1(OMPAREN,yyvsp[-1]); }
-break;
-case 33:
-#line 134 "a2p.y"
-{ yyval = yyvsp[0]; }
-break;
-case 34:
-#line 136 "a2p.y"
-{ yyval = oper2(OCONCAT,yyvsp[-1],yyvsp[0]); }
-break;
-case 35:
-#line 138 "a2p.y"
-{ yyval = oper3(OCOND,yyvsp[-4],yyvsp[-2],yyvsp[0]); }
-break;
-case 36:
-#line 140 "a2p.y"
-{
-                   yyval = oper3(OASSIGN,yyvsp[-1],yyvsp[-2],yyvsp[0]);
-                   if ((ops[yyvsp[-2]].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[yyvsp[-2]].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-break;
-case 39:
-#line 153 "a2p.y"
-{ yyval = yyvsp[0]; }
-break;
-case 40:
-#line 155 "a2p.y"
-{ yyval = oper1(ONUM,yyvsp[0]); }
-break;
-case 41:
-#line 157 "a2p.y"
-{ yyval = oper1(OSTR,yyvsp[0]); }
-break;
-case 42:
-#line 159 "a2p.y"
-{ yyval = oper2(OADD,yyvsp[-2],yyvsp[0]); }
-break;
-case 43:
-#line 161 "a2p.y"
-{ yyval = oper2(OSUBTRACT,yyvsp[-2],yyvsp[0]); }
-break;
-case 44:
-#line 163 "a2p.y"
-{ yyval = oper2(OMULT,yyvsp[-2],yyvsp[0]); }
-break;
-case 45:
-#line 165 "a2p.y"
-{ yyval = oper2(ODIV,yyvsp[-2],yyvsp[0]); }
-break;
-case 46:
-#line 167 "a2p.y"
-{ yyval = oper2(OMOD,yyvsp[-2],yyvsp[0]); }
-break;
-case 47:
-#line 169 "a2p.y"
-{ yyval = oper2(OPOW,yyvsp[-2],yyvsp[0]); }
-break;
-case 48:
-#line 171 "a2p.y"
-{ yyval = oper2(ODEFINED,aryrefarg(yyvsp[0]),yyvsp[-2]); }
-break;
-case 49:
-#line 173 "a2p.y"
-{
-                   yyval = oper1(OPOSTINCR,yyvsp[-1]);
-                   if ((ops[yyvsp[-1]].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[yyvsp[-1]].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-break;
-case 50:
-#line 181 "a2p.y"
-{
-                   yyval = oper1(OPOSTDECR,yyvsp[-1]);
-                   if ((ops[yyvsp[-1]].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[yyvsp[-1]].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-break;
-case 51:
-#line 189 "a2p.y"
-{
-                   yyval = oper1(OPREINCR,yyvsp[0]);
-                   if ((ops[yyvsp[0]].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[yyvsp[0]].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-break;
-case 52:
-#line 197 "a2p.y"
-{
-                   yyval = oper1(OPREDECR,yyvsp[0]);
-                   if ((ops[yyvsp[0]].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[yyvsp[0]].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-break;
-case 53:
-#line 205 "a2p.y"
-{ yyval = oper1(OUMINUS,yyvsp[0]); }
-break;
-case 54:
-#line 207 "a2p.y"
-{ yyval = oper1(OUPLUS,yyvsp[0]); }
-break;
-case 55:
-#line 209 "a2p.y"
-{ yyval = oper1(OPAREN,yyvsp[-1]); }
-break;
-case 56:
-#line 211 "a2p.y"
-{ yyval = oper0(OGETLINE); }
-break;
-case 57:
-#line 213 "a2p.y"
-{ yyval = oper1(OGETLINE,yyvsp[0]); }
-break;
-case 58:
-#line 215 "a2p.y"
-{ yyval = oper3(OGETLINE,Nullop,string("<",1),yyvsp[0]);
-                   if (ops[yyvsp[0]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-break;
-case 59:
-#line 218 "a2p.y"
-{ yyval = oper3(OGETLINE,yyvsp[-2],string("<",1),yyvsp[0]);
-                   if (ops[yyvsp[0]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-break;
-case 60:
-#line 221 "a2p.y"
-{ yyval = oper3(OGETLINE,Nullop,string("|",1),yyvsp[-2]);
-                   if (ops[yyvsp[-2]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-break;
-case 61:
-#line 224 "a2p.y"
-{ yyval = oper3(OGETLINE,yyvsp[0],string("|",1),yyvsp[-3]);
-                   if (ops[yyvsp[-3]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-break;
-case 62:
-#line 227 "a2p.y"
-{ yyval = oper0(yyvsp[0]); need_entire = do_chop = TRUE; }
-break;
-case 63:
-#line 229 "a2p.y"
-{ yyval = oper1(yyvsp[-2],Nullop); need_entire = do_chop = TRUE; }
-break;
-case 64:
-#line 231 "a2p.y"
-{ yyval = oper1(yyvsp[-3],yyvsp[-1]); }
-break;
-case 65:
-#line 233 "a2p.y"
-{ yyval = oper1(yyvsp[-3],yyvsp[-1]); }
-break;
-case 66:
-#line 235 "a2p.y"
-{ yyval = oper2(OUSERFUN,yyvsp[-3],yyvsp[-1]); }
-break;
-case 67:
-#line 237 "a2p.y"
-{ yyval = oper1(OSPRINTF,yyvsp[-1]); }
-break;
-case 68:
-#line 239 "a2p.y"
-{ yyval = oper1(OSPRINTF,yyvsp[0]); }
-break;
-case 69:
-#line 241 "a2p.y"
-{ yyval = oper3(OSUBSTR,yyvsp[-5],yyvsp[-3],yyvsp[-1]); }
-break;
-case 70:
-#line 243 "a2p.y"
-{ yyval = oper2(OSUBSTR,yyvsp[-3],yyvsp[-1]); }
-break;
-case 71:
-#line 245 "a2p.y"
-{ yyval = oper3(OSPLIT,yyvsp[-5],aryrefarg(numary(yyvsp[-3])),yyvsp[-1]); }
-break;
-case 72:
-#line 247 "a2p.y"
-{ yyval = oper3(OSPLIT,yyvsp[-5],aryrefarg(numary(yyvsp[-3])),oper1(OREGEX,yyvsp[-1]));}
-break;
-case 73:
-#line 249 "a2p.y"
-{ yyval = oper2(OSPLIT,yyvsp[-3],aryrefarg(numary(yyvsp[-1]))); }
-break;
-case 74:
-#line 251 "a2p.y"
-{ yyval = oper2(OINDEX,yyvsp[-3],yyvsp[-1]); }
-break;
-case 75:
-#line 253 "a2p.y"
-{ yyval = oper2(OMATCH,yyvsp[-3],oper1(OREGEX,yyvsp[-1])); }
-break;
-case 76:
-#line 255 "a2p.y"
-{ yyval = oper2(OMATCH,yyvsp[-3],yyvsp[-1]); }
-break;
-case 77:
-#line 257 "a2p.y"
-{ yyval = oper2(OSUB,yyvsp[-3],yyvsp[-1]); }
-break;
-case 78:
-#line 259 "a2p.y"
-{ yyval = oper2(OSUB,oper1(OREGEX,yyvsp[-3]),yyvsp[-1]); }
-break;
-case 79:
-#line 261 "a2p.y"
-{ yyval = oper2(OGSUB,yyvsp[-3],yyvsp[-1]); }
-break;
-case 80:
-#line 263 "a2p.y"
-{ yyval = oper2(OGSUB,oper1(OREGEX,yyvsp[-3]),yyvsp[-1]); }
-break;
-case 81:
-#line 265 "a2p.y"
-{ yyval = oper3(OSUB,yyvsp[-5],yyvsp[-3],yyvsp[-1]); }
-break;
-case 82:
-#line 267 "a2p.y"
-{ yyval = oper3(OSUB,oper1(OREGEX,yyvsp[-5]),yyvsp[-3],yyvsp[-1]); }
-break;
-case 83:
-#line 269 "a2p.y"
-{ yyval = oper3(OGSUB,yyvsp[-5],yyvsp[-3],yyvsp[-1]); }
-break;
-case 84:
-#line 271 "a2p.y"
-{ yyval = oper3(OGSUB,oper1(OREGEX,yyvsp[-5]),yyvsp[-3],yyvsp[-1]); }
-break;
-case 85:
-#line 275 "a2p.y"
-{ yyval = oper1(OVAR,yyvsp[0]); }
-break;
-case 86:
-#line 277 "a2p.y"
-{ yyval = oper2(OVAR,aryrefarg(yyvsp[-3]),yyvsp[-1]); }
-break;
-case 87:
-#line 279 "a2p.y"
-{ yyval = oper1(OFLD,yyvsp[0]); }
-break;
-case 88:
-#line 281 "a2p.y"
-{ yyval = oper1(OVFLD,oper1(OVAR,yyvsp[0])); }
-break;
-case 89:
-#line 283 "a2p.y"
-{ yyval = oper1(OVFLD,yyvsp[0]); }
-break;
-case 92:
-#line 290 "a2p.y"
-{ yyval = Nullop; }
-break;
-case 93:
-#line 294 "a2p.y"
-{ yyval = oper3(OCOMMA,yyvsp[-3],yyvsp[-1],yyvsp[0]); }
-break;
-case 94:
-#line 296 "a2p.y"
-{ yyval = oper3(OCOMMA,yyvsp[-3],yyvsp[-1],yyvsp[0]); }
-break;
-case 95:
-#line 298 "a2p.y"
-{ yyval = yyvsp[-1]; }
-break;
-case 96:
-#line 302 "a2p.y"
-{ yyval = oper2(OJUNK,yyvsp[-1],yyvsp[0]); }
-break;
-case 97:
-#line 304 "a2p.y"
-{ yyval = Nullop; }
-break;
-case 98:
-#line 308 "a2p.y"
-{ yyval = oper2(OJUNK,oper0(OSEMICOLON),oper0(ONEWLINE)); }
-break;
-case 99:
-#line 310 "a2p.y"
-{ yyval = oper2(OJUNK,oper0(OSEMICOLON),oper0(ONEWLINE)); }
-break;
-case 100:
-#line 312 "a2p.y"
-{ yyval = oper0(ONEWLINE); }
-break;
-case 101:
-#line 314 "a2p.y"
-{ yyval = oper1(OCOMMENT,yyvsp[0]); }
-break;
-case 102:
-#line 318 "a2p.y"
-{ yyval = oper2(OJUNK,yyvsp[-1],yyvsp[0]); }
-break;
-case 103:
-#line 320 "a2p.y"
-{ yyval = Nullop; }
-break;
-case 104:
-#line 324 "a2p.y"
-{ yyval = oper0(ONEWLINE); }
-break;
-case 105:
-#line 326 "a2p.y"
-{ yyval = oper1(OCOMMENT,yyvsp[0]); }
-break;
-case 106:
-#line 331 "a2p.y"
-{ yyval = oper2(OJUNK,oper0(OSEMICOLON),yyvsp[0]); }
-break;
-case 107:
-#line 333 "a2p.y"
-{ yyval = oper2(OJUNK,oper0(OSNEWLINE),yyvsp[0]); }
-break;
-case 108:
-#line 335 "a2p.y"
-{ yyval = oper2(OJUNK,oper0(OSNEWLINE),yyvsp[0]); }
-break;
-case 109:
-#line 337 "a2p.y"
-{ yyval = oper2(OJUNK,oper1(OSCOMMENT,yyvsp[-1]),yyvsp[0]); }
-break;
-case 110:
-#line 341 "a2p.y"
-{ yyval = oper2(OSTATES,yyvsp[-1],yyvsp[0]); }
-break;
-case 111:
-#line 343 "a2p.y"
-{ yyval = Nullop; }
-break;
-case 112:
-#line 348 "a2p.y"
-{ yyval = oper2(OJUNK,oper2(OSTATE,yyvsp[-2],yyvsp[-1]),yyvsp[0]); }
-break;
-case 113:
-#line 350 "a2p.y"
-{ yyval = oper2(OSTATE,Nullop,oper2(OJUNK,oper0(OSEMICOLON),yyvsp[0])); }
-break;
-case 114:
-#line 352 "a2p.y"
-{ yyval = oper2(OSTATE,Nullop,oper2(OJUNK,oper0(OSNEWLINE),yyvsp[0])); }
-break;
-case 117:
-#line 358 "a2p.y"
-{ yyval = Nullop; }
-break;
-case 119:
-#line 364 "a2p.y"
-{ yyval = oper3(OPRINT,yyvsp[-2],yyvsp[-1],yyvsp[0]);
-                   do_opens = TRUE;
-                   saw_ORS = saw_OFS = TRUE;
-                   if (!yyvsp[-2]) need_entire = TRUE;
-                   if (ops[yyvsp[0]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-break;
-case 120:
-#line 370 "a2p.y"
-{ yyval = oper1(OPRINT,yyvsp[0]);
-                   if (!yyvsp[0]) need_entire = TRUE;
-                   saw_ORS = saw_OFS = TRUE;
-               }
-break;
-case 121:
-#line 375 "a2p.y"
-{ yyval = oper3(OPRINTF,yyvsp[-2],yyvsp[-1],yyvsp[0]);
-                   do_opens = TRUE;
-                   if (!yyvsp[-2]) need_entire = TRUE;
-                   if (ops[yyvsp[0]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-break;
-case 122:
-#line 380 "a2p.y"
-{ yyval = oper1(OPRINTF,yyvsp[0]);
-                   if (!yyvsp[0]) need_entire = TRUE;
-               }
-break;
-case 123:
-#line 384 "a2p.y"
-{ yyval = oper0(OBREAK); }
-break;
-case 124:
-#line 386 "a2p.y"
-{ yyval = oper0(ONEXT); }
-break;
-case 125:
-#line 388 "a2p.y"
-{ yyval = oper0(OEXIT); }
-break;
-case 126:
-#line 390 "a2p.y"
-{ yyval = oper1(OEXIT,yyvsp[0]); }
-break;
-case 127:
-#line 392 "a2p.y"
-{ yyval = oper0(OCONTINUE); }
-break;
-case 128:
-#line 394 "a2p.y"
-{ yyval = oper0(ORETURN); }
-break;
-case 129:
-#line 396 "a2p.y"
-{ yyval = oper1(ORETURN,yyvsp[0]); }
-break;
-case 130:
-#line 398 "a2p.y"
-{ yyval = oper2(ODELETE,aryrefarg(yyvsp[-3]),yyvsp[-1]); }
-break;
-case 131:
-#line 402 "a2p.y"
-{ yyval = oper1(OREDIR,string(">",1)); }
-break;
-case 132:
-#line 404 "a2p.y"
-{ yyval = oper1(OREDIR,string(">>",2)); }
-break;
-case 133:
-#line 406 "a2p.y"
-{ yyval = oper1(OREDIR,string("|",1)); }
-break;
-case 134:
-#line 411 "a2p.y"
-{ yyval = oper2(OIF,yyvsp[-3],bl(yyvsp[0],yyvsp[-1])); }
-break;
-case 135:
-#line 413 "a2p.y"
-{ yyval = oper3(OIF,yyvsp[-6],bl(yyvsp[-3],yyvsp[-4]),bl(yyvsp[0],yyvsp[-1])); }
-break;
-case 136:
-#line 415 "a2p.y"
-{ yyval = oper2(OWHILE,yyvsp[-3],bl(yyvsp[0],yyvsp[-1])); }
-break;
-case 137:
-#line 417 "a2p.y"
-{ yyval = oper2(ODO,bl(yyvsp[-4],yyvsp[-5]),yyvsp[-1]); }
-break;
-case 138:
-#line 419 "a2p.y"
-{ yyval = oper4(OFOR,yyvsp[-7],yyvsp[-5],yyvsp[-3],bl(yyvsp[0],yyvsp[-1])); }
-break;
-case 139:
-#line 421 "a2p.y"
-{ yyval = oper4(OFOR,yyvsp[-6],string("",0),yyvsp[-3],bl(yyvsp[0],yyvsp[-1])); }
-break;
-case 140:
-#line 423 "a2p.y"
-{ yyval = oper2(OFORIN,yyvsp[-3],bl(yyvsp[0],yyvsp[-1])); }
-break;
-case 141:
-#line 425 "a2p.y"
-{ yyval = oper3(OBLOCK,oper2(OJUNK,yyvsp[-3],yyvsp[-2]),Nullop,yyvsp[0]); }
-break;
-#line 2878 "y.tab.c"
-    }
-    yyssp -= yym;
-    yystate = *yyssp;
-    yyvsp -= yym;
-    yym = yylhs[yyn];
-    if (yystate == 0 && yym == 0)
-    {
-#if YYDEBUG
-        if (yydebug)
-            printf("%sdebug: after reduction, shifting from state 0 to\
- state %d\n", YYPREFIX, YYFINAL);
-#endif
-        yystate = YYFINAL;
-        *++yyssp = YYFINAL;
-        *++yyvsp = yyval;
-        if (yychar < 0)
-        {
-            if ((yychar = yylex()) < 0) yychar = 0;
-#if YYDEBUG
-            if (yydebug)
-            {
-                yys = 0;
-                if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
-                if (!yys) yys = "illegal-symbol";
-                printf("%sdebug: state %d, reading %d (%s)\n",
-                        YYPREFIX, YYFINAL, yychar, yys);
-            }
-#endif
-        }
-        if (yychar == 0) goto yyaccept;
-        goto yyloop;
-    }
-    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
-            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
-        yystate = yytable[yyn];
-    else
-        yystate = yydgoto[yym];
-#if YYDEBUG
-    if (yydebug)
-        printf("%sdebug: after reduction, shifting from state %d \
-to state %d\n", YYPREFIX, *yyssp, yystate);
-#endif
-    if (yyssp >= yyss + yystacksize - 1)
-    {
-        goto yyoverflow;
-    }
-    *++yyssp = yystate;
-    *++yyvsp = yyval;
-    goto yyloop;
-yyoverflow:
-    yyerror("yacc stack overflow");
-yyabort:
-    return (1);
-yyaccept:
-    return (0);
-}
diff --git a/x2p/a2p.h b/x2p/a2p.h
deleted file mode 100644 (file)
index 1d2a562..0000000
--- a/x2p/a2p.h
+++ /dev/null
@@ -1,462 +0,0 @@
-/*    a2p.h
- *
- *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- *    2000, 2001, 2002, 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.
- */
-
-#ifdef WIN32
-#define _INC_WIN32_PERL5       /* kludge around win32 stdio layer */
-#endif
-
-#ifdef __VMS
-#  include "config.h"
-#elif defined(NETWARE)
-#  include "../NetWare/config.h"
-#else
-#  include "../config.h"
-#endif
-
-#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
-# define STANDARD_C 1
-#endif
-
-#ifdef WIN32
-#undef USE_STDIO_PTR           /* XXX fast gets won't work, must investigate */
-#  ifndef STANDARD_C
-#    define STANDARD_C
-#  endif
-#endif
-
-/* Use all the "standard" definitions? */
-#if defined(STANDARD_C) && defined(I_STDLIB)
-#   include <stdlib.h>
-#endif /* STANDARD_C */
-
-#include <stdio.h>
-
-#ifdef I_MATH
-#include <math.h>
-#endif
-
-#ifdef I_SYS_TYPES
-#  include <sys/types.h>
-#endif
-
-#ifdef USE_NEXT_CTYPE
-
-#if NX_CURRENT_COMPILER_RELEASE >= 400
-#include <objc/NXCType.h>
-#else /*  NX_CURRENT_COMPILER_RELEASE < 400 */
-#include <appkit/NXCType.h>
-#endif /*  NX_CURRENT_COMPILER_RELEASE >= 400 */
-
-#else /* !USE_NEXT_CTYPE */
-#include <ctype.h>
-#endif /* USE_NEXT_CTYPE */
-
-#define MEM_SIZE Size_t
-#ifdef PERL_MEM_LOG
-  typedef IVTYPE IV;
-  typedef UVTYPE UV;
-#endif
-
-#ifndef STANDARD_C
-    Malloc_t malloc (MEM_SIZE nbytes);
-    Malloc_t calloc (MEM_SIZE elements, MEM_SIZE size);
-    Malloc_t realloc (Malloc_t where, MEM_SIZE nbytes);
-    Free_t   free (Malloc_t where);
-#endif
-
-#if defined(I_STRING) || defined(__cplusplus)
-#   include <string.h>
-#else
-#   include <strings.h>
-#endif
-
-#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
-#define strchr index
-#define strrchr rindex
-#endif
-
-#ifdef I_TIME
-#   include <time.h>
-#endif
-
-#ifdef I_SYS_TIME
-#   ifdef I_SYS_TIME_KERNEL
-#      define KERNEL
-#   endif
-#   include <sys/time.h>
-#   ifdef I_SYS_TIME_KERNEL
-#      undef KERNEL
-#   endif
-#endif
-
-#ifndef MSDOS
-#  if defined(HAS_TIMES) && defined(I_SYS_TIMES)
-#    include <sys/times.h>
-#  endif
-#endif
-
-#ifdef DOSISH
-# if defined(OS2)
-#   define PTHX_UNUSED
-#   include "../os2ish.h"
-# else
-#   include "../dosish.h"
-# endif
-#else
-# if defined(VMS)
-#   define NO_PERL_TYPEDEFS
-#   include "vmsish.h"
-# endif
-#endif
-
-#ifndef STANDARD_C
-/* All of these are in stdlib.h or time.h for ANSI C */
-Time_t time();
-struct tm *gmtime(), *localtime();
-#if defined(OEMVS)
-char *(strchr)(), *(strrchr)();
-char *(strcpy)(), *(strcat)();
-#else
-char *strchr(), *strrchr();
-char *strcpy(), *strcat();
-#endif
-#endif /* ! STANDARD_C */
-
-#ifdef __cplusplus
-#  define PERL_EXPORT_C extern "C"
-#else
-#  define PERL_EXPORT_C extern
-#endif
-
-#ifdef VMS
-#  include "handy.h"
-#else 
-#  include "../handy.h"
-#endif
-
-#define Nullop 0
-
-#define OPROG          1
-#define OJUNK          2
-#define OHUNKS         3
-#define ORANGE         4
-#define OPAT           5
-#define OHUNK          6
-#define OPPAREN                7
-#define OPANDAND       8
-#define OPOROR         9
-#define OPNOT          10
-#define OCPAREN                11
-#define OCANDAND       12
-#define OCOROR         13
-#define OCNOT          14
-#define ORELOP         15
-#define ORPAREN                16
-#define OMATCHOP       17
-#define OMPAREN                18
-#define OCONCAT                19
-#define OASSIGN                20
-#define OADD           21
-#define OSUBTRACT      22
-#define OMULT          23
-#define ODIV           24
-#define OMOD           25
-#define OPOSTINCR      26
-#define OPOSTDECR      27
-#define OPREINCR       28
-#define OPREDECR       29
-#define OUMINUS                30
-#define OUPLUS         31
-#define OPAREN         32
-#define OGETLINE       33
-#define OSPRINTF       34
-#define OSUBSTR                35
-#define OSTRING                36
-#define OSPLIT         37
-#define OSNEWLINE      38
-#define OINDEX         39
-#define ONUM           40
-#define OSTR           41
-#define OVAR           42
-#define OFLD           43
-#define ONEWLINE       44
-#define OCOMMENT       45
-#define OCOMMA         46
-#define OSEMICOLON     47
-#define OSCOMMENT      48
-#define OSTATES                49
-#define OSTATE         50
-#define OPRINT         51
-#define OPRINTF                52
-#define OBREAK         53
-#define ONEXT          54
-#define OEXIT          55
-#define OCONTINUE      56
-#define OREDIR         57
-#define OIF            58
-#define OWHILE         59
-#define OFOR           60
-#define OFORIN         61
-#define OVFLD          62
-#define OBLOCK         63
-#define OREGEX         64
-#define OLENGTH                65
-#define OLOG           66
-#define OEXP           67
-#define OSQRT          68
-#define OINT           69
-#define ODO            70
-#define OPOW           71
-#define OSUB           72
-#define OGSUB          73
-#define OMATCH         74
-#define OUSERFUN       75
-#define OUSERDEF       76
-#define OCLOSE         77
-#define OATAN2         78
-#define OSIN           79
-#define OCOS           80
-#define ORAND          81
-#define OSRAND         82
-#define ODELETE                83
-#define OSYSTEM                84
-#define OCOND          85
-#define ORETURN                86
-#define ODEFINED       87
-#define OSTAR          88
-
-#ifdef DOINIT
-const char *opname[] = {
-    "0",
-    "PROG",
-    "JUNK",
-    "HUNKS",
-    "RANGE",
-    "PAT",
-    "HUNK",
-    "PPAREN",
-    "PANDAND",
-    "POROR",
-    "PNOT",
-    "CPAREN",
-    "CANDAND",
-    "COROR",
-    "CNOT",
-    "RELOP",
-    "RPAREN",
-    "MATCHOP",
-    "MPAREN",
-    "CONCAT",
-    "ASSIGN",
-    "ADD",
-    "SUBTRACT",
-    "MULT",
-    "DIV",
-    "MOD",
-    "POSTINCR",
-    "POSTDECR",
-    "PREINCR",
-    "PREDECR",
-    "UMINUS",
-    "UPLUS",
-    "PAREN",
-    "GETLINE",
-    "SPRINTF",
-    "SUBSTR",
-    "STRING",
-    "SPLIT",
-    "SNEWLINE",
-    "INDEX",
-    "NUM",
-    "STR",
-    "VAR",
-    "FLD",
-    "NEWLINE",
-    "COMMENT",
-    "COMMA",
-    "SEMICOLON",
-    "SCOMMENT",
-    "STATES",
-    "STATE",
-    "PRINT",
-    "PRINTF",
-    "BREAK",
-    "NEXT",
-    "EXIT",
-    "CONTINUE",
-    "REDIR",
-    "IF",
-    "WHILE",
-    "FOR",
-    "FORIN",
-    "VFLD",
-    "BLOCK",
-    "REGEX",
-    "LENGTH",
-    "LOG",
-    "EXP",
-    "SQRT",
-    "INT",
-    "DO",
-    "POW",
-    "SUB",
-    "GSUB",
-    "MATCH",
-    "USERFUN",
-    "USERDEF",
-    "CLOSE",
-    "ATAN2",
-    "SIN",
-    "COS",
-    "RAND",
-    "SRAND",
-    "DELETE",
-    "SYSTEM",
-    "COND",
-    "RETURN",
-    "DEFINED",
-    "STAR",
-    "89"
-};
-#else
-extern const char *opname[];
-#endif
-
-EXT int mop INIT(1);
-
-union u_ops {
-    int ival;
-    char *cval;
-};
-#define OPSMAX 50000
-EXT union u_ops ops[OPSMAX];
-
-typedef struct string STR;
-typedef struct htbl HASH;
-
-#include "str.h"
-#include "hash.h"
-
-
-/* A string is TRUE if not "" or "0". */
-#define True(val) (tmps = (val), (*tmps && !(*tmps == '0' && !tmps[1])))
-EXT const char *Yes INIT("1");
-EXT const char *No INIT("");
-
-#define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
-EXT STR *Str;
-
-#define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
-
-/* Prototypes for things in a2p.c */
-int aryrefarg ( int arg );
-int bl ( int arg, int maybe );
-void dump ( int branch );
-int fixfargs ( int name, int arg, int prevargs );
-int fixrargs ( char *name, int arg, int prevargs );
-void fixup ( STR *str );
-int numary ( int arg );
-int oper0 ( int type );
-int oper1 ( int type, int arg1 );
-int oper2 ( int type, int arg1, int arg2 );
-int oper3 ( int type, int arg1, int arg2, int arg3 );
-int oper4 ( int type, int arg1, int arg2, int arg3, int arg4 );
-int oper5 ( int type, int arg1, int arg2, int arg3, int arg4, int arg5 );
-void putlines ( STR *str );
-void putone ( void );
-int rememberargs ( int arg );
-char * scannum ( char *s );
-char * scanpat ( char *s );
-int string ( const char *ptr, int len );
-void yyerror ( const char *s );
-int yylex ( void );
-
-EXT int line INIT(0);
-
-EXT FILE *rsfp;
-EXT char buf[2048];
-EXT char *bufptr INIT(buf);
-
-EXT STR *linestr INIT(NULL);
-
-EXT char tokenbuf[2048];
-EXT int expectterm INIT(TRUE);
-
-#ifdef DEBUGGING
-EXT int debug INIT(0);
-EXT int dlevel INIT(0);
-#define YYDEBUG 1
-extern int yydebug;
-#else
-# ifndef YYDEBUG
-#  define YYDEBUG 0
-# endif
-#endif
-
-EXT STR *freestrroot INIT(NULL);
-
-EXT STR str_no;
-EXT STR str_yes;
-
-EXT bool do_split INIT(FALSE);
-EXT bool split_to_array INIT(FALSE);
-EXT bool saw_RS INIT(FALSE);
-EXT bool saw_OFS INIT(FALSE);
-EXT bool saw_ORS INIT(FALSE);
-EXT bool saw_line_op INIT(FALSE);
-EXT bool in_begin INIT(TRUE);
-EXT bool do_opens INIT(FALSE);
-EXT bool do_fancy_opens INIT(FALSE);
-EXT bool lval_field INIT(FALSE);
-EXT bool do_chop INIT(FALSE);
-EXT bool need_entire INIT(FALSE);
-EXT bool absmaxfld INIT(FALSE);
-EXT bool saw_altinput INIT(FALSE);
-
-EXT bool nomemok INIT(FALSE);
-
-EXT char const_FS INIT(0);
-EXT char *namelist INIT(NULL);
-EXT char fswitch INIT(0);
-EXT bool old_awk INIT(0);
-
-EXT int saw_FS INIT(0);
-EXT int maxfld INIT(0);
-EXT int arymax INIT(0);
-EXT char *nameary[100];
-
-EXT STR *opens;
-
-EXT HASH *symtab;
-EXT HASH *curarghash;
-
-#define P_MIN          0
-#define P_LISTOP       5
-#define P_COMMA                10
-#define P_ASSIGN       15
-#define P_COND         20
-#define P_DOTDOT       25
-#define P_OROR         30
-#define P_ANDAND       35
-#define P_OR           40
-#define P_AND          45
-#define P_EQ           50
-#define P_REL          55
-#define P_UNI          60
-#define P_FILETEST     65
-#define P_SHIFT                70
-#define P_ADD          75
-#define P_MUL          80
-#define P_MATCH                85
-#define P_UNARY                90
-#define P_POW          95
-#define P_AUTO         100
-#define P_MAX          999
-
-EXT int an;
diff --git a/x2p/a2p.pod b/x2p/a2p.pod
deleted file mode 100644 (file)
index aeddf9a..0000000
+++ /dev/null
@@ -1,175 +0,0 @@
-=head1 NAME
-
-a2p - Awk to Perl translator
-
-=head1 SYNOPSIS
-
-B<a2p> [I<options>] [I<filename>]
-
-=head1 DESCRIPTION
-
-I<A2p> takes an awk script specified on the command line (or from
-standard input) and produces a comparable I<perl> script on the
-standard output.
-
-=head2 OPTIONS
-
-Options include:
-
-=over 5
-
-=item B<-DE<lt>numberE<gt>>
-
-sets debugging flags.
-
-=item B<-FE<lt>characterE<gt>>
-
-tells a2p that this awk script is always invoked with this B<-F>
-switch.
-
-=item B<-nE<lt>fieldlistE<gt>>
-
-specifies the names of the input fields if input does not have to be
-split into an array.  If you were translating an awk script that
-processes the password file, you might say:
-
-       a2p -7 -nlogin.password.uid.gid.gcos.shell.home
-
-Any delimiter can be used to separate the field names.
-
-=item B<-E<lt>numberE<gt>>
-
-causes a2p to assume that input will always have that many fields.
-
-=item B<-o>
-
-tells a2p to use old awk behavior.  The only current differences are:
-
-=over 5
-
-=item *
-
-Old awk always has a line loop, even if there are no line
-actions, whereas new awk does not.
-
-=item *
-
-In old awk, sprintf is extremely greedy about its arguments.
-For example, given the statement
-
-       print sprintf(some_args), extra_args;
-
-old awk considers I<extra_args> to be arguments to C<sprintf>; new awk
-considers them arguments to C<print>.
-
-=back
-
-=back
-
-=head2 "Considerations"
-
-A2p cannot do as good a job translating as a human would, but it
-usually does pretty well.  There are some areas where you may want to
-examine the perl script produced and tweak it some.  Here are some of
-them, in no particular order.
-
-There is an awk idiom of putting int() around a string expression to
-force numeric interpretation, even though the argument is always
-integer anyway.  This is generally unneeded in perl, but a2p can't
-tell if the argument is always going to be integer, so it leaves it
-in.  You may wish to remove it.
-
-Perl differentiates numeric comparison from string comparison.  Awk
-has one operator for both that decides at run time which comparison to
-do.  A2p does not try to do a complete job of awk emulation at this
-point.  Instead it guesses which one you want.  It's almost always
-right, but it can be spoofed.  All such guesses are marked with the
-comment "C<#???>".  You should go through and check them.  You might
-want to run at least once with the B<-w> switch to perl, which will
-warn you if you use == where you should have used eq.
-
-Perl does not attempt to emulate the behavior of awk in which
-nonexistent array elements spring into existence simply by being
-referenced.  If somehow you are relying on this mechanism to create
-null entries for a subsequent for...in, they won't be there in perl.
-
-If a2p makes a split line that assigns to a list of variables that
-looks like (Fld1, Fld2, Fld3...) you may want to rerun a2p using the
-B<-n> option mentioned above.  This will let you name the fields
-throughout the script.  If it splits to an array instead, the script
-is probably referring to the number of fields somewhere.
-
-The exit statement in awk doesn't necessarily exit; it goes to the END
-block if there is one.  Awk scripts that do contortions within the END
-block to bypass the block under such circumstances can be simplified
-by removing the conditional in the END block and just exiting directly
-from the perl script.
-
-Perl has two kinds of array, numerically-indexed and associative.
-Perl associative arrays are called "hashes".  Awk arrays are usually
-translated to hashes, but if you happen to know that the index is
-always going to be numeric you could change the {...} to [...].
-Iteration over a hash is done using the keys() function, but iteration
-over an array is NOT.  You might need to modify any loop that iterates
-over such an array.
-
-Awk starts by assuming OFMT has the value %.6g.  Perl starts by
-assuming its equivalent, $#, to have the value %.20g.  You'll want to
-set $# explicitly if you use the default value of OFMT.
-
-Near the top of the line loop will be the split operation that is
-implicit in the awk script.  There are times when you can move this
-down past some conditionals that test the entire record so that the
-split is not done as often.
-
-For aesthetic reasons you may wish to change index variables from being
-1-based (awk style) to 0-based (Perl style).  Be sure to change all
-operations the variable is involved in to match.
-
-Cute comments that say "# Here is a workaround because awk is dumb"
-are passed through unmodified.
-
-Awk scripts are often embedded in a shell script that pipes stuff into
-and out of awk.  Often the shell script wrapper can be incorporated
-into the perl script, since perl can start up pipes into and out of
-itself, and can do other things that awk can't do by itself.
-
-Scripts that refer to the special variables RSTART and RLENGTH can
-often be simplified by referring to the variables $`, $& and $', as
-long as they are within the scope of the pattern match that sets them.
-
-The produced perl script may have subroutines defined to deal with
-awk's semantics regarding getline and print.  Since a2p usually picks
-correctness over efficiency.  it is almost always possible to rewrite
-such code to be more efficient by discarding the semantic sugar.
-
-For efficiency, you may wish to remove the keyword from any return
-statement that is the last statement executed in a subroutine.  A2p
-catches the most common case, but doesn't analyze embedded blocks for
-subtler cases.
-
-ARGV[0] translates to $ARGV0, but ARGV[n] translates to $ARGV[$n-1].  A
-loop that tries to iterate over ARGV[0] won't find it.
-
-=head1 ENVIRONMENT
-
-A2p uses no environment variables.
-
-=head1 AUTHOR
-
-Larry Wall E<lt>F<larry@wall.org>E<gt>
-
-=head1 SEE ALSO
-
- perl  The perl compiler/interpreter
-
- s2p   sed to perl translator
-
-=head1 BUGS
-
-It would be possible to emulate awk's behavior in selecting string
-versus numeric operations at run time by inspection of the operands,
-but it would be gross and inefficient.  Besides, a2p almost always
-guesses right.
-
-Storage for the awk syntax tree is currently static, and can run out.
diff --git a/x2p/a2p.y b/x2p/a2p.y
deleted file mode 100644 (file)
index 74c42d8..0000000
--- a/x2p/a2p.y
+++ /dev/null
@@ -1,432 +0,0 @@
-%{
-/* $RCSfile: a2p.y,v $$Revision: 4.1 $$Date: 92/08/07 18:29:12 $
- *
- *    Copyright (C) 1991, 1992, 1993, 1994, 1996, 1997, 1999, 2000,
- *    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.
- *
- * $Log:       a2p.y,v $
- */
-
-#include "INTERN.h"
-#include "a2p.h"
-
-int root;
-int begins = Nullop;
-int ends = Nullop;
-
-%}
-%token BEGIN END
-%token REGEX
-%token SEMINEW NEWLINE COMMENT
-%token FUN1 FUNN GRGR
-%token PRINT PRINTF SPRINTF_OLD SPRINTF_NEW SPLIT
-%token IF ELSE WHILE FOR IN
-%token EXIT NEXT BREAK CONTINUE RET
-%token GETLINE DO SUB GSUB MATCH
-%token FUNCTION USERFUN DELETE
-
-%right ASGNOP
-%right '?' ':'
-%left OROR
-%left ANDAND
-%left IN
-%left NUMBER VAR SUBSTR INDEX
-%left MATCHOP
-%left RELOP '<' '>'
-%left OR
-%left STRING
-%left '+' '-'
-%left '*' '/' '%'
-%right UMINUS
-%left NOT
-%right '^'
-%left INCR DECR
-%left FIELD VFIELD SVFIELD
-
-%%
-
-program        : junk hunks
-               { root = oper4(OPROG,$1,begins,$2,ends); }
-       ;
-
-begin  : BEGIN '{' maybe states '}' junk
-               { begins = oper4(OJUNK,begins,$3,$4,$6); in_begin = FALSE;
-                   $$ = Nullop; }
-       ;
-
-end    : END '{' maybe states '}'
-               { ends = oper3(OJUNK,ends,$3,$4); $$ = Nullop; }
-       | end NEWLINE
-               { $$ = $1; }
-       ;
-
-hunks  : hunks hunk junk
-               { $$ = oper3(OHUNKS,$1,$2,$3); }
-       | /* NULL */
-               { $$ = Nullop; }
-       ;
-
-hunk   : patpat
-               { $$ = oper1(OHUNK,$1); need_entire = TRUE; }
-       | patpat '{' maybe states '}'
-               { $$ = oper2(OHUNK,$1,oper2(OJUNK,$3,$4)); }
-       | FUNCTION USERFUN '(' arg_list ')' maybe '{' maybe states '}'
-               { fixfargs($2,$4,0); $$ = oper5(OUSERDEF,$2,$4,$6,$8,$9); }
-       | '{' maybe states '}'
-               { $$ = oper2(OHUNK,Nullop,oper2(OJUNK,$2,$3)); }
-       | begin
-       | end
-       ;
-
-arg_list: expr_list
-               { $$ = rememberargs($$); }
-       ;
-
-patpat : cond
-               { $$ = oper1(OPAT,$1); }
-       | cond ',' cond
-               { $$ = oper2(ORANGE,$1,$3); }
-       ;
-
-cond   : expr
-       | match
-       | rel
-       | compound_cond
-       | cond '?' expr ':' expr
-               { $$ = oper3(OCOND,$1,$3,$5); }
-       ;
-
-compound_cond
-       : '(' compound_cond ')'
-               { $$ = oper1(OCPAREN,$2); }
-       | cond ANDAND maybe cond
-               { $$ = oper3(OCANDAND,$1,$3,$4); }
-       | cond OROR maybe cond
-               { $$ = oper3(OCOROR,$1,$3,$4); }
-       | NOT cond
-               { $$ = oper1(OCNOT,$2); }
-       ;
-
-rel    : expr RELOP expr
-               { $$ = oper3(ORELOP,$2,$1,$3); }
-       | expr '>' expr
-               { $$ = oper3(ORELOP,string(">",1),$1,$3); }
-       | expr '<' expr
-               { $$ = oper3(ORELOP,string("<",1),$1,$3); }
-       | '(' rel ')'
-               { $$ = oper1(ORPAREN,$2); }
-       ;
-
-match  : expr MATCHOP expr
-               { $$ = oper3(OMATCHOP,$2,$1,$3); }
-       | expr MATCHOP REGEX
-               { $$ = oper3(OMATCHOP,$2,$1,oper1(OREGEX,$3)); }
-       | REGEX         %prec MATCHOP
-               { $$ = oper1(OREGEX,$1); }
-       | '(' match ')'
-               { $$ = oper1(OMPAREN,$2); }
-       ;
-
-expr   : term
-               { $$ = $1; }
-       | expr term
-               { $$ = oper2(OCONCAT,$1,$2); }
-       | expr '?' expr ':' expr
-               { $$ = oper3(OCOND,$1,$3,$5); }
-       | variable ASGNOP cond
-               {
-                   $$ = oper3(OASSIGN,$2,$1,$3);
-                   if ((ops[$1].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[$1].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-       ;
-
-sprintf        : SPRINTF_NEW
-       | SPRINTF_OLD ;
-
-term   : variable
-               { $$ = $1; }
-       | NUMBER
-               { $$ = oper1(ONUM,$1); }
-       | STRING
-               { $$ = oper1(OSTR,$1); }
-       | term '+' term
-               { $$ = oper2(OADD,$1,$3); }
-       | term '-' term
-               { $$ = oper2(OSUBTRACT,$1,$3); }
-       | term '*' term
-               { $$ = oper2(OMULT,$1,$3); }
-       | term '/' term
-               { $$ = oper2(ODIV,$1,$3); }
-       | term '%' term
-               { $$ = oper2(OMOD,$1,$3); }
-       | term '^' term
-               { $$ = oper2(OPOW,$1,$3); }
-       | term IN VAR
-               { $$ = oper2(ODEFINED,aryrefarg($3),$1); }
-       | variable INCR
-               {
-                   $$ = oper1(OPOSTINCR,$1);
-                   if ((ops[$1].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[$1].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-       | variable DECR
-               {
-                   $$ = oper1(OPOSTDECR,$1);
-                   if ((ops[$1].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[$1].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-       | INCR variable
-               {
-                   $$ = oper1(OPREINCR,$2);
-                   if ((ops[$2].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[$2].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-       | DECR variable
-               {
-                   $$ = oper1(OPREDECR,$2);
-                   if ((ops[$2].ival & 255) == OFLD)
-                       lval_field = TRUE;
-                   else if ((ops[$2].ival & 255) == OVFLD)
-                       lval_field = TRUE;
-               }
-       | '-' term %prec UMINUS
-               { $$ = oper1(OUMINUS,$2); }
-       | '+' term %prec UMINUS
-               { $$ = oper1(OUPLUS,$2); }
-       | '(' cond ')'
-               { $$ = oper1(OPAREN,$2); }
-       | GETLINE
-               { $$ = oper0(OGETLINE); }
-       | GETLINE variable
-               { $$ = oper1(OGETLINE,$2); }
-       | GETLINE '<' expr
-               { $$ = oper3(OGETLINE,Nullop,string("<",1),$3);
-                   if (ops[$3].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-       | GETLINE variable '<' expr
-               { $$ = oper3(OGETLINE,$2,string("<",1),$4);
-                   if (ops[$4].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-       | term 'p' GETLINE
-               { $$ = oper3(OGETLINE,Nullop,string("|",1),$1);
-                   if (ops[$1].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-       | term 'p' GETLINE variable
-               { $$ = oper3(OGETLINE,$4,string("|",1),$1);
-                   if (ops[$1].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-       | FUN1
-               { $$ = oper0($1); need_entire = do_chop = TRUE; }
-       | FUN1 '(' ')'
-               { $$ = oper1($1,Nullop); need_entire = do_chop = TRUE; }
-       | FUN1 '(' expr ')'
-               { $$ = oper1($1,$3); }
-       | FUNN '(' expr_list ')'
-               { $$ = oper1($1,$3); }
-       | USERFUN '(' expr_list ')'
-               { $$ = oper2(OUSERFUN,$1,$3); }
-       | SPRINTF_NEW '(' expr_list ')'
-               { $$ = oper1(OSPRINTF,$3); }
-       | sprintf expr_list
-               { $$ = oper1(OSPRINTF,$2); }
-       | SUBSTR '(' expr ',' expr ',' expr ')'
-               { $$ = oper3(OSUBSTR,$3,$5,$7); }
-       | SUBSTR '(' expr ',' expr ')'
-               { $$ = oper2(OSUBSTR,$3,$5); }
-       | SPLIT '(' expr ',' VAR ',' expr ')'
-               { $$ = oper3(OSPLIT,$3,aryrefarg(numary($5)),$7); }
-       | SPLIT '(' expr ',' VAR ',' REGEX ')'
-               { $$ = oper3(OSPLIT,$3,aryrefarg(numary($5)),oper1(OREGEX,$7));}
-       | SPLIT '(' expr ',' VAR ')'
-               { $$ = oper2(OSPLIT,$3,aryrefarg(numary($5))); }
-       | INDEX '(' expr ',' expr ')'
-               { $$ = oper2(OINDEX,$3,$5); }
-       | MATCH '(' expr ',' REGEX ')'
-               { $$ = oper2(OMATCH,$3,oper1(OREGEX,$5)); }
-       | MATCH '(' expr ',' expr ')'
-               { $$ = oper2(OMATCH,$3,$5); }
-       | SUB '(' expr ',' expr ')'
-               { $$ = oper2(OSUB,$3,$5); }
-       | SUB '(' REGEX ',' expr ')'
-               { $$ = oper2(OSUB,oper1(OREGEX,$3),$5); }
-       | GSUB '(' expr ',' expr ')'
-               { $$ = oper2(OGSUB,$3,$5); }
-       | GSUB '(' REGEX ',' expr ')'
-               { $$ = oper2(OGSUB,oper1(OREGEX,$3),$5); }
-       | SUB '(' expr ',' expr ',' expr ')'
-               { $$ = oper3(OSUB,$3,$5,$7); }
-       | SUB '(' REGEX ',' expr ',' expr ')'
-               { $$ = oper3(OSUB,oper1(OREGEX,$3),$5,$7); }
-       | GSUB '(' expr ',' expr ',' expr ')'
-               { $$ = oper3(OGSUB,$3,$5,$7); }
-       | GSUB '(' REGEX ',' expr ',' expr ')'
-               { $$ = oper3(OGSUB,oper1(OREGEX,$3),$5,$7); }
-       ;
-
-variable: VAR
-               { $$ = oper1(OVAR,$1); }
-       | VAR '[' expr_list ']'
-               { $$ = oper2(OVAR,aryrefarg($1),$3); }
-       | FIELD
-               { $$ = oper1(OFLD,$1); }
-       | SVFIELD
-               { $$ = oper1(OVFLD,oper1(OVAR,$1)); }
-       | VFIELD term
-               { $$ = oper1(OVFLD,$2); }
-       ;
-
-expr_list
-       : expr
-       | clist
-       | /* NULL */
-               { $$ = Nullop; }
-       ;
-
-clist  : expr ',' maybe expr
-               { $$ = oper3(OCOMMA,$1,$3,$4); }
-       | clist ',' maybe expr
-               { $$ = oper3(OCOMMA,$1,$3,$4); }
-       | '(' clist ')'         /* these parens are invisible */
-               { $$ = $2; }
-       ;
-
-junk   : junk hunksep
-               { $$ = oper2(OJUNK,$1,$2); }
-       | /* NULL */
-               { $$ = Nullop; }
-       ;
-
-hunksep : ';'
-               { $$ = oper2(OJUNK,oper0(OSEMICOLON),oper0(ONEWLINE)); }
-       | SEMINEW
-               { $$ = oper2(OJUNK,oper0(OSEMICOLON),oper0(ONEWLINE)); }
-       | NEWLINE
-               { $$ = oper0(ONEWLINE); }
-       | COMMENT
-               { $$ = oper1(OCOMMENT,$1); }
-       ;
-
-maybe  : maybe nlstuff
-               { $$ = oper2(OJUNK,$1,$2); }
-       | /* NULL */
-               { $$ = Nullop; }
-       ;
-
-nlstuff : NEWLINE
-               { $$ = oper0(ONEWLINE); }
-       | COMMENT
-               { $$ = oper1(OCOMMENT,$1); }
-       ;
-
-separator
-       : ';' maybe
-               { $$ = oper2(OJUNK,oper0(OSEMICOLON),$2); }
-       | SEMINEW maybe
-               { $$ = oper2(OJUNK,oper0(OSNEWLINE),$2); }
-       | NEWLINE maybe
-               { $$ = oper2(OJUNK,oper0(OSNEWLINE),$2); }
-       | COMMENT maybe
-               { $$ = oper2(OJUNK,oper1(OSCOMMENT,$1),$2); }
-       ;
-
-states : states statement
-               { $$ = oper2(OSTATES,$1,$2); }
-       | /* NULL */
-               { $$ = Nullop; }
-       ;
-
-statement
-       : simple separator maybe
-               { $$ = oper2(OJUNK,oper2(OSTATE,$1,$2),$3); }
-       | ';' maybe
-               { $$ = oper2(OSTATE,Nullop,oper2(OJUNK,oper0(OSEMICOLON),$2)); }
-       | SEMINEW maybe
-               { $$ = oper2(OSTATE,Nullop,oper2(OJUNK,oper0(OSNEWLINE),$2)); }
-       | compound
-       ;
-
-simpnull: simple
-       | /* NULL */
-               { $$ = Nullop; }
-       ;
-
-simple
-       : expr
-       | PRINT expr_list redir expr
-               { $$ = oper3(OPRINT,$2,$3,$4);
-                   do_opens = TRUE;
-                   saw_ORS = saw_OFS = TRUE;
-                   if (!$2) need_entire = TRUE;
-                   if (ops[$4].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-       | PRINT expr_list
-               { $$ = oper1(OPRINT,$2);
-                   if (!$2) need_entire = TRUE;
-                   saw_ORS = saw_OFS = TRUE;
-               }
-       | PRINTF expr_list redir expr
-               { $$ = oper3(OPRINTF,$2,$3,$4);
-                   do_opens = TRUE;
-                   if (!$2) need_entire = TRUE;
-                   if (ops[$4].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
-       | PRINTF expr_list
-               { $$ = oper1(OPRINTF,$2);
-                   if (!$2) need_entire = TRUE;
-               }
-       | BREAK
-               { $$ = oper0(OBREAK); }
-       | NEXT
-               { $$ = oper0(ONEXT); }
-       | EXIT
-               { $$ = oper0(OEXIT); }
-       | EXIT expr
-               { $$ = oper1(OEXIT,$2); }
-       | CONTINUE
-               { $$ = oper0(OCONTINUE); }
-       | RET
-               { $$ = oper0(ORETURN); }
-       | RET expr
-               { $$ = oper1(ORETURN,$2); }
-       | DELETE VAR '[' expr_list ']'
-               { $$ = oper2(ODELETE,aryrefarg($2),$4); }
-       ;
-
-redir  : '>'   %prec FIELD
-               { $$ = oper1(OREDIR,string(">",1)); }
-       | GRGR
-               { $$ = oper1(OREDIR,string(">>",2)); }
-       | '|'
-               { $$ = oper1(OREDIR,string("|",1)); }
-       ;
-
-compound
-       : IF '(' cond ')' maybe statement
-               { $$ = oper2(OIF,$3,bl($6,$5)); }
-       | IF '(' cond ')' maybe statement ELSE maybe statement
-               { $$ = oper3(OIF,$3,bl($6,$5),bl($9,$8)); }
-       | WHILE '(' cond ')' maybe statement
-               { $$ = oper2(OWHILE,$3,bl($6,$5)); }
-       | DO maybe statement WHILE '(' cond ')'
-               { $$ = oper2(ODO,bl($3,$2),$6); }
-       | FOR '(' simpnull ';' cond ';' simpnull ')' maybe statement
-               { $$ = oper4(OFOR,$3,$5,$7,bl($10,$9)); }
-       | FOR '(' simpnull ';'  ';' simpnull ')' maybe statement
-               { $$ = oper4(OFOR,$3,string("",0),$6,bl($9,$8)); }
-       | FOR '(' expr ')' maybe statement
-               { $$ = oper2(OFORIN,$3,bl($6,$5)); }
-       | '{' maybe states '}' maybe
-               { $$ = oper3(OBLOCK,oper2(OJUNK,$2,$3),Nullop,$5); }
-       ;
-
-%%
-
-int yyparse (void);
-
-#include "a2py.c"
diff --git a/x2p/a2py.c b/x2p/a2py.c
deleted file mode 100644 (file)
index 695c4fd..0000000
+++ /dev/null
@@ -1,1300 +0,0 @@
-/*    a2py.c
- *
- *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- *    2000, 2001, 2002, 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.
- */
-
-#if defined(OS2) || defined(WIN32) || defined(NETWARE)
-#if defined(WIN32)
-#include <io.h>
-#endif
-#if defined(NETWARE)
-#include "../netware/clibstuf.h"
-#endif
-#include "../patchlevel.h"
-#endif
-#include "util.h"
-#include "../unicode_constants.h"
-#define DELETE_CHAR DEL_NATIVE
-
-const char *filename;
-const char *myname;
-
-int checkers = 0;
-
-int oper0(int type);
-int oper1(int type, int arg1);
-int oper2(int type, int arg1, int arg2);
-int oper3(int type, int arg1, int arg2, int arg3);
-int oper4(int type, int arg1, int arg2, int arg3, int arg4);
-int oper5(int type, int arg1, int arg2, int arg3, int arg4, int arg5);
-STR *walk(int useval, int level, int node, int *numericptr, int minprec);
-#ifdef NETWARE
-char *savestr(char *str);
-char *cpy2(char *to, char *from, int delim);
-#endif
-
-#if defined(OS2) || defined(WIN32) || defined(NETWARE)
-static void usage(void);
-
-static void
-usage()
-{
-    printf("\nThis is the AWK to PERL translator, revision %d.0, version %d\n", PERL_REVISION, PERL_VERSION);
-    printf("\nUsage: %s [-D<number>] [-F<char>] [-n<fieldlist>] [-<number>] filename\n", myname);
-    printf("\n  -D<number>      sets debugging flags."
-           "\n  -F<character>   the awk script to translate is always invoked with"
-           "\n                  this -F switch."
-           "\n  -n<fieldlist>   specifies the names of the input fields if input does"
-           "\n                  not have to be split into an array."
-           "\n  -<number>       causes a2p to assume that input will always have that"
-           "\n                  many fields.\n");
-    exit(1);
-}
-#endif
-
-int
-main(int argc, const char **argv)
-{
-    STR *str;
-    int i;
-    STR *tmpstr;
-    /* char *namelist;    */
-
-       #ifdef NETWARE
-               fnInitGpfGlobals();     /* For importing the CLIB calls in place of Watcom calls */
-       #endif  /* NETWARE */
-
-    myname = argv[0];
-    linestr = str_new(80);
-    for (argc--,argv++; argc; argc--,argv++) {
-       if (argv[0][0] != '-' || !argv[0][1])
-           break;
-       switch (argv[0][1]) {
-#ifdef DEBUGGING
-       case 'D':
-           debug = atoi(argv[0]+2);
-#if YYDEBUG
-           yydebug = (debug & 1);
-#endif
-           break;
-#endif
-       case '0': case '1': case '2': case '3': case '4':
-       case '5': case '6': case '7': case '8': case '9':
-           maxfld = atoi(argv[0]+1);
-           absmaxfld = TRUE;
-           break;
-       case 'F':
-           fswitch = argv[0][2];
-           break;
-       case 'n':
-           namelist = savestr(argv[0]+2);
-           break;
-       case 'o':
-           old_awk = TRUE;
-           break;
-       case '-':
-           argc--,argv++;
-           goto switch_end;
-       case 0:
-           break;
-       default:
-#if defined(OS2) || defined(WIN32) || defined(NETWARE)
-           fprintf(stderr, "Unrecognized switch: %s\n",argv[0]);
-            usage();
-#else
-           fatal("Unrecognized switch: %s\n",argv[0]);
-#endif
-       }
-    }
-  switch_end:
-
-    /* open script */
-
-    if (argv[0] == NULL) {
-#if defined(OS2) || defined(WIN32) || defined(NETWARE)
-       if ( isatty(fileno(stdin)) )
-           usage();
-#endif
-        argv[0] = "-";
-    }
-    filename = savestr(argv[0]);
-
-    if (strEQ(filename,"-"))
-       argv[0] = "";
-    if (!*argv[0])
-       rsfp = stdin;
-    else
-       rsfp = fopen(argv[0],"r");
-    if (rsfp == NULL)
-       fatal("Awk script \"%s\" doesn't seem to exist.\n",filename);
-
-    /* init tokener */
-
-    bufptr = str_get(linestr);
-    symtab = hnew();
-    curarghash = hnew();
-
-    /* now parse the report spec */
-
-    if (yyparse())
-       fatal("Translation aborted due to syntax errors.\n");
-
-#ifdef DEBUGGING
-    if (debug & 2) {
-       int type, len;
-
-       for (i=1; i<mop;) {
-           type = ops[i].ival;
-           len = type >> 8;
-           type &= 255;
-           printf("%d\t%d\t%d\t%-10s",i++,type,len,opname[type]);
-           if (type == OSTRING)
-               printf("\t\"%s\"\n",ops[i].cval),i++;
-           else {
-               while (len--) {
-                   printf("\t%d",ops[i].ival),i++;
-               }
-               putchar('\n');
-           }
-       }
-    }
-    if (debug & 8)
-       dump(root);
-#endif
-
-    /* first pass to look for numeric variables */
-
-    prewalk(0,0,root,&i);
-
-    /* second pass to produce new program */
-
-    tmpstr = walk(0,0,root,&i,P_MIN);
-    str = str_make(STARTPERL);
-    str_cat(str, "\neval 'exec ");
-    str_cat(str, BIN);
-    str_cat(str, "/perl -S $0 ${1+\"$@\"}'\n\
-    if $running_under_some_shell;\n\
-                       # this emulates #! processing on NIH machines.\n\
-                       # (remove #! line above if indigestible)\n\n");
-    str_cat(str,
-      "eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;\n");
-    str_cat(str,
-      "                        # process any FOO=bar switches\n\n");
-    if (do_opens && opens) {
-       str_scat(str,opens);
-       str_free(opens);
-       str_cat(str,"\n");
-    }
-    str_scat(str,tmpstr);
-    str_free(tmpstr);
-#ifdef DEBUGGING
-    if (!(debug & 16))
-#endif
-    fixup(str);
-    putlines(str);
-    if (checkers) {
-       fprintf(stderr,
-         "Please check my work on the %d line%s I've marked with \"#???\".\n",
-               checkers, checkers == 1 ? "" : "s" );
-       fprintf(stderr,
-         "The operation I've selected may be wrong for the operand types.\n");
-    }
-    exit(0);
-    /* by ANSI specs return is needed. This also shuts up VC++ and his warnings */
-    return(0);
-}
-
-#define RETURN(retval) return (bufptr = s,retval)
-#define XTERM(retval) return (expectterm = TRUE,bufptr = s,retval)
-#define XOP(retval) return (expectterm = FALSE,bufptr = s,retval)
-#define ID(x) return (yylval=string(x,0),expectterm = FALSE,bufptr = s,idtype)
-
-int idtype;
-
-int
-yylex(void)
-{
-    char *s = bufptr;
-    char *d;
-    int tmp;
-
-  retry:
-#if YYDEBUG
-    if (yydebug) {
-       if (strchr(s,'\n'))
-           fprintf(stderr,"Tokener at %s",s);
-       else
-           fprintf(stderr,"Tokener at %s\n",s);
-    }
-#endif
-    switch (*s) {
-    default:
-       fprintf(stderr,
-           "Unrecognized character %c in file %s line %d--ignoring.\n",
-            *s++,filename,line);
-       goto retry;
-    case '\\':
-       s++;
-       if (*s && *s != '\n') {
-           yyerror("Ignoring spurious backslash");
-           goto retry;
-       }
-       /*FALLSTHROUGH*/
-    case 0:
-       s = str_get(linestr);
-       *s = '\0';
-       if (!rsfp)
-           RETURN(0);
-       line++;
-       if ((s = str_gets(linestr, rsfp)) == NULL) {
-           if (rsfp != stdin)
-               fclose(rsfp);
-           rsfp = NULL;
-           s = str_get(linestr);
-           RETURN(0);
-       }
-       goto retry;
-    case ' ': case '\t':
-       s++;
-       goto retry;
-    case '\n':
-       *s = '\0';
-       XTERM(NEWLINE);
-    case '#':
-       yylval = string(s,0);
-       *s = '\0';
-       XTERM(COMMENT);
-    case ';':
-       tmp = *s++;
-       if (*s == '\n') {
-           s++;
-           XTERM(SEMINEW);
-       }
-       XTERM(tmp);
-    case '(':
-       tmp = *s++;
-       XTERM(tmp);
-    case '{':
-    case '[':
-    case ')':
-    case ']':
-    case '?':
-    case ':':
-       tmp = *s++;
-       XOP(tmp);
-    case DELETE_CHAR:
-       s++;
-       XTERM('}');
-    case '}':
-       for (d = s + 1; isSPACE(*d); d++) ;
-       if (!*d)
-           s = d - 1;
-       *s = 127;
-       XTERM(';');
-    case ',':
-       tmp = *s++;
-       XTERM(tmp);
-    case '~':
-       s++;
-       yylval = string("~",1);
-       XTERM(MATCHOP);
-    case '+':
-    case '-':
-       if (s[1] == *s) {
-           s++;
-           if (*s++ == '+')
-               XTERM(INCR);
-           else
-               XTERM(DECR);
-       }
-       /* FALL THROUGH */
-    case '*':
-    case '%':
-    case '^':
-       tmp = *s++;
-       if (*s == '=') {
-           if (tmp == '^')
-               yylval = string("**=",3);
-           else
-               yylval = string(s-1,2);
-           s++;
-           XTERM(ASGNOP);
-       }
-       XTERM(tmp);
-    case '&':
-       s++;
-       tmp = *s++;
-       if (tmp == '&')
-           XTERM(ANDAND);
-       s--;
-       XTERM('&');
-    case '|':
-       s++;
-       tmp = *s++;
-       if (tmp == '|')
-           XTERM(OROR);
-       s--;
-       while (*s == ' ' || *s == '\t')
-           s++;
-       if (strnEQ(s,"getline",7))
-           XTERM('p');
-       else
-           XTERM('|');
-    case '=':
-       s++;
-       tmp = *s++;
-       if (tmp == '=') {
-           yylval = string("==",2);
-           XTERM(RELOP);
-       }
-       s--;
-       yylval = string("=",1);
-       XTERM(ASGNOP);
-    case '!':
-       s++;
-       tmp = *s++;
-       if (tmp == '=') {
-           yylval = string("!=",2);
-           XTERM(RELOP);
-       }
-       if (tmp == '~') {
-           yylval = string("!~",2);
-           XTERM(MATCHOP);
-       }
-       s--;
-       XTERM(NOT);
-    case '<':
-       s++;
-       tmp = *s++;
-       if (tmp == '=') {
-           yylval = string("<=",2);
-           XTERM(RELOP);
-       }
-       s--;
-       XTERM('<');
-    case '>':
-       s++;
-       tmp = *s++;
-       if (tmp == '>') {
-           yylval = string(">>",2);
-           XTERM(GRGR);
-       }
-       if (tmp == '=') {
-           yylval = string(">=",2);
-           XTERM(RELOP);
-       }
-       s--;
-       XTERM('>');
-
-#define SNARFWORD \
-       d = tokenbuf; \
-       while (isWORDCHAR(*s)) \
-           *d++ = *s++; \
-       *d = '\0'; \
-       d = tokenbuf; \
-       if (*s == '(') \
-           idtype = USERFUN; \
-       else \
-           idtype = VAR;
-
-    case '$':
-       s++;
-       if (*s == '0') {
-           s++;
-           do_chop = TRUE;
-           need_entire = TRUE;
-           idtype = VAR;
-           ID("0");
-       }
-       do_split = TRUE;
-       if (isDIGIT(*s)) {
-           for (d = s; isDIGIT(*s); s++) ;
-           yylval = string(d,s-d);
-           tmp = atoi(d);
-           if (tmp > maxfld)
-               maxfld = tmp;
-           XOP(FIELD);
-       }
-       for (d = s; isWORDCHAR(*s); )
-           s++;
-       split_to_array = TRUE;
-       if (d != s)
-       {
-           yylval = string(d,s-d);
-           XTERM(SVFIELD);
-       }
-       XOP(VFIELD);
-
-    case '/':                  /* may either be division or pattern */
-       if (expectterm) {
-           s = scanpat(s);
-           XTERM(REGEX);
-       }
-       tmp = *s++;
-       if (*s == '=') {
-           yylval = string("/=",2);
-           s++;
-           XTERM(ASGNOP);
-       }
-       XTERM(tmp);
-
-    case '0': case '1': case '2': case '3': case '4':
-    case '5': case '6': case '7': case '8': case '9': case '.':
-       s = scannum(s);
-       XOP(NUMBER);
-    case '"':
-       s++;
-       s = cpy2(tokenbuf,s,s[-1]);
-       if (!*s)
-           fatal("String not terminated:\n%s",str_get(linestr));
-       s++;
-       yylval = string(tokenbuf,0);
-       XOP(STRING);
-
-    case 'a': case 'A':
-       SNARFWORD;
-       if (strEQ(d,"ARGV")) {
-           yylval=numary(string("ARGV",0));
-           XOP(VAR);
-       }
-       if (strEQ(d,"atan2")) {
-           yylval = OATAN2;
-           XTERM(FUNN);
-       }
-       ID(d);
-    case 'b': case 'B':
-       SNARFWORD;
-       if (strEQ(d,"break"))
-           XTERM(BREAK);
-       if (strEQ(d,"BEGIN"))
-           XTERM(BEGIN);
-       ID(d);
-    case 'c': case 'C':
-       SNARFWORD;
-       if (strEQ(d,"continue"))
-           XTERM(CONTINUE);
-       if (strEQ(d,"cos")) {
-           yylval = OCOS;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"close")) {
-           do_fancy_opens = 1;
-           yylval = OCLOSE;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"chdir"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"crypt"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"chop"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"chmod"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"chown"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'd': case 'D':
-       SNARFWORD;
-       if (strEQ(d,"do"))
-           XTERM(DO);
-       if (strEQ(d,"delete"))
-           XTERM(DELETE);
-       if (strEQ(d,"die"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'e': case 'E':
-       SNARFWORD;
-       if (strEQ(d,"END"))
-           XTERM(END);
-       if (strEQ(d,"else"))
-           XTERM(ELSE);
-       if (strEQ(d,"exit")) {
-           saw_line_op = TRUE;
-           XTERM(EXIT);
-       }
-       if (strEQ(d,"exp")) {
-           yylval = OEXP;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"elsif"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"eq"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"eval"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"eof"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"each"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"exec"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'f': case 'F':
-       SNARFWORD;
-       if (strEQ(d,"FS")) {
-           saw_FS++;
-           if (saw_FS == 1 && in_begin) {
-               for (d = s; *d && isSPACE(*d); d++) ;
-               if (*d == '=') {
-                   for (d++; *d && isSPACE(*d); d++) ;
-                   if (*d == '"' && d[2] == '"')
-                       const_FS = d[1];
-               }
-           }
-           ID(tokenbuf);
-       }
-       if (strEQ(d,"for"))
-           XTERM(FOR);
-       else if (strEQ(d,"function"))
-           XTERM(FUNCTION);
-       if (strEQ(d,"FILENAME"))
-           ID("ARGV");
-       if (strEQ(d,"foreach"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"format"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"fork"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"fh"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'g': case 'G':
-       SNARFWORD;
-       if (strEQ(d,"getline"))
-           XTERM(GETLINE);
-       if (strEQ(d,"gsub"))
-           XTERM(GSUB);
-       if (strEQ(d,"ge"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"gt"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"goto"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"gmtime"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'h': case 'H':
-       SNARFWORD;
-       if (strEQ(d,"hex"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'i': case 'I':
-       SNARFWORD;
-       if (strEQ(d,"if"))
-           XTERM(IF);
-       if (strEQ(d,"in"))
-           XTERM(IN);
-       if (strEQ(d,"index")) {
-           XTERM(INDEX);
-       }
-       if (strEQ(d,"int")) {
-           yylval = OINT;
-           XTERM(FUN1);
-       }
-       ID(d);
-    case 'j': case 'J':
-       SNARFWORD;
-       if (strEQ(d,"join"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'k': case 'K':
-       SNARFWORD;
-       if (strEQ(d,"keys"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"kill"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'l': case 'L':
-       SNARFWORD;
-       if (strEQ(d,"length")) {
-           yylval = OLENGTH;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"log")) {
-           yylval = OLOG;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"last"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"local"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"lt"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"le"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"locatime"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"link"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'm': case 'M':
-       SNARFWORD;
-       if (strEQ(d,"match")) {
-           XTERM(MATCH);
-       }
-       if (strEQ(d,"m"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'n': case 'N':
-       SNARFWORD;
-       if (strEQ(d,"NF"))
-           do_chop = do_split = split_to_array = TRUE;
-       if (strEQ(d,"next")) {
-           saw_line_op = TRUE;
-           XTERM(NEXT);
-       }
-       if (strEQ(d,"ne"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'o': case 'O':
-       SNARFWORD;
-       if (strEQ(d,"ORS")) {
-           saw_ORS = TRUE;
-           ID("\\");
-       }
-       if (strEQ(d,"OFS")) {
-           saw_OFS = TRUE;
-           ID(",");
-       }
-       if (strEQ(d,"OFMT")) {
-           ID("#");
-       }
-       if (strEQ(d,"open"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"ord"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"oct"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'p': case 'P':
-       SNARFWORD;
-       if (strEQ(d,"print")) {
-           XTERM(PRINT);
-       }
-       if (strEQ(d,"printf")) {
-           XTERM(PRINTF);
-       }
-       if (strEQ(d,"push"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"pop"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'q': case 'Q':
-       SNARFWORD;
-       ID(d);
-    case 'r': case 'R':
-       SNARFWORD;
-       if (strEQ(d,"RS")) {
-           saw_RS = TRUE;
-           ID("/");
-       }
-       if (strEQ(d,"rand")) {
-           yylval = ORAND;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"return"))
-           XTERM(RET);
-       if (strEQ(d,"reset"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"redo"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"rename"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 's': case 'S':
-       SNARFWORD;
-       if (strEQ(d,"split")) {
-           XOP(SPLIT);
-       }
-       if (strEQ(d,"substr")) {
-           XTERM(SUBSTR);
-       }
-       if (strEQ(d,"sub"))
-           XTERM(SUB);
-       if (strEQ(d,"sprintf")) {
-            /* In old awk, { print sprintf("str%sg"),"in" } prints
-             * "string"; in new awk, "in" is not considered an argument to
-             * sprintf, so the statement breaks.  To support both, the
-             * grammar treats arguments to SPRINTF_OLD like old awk,
-             * SPRINTF_NEW like new.  Here we return the appropriate one.
-             */
-           XTERM(old_awk ? SPRINTF_OLD : SPRINTF_NEW);
-        }
-       if (strEQ(d,"sqrt")) {
-           yylval = OSQRT;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"SUBSEP")) {
-           ID(";");
-       }
-       if (strEQ(d,"sin")) {
-           yylval = OSIN;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"srand")) {
-           yylval = OSRAND;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"system")) {
-           yylval = OSYSTEM;
-           XTERM(FUN1);
-       }
-       if (strEQ(d,"s"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"shift"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"select"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"seek"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"stat"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"study"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"sleep"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"symlink"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"sort"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 't': case 'T':
-       SNARFWORD;
-       if (strEQ(d,"tr"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"tell"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"time"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"times"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'u': case 'U':
-       SNARFWORD;
-       if (strEQ(d,"until"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"unless"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"umask"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"unshift"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"unlink"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"utime"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'v': case 'V':
-       SNARFWORD;
-       if (strEQ(d,"values"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'w': case 'W':
-       SNARFWORD;
-       if (strEQ(d,"while"))
-           XTERM(WHILE);
-       if (strEQ(d,"write"))
-           *d = toUPPER(*d);
-       else if (strEQ(d,"wait"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'x': case 'X':
-       SNARFWORD;
-       if (strEQ(d,"x"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'y': case 'Y':
-       SNARFWORD;
-       if (strEQ(d,"y"))
-           *d = toUPPER(*d);
-       ID(d);
-    case 'z': case 'Z':
-       SNARFWORD;
-       ID(d);
-    }
-}
-
-char *
-scanpat(char *s)
-{
-    char *d;
-
-    switch (*s++) {
-    case '/':
-       break;
-    default:
-       fatal("Search pattern not found:\n%s",str_get(linestr));
-    }
-
-    d = tokenbuf;
-    for (; *s; s++,d++) {
-       if (*s == '\\') {
-           if (s[1] == '/')
-               *d++ = *s++;
-           else if (s[1] == '\\')
-               *d++ = *s++;
-           else if (s[1] == '[')
-               *d++ = *s++;
-       }
-       else if (*s == '[') {
-           *d++ = *s++;
-           do {
-               if (*s == '\\' && s[1])
-                   *d++ = *s++;
-               if (*s == '/' || (*s == '-' && s[1] == ']'))
-                   *d++ = '\\';
-               *d++ = *s++;
-           } while (*s && *s != ']');
-       }
-       else if (*s == '/')
-           break;
-       *d = *s;
-    }
-    *d = '\0';
-
-    if (!*s)
-       fatal("Search pattern not terminated:\n%s",str_get(linestr));
-    s++;
-    yylval = string(tokenbuf,0);
-    return s;
-}
-
-void
-yyerror(const char *s)
-{
-    fprintf(stderr,"%s in file %s at line %d\n",
-      s,filename,line);
-}
-
-char *
-scannum(char *s)
-{
-    char *d;
-
-    switch (*s) {
-    case '1': case '2': case '3': case '4': case '5':
-    case '6': case '7': case '8': case '9': case '0' : case '.':
-       d = tokenbuf;
-       while (isDIGIT(*s)) {
-           *d++ = *s++;
-       }
-       if (*s == '.') {
-           if (isDIGIT(s[1])) {
-               *d++ = *s++;
-               while (isDIGIT(*s)) {
-                   *d++ = *s++;
-               }
-           }
-           else
-               s++;
-       }
-       if (strchr("eE",*s) && strchr("+-0123456789",s[1])) {
-           *d++ = *s++;
-           if (*s == '+' || *s == '-')
-               *d++ = *s++;
-           while (isDIGIT(*s))
-               *d++ = *s++;
-       }
-       *d = '\0';
-       yylval = string(tokenbuf,0);
-       break;
-    }
-    return s;
-}
-
-int
-string(const char *ptr, int len)
-{
-    int retval = mop;
-
-    ops[mop++].ival = OSTRING + (1<<8);
-    if (!len)
-       len = strlen(ptr);
-    ops[mop].cval = (char *) safemalloc(len+1);
-    strncpy(ops[mop].cval,ptr,len);
-    ops[mop++].cval[len] = '\0';
-    if (mop >= OPSMAX)
-       fatal("Recompile a2p with larger OPSMAX\n");
-    return retval;
-}
-
-int
-oper0(int type)
-{
-    int retval = mop;
-
-    if (type > 255)
-       fatal("type > 255 (%d)\n",type);
-    ops[mop++].ival = type;
-    if (mop >= OPSMAX)
-       fatal("Recompile a2p with larger OPSMAX\n");
-    return retval;
-}
-
-int
-oper1(int type, int arg1)
-{
-    int retval = mop;
-
-    if (type > 255)
-       fatal("type > 255 (%d)\n",type);
-    ops[mop++].ival = type + (1<<8);
-    ops[mop++].ival = arg1;
-    if (mop >= OPSMAX)
-       fatal("Recompile a2p with larger OPSMAX\n");
-    return retval;
-}
-
-int
-oper2(int type, int arg1, int arg2)
-{
-    int retval = mop;
-
-    if (type > 255)
-       fatal("type > 255 (%d)\n",type);
-    ops[mop++].ival = type + (2<<8);
-    ops[mop++].ival = arg1;
-    ops[mop++].ival = arg2;
-    if (mop >= OPSMAX)
-       fatal("Recompile a2p with larger OPSMAX\n");
-    return retval;
-}
-
-int
-oper3(int type, int arg1, int arg2, int arg3)
-{
-    int retval = mop;
-
-    if (type > 255)
-       fatal("type > 255 (%d)\n",type);
-    ops[mop++].ival = type + (3<<8);
-    ops[mop++].ival = arg1;
-    ops[mop++].ival = arg2;
-    ops[mop++].ival = arg3;
-    if (mop >= OPSMAX)
-       fatal("Recompile a2p with larger OPSMAX\n");
-    return retval;
-}
-
-int
-oper4(int type, int arg1, int arg2, int arg3, int arg4)
-{
-    int retval = mop;
-
-    if (type > 255)
-       fatal("type > 255 (%d)\n",type);
-    ops[mop++].ival = type + (4<<8);
-    ops[mop++].ival = arg1;
-    ops[mop++].ival = arg2;
-    ops[mop++].ival = arg3;
-    ops[mop++].ival = arg4;
-    if (mop >= OPSMAX)
-       fatal("Recompile a2p with larger OPSMAX\n");
-    return retval;
-}
-
-int
-oper5(int type, int arg1, int arg2, int arg3, int arg4, int arg5)
-{
-    int retval = mop;
-
-    if (type > 255)
-       fatal("type > 255 (%d)\n",type);
-    ops[mop++].ival = type + (5<<8);
-    ops[mop++].ival = arg1;
-    ops[mop++].ival = arg2;
-    ops[mop++].ival = arg3;
-    ops[mop++].ival = arg4;
-    ops[mop++].ival = arg5;
-    if (mop >= OPSMAX)
-       fatal("Recompile a2p with larger OPSMAX\n");
-    return retval;
-}
-
-int depth = 0;
-
-void
-dump(int branch)
-{
-    int type;
-    int len;
-    int i;
-
-    type = ops[branch].ival;
-    len = type >> 8;
-    type &= 255;
-    for (i=depth; i; i--)
-       printf(" ");
-    if (type == OSTRING) {
-       printf("%-5d\"%s\"\n",branch,ops[branch+1].cval);
-    }
-    else {
-       printf("(%-5d%s %d\n",branch,opname[type],len);
-       depth++;
-       for (i=1; i<=len; i++)
-           dump(ops[branch+i].ival);
-       depth--;
-       for (i=depth; i; i--)
-           printf(" ");
-       printf(")\n");
-    }
-}
-
-int
-bl(int arg, int maybe)
-{
-    if (!arg)
-       return 0;
-    else if ((ops[arg].ival & 255) != OBLOCK)
-       return oper2(OBLOCK,arg,maybe);
-    else if ((ops[arg].ival >> 8) < 2)
-       return oper2(OBLOCK,ops[arg+1].ival,maybe);
-    else
-       return arg;
-}
-
-void
-fixup(STR *str)
-{
-    char *s;
-    char *t;
-
-    for (s = str->str_ptr; *s; s++) {
-       if (*s == ';' && s[1] == ' ' && s[2] == '\n') {
-           strcpy(s+1,s+2);
-           s++;
-       }
-       else if (*s == '\n') {
-           for (t = s+1; isSPACE(*t & 127); t++) ;
-           t--;
-           while (isSPACE(*t & 127) && *t != '\n') t--;
-           if (*t == '\n' && t-s > 1) {
-               if (s[-1] == '{')
-                   s--;
-               strcpy(s+1,t);
-           }
-           s++;
-       }
-    }
-}
-
-void
-putlines(STR *str)
-{
-    char *d, *s, *t, *e;
-    int pos, newpos;
-
-    d = tokenbuf;
-    pos = 0;
-    for (s = str->str_ptr; *s; s++) {
-       *d++ = *s;
-       pos++;
-       if (*s == '\n') {
-           *d = '\0';
-           d = tokenbuf;
-           pos = 0;
-           putone();
-       }
-       else if (*s == '\t')
-           pos += 7;
-       if (pos > 78) {         /* split a long line? */
-           *d-- = '\0';
-           newpos = 0;
-           for (t = tokenbuf; isSPACE(*t & 127); t++) {
-               if (*t == '\t')
-                   newpos += 8;
-               else
-                   newpos += 1;
-           }
-           e = d;
-           while (d > tokenbuf && (*d != ' ' || d[-1] != ';'))
-               d--;
-           if (d < t+10) {
-               d = e;
-               while (d > tokenbuf &&
-                 (*d != ' ' || d[-1] != '|' || d[-2] != '|') )
-                   d--;
-           }
-           if (d < t+10) {
-               d = e;
-               while (d > tokenbuf &&
-                 (*d != ' ' || d[-1] != '&' || d[-2] != '&') )
-                   d--;
-           }
-           if (d < t+10) {
-               d = e;
-               while (d > tokenbuf && (*d != ' ' || d[-1] != ','))
-                   d--;
-           }
-           if (d < t+10) {
-               d = e;
-               while (d > tokenbuf && *d != ' ')
-                   d--;
-           }
-           if (d > t+3) {
-                char save[2048];
-                strcpy(save, d);
-               *d = '\n';
-                d[1] = '\0';
-               putone();
-               putchar('\n');
-               if (d[-1] != ';' && !(newpos % 4)) {
-                   *t++ = ' ';
-                   *t++ = ' ';
-                   newpos += 2;
-               }
-               strcpy(t,save+1);
-               newpos += strlen(t);
-               d = t + strlen(t);
-               pos = newpos;
-           }
-           else
-               d = e + 1;
-       }
-    }
-}
-
-void
-putone(void)
-{
-    char *t;
-
-    for (t = tokenbuf; *t; t++) {
-       *t &= 127;
-       if (*t == 127) {
-           *t = ' ';
-           strcpy(t+strlen(t)-1, "\t#???\n");
-           checkers++;
-       }
-    }
-    t = tokenbuf;
-    if (*t == '#') {
-       if (strnEQ(t,"#!/bin/awk",10) || strnEQ(t,"#! /bin/awk",11))
-           return;
-       if (strnEQ(t,"#!/usr/bin/awk",14) || strnEQ(t,"#! /usr/bin/awk",15))
-           return;
-    }
-    fputs(tokenbuf,stdout);
-}
-
-int
-numary(int arg)
-{
-    STR *key;
-    int dummy;
-
-    key = walk(0,0,arg,&dummy,P_MIN);
-    str_cat(key,"[]");
-    hstore(symtab,key->str_ptr,str_make("1"));
-    str_free(key);
-    return arg;
-}
-
-int
-rememberargs(int arg)
-{
-    int type;
-    STR *str;
-
-    if (!arg)
-       return arg;
-    type = ops[arg].ival & 255;
-    if (type == OCOMMA) {
-       rememberargs(ops[arg+1].ival);
-       rememberargs(ops[arg+3].ival);
-    }
-    else if (type == OVAR) {
-       str = str_new(0);
-       hstore(curarghash,ops[ops[arg+1].ival+1].cval,str);
-    }
-    else
-       fatal("panic: unknown argument type %d, line %d\n",type,line);
-    return arg;
-}
-
-int
-aryrefarg(int arg)
-{
-    int type = ops[arg].ival & 255;
-    STR *str;
-
-    if (type != OSTRING)
-       fatal("panic: aryrefarg %d, line %d\n",type,line);
-    str = hfetch(curarghash,ops[arg+1].cval);
-    if (str)
-       str_set(str,"*");
-    return arg;
-}
-
-int
-fixfargs(int name, int arg, int prevargs)
-{
-    int type;
-    STR *str;
-    int numargs = 0;
-
-    if (!arg)
-       return prevargs;
-    type = ops[arg].ival & 255;
-    if (type == OCOMMA) {
-       numargs = fixfargs(name,ops[arg+1].ival,prevargs);
-       numargs = fixfargs(name,ops[arg+3].ival,numargs);
-    }
-    else if (type == OVAR) {
-       str = hfetch(curarghash,ops[ops[arg+1].ival+1].cval);
-       if (strEQ(str_get(str),"*")) {
-           char tmpbuf[128];
-
-           str_set(str,"");            /* in case another routine has this */
-           ops[arg].ival &= ~255;
-           ops[arg].ival |= OSTAR;
-           sprintf(tmpbuf,"%s:%d",ops[name+1].cval,prevargs);
-           fprintf(stderr,"Adding %s\n",tmpbuf);
-           str = str_new(0);
-           str_set(str,"*");
-           hstore(curarghash,tmpbuf,str);
-       }
-       numargs = prevargs + 1;
-    }
-    else
-       fatal("panic: unknown argument type %d, arg %d, line %d\n",
-         type,prevargs+1,line);
-    return numargs;
-}
-
-int
-fixrargs(char *name, int arg, int prevargs)
-{
-    int type;
-    STR *str;
-    int numargs;
-
-    if (!arg)
-       return prevargs;
-    type = ops[arg].ival & 255;
-    if (type == OCOMMA) {
-       numargs = fixrargs(name,ops[arg+1].ival,prevargs);
-       numargs = fixrargs(name,ops[arg+3].ival,numargs);
-    }
-    else {
-       char *tmpbuf = (char *) safemalloc(strlen(name) + (sizeof(prevargs) * 3) + 5);
-       sprintf(tmpbuf,"%s:%d",name,prevargs);
-       str = hfetch(curarghash,tmpbuf);
-       safefree(tmpbuf);
-       if (str && strEQ(str->str_ptr,"*")) {
-           if (type == OVAR || type == OSTAR) {
-               ops[arg].ival &= ~255;
-               ops[arg].ival |= OSTAR;
-           }
-           else
-               fatal("Can't pass expression by reference as arg %d of %s\n",
-                   prevargs+1, name);
-       }
-       numargs = prevargs + 1;
-    }
-    return numargs;
-}
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
deleted file mode 100644 (file)
index d68c036..0000000
+++ /dev/null
@@ -1,919 +0,0 @@
-#!/usr/local/bin/perl
-
-use Config;
-use File::Basename qw(&basename &dirname);
-use Cwd;
-
-# List explicitly here the variables you want Configure to
-# generate.  Metaconfig only looks for shell variables, so you
-# have to mention them as if they were shell variables, not
-# %Config entries.  Thus you write
-#  $startperl
-# to ensure Configure will look for $Config{startperl}.
-
-# This forces PL files to create target in same directory as PL file.
-# This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
-chdir dirname($0);
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
-
-open OUT,">$file" or die "Can't create $file: $!";
-
-print "Extracting $file (with variable substitutions)\n";
-
-# In this section, perl variables will be expanded during extraction.
-# You can use $Config{...} to use Configure variables.
-
-print OUT <<"!GROK!THIS!";
-$Config{startperl}
-    eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
-      if \$running_under_some_shell;
-(my \$perlpath = <<'/../') =~ s/\\s*\\z//;
-$Config{perlpath}
-/../
-!GROK!THIS!
-
-# In the following, perl variables are not expanded during extraction.
-
-print OUT <<'!NO!SUBS!';
-use strict;
-use vars qw/$statdone/;
-use File::Spec::Functions 'curdir';
-my $startperl = "#! $perlpath -w";
-
-sub tab ();
-sub n ($$);
-sub fileglob_to_re ($);
-sub quote ($);
-
-my @roots = ();
-while ($ARGV[0] =~ /^[^-!(]/) {
-    push(@roots, shift);
-}
-@roots = (curdir()) unless @roots;
-for (@roots) { $_ = quote($_) }
-my $roots = join(', ', @roots);
-
-my $find = "find";
-my $indent_depth = 1;
-my $stat = 'lstat';
-my $decl = '';
-my $flushall = '';
-my $initfile = '';
-my $initnewer = '';
-my $out = '';
-my $declaresubs = "sub wanted;\n";
-my %init = ();
-my ($follow_in_effect,$Skip_And) = (0,0);
-my $print_needed = 1;
-
-while (@ARGV) {
-    $_ = shift;
-    s/^-// || /^[()!]/ || die "Unrecognized switch: $_\n";
-    if ($_ eq '(') {
-        $out .= tab . "(\n";
-        $indent_depth++;
-        next;
-    } elsif ($_ eq ')') {
-        --$indent_depth;
-        $out .= tab . ")";
-    } elsif ($_ eq 'follow') {
-        $follow_in_effect= 1;
-        $stat = 'stat';
-        $Skip_And= 1;
-    } elsif ($_ eq '!') {
-        $out .= tab . "!";
-        next;
-    } elsif (/^(i)?name$/) {
-        $out .= tab . '/' . fileglob_to_re(shift) . "/s$1";
-    } elsif (/^(i)?path$/) {
-        $out .= tab . '$File::Find::name =~ /' . fileglob_to_re(shift) . "/s$1";
-    } elsif ($_ eq 'perm') {
-        my $onum = shift;
-        $onum =~ /^-?[0-7]+$/
-            || die "Malformed -perm argument: $onum\n";
-        $out .= tab;
-        if ($onum =~ s/^-//) {
-            $onum = sprintf("0%o", oct($onum) & 07777);
-            $out .= "((\$mode & $onum) == $onum)";
-        } else {
-            $onum =~ s/^0*/0/;
-            $out .= "((\$mode & 0777) == $onum)";
-        }
-    } elsif ($_ eq 'type') {
-        (my $filetest = shift) =~ tr/s/S/;
-        $out .= tab . "-$filetest _";
-    } elsif ($_ eq 'print') {
-        $out .= tab . 'print("$name\n")';
-       $print_needed = 0;
-    } elsif ($_ eq 'print0') {
-        $out .= tab . 'print("$name\0")';
-       $print_needed = 0;
-    } elsif ($_ eq 'fstype') {
-        my $type = shift;
-        $out .= tab;
-        if ($type eq 'nfs') {
-            $out .= '($dev < 0)';
-        } else {
-            $out .= '($dev >= 0)'; #XXX
-        }
-    } elsif ($_ eq 'user') {
-        my $uname = shift;
-        $out .= tab . "(\$uid == \$uid{'$uname'})";
-        $init{user} = 1;
-    } elsif ($_ eq 'group') {
-        my $gname = shift;
-        $out .= tab . "(\$gid == \$gid{'$gname'})";
-        $init{group} = 1;
-    } elsif ($_ eq 'nouser') {
-        $out .= tab . '!exists $uid{$uid}';
-        $init{user} = 1;
-    } elsif ($_ eq 'nogroup') {
-        $out .= tab . '!exists $gid{$gid}';
-        $init{group} = 1;
-    } elsif ($_ eq 'links') {
-        $out .= tab . n('$nlink', shift);
-    } elsif ($_ eq 'inum') {
-        $out .= tab . n('$ino', shift);
-    } elsif ($_ eq 'size') {
-        $_ = shift;
-        my $n = 'int(((-s _) + 511) / 512)';
-        if (s/c\z//) {
-            $n = 'int(-s _)';
-        } elsif (s/k\z//) {
-            $n = 'int(((-s _) + 1023) / 1024)';
-        }
-        $out .= tab . n($n, $_);
-    } elsif ($_ eq 'atime') {
-        $out .= tab . n('int(-A _)', shift);
-    } elsif ($_ eq 'mtime') {
-        $out .= tab . n('int(-M _)', shift);
-    } elsif ($_ eq 'ctime') {
-        $out .= tab . n('int(-C _)', shift);
-    } elsif ($_ eq 'exec') {
-        my @cmd = ();
-        while (@ARGV && $ARGV[0] ne ';')
-            { push(@cmd, shift) }
-        shift;
-        $out .= tab;
-        if ($cmd[0] =~m#^(?:(?:/usr)?/bin/)?rm$#
-                && $cmd[$#cmd] eq '{}'
-                && (@cmd == 2 || (@cmd == 3 && $cmd[1] eq '-f'))) {
-            if (@cmd == 2) {
-                $out .= '(unlink($_) || warn "$name: $!\n")';
-            } elsif (!@ARGV) {
-                $out .= 'unlink($_)';
-            } else {
-                $out .= '(unlink($_) || 1)';
-            }
-        } else {
-            for (@cmd)
-                { s/'/\\'/g }
-            { local $" = "','"; $out .= "doexec(0, '@cmd')"; }
-            $declaresubs .= "sub doexec (\$\@);\n";
-            $init{doexec} = 1;
-        }
-       $print_needed = 0;
-    } elsif ($_ eq 'ok') {
-        my @cmd = ();
-        while (@ARGV && $ARGV[0] ne ';')
-            { push(@cmd, shift) }
-        shift;
-        $out .= tab;
-        for (@cmd)
-            { s/'/\\'/g }
-        { local $" = "','"; $out .= "doexec(1, '@cmd')"; }
-        $declaresubs .= "sub doexec (\$\@);\n";
-        $init{doexec} = 1;
-       $print_needed = 0;
-    } elsif ($_ eq 'prune') {
-        $out .= tab . '($File::Find::prune = 1)';
-    } elsif ($_ eq 'xdev') {
-        $out .= tab . '!($File::Find::prune |= ($dev != $File::Find::topdev))'
-;
-    } elsif ($_ eq 'newer') {
-        my $file = shift;
-        my $newername = 'AGE_OF' . $file;
-        $newername =~ s/\W/_/g;
-        $newername = '$' . $newername;
-        $out .= tab . "(-M _ < $newername)";
-        $initnewer .= "my $newername = -M " . quote($file) . ";\n";
-    } elsif ($_ eq 'eval') {
-        my $prog = shift;
-        $prog =~ s/'/\\'/g;
-        $out .= tab . "eval {$prog}";
-       $print_needed = 0;
-    } elsif ($_ eq 'depth') {
-        $find = 'finddepth';
-        next;
-    } elsif ($_ eq 'ls') {
-        $out .= tab . "ls";
-        $declaresubs .= "sub ls ();\n";
-        $init{ls} = 1;
-       $print_needed = 0;
-    } elsif ($_ eq 'tar') {
-        die "-tar must have a filename argument\n" unless @ARGV;
-        my $file = shift;
-        my $fh = 'FH' . $file;
-        $fh =~ s/\W/_/g;
-        $out .= tab . "tar(*$fh, \$name)";
-        $flushall .= "tflushall;\n";
-        $declaresubs .= "sub tar;\nsub tflushall ();\n";
-        $initfile .= "open($fh, " . quote('> ' . $file) .
-                     qq{) || die "Can't open $fh: \$!\\n";\n};
-        $init{tar} = 1;
-    } elsif (/^(n?)cpio\z/) {
-        die "-$_ must have a filename argument\n" unless @ARGV;
-        my $file = shift;
-        my $fh = 'FH' . $file;
-        $fh =~ s/\W/_/g;
-        $out .= tab . "cpio(*$fh, \$name, '$1')";
-        $find = 'finddepth';
-        $flushall .= "cflushall;\n";
-        $declaresubs .= "sub cpio;\nsub cflushall ();\n";
-        $initfile .= "open($fh, " . quote('> ' . $file) .
-                     qq{) || die "Can't open $fh: \$!\\n";\n};
-        $init{cpio} = 1;
-    } else {
-        die "Unrecognized switch: -$_\n";
-    }
-
-    if (@ARGV) {
-        if ($ARGV[0] eq '-o') {
-            { local($statdone) = 1; $out .= "\n" . tab . "||\n"; }
-            $statdone = 0 if $indent_depth == 1 && exists $init{delayedstat};
-            $init{saw_or} = 1;
-            shift;
-        } else {
-            $out .= " &&" unless $Skip_And || $ARGV[0] eq ')';
-            $out .= "\n";
-            shift if $ARGV[0] eq '-a';
-        }
-    }
-}
-
-if ($print_needed) {
-    my $t = tab;
-    if ($t !~ /&&\s*$/) { $t .= '&& ' }
-    $out .= "\n" . $t . 'print("$name\n")';
-}
-
-
-print <<"END";
-$startperl
-    eval 'exec $perlpath -S \$0 \${1+"\$@"}'
-        if 0; #\$running_under_some_shell
-
-use strict;
-use File::Find ();
-
-# Set the variable \$File::Find::dont_use_nlink if you're using AFS,
-# since AFS cheats.
-
-# for the convenience of &wanted calls, including -eval statements:
-use vars qw/*name *dir *prune/;
-*name   = *File::Find::name;
-*dir    = *File::Find::dir;
-*prune  = *File::Find::prune;
-
-$declaresubs
-
-END
-
-if (exists $init{doexec}) {
-    print <<'END';
-use Cwd ();
-my $cwd = Cwd::cwd();
-
-END
-}  
-
-if (exists $init{ls}) {
-    print <<'END';
-my @rwx = qw(--- --x -w- -wx r-- r-x rw- rwx);
-my @moname = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
-
-END
-}
-
-if (exists $init{user} || exists $init{ls} || exists $init{tar}) {
-    print "my (%uid, %user);\n";
-    print "while (my (\$name, \$pw, \$uid) = getpwent) {\n";
-    print '    $uid{$name} = $uid{$uid} = $uid;', "\n"
-        if exists $init{user};
-    print '    $user{$uid} = $name unless exists $user{$uid};', "\n"
-        if exists $init{ls} || exists $init{tar};
-    print "}\n\n";
-}
-
-if (exists $init{group} || exists $init{ls} || exists $init{tar}) {
-    print "my (%gid, %group);\n";
-    print "while (my (\$name, \$pw, \$gid) = getgrent) {\n";
-    print '    $gid{$name} = $gid{$gid} = $gid;', "\n"
-        if exists $init{group};
-    print '    $group{$gid} = $name unless exists $group{$gid};', "\n"
-        if exists $init{ls} || exists $init{tar};
-    print "}\n\n";
-}
-
-print $initnewer, "\n" if $initnewer ne '';
-print $initfile, "\n" if $initfile ne '';
-$flushall .= "exit;\n";
-if (exists $init{declarestat}) {
-    $out = <<'END' . $out;
-    my ($dev,$ino,$mode,$nlink,$uid,$gid);
-
-END
-}
-
-if ( $follow_in_effect ) {
-$out =~ s/lstat\(\$_\)/lstat(_)/;
-print <<"END";
-$decl
-# Traverse desired filesystems
-File::Find::$find( {wanted => \\&wanted, follow => 1}, $roots);
-$flushall
-
-sub wanted {
-$out;
-}
-
-END
-} else {
-print <<"END";
-$decl
-# Traverse desired filesystems
-File::Find::$find({wanted => \\&wanted}, $roots);
-$flushall
-
-sub wanted {
-$out;
-}
-
-END
-}
-
-if (exists $init{doexec}) {
-    print <<'END';
-
-sub doexec ($@) {
-    my $ok = shift;
-    my @command = @_; # copy so we don't try to s/// aliases to constants
-    for my $word (@command)
-        { $word =~ s#{}#$name#g }
-    if ($ok) {
-        my $old = select(STDOUT);
-        $| = 1;
-        print "@command";
-        select($old);
-        return 0 unless <STDIN> =~ /^y/;
-    }
-    chdir $cwd; #sigh
-    system @command;
-    chdir $File::Find::dir;
-    return !$?;
-}
-
-END
-}
-
-if (exists $init{ls}) {
-    print <<'INTRO', <<"SUB", <<'END';
-
-sub sizemm {
-    my $rdev = shift;
-    sprintf("%3d, %3d", ($rdev >> 8) & 0xff, $rdev & 0xff);
-}
-
-sub ls () {
-    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-INTRO
-        \$atime,\$mtime,\$ctime,\$blksize,\$blocks) = $stat(_);
-SUB
-    my $pname = $name;
-
-    $blocks
-        or $blocks = int(($size + 1023) / 1024);
-
-    my $perms = $rwx[$mode & 7];
-    $mode >>= 3;
-    $perms = $rwx[$mode & 7] . $perms;
-    $mode >>= 3;
-    $perms = $rwx[$mode & 7] . $perms;
-    substr($perms, 2, 1) =~ tr/-x/Ss/ if -u _;
-    substr($perms, 5, 1) =~ tr/-x/Ss/ if -g _;
-    substr($perms, 8, 1) =~ tr/-x/Tt/ if -k _;
-    if    (-f _) { $perms = '-' . $perms; }
-    elsif (-d _) { $perms = 'd' . $perms; }
-    elsif (-l _) { $perms = 'l' . $perms; $pname .= ' -> ' . readlink($_); }
-    elsif (-c _) { $perms = 'c' . $perms; $size = sizemm($rdev); }
-    elsif (-b _) { $perms = 'b' . $perms; $size = sizemm($rdev); }
-    elsif (-p _) { $perms = 'p' . $perms; }
-    elsif (-S _) { $perms = 's' . $perms; }
-    else         { $perms = '?' . $perms; }
-
-    my $user = $user{$uid} || $uid;
-    my $group = $group{$gid} || $gid;
-
-    my ($sec,$min,$hour,$mday,$mon,$timeyear) = localtime($mtime);
-    if (-M _ > 365.25 / 2) {
-        $timeyear += 1900;
-    } else {
-        $timeyear = sprintf("%02d:%02d", $hour, $min);
-    }
-
-    printf "%5lu %4ld %-10s %3d %-8s %-8s %8s %s %2d %5s %s\n",
-            $ino,
-                 $blocks,
-                      $perms,
-                            $nlink,
-                                $user,
-                                     $group,
-                                          $size,
-                                              $moname[$mon],
-                                                 $mday,
-                                                     $timeyear,
-                                                         $pname;
-    1;
-}
-
-END
-}
-
-
-if (exists $init{cpio} || exists $init{tar}) {
-print <<'END';
-
-my %blocks = ();
-
-sub flush {
-    my ($fh, $varref, $blksz) = @_;
-
-    while (length($$varref) >= $blksz) {
-        no strict qw/refs/;
-        syswrite($fh, $$varref, $blksz);
-        substr($$varref, 0, $blksz) = '';
-        ++$blocks{$fh};
-    }
-}
-
-END
-}
-
-
-if (exists $init{cpio}) {
-    print <<'INTRO', <<"SUB", <<'END';
-
-my %cpout = ();
-my %nc = ();
-
-sub cpio {
-    my ($fh, $fname, $nc) = @_;
-    my $text = '';
-    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-        $atime,$mtime,$ctime,$blksize,$blocks);
-    local (*IN);
-
-    if ( ! defined $fname ) {
-        $fname = 'TRAILER!!!';
-        ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-          $atime,$mtime,$ctime,$blksize,$blocks) = (0) x 13;
-    } else {
-        ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-INTRO
-          \$atime,\$mtime,\$ctime,\$blksize,\$blocks) = $stat(_);
-SUB
-        if (-f _) {
-            open(IN, "./$_\0") || do {
-                warn "Couldn't open $fname: $!\n";
-                return;
-            }
-        } else {
-            $text = readlink($_);
-            $size = 0 unless defined $text;
-        }
-    }
-
-    $fname =~ s#^\./##;
-    $nc{$fh} = $nc;
-    if ($nc eq 'n') {
-        $cpout{$fh} .=
-          sprintf("%06o%06o%06o%06o%06o%06o%06o%06o%011lo%06o%011lo%s\0",
-            070707,
-            $dev & 0777777,
-            $ino & 0777777,
-            $mode & 0777777,
-            $uid & 0777777,
-            $gid & 0777777,
-            $nlink & 0777777,
-            $rdev & 0177777,
-            $mtime,
-            length($fname)+1,
-            $size,
-            $fname);
-    } else {
-        $cpout{$fh} .= "\0" if length($cpout{$fh}) & 1;
-        $cpout{$fh} .= pack("SSSSSSSSLSLa*",
-            070707, $dev, $ino, $mode, $uid, $gid, $nlink, $rdev, $mtime,
-            length($fname)+1, $size,
-            $fname . (length($fname) & 1 ? "\0" : "\0\0"));
-    }
-
-    if ($text ne '') {
-        $cpout{$fh} .= $text;
-    } elsif ($size) {
-        my $l;
-        flush($fh, \$cpout{$fh}, 5120)
-            while ($l = length($cpout{$fh})) >= 5120;
-        while (sysread(IN, $cpout{$fh}, 5120 - $l, $l)) {
-            flush($fh, \$cpout{$fh}, 5120);
-            $l = length($cpout{$fh});
-        }
-        close IN;
-    }
-}
-
-sub cflushall () {
-    for my $fh (keys %cpout) {
-        cpio($fh, undef, $nc{$fh});
-        $cpout{$fh} .= "0" x (5120 - length($cpout{$fh}));
-        flush($fh, \$cpout{$fh}, 5120);
-        print $blocks{$fh} * 10, " blocks\n";
-    }
-}
-
-END
-}
-
-if (exists $init{tar}) {
-    print <<'INTRO', <<"SUB", <<'END';
-
-my %tarout = ();
-my %linkseen = ();
-
-sub tar {
-    my ($fh, $fname) = @_;
-    my $prefix = '';
-    my $typeflag = '0';
-    my $linkname;
-    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-INTRO
-        \$atime,\$mtime,\$ctime,\$blksize,\$blocks) = $stat(_);
-SUB
-    local (*IN);
-
-    if ($nlink >