diff --git a/.gitignore b/.gitignore index 1e28259..4f6bb3a 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1 @@ -SOURCES/groff-1.22.3.tar.gz -/groff-1.22.3.tar.gz +groff-1.23.0.tar.gz diff --git a/0001-missing-groff-x11-info-message-when-gxditview-not-fo.patch b/0001-missing-groff-x11-info-message-when-gxditview-not-fo.patch index d6b0025..36ef029 100644 --- a/0001-missing-groff-x11-info-message-when-gxditview-not-fo.patch +++ b/0001-missing-groff-x11-info-message-when-gxditview-not-fo.patch @@ -1,30 +1,30 @@ -From 103f1f6b4e4cfd007375cd127b8e69cd102d4097 Mon Sep 17 00:00:00 2001 -From: Jan Vcelak -Date: Tue, 1 Jan 2013 15:32:01 +0100 +From 20f199d608d7aa4c8eb21067480dc3a682f6188c Mon Sep 17 00:00:00 2001 +From: groff owner +Date: Mon, 10 Jul 2023 10:54:23 +0000 Subject: [PATCH] missing groff-x11 info message when gxditview not found Adds info message that 'groff-x11' package might be missing when executing 'groff -X' and 'gxditview' is not found. Resolves: #530788 -Signed-off-by: Jan Vcelak + --- src/roff/groff/pipeline.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/roff/groff/pipeline.c b/src/roff/groff/pipeline.c -index cea7593..fce0abc 100644 +index defafc2..188b98e 100644 --- a/src/roff/groff/pipeline.c +++ b/src/roff/groff/pipeline.c -@@ -486,6 +486,8 @@ int run_pipeline(int ncommands, char ***commands, int no_pipe) +@@ -485,6 +485,8 @@ int run_pipeline(int ncommands, char ***commands, int no_pipe) execvp(commands[i][0], commands[i]); - error("couldn't exec %1: %2", - commands[i][0], strerror(errno), (char *)0); -+ if (strcmp(commands[i][0], "gxditview") == 0) -+ fprintf(stderr, "You might be missing 'groff-x11' package.\n"); - fflush(stderr); /* just in case error() doesn't */ + c_error("couldn't exec %1: %2", + commands[i][0], strerror(errno), (char *)0); ++ if (strcmp(commands[i][0], "gxditview") == 0) ++ fprintf(stderr, "You might be missing 'groff-x11' package.\n"); _exit(EXEC_FAILED_EXIT_STATUS); } + /* in the parent */ -- -1.8.0.2 +2.41.0 diff --git a/0002-load-site-font-and-site-tmac-from-etc-groff.patch b/0002-load-site-font-and-site-tmac-from-etc-groff.patch index 163f784..fc648b7 100644 --- a/0002-load-site-font-and-site-tmac-from-etc-groff.patch +++ b/0002-load-site-font-and-site-tmac-from-etc-groff.patch @@ -1,43 +1,42 @@ -From c6d8bb3e0ebc03274564d7b2c768e9932cc5f79d Mon Sep 17 00:00:00 2001 -From: Jan Vcelak -Date: Tue, 1 Jan 2013 15:33:45 +0100 +From c59b56642d10997a35553ae08e6b341b565794f7 Mon Sep 17 00:00:00 2001 +From: groff owner +Date: Mon, 10 Jul 2023 11:51:30 +0000 Subject: [PATCH] load site-font and site-tmac from /etc/groff Move site-font and site-tmac configuration from /usr/share/groff to /etc/groff. That allows permanent custom changes. (Symlinking brought a lot of problems with RPM. This is safer and cleaner.) -Signed-off-by: Jan Vcelak --- Makefile.in | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Makefile.in b/Makefile.in -index 7534e56..d97d1b9 100644 +index a47df30..e9618d1 100644 --- a/Makefile.in +++ b/Makefile.in -@@ -167,7 +167,7 @@ fontdir=$(datasubdir)/font - oldfontdir=$(datasubdir)/oldfont +@@ -3857,7 +3857,7 @@ fontdir = $(datasubdir)/font + oldfontdir = $(datasubdir)/oldfont # `localfontdir' says where local fonts will be installed (as dev*/*). --localfontdir=$(dataprogramdir)/site-font -+localfontdir=@sysconfdir@/groff/site-font +-localfontdir = $(dataprogramdir)/site-font ++localfontdir = @sysconfdir@/groff/site-font - # `legacyfontdir' is for compatibility with non-GNU troff. - legacyfontdir=/usr/lib/font -@@ -179,10 +179,10 @@ fontpath=$(localfontdir)$(RT_SEP)$(fontdir)$(RT_SEP)$(legacyfontdir) - tmacdir=$(datasubdir)/tmac + # `legacyfontdir' is for compatibility with AT&T/DWB troff. + legacyfontdir = /usr/lib/font +@@ -3869,10 +3869,10 @@ fontpath = $(localfontdir)$(RT_SEP)$(fontdir)$(RT_SEP)$(legacyfontdir) + tmacdir = $(datasubdir)/tmac # `systemtmacdir' says where to install platform-dependent macros. --systemtmacdir=$(libprogramdir)/site-tmac -+systemtmacdir=@sysconfdir@/groff/site-tmac +-systemtmacdir = $(libprogramdir)/site-tmac ++systemtmacdir = @sysconfdir@/groff/site-tmac # `localtmacdir' says where local files will be installed. --localtmacdir=$(dataprogramdir)/site-tmac -+localtmacdir=@sysconfdir@/groff/site-tmac +-localtmacdir = $(dataprogramdir)/site-tmac ++localtmacdir = @sysconfdir@/groff/site-tmac - # `appresdir' says where to install the application resource file for - # gxditview. + # appdefdir + # `appdefdir' says where to install the application defaults file for -- -1.8.0.2 +2.41.0 diff --git a/0003-various-security-fixes.patch b/0003-various-security-fixes.patch index 7dd1bea..46f4624 100644 --- a/0003-various-security-fixes.patch +++ b/0003-various-security-fixes.patch @@ -1,188 +1,88 @@ -From 36115e102859badb08cb5b2398de6b0ba45421d3 Mon Sep 17 00:00:00 2001 -From: Jan Vcelak -Date: Tue, 4 Nov 2014 14:36:47 +0100 +From 2e14a9f44b79fe6a13cd1ecec3f8c50d44be2188 Mon Sep 17 00:00:00 2001 +From: groff owner +Date: Mon, 10 Jul 2023 13:15:36 +0000 Subject: [PATCH] various security fixes CVE-2009-5044 (#709413) CVE-2009-5080 (#720058) CVE-2009-5081 (#720057) -Based on: http://cvsweb.openwall.com/cgi/cvsweb.cgi/Owl/packages/groff/groff-1.20.1-owl-tmp.diff?rev=1.2;content-type=text%2Fplain -Resolves: #709415, #720060 -Signed-off-by: Jan Vcelak --- - contrib/eqn2graph/eqn2graph.sh | 2 ++ - contrib/gdiffmk/tests/runtests.in | 5 +++-- - contrib/grap2graph/grap2graph.sh | 2 ++ - contrib/groffer/main_subs.pl | 10 +++++----- - contrib/groffer/roff2.pl | 2 +- - contrib/pdfmark/pdfroff.man | 5 +++-- - contrib/pic2graph/pic2graph.sh | 2 ++ - doc/fixinfo.sh | 5 +++-- - doc/groff.info-2 | 6 +++--- - doc/groff.texinfo | 6 +++--- - gendef.sh | 10 +++------- - 11 files changed, 30 insertions(+), 25 deletions(-) + contrib/eqn2graph/eqn2graph.sh | 2 ++ + contrib/grap2graph/grap2graph.sh | 2 ++ + contrib/pdfmark/pdfroff.1.man | 5 +++-- + contrib/pic2graph/pic2graph.sh | 2 ++ + doc/groff.texi | 6 +++--- + gendef.sh | 10 +++------- + 6 files changed, 15 insertions(+), 12 deletions(-) diff --git a/contrib/eqn2graph/eqn2graph.sh b/contrib/eqn2graph/eqn2graph.sh -index ee7cc5f..13edf78 100644 +index 3e9c374..4e4f11e 100644 --- a/contrib/eqn2graph/eqn2graph.sh +++ b/contrib/eqn2graph/eqn2graph.sh -@@ -67,6 +67,8 @@ for d in "$GROFF_TMPDIR" "$TMPDIR" "$TMP" "$TEMP" /tmp; do - - tmp=$d/eqn2graph$$-$RANDOM - (umask 077 && mkdir $tmp) 2> /dev/null && break +@@ -74,6 +74,8 @@ then + # but is supported by the stripped-down dash shell, for instance. + tmp="$d/eqn2graph$$-${RANDOM:-$PPID}" + (umask 077 && mkdir "$tmp") 2> /dev/null + + tmp= - done; - if test -z "$tmp"; then - echo "$0: cannot create temporary directory" >&2 -diff --git a/contrib/gdiffmk/tests/runtests.in b/contrib/gdiffmk/tests/runtests.in -index 714ce48..40a35c4 100644 ---- a/contrib/gdiffmk/tests/runtests.in -+++ b/contrib/gdiffmk/tests/runtests.in -@@ -56,8 +56,9 @@ function TestResult { - fi - } - --tmpfile=/tmp/$$ --trap 'rm -f ${tmpfile}' 0 1 2 3 15 -+tmpfile="`mktemp -t gdiffmk-runtests.XXXXXXXXXX`" || exit -+trap 'rm -f -- "$tmpfile"' EXIT -+trap 'trap - EXIT; rm -f -- "$tmpfile"; exit 1' HUP INT QUIT TERM - - # Run tests. + fi + if ! test -d "$tmp" diff --git a/contrib/grap2graph/grap2graph.sh b/contrib/grap2graph/grap2graph.sh -index 58544e1..aeab832 100644 +index 29df25b..94c436b 100644 --- a/contrib/grap2graph/grap2graph.sh +++ b/contrib/grap2graph/grap2graph.sh -@@ -63,6 +63,8 @@ for d in "$GROFF_TMPDIR" "$TMPDIR" "$TMP" "$TEMP" /tmp; do - - tmp=$d/grap2graph$$-$RANDOM - (umask 077 && mkdir $tmp) 2> /dev/null && break +@@ -76,6 +76,8 @@ then + # but is supported by the stripped-down dash shell, for instance. + tmp="$d/grap2graph$$-${RANDOM:-$PPID}" + (umask 077 && mkdir "$tmp") 2> /dev/null + + tmp= - done; - if test -z "$tmp"; then - echo "$0: cannot create temporary directory" >&2 -diff --git a/contrib/groffer/main_subs.pl b/contrib/groffer/main_subs.pl -index 90627cc..76896cd 100644 ---- a/contrib/groffer/main_subs.pl -+++ b/contrib/groffer/main_subs.pl -@@ -1239,7 +1239,7 @@ sub main_temp { - our $fh_stdin; - our $tmp_cat; - our $tmp_stdin; -- my $template = 'groffer_' . "$$" . '_XXXX'; -+ my $template = 'groffer_' . "$$" . '_XXXXXXXXXX'; - foreach ($ENV{'GROFF_TMPDIR'}, $ENV{'TMPDIR'}, $ENV{'TMP'}, $ENV{'TEMP'}, - $ENV{'TEMPDIR'}, File::Spec->catfile($ENV{'HOME'}, 'tmp')) { - if ($_ && -d $_ && -w $_) { -@@ -1271,12 +1271,12 @@ sub main_temp { + fi - # further argument: SUFFIX => '.sh' - if ($Debug{'KEEP'}) { -- ($fh_cat, $tmp_cat) = tempfile(',cat_XXXX', DIR => $tmpdir); -- ($fh_stdin, $tmp_stdin) = tempfile(',stdin_XXXX', DIR => $tmpdir); -+ ($fh_cat, $tmp_cat) = tempfile(',cat_XXXXXXXXXX', DIR => $tmpdir); -+ ($fh_stdin, $tmp_stdin) = tempfile(',stdin_XXXXXXXXXX', DIR => $tmpdir); - } else { -- ($fh_cat, $tmp_cat) = tempfile(',cat_XXXX', UNLINK => 1, -+ ($fh_cat, $tmp_cat) = tempfile(',cat_XXXXXXXXXX', UNLINK => 1, - DIR => $tmpdir); -- ($fh_stdin, $tmp_stdin) = tempfile(',stdin_XXXX', UNLINK => 1, -+ ($fh_stdin, $tmp_stdin) = tempfile(',stdin_XXXXXXXXXX', UNLINK => 1, - DIR => $tmpdir); - } - } # main_temp() -diff --git a/contrib/groffer/roff2.pl b/contrib/groffer/roff2.pl -index d8dad3f..f0ca9f2 100755 ---- a/contrib/groffer/roff2.pl -+++ b/contrib/groffer/roff2.pl -@@ -123,7 +123,7 @@ if ($Has_Groffer) { - last; - } - } -- my $template = $Name . '_XXXX'; -+ my $template = $Name . '_XXXXXXXXXX'; - my ($fh, $stdin); - if ($tempdir) { - ($fh, $stdin) = tempfile($template, UNLINK => 1, DIR => $tempdir) || -diff --git a/contrib/pdfmark/pdfroff.man b/contrib/pdfmark/pdfroff.man -index ec412bb..faf2898 100644 ---- a/contrib/pdfmark/pdfroff.man -+++ b/contrib/pdfmark/pdfroff.man -@@ -555,7 +555,7 @@ defaults to - .B GROFF_TMPDIR + if ! test -d "$tmp" +diff --git a/contrib/pdfmark/pdfroff.1.man b/contrib/pdfmark/pdfroff.1.man +index 029a1f4..ee7ac13 100644 +--- a/contrib/pdfmark/pdfroff.1.man ++++ b/contrib/pdfmark/pdfroff.1.man +@@ -619,7 +619,7 @@ gs \-dBATCH \-dQUIET \-dNOPAUSE \-dSAFER \-sDEVICE=pdfwrite \e + .I GROFF_TMPDIR Identifies the directory in which - .B pdfroff + .I pdfroff -should create temporary files. +should create a subdirectory for its temporary files. . If - .B \%GROFF_TMPDIR -@@ -568,7 +568,8 @@ and - .B TEMP - are considered in turn, as possible temporary file repositories. - If none of these are set, then temporary files are created + .I \%GROFF_TMPDIR +@@ -635,7 +635,8 @@ are considered in turn as possible temporary file repositories. + . + If none of these are set, + then temporary files are created -in the current directory. +in a subdirectory of +.BR /tmp . + . . .TP - .B GROFF_GHOSTSCRIPT_INTERPRETER diff --git a/contrib/pic2graph/pic2graph.sh b/contrib/pic2graph/pic2graph.sh -index 72c5477..6b3360d 100644 +index b229914..2d6e77c 100644 --- a/contrib/pic2graph/pic2graph.sh +++ b/contrib/pic2graph/pic2graph.sh -@@ -78,6 +78,8 @@ for d in "$GROFF_TMPDIR" "$TMPDIR" "$TMP" "$TEMP" /tmp; do - tmp=$d/pic2graph$$-$RANDOM - (umask 077 && mkdir $tmp) 2> /dev/null \ - && break +@@ -89,6 +89,8 @@ then + # but is supported by the stripped-down dash shell, for instance. + tmp="$d/pic2graph$$-${RANDOM:-$PPID}" + (umask 077 && mkdir "$tmp") 2> /dev/null + + tmp= - done; - if test -z "$tmp"; then - echo "$0: cannot create temporary directory" >&2 -diff --git a/doc/fixinfo.sh b/doc/fixinfo.sh -index 2c853f8..6954e6a 100644 ---- a/doc/fixinfo.sh -+++ b/doc/fixinfo.sh -@@ -22,8 +22,9 @@ - # groff.texinfo macro code. Hopefully, a new texinfo version makes it - # unnecessary. + fi --t=${TMPDIR-.}/gro$$.tmp -- -+t="`mktemp -t groff-fixinfo.XXXXXXXXXX`" || exit -+trap 'rm -f -- "$t"' EXIT -+trap 'trap - EXIT; rm -f -- "$t"; exit 1' HUP INT QUIT TERM - cat $1 | sed ' - 1 { - N -diff --git a/doc/groff.info-2 b/doc/groff.info-2 -index 7eaae86..e7dab72 100644 ---- a/doc/groff.info-2 -+++ b/doc/groff.info-2 -@@ -1697,9 +1697,9 @@ not there, 'groff' would not know when to stop. - time into a document: - - .sy perl -e 'printf ".nr H %d\\n.nr M %d\\n.nr S %d\\n",\ -- (localtime(time))[2,1,0]' > /tmp/x\n[$$] -- .so /tmp/x\n[$$] -- .sy rm /tmp/x\n[$$] -+ (localtime(time))[2,1,0]' > timefile\n[$$] -+ .so timefile\n[$$] -+ .sy rm timefile\n[$$] - \nH:\nM:\nS - - Note that this works by having the 'perl' script (run by 'sy') -diff --git a/doc/groff.texinfo b/doc/groff.texinfo -index 066b527..83684da 100644 ---- a/doc/groff.texinfo -+++ b/doc/groff.texinfo -@@ -13736,9 +13736,9 @@ into a document: + if ! test -d "$tmp" +diff --git a/doc/groff.texi b/doc/groff.texi +index 2a6635e..1fdf632 100644 +--- a/doc/groff.texi ++++ b/doc/groff.texi +@@ -16005,9 +16005,9 @@ The following code fragment introduces the current time into a document. @pindex perl @Example .sy perl -e 'printf ".nr H %d\\n.nr M %d\\n.nr S %d\\n",\ @@ -190,13 +90,13 @@ index 066b527..83684da 100644 -.so /tmp/x\n[$$] -.sy rm /tmp/x\n[$$] + (localtime(time))[2,1,0]' > timefile\n[$$] -++.so timefile\n[$$] -++.sy rm timefile\n[$$] ++.so timefile\n[$$] ++.sy rm timefile\n[$$] \nH:\nM:\nS @endExample diff --git a/gendef.sh b/gendef.sh -index 41a511b..050bcbe 100644 +index bb30a4f..eb2e31c 100644 --- a/gendef.sh +++ b/gendef.sh @@ -33,11 +33,9 @@ do @@ -224,5 +124,5 @@ index 41a511b..050bcbe 100644 # eof -- -1.9.3 +2.41.0 diff --git a/0004-don-t-use-usr-bin-env-in-shebang.patch b/0004-don-t-use-usr-bin-env-in-shebang.patch index 5c8e2e7..bb8021c 100644 --- a/0004-don-t-use-usr-bin-env-in-shebang.patch +++ b/0004-don-t-use-usr-bin-env-in-shebang.patch @@ -1,7 +1,7 @@ -From e263e19aa1c63dbcbe710e8aae79c8e298606e4c Mon Sep 17 00:00:00 2001 +From 6c997078a8f74429f58e4679b7630de7962e18b0 Mon Sep 17 00:00:00 2001 From: Peter Schiffer Date: Tue, 4 Nov 2014 14:49:57 +0100 -Subject: [PATCH] don't use /usr/bin/env in shebang +Subject: [PATCH 4/4] don't use /usr/bin/env in shebang There might be an issue that the script is executed with unwanted version of if that language is provided by enabled dynamic software collection. @@ -9,13 +9,10 @@ There might be an issue that the script is executed with unwanted version of Resolves: #987069 --- contrib/chem/chem.pl | 2 +- - contrib/groffer/groffer.pl | 2 +- - contrib/groffer/roff2.pl | 2 +- - src/roff/grog/grog.pl | 2 +- - 4 files changed, 4 insertions(+), 4 deletions(-) + 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/contrib/chem/chem.pl b/contrib/chem/chem.pl -index 1a8b3cc..15eda5f 100755 +index 883907b..57e0216 100755 --- a/contrib/chem/chem.pl +++ b/contrib/chem/chem.pl @@ -1,4 +1,4 @@ @@ -24,36 +21,6 @@ index 1a8b3cc..15eda5f 100755 # chem - a groff preprocessor for producing chemical structure diagrams -diff --git a/contrib/groffer/groffer.pl b/contrib/groffer/groffer.pl -index 4e2e575..913e8eb 100755 ---- a/contrib/groffer/groffer.pl -+++ b/contrib/groffer/groffer.pl -@@ -1,4 +1,4 @@ --#! /usr/bin/env perl -+#! /usr/bin/perl - - # groffer - display groff files - -diff --git a/contrib/groffer/roff2.pl b/contrib/groffer/roff2.pl -index f0ca9f2..1b8577f 100755 ---- a/contrib/groffer/roff2.pl -+++ b/contrib/groffer/roff2.pl -@@ -1,4 +1,4 @@ --#! /usr/bin/env perl -+#! /usr/bin/perl - - # roff2* - transform roff files into other formats - -diff --git a/src/roff/grog/grog.pl b/src/roff/grog/grog.pl -index fb7b54c..9baa869 100644 ---- a/src/roff/grog/grog.pl -+++ b/src/roff/grog/grog.pl -@@ -1,4 +1,4 @@ --#! /usr/bin/env perl -+#! /usr/bin/perl - # grog - guess options for groff command - # Inspired by doctype script in Kernighan & Pike, Unix Programming - # Environment, pp 306-8. -- -1.9.3 +2.21.1 diff --git a/0005-Add-missing-rule-for-gropdf.patch b/0005-Add-missing-rule-for-gropdf.patch deleted file mode 100644 index 2ab9eed..0000000 --- a/0005-Add-missing-rule-for-gropdf.patch +++ /dev/null @@ -1,25 +0,0 @@ -From 65c9f2f5152b3eebba8494cbead00d79d1dcbb1c Mon Sep 17 00:00:00 2001 -From: Jan Chaloupka -Date: Wed, 12 Nov 2014 08:23:00 +0100 -Subject: [PATCH] Add missing rule for gropdf - ---- - Makefile.in | 2 ++ - 1 file changed, 2 insertions(+) - -diff --git a/Makefile.in b/Makefile.in -index 4b5a5c6..7ae9ac2 100644 ---- a/Makefile.in -+++ b/Makefile.in -@@ -896,6 +896,8 @@ $(GNULIBDIRS): FORCE - $(MAKE) ACLOCAL=: AUTOCONF=: AUTOHEADER=: AUTOMAKE=: $(do) ;; \ - esac - -+$(SHPROGDIRS): $(PROGDEPDIRS) -+ - $(OTHERDIRS): $(PROGDEPDIRS) $(CCPROGDIRS) $(CPROGDIRS) $(SHPROGDIRS) - - $(INCDIRS) $(PROGDEPDIRS) $(SHPROGDIRS) $(OTHERDIRS): FORCE --- -1.9.3 - diff --git a/0005-do-not-overwrite-docdir.patch b/0005-do-not-overwrite-docdir.patch new file mode 100644 index 0000000..f56d5fc --- /dev/null +++ b/0005-do-not-overwrite-docdir.patch @@ -0,0 +1,28 @@ +From ad194a6cadbb4718d238c85925ab8c646a3afdf7 Mon Sep 17 00:00:00 2001 +From: =?UTF-8?q?Nikola=20Forr=C3=B3?= +Date: Fri, 6 Mar 2020 10:40:09 +0100 +Subject: [PATCH 5/5] do not overwrite docdir + +--- + Makefile.in | 5 ++--- + 1 file changed, 2 insertions(+), 3 deletions(-) + +diff --git a/Makefile.in b/Makefile.in +index 5331dd3..21522e3 100644 +--- a/Makefile.in ++++ b/Makefile.in +@@ -3378,9 +3378,8 @@ doc_dist_target_ok = @doc_dist_target_ok@ + # `infodir' says where to install info files. + + # docdir +-# `docdir' says where to install documentation files. The default +-# location is ${datarootdir}/doc/${PACKAGE}, but we add the version +-docdir = $(datarootdir)/doc/${PACKAGE}-$(SHORT_VERSION) ++# `docdir' says where to install documentation files. ++docdir = @docdir@ + dvidir = @dvidir@ + exec_prefix = @exec_prefix@ + g = @g@ +-- +2.21.1 + diff --git a/0006-Revert-upstream-change-of-mapping-special-characters.patch b/0006-Revert-upstream-change-of-mapping-special-characters.patch new file mode 100644 index 0000000..832bd4f --- /dev/null +++ b/0006-Revert-upstream-change-of-mapping-special-characters.patch @@ -0,0 +1,74 @@ +From f4f76740ad4693cb967801e366f1d6410381dd71 Mon Sep 17 00:00:00 2001 +From: groff owner +Date: Thu, 2 Nov 2023 13:09:37 +0000 +Subject: [PATCH] Revert upstream change of mapping special characters for + UTF-8 + +Adopt Debian decision: https://salsa.debian.org/debian/groff/-/commit/d5394c68d70e6c5199b01d2522e094c8fd52e64e +--- + tmac/man.local | 16 ++++++++++++++++ + tmac/mdoc.local | 17 ++++++++++++++++- + 2 files changed, 32 insertions(+), 1 deletion(-) + +diff --git a/tmac/man.local b/tmac/man.local +index 5daa507..4bed937 100644 +--- a/tmac/man.local ++++ b/tmac/man.local +@@ -2,6 +2,22 @@ + .\" + .\" Put local modifications to groff_man(7)'s behavior here. + .\" ++.\" Adopting Debian's decision to preserve old mapping for UTF-8 ++.\" Debian: As of groff 1.23.0, the "-", "'", "`", "^", and "~" input ++.\" characters are mapped to non-Basic Latin code points in output from ++.\" the "utf8" device, for consistency with other output devices such as ++.\" PDF. Unfortunately in practice this still causes far too much ++.\" disruption for innocent users of manual pages who just want to be able ++.\" to search for characters normally, so preserve the old behaviour. ++.\" Comment this out if you want to make sure that manual pages you're ++.\" writing are clear of these problems. ++.if '\*[.T]'utf8' \{\ ++. char - \- ++. char ' \[aq] ++. char ` \[ga] ++. char ^ \[ha] ++. char ~ \[ti] ++.\} + .\" Change "0" to "1" to enable OSC 8 links on SGR-capable grotty(1) + .\" output devices. + .if !'\*[.T]'html' \ +diff --git a/tmac/mdoc.local b/tmac/mdoc.local +index 94688ab..1bb47d6 100644 +--- a/tmac/mdoc.local ++++ b/tmac/mdoc.local +@@ -2,6 +2,22 @@ + .\" + .\" Put local modifications to groff_mdoc(7)'s behavior here. + .\" ++.\" Adopting Debian's decision to preserve old mapping for UTF-8 ++.\" Debian: As of groff 1.23.0, the "-", "'", "`", "^", and "~" input ++.\" characters are mapped to non-Basic Latin code points in output from ++.\" the "utf8" device, for consistency with other output devices such as ++.\" PDF. Unfortunately in practice this still causes far too much ++.\" disruption for innocent users of manual pages who just want to be able ++.\" to search for characters normally, so preserve the old behaviour. ++.\" Comment this out if you want to make sure that manual pages you're ++.\" writing are clear of these problems. ++.if '\*[.T]'utf8' \{\ ++. char - \- ++. char ' \[aq] ++. char ` \[ga] ++. char ^ \[ha] ++. char ~ \[ti] ++.\} + .\" "CW" is not a portable font name, but some man pages use it anyway. + .\" Uncomment this to suppress warnings produced by such pages. This + .\" test remaps the font to roman ("R") on nroff (terminal) devices. You +@@ -12,4 +28,3 @@ + .\" mode: nroff + .\" fill-column: 72 + .\" End: +-.\" vim: set filetype=groff textwidth=72: +-- +2.41.0 + diff --git a/0007-Fix-the-possible-overrun-of-buf-array.patch b/0007-Fix-the-possible-overrun-of-buf-array.patch new file mode 100644 index 0000000..a4313f4 --- /dev/null +++ b/0007-Fix-the-possible-overrun-of-buf-array.patch @@ -0,0 +1,34 @@ +From 73cf426409d3c9d097d650c7713c9d49d270623c Mon Sep 17 00:00:00 2001 +From: Lukas Javorsky +Date: Thu, 1 Aug 2024 10:47:02 +0200 +Subject: [PATCH] Fix the possible overrun of buf array + +--- + src/roff/troff/env.cpp | 4 ++-- + 1 file changed, 2 insertions(+), 2 deletions(-) + +diff --git a/src/roff/troff/env.cpp b/src/roff/troff/env.cpp +index 1b3b4ba..8b91380 100644 +--- a/src/roff/troff/env.cpp ++++ b/src/roff/troff/env.cpp +@@ -4003,7 +4003,7 @@ void hyphenate(hyphen_list *h, unsigned flags) + while (h && h->hyphenation_code == 0) + h = h->next; + int len = 0; +- char hbuf[WORD_MAX + 2]; ++ char hbuf[WORD_MAX + 2 + 1]; + char *buf = hbuf + 1; + hyphen_list *tem; + for (tem = h; tem && len < WORD_MAX; tem = tem->next) { +@@ -4063,7 +4063,7 @@ void hyphenate(hyphen_list *h, unsigned flags) + } + else { + hbuf[0] = hbuf[len + 1] = '.'; +- int num[WORD_MAX + 3]; ++ int num[WORD_MAX + 3 + 1]; + current_language->patterns.hyphenate(hbuf, len + 2, num); + // The position of a hyphenation point gets marked with an odd + // number. Example: +-- +2.45.2 + diff --git a/0008-Fix-for-insufficient-allocation-of-iterator.patch b/0008-Fix-for-insufficient-allocation-of-iterator.patch new file mode 100644 index 0000000..02baf6b --- /dev/null +++ b/0008-Fix-for-insufficient-allocation-of-iterator.patch @@ -0,0 +1,25 @@ +From 2e548049590a455ce3824fa7950f03465b737501 Mon Sep 17 00:00:00 2001 +From: Lukas Javorsky +Date: Thu, 1 Aug 2024 10:48:45 +0200 +Subject: [PATCH 2/7] Fix for insufficient allocation of iterator + +--- + src/roff/troff/input.cpp | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/src/roff/troff/input.cpp b/src/roff/troff/input.cpp +index abf6198..18157a9 100644 +--- a/src/roff/troff/input.cpp ++++ b/src/roff/troff/input.cpp +@@ -3630,9 +3630,10 @@ inline + #endif + temp_iterator::temp_iterator(const char *s, int len) + { +- base = new unsigned char[len]; ++ base = new unsigned char[len + 1]; + if (len > 0) + memcpy(base, s, len); ++ base[len] = '\0'; + ptr = base; + eptr = base + len; + } diff --git a/0009-Safely-handle-the-name-argument-in-NewFile-func.patch b/0009-Safely-handle-the-name-argument-in-NewFile-func.patch new file mode 100644 index 0000000..a93642f --- /dev/null +++ b/0009-Safely-handle-the-name-argument-in-NewFile-func.patch @@ -0,0 +1,28 @@ +From a96155657b690a7de3a7670f3014867487cba838 Mon Sep 17 00:00:00 2001 +From: Lukas Javorsky +Date: Mon, 12 Aug 2024 13:02:35 +0200 +Subject: [PATCH 3/7] Safely handle the "name" argument in NewFile func + +Since the NewFile func is called with argv[] arguments, there should be +a safety check in case that the arguments are tainted. +--- + src/devices/xditview/xditview.c | 3 ++- + 1 file changed, 2 insertions(+), 1 deletion(-) + +diff --git a/src/devices/xditview/xditview.c b/src/devices/xditview/xditview.c +index 1f56940b2..9ee0470c2 100644 +--- a/src/devices/xditview/xditview.c ++++ b/src/devices/xditview/xditview.c +@@ -364,7 +364,8 @@ NewFile (const char *name) + } + hadFile = 1; + SelectPageNumber ("1"); +- strcpy (current_file_name, name); ++ strncpy(current_file_name, name, sizeof(current_file_name) - 1); ++ current_file_name[sizeof(current_file_name) - 1] = '\0'; // Ensure null-termination + current_file = new_file; + } + +-- +2.44.0 + diff --git a/0010-Fix-array-comparison-warning-by-comparing-elements-i.patch b/0010-Fix-array-comparison-warning-by-comparing-elements-i.patch new file mode 100644 index 0000000..e9e5b77 --- /dev/null +++ b/0010-Fix-array-comparison-warning-by-comparing-elements-i.patch @@ -0,0 +1,26 @@ +From d9e08e8d8687c32bc6f079fed91e708374aadde8 Mon Sep 17 00:00:00 2001 +From: Lukas Javorsky +Date: Mon, 12 Aug 2024 14:38:00 +0200 +Subject: [PATCH 4/7] Fix array comparison warning by comparing elements + individually + +--- + src/preproc/refer/ref.cpp | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/src/preproc/refer/ref.cpp b/src/preproc/refer/ref.cpp +index 5f6d5c63a..65b7edaf3 100644 +--- a/src/preproc/refer/ref.cpp ++++ b/src/preproc/refer/ref.cpp +@@ -536,7 +536,7 @@ int same_reference(const reference &r1, const reference &r2) + return 0; + int i = 0; + for (i = 0; i < 256; i++) +- if (r1.field_index != r2.field_index) ++ if (r1.field_index[i] != r2.field_index[i]) + return 0; + for (i = 0; i < r1.nfields; i++) + if (r1.field[i] != r2.field[i]) +-- +2.44.0 + diff --git a/0011-Initialize-s-to-prevent-undefined-behavior.patch b/0011-Initialize-s-to-prevent-undefined-behavior.patch new file mode 100644 index 0000000..ddf27fd --- /dev/null +++ b/0011-Initialize-s-to-prevent-undefined-behavior.patch @@ -0,0 +1,36 @@ +From c19274b6ec048aa8c9d5e78bec22609aadf0ff4c Mon Sep 17 00:00:00 2001 +From: Lukas Javorsky +Date: Mon, 12 Aug 2024 15:45:45 +0200 +Subject: [PATCH 5/7] Initialize "s" to prevent undefined behavior + +--- + src/roff/troff/env.cpp | 2 +- + src/roff/troff/input.cpp | 2 +- + 2 files changed, 2 insertions(+), 2 deletions(-) + +diff --git a/src/roff/troff/env.cpp b/src/roff/troff/env.cpp +index 04eedd1..7d1c8d1 100644 +--- a/src/roff/troff/env.cpp ++++ b/src/roff/troff/env.cpp +@@ -287,7 +287,7 @@ void leader_character() + + void environment::add_char(charinfo *ci) + { +- int s; ++ int s = 0; + node *gc_np = 0; + if (interrupted) + ; +diff --git a/src/roff/troff/input.cpp b/src/roff/troff/input.cpp +index bd586cb..4308926 100644 +--- a/src/roff/troff/input.cpp ++++ b/src/roff/troff/input.cpp +@@ -7300,7 +7300,7 @@ void check_missing_character() + int token::add_to_zero_width_node_list(node **pp) + { + hunits w; +- int s; ++ int s = 0; + node *n = 0; + switch (type) { + case TOKEN_CHAR: diff --git a/0012-Initialize-x-and-y-elements-of-the-here-structure.patch b/0012-Initialize-x-and-y-elements-of-the-here-structure.patch new file mode 100644 index 0000000..14c21ee --- /dev/null +++ b/0012-Initialize-x-and-y-elements-of-the-here-structure.patch @@ -0,0 +1,36 @@ +From afd4d3247df46f5ec21a86627203234f37d750ee Mon Sep 17 00:00:00 2001 +From: Lukas Javorsky +Date: Mon, 12 Aug 2024 15:52:14 +0200 +Subject: [PATCH 6/7] Initialize "x" and "y" elements of the "here" structure + +Using uninitialized variables in the "path::follow" function could cause +an undefined behavior. +--- + src/preproc/pic/object.cpp | 4 ++++ + 1 file changed, 4 insertions(+) + +diff --git a/src/preproc/pic/object.cpp b/src/preproc/pic/object.cpp +index d0b648c27..b197a02fa 100644 +--- a/src/preproc/pic/object.cpp ++++ b/src/preproc/pic/object.cpp +@@ -891,6 +891,8 @@ int object_spec::position_rectangle(rectangle_object *p, + if (flags & HAS_WITH) { + place offset; + place here; ++ here.x = 0; ++ here.y = 0; + here.obj = p; + if (!with->follow(here, &offset)) + return 0; +@@ -1512,6 +1514,8 @@ linear_object *object_spec::make_line(position *curpos, direction *dirp) + position pos = at; + place offset; + place here; ++ here.x = 0; ++ here.y = 0; + here.obj = &tmpobj; + if (!with->follow(here, &offset)) + return 0; +-- +2.44.0 + diff --git a/0013-Fix-uninitialized-memory-usage-in-override_sizes-by-.patch b/0013-Fix-uninitialized-memory-usage-in-override_sizes-by-.patch new file mode 100644 index 0000000..8b7e487 --- /dev/null +++ b/0013-Fix-uninitialized-memory-usage-in-override_sizes-by-.patch @@ -0,0 +1,25 @@ +From 02e7914f70f3afb37b5ebadc65da35e5df47ea8e Mon Sep 17 00:00:00 2001 +From: Lukas Javorsky +Date: Mon, 12 Aug 2024 16:14:40 +0200 +Subject: [PATCH 7/7] Fix uninitialized memory usage in override_sizes by + zero-initializing sizes array + +If `strtok` returns `null`, we break early from for-loop before initializing any values to sizes. We then access uninitialized values. Only other case where we break out of the loop is when `lower` is 0, and we do only after adding this 0 to `sizes`. Function `init_size_table` uses "\0" to detect end of the array, so in this case we shouldn't be accessing any uninitialized values. +--- + src/roff/troff/env.cpp | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/src/roff/troff/env.cpp b/src/roff/troff/env.cpp +index 62c251927..b54df35e9 100644 +--- a/src/roff/troff/env.cpp ++++ b/src/roff/troff/env.cpp +@@ -1318,7 +1318,8 @@ void point_size() + void override_sizes() + { + int n = 16; +- int *sizes = new int[n]; ++ int *sizes = new int[n]; // C++03: new int[n](); ++ (void) memset(sizes, 0, (n * sizeof(int))); + int i = 0; + char *buf = read_string(); + if (!buf) diff --git a/gating.yaml b/gating.yaml deleted file mode 100644 index 6985029..0000000 --- a/gating.yaml +++ /dev/null @@ -1,6 +0,0 @@ ---- !Policy -product_versions: - - rhel-8 -decision_context: osci_compose_gate -rules: - - !PassingTestCaseRule {test_case_name: osci.brew-build.tier0.functional} diff --git a/groff-1.22.3-coverity.patch b/groff-1.22.3-coverity.patch deleted file mode 100644 index 12fcaba..0000000 --- a/groff-1.22.3-coverity.patch +++ /dev/null @@ -1,10614 +0,0 @@ -From e492d60b92dce680f7dadb2bed1bbf575e085bac Mon Sep 17 00:00:00 2001 -From: groff owner -Date: Mon, 12 Nov 2018 15:32:30 +0100 -Subject: [PATCH] Fix important Covscan defects - ---- - contrib/pic2graph/pic2graph.sh | 1 - - src/devices/grohtml/post-html.cpp | 26 +- - src/devices/grolbp/lbp.cpp | 4 +- - src/include/relocate.h | 7 + - src/libs/libbib/index.cpp | 4 +- - src/libs/libgroff/localcharset.c | 6 +- - src/libs/libgroff/relocate.cpp | 6 + - src/preproc/eqn/eqn.cpp | 2163 ------------- - src/preproc/grn/main.cpp | 3 + - src/preproc/html/pre-html.cpp | 46 +- - src/preproc/pic/pic.cpp | 5008 ----------------------------- - src/preproc/refer/label.cpp | 2701 ---------------- - src/preproc/refer/label.y | 2 +- - src/preproc/tbl/table.cpp | 4 +- - src/roff/troff/dictionary.cpp | 5 + - src/roff/troff/dictionary.h | 1 + - src/roff/troff/env.cpp | 11 +- - src/roff/troff/input.cpp | 5 + - src/roff/troff/mtsm.cpp | 6 +- - src/utils/addftinfo/addftinfo.cpp | 1 + - src/utils/hpftodit/hpftodit.cpp | 28 +- - src/utils/indxbib/indxbib.cpp | 7 + - src/utils/tfmtodit/tfmtodit.cpp | 8 + - 23 files changed, 152 insertions(+), 9901 deletions(-) - delete mode 100644 src/preproc/eqn/eqn.cpp - delete mode 100644 src/preproc/pic/pic.cpp - delete mode 100644 src/preproc/refer/label.cpp - -diff --git a/contrib/pic2graph/pic2graph.sh b/contrib/pic2graph/pic2graph.sh -index 6b3360d..3e1e788 100644 ---- a/contrib/pic2graph/pic2graph.sh -+++ b/contrib/pic2graph/pic2graph.sh -@@ -33,7 +33,6 @@ - # intended as a pic translator; we can live with eqn defaults. - # - groffpic_opts="" --gs_opts="" - convert_opts="" - format="png" - eqndelim='$$' -diff --git a/src/devices/grohtml/post-html.cpp b/src/devices/grohtml/post-html.cpp -index fefbf01..c775826 100644 ---- a/src/devices/grohtml/post-html.cpp -+++ b/src/devices/grohtml/post-html.cpp -@@ -2353,7 +2353,7 @@ static string &generate_img_src (const char *filename) - - void html_printer::do_auto_image (text_glob *g, const char *filename) - { -- string buffer = generate_img_src(filename); -+ string &buffer = generate_img_src(filename); - - if (! buffer.empty()) { - /* -@@ -2366,6 +2366,8 @@ void html_printer::do_auto_image (text_glob *g, const char *filename) - emit_raw(&h); - } else - next_tag = INLINE; -+ -+ delete &buffer; - } - - /* -@@ -2397,7 +2399,7 @@ void html_printer::do_title (void) - t = page_contents->glyphs.get_data(); - removed_from_head = FALSE; - if (t->is_auto_img()) { -- string img = generate_img_src((char *)(t->text_string + 20)); -+ string &img = generate_img_src((char *)(t->text_string + 20)); - - if (! img.empty()) { - if (found_title_start) -@@ -2406,6 +2408,8 @@ void html_printer::do_title (void) - title.has_been_found = TRUE; - title.text += img; - } -+ delete &img; -+ - page_contents->glyphs.sub_move_right(); /* move onto next word */ - removed_from_head = ((!page_contents->glyphs.is_empty()) && - (page_contents->glyphs.is_equal_to_head())); -@@ -2607,7 +2611,7 @@ void html_printer::do_heading (char *arg) - horiz = g->minh; - do { - if (g->is_auto_img()) { -- string img=generate_img_src((char *)(g->text_string + 20)); -+ string &img=generate_img_src((char *)(g->text_string + 20)); - - if (! img.empty()) { - simple_anchors = TRUE; // we cannot use full heading anchors with images -@@ -2616,6 +2620,7 @@ void html_printer::do_heading (char *arg) - - header.header_buffer += img; - } -+ delete &img; - } - else if (g->is_in() || g->is_ti() || g->is_po() || g->is_ce() || g->is_ll()) - troff_tag(g); -@@ -5158,6 +5163,8 @@ html_printer::~html_printer() - fputs("\n", stdout); - fputs("\n", stdout); - } -+ -+ delete page_contents; - } - - /* -@@ -5248,6 +5255,12 @@ void html_printer::handle_assertion (int minv, int minh, int maxv, int maxh, con - if (strncmp(cmd, "assertion:[", strlen("assertion:[")) == 0) - page_contents->add_tag(&sbuf_style, string(s), - line_number, minv, minh, maxv, maxh); -+ -+ a_delete cmd; -+ a_delete id; -+ a_delete val; -+ a_delete file; -+ a_delete line; - } - - /* -@@ -5261,11 +5274,16 @@ void html_printer::handle_state_assertion (text_glob *g) - char *n = (char *)&g->text_string[11]; - char *cmd = get_str(n, &n); - char *val = get_str(n, &n); -- (void)get_str(n, &n); // unused -+ a_delete get_str(n, &n); // unused - char *file= get_str(n, &n); - char *line= get_str(n, &n); - - as.build(cmd, val, file, line); -+ -+ a_delete cmd; -+ a_delete val; -+ a_delete file; -+ a_delete line; - } - } - -diff --git a/src/devices/grolbp/lbp.cpp b/src/devices/grolbp/lbp.cpp -index fbd1bbf..9ebf4c5 100644 ---- a/src/devices/grolbp/lbp.cpp -+++ b/src/devices/grolbp/lbp.cpp -@@ -271,6 +271,7 @@ char *lbp_printer::font_name(const lbp_font *f, const int siz) - sprintf(bfont_name, "%c%s%d", ori, nam, cpi); - else - sprintf(bfont_name, "%c%s%d%c", ori, nam, cpi, type); -+ a_delete nam; - return bfont_name; - } - -@@ -390,7 +391,7 @@ inline void lbp_printer::setfillmode(int mode) - else - vdmsetfillmode(mode, 1, 1); // To get black we must use white - // inverted -- fill_mode = mode; -+ fill_mode = mode; - } - } - -@@ -406,6 +407,7 @@ inline void lbp_printer::polygon(int hpos, int vpos, int np, int *p) - // for (i = 0; i < np; i++) fprintf(stderr, " %d ", p[i]); - // fprintf(stderr, "\n"); - vdmpolygon((np /2) + 1, points); -+ a_delete points; - } - - void lbp_printer::draw(int code, int *p, int np, const environment *env) -diff --git a/src/include/relocate.h b/src/include/relocate.h -index 905dcbb..3fbfa7d 100644 ---- a/src/include/relocate.h -+++ b/src/include/relocate.h -@@ -32,6 +32,13 @@ extern - #endif - char *relocatep (const char *path); - -+/* This function has C linkage. */ -+extern -+#ifdef __cplusplus -+"C" -+#endif -+void free_relocated_path(char *path); -+ - #ifdef __cplusplus - char *relocate (const char *path); - #endif -diff --git a/src/libs/libbib/index.cpp b/src/libs/libbib/index.cpp -index ea4df53..051f5ce 100644 ---- a/src/libs/libbib/index.cpp -+++ b/src/libs/libbib/index.cpp -@@ -275,8 +275,10 @@ search_item *make_index_search_item(const char *filename, int fid) - strcpy(index_filename, filename); - strcat(index_filename, INDEX_SUFFIX); - int fd = open(index_filename, O_RDONLY | O_BINARY); -- if (fd < 0) -+ if (fd < 0) { -+ a_delete index_filename; - return 0; -+ } - index_search_item *item = new index_search_item(index_filename, fid); - a_delete index_filename; - if (!item->load(fd)) { -diff --git a/src/libs/libgroff/localcharset.c b/src/libs/libgroff/localcharset.c -index 1c17af0..2848038 100644 ---- a/src/libs/libgroff/localcharset.c -+++ b/src/libs/libgroff/localcharset.c -@@ -130,6 +130,7 @@ get_charset_aliases (void) - { - #if !(defined DARWIN7 || defined VMS || defined WINDOWS_NATIVE || defined __CYGWIN__) - const char *dir; -+ const char *libdir = NULL; - const char *base = "charset.alias"; - char *file_name; - -@@ -137,7 +138,7 @@ get_charset_aliases (void) - necessary for running the testsuite before "make install". */ - dir = getenv ("CHARSETALIASDIR"); - if (dir == NULL || dir[0] == '\0') -- dir = relocate (LIBDIR); -+ dir = libdir = relocate (LIBDIR); - - /* Concatenate dir and base into freshly allocated file_name. */ - { -@@ -154,6 +155,9 @@ get_charset_aliases (void) - } - } - -+ if (libdir != NULL) -+ free_relocated_path ((char *) libdir); -+ - if (file_name == NULL) - /* Out of memory. Treat the file as empty. */ - cp = ""; -diff --git a/src/libs/libgroff/relocate.cpp b/src/libs/libgroff/relocate.cpp -index ead2d6b..a82dd82 100644 ---- a/src/libs/libgroff/relocate.cpp -+++ b/src/libs/libgroff/relocate.cpp -@@ -172,6 +172,7 @@ void set_current_prefix() - fprintf(stderr, "curr_prefix: %s\n", curr_prefix); - # endif /* DEBUG */ - #else /* !_WIN32 */ -+ a_delete curr_prefix; - curr_prefix = searchpath(program_name, getenv("PATH")); - if (!curr_prefix && !strchr(program_name, '.')) { // try with extensions - pathextstr = strsave(getenv("PATHEXT")); -@@ -220,6 +221,11 @@ char *relocatep(const char *path) - return relocated_path; - } - -+void free_relocated_path(char *path) -+{ -+ a_delete path; -+} -+ - // Return the original pathname if it exists; - // otherwise return the relocated path. - char *relocate(const char *path) -diff --git a/src/preproc/eqn/eqn.cpp b/src/preproc/eqn/eqn.cpp -deleted file mode 100644 -index ea96fc1..0000000 ---- a/src/preproc/eqn/eqn.cpp -+++ /dev/null -@@ -1,2163 +0,0 @@ --/* A Bison parser, made by GNU Bison 3.0.2. */ -- --/* Bison implementation for Yacc-like parsers in C -- -- Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by -- the Free Software Foundation, either version 3 of the License, or -- (at your option) any later version. -- -- This program is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -- GNU General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program. If not, see . */ -- --/* As a special exception, you may create a larger work that contains -- part or all of the Bison parser skeleton and distribute that work -- under terms of your choice, so long as that work isn't itself a -- parser generator using the skeleton or a modified version thereof -- as a parser skeleton. Alternatively, if you modify or redistribute -- the parser skeleton itself, you may (at your option) remove this -- special exception, which will cause the skeleton and the resulting -- Bison output files to be licensed under the GNU General Public -- License without this special exception. -- -- This special exception was added by the Free Software Foundation in -- version 2.2 of Bison. */ -- --/* C LALR(1) parser skeleton written by Richard Stallman, by -- simplifying the original so-called "semantic" parser. */ -- --/* All symbols defined below should begin with yy or YY, to avoid -- infringing on user name space. This should be done even for local -- variables, as they might otherwise be expanded by user macros. -- There are some unavoidable exceptions within include files to -- define necessary library symbols; they are noted "INFRINGES ON -- USER NAME SPACE" below. */ -- --/* Identify Bison output. */ --#define YYBISON 1 -- --/* Bison version. */ --#define YYBISON_VERSION "3.0.2" -- --/* Skeleton name. */ --#define YYSKELETON_NAME "yacc.c" -- --/* Pure parsers. */ --#define YYPURE 0 -- --/* Push parsers. */ --#define YYPUSH 0 -- --/* Pull parsers. */ --#define YYPULL 1 -- -- -- -- --/* Copy the first part of user declarations. */ --#line 18 "eqn.y" /* yacc.c:339 */ -- --#include --#include --#include -- --#include "lib.h" --#include "box.h" --extern int non_empty_flag; --int yylex(); --void yyerror(const char *); -- --#line 78 "eqn.cpp" /* yacc.c:339 */ -- --# ifndef YY_NULLPTR --# if defined __cplusplus && 201103L <= __cplusplus --# define YY_NULLPTR nullptr --# else --# define YY_NULLPTR 0 --# endif --# endif -- --/* Enabling verbose error messages. */ --#ifdef YYERROR_VERBOSE --# undef YYERROR_VERBOSE --# define YYERROR_VERBOSE 1 --#else --# define YYERROR_VERBOSE 0 --#endif -- --/* In a future release of Bison, this section will be replaced -- by #include "y.tab.h". */ --#ifndef YY_YY_Y_TAB_H_INCLUDED --# define YY_YY_Y_TAB_H_INCLUDED --/* Debug traces. */ --#ifndef YYDEBUG --# define YYDEBUG 0 --#endif --#if YYDEBUG --extern int yydebug; --#endif -- --/* Token type. */ --#ifndef YYTOKENTYPE --# define YYTOKENTYPE -- enum yytokentype -- { -- OVER = 258, -- SMALLOVER = 259, -- SQRT = 260, -- SUB = 261, -- SUP = 262, -- LPILE = 263, -- RPILE = 264, -- CPILE = 265, -- PILE = 266, -- LEFT = 267, -- RIGHT = 268, -- TO = 269, -- FROM = 270, -- SIZE = 271, -- FONT = 272, -- ROMAN = 273, -- BOLD = 274, -- ITALIC = 275, -- FAT = 276, -- ACCENT = 277, -- BAR = 278, -- UNDER = 279, -- ABOVE = 280, -- TEXT = 281, -- QUOTED_TEXT = 282, -- FWD = 283, -- BACK = 284, -- DOWN = 285, -- UP = 286, -- MATRIX = 287, -- COL = 288, -- LCOL = 289, -- RCOL = 290, -- CCOL = 291, -- MARK = 292, -- LINEUP = 293, -- TYPE = 294, -- VCENTER = 295, -- PRIME = 296, -- SPLIT = 297, -- NOSPLIT = 298, -- UACCENT = 299, -- SPECIAL = 300, -- SPACE = 301, -- GFONT = 302, -- GSIZE = 303, -- DEFINE = 304, -- NDEFINE = 305, -- TDEFINE = 306, -- SDEFINE = 307, -- UNDEF = 308, -- IFDEF = 309, -- INCLUDE = 310, -- DELIM = 311, -- CHARTYPE = 312, -- SET = 313, -- GRFONT = 314, -- GBFONT = 315 -- }; --#endif --/* Tokens. */ --#define OVER 258 --#define SMALLOVER 259 --#define SQRT 260 --#define SUB 261 --#define SUP 262 --#define LPILE 263 --#define RPILE 264 --#define CPILE 265 --#define PILE 266 --#define LEFT 267 --#define RIGHT 268 --#define TO 269 --#define FROM 270 --#define SIZE 271 --#define FONT 272 --#define ROMAN 273 --#define BOLD 274 --#define ITALIC 275 --#define FAT 276 --#define ACCENT 277 --#define BAR 278 --#define UNDER 279 --#define ABOVE 280 --#define TEXT 281 --#define QUOTED_TEXT 282 --#define FWD 283 --#define BACK 284 --#define DOWN 285 --#define UP 286 --#define MATRIX 287 --#define COL 288 --#define LCOL 289 --#define RCOL 290 --#define CCOL 291 --#define MARK 292 --#define LINEUP 293 --#define TYPE 294 --#define VCENTER 295 --#define PRIME 296 --#define SPLIT 297 --#define NOSPLIT 298 --#define UACCENT 299 --#define SPECIAL 300 --#define SPACE 301 --#define GFONT 302 --#define GSIZE 303 --#define DEFINE 304 --#define NDEFINE 305 --#define TDEFINE 306 --#define SDEFINE 307 --#define UNDEF 308 --#define IFDEF 309 --#define INCLUDE 310 --#define DELIM 311 --#define CHARTYPE 312 --#define SET 313 --#define GRFONT 314 --#define GBFONT 315 -- --/* Value type. */ --#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED --typedef union YYSTYPE YYSTYPE; --union YYSTYPE --{ --#line 30 "eqn.y" /* yacc.c:355 */ -- -- char *str; -- box *b; -- pile_box *pb; -- matrix_box *mb; -- int n; -- column *col; -- --#line 247 "eqn.cpp" /* yacc.c:355 */ --}; --# define YYSTYPE_IS_TRIVIAL 1 --# define YYSTYPE_IS_DECLARED 1 --#endif -- -- --extern YYSTYPE yylval; -- --int yyparse (void); -- --#endif /* !YY_YY_Y_TAB_H_INCLUDED */ -- --/* Copy the second part of user declarations. */ -- --#line 262 "eqn.cpp" /* yacc.c:358 */ -- --#ifdef short --# undef short --#endif -- --#ifdef YYTYPE_UINT8 --typedef YYTYPE_UINT8 yytype_uint8; --#else --typedef unsigned char yytype_uint8; --#endif -- --#ifdef YYTYPE_INT8 --typedef YYTYPE_INT8 yytype_int8; --#else --typedef signed char yytype_int8; --#endif -- --#ifdef YYTYPE_UINT16 --typedef YYTYPE_UINT16 yytype_uint16; --#else --typedef unsigned short int yytype_uint16; --#endif -- --#ifdef YYTYPE_INT16 --typedef YYTYPE_INT16 yytype_int16; --#else --typedef short int yytype_int16; --#endif -- --#ifndef YYSIZE_T --# ifdef __SIZE_TYPE__ --# define YYSIZE_T __SIZE_TYPE__ --# elif defined size_t --# define YYSIZE_T size_t --# elif ! defined YYSIZE_T --# include /* INFRINGES ON USER NAME SPACE */ --# define YYSIZE_T size_t --# else --# define YYSIZE_T unsigned int --# endif --#endif -- --#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) -- --#ifndef YY_ --# if defined YYENABLE_NLS && YYENABLE_NLS --# if ENABLE_NLS --# include /* INFRINGES ON USER NAME SPACE */ --# define YY_(Msgid) dgettext ("bison-runtime", Msgid) --# endif --# endif --# ifndef YY_ --# define YY_(Msgid) Msgid --# endif --#endif -- --#ifndef YY_ATTRIBUTE --# if (defined __GNUC__ \ -- && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ -- || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C --# define YY_ATTRIBUTE(Spec) __attribute__(Spec) --# else --# define YY_ATTRIBUTE(Spec) /* empty */ --# endif --#endif -- --#ifndef YY_ATTRIBUTE_PURE --# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) --#endif -- --#ifndef YY_ATTRIBUTE_UNUSED --# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) --#endif -- --#if !defined _Noreturn \ -- && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112) --# if defined _MSC_VER && 1200 <= _MSC_VER --# define _Noreturn __declspec (noreturn) --# else --# define _Noreturn YY_ATTRIBUTE ((__noreturn__)) --# endif --#endif -- --/* Suppress unused-variable warnings by "using" E. */ --#if ! defined lint || defined __GNUC__ --# define YYUSE(E) ((void) (E)) --#else --# define YYUSE(E) /* empty */ --#endif -- --#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ --/* Suppress an incorrect diagnostic about yylval being uninitialized. */ --# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ -- _Pragma ("GCC diagnostic push") \ -- _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ -- _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") --# define YY_IGNORE_MAYBE_UNINITIALIZED_END \ -- _Pragma ("GCC diagnostic pop") --#else --# define YY_INITIAL_VALUE(Value) Value --#endif --#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN --# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN --# define YY_IGNORE_MAYBE_UNINITIALIZED_END --#endif --#ifndef YY_INITIAL_VALUE --# define YY_INITIAL_VALUE(Value) /* Nothing. */ --#endif -- -- --#if ! defined yyoverflow || YYERROR_VERBOSE -- --/* The parser invokes alloca or malloc; define the necessary symbols. */ -- --# ifdef YYSTACK_USE_ALLOCA --# if YYSTACK_USE_ALLOCA --# ifdef __GNUC__ --# define YYSTACK_ALLOC __builtin_alloca --# elif defined __BUILTIN_VA_ARG_INCR --# include /* INFRINGES ON USER NAME SPACE */ --# elif defined _AIX --# define YYSTACK_ALLOC __alloca --# elif defined _MSC_VER --# include /* INFRINGES ON USER NAME SPACE */ --# define alloca _alloca --# else --# define YYSTACK_ALLOC alloca --# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS --# include /* INFRINGES ON USER NAME SPACE */ -- /* Use EXIT_SUCCESS as a witness for stdlib.h. */ --# ifndef EXIT_SUCCESS --# define EXIT_SUCCESS 0 --# endif --# endif --# endif --# endif --# endif -- --# ifdef YYSTACK_ALLOC -- /* Pacify GCC's 'empty if-body' warning. */ --# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) --# ifndef YYSTACK_ALLOC_MAXIMUM -- /* The OS might guarantee only one guard page at the bottom of the stack, -- and a page size can be as small as 4096 bytes. So we cannot safely -- invoke alloca (N) if N exceeds 4096. Use a slightly smaller number -- to allow for a few compiler-allocated temporary stack slots. */ --# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ --# endif --# else --# define YYSTACK_ALLOC YYMALLOC --# define YYSTACK_FREE YYFREE --# ifndef YYSTACK_ALLOC_MAXIMUM --# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM --# endif --# if (defined __cplusplus && ! defined EXIT_SUCCESS \ -- && ! ((defined YYMALLOC || defined malloc) \ -- && (defined YYFREE || defined free))) --# include /* INFRINGES ON USER NAME SPACE */ --# ifndef EXIT_SUCCESS --# define EXIT_SUCCESS 0 --# endif --# endif --# ifndef YYMALLOC --# define YYMALLOC malloc --# if ! defined malloc && ! defined EXIT_SUCCESS --void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ --# endif --# endif --# ifndef YYFREE --# define YYFREE free --# if ! defined free && ! defined EXIT_SUCCESS --void free (void *); /* INFRINGES ON USER NAME SPACE */ --# endif --# endif --# endif --#endif /* ! defined yyoverflow || YYERROR_VERBOSE */ -- -- --#if (! defined yyoverflow \ -- && (! defined __cplusplus \ -- || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) -- --/* A type that is properly aligned for any stack member. */ --union yyalloc --{ -- yytype_int16 yyss_alloc; -- YYSTYPE yyvs_alloc; --}; -- --/* The size of the maximum gap between one aligned stack and the next. */ --# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) -- --/* The size of an array large to enough to hold all stacks, each with -- N elements. */ --# define YYSTACK_BYTES(N) \ -- ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ -- + YYSTACK_GAP_MAXIMUM) -- --# define YYCOPY_NEEDED 1 -- --/* Relocate STACK from its old location to the new one. The -- local variables YYSIZE and YYSTACKSIZE give the old and new number of -- elements in the stack, and YYPTR gives the new location of the -- stack. Advance YYPTR to a properly aligned location for the next -- stack. */ --# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ -- do \ -- { \ -- YYSIZE_T yynewbytes; \ -- YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ -- Stack = &yyptr->Stack_alloc; \ -- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ -- yyptr += yynewbytes / sizeof (*yyptr); \ -- } \ -- while (0) -- --#endif -- --#if defined YYCOPY_NEEDED && YYCOPY_NEEDED --/* Copy COUNT objects from SRC to DST. The source and destination do -- not overlap. */ --# ifndef YYCOPY --# if defined __GNUC__ && 1 < __GNUC__ --# define YYCOPY(Dst, Src, Count) \ -- __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) --# else --# define YYCOPY(Dst, Src, Count) \ -- do \ -- { \ -- YYSIZE_T yyi; \ -- for (yyi = 0; yyi < (Count); yyi++) \ -- (Dst)[yyi] = (Src)[yyi]; \ -- } \ -- while (0) --# endif --# endif --#endif /* !YYCOPY_NEEDED */ -- --/* YYFINAL -- State number of the termination state. */ --#define YYFINAL 72 --/* YYLAST -- Last index in YYTABLE. */ --#define YYLAST 379 -- --/* YYNTOKENS -- Number of terminals. */ --#define YYNTOKENS 66 --/* YYNNTS -- Number of nonterminals. */ --#define YYNNTS 18 --/* YYNRULES -- Number of rules. */ --#define YYNRULES 75 --/* YYNSTATES -- Number of states. */ --#define YYNSTATES 142 -- --/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned -- by yylex, with out-of-bounds checking. */ --#define YYUNDEFTOK 2 --#define YYMAXUTOK 315 -- --#define YYTRANSLATE(YYX) \ -- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) -- --/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM -- as returned by yylex, without out-of-bounds checking. */ --static const yytype_uint8 yytranslate[] = --{ -- 0, 2, 2, 2, 2, 2, 2, 2, 2, 63, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 61, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 64, 2, 65, 62, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, -- 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, -- 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, -- 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, -- 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -- 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, -- 55, 56, 57, 58, 59, 60 --}; -- --#if YYDEBUG -- /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ --static const yytype_uint16 yyrline[] = --{ -- 0, 121, 121, 123, 128, 130, 141, 143, 145, 150, -- 152, 154, 156, 158, 163, 165, 167, 169, 174, 176, -- 181, 183, 185, 190, 192, 194, 196, 198, 200, 202, -- 204, 206, 208, 210, 212, 214, 216, 218, 220, 222, -- 224, 226, 228, 230, 232, 234, 236, 238, 240, 242, -- 244, 246, 248, 250, 252, 254, 259, 269, 271, 276, -- 278, 283, 285, 290, 292, 297, 299, 304, 306, 308, -- 310, 314, 316, 321, 323, 325 --}; --#endif -- --#if YYDEBUG || YYERROR_VERBOSE || 0 --/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. -- First, the terminals, then, starting at YYNTOKENS, nonterminals. */ --static const char *const yytname[] = --{ -- "$end", "error", "$undefined", "OVER", "SMALLOVER", "SQRT", "SUB", -- "SUP", "LPILE", "RPILE", "CPILE", "PILE", "LEFT", "RIGHT", "TO", "FROM", -- "SIZE", "FONT", "ROMAN", "BOLD", "ITALIC", "FAT", "ACCENT", "BAR", -- "UNDER", "ABOVE", "TEXT", "QUOTED_TEXT", "FWD", "BACK", "DOWN", "UP", -- "MATRIX", "COL", "LCOL", "RCOL", "CCOL", "MARK", "LINEUP", "TYPE", -- "VCENTER", "PRIME", "SPLIT", "NOSPLIT", "UACCENT", "SPECIAL", "SPACE", -- "GFONT", "GSIZE", "DEFINE", "NDEFINE", "TDEFINE", "SDEFINE", "UNDEF", -- "IFDEF", "INCLUDE", "DELIM", "CHARTYPE", "SET", "GRFONT", "GBFONT", -- "'^'", "'~'", "'\\t'", "'{'", "'}'", "$accept", "top", "equation", -- "mark", "from_to", "sqrt_over", "script", "nonsup", "simple", "number", -- "pile_element_list", "pile_arg", "column_list", "column_element_list", -- "column_arg", "column", "text", "delim", YY_NULLPTR --}; --#endif -- --# ifdef YYPRINT --/* YYTOKNUM[NUM] -- (External) token number corresponding to the -- (internal) symbol number NUM (which must be that of a token). */ --static const yytype_uint16 yytoknum[] = --{ -- 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, -- 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, -- 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, -- 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, -- 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, -- 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, -- 315, 94, 126, 9, 123, 125 --}; --# endif -- --#define YYPACT_NINF -76 -- --#define yypact_value_is_default(Yystate) \ -- (!!((Yystate) == (-76))) -- --#define YYTABLE_NINF -1 -- --#define yytable_value_is_error(Yytable_value) \ -- 0 -- -- /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing -- STATE-NUM. */ --static const yytype_int16 yypact[] = --{ -- 230, 269, 6, 6, 6, 6, 2, 14, 14, 308, -- 308, 308, 308, -76, -76, 14, 14, 14, 14, -50, -- 230, 230, 14, 308, 4, 23, 14, -76, -76, -76, -- 230, 24, 230, -76, -76, 70, -76, -76, 20, -76, -- -76, -76, 230, -44, -76, -76, -76, -76, -76, -76, -- -76, -76, 230, 308, 308, 57, 57, 57, 57, 308, -- 308, 308, 308, 3, -76, -76, 308, 57, -76, -76, -- 308, 130, -76, -76, 269, 269, 269, 269, 308, 308, -- 308, -76, -76, -76, 308, 230, -12, 230, 191, 57, -- 57, 57, 57, 57, 57, 8, 8, 8, 8, 12, -- -76, 57, 57, -76, -76, -76, -76, 79, -76, 335, -- -76, -76, -76, 230, -76, -6, 2, 230, 28, -76, -- -76, -76, -76, -76, -76, 269, 269, 308, 230, -76, -- -76, 230, -3, 230, -76, -76, -76, 230, -76, -2, -- 230, -76 --}; -- -- /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. -- Performed when YYTABLE does not specify something else to do. Zero -- means the default is an error. */ --static const yytype_uint8 yydefact[] = --{ -- 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 23, 24, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 27, 28, 29, -- 0, 0, 3, 4, 6, 9, 14, 18, 20, 15, -- 71, 72, 0, 0, 32, 56, 33, 34, 31, 74, -- 75, 73, 0, 0, 0, 43, 44, 45, 46, 0, -- 0, 0, 0, 0, 7, 8, 0, 54, 25, 26, -- 0, 0, 1, 5, 0, 0, 0, 0, 0, 0, -- 0, 38, 39, 40, 0, 57, 0, 0, 37, 48, -- 47, 49, 50, 52, 51, 0, 0, 0, 0, 0, -- 61, 53, 55, 30, 16, 17, 10, 11, 21, 20, -- 19, 41, 42, 0, 59, 0, 0, 0, 0, 67, -- 68, 69, 70, 35, 62, 0, 0, 0, 58, 60, -- 36, 63, 0, 0, 12, 13, 22, 0, 65, 0, -- 64, 66 --}; -- -- /* YYPGOTO[NTERM-NUM]. */ --static const yytype_int8 yypgoto[] = --{ -- -76, -76, 0, -17, -75, 1, -67, -13, 46, -7, -- 9, 13, -76, -47, 22, -4, -1, -29 --}; -- -- /* YYDEFGOTO[NTERM-NUM]. */ --static const yytype_int16 yydefgoto[] = --{ -- -1, 31, 85, 33, 34, 35, 36, 37, 38, 43, -- 86, 44, 99, 132, 119, 100, 45, 52 --}; -- -- /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If -- positive, shift that token. If negative, reduce the rule whose -- number is the opposite. If YYTABLE_NINF, syntax error. */ --static const yytype_uint8 yytable[] = --{ -- 32, 106, 39, 64, 65, 51, 53, 54, 59, 60, -- 61, 62, 110, 113, 63, 73, 46, 47, 48, 113, -- 87, 66, 137, 137, 72, 70, 78, 79, 40, 41, -- 71, 68, 40, 41, 40, 41, 95, 96, 97, 98, -- 40, 41, 80, 81, 82, 95, 96, 97, 98, 69, -- 134, 135, 88, 114, 73, 55, 56, 57, 58, 129, -- 136, 83, 138, 141, 84, 108, 49, 50, 73, 67, -- 42, 73, 117, 74, 75, 104, 105, 123, 107, 80, -- 81, 82, 74, 75, 76, 77, 139, 130, 118, 118, -- 118, 118, 133, 125, 126, 124, 115, 0, 83, 89, -- 90, 84, 0, 0, 0, 91, 92, 93, 94, 0, -- 0, 73, 101, 128, 73, 51, 102, 131, 120, 121, -- 122, 0, 0, 73, 109, 0, 111, 0, 0, 0, -- 112, 0, 0, 131, 0, 1, 0, 140, 2, 3, -- 4, 5, 6, 0, 0, 0, 7, 8, 9, 10, -- 11, 12, 0, 0, 0, 0, 13, 14, 15, 16, -- 17, 18, 19, 0, 0, 0, 0, 20, 21, 22, -- 23, 0, 24, 25, 0, 26, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 27, 28, 29, 30, 103, 1, 0, 0, 2, -- 3, 4, 5, 6, 116, 0, 0, 7, 8, 9, -- 10, 11, 12, 0, 0, 0, 0, 13, 14, 15, -- 16, 17, 18, 19, 0, 0, 0, 0, 20, 21, -- 22, 23, 0, 24, 25, 1, 26, 0, 2, 3, -- 4, 5, 6, 0, 0, 0, 7, 8, 9, 10, -- 11, 12, 27, 28, 29, 30, 13, 14, 15, 16, -- 17, 18, 19, 0, 0, 0, 0, 20, 21, 22, -- 23, 0, 24, 25, 1, 26, 0, 2, 3, 4, -- 5, 6, 0, 0, 0, 7, 8, 9, 10, 11, -- 12, 27, 28, 29, 30, 13, 14, 15, 16, 17, -- 18, 19, 0, 0, 0, 0, 0, 0, 22, 23, -- 0, 24, 25, 0, 26, 0, 2, 3, 4, 5, -- 6, 0, 0, 0, 7, 8, 9, 10, 11, 12, -- 27, 28, 29, 30, 13, 14, 15, 16, 17, 18, -- 19, 78, 127, 0, 0, 0, 0, 22, 23, 0, -- 24, 25, 0, 26, 0, 0, 0, 80, 81, 82, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 27, -- 28, 29, 30, 0, 0, 0, 83, 0, 0, 84 --}; -- --static const yytype_int16 yycheck[] = --{ -- 0, 76, 1, 20, 21, 6, 7, 8, 15, 16, -- 17, 18, 79, 25, 64, 32, 3, 4, 5, 25, -- 64, 22, 25, 25, 0, 26, 6, 7, 26, 27, -- 30, 27, 26, 27, 26, 27, 33, 34, 35, 36, -- 26, 27, 22, 23, 24, 33, 34, 35, 36, 26, -- 125, 126, 52, 65, 71, 9, 10, 11, 12, 65, -- 127, 41, 65, 65, 44, 78, 64, 65, 85, 23, -- 64, 88, 64, 3, 4, 74, 75, 65, 77, 22, -- 23, 24, 3, 4, 14, 15, 133, 116, 95, 96, -- 97, 98, 64, 14, 15, 99, 87, -1, 41, 53, -- 54, 44, -1, -1, -1, 59, 60, 61, 62, -1, -- -1, 128, 66, 113, 131, 116, 70, 117, 96, 97, -- 98, -1, -1, 140, 78, -1, 80, -1, -1, -1, -- 84, -1, -1, 133, -1, 5, -1, 137, 8, 9, -- 10, 11, 12, -1, -1, -1, 16, 17, 18, 19, -- 20, 21, -1, -1, -1, -1, 26, 27, 28, 29, -- 30, 31, 32, -1, -1, -1, -1, 37, 38, 39, -- 40, -1, 42, 43, -1, 45, -1, -1, -1, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -- -1, 61, 62, 63, 64, 65, 5, -1, -1, 8, -- 9, 10, 11, 12, 13, -1, -1, 16, 17, 18, -- 19, 20, 21, -1, -1, -1, -1, 26, 27, 28, -- 29, 30, 31, 32, -1, -1, -1, -1, 37, 38, -- 39, 40, -1, 42, 43, 5, 45, -1, 8, 9, -- 10, 11, 12, -1, -1, -1, 16, 17, 18, 19, -- 20, 21, 61, 62, 63, 64, 26, 27, 28, 29, -- 30, 31, 32, -1, -1, -1, -1, 37, 38, 39, -- 40, -1, 42, 43, 5, 45, -1, 8, 9, 10, -- 11, 12, -1, -1, -1, 16, 17, 18, 19, 20, -- 21, 61, 62, 63, 64, 26, 27, 28, 29, 30, -- 31, 32, -1, -1, -1, -1, -1, -1, 39, 40, -- -1, 42, 43, -1, 45, -1, 8, 9, 10, 11, -- 12, -1, -1, -1, 16, 17, 18, 19, 20, 21, -- 61, 62, 63, 64, 26, 27, 28, 29, 30, 31, -- 32, 6, 7, -1, -1, -1, -1, 39, 40, -1, -- 42, 43, -1, 45, -1, -1, -1, 22, 23, 24, -- -1, -1, -1, -1, -1, -1, -1, -1, -1, 61, -- 62, 63, 64, -1, -1, -1, 41, -1, -1, 44 --}; -- -- /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing -- symbol of state STATE-NUM. */ --static const yytype_uint8 yystos[] = --{ -- 0, 5, 8, 9, 10, 11, 12, 16, 17, 18, -- 19, 20, 21, 26, 27, 28, 29, 30, 31, 32, -- 37, 38, 39, 40, 42, 43, 45, 61, 62, 63, -- 64, 67, 68, 69, 70, 71, 72, 73, 74, 71, -- 26, 27, 64, 75, 77, 82, 77, 77, 77, 64, -- 65, 82, 83, 82, 82, 74, 74, 74, 74, 75, -- 75, 75, 75, 64, 69, 69, 82, 74, 27, 26, -- 82, 68, 0, 69, 3, 4, 14, 15, 6, 7, -- 22, 23, 24, 41, 44, 68, 76, 64, 68, 74, -- 74, 74, 74, 74, 74, 33, 34, 35, 36, 78, -- 81, 74, 74, 65, 71, 71, 70, 71, 73, 74, -- 72, 74, 74, 25, 65, 76, 13, 64, 75, 80, -- 80, 80, 80, 65, 81, 14, 15, 7, 68, 65, -- 83, 68, 79, 64, 70, 70, 72, 25, 65, 79, -- 68, 65 --}; -- -- /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ --static const yytype_uint8 yyr1[] = --{ -- 0, 66, 67, 67, 68, 68, 69, 69, 69, 70, -- 70, 70, 70, 70, 71, 71, 71, 71, 72, 72, -- 73, 73, 73, 74, 74, 74, 74, 74, 74, 74, -- 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, -- 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, -- 74, 74, 74, 74, 74, 74, 75, 76, 76, 77, -- 77, 78, 78, 79, 79, 80, 80, 81, 81, 81, -- 81, 82, 82, 83, 83, 83 --}; -- -- /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ --static const yytype_uint8 yyr2[] = --{ -- 0, 2, 0, 1, 1, 2, 1, 2, 2, 1, -- 3, 3, 5, 5, 1, 2, 3, 3, 1, 3, -- 1, 3, 5, 1, 1, 2, 2, 1, 1, 1, -- 3, 2, 2, 2, 2, 4, 5, 3, 2, 2, -- 2, 3, 3, 2, 2, 2, 2, 3, 3, 3, -- 3, 3, 3, 3, 2, 3, 1, 1, 3, 3, -- 4, 1, 2, 1, 3, 3, 4, 2, 2, 2, -- 2, 1, 1, 1, 1, 1 --}; -- -- --#define yyerrok (yyerrstatus = 0) --#define yyclearin (yychar = YYEMPTY) --#define YYEMPTY (-2) --#define YYEOF 0 -- --#define YYACCEPT goto yyacceptlab --#define YYABORT goto yyabortlab --#define YYERROR goto yyerrorlab -- -- --#define YYRECOVERING() (!!yyerrstatus) -- --#define YYBACKUP(Token, Value) \ --do \ -- if (yychar == YYEMPTY) \ -- { \ -- yychar = (Token); \ -- yylval = (Value); \ -- YYPOPSTACK (yylen); \ -- yystate = *yyssp; \ -- goto yybackup; \ -- } \ -- else \ -- { \ -- yyerror (YY_("syntax error: cannot back up")); \ -- YYERROR; \ -- } \ --while (0) -- --/* Error token number */ --#define YYTERROR 1 --#define YYERRCODE 256 -- -- -- --/* Enable debugging if requested. */ --#if YYDEBUG -- --# ifndef YYFPRINTF --# include /* INFRINGES ON USER NAME SPACE */ --# define YYFPRINTF fprintf --# endif -- --# define YYDPRINTF(Args) \ --do { \ -- if (yydebug) \ -- YYFPRINTF Args; \ --} while (0) -- --/* This macro is provided for backward compatibility. */ --#ifndef YY_LOCATION_PRINT --# define YY_LOCATION_PRINT(File, Loc) ((void) 0) --#endif -- -- --# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ --do { \ -- if (yydebug) \ -- { \ -- YYFPRINTF (stderr, "%s ", Title); \ -- yy_symbol_print (stderr, \ -- Type, Value); \ -- YYFPRINTF (stderr, "\n"); \ -- } \ --} while (0) -- -- --/*----------------------------------------. --| Print this symbol's value on YYOUTPUT. | --`----------------------------------------*/ -- --static void --yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) --{ -- FILE *yyo = yyoutput; -- YYUSE (yyo); -- if (!yyvaluep) -- return; --# ifdef YYPRINT -- if (yytype < YYNTOKENS) -- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); --# endif -- YYUSE (yytype); --} -- -- --/*--------------------------------. --| Print this symbol on YYOUTPUT. | --`--------------------------------*/ -- --static void --yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) --{ -- YYFPRINTF (yyoutput, "%s %s (", -- yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); -- -- yy_symbol_value_print (yyoutput, yytype, yyvaluep); -- YYFPRINTF (yyoutput, ")"); --} -- --/*------------------------------------------------------------------. --| yy_stack_print -- Print the state stack from its BOTTOM up to its | --| TOP (included). | --`------------------------------------------------------------------*/ -- --static void --yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) --{ -- YYFPRINTF (stderr, "Stack now"); -- for (; yybottom <= yytop; yybottom++) -- { -- int yybot = *yybottom; -- YYFPRINTF (stderr, " %d", yybot); -- } -- YYFPRINTF (stderr, "\n"); --} -- --# define YY_STACK_PRINT(Bottom, Top) \ --do { \ -- if (yydebug) \ -- yy_stack_print ((Bottom), (Top)); \ --} while (0) -- -- --/*------------------------------------------------. --| Report that the YYRULE is going to be reduced. | --`------------------------------------------------*/ -- --static void --yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule) --{ -- unsigned long int yylno = yyrline[yyrule]; -- int yynrhs = yyr2[yyrule]; -- int yyi; -- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", -- yyrule - 1, yylno); -- /* The symbols being reduced. */ -- for (yyi = 0; yyi < yynrhs; yyi++) -- { -- YYFPRINTF (stderr, " $%d = ", yyi + 1); -- yy_symbol_print (stderr, -- yystos[yyssp[yyi + 1 - yynrhs]], -- &(yyvsp[(yyi + 1) - (yynrhs)]) -- ); -- YYFPRINTF (stderr, "\n"); -- } --} -- --# define YY_REDUCE_PRINT(Rule) \ --do { \ -- if (yydebug) \ -- yy_reduce_print (yyssp, yyvsp, Rule); \ --} while (0) -- --/* Nonzero means print parse trace. It is left uninitialized so that -- multiple parsers can coexist. */ --int yydebug; --#else /* !YYDEBUG */ --# define YYDPRINTF(Args) --# define YY_SYMBOL_PRINT(Title, Type, Value, Location) --# define YY_STACK_PRINT(Bottom, Top) --# define YY_REDUCE_PRINT(Rule) --#endif /* !YYDEBUG */ -- -- --/* YYINITDEPTH -- initial size of the parser's stacks. */ --#ifndef YYINITDEPTH --# define YYINITDEPTH 200 --#endif -- --/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only -- if the built-in stack extension method is used). -- -- Do not make this value too large; the results are undefined if -- YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) -- evaluated with infinite-precision integer arithmetic. */ -- --#ifndef YYMAXDEPTH --# define YYMAXDEPTH 10000 --#endif -- -- --#if YYERROR_VERBOSE -- --# ifndef yystrlen --# if defined __GLIBC__ && defined _STRING_H --# define yystrlen strlen --# else --/* Return the length of YYSTR. */ --static YYSIZE_T --yystrlen (const char *yystr) --{ -- YYSIZE_T yylen; -- for (yylen = 0; yystr[yylen]; yylen++) -- continue; -- return yylen; --} --# endif --# endif -- --# ifndef yystpcpy --# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE --# define yystpcpy stpcpy --# else --/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in -- YYDEST. */ --static char * --yystpcpy (char *yydest, const char *yysrc) --{ -- char *yyd = yydest; -- const char *yys = yysrc; -- -- while ((*yyd++ = *yys++) != '\0') -- continue; -- -- return yyd - 1; --} --# endif --# endif -- --# ifndef yytnamerr --/* Copy to YYRES the contents of YYSTR after stripping away unnecessary -- quotes and backslashes, so that it's suitable for yyerror. The -- heuristic is that double-quoting is unnecessary unless the string -- contains an apostrophe, a comma, or backslash (other than -- backslash-backslash). YYSTR is taken from yytname. If YYRES is -- null, do not copy; instead, return the length of what the result -- would have been. */ --static YYSIZE_T --yytnamerr (char *yyres, const char *yystr) --{ -- if (*yystr == '"') -- { -- YYSIZE_T yyn = 0; -- char const *yyp = yystr; -- -- for (;;) -- switch (*++yyp) -- { -- case '\'': -- case ',': -- goto do_not_strip_quotes; -- -- case '\\': -- if (*++yyp != '\\') -- goto do_not_strip_quotes; -- /* Fall through. */ -- default: -- if (yyres) -- yyres[yyn] = *yyp; -- yyn++; -- break; -- -- case '"': -- if (yyres) -- yyres[yyn] = '\0'; -- return yyn; -- } -- do_not_strip_quotes: ; -- } -- -- if (! yyres) -- return yystrlen (yystr); -- -- return yystpcpy (yyres, yystr) - yyres; --} --# endif -- --/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message -- about the unexpected token YYTOKEN for the state stack whose top is -- YYSSP. -- -- Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is -- not large enough to hold the message. In that case, also set -- *YYMSG_ALLOC to the required number of bytes. Return 2 if the -- required number of bytes is too large to store. */ --static int --yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, -- yytype_int16 *yyssp, int yytoken) --{ -- YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); -- YYSIZE_T yysize = yysize0; -- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; -- /* Internationalized format string. */ -- const char *yyformat = YY_NULLPTR; -- /* Arguments of yyformat. */ -- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; -- /* Number of reported tokens (one for the "unexpected", one per -- "expected"). */ -- int yycount = 0; -- -- /* There are many possibilities here to consider: -- - If this state is a consistent state with a default action, then -- the only way this function was invoked is if the default action -- is an error action. In that case, don't check for expected -- tokens because there are none. -- - The only way there can be no lookahead present (in yychar) is if -- this state is a consistent state with a default action. Thus, -- detecting the absence of a lookahead is sufficient to determine -- that there is no unexpected or expected token to report. In that -- case, just report a simple "syntax error". -- - Don't assume there isn't a lookahead just because this state is a -- consistent state with a default action. There might have been a -- previous inconsistent state, consistent state with a non-default -- action, or user semantic action that manipulated yychar. -- - Of course, the expected token list depends on states to have -- correct lookahead information, and it depends on the parser not -- to perform extra reductions after fetching a lookahead from the -- scanner and before detecting a syntax error. Thus, state merging -- (from LALR or IELR) and default reductions corrupt the expected -- token list. However, the list is correct for canonical LR with -- one exception: it will still contain any token that will not be -- accepted due to an error action in a later state. -- */ -- if (yytoken != YYEMPTY) -- { -- int yyn = yypact[*yyssp]; -- yyarg[yycount++] = yytname[yytoken]; -- if (!yypact_value_is_default (yyn)) -- { -- /* Start YYX at -YYN if negative to avoid negative indexes in -- YYCHECK. In other words, skip the first -YYN actions for -- this state because they are default actions. */ -- int yyxbegin = yyn < 0 ? -yyn : 0; -- /* Stay within bounds of both yycheck and yytname. */ -- int yychecklim = YYLAST - yyn + 1; -- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; -- int yyx; -- -- for (yyx = yyxbegin; yyx < yyxend; ++yyx) -- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR -- && !yytable_value_is_error (yytable[yyx + yyn])) -- { -- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) -- { -- yycount = 1; -- yysize = yysize0; -- break; -- } -- yyarg[yycount++] = yytname[yyx]; -- { -- YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); -- if (! (yysize <= yysize1 -- && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) -- return 2; -- yysize = yysize1; -- } -- } -- } -- } -- -- switch (yycount) -- { --# define YYCASE_(N, S) \ -- case N: \ -- yyformat = S; \ -- break -- YYCASE_(0, YY_("syntax error")); -- YYCASE_(1, YY_("syntax error, unexpected %s")); -- YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); -- YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); -- YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); -- YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); --# undef YYCASE_ -- } -- -- { -- YYSIZE_T yysize1 = yysize + yystrlen (yyformat); -- if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) -- return 2; -- yysize = yysize1; -- } -- -- if (*yymsg_alloc < yysize) -- { -- *yymsg_alloc = 2 * yysize; -- if (! (yysize <= *yymsg_alloc -- && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) -- *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; -- return 1; -- } -- -- /* Avoid sprintf, as that infringes on the user's name space. -- Don't have undefined behavior even if the translation -- produced a string with the wrong number of "%s"s. */ -- { -- char *yyp = *yymsg; -- int yyi = 0; -- while ((*yyp = *yyformat) != '\0') -- if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) -- { -- yyp += yytnamerr (yyp, yyarg[yyi++]); -- yyformat += 2; -- } -- else -- { -- yyp++; -- yyformat++; -- } -- } -- return 0; --} --#endif /* YYERROR_VERBOSE */ -- --/*-----------------------------------------------. --| Release the memory associated to this symbol. | --`-----------------------------------------------*/ -- --static void --yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) --{ -- YYUSE (yyvaluep); -- if (!yymsg) -- yymsg = "Deleting"; -- YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); -- -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- YYUSE (yytype); -- YY_IGNORE_MAYBE_UNINITIALIZED_END --} -- -- -- -- --/* The lookahead symbol. */ --int yychar; -- --/* The semantic value of the lookahead symbol. */ --YYSTYPE yylval; --/* Number of syntax errors so far. */ --int yynerrs; -- -- --/*----------. --| yyparse. | --`----------*/ -- --int --yyparse (void) --{ -- int yystate; -- /* Number of tokens to shift before error messages enabled. */ -- int yyerrstatus; -- -- /* The stacks and their tools: -- 'yyss': related to states. -- 'yyvs': related to semantic values. -- -- Refer to the stacks through separate pointers, to allow yyoverflow -- to reallocate them elsewhere. */ -- -- /* The state stack. */ -- yytype_int16 yyssa[YYINITDEPTH]; -- yytype_int16 *yyss; -- yytype_int16 *yyssp; -- -- /* The semantic value stack. */ -- YYSTYPE yyvsa[YYINITDEPTH]; -- YYSTYPE *yyvs; -- YYSTYPE *yyvsp; -- -- YYSIZE_T yystacksize; -- -- int yyn; -- int yyresult; -- /* Lookahead token as an internal (translated) token number. */ -- int yytoken = 0; -- /* The variables used to return semantic value and location from the -- action routines. */ -- YYSTYPE yyval; -- --#if YYERROR_VERBOSE -- /* Buffer for error messages, and its allocated size. */ -- char yymsgbuf[128]; -- char *yymsg = yymsgbuf; -- YYSIZE_T yymsg_alloc = sizeof yymsgbuf; --#endif -- --#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) -- -- /* The number of symbols on the RHS of the reduced rule. -- Keep to zero when no symbol should be popped. */ -- int yylen = 0; -- -- yyssp = yyss = yyssa; -- yyvsp = yyvs = yyvsa; -- yystacksize = YYINITDEPTH; -- -- YYDPRINTF ((stderr, "Starting parse\n")); -- -- yystate = 0; -- yyerrstatus = 0; -- yynerrs = 0; -- yychar = YYEMPTY; /* Cause a token to be read. */ -- goto yysetstate; -- --/*------------------------------------------------------------. --| yynewstate -- Push a new state, which is found in yystate. | --`------------------------------------------------------------*/ -- yynewstate: -- /* In all cases, when you get here, the value and location stacks -- have just been pushed. So pushing a state here evens the stacks. */ -- yyssp++; -- -- yysetstate: -- *yyssp = yystate; -- -- if (yyss + yystacksize - 1 <= yyssp) -- { -- /* Get the current used size of the three stacks, in elements. */ -- YYSIZE_T yysize = yyssp - yyss + 1; -- --#ifdef yyoverflow -- { -- /* Give user a chance to reallocate the stack. Use copies of -- these so that the &'s don't force the real ones into -- memory. */ -- YYSTYPE *yyvs1 = yyvs; -- yytype_int16 *yyss1 = yyss; -- -- /* Each stack pointer address is followed by the size of the -- data in use in that stack, in bytes. This used to be a -- conditional around just the two extra args, but that might -- be undefined if yyoverflow is a macro. */ -- yyoverflow (YY_("memory exhausted"), -- &yyss1, yysize * sizeof (*yyssp), -- &yyvs1, yysize * sizeof (*yyvsp), -- &yystacksize); -- -- yyss = yyss1; -- yyvs = yyvs1; -- } --#else /* no yyoverflow */ --# ifndef YYSTACK_RELOCATE -- goto yyexhaustedlab; --# else -- /* Extend the stack our own way. */ -- if (YYMAXDEPTH <= yystacksize) -- goto yyexhaustedlab; -- yystacksize *= 2; -- if (YYMAXDEPTH < yystacksize) -- yystacksize = YYMAXDEPTH; -- -- { -- yytype_int16 *yyss1 = yyss; -- union yyalloc *yyptr = -- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); -- if (! yyptr) -- goto yyexhaustedlab; -- YYSTACK_RELOCATE (yyss_alloc, yyss); -- YYSTACK_RELOCATE (yyvs_alloc, yyvs); --# undef YYSTACK_RELOCATE -- if (yyss1 != yyssa) -- YYSTACK_FREE (yyss1); -- } --# endif --#endif /* no yyoverflow */ -- -- yyssp = yyss + yysize - 1; -- yyvsp = yyvs + yysize - 1; -- -- YYDPRINTF ((stderr, "Stack size increased to %lu\n", -- (unsigned long int) yystacksize)); -- -- if (yyss + yystacksize - 1 <= yyssp) -- YYABORT; -- } -- -- YYDPRINTF ((stderr, "Entering state %d\n", yystate)); -- -- if (yystate == YYFINAL) -- YYACCEPT; -- -- goto yybackup; -- --/*-----------. --| yybackup. | --`-----------*/ --yybackup: -- -- /* Do appropriate processing given the current state. Read a -- lookahead token if we need one and don't already have one. */ -- -- /* First try to decide what to do without reference to lookahead token. */ -- yyn = yypact[yystate]; -- if (yypact_value_is_default (yyn)) -- goto yydefault; -- -- /* Not known => get a lookahead token if don't already have one. */ -- -- /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ -- if (yychar == YYEMPTY) -- { -- YYDPRINTF ((stderr, "Reading a token: ")); -- yychar = yylex (); -- } -- -- if (yychar <= YYEOF) -- { -- yychar = yytoken = YYEOF; -- YYDPRINTF ((stderr, "Now at end of input.\n")); -- } -- else -- { -- yytoken = YYTRANSLATE (yychar); -- YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); -- } -- -- /* If the proper action on seeing token YYTOKEN is to reduce or to -- detect an error, take that action. */ -- yyn += yytoken; -- if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) -- goto yydefault; -- yyn = yytable[yyn]; -- if (yyn <= 0) -- { -- if (yytable_value_is_error (yyn)) -- goto yyerrlab; -- yyn = -yyn; -- goto yyreduce; -- } -- -- /* Count tokens shifted since error; after three, turn off error -- status. */ -- if (yyerrstatus) -- yyerrstatus--; -- -- /* Shift the lookahead token. */ -- YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); -- -- /* Discard the shifted token. */ -- yychar = YYEMPTY; -- -- yystate = yyn; -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- *++yyvsp = yylval; -- YY_IGNORE_MAYBE_UNINITIALIZED_END -- -- goto yynewstate; -- -- --/*-----------------------------------------------------------. --| yydefault -- do the default action for the current state. | --`-----------------------------------------------------------*/ --yydefault: -- yyn = yydefact[yystate]; -- if (yyn == 0) -- goto yyerrlab; -- goto yyreduce; -- -- --/*-----------------------------. --| yyreduce -- Do a reduction. | --`-----------------------------*/ --yyreduce: -- /* yyn is the number of a rule to reduce with. */ -- yylen = yyr2[yyn]; -- -- /* If YYLEN is nonzero, implement the default value of the action: -- '$$ = $1'. -- -- Otherwise, the following line sets YYVAL to garbage. -- This behavior is undocumented and Bison -- users should not rely upon it. Assigning to YYVAL -- unconditionally makes the parser a bit smaller, and it avoids a -- GCC warning that YYVAL may be used uninitialized. */ -- yyval = yyvsp[1-yylen]; -- -- -- YY_REDUCE_PRINT (yyn); -- switch (yyn) -- { -- case 3: --#line 124 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].b)->top_level(); non_empty_flag = 1; } --#line 1488 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 4: --#line 129 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = (yyvsp[0].b); } --#line 1494 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 5: --#line 131 "eqn.y" /* yacc.c:1646 */ -- { -- list_box *lb = (yyvsp[-1].b)->to_list_box(); -- if (!lb) -- lb = new list_box((yyvsp[-1].b)); -- lb->append((yyvsp[0].b)); -- (yyval.b) = lb; -- } --#line 1506 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 6: --#line 142 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = (yyvsp[0].b); } --#line 1512 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 7: --#line 144 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_mark_box((yyvsp[0].b)); } --#line 1518 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 8: --#line 146 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_lineup_box((yyvsp[0].b)); } --#line 1524 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 9: --#line 151 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = (yyvsp[0].b); } --#line 1530 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 10: --#line 153 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_limit_box((yyvsp[-2].b), 0, (yyvsp[0].b)); } --#line 1536 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 11: --#line 155 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_limit_box((yyvsp[-2].b), (yyvsp[0].b), 0); } --#line 1542 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 12: --#line 157 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_limit_box((yyvsp[-4].b), (yyvsp[-2].b), (yyvsp[0].b)); } --#line 1548 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 13: --#line 159 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_limit_box((yyvsp[-4].b), make_limit_box((yyvsp[-2].b), (yyvsp[0].b), 0), 0); } --#line 1554 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 14: --#line 164 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = (yyvsp[0].b); } --#line 1560 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 15: --#line 166 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_sqrt_box((yyvsp[0].b)); } --#line 1566 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 16: --#line 168 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_over_box((yyvsp[-2].b), (yyvsp[0].b)); } --#line 1572 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 17: --#line 170 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_small_over_box((yyvsp[-2].b), (yyvsp[0].b)); } --#line 1578 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 18: --#line 175 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = (yyvsp[0].b); } --#line 1584 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 19: --#line 177 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_script_box((yyvsp[-2].b), 0, (yyvsp[0].b)); } --#line 1590 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 20: --#line 182 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = (yyvsp[0].b); } --#line 1596 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 21: --#line 184 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_script_box((yyvsp[-2].b), (yyvsp[0].b), 0); } --#line 1602 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 22: --#line 186 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_script_box((yyvsp[-4].b), (yyvsp[-2].b), (yyvsp[0].b)); } --#line 1608 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 23: --#line 191 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = split_text((yyvsp[0].str)); } --#line 1614 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 24: --#line 193 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new quoted_text_box((yyvsp[0].str)); } --#line 1620 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 25: --#line 195 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = split_text((yyvsp[0].str)); } --#line 1626 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 26: --#line 197 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new quoted_text_box((yyvsp[0].str)); } --#line 1632 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 27: --#line 199 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new half_space_box; } --#line 1638 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 28: --#line 201 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new space_box; } --#line 1644 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 29: --#line 203 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new tab_box; } --#line 1650 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 30: --#line 205 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = (yyvsp[-1].b); } --#line 1656 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 31: --#line 207 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].pb)->set_alignment(CENTER_ALIGN); (yyval.b) = (yyvsp[0].pb); } --#line 1662 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 32: --#line 209 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].pb)->set_alignment(LEFT_ALIGN); (yyval.b) = (yyvsp[0].pb); } --#line 1668 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 33: --#line 211 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].pb)->set_alignment(RIGHT_ALIGN); (yyval.b) = (yyvsp[0].pb); } --#line 1674 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 34: --#line 213 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].pb)->set_alignment(CENTER_ALIGN); (yyval.b) = (yyvsp[0].pb); } --#line 1680 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 35: --#line 215 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = (yyvsp[-1].mb); } --#line 1686 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 36: --#line 217 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_delim_box((yyvsp[-3].str), (yyvsp[-2].b), (yyvsp[0].str)); } --#line 1692 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 37: --#line 219 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_delim_box((yyvsp[-1].str), (yyvsp[0].b), 0); } --#line 1698 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 38: --#line 221 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_overline_box((yyvsp[-1].b)); } --#line 1704 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 39: --#line 223 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_underline_box((yyvsp[-1].b)); } --#line 1710 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 40: --#line 225 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_prime_box((yyvsp[-1].b)); } --#line 1716 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 41: --#line 227 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_accent_box((yyvsp[-2].b), (yyvsp[0].b)); } --#line 1722 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 42: --#line 229 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_uaccent_box((yyvsp[-2].b), (yyvsp[0].b)); } --#line 1728 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 43: --#line 231 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new font_box(strsave(get_grfont()), (yyvsp[0].b)); } --#line 1734 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 44: --#line 233 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new font_box(strsave(get_gbfont()), (yyvsp[0].b)); } --#line 1740 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 45: --#line 235 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new font_box(strsave(get_gfont()), (yyvsp[0].b)); } --#line 1746 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 46: --#line 237 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new fat_box((yyvsp[0].b)); } --#line 1752 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 47: --#line 239 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new font_box((yyvsp[-1].str), (yyvsp[0].b)); } --#line 1758 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 48: --#line 241 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new size_box((yyvsp[-1].str), (yyvsp[0].b)); } --#line 1764 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 49: --#line 243 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new hmotion_box((yyvsp[-1].n), (yyvsp[0].b)); } --#line 1770 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 50: --#line 245 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new hmotion_box(-(yyvsp[-1].n), (yyvsp[0].b)); } --#line 1776 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 51: --#line 247 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new vmotion_box((yyvsp[-1].n), (yyvsp[0].b)); } --#line 1782 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 52: --#line 249 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new vmotion_box(-(yyvsp[-1].n), (yyvsp[0].b)); } --#line 1788 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 53: --#line 251 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].b)->set_spacing_type((yyvsp[-1].str)); (yyval.b) = (yyvsp[0].b); } --#line 1794 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 54: --#line 253 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = new vcenter_box((yyvsp[0].b)); } --#line 1800 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 55: --#line 255 "eqn.y" /* yacc.c:1646 */ -- { (yyval.b) = make_special_box((yyvsp[-1].str), (yyvsp[0].b)); } --#line 1806 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 56: --#line 260 "eqn.y" /* yacc.c:1646 */ -- { -- int n; -- if (sscanf((yyvsp[0].str), "%d", &n) == 1) -- (yyval.n) = n; -- a_delete (yyvsp[0].str); -- } --#line 1817 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 57: --#line 270 "eqn.y" /* yacc.c:1646 */ -- { (yyval.pb) = new pile_box((yyvsp[0].b)); } --#line 1823 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 58: --#line 272 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[-2].pb)->append((yyvsp[0].b)); (yyval.pb) = (yyvsp[-2].pb); } --#line 1829 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 59: --#line 277 "eqn.y" /* yacc.c:1646 */ -- { (yyval.pb) = (yyvsp[-1].pb); } --#line 1835 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 60: --#line 279 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[-1].pb)->set_space((yyvsp[-3].n)); (yyval.pb) = (yyvsp[-1].pb); } --#line 1841 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 61: --#line 284 "eqn.y" /* yacc.c:1646 */ -- { (yyval.mb) = new matrix_box((yyvsp[0].col)); } --#line 1847 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 62: --#line 286 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[-1].mb)->append((yyvsp[0].col)); (yyval.mb) = (yyvsp[-1].mb); } --#line 1853 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 63: --#line 291 "eqn.y" /* yacc.c:1646 */ -- { (yyval.col) = new column((yyvsp[0].b)); } --#line 1859 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 64: --#line 293 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[-2].col)->append((yyvsp[0].b)); (yyval.col) = (yyvsp[-2].col); } --#line 1865 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 65: --#line 298 "eqn.y" /* yacc.c:1646 */ -- { (yyval.col) = (yyvsp[-1].col); } --#line 1871 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 66: --#line 300 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[-1].col)->set_space((yyvsp[-3].n)); (yyval.col) = (yyvsp[-1].col); } --#line 1877 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 67: --#line 305 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].col)->set_alignment(CENTER_ALIGN); (yyval.col) = (yyvsp[0].col); } --#line 1883 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 68: --#line 307 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].col)->set_alignment(LEFT_ALIGN); (yyval.col) = (yyvsp[0].col); } --#line 1889 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 69: --#line 309 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].col)->set_alignment(RIGHT_ALIGN); (yyval.col) = (yyvsp[0].col); } --#line 1895 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 70: --#line 311 "eqn.y" /* yacc.c:1646 */ -- { (yyvsp[0].col)->set_alignment(CENTER_ALIGN); (yyval.col) = (yyvsp[0].col); } --#line 1901 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 71: --#line 315 "eqn.y" /* yacc.c:1646 */ -- { (yyval.str) = (yyvsp[0].str); } --#line 1907 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 72: --#line 317 "eqn.y" /* yacc.c:1646 */ -- { (yyval.str) = (yyvsp[0].str); } --#line 1913 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 73: --#line 322 "eqn.y" /* yacc.c:1646 */ -- { (yyval.str) = (yyvsp[0].str); } --#line 1919 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 74: --#line 324 "eqn.y" /* yacc.c:1646 */ -- { (yyval.str) = strsave("{"); } --#line 1925 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- case 75: --#line 326 "eqn.y" /* yacc.c:1646 */ -- { (yyval.str) = strsave("}"); } --#line 1931 "eqn.cpp" /* yacc.c:1646 */ -- break; -- -- --#line 1935 "eqn.cpp" /* yacc.c:1646 */ -- default: break; -- } -- /* User semantic actions sometimes alter yychar, and that requires -- that yytoken be updated with the new translation. We take the -- approach of translating immediately before every use of yytoken. -- One alternative is translating here after every semantic action, -- but that translation would be missed if the semantic action invokes -- YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or -- if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an -- incorrect destructor might then be invoked immediately. In the -- case of YYERROR or YYBACKUP, subsequent parser actions might lead -- to an incorrect destructor call or verbose syntax error message -- before the lookahead is translated. */ -- YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); -- -- YYPOPSTACK (yylen); -- yylen = 0; -- YY_STACK_PRINT (yyss, yyssp); -- -- *++yyvsp = yyval; -- -- /* Now 'shift' the result of the reduction. Determine what state -- that goes to, based on the state we popped back to and the rule -- number reduced by. */ -- -- yyn = yyr1[yyn]; -- -- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; -- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) -- yystate = yytable[yystate]; -- else -- yystate = yydefgoto[yyn - YYNTOKENS]; -- -- goto yynewstate; -- -- --/*--------------------------------------. --| yyerrlab -- here on detecting error. | --`--------------------------------------*/ --yyerrlab: -- /* Make sure we have latest lookahead translation. See comments at -- user semantic actions for why this is necessary. */ -- yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); -- -- /* If not already recovering from an error, report this error. */ -- if (!yyerrstatus) -- { -- ++yynerrs; --#if ! YYERROR_VERBOSE -- yyerror (YY_("syntax error")); --#else --# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ -- yyssp, yytoken) -- { -- char const *yymsgp = YY_("syntax error"); -- int yysyntax_error_status; -- yysyntax_error_status = YYSYNTAX_ERROR; -- if (yysyntax_error_status == 0) -- yymsgp = yymsg; -- else if (yysyntax_error_status == 1) -- { -- if (yymsg != yymsgbuf) -- YYSTACK_FREE (yymsg); -- yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); -- if (!yymsg) -- { -- yymsg = yymsgbuf; -- yymsg_alloc = sizeof yymsgbuf; -- yysyntax_error_status = 2; -- } -- else -- { -- yysyntax_error_status = YYSYNTAX_ERROR; -- yymsgp = yymsg; -- } -- } -- yyerror (yymsgp); -- if (yysyntax_error_status == 2) -- goto yyexhaustedlab; -- } --# undef YYSYNTAX_ERROR --#endif -- } -- -- -- -- if (yyerrstatus == 3) -- { -- /* If just tried and failed to reuse lookahead token after an -- error, discard it. */ -- -- if (yychar <= YYEOF) -- { -- /* Return failure if at end of input. */ -- if (yychar == YYEOF) -- YYABORT; -- } -- else -- { -- yydestruct ("Error: discarding", -- yytoken, &yylval); -- yychar = YYEMPTY; -- } -- } -- -- /* Else will try to reuse lookahead token after shifting the error -- token. */ -- goto yyerrlab1; -- -- --/*---------------------------------------------------. --| yyerrorlab -- error raised explicitly by YYERROR. | --`---------------------------------------------------*/ --yyerrorlab: -- -- /* Pacify compilers like GCC when the user code never invokes -- YYERROR and the label yyerrorlab therefore never appears in user -- code. */ -- if (/*CONSTCOND*/ 0) -- goto yyerrorlab; -- -- /* Do not reclaim the symbols of the rule whose action triggered -- this YYERROR. */ -- YYPOPSTACK (yylen); -- yylen = 0; -- YY_STACK_PRINT (yyss, yyssp); -- yystate = *yyssp; -- goto yyerrlab1; -- -- --/*-------------------------------------------------------------. --| yyerrlab1 -- common code for both syntax error and YYERROR. | --`-------------------------------------------------------------*/ --yyerrlab1: -- yyerrstatus = 3; /* Each real token shifted decrements this. */ -- -- for (;;) -- { -- yyn = yypact[yystate]; -- if (!yypact_value_is_default (yyn)) -- { -- yyn += YYTERROR; -- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) -- { -- yyn = yytable[yyn]; -- if (0 < yyn) -- break; -- } -- } -- -- /* Pop the current state because it cannot handle the error token. */ -- if (yyssp == yyss) -- YYABORT; -- -- -- yydestruct ("Error: popping", -- yystos[yystate], yyvsp); -- YYPOPSTACK (1); -- yystate = *yyssp; -- YY_STACK_PRINT (yyss, yyssp); -- } -- -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- *++yyvsp = yylval; -- YY_IGNORE_MAYBE_UNINITIALIZED_END -- -- -- /* Shift the error token. */ -- YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); -- -- yystate = yyn; -- goto yynewstate; -- -- --/*-------------------------------------. --| yyacceptlab -- YYACCEPT comes here. | --`-------------------------------------*/ --yyacceptlab: -- yyresult = 0; -- goto yyreturn; -- --/*-----------------------------------. --| yyabortlab -- YYABORT comes here. | --`-----------------------------------*/ --yyabortlab: -- yyresult = 1; -- goto yyreturn; -- --#if !defined yyoverflow || YYERROR_VERBOSE --/*-------------------------------------------------. --| yyexhaustedlab -- memory exhaustion comes here. | --`-------------------------------------------------*/ --yyexhaustedlab: -- yyerror (YY_("memory exhausted")); -- yyresult = 2; -- /* Fall through. */ --#endif -- --yyreturn: -- if (yychar != YYEMPTY) -- { -- /* Make sure we have latest lookahead translation. See comments at -- user semantic actions for why this is necessary. */ -- yytoken = YYTRANSLATE (yychar); -- yydestruct ("Cleanup: discarding lookahead", -- yytoken, &yylval); -- } -- /* Do not reclaim the symbols of the rule whose action triggered -- this YYABORT or YYACCEPT. */ -- YYPOPSTACK (yylen); -- YY_STACK_PRINT (yyss, yyssp); -- while (yyssp != yyss) -- { -- yydestruct ("Cleanup: popping", -- yystos[*yyssp], yyvsp); -- YYPOPSTACK (1); -- } --#ifndef yyoverflow -- if (yyss != yyssa) -- YYSTACK_FREE (yyss); --#endif --#if YYERROR_VERBOSE -- if (yymsg != yymsgbuf) -- YYSTACK_FREE (yymsg); --#endif -- return yyresult; --} --#line 329 "eqn.y" /* yacc.c:1906 */ -- -diff --git a/src/preproc/grn/main.cpp b/src/preproc/grn/main.cpp -index 55fc27a..ad270c2 100644 ---- a/src/preproc/grn/main.cpp -+++ b/src/preproc/grn/main.cpp -@@ -369,6 +369,9 @@ main(int argc, - } else - fputs(inputline, stdout); - } -+ -+ if (fp != stdin) -+ fclose(fp); - } - - return 0; -diff --git a/src/preproc/html/pre-html.cpp b/src/preproc/html/pre-html.cpp -index 978721a..c8b1fc6 100644 ---- a/src/preproc/html/pre-html.cpp -+++ b/src/preproc/html/pre-html.cpp -@@ -935,6 +935,8 @@ int imageList::createPage(int pageno) - sys_fatal("make_message"); - html_system(s, 1); - -+ free(s); -+ - s = make_message("echo showpage | " - "%s%s -q -dBATCH -dSAFER " - "-dDEVICEHEIGHTPOINTS=792 " -@@ -1461,6 +1463,8 @@ int char_buffer::run_output_filter(int filter, int argc, char **argv) - int char_buffer::do_html(int argc, char *argv[]) - { - string s; -+ char **new_argv; -+ int ret; - - alterDeviceTo(argc, argv, 0); - argv += troff_arg; // skip all arguments up to groff -@@ -1472,14 +1476,20 @@ int char_buffer::do_html(int argc, char *argv[]) - s += macroset_template; // do not combine these statements, - // otherwise they will not work - s += '\0'; // the trailing `\0' is ignored -- argv = addRegDef(argc, argv, s.contents()); -+ new_argv = addRegDef(argc, argv, s.contents()); -+ free(argv); -+ argv = new_argv; - argc++; - - if (dialect == xhtml) { -- argv = addRegDef(argc, argv, "-rxhtml=1"); -+ new_argv = addRegDef(argc, argv, "-rxhtml=1"); -+ free(argv); -+ argv = new_argv; - argc++; - if (eqn_flag) { -- argv = addRegDef(argc, argv, "-e"); -+ new_argv = addRegDef(argc, argv, "-e"); -+ free(argv); -+ argv = new_argv; - argc++; - } - } -@@ -1494,7 +1504,9 @@ int char_buffer::do_html(int argc, char *argv[]) - } - #endif - -- return run_output_filter(HTML_OUTPUT_FILTER, argc, argv); -+ ret = run_output_filter(HTML_OUTPUT_FILTER, argc, argv); -+ free(argv); -+ return ret; - } - - /* -@@ -1504,6 +1516,8 @@ int char_buffer::do_html(int argc, char *argv[]) - int char_buffer::do_image(int argc, char *argv[]) - { - string s; -+ char **new_argv; -+ int ret; - - alterDeviceTo(argc, argv, 1); - argv += troff_arg; // skip all arguments up to troff/groff -@@ -1514,19 +1528,27 @@ int char_buffer::do_image(int argc, char *argv[]) - s = "-dwww-image-template="; - s += macroset_template; - s += '\0'; -- argv = addRegDef(argc, argv, s.contents()); -+ new_argv = addRegDef(argc, argv, s.contents()); -+ free(argv); -+ argv = new_argv; - argc++; - - // override local settings and produce a page size letter postscript file -- argv = addRegDef(argc, argv, "-P-pletter"); -+ new_argv = addRegDef(argc, argv, "-P-pletter"); -+ free(argv); -+ argv = new_argv; - argc++; - - if (dialect == xhtml) { - if (eqn_flag) { -- argv = addRegDef(argc, argv, "-rxhtml=1"); -+ new_argv = addRegDef(argc, argv, "-rxhtml=1"); -+ free(argv); -+ argv = new_argv; - argc++; - } -- argv = addRegDef(argc, argv, "-e"); -+ new_argv = addRegDef(argc, argv, "-e"); -+ free(argv); -+ argv = new_argv; - argc++; - } - -@@ -1540,7 +1562,9 @@ int char_buffer::do_image(int argc, char *argv[]) - } - #endif - -- return run_output_filter(IMAGE_OUTPUT_FILTER, argc, argv); -+ ret = run_output_filter(IMAGE_OUTPUT_FILTER, argc, argv); -+ free(argv); -+ return ret; - } - - static char_buffer inputFile; -@@ -1686,8 +1710,10 @@ static int scanArguments(int argc, char **argv) - while (i < argc) { - if (strcmp(argv[i], troff_name) == 0) - troff_arg = i; -- else if (argv[i][0] != '-') -+ else if (argv[i][0] != '-') { -+ a_delete troff_name; - return i; -+ } - i++; - } - a_delete troff_name; -diff --git a/src/preproc/pic/pic.cpp b/src/preproc/pic/pic.cpp -deleted file mode 100644 -index 34dada5..0000000 ---- a/src/preproc/pic/pic.cpp -+++ /dev/null -@@ -1,5008 +0,0 @@ --/* A Bison parser, made by GNU Bison 3.0.2. */ -- --/* Bison implementation for Yacc-like parsers in C -- -- Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by -- the Free Software Foundation, either version 3 of the License, or -- (at your option) any later version. -- -- This program is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -- GNU General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program. If not, see . */ -- --/* As a special exception, you may create a larger work that contains -- part or all of the Bison parser skeleton and distribute that work -- under terms of your choice, so long as that work isn't itself a -- parser generator using the skeleton or a modified version thereof -- as a parser skeleton. Alternatively, if you modify or redistribute -- the parser skeleton itself, you may (at your option) remove this -- special exception, which will cause the skeleton and the resulting -- Bison output files to be licensed under the GNU General Public -- License without this special exception. -- -- This special exception was added by the Free Software Foundation in -- version 2.2 of Bison. */ -- --/* C LALR(1) parser skeleton written by Richard Stallman, by -- simplifying the original so-called "semantic" parser. */ -- --/* All symbols defined below should begin with yy or YY, to avoid -- infringing on user name space. This should be done even for local -- variables, as they might otherwise be expanded by user macros. -- There are some unavoidable exceptions within include files to -- define necessary library symbols; they are noted "INFRINGES ON -- USER NAME SPACE" below. */ -- --/* Identify Bison output. */ --#define YYBISON 1 -- --/* Bison version. */ --#define YYBISON_VERSION "3.0.2" -- --/* Skeleton name. */ --#define YYSKELETON_NAME "yacc.c" -- --/* Pure parsers. */ --#define YYPURE 0 -- --/* Push parsers. */ --#define YYPUSH 0 -- --/* Pull parsers. */ --#define YYPULL 1 -- -- -- -- --/* Copy the first part of user declarations. */ --#line 19 "pic.y" /* yacc.c:339 */ -- --#include "pic.h" --#include "ptable.h" --#include "object.h" -- --extern int delim_flag; --extern void copy_rest_thru(const char *, const char *); --extern void copy_file_thru(const char *, const char *, const char *); --extern void push_body(const char *); --extern void do_for(char *var, double from, double to, -- int by_is_multiplicative, double by, char *body); --extern void do_lookahead(); -- --/* Maximum number of characters produced by printf("%g") */ --#define GDIGITS 14 -- --int yylex(); --void yyerror(const char *); -- --void reset(const char *nm); --void reset_all(); -- --place *lookup_label(const char *); --void define_label(const char *label, const place *pl); -- --direction current_direction; --position current_position; -- --implement_ptable(place) -- --PTABLE(place) top_table; -- --PTABLE(place) *current_table = &top_table; --saved_state *current_saved_state = 0; -- --object_list olist; -- --const char *ordinal_postfix(int n); --const char *object_type_name(object_type type); --char *format_number(const char *form, double n); --char *do_sprintf(const char *form, const double *v, int nv); -- -- --#line 110 "pic.cpp" /* yacc.c:339 */ -- --# ifndef YY_NULLPTR --# if defined __cplusplus && 201103L <= __cplusplus --# define YY_NULLPTR nullptr --# else --# define YY_NULLPTR 0 --# endif --# endif -- --/* Enabling verbose error messages. */ --#ifdef YYERROR_VERBOSE --# undef YYERROR_VERBOSE --# define YYERROR_VERBOSE 1 --#else --# define YYERROR_VERBOSE 0 --#endif -- --/* In a future release of Bison, this section will be replaced -- by #include "y.tab.h". */ --#ifndef YY_YY_Y_TAB_H_INCLUDED --# define YY_YY_Y_TAB_H_INCLUDED --/* Debug traces. */ --#ifndef YYDEBUG --# define YYDEBUG 0 --#endif --#if YYDEBUG --extern int yydebug; --#endif -- --/* Token type. */ --#ifndef YYTOKENTYPE --# define YYTOKENTYPE -- enum yytokentype -- { -- LABEL = 258, -- VARIABLE = 259, -- NUMBER = 260, -- TEXT = 261, -- COMMAND_LINE = 262, -- DELIMITED = 263, -- ORDINAL = 264, -- TH = 265, -- LEFT_ARROW_HEAD = 266, -- RIGHT_ARROW_HEAD = 267, -- DOUBLE_ARROW_HEAD = 268, -- LAST = 269, -- BOX = 270, -- CIRCLE = 271, -- ELLIPSE = 272, -- ARC = 273, -- LINE = 274, -- ARROW = 275, -- MOVE = 276, -- SPLINE = 277, -- HEIGHT = 278, -- RADIUS = 279, -- FIGNAME = 280, -- WIDTH = 281, -- DIAMETER = 282, -- UP = 283, -- DOWN = 284, -- RIGHT = 285, -- LEFT = 286, -- FROM = 287, -- TO = 288, -- AT = 289, -- WITH = 290, -- BY = 291, -- THEN = 292, -- SOLID = 293, -- DOTTED = 294, -- DASHED = 295, -- CHOP = 296, -- SAME = 297, -- INVISIBLE = 298, -- LJUST = 299, -- RJUST = 300, -- ABOVE = 301, -- BELOW = 302, -- OF = 303, -- THE = 304, -- WAY = 305, -- BETWEEN = 306, -- AND = 307, -- HERE = 308, -- DOT_N = 309, -- DOT_E = 310, -- DOT_W = 311, -- DOT_S = 312, -- DOT_NE = 313, -- DOT_SE = 314, -- DOT_NW = 315, -- DOT_SW = 316, -- DOT_C = 317, -- DOT_START = 318, -- DOT_END = 319, -- DOT_X = 320, -- DOT_Y = 321, -- DOT_HT = 322, -- DOT_WID = 323, -- DOT_RAD = 324, -- SIN = 325, -- COS = 326, -- ATAN2 = 327, -- LOG = 328, -- EXP = 329, -- SQRT = 330, -- K_MAX = 331, -- K_MIN = 332, -- INT = 333, -- RAND = 334, -- SRAND = 335, -- COPY = 336, -- THRU = 337, -- TOP = 338, -- BOTTOM = 339, -- UPPER = 340, -- LOWER = 341, -- SH = 342, -- PRINT = 343, -- CW = 344, -- CCW = 345, -- FOR = 346, -- DO = 347, -- IF = 348, -- ELSE = 349, -- ANDAND = 350, -- OROR = 351, -- NOTEQUAL = 352, -- EQUALEQUAL = 353, -- LESSEQUAL = 354, -- GREATEREQUAL = 355, -- LEFT_CORNER = 356, -- RIGHT_CORNER = 357, -- NORTH = 358, -- SOUTH = 359, -- EAST = 360, -- WEST = 361, -- CENTER = 362, -- END = 363, -- START = 364, -- RESET = 365, -- UNTIL = 366, -- PLOT = 367, -- THICKNESS = 368, -- FILL = 369, -- COLORED = 370, -- OUTLINED = 371, -- SHADED = 372, -- XSLANTED = 373, -- YSLANTED = 374, -- ALIGNED = 375, -- SPRINTF = 376, -- COMMAND = 377, -- DEFINE = 378, -- UNDEF = 379 -- }; --#endif --/* Tokens. */ --#define LABEL 258 --#define VARIABLE 259 --#define NUMBER 260 --#define TEXT 261 --#define COMMAND_LINE 262 --#define DELIMITED 263 --#define ORDINAL 264 --#define TH 265 --#define LEFT_ARROW_HEAD 266 --#define RIGHT_ARROW_HEAD 267 --#define DOUBLE_ARROW_HEAD 268 --#define LAST 269 --#define BOX 270 --#define CIRCLE 271 --#define ELLIPSE 272 --#define ARC 273 --#define LINE 274 --#define ARROW 275 --#define MOVE 276 --#define SPLINE 277 --#define HEIGHT 278 --#define RADIUS 279 --#define FIGNAME 280 --#define WIDTH 281 --#define DIAMETER 282 --#define UP 283 --#define DOWN 284 --#define RIGHT 285 --#define LEFT 286 --#define FROM 287 --#define TO 288 --#define AT 289 --#define WITH 290 --#define BY 291 --#define THEN 292 --#define SOLID 293 --#define DOTTED 294 --#define DASHED 295 --#define CHOP 296 --#define SAME 297 --#define INVISIBLE 298 --#define LJUST 299 --#define RJUST 300 --#define ABOVE 301 --#define BELOW 302 --#define OF 303 --#define THE 304 --#define WAY 305 --#define BETWEEN 306 --#define AND 307 --#define HERE 308 --#define DOT_N 309 --#define DOT_E 310 --#define DOT_W 311 --#define DOT_S 312 --#define DOT_NE 313 --#define DOT_SE 314 --#define DOT_NW 315 --#define DOT_SW 316 --#define DOT_C 317 --#define DOT_START 318 --#define DOT_END 319 --#define DOT_X 320 --#define DOT_Y 321 --#define DOT_HT 322 --#define DOT_WID 323 --#define DOT_RAD 324 --#define SIN 325 --#define COS 326 --#define ATAN2 327 --#define LOG 328 --#define EXP 329 --#define SQRT 330 --#define K_MAX 331 --#define K_MIN 332 --#define INT 333 --#define RAND 334 --#define SRAND 335 --#define COPY 336 --#define THRU 337 --#define TOP 338 --#define BOTTOM 339 --#define UPPER 340 --#define LOWER 341 --#define SH 342 --#define PRINT 343 --#define CW 344 --#define CCW 345 --#define FOR 346 --#define DO 347 --#define IF 348 --#define ELSE 349 --#define ANDAND 350 --#define OROR 351 --#define NOTEQUAL 352 --#define EQUALEQUAL 353 --#define LESSEQUAL 354 --#define GREATEREQUAL 355 --#define LEFT_CORNER 356 --#define RIGHT_CORNER 357 --#define NORTH 358 --#define SOUTH 359 --#define EAST 360 --#define WEST 361 --#define CENTER 362 --#define END 363 --#define START 364 --#define RESET 365 --#define UNTIL 366 --#define PLOT 367 --#define THICKNESS 368 --#define FILL 369 --#define COLORED 370 --#define OUTLINED 371 --#define SHADED 372 --#define XSLANTED 373 --#define YSLANTED 374 --#define ALIGNED 375 --#define SPRINTF 376 --#define COMMAND 377 --#define DEFINE 378 --#define UNDEF 379 -- --/* Value type. */ --#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED --typedef union YYSTYPE YYSTYPE; --union YYSTYPE --{ --#line 65 "pic.y" /* yacc.c:355 */ -- -- char *str; -- int n; -- double x; -- struct { double x, y; } pair; -- struct { double x; char *body; } if_data; -- struct { char *str; const char *filename; int lineno; } lstr; -- struct { double *v; int nv; int maxv; } dv; -- struct { double val; int is_multiplicative; } by; -- place pl; -- object *obj; -- corner crn; -- path *pth; -- object_spec *spec; -- saved_state *pstate; -- graphics_state state; -- object_type obtype; -- --#line 417 "pic.cpp" /* yacc.c:355 */ --}; --# define YYSTYPE_IS_TRIVIAL 1 --# define YYSTYPE_IS_DECLARED 1 --#endif -- -- --extern YYSTYPE yylval; -- --int yyparse (void); -- --#endif /* !YY_YY_Y_TAB_H_INCLUDED */ -- --/* Copy the second part of user declarations. */ -- --#line 432 "pic.cpp" /* yacc.c:358 */ -- --#ifdef short --# undef short --#endif -- --#ifdef YYTYPE_UINT8 --typedef YYTYPE_UINT8 yytype_uint8; --#else --typedef unsigned char yytype_uint8; --#endif -- --#ifdef YYTYPE_INT8 --typedef YYTYPE_INT8 yytype_int8; --#else --typedef signed char yytype_int8; --#endif -- --#ifdef YYTYPE_UINT16 --typedef YYTYPE_UINT16 yytype_uint16; --#else --typedef unsigned short int yytype_uint16; --#endif -- --#ifdef YYTYPE_INT16 --typedef YYTYPE_INT16 yytype_int16; --#else --typedef short int yytype_int16; --#endif -- --#ifndef YYSIZE_T --# ifdef __SIZE_TYPE__ --# define YYSIZE_T __SIZE_TYPE__ --# elif defined size_t --# define YYSIZE_T size_t --# elif ! defined YYSIZE_T --# include /* INFRINGES ON USER NAME SPACE */ --# define YYSIZE_T size_t --# else --# define YYSIZE_T unsigned int --# endif --#endif -- --#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) -- --#ifndef YY_ --# if defined YYENABLE_NLS && YYENABLE_NLS --# if ENABLE_NLS --# include /* INFRINGES ON USER NAME SPACE */ --# define YY_(Msgid) dgettext ("bison-runtime", Msgid) --# endif --# endif --# ifndef YY_ --# define YY_(Msgid) Msgid --# endif --#endif -- --#ifndef YY_ATTRIBUTE --# if (defined __GNUC__ \ -- && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ -- || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C --# define YY_ATTRIBUTE(Spec) __attribute__(Spec) --# else --# define YY_ATTRIBUTE(Spec) /* empty */ --# endif --#endif -- --#ifndef YY_ATTRIBUTE_PURE --# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) --#endif -- --#ifndef YY_ATTRIBUTE_UNUSED --# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) --#endif -- --#if !defined _Noreturn \ -- && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112) --# if defined _MSC_VER && 1200 <= _MSC_VER --# define _Noreturn __declspec (noreturn) --# else --# define _Noreturn YY_ATTRIBUTE ((__noreturn__)) --# endif --#endif -- --/* Suppress unused-variable warnings by "using" E. */ --#if ! defined lint || defined __GNUC__ --# define YYUSE(E) ((void) (E)) --#else --# define YYUSE(E) /* empty */ --#endif -- --#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ --/* Suppress an incorrect diagnostic about yylval being uninitialized. */ --# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ -- _Pragma ("GCC diagnostic push") \ -- _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ -- _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") --# define YY_IGNORE_MAYBE_UNINITIALIZED_END \ -- _Pragma ("GCC diagnostic pop") --#else --# define YY_INITIAL_VALUE(Value) Value --#endif --#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN --# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN --# define YY_IGNORE_MAYBE_UNINITIALIZED_END --#endif --#ifndef YY_INITIAL_VALUE --# define YY_INITIAL_VALUE(Value) /* Nothing. */ --#endif -- -- --#if ! defined yyoverflow || YYERROR_VERBOSE -- --/* The parser invokes alloca or malloc; define the necessary symbols. */ -- --# ifdef YYSTACK_USE_ALLOCA --# if YYSTACK_USE_ALLOCA --# ifdef __GNUC__ --# define YYSTACK_ALLOC __builtin_alloca --# elif defined __BUILTIN_VA_ARG_INCR --# include /* INFRINGES ON USER NAME SPACE */ --# elif defined _AIX --# define YYSTACK_ALLOC __alloca --# elif defined _MSC_VER --# include /* INFRINGES ON USER NAME SPACE */ --# define alloca _alloca --# else --# define YYSTACK_ALLOC alloca --# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS --# include /* INFRINGES ON USER NAME SPACE */ -- /* Use EXIT_SUCCESS as a witness for stdlib.h. */ --# ifndef EXIT_SUCCESS --# define EXIT_SUCCESS 0 --# endif --# endif --# endif --# endif --# endif -- --# ifdef YYSTACK_ALLOC -- /* Pacify GCC's 'empty if-body' warning. */ --# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) --# ifndef YYSTACK_ALLOC_MAXIMUM -- /* The OS might guarantee only one guard page at the bottom of the stack, -- and a page size can be as small as 4096 bytes. So we cannot safely -- invoke alloca (N) if N exceeds 4096. Use a slightly smaller number -- to allow for a few compiler-allocated temporary stack slots. */ --# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ --# endif --# else --# define YYSTACK_ALLOC YYMALLOC --# define YYSTACK_FREE YYFREE --# ifndef YYSTACK_ALLOC_MAXIMUM --# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM --# endif --# if (defined __cplusplus && ! defined EXIT_SUCCESS \ -- && ! ((defined YYMALLOC || defined malloc) \ -- && (defined YYFREE || defined free))) --# include /* INFRINGES ON USER NAME SPACE */ --# ifndef EXIT_SUCCESS --# define EXIT_SUCCESS 0 --# endif --# endif --# ifndef YYMALLOC --# define YYMALLOC malloc --# if ! defined malloc && ! defined EXIT_SUCCESS --void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ --# endif --# endif --# ifndef YYFREE --# define YYFREE free --# if ! defined free && ! defined EXIT_SUCCESS --void free (void *); /* INFRINGES ON USER NAME SPACE */ --# endif --# endif --# endif --#endif /* ! defined yyoverflow || YYERROR_VERBOSE */ -- -- --#if (! defined yyoverflow \ -- && (! defined __cplusplus \ -- || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) -- --/* A type that is properly aligned for any stack member. */ --union yyalloc --{ -- yytype_int16 yyss_alloc; -- YYSTYPE yyvs_alloc; --}; -- --/* The size of the maximum gap between one aligned stack and the next. */ --# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) -- --/* The size of an array large to enough to hold all stacks, each with -- N elements. */ --# define YYSTACK_BYTES(N) \ -- ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ -- + YYSTACK_GAP_MAXIMUM) -- --# define YYCOPY_NEEDED 1 -- --/* Relocate STACK from its old location to the new one. The -- local variables YYSIZE and YYSTACKSIZE give the old and new number of -- elements in the stack, and YYPTR gives the new location of the -- stack. Advance YYPTR to a properly aligned location for the next -- stack. */ --# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ -- do \ -- { \ -- YYSIZE_T yynewbytes; \ -- YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ -- Stack = &yyptr->Stack_alloc; \ -- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ -- yyptr += yynewbytes / sizeof (*yyptr); \ -- } \ -- while (0) -- --#endif -- --#if defined YYCOPY_NEEDED && YYCOPY_NEEDED --/* Copy COUNT objects from SRC to DST. The source and destination do -- not overlap. */ --# ifndef YYCOPY --# if defined __GNUC__ && 1 < __GNUC__ --# define YYCOPY(Dst, Src, Count) \ -- __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) --# else --# define YYCOPY(Dst, Src, Count) \ -- do \ -- { \ -- YYSIZE_T yyi; \ -- for (yyi = 0; yyi < (Count); yyi++) \ -- (Dst)[yyi] = (Src)[yyi]; \ -- } \ -- while (0) --# endif --# endif --#endif /* !YYCOPY_NEEDED */ -- --/* YYFINAL -- State number of the termination state. */ --#define YYFINAL 6 --/* YYLAST -- Last index in YYTABLE. */ --#define YYLAST 2438 -- --/* YYNTOKENS -- Number of terminals. */ --#define YYNTOKENS 146 --/* YYNNTS -- Number of nonterminals. */ --#define YYNNTS 49 --/* YYNRULES -- Number of rules. */ --#define YYNRULES 260 --/* YYNSTATES -- Number of states. */ --#define YYNSTATES 454 -- --/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned -- by yylex, with out-of-bounds checking. */ --#define YYUNDEFTOK 2 --#define YYMAXUTOK 379 -- --#define YYTRANSLATE(YYX) \ -- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) -- --/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM -- as returned by yylex, without out-of-bounds checking. */ --static const yytype_uint8 yytranslate[] = --{ -- 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 137, 2, 2, 2, 136, 2, 2, -- 126, 145, 134, 132, 129, 133, 125, 135, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 141, 139, -- 130, 140, 131, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 128, 2, 144, 138, 2, 127, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 142, 2, 143, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, -- 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, -- 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, -- 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, -- 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -- 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, -- 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, -- 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, -- 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, -- 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, -- 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, -- 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, -- 115, 116, 117, 118, 119, 120, 121, 122, 123, 124 --}; -- --#if YYDEBUG -- /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ --static const yytype_uint16 yyrline[] = --{ -- 0, 275, 275, 276, 285, 290, 292, 296, 298, 302, -- 303, 307, 315, 320, 332, 334, 336, 338, 340, 345, -- 350, 357, 356, 367, 375, 377, 374, 388, 390, 387, -- 400, 399, 408, 417, 416, 430, 431, 436, 437, 441, -- 446, 451, 459, 461, 480, 487, 489, 500, 499, 511, -- 512, 517, 519, 524, 530, 536, 538, 540, 542, 544, -- 546, 548, 555, 559, 564, 572, 586, 592, 600, 607, -- 613, 606, 622, 632, 633, 638, 640, 642, 644, 649, -- 656, 663, 670, 677, 682, 687, 695, 694, 721, 727, -- 733, 739, 745, 764, 771, 778, 785, 792, 799, 806, -- 813, 820, 827, 842, 854, 860, 869, 876, 901, 905, -- 911, 917, 923, 929, 934, 940, 946, 952, 959, 968, -- 975, 991, 1008, 1013, 1018, 1023, 1028, 1033, 1038, 1043, -- 1051, 1061, 1071, 1081, 1091, 1097, 1105, 1107, 1119, 1124, -- 1154, 1156, 1162, 1171, 1173, 1178, 1183, 1188, 1193, 1198, -- 1203, 1209, 1214, 1222, 1223, 1227, 1232, 1238, 1240, 1246, -- 1252, 1258, 1267, 1277, 1279, 1288, 1290, 1298, 1300, 1305, -- 1320, 1338, 1340, 1342, 1344, 1346, 1348, 1350, 1352, 1354, -- 1359, 1361, 1369, 1373, 1375, 1383, 1385, 1391, 1397, 1403, -- 1409, 1418, 1420, 1422, 1424, 1426, 1428, 1430, 1432, 1434, -- 1436, 1438, 1440, 1442, 1444, 1446, 1448, 1450, 1452, 1454, -- 1456, 1458, 1460, 1462, 1464, 1466, 1468, 1470, 1472, 1474, -- 1476, 1478, 1480, 1485, 1487, 1492, 1497, 1505, 1507, 1514, -- 1521, 1528, 1535, 1542, 1544, 1546, 1548, 1556, 1564, 1577, -- 1579, 1581, 1590, 1599, 1612, 1621, 1630, 1639, 1641, 1643, -- 1645, 1647, 1653, 1658, 1660, 1662, 1664, 1666, 1668, 1670, -- 1672 --}; --#endif -- --#if YYDEBUG || YYERROR_VERBOSE || 0 --/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. -- First, the terminals, then, starting at YYNTOKENS, nonterminals. */ --static const char *const yytname[] = --{ -- "$end", "error", "$undefined", "LABEL", "VARIABLE", "NUMBER", "TEXT", -- "COMMAND_LINE", "DELIMITED", "ORDINAL", "TH", "LEFT_ARROW_HEAD", -- "RIGHT_ARROW_HEAD", "DOUBLE_ARROW_HEAD", "LAST", "BOX", "CIRCLE", -- "ELLIPSE", "ARC", "LINE", "ARROW", "MOVE", "SPLINE", "HEIGHT", "RADIUS", -- "FIGNAME", "WIDTH", "DIAMETER", "UP", "DOWN", "RIGHT", "LEFT", "FROM", -- "TO", "AT", "WITH", "BY", "THEN", "SOLID", "DOTTED", "DASHED", "CHOP", -- "SAME", "INVISIBLE", "LJUST", "RJUST", "ABOVE", "BELOW", "OF", "THE", -- "WAY", "BETWEEN", "AND", "HERE", "DOT_N", "DOT_E", "DOT_W", "DOT_S", -- "DOT_NE", "DOT_SE", "DOT_NW", "DOT_SW", "DOT_C", "DOT_START", "DOT_END", -- "DOT_X", "DOT_Y", "DOT_HT", "DOT_WID", "DOT_RAD", "SIN", "COS", "ATAN2", -- "LOG", "EXP", "SQRT", "K_MAX", "K_MIN", "INT", "RAND", "SRAND", "COPY", -- "THRU", "TOP", "BOTTOM", "UPPER", "LOWER", "SH", "PRINT", "CW", "CCW", -- "FOR", "DO", "IF", "ELSE", "ANDAND", "OROR", "NOTEQUAL", "EQUALEQUAL", -- "LESSEQUAL", "GREATEREQUAL", "LEFT_CORNER", "RIGHT_CORNER", "NORTH", -- "SOUTH", "EAST", "WEST", "CENTER", "END", "START", "RESET", "UNTIL", -- "PLOT", "THICKNESS", "FILL", "COLORED", "OUTLINED", "SHADED", "XSLANTED", -- "YSLANTED", "ALIGNED", "SPRINTF", "COMMAND", "DEFINE", "UNDEF", "'.'", -- "'('", "'`'", "'['", "','", "'<'", "'>'", "'+'", "'-'", "'*'", "'/'", -- "'%'", "'!'", "'^'", "';'", "'='", "':'", "'{'", "'}'", "']'", "')'", -- "$accept", "top", "element_list", "middle_element_list", -- "optional_separator", "separator", "placeless_element", "$@1", "$@2", -- "$@3", "$@4", "$@5", "$@6", "$@7", "macro_name", "reset_variables", -- "print_args", "print_arg", "simple_if", "$@8", "until", "any_expr", -- "text_expr", "optional_by", "element", "@9", "$@10", "optional_element", -- "object_spec", "@11", "text", "sprintf_args", "position", -- "position_not_place", "between", "expr_pair", "place", "label", -- "ordinal", "optional_ordinal_last", "nth_primitive", "object_type", -- "label_path", "relative_path", "path", "corner", "expr", -- "expr_lower_than", "expr_not_lower_than", YY_NULLPTR --}; --#endif -- --# ifdef YYPRINT --/* YYTOKNUM[NUM] -- (External) token number corresponding to the -- (internal) symbol number NUM (which must be that of a token). */ --static const yytype_uint16 yytoknum[] = --{ -- 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, -- 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, -- 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, -- 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, -- 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, -- 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, -- 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, -- 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, -- 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, -- 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, -- 355, 356, 357, 358, 359, 360, 361, 362, 363, 364, -- 365, 366, 367, 368, 369, 370, 371, 372, 373, 374, -- 375, 376, 377, 378, 379, 46, 40, 96, 91, 44, -- 60, 62, 43, 45, 42, 47, 37, 33, 94, 59, -- 61, 58, 123, 125, 93, 41 --}; --# endif -- --#define YYPACT_NINF -240 -- --#define yypact_value_is_default(Yystate) \ -- (!!((Yystate) == (-240))) -- --#define YYTABLE_NINF -206 -- --#define yytable_value_is_error(Yytable_value) \ -- 0 -- -- /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing -- STATE-NUM. */ --static const yytype_int16 yypact[] = --{ -- -114, -240, 20, -240, 757, -107, -240, -98, -123, -240, -- -240, -240, -240, -240, -240, -240, -240, -240, -240, -106, -- -240, -240, -240, -240, 9, -240, 1087, 46, 1172, 49, -- 1597, -70, 1087, -240, -240, -114, -240, 3, -33, -240, -- 877, -240, -240, -114, 1172, -60, 36, -14, -240, 74, -- -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, -- -240, -240, -240, -240, -240, -240, -240, -240, -240, -34, -- -18, 8, 38, 47, 51, 65, 101, 102, 112, 122, -- -240, -240, 21, 150, -240, -240, -240, -240, -240, -240, -- -240, -240, -240, 1257, 1172, 1597, 1597, 1087, -240, -240, -- -43, -240, -240, 357, 2242, 59, 258, -240, 10, 2147, -- -240, 1, 6, 1172, 1172, 145, -1, 2, 357, 2273, -- -240, -240, 220, 249, 1087, -114, -114, -240, 721, -240, -- 252, -240, -240, -240, -240, 1597, 1597, 1597, 1597, 2024, -- 2024, 1853, 1939, 1682, 1682, 1682, 1427, 1767, -240, -240, -- 2024, 2024, 2024, -240, -240, -240, -240, -240, -240, -240, -- -240, 1597, 2024, 23, 23, 23, 1597, 1597, -240, -240, -- 2282, 593, -240, 1172, -240, -240, -240, -240, 250, -240, -- 1172, 1172, 1172, 1172, 1172, 1172, 1172, 1172, 1172, 458, -- 1172, -240, -240, -240, -240, -240, -240, -240, -240, 121, -- 107, 123, 256, 2157, 137, 261, 134, 134, -240, 1767, -- 1767, -240, -240, -240, -240, -240, 276, -240, -240, -240, -- -240, -240, -240, -240, -240, -240, -240, 138, -240, -240, -- 24, 156, 235, -240, 1597, 1597, 1597, 1597, 1597, 1597, -- 1597, 1597, 1597, 1597, 1597, 1597, 1597, 1597, 1597, 1682, -- 1682, 1597, -240, 134, -240, 1172, 1172, 23, 23, 1172, -- 1172, -240, -240, 143, 757, 153, -240, -240, 280, 2282, -- 2282, 2282, 2282, 2282, 2282, 2282, 2282, -43, 2147, -43, -- -43, 2253, 275, 275, 295, 1002, -43, 2081, -240, -240, -- 10, 1342, -240, 694, 2282, 2282, 2282, 2282, 2282, -240, -- -240, -240, 2282, 2282, -98, -123, 16, 28, -240, -43, -- 56, 302, -240, 291, -240, 155, 160, 172, 161, 164, -- 167, 184, 185, 181, -240, 186, 188, -240, 1682, 1767, -- 1767, -240, -240, 1682, 1682, -240, -240, -240, -240, -240, -- 156, 279, 314, 2291, 440, 440, 413, 413, 2282, 413, -- 413, -72, -72, 134, 134, 134, 134, -49, 117, 343, -- 322, -240, 314, 239, 2300, -240, -240, -240, 314, 239, -- 2300, -119, -240, -240, -240, -240, -240, 2116, 2116, -240, -- 206, 333, -240, 123, 2131, -240, 228, -240, -240, 1172, -- -240, -240, -240, 1172, 1172, -240, -240, -240, -110, 195, -- 197, -47, 128, 292, 1682, 1682, 1597, -240, 1597, -240, -- 757, -240, -240, 2116, -240, 228, 338, -240, 200, 202, -- 212, -240, -240, -240, 1682, 1682, -240, -43, -27, 360, -- 2282, -240, -240, 214, -240, -240, -240, -240, -240, -73, -- 30, -240, 1512, 268, -240, -240, 216, 1597, 2282, -240, -- -240, 2282, 354, -240 --}; -- -- /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. -- Performed when YYTABLE does not specify something else to do. Zero -- means the default is an error. */ --static const yytype_uint16 yydefact[] = --{ -- 7, 9, 0, 3, 2, 8, 1, 0, 0, 136, -- 18, 75, 76, 77, 78, 79, 80, 81, 82, 0, -- 14, 15, 17, 16, 0, 21, 0, 0, 0, 36, -- 0, 0, 0, 86, 69, 7, 72, 35, 32, 5, -- 65, 83, 10, 7, 0, 0, 0, 23, 27, 0, -- 162, 226, 227, 165, 167, 205, 204, 161, 191, 192, -- 193, 194, 195, 196, 197, 198, 199, 200, 201, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 202, 203, 0, 0, 210, 211, 216, 217, 218, 219, -- 220, 222, 221, 0, 0, 0, 0, 20, 42, 45, -- 46, 140, 143, 141, 157, 0, 0, 163, 0, 44, -- 223, 224, 0, 0, 0, 0, 52, 0, 0, 51, -- 224, 39, 84, 0, 19, 7, 7, 4, 8, 40, -- 0, 33, 124, 125, 126, 0, 0, 0, 0, 93, -- 95, 97, 99, 0, 0, 0, 0, 0, 107, 108, -- 109, 111, 120, 122, 123, 130, 131, 132, 133, 127, -- 128, 0, 113, 0, 0, 0, 0, 0, 135, 129, -- 92, 0, 12, 0, 38, 37, 11, 24, 0, 22, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 208, 206, 212, 214, 209, 207, 213, 215, 0, -- 0, 143, 141, 51, 224, 0, 239, 260, 43, 0, -- 0, 228, 229, 230, 231, 232, 0, 158, 179, 168, -- 171, 172, 173, 174, 175, 176, 177, 0, 169, 170, -- 0, 159, 0, 153, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 61, 260, 47, 0, 0, 0, 0, 0, -- 0, 85, 138, 0, 0, 0, 6, 41, 0, 88, -- 89, 90, 91, 94, 96, 98, 100, 101, 0, 102, -- 103, 162, 165, 167, 0, 0, 105, 183, 185, 104, -- 182, 0, 106, 0, 110, 112, 121, 134, 114, 118, -- 119, 117, 115, 116, 162, 226, 205, 204, 66, 0, -- 67, 68, 13, 0, 28, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 251, 0, 0, 240, 0, 0, -- 0, 156, 142, 0, 0, 166, 144, 146, 164, 178, -- 160, 0, 258, 259, 257, 256, 253, 255, 155, 225, -- 254, 233, 234, 235, 236, 237, 238, 0, 0, 0, -- 0, 55, 56, 58, 59, 54, 53, 57, 258, 60, -- 259, 0, 87, 70, 34, 190, 182, 0, 0, 180, -- 0, 0, 184, 0, 51, 25, 49, 241, 242, 0, -- 244, 245, 246, 0, 0, 249, 250, 252, 0, 144, -- 146, 0, 0, 0, 0, 0, 0, 48, 0, 137, -- 73, 189, 188, 0, 181, 49, 0, 29, 0, 0, -- 0, 148, 145, 147, 0, 0, 154, 149, 0, 62, -- 139, 74, 71, 0, 26, 50, 243, 247, 248, 149, -- 0, 151, 0, 0, 186, 150, 151, 0, 63, 30, -- 152, 64, 0, 31 --}; -- -- /* YYPGOTO[NTERM-NUM]. */ --static const yytype_int16 yypgoto[] = --{ -- -240, -240, 17, -240, 12, 329, -240, -240, -240, -240, -- -240, -240, -240, -240, -240, -240, 334, -76, -240, -240, -- -42, 13, -103, -240, -127, -240, -240, -240, -240, -240, -- 5, -240, 99, 194, 169, -44, 4, -100, -240, -240, -- -240, -104, -240, -239, -240, -50, -26, -240, 61 --}; -- -- /* YYDEFGOTO[NTERM-NUM]. */ --static const yytype_int16 yydefgoto[] = --{ -- -1, 2, 3, 35, 264, 5, 36, 49, 313, 415, -- 178, 386, 452, 268, 176, 37, 97, 98, 38, 360, -- 417, 199, 116, 443, 39, 126, 410, 432, 40, 125, -- 117, 371, 100, 101, 249, 102, 118, 104, 105, 106, -- 107, 228, 287, 288, 289, 108, 119, 110, 120 --}; -- -- /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If -- positive, shift that token. If negative, reduce the rule whose -- number is the opposite. If YYTABLE_NINF, syntax error. */ --static const yytype_int16 yytable[] = --{ -- 109, 266, 229, 404, 122, 424, 109, 129, 231, 41, -- 408, 252, 4, 50, 170, 47, -17, 44, 45, 53, -- 6, 208, 209, 210, 54, 1, 409, 50, -16, 9, -- 103, 99, 42, 53, 46, 421, 103, 99, 54, 174, -- 175, 115, 375, 43, 308, 169, 380, 127, 208, 201, -- 112, 191, 192, 121, 217, 171, 123, 172, 230, 209, -- 210, 131, 245, 246, 247, 218, 248, 203, 177, 206, -- 207, 109, 445, 219, 220, 221, 222, 223, 224, 225, -- 173, 226, 179, 209, 210, 209, 210, 111, 253, 209, -- 210, 48, 180, 111, 255, 256, 290, 202, 109, 257, -- 258, 103, 99, 292, 441, 209, 210, 205, 181, 269, -- 270, 271, 272, 273, 274, 275, 276, 278, 278, 278, -- 278, 293, 193, 194, 294, 295, 296, 261, 103, 99, -- 340, 250, 130, 41, 182, 297, 298, 94, 411, 412, -- 302, 303, 263, 265, 31, 278, 251, 103, 103, 103, -- 103, 94, 361, 363, 204, -17, 367, 369, 111, -17, -- -17, 446, 209, 210, 183, 336, 337, -16, 299, 300, -- 301, -16, -16, 184, 433, 311, 41, 185, 377, 378, -- 195, 196, 254, 293, 293, 111, 312, 227, -140, -140, -- 231, 186, 200, 315, 316, 317, 318, 319, 320, 321, -- 322, 323, 325, 326, 111, 111, 111, 111, 342, 343, -- 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, -- 354, 355, 356, 278, 278, 359, 9, 187, 188, 362, -- 364, 376, 111, 368, 370, 290, 328, 382, 189, 329, -- 330, 201, 277, 279, 280, 286, 405, 383, 190, 209, -- 210, 197, 198, 103, 103, 262, 267, 425, 314, 203, -- 209, 210, 365, 366, 218, 384, 327, 334, 331, 41, -- 309, 335, 248, 220, 221, 222, 223, 224, 225, 338, -- 226, 216, 339, 431, 341, 399, 400, 372, 374, 202, -- 220, 221, 222, 223, 224, 225, 373, 226, 379, 385, -- 387, 389, 278, 293, 293, 388, 390, 278, 278, 391, -- 111, 111, 392, 393, 394, 234, 235, 236, 237, 238, -- 239, 211, 212, 213, 214, 215, 395, 376, 376, 403, -- 407, 396, 103, 397, 255, 413, 414, 103, 103, 416, -- 422, 31, 423, 426, 435, 436, 204, 437, 357, 358, -- 241, 242, 243, 244, 245, 246, 247, 438, 248, 444, -- 449, 450, 453, 376, 128, 310, 124, 211, 212, 213, -- 214, 215, 333, 434, 0, 0, 406, 0, 278, 278, -- 429, 0, 430, 0, 200, 0, 227, 0, 0, 111, -- 0, 0, 0, 0, 111, 111, 442, 0, 278, 278, -- 0, 332, 418, 227, 0, 0, 419, 420, 103, 103, -- 0, 236, 237, 238, 239, 41, 448, 0, 0, 0, -- 0, 451, 211, 212, 213, 214, 215, 398, 103, 103, -- 0, 0, 401, 402, -141, -141, 0, 0, 234, 235, -- 236, 237, 238, 239, 241, 242, 243, 244, 245, 246, -- 247, 0, 248, 0, 0, 234, 235, 236, 237, 238, -- 239, 50, 51, 52, 9, 111, 111, 53, 0, 0, -- 0, 0, 54, 241, 242, 243, 244, 245, 246, 247, -- 0, 248, 0, 0, 0, 111, 111, 0, 55, 56, -- 241, 242, 243, 244, 245, 246, 247, 0, 248, 0, -- 0, 0, 0, 427, 428, 0, 0, 0, 0, 0, -- 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, -- 66, 67, 68, 439, 440, 0, 0, 0, 69, 70, -- 71, 72, 73, 74, 75, 76, 77, 78, 79, 238, -- 239, 80, 81, 82, 83, 243, 244, 245, 246, 247, -- 0, 248, 0, 0, 0, 0, 0, 0, 0, 84, -- 85, 86, 87, 88, 89, 90, 91, 92, 0, 0, -- 241, 242, 243, 244, 245, 246, 247, 0, 248, 31, -- 0, 0, 0, 0, 113, 94, 0, 0, 0, 0, -- 0, 95, 0, 0, 0, 114, 304, 305, 52, 9, -- 10, 0, 53, 324, 0, 0, 0, 54, 11, 12, -- 13, 14, 15, 16, 17, 18, 0, 0, 19, 0, -- 0, 20, 21, 306, 307, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 57, 58, 59, 60, -- 61, 62, 63, 64, 65, 66, 67, 68, 0, 0, -- 0, 0, 0, 69, 70, 71, 72, 73, 74, 75, -- 76, 77, 78, 79, 24, 0, 80, 81, 82, 83, -- 25, 26, 0, 0, 27, 0, 28, 0, 0, 0, -- 0, 0, 0, 0, 84, 85, 86, 87, 88, 89, -- 90, 91, 92, 29, 0, 30, 0, 0, 0, 0, -- 0, 0, 0, 0, 31, 32, 0, 0, 0, 93, -- 94, 33, 0, 0, 7, 8, 95, 9, 10, 0, -- 96, 0, 0, 0, 0, 34, 11, 12, 13, 14, -- 15, 16, 17, 18, 0, 0, 19, 0, 0, 20, -- 21, 22, 23, 0, 0, 0, 0, 0, 0, 0, -- 7, 8, 0, 9, 10, 0, 0, 0, 0, 0, -- 0, 0, 11, 12, 13, 14, 15, 16, 17, 18, -- 0, 0, 19, 0, 0, 20, 21, 22, 23, 234, -- 235, 236, 237, 238, 239, 0, 0, 0, 0, 0, -- 0, 0, 24, 0, 0, 0, 0, 0, 25, 26, -- 0, 0, 27, 0, 28, 0, 0, 0, 0, 0, -- 0, 0, 0, 240, 241, 242, 243, 244, 245, 246, -- 247, 29, 248, 30, 0, 0, 0, 0, 24, 0, -- 0, 0, 31, 32, 25, 26, 0, 0, 27, 33, -- 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 42, 0, 0, 34, 0, 0, 0, 29, 0, 30, -- 0, 0, 0, 0, 0, 0, 0, 0, 31, 32, -- 50, 51, 52, 9, 0, 33, 53, 0, 132, 133, -- 134, 54, 0, 0, 0, 0, 0, 0, 0, 34, -- 135, 136, 0, 137, 138, 139, 140, 141, 142, 143, -- 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, -- 154, 155, 156, 157, 158, 0, 0, 0, 0, 0, -- 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, -- 67, 68, 0, 0, 0, 0, 0, 69, 70, 71, -- 72, 73, 74, 75, 76, 77, 78, 79, 0, 0, -- 80, 81, 82, 83, 0, 0, 159, 160, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 84, 85, -- 86, 87, 88, 89, 90, 91, 92, 0, 0, 0, -- 161, 162, 163, 164, 165, 166, 167, 168, 31, 0, -- 0, 0, 0, 113, 94, 50, 51, 52, 9, 0, -- 95, 53, 0, 0, 96, 0, 54, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 55, 56, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 57, 58, 59, 60, 61, -- 62, 63, 64, 65, 66, 67, 68, 0, 0, 0, -- 0, 0, 69, 70, 71, 72, 73, 74, 75, 76, -- 77, 78, 79, 0, 0, 80, 81, 82, 83, 0, -- 50, 51, 52, 9, 0, 0, 53, 0, 0, 0, -- 0, 54, 0, 84, 85, 86, 87, 88, 89, 90, -- 91, 92, 0, 0, 0, 0, 0, 55, 56, 0, -- 0, 0, 0, 31, 0, 0, 0, 284, 93, 94, -- 0, 0, 0, 0, 0, 95, 0, 0, 0, 114, -- 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, -- 67, 68, 0, 0, 0, 0, 0, 69, 70, 71, -- 72, 73, 74, 75, 76, 77, 78, 79, 0, 0, -- 80, 81, 82, 83, 0, 50, 51, 52, 9, 0, -- 0, 53, 0, 0, 0, 0, 54, 0, 84, 85, -- 86, 87, 88, 89, 90, 91, 92, 0, 0, 0, -- 0, 0, 55, 56, 0, 0, 0, 0, 31, 0, -- 0, 0, 0, 93, 94, 0, 0, 0, 0, 0, -- 95, 0, 0, 0, 96, 57, 58, 59, 60, 61, -- 62, 63, 64, 65, 66, 67, 68, 0, 0, 0, -- 0, 0, 69, 70, 71, 72, 73, 74, 75, 76, -- 77, 78, 79, 0, 0, 80, 81, 82, 83, 0, -- 50, 51, 52, 9, 0, 0, 53, 0, 0, 0, -- 0, 54, 0, 84, 85, 86, 87, 88, 89, 90, -- 91, 92, 0, 0, 0, 0, 0, 55, 56, 0, -- 0, 0, 0, 31, 0, 0, 0, 0, 113, 94, -- 0, 0, 0, 0, 0, 95, 0, 0, 0, 114, -- 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, -- 67, 68, 0, 0, 0, 0, 0, 69, 70, 71, -- 72, 73, 74, 75, 76, 77, 78, 79, 0, 0, -- 80, 81, 82, 83, 0, 50, 51, 52, 9, 0, -- 0, 53, 0, 0, 0, 0, 54, 0, 84, 85, -- 86, 87, 88, 89, 90, 91, 92, 0, 0, 0, -- 0, 0, 55, 56, 0, 0, 0, 0, 31, 0, -- 0, 0, 0, 93, 94, 0, 0, 0, 0, 0, -- 95, 0, 0, 0, 114, 57, 58, 59, 60, 61, -- 62, 63, 64, 65, 66, 67, 68, 0, 0, 0, -- 0, 0, 69, 70, 71, 72, 73, 74, 75, 76, -- 77, 78, 79, 0, 0, 80, 81, 82, 83, 0, -- 281, 51, 52, 0, 0, 0, 282, 0, 0, 0, -- 0, 283, 0, 84, 85, 86, 87, 88, 89, 90, -- 91, 92, 0, 0, 0, 0, 0, 55, 56, 0, -- 0, 0, 0, 31, 0, 0, 0, 0, 291, 94, -- 0, 0, 0, 0, 0, 95, 0, 0, 0, 114, -- 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, -- 67, 68, 0, 0, 0, 0, 0, 69, 70, 71, -- 72, 73, 74, 75, 76, 77, 78, 79, 0, 0, -- 80, 81, 82, 83, 0, 50, 51, 52, 0, 0, -- 0, 53, 0, 0, 0, 0, 54, 0, 84, 85, -- 86, 87, 88, 89, 90, 91, 92, 0, 0, 0, -- 0, 0, 55, 56, 0, 0, 0, 0, 0, 0, -- 0, 0, 284, 285, 94, 0, 0, 0, 0, 0, -- 95, 0, 0, 0, 96, 57, 58, 59, 60, 61, -- 62, 63, 64, 65, 66, 67, 68, 0, 0, 0, -- 0, 0, 69, 70, 71, 72, 73, 74, 75, 76, -- 77, 78, 79, 0, 0, 80, 81, 82, 83, 0, -- 50, 51, 52, 0, 0, 0, 53, 0, 0, 0, -- 0, 54, 0, 84, 85, 86, 87, 88, 89, 90, -- 91, 92, 0, 0, 0, 0, 0, 55, 56, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 113, 94, -- 0, 0, 0, 0, 0, 95, 447, 0, 0, 96, -- 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, -- 67, 68, 0, 0, 0, 0, 0, 69, 70, 71, -- 72, 73, 74, 75, 76, 77, 78, 79, 0, 0, -- 80, 81, 82, 83, 0, 50, 51, 52, 0, 0, -- 0, 53, 0, 0, 0, 0, 54, 0, 84, 85, -- 86, 87, 88, 89, 90, 91, 92, 0, 0, 0, -- 0, 0, 55, 56, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 113, 94, 0, 0, 0, 0, 0, -- 95, 0, 0, 0, 96, 57, 58, 59, 60, 61, -- 62, 63, 64, 65, 66, 67, 68, 0, 0, 0, -- 0, 0, 69, 70, 71, 72, 73, 74, 75, 76, -- 77, 78, 79, 0, 0, 80, 81, 82, 83, 0, -- 50, 51, 52, 0, 0, 0, 53, 0, 0, 0, -- 0, 54, 0, 84, 85, 86, 87, 88, 89, 90, -- 91, 92, 0, 0, 0, 0, 0, 55, 56, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 93, 94, -- 0, 0, 0, 0, 0, 95, 0, 0, 0, 96, -- 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, -- 67, 68, 0, 0, 0, 0, 0, 69, 70, 71, -- 72, 73, 74, 75, 76, 77, 78, 79, 0, 0, -- 80, 81, 82, 83, 0, 0, 50, 51, 52, 0, -- 0, 0, 53, 0, 0, 0, 0, 54, 84, 85, -- 86, 87, 88, 89, 90, 91, 92, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 291, 94, 0, 0, 0, 0, 0, -- 95, -205, 0, 0, 96, 0, 57, 58, 59, 60, -- 61, 62, 63, 64, 65, 66, 67, 68, 0, 0, -- 0, 0, 0, 69, 70, 71, 72, 73, 74, 75, -- 76, 77, 78, 79, 0, 0, 80, 81, 82, 83, -- 0, 0, 50, 51, 52, 0, 0, 0, 53, 0, -- 0, 0, 0, 54, 84, 85, 86, 87, 88, 89, -- 90, 91, 92, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 113, -- 94, 0, 0, 0, 0, 0, 95, -204, 0, 0, -- 96, 0, 57, 58, 59, 60, 61, 62, 63, 64, -- 65, 66, 67, 68, 0, 0, 0, 0, 0, 69, -- 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, -- 0, 0, 80, 81, 82, 83, 0, 50, 51, 52, -- 0, 0, 0, 53, 0, 0, 0, 0, 54, 0, -- 84, 85, 86, 87, 88, 89, 90, 91, 92, 0, -- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 113, 94, 0, 0, 0, -- 0, 0, 95, 0, 0, 0, 96, 57, 58, 59, -- 60, 61, 62, 63, 64, 65, 66, 67, 68, 0, -- 0, 0, 0, 0, 69, 70, 71, 72, 73, 74, -- 75, 76, 77, 78, 79, 0, 0, 80, 81, 82, -- 83, 55, 56, 0, 0, 0, 0, 0, 0, 0, -- 0, 0, 0, 0, 0, 84, 85, 86, 87, 88, -- 89, 90, 91, 92, 0, 58, 59, 60, 61, 62, -- 63, 64, 65, 66, 67, 68, 55, 56, 0, 0, -- 113, 94, 0, 0, 0, 0, 0, 95, 0, 0, -- 0, 96, 0, 0, 80, 81, 82, 83, 0, 0, -- 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, -- 68, 0, 84, 85, 86, 87, 88, 89, 90, 91, -- 92, 0, 0, 0, 0, 232, 0, 0, 233, 80, -- 81, 82, 83, 0, 0, 232, 381, 0, 233, 0, -- 0, 0, 0, 0, 0, 0, 0, 84, 85, 86, -- 87, 88, 89, 90, 91, 92, 259, 260, 236, 237, -- 238, 239, 0, 0, 0, 0, 0, 0, 0, 0, -- 0, 284, 234, 235, 236, 237, 238, 239, 0, 0, -- 0, 0, 259, 260, 236, 237, 238, 239, 0, 0, -- 240, 241, 242, 243, 244, 245, 246, 247, 0, 248, -- 0, 0, 0, 0, 0, 0, 240, 241, 242, 243, -- 244, 245, 246, 247, 0, 248, 240, 241, 242, 243, -- 244, 245, 246, 247, 0, 248, 58, 59, 60, 61, -- 62, 63, 64, 65, 66, 67, 68, 58, 59, 60, -- 61, 62, 63, 64, 65, 66, 67, 68, 0, 0, -- 0, 0, 0, 0, 0, 80, 81, 82, 83, 0, -- 0, 0, 0, 0, 0, 0, 80, 81, 82, 83, -- 0, 0, 0, 84, 85, 86, 87, 88, 89, 90, -- 91, 92, 0, 0, 84, 85, 86, 87, 88, 89, -- 90, 91, 92, 0, 0, 0, 0, 216, 259, 260, -- 236, 237, 238, 239, 0, 0, 0, 234, 235, 236, -- 237, 238, 239, 0, 0, 0, 234, 0, 236, 237, -- 238, 239, 0, 0, 0, 259, 0, 236, 237, 238, -- 239, 0, 0, 241, 242, 243, 244, 245, 246, 247, -- 0, 248, 241, 242, 243, 244, 245, 246, 247, 0, -- 248, 241, 242, 243, 244, 245, 246, 247, 0, 248, -- 241, 242, 243, 244, 245, 246, 247, 0, 248 --}; -- --static const yytype_int16 yycheck[] = --{ -- 26, 128, 106, 52, 30, 52, 32, 4, 108, 4, -- 129, 114, 0, 3, 40, 6, 0, 140, 141, 9, -- 0, 97, 132, 133, 14, 139, 145, 3, 0, 6, -- 26, 26, 139, 9, 140, 145, 32, 32, 14, 3, -- 4, 28, 281, 141, 171, 40, 285, 35, 124, 93, -- 4, 30, 31, 4, 104, 43, 126, 44, 48, 132, -- 133, 94, 134, 135, 136, 6, 138, 93, 82, 95, -- 96, 97, 145, 14, 15, 16, 17, 18, 19, 20, -- 140, 22, 8, 132, 133, 132, 133, 26, 114, 132, -- 133, 82, 126, 32, 95, 96, 146, 93, 124, 97, -- 98, 97, 97, 147, 131, 132, 133, 94, 126, 135, -- 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, -- 146, 147, 101, 102, 150, 151, 152, 122, 124, 124, -- 230, 130, 129, 128, 126, 161, 162, 127, 377, 378, -- 166, 167, 125, 126, 121, 171, 140, 143, 144, 145, -- 146, 127, 255, 256, 93, 139, 259, 260, 97, 143, -- 144, 131, 132, 133, 126, 209, 210, 139, 163, 164, -- 165, 143, 144, 126, 413, 171, 171, 126, 282, 283, -- 30, 31, 37, 209, 210, 124, 173, 128, 132, 133, -- 290, 126, 93, 180, 181, 182, 183, 184, 185, 186, -- 187, 188, 189, 190, 143, 144, 145, 146, 234, 235, -- 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, -- 246, 247, 248, 249, 250, 251, 6, 126, 126, 255, -- 256, 281, 171, 259, 260, 285, 129, 287, 126, 132, -- 133, 285, 143, 144, 145, 146, 129, 291, 126, 132, -- 133, 101, 102, 249, 250, 6, 4, 129, 8, 285, -- 132, 133, 257, 258, 6, 291, 145, 130, 145, 264, -- 171, 10, 138, 15, 16, 17, 18, 19, 20, 3, -- 22, 125, 144, 410, 49, 329, 330, 144, 8, 285, -- 15, 16, 17, 18, 19, 20, 143, 22, 3, 8, -- 145, 129, 328, 329, 330, 145, 145, 333, 334, 145, -- 249, 250, 145, 129, 129, 95, 96, 97, 98, 99, -- 100, 65, 66, 67, 68, 69, 145, 377, 378, 50, -- 8, 145, 328, 145, 95, 129, 3, 333, 334, 111, -- 145, 121, 145, 51, 6, 145, 285, 145, 249, 250, -- 130, 131, 132, 133, 134, 135, 136, 145, 138, 145, -- 92, 145, 8, 413, 35, 171, 32, 65, 66, 67, -- 68, 69, 203, 415, -1, -1, 33, -1, 404, 405, -- 406, -1, 408, -1, 285, -1, 128, -1, -1, 328, -- -1, -1, -1, -1, 333, 334, 36, -1, 424, 425, -- -1, 145, 389, 128, -1, -1, 393, 394, 404, 405, -- -1, 97, 98, 99, 100, 410, 442, -1, -1, -1, -- -1, 447, 65, 66, 67, 68, 69, 328, 424, 425, -- -1, -1, 333, 334, 132, 133, -1, -1, 95, 96, -- 97, 98, 99, 100, 130, 131, 132, 133, 134, 135, -- 136, -1, 138, -1, -1, 95, 96, 97, 98, 99, -- 100, 3, 4, 5, 6, 404, 405, 9, -1, -1, -- -1, -1, 14, 130, 131, 132, 133, 134, 135, 136, -- -1, 138, -1, -1, -1, 424, 425, -1, 30, 31, -- 130, 131, 132, 133, 134, 135, 136, -1, 138, -1, -- -1, -1, -1, 404, 405, -1, -1, -1, -1, -1, -- -1, 53, 54, 55, 56, 57, 58, 59, 60, 61, -- 62, 63, 64, 424, 425, -1, -1, -1, 70, 71, -- 72, 73, 74, 75, 76, 77, 78, 79, 80, 99, -- 100, 83, 84, 85, 86, 132, 133, 134, 135, 136, -- -1, 138, -1, -1, -1, -1, -1, -1, -1, 101, -- 102, 103, 104, 105, 106, 107, 108, 109, -1, -1, -- 130, 131, 132, 133, 134, 135, 136, -1, 138, 121, -- -1, -1, -1, -1, 126, 127, -1, -1, -1, -1, -- -1, 133, -1, -1, -1, 137, 3, 4, 5, 6, -- 7, -1, 9, 145, -1, -1, -1, 14, 15, 16, -- 17, 18, 19, 20, 21, 22, -1, -1, 25, -1, -- -1, 28, 29, 30, 31, -1, -1, -1, -1, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -- -1, -1, -1, -1, -1, -1, 53, 54, 55, 56, -- 57, 58, 59, 60, 61, 62, 63, 64, -1, -1, -- -1, -1, -1, 70, 71, 72, 73, 74, 75, 76, -- 77, 78, 79, 80, 81, -1, 83, 84, 85, 86, -- 87, 88, -1, -1, 91, -1, 93, -1, -1, -1, -- -1, -1, -1, -1, 101, 102, 103, 104, 105, 106, -- 107, 108, 109, 110, -1, 112, -1, -1, -1, -1, -- -1, -1, -1, -1, 121, 122, -1, -1, -1, 126, -- 127, 128, -1, -1, 3, 4, 133, 6, 7, -1, -- 137, -1, -1, -1, -1, 142, 15, 16, 17, 18, -- 19, 20, 21, 22, -1, -1, 25, -1, -1, 28, -- 29, 30, 31, -1, -1, -1, -1, -1, -1, -1, -- 3, 4, -1, 6, 7, -1, -1, -1, -1, -1, -- -1, -1, 15, 16, 17, 18, 19, 20, 21, 22, -- -1, -1, 25, -1, -1, 28, 29, 30, 31, 95, -- 96, 97, 98, 99, 100, -1, -1, -1, -1, -1, -- -1, -1, 81, -1, -1, -1, -1, -1, 87, 88, -- -1, -1, 91, -1, 93, -1, -1, -1, -1, -1, -- -1, -1, -1, 129, 130, 131, 132, 133, 134, 135, -- 136, 110, 138, 112, -1, -1, -1, -1, 81, -1, -- -1, -1, 121, 122, 87, 88, -1, -1, 91, 128, -- 93, -1, -1, -1, -1, -1, -1, -1, -1, -1, -- 139, -1, -1, 142, -1, -1, -1, 110, -1, 112, -- -1, -1, -1, -1, -1, -1, -1, -1, 121, 122, -- 3, 4, 5, 6, -1, 128, 9, -1, 11, 12, -- 13, 14, -1, -1, -1, -1, -1, -1, -1, 142, -- 23, 24, -1, 26, 27, 28, 29, 30, 31, 32, -- 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -- 43, 44, 45, 46, 47, -1, -1, -1, -1, -1, -- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, -- 63, 64, -1, -1, -1, -1, -1, 70, 71, 72, -- 73, 74, 75, 76, 77, 78, 79, 80, -1, -1, -- 83, 84, 85, 86, -1, -1, 89, 90, -1, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, 101, 102, -- 103, 104, 105, 106, 107, 108, 109, -1, -1, -1, -- 113, 114, 115, 116, 117, 118, 119, 120, 121, -1, -- -1, -1, -1, 126, 127, 3, 4, 5, 6, -1, -- 133, 9, -1, -1, 137, -1, 14, -1, -1, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -- -1, -1, 30, 31, -1, -1, -1, -1, -1, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -- -1, -1, -1, -1, -1, 53, 54, 55, 56, 57, -- 58, 59, 60, 61, 62, 63, 64, -1, -1, -1, -- -1, -1, 70, 71, 72, 73, 74, 75, 76, 77, -- 78, 79, 80, -1, -1, 83, 84, 85, 86, -1, -- 3, 4, 5, 6, -1, -1, 9, -1, -1, -1, -- -1, 14, -1, 101, 102, 103, 104, 105, 106, 107, -- 108, 109, -1, -1, -1, -1, -1, 30, 31, -1, -- -1, -1, -1, 121, -1, -1, -1, 125, 126, 127, -- -1, -1, -1, -1, -1, 133, -1, -1, -1, 137, -- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, -- 63, 64, -1, -1, -1, -1, -1, 70, 71, 72, -- 73, 74, 75, 76, 77, 78, 79, 80, -1, -1, -- 83, 84, 85, 86, -1, 3, 4, 5, 6, -1, -- -1, 9, -1, -1, -1, -1, 14, -1, 101, 102, -- 103, 104, 105, 106, 107, 108, 109, -1, -1, -1, -- -1, -1, 30, 31, -1, -1, -1, -1, 121, -1, -- -1, -1, -1, 126, 127, -1, -1, -1, -1, -1, -- 133, -1, -1, -1, 137, 53, 54, 55, 56, 57, -- 58, 59, 60, 61, 62, 63, 64, -1, -1, -1, -- -1, -1, 70, 71, 72, 73, 74, 75, 76, 77, -- 78, 79, 80, -1, -1, 83, 84, 85, 86, -1, -- 3, 4, 5, 6, -1, -1, 9, -1, -1, -1, -- -1, 14, -1, 101, 102, 103, 104, 105, 106, 107, -- 108, 109, -1, -1, -1, -1, -1, 30, 31, -1, -- -1, -1, -1, 121, -1, -1, -1, -1, 126, 127, -- -1, -1, -1, -1, -1, 133, -1, -1, -1, 137, -- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, -- 63, 64, -1, -1, -1, -1, -1, 70, 71, 72, -- 73, 74, 75, 76, 77, 78, 79, 80, -1, -1, -- 83, 84, 85, 86, -1, 3, 4, 5, 6, -1, -- -1, 9, -1, -1, -1, -1, 14, -1, 101, 102, -- 103, 104, 105, 106, 107, 108, 109, -1, -1, -1, -- -1, -1, 30, 31, -1, -1, -1, -1, 121, -1, -- -1, -1, -1, 126, 127, -1, -1, -1, -1, -1, -- 133, -1, -1, -1, 137, 53, 54, 55, 56, 57, -- 58, 59, 60, 61, 62, 63, 64, -1, -1, -1, -- -1, -1, 70, 71, 72, 73, 74, 75, 76, 77, -- 78, 79, 80, -1, -1, 83, 84, 85, 86, -1, -- 3, 4, 5, -1, -1, -1, 9, -1, -1, -1, -- -1, 14, -1, 101, 102, 103, 104, 105, 106, 107, -- 108, 109, -1, -1, -1, -1, -1, 30, 31, -1, -- -1, -1, -1, 121, -1, -1, -1, -1, 126, 127, -- -1, -1, -1, -1, -1, 133, -1, -1, -1, 137, -- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, -- 63, 64, -1, -1, -1, -1, -1, 70, 71, 72, -- 73, 74, 75, 76, 77, 78, 79, 80, -1, -1, -- 83, 84, 85, 86, -1, 3, 4, 5, -1, -1, -- -1, 9, -1, -1, -1, -1, 14, -1, 101, 102, -- 103, 104, 105, 106, 107, 108, 109, -1, -1, -1, -- -1, -1, 30, 31, -1, -1, -1, -1, -1, -1, -- -1, -1, 125, 126, 127, -1, -1, -1, -1, -1, -- 133, -1, -1, -1, 137, 53, 54, 55, 56, 57, -- 58, 59, 60, 61, 62, 63, 64, -1, -1, -1, -- -1, -1, 70, 71, 72, 73, 74, 75, 76, 77, -- 78, 79, 80, -1, -1, 83, 84, 85, 86, -1, -- 3, 4, 5, -1, -1, -1, 9, -1, -1, -1, -- -1, 14, -1, 101, 102, 103, 104, 105, 106, 107, -- 108, 109, -1, -1, -1, -1, -1, 30, 31, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, 126, 127, -- -1, -1, -1, -1, -1, 133, 134, -1, -1, 137, -- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, -- 63, 64, -1, -1, -1, -1, -1, 70, 71, 72, -- 73, 74, 75, 76, 77, 78, 79, 80, -1, -1, -- 83, 84, 85, 86, -1, 3, 4, 5, -1, -1, -- -1, 9, -1, -1, -1, -1, 14, -1, 101, 102, -- 103, 104, 105, 106, 107, 108, 109, -1, -1, -1, -- -1, -1, 30, 31, -1, -1, -1, -1, -1, -1, -- -1, -1, -1, 126, 127, -1, -1, -1, -1, -1, -- 133, -1, -1, -1, 137, 53, 54, 55, 56, 57, -- 58, 59, 60, 61, 62, 63, 64, -1, -1, -1, -- -1, -1, 70, 71, 72, 73, 74, 75, 76, 77, -- 78, 79, 80, -1, -1, 83, 84, 85, 86, -1, -- 3, 4, 5, -1, -1, -1, 9, -1, -1, -1, -- -1, 14, -1, 101, 102, 103, 104, 105, 106, 107, -- 108, 109, -1, -1, -1, -1, -1, 30, 31, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, 126, 127, -- -1, -1, -1, -1, -1, 133, -1, -1, -1, 137, -- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, -- 63, 64, -1, -1, -1, -1, -1, 70, 71, 72, -- 73, 74, 75, 76, 77, 78, 79, 80, -1, -1, -- 83, 84, 85, 86, -1, -1, 3, 4, 5, -1, -- -1, -1, 9, -1, -1, -1, -1, 14, 101, 102, -- 103, 104, 105, 106, 107, 108, 109, -1, -1, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -- -1, -1, -1, 126, 127, -1, -1, -1, -1, -1, -- 133, 48, -1, -1, 137, -1, 53, 54, 55, 56, -- 57, 58, 59, 60, 61, 62, 63, 64, -1, -1, -- -1, -1, -1, 70, 71, 72, 73, 74, 75, 76, -- 77, 78, 79, 80, -1, -1, 83, 84, 85, 86, -- -1, -1, 3, 4, 5, -1, -1, -1, 9, -1, -- -1, -1, -1, 14, 101, 102, 103, 104, 105, 106, -- 107, 108, 109, -1, -1, -1, -1, -1, -1, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, -1, 126, -- 127, -1, -1, -1, -1, -1, 133, 48, -1, -1, -- 137, -1, 53, 54, 55, 56, 57, 58, 59, 60, -- 61, 62, 63, 64, -1, -1, -1, -1, -1, 70, -- 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, -- -1, -1, 83, 84, 85, 86, -1, 3, 4, 5, -- -1, -1, -1, 9, -1, -1, -1, -1, 14, -1, -- 101, 102, 103, 104, 105, 106, 107, 108, 109, -1, -- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -- -1, -1, -1, -1, -1, 126, 127, -1, -1, -1, -- -1, -1, 133, -1, -1, -1, 137, 53, 54, 55, -- 56, 57, 58, 59, 60, 61, 62, 63, 64, -1, -- -1, -1, -1, -1, 70, 71, 72, 73, 74, 75, -- 76, 77, 78, 79, 80, -1, -1, 83, 84, 85, -- 86, 30, 31, -1, -1, -1, -1, -1, -1, -1, -- -1, -1, -1, -1, -1, 101, 102, 103, 104, 105, -- 106, 107, 108, 109, -1, 54, 55, 56, 57, 58, -- 59, 60, 61, 62, 63, 64, 30, 31, -1, -1, -- 126, 127, -1, -1, -1, -1, -1, 133, -1, -1, -- -1, 137, -1, -1, 83, 84, 85, 86, -1, -1, -- 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, -- 64, -1, 101, 102, 103, 104, 105, 106, 107, 108, -- 109, -1, -1, -1, -1, 48, -1, -1, 51, 83, -- 84, 85, 86, -1, -1, 48, 125, -1, 51, -1, -- -1, -1, -1, -1, -1, -1, -1, 101, 102, 103, -- 104, 105, 106, 107, 108, 109, 95, 96, 97, 98, -- 99, 100, -1, -1, -1, -1, -1, -1, -1, -1, -- -1, 125, 95, 96, 97, 98, 99, 100, -1, -1, -- -1, -1, 95, 96, 97, 98, 99, 100, -1, -1, -- 129, 130, 131, 132, 133, 134, 135, 136, -1, 138, -- -1, -1, -1, -1, -1, -1, 129, 130, 131, 132, -- 133, 134, 135, 136, -1, 138, 129, 130, 131, 132, -- 133, 134, 135, 136, -1, 138, 54, 55, 56, 57, -- 58, 59, 60, 61, 62, 63, 64, 54, 55, 56, -- 57, 58, 59, 60, 61, 62, 63, 64, -1, -1, -- -1, -1, -1, -1, -1, 83, 84, 85, 86, -1, -- -1, -1, -1, -1, -1, -1, 83, 84, 85, 86, -- -1, -1, -1, 101, 102, 103, 104, 105, 106, 107, -- 108, 109, -1, -1, 101, 102, 103, 104, 105, 106, -- 107, 108, 109, -1, -1, -1, -1, 125, 95, 96, -- 97, 98, 99, 100, -1, -1, -1, 95, 96, 97, -- 98, 99, 100, -1, -1, -1, 95, -1, 97, 98, -- 99, 100, -1, -1, -1, 95, -1, 97, 98, 99, -- 100, -1, -1, 130, 131, 132, 133, 134, 135, 136, -- -1, 138, 130, 131, 132, 133, 134, 135, 136, -1, -- 138, 130, 131, 132, 133, 134, 135, 136, -1, 138, -- 130, 131, 132, 133, 134, 135, 136, -1, 138 --}; -- -- /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing -- symbol of state STATE-NUM. */ --static const yytype_uint8 yystos[] = --{ -- 0, 139, 147, 148, 150, 151, 0, 3, 4, 6, -- 7, 15, 16, 17, 18, 19, 20, 21, 22, 25, -- 28, 29, 30, 31, 81, 87, 88, 91, 93, 110, -- 112, 121, 122, 128, 142, 149, 152, 161, 164, 170, -- 174, 176, 139, 141, 140, 141, 140, 6, 82, 153, -- 3, 4, 5, 9, 14, 30, 31, 53, 54, 55, -- 56, 57, 58, 59, 60, 61, 62, 63, 64, 70, -- 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, -- 83, 84, 85, 86, 101, 102, 103, 104, 105, 106, -- 107, 108, 109, 126, 127, 133, 137, 162, 163, 176, -- 178, 179, 181, 182, 183, 184, 185, 186, 191, 192, -- 193, 194, 4, 126, 137, 167, 168, 176, 182, 192, -- 194, 4, 192, 126, 162, 175, 171, 150, 151, 4, -- 129, 94, 11, 12, 13, 23, 24, 26, 27, 28, -- 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, -- 39, 40, 41, 42, 43, 44, 45, 46, 47, 89, -- 90, 113, 114, 115, 116, 117, 118, 119, 120, 176, -- 192, 150, 167, 140, 3, 4, 160, 82, 156, 8, -- 126, 126, 126, 126, 126, 126, 126, 126, 126, 126, -- 126, 30, 31, 101, 102, 30, 31, 101, 102, 167, -- 178, 181, 182, 192, 194, 167, 192, 192, 163, 132, -- 133, 65, 66, 67, 68, 69, 125, 191, 6, 14, -- 15, 16, 17, 18, 19, 20, 22, 128, 187, 187, -- 48, 183, 48, 51, 95, 96, 97, 98, 99, 100, -- 129, 130, 131, 132, 133, 134, 135, 136, 138, 180, -- 130, 140, 168, 192, 37, 95, 96, 97, 98, 95, -- 96, 176, 6, 148, 150, 148, 170, 4, 159, 192, -- 192, 192, 192, 192, 192, 192, 192, 178, 192, 178, -- 178, 3, 9, 14, 125, 126, 178, 188, 189, 190, -- 191, 126, 181, 192, 192, 192, 192, 192, 192, 176, -- 176, 176, 192, 192, 3, 4, 30, 31, 170, 178, -- 179, 182, 167, 154, 8, 167, 167, 167, 167, 167, -- 167, 167, 167, 167, 145, 167, 167, 145, 129, 132, -- 133, 145, 145, 180, 130, 10, 181, 181, 3, 144, -- 183, 49, 192, 192, 192, 192, 192, 192, 192, 192, -- 192, 192, 192, 192, 192, 192, 192, 178, 178, 192, -- 165, 168, 192, 168, 192, 176, 176, 168, 192, 168, -- 192, 177, 144, 143, 8, 189, 191, 187, 187, 3, -- 189, 125, 191, 181, 192, 8, 157, 145, 145, 129, -- 145, 145, 145, 129, 129, 145, 145, 145, 178, 181, -- 181, 178, 178, 50, 52, 129, 33, 8, 129, 145, -- 172, 189, 189, 129, 3, 155, 111, 166, 167, 167, -- 167, 145, 145, 145, 52, 129, 51, 178, 178, 192, -- 192, 170, 173, 189, 166, 6, 145, 145, 145, 178, -- 178, 131, 36, 169, 145, 145, 131, 134, 192, 92, -- 145, 192, 158, 8 --}; -- -- /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ --static const yytype_uint8 yyr1[] = --{ -- 0, 146, 147, 147, 148, 149, 149, 150, 150, 151, -- 151, 152, 152, 152, 152, 152, 152, 152, 152, 152, -- 152, 153, 152, 152, 154, 155, 152, 156, 157, 152, -- 158, 152, 152, 159, 152, 152, 152, 160, 160, 161, -- 161, 161, 162, 162, 163, 163, 163, 165, 164, 166, -- 166, 167, 167, 168, 168, 168, 168, 168, 168, 168, -- 168, 168, 169, 169, 169, 170, 170, 170, 170, 171, -- 172, 170, 170, 173, 173, 174, 174, 174, 174, 174, -- 174, 174, 174, 174, 174, 174, 175, 174, 174, 174, -- 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, -- 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, -- 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, -- 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, -- 174, 174, 174, 174, 174, 174, 176, 176, 177, 177, -- 178, 178, 178, 179, 179, 179, 179, 179, 179, 179, -- 179, 179, 179, 180, 180, 181, 181, 182, 182, 182, -- 182, 182, 183, 183, 183, 184, 184, 185, 185, 186, -- 186, 187, 187, 187, 187, 187, 187, 187, 187, 187, -- 188, 188, 189, 189, 189, 190, 190, 190, 190, 190, -- 190, 191, 191, 191, 191, 191, 191, 191, 191, 191, -- 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, -- 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, -- 191, 191, 191, 192, 192, 193, 194, 194, 194, 194, -- 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, -- 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, -- 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, -- 194 --}; -- -- /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ --static const yytype_uint8 yyr2[] = --{ -- 0, 2, 1, 1, 3, 1, 3, 0, 1, 1, -- 2, 3, 3, 4, 1, 1, 1, 1, 1, 2, -- 2, 0, 3, 2, 0, 0, 7, 0, 0, 6, -- 0, 10, 1, 0, 4, 1, 1, 1, 1, 2, -- 2, 3, 1, 2, 1, 1, 1, 0, 5, 0, -- 2, 1, 1, 3, 3, 3, 3, 3, 3, 3, -- 3, 2, 0, 2, 3, 1, 4, 4, 4, 0, -- 0, 6, 1, 0, 1, 1, 1, 1, 1, 1, -- 1, 1, 1, 1, 2, 3, 0, 4, 3, 3, -- 3, 3, 2, 2, 3, 2, 3, 2, 3, 2, -- 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, -- 3, 2, 3, 2, 3, 3, 3, 3, 3, 3, -- 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 3, 2, 1, 5, 0, 3, -- 1, 1, 3, 1, 3, 5, 3, 5, 5, 5, -- 7, 6, 8, 1, 4, 3, 3, 1, 2, 2, -- 3, 1, 1, 1, 3, 1, 3, 1, 2, 2, -- 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, -- 2, 3, 1, 1, 2, 1, 5, 4, 3, 3, -- 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, -- 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, -- 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, -- 1, 1, 1, 1, 1, 3, 1, 1, 2, 2, -- 2, 2, 2, 3, 3, 3, 3, 3, 3, 2, -- 3, 4, 4, 6, 4, 4, 4, 6, 6, 4, -- 4, 3, 4, 3, 3, 3, 3, 3, 3, 3, -- 2 --}; -- -- --#define yyerrok (yyerrstatus = 0) --#define yyclearin (yychar = YYEMPTY) --#define YYEMPTY (-2) --#define YYEOF 0 -- --#define YYACCEPT goto yyacceptlab --#define YYABORT goto yyabortlab --#define YYERROR goto yyerrorlab -- -- --#define YYRECOVERING() (!!yyerrstatus) -- --#define YYBACKUP(Token, Value) \ --do \ -- if (yychar == YYEMPTY) \ -- { \ -- yychar = (Token); \ -- yylval = (Value); \ -- YYPOPSTACK (yylen); \ -- yystate = *yyssp; \ -- goto yybackup; \ -- } \ -- else \ -- { \ -- yyerror (YY_("syntax error: cannot back up")); \ -- YYERROR; \ -- } \ --while (0) -- --/* Error token number */ --#define YYTERROR 1 --#define YYERRCODE 256 -- -- -- --/* Enable debugging if requested. */ --#if YYDEBUG -- --# ifndef YYFPRINTF --# include /* INFRINGES ON USER NAME SPACE */ --# define YYFPRINTF fprintf --# endif -- --# define YYDPRINTF(Args) \ --do { \ -- if (yydebug) \ -- YYFPRINTF Args; \ --} while (0) -- --/* This macro is provided for backward compatibility. */ --#ifndef YY_LOCATION_PRINT --# define YY_LOCATION_PRINT(File, Loc) ((void) 0) --#endif -- -- --# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ --do { \ -- if (yydebug) \ -- { \ -- YYFPRINTF (stderr, "%s ", Title); \ -- yy_symbol_print (stderr, \ -- Type, Value); \ -- YYFPRINTF (stderr, "\n"); \ -- } \ --} while (0) -- -- --/*----------------------------------------. --| Print this symbol's value on YYOUTPUT. | --`----------------------------------------*/ -- --static void --yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) --{ -- FILE *yyo = yyoutput; -- YYUSE (yyo); -- if (!yyvaluep) -- return; --# ifdef YYPRINT -- if (yytype < YYNTOKENS) -- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); --# endif -- YYUSE (yytype); --} -- -- --/*--------------------------------. --| Print this symbol on YYOUTPUT. | --`--------------------------------*/ -- --static void --yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) --{ -- YYFPRINTF (yyoutput, "%s %s (", -- yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); -- -- yy_symbol_value_print (yyoutput, yytype, yyvaluep); -- YYFPRINTF (yyoutput, ")"); --} -- --/*------------------------------------------------------------------. --| yy_stack_print -- Print the state stack from its BOTTOM up to its | --| TOP (included). | --`------------------------------------------------------------------*/ -- --static void --yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) --{ -- YYFPRINTF (stderr, "Stack now"); -- for (; yybottom <= yytop; yybottom++) -- { -- int yybot = *yybottom; -- YYFPRINTF (stderr, " %d", yybot); -- } -- YYFPRINTF (stderr, "\n"); --} -- --# define YY_STACK_PRINT(Bottom, Top) \ --do { \ -- if (yydebug) \ -- yy_stack_print ((Bottom), (Top)); \ --} while (0) -- -- --/*------------------------------------------------. --| Report that the YYRULE is going to be reduced. | --`------------------------------------------------*/ -- --static void --yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule) --{ -- unsigned long int yylno = yyrline[yyrule]; -- int yynrhs = yyr2[yyrule]; -- int yyi; -- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", -- yyrule - 1, yylno); -- /* The symbols being reduced. */ -- for (yyi = 0; yyi < yynrhs; yyi++) -- { -- YYFPRINTF (stderr, " $%d = ", yyi + 1); -- yy_symbol_print (stderr, -- yystos[yyssp[yyi + 1 - yynrhs]], -- &(yyvsp[(yyi + 1) - (yynrhs)]) -- ); -- YYFPRINTF (stderr, "\n"); -- } --} -- --# define YY_REDUCE_PRINT(Rule) \ --do { \ -- if (yydebug) \ -- yy_reduce_print (yyssp, yyvsp, Rule); \ --} while (0) -- --/* Nonzero means print parse trace. It is left uninitialized so that -- multiple parsers can coexist. */ --int yydebug; --#else /* !YYDEBUG */ --# define YYDPRINTF(Args) --# define YY_SYMBOL_PRINT(Title, Type, Value, Location) --# define YY_STACK_PRINT(Bottom, Top) --# define YY_REDUCE_PRINT(Rule) --#endif /* !YYDEBUG */ -- -- --/* YYINITDEPTH -- initial size of the parser's stacks. */ --#ifndef YYINITDEPTH --# define YYINITDEPTH 200 --#endif -- --/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only -- if the built-in stack extension method is used). -- -- Do not make this value too large; the results are undefined if -- YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) -- evaluated with infinite-precision integer arithmetic. */ -- --#ifndef YYMAXDEPTH --# define YYMAXDEPTH 10000 --#endif -- -- --#if YYERROR_VERBOSE -- --# ifndef yystrlen --# if defined __GLIBC__ && defined _STRING_H --# define yystrlen strlen --# else --/* Return the length of YYSTR. */ --static YYSIZE_T --yystrlen (const char *yystr) --{ -- YYSIZE_T yylen; -- for (yylen = 0; yystr[yylen]; yylen++) -- continue; -- return yylen; --} --# endif --# endif -- --# ifndef yystpcpy --# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE --# define yystpcpy stpcpy --# else --/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in -- YYDEST. */ --static char * --yystpcpy (char *yydest, const char *yysrc) --{ -- char *yyd = yydest; -- const char *yys = yysrc; -- -- while ((*yyd++ = *yys++) != '\0') -- continue; -- -- return yyd - 1; --} --# endif --# endif -- --# ifndef yytnamerr --/* Copy to YYRES the contents of YYSTR after stripping away unnecessary -- quotes and backslashes, so that it's suitable for yyerror. The -- heuristic is that double-quoting is unnecessary unless the string -- contains an apostrophe, a comma, or backslash (other than -- backslash-backslash). YYSTR is taken from yytname. If YYRES is -- null, do not copy; instead, return the length of what the result -- would have been. */ --static YYSIZE_T --yytnamerr (char *yyres, const char *yystr) --{ -- if (*yystr == '"') -- { -- YYSIZE_T yyn = 0; -- char const *yyp = yystr; -- -- for (;;) -- switch (*++yyp) -- { -- case '\'': -- case ',': -- goto do_not_strip_quotes; -- -- case '\\': -- if (*++yyp != '\\') -- goto do_not_strip_quotes; -- /* Fall through. */ -- default: -- if (yyres) -- yyres[yyn] = *yyp; -- yyn++; -- break; -- -- case '"': -- if (yyres) -- yyres[yyn] = '\0'; -- return yyn; -- } -- do_not_strip_quotes: ; -- } -- -- if (! yyres) -- return yystrlen (yystr); -- -- return yystpcpy (yyres, yystr) - yyres; --} --# endif -- --/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message -- about the unexpected token YYTOKEN for the state stack whose top is -- YYSSP. -- -- Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is -- not large enough to hold the message. In that case, also set -- *YYMSG_ALLOC to the required number of bytes. Return 2 if the -- required number of bytes is too large to store. */ --static int --yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, -- yytype_int16 *yyssp, int yytoken) --{ -- YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); -- YYSIZE_T yysize = yysize0; -- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; -- /* Internationalized format string. */ -- const char *yyformat = YY_NULLPTR; -- /* Arguments of yyformat. */ -- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; -- /* Number of reported tokens (one for the "unexpected", one per -- "expected"). */ -- int yycount = 0; -- -- /* There are many possibilities here to consider: -- - If this state is a consistent state with a default action, then -- the only way this function was invoked is if the default action -- is an error action. In that case, don't check for expected -- tokens because there are none. -- - The only way there can be no lookahead present (in yychar) is if -- this state is a consistent state with a default action. Thus, -- detecting the absence of a lookahead is sufficient to determine -- that there is no unexpected or expected token to report. In that -- case, just report a simple "syntax error". -- - Don't assume there isn't a lookahead just because this state is a -- consistent state with a default action. There might have been a -- previous inconsistent state, consistent state with a non-default -- action, or user semantic action that manipulated yychar. -- - Of course, the expected token list depends on states to have -- correct lookahead information, and it depends on the parser not -- to perform extra reductions after fetching a lookahead from the -- scanner and before detecting a syntax error. Thus, state merging -- (from LALR or IELR) and default reductions corrupt the expected -- token list. However, the list is correct for canonical LR with -- one exception: it will still contain any token that will not be -- accepted due to an error action in a later state. -- */ -- if (yytoken != YYEMPTY) -- { -- int yyn = yypact[*yyssp]; -- yyarg[yycount++] = yytname[yytoken]; -- if (!yypact_value_is_default (yyn)) -- { -- /* Start YYX at -YYN if negative to avoid negative indexes in -- YYCHECK. In other words, skip the first -YYN actions for -- this state because they are default actions. */ -- int yyxbegin = yyn < 0 ? -yyn : 0; -- /* Stay within bounds of both yycheck and yytname. */ -- int yychecklim = YYLAST - yyn + 1; -- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; -- int yyx; -- -- for (yyx = yyxbegin; yyx < yyxend; ++yyx) -- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR -- && !yytable_value_is_error (yytable[yyx + yyn])) -- { -- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) -- { -- yycount = 1; -- yysize = yysize0; -- break; -- } -- yyarg[yycount++] = yytname[yyx]; -- { -- YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); -- if (! (yysize <= yysize1 -- && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) -- return 2; -- yysize = yysize1; -- } -- } -- } -- } -- -- switch (yycount) -- { --# define YYCASE_(N, S) \ -- case N: \ -- yyformat = S; \ -- break -- YYCASE_(0, YY_("syntax error")); -- YYCASE_(1, YY_("syntax error, unexpected %s")); -- YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); -- YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); -- YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); -- YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); --# undef YYCASE_ -- } -- -- { -- YYSIZE_T yysize1 = yysize + yystrlen (yyformat); -- if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) -- return 2; -- yysize = yysize1; -- } -- -- if (*yymsg_alloc < yysize) -- { -- *yymsg_alloc = 2 * yysize; -- if (! (yysize <= *yymsg_alloc -- && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) -- *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; -- return 1; -- } -- -- /* Avoid sprintf, as that infringes on the user's name space. -- Don't have undefined behavior even if the translation -- produced a string with the wrong number of "%s"s. */ -- { -- char *yyp = *yymsg; -- int yyi = 0; -- while ((*yyp = *yyformat) != '\0') -- if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) -- { -- yyp += yytnamerr (yyp, yyarg[yyi++]); -- yyformat += 2; -- } -- else -- { -- yyp++; -- yyformat++; -- } -- } -- return 0; --} --#endif /* YYERROR_VERBOSE */ -- --/*-----------------------------------------------. --| Release the memory associated to this symbol. | --`-----------------------------------------------*/ -- --static void --yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) --{ -- YYUSE (yyvaluep); -- if (!yymsg) -- yymsg = "Deleting"; -- YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); -- -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- YYUSE (yytype); -- YY_IGNORE_MAYBE_UNINITIALIZED_END --} -- -- -- -- --/* The lookahead symbol. */ --int yychar; -- --/* The semantic value of the lookahead symbol. */ --YYSTYPE yylval; --/* Number of syntax errors so far. */ --int yynerrs; -- -- --/*----------. --| yyparse. | --`----------*/ -- --int --yyparse (void) --{ -- int yystate; -- /* Number of tokens to shift before error messages enabled. */ -- int yyerrstatus; -- -- /* The stacks and their tools: -- 'yyss': related to states. -- 'yyvs': related to semantic values. -- -- Refer to the stacks through separate pointers, to allow yyoverflow -- to reallocate them elsewhere. */ -- -- /* The state stack. */ -- yytype_int16 yyssa[YYINITDEPTH]; -- yytype_int16 *yyss; -- yytype_int16 *yyssp; -- -- /* The semantic value stack. */ -- YYSTYPE yyvsa[YYINITDEPTH]; -- YYSTYPE *yyvs; -- YYSTYPE *yyvsp; -- -- YYSIZE_T yystacksize; -- -- int yyn; -- int yyresult; -- /* Lookahead token as an internal (translated) token number. */ -- int yytoken = 0; -- /* The variables used to return semantic value and location from the -- action routines. */ -- YYSTYPE yyval; -- --#if YYERROR_VERBOSE -- /* Buffer for error messages, and its allocated size. */ -- char yymsgbuf[128]; -- char *yymsg = yymsgbuf; -- YYSIZE_T yymsg_alloc = sizeof yymsgbuf; --#endif -- --#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) -- -- /* The number of symbols on the RHS of the reduced rule. -- Keep to zero when no symbol should be popped. */ -- int yylen = 0; -- -- yyssp = yyss = yyssa; -- yyvsp = yyvs = yyvsa; -- yystacksize = YYINITDEPTH; -- -- YYDPRINTF ((stderr, "Starting parse\n")); -- -- yystate = 0; -- yyerrstatus = 0; -- yynerrs = 0; -- yychar = YYEMPTY; /* Cause a token to be read. */ -- goto yysetstate; -- --/*------------------------------------------------------------. --| yynewstate -- Push a new state, which is found in yystate. | --`------------------------------------------------------------*/ -- yynewstate: -- /* In all cases, when you get here, the value and location stacks -- have just been pushed. So pushing a state here evens the stacks. */ -- yyssp++; -- -- yysetstate: -- *yyssp = yystate; -- -- if (yyss + yystacksize - 1 <= yyssp) -- { -- /* Get the current used size of the three stacks, in elements. */ -- YYSIZE_T yysize = yyssp - yyss + 1; -- --#ifdef yyoverflow -- { -- /* Give user a chance to reallocate the stack. Use copies of -- these so that the &'s don't force the real ones into -- memory. */ -- YYSTYPE *yyvs1 = yyvs; -- yytype_int16 *yyss1 = yyss; -- -- /* Each stack pointer address is followed by the size of the -- data in use in that stack, in bytes. This used to be a -- conditional around just the two extra args, but that might -- be undefined if yyoverflow is a macro. */ -- yyoverflow (YY_("memory exhausted"), -- &yyss1, yysize * sizeof (*yyssp), -- &yyvs1, yysize * sizeof (*yyvsp), -- &yystacksize); -- -- yyss = yyss1; -- yyvs = yyvs1; -- } --#else /* no yyoverflow */ --# ifndef YYSTACK_RELOCATE -- goto yyexhaustedlab; --# else -- /* Extend the stack our own way. */ -- if (YYMAXDEPTH <= yystacksize) -- goto yyexhaustedlab; -- yystacksize *= 2; -- if (YYMAXDEPTH < yystacksize) -- yystacksize = YYMAXDEPTH; -- -- { -- yytype_int16 *yyss1 = yyss; -- union yyalloc *yyptr = -- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); -- if (! yyptr) -- goto yyexhaustedlab; -- YYSTACK_RELOCATE (yyss_alloc, yyss); -- YYSTACK_RELOCATE (yyvs_alloc, yyvs); --# undef YYSTACK_RELOCATE -- if (yyss1 != yyssa) -- YYSTACK_FREE (yyss1); -- } --# endif --#endif /* no yyoverflow */ -- -- yyssp = yyss + yysize - 1; -- yyvsp = yyvs + yysize - 1; -- -- YYDPRINTF ((stderr, "Stack size increased to %lu\n", -- (unsigned long int) yystacksize)); -- -- if (yyss + yystacksize - 1 <= yyssp) -- YYABORT; -- } -- -- YYDPRINTF ((stderr, "Entering state %d\n", yystate)); -- -- if (yystate == YYFINAL) -- YYACCEPT; -- -- goto yybackup; -- --/*-----------. --| yybackup. | --`-----------*/ --yybackup: -- -- /* Do appropriate processing given the current state. Read a -- lookahead token if we need one and don't already have one. */ -- -- /* First try to decide what to do without reference to lookahead token. */ -- yyn = yypact[yystate]; -- if (yypact_value_is_default (yyn)) -- goto yydefault; -- -- /* Not known => get a lookahead token if don't already have one. */ -- -- /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ -- if (yychar == YYEMPTY) -- { -- YYDPRINTF ((stderr, "Reading a token: ")); -- yychar = yylex (); -- } -- -- if (yychar <= YYEOF) -- { -- yychar = yytoken = YYEOF; -- YYDPRINTF ((stderr, "Now at end of input.\n")); -- } -- else -- { -- yytoken = YYTRANSLATE (yychar); -- YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); -- } -- -- /* If the proper action on seeing token YYTOKEN is to reduce or to -- detect an error, take that action. */ -- yyn += yytoken; -- if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) -- goto yydefault; -- yyn = yytable[yyn]; -- if (yyn <= 0) -- { -- if (yytable_value_is_error (yyn)) -- goto yyerrlab; -- yyn = -yyn; -- goto yyreduce; -- } -- -- /* Count tokens shifted since error; after three, turn off error -- status. */ -- if (yyerrstatus) -- yyerrstatus--; -- -- /* Shift the lookahead token. */ -- YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); -- -- /* Discard the shifted token. */ -- yychar = YYEMPTY; -- -- yystate = yyn; -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- *++yyvsp = yylval; -- YY_IGNORE_MAYBE_UNINITIALIZED_END -- -- goto yynewstate; -- -- --/*-----------------------------------------------------------. --| yydefault -- do the default action for the current state. | --`-----------------------------------------------------------*/ --yydefault: -- yyn = yydefact[yystate]; -- if (yyn == 0) -- goto yyerrlab; -- goto yyreduce; -- -- --/*-----------------------------. --| yyreduce -- Do a reduction. | --`-----------------------------*/ --yyreduce: -- /* yyn is the number of a rule to reduce with. */ -- yylen = yyr2[yyn]; -- -- /* If YYLEN is nonzero, implement the default value of the action: -- '$$ = $1'. -- -- Otherwise, the following line sets YYVAL to garbage. -- This behavior is undocumented and Bison -- users should not rely upon it. Assigning to YYVAL -- unconditionally makes the parser a bit smaller, and it avoids a -- GCC warning that YYVAL may be used uninitialized. */ -- yyval = yyvsp[1-yylen]; -- -- -- YY_REDUCE_PRINT (yyn); -- switch (yyn) -- { -- case 3: --#line 277 "pic.y" /* yacc.c:1646 */ -- { -- if (olist.head) -- print_picture(olist.head); -- } --#line 2260 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 4: --#line 286 "pic.y" /* yacc.c:1646 */ -- { (yyval.pl) = (yyvsp[-1].pl); } --#line 2266 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 5: --#line 291 "pic.y" /* yacc.c:1646 */ -- { (yyval.pl) = (yyvsp[0].pl); } --#line 2272 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 6: --#line 293 "pic.y" /* yacc.c:1646 */ -- { (yyval.pl) = (yyvsp[-2].pl); } --#line 2278 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 11: --#line 308 "pic.y" /* yacc.c:1646 */ -- { -- a_delete graphname; -- graphname = new char[strlen((yyvsp[0].str)) + 1]; -- strcpy(graphname, (yyvsp[0].str)); -- a_delete (yyvsp[0].str); -- } --#line 2289 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 12: --#line 316 "pic.y" /* yacc.c:1646 */ -- { -- define_variable((yyvsp[-2].str), (yyvsp[0].x)); -- a_delete (yyvsp[-2].str); -- } --#line 2298 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 13: --#line 321 "pic.y" /* yacc.c:1646 */ -- { -- place *p = lookup_label((yyvsp[-3].str)); -- if (!p) { -- lex_error("variable `%1' not defined", (yyvsp[-3].str)); -- YYABORT; -- } -- p->obj = 0; -- p->x = (yyvsp[0].x); -- p->y = 0.0; -- a_delete (yyvsp[-3].str); -- } --#line 2314 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 14: --#line 333 "pic.y" /* yacc.c:1646 */ -- { current_direction = UP_DIRECTION; } --#line 2320 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 15: --#line 335 "pic.y" /* yacc.c:1646 */ -- { current_direction = DOWN_DIRECTION; } --#line 2326 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 16: --#line 337 "pic.y" /* yacc.c:1646 */ -- { current_direction = LEFT_DIRECTION; } --#line 2332 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 17: --#line 339 "pic.y" /* yacc.c:1646 */ -- { current_direction = RIGHT_DIRECTION; } --#line 2338 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 18: --#line 341 "pic.y" /* yacc.c:1646 */ -- { -- olist.append(make_command_object((yyvsp[0].lstr).str, (yyvsp[0].lstr).filename, -- (yyvsp[0].lstr).lineno)); -- } --#line 2347 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 19: --#line 346 "pic.y" /* yacc.c:1646 */ -- { -- olist.append(make_command_object((yyvsp[0].lstr).str, (yyvsp[0].lstr).filename, -- (yyvsp[0].lstr).lineno)); -- } --#line 2356 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 20: --#line 351 "pic.y" /* yacc.c:1646 */ -- { -- fprintf(stderr, "%s\n", (yyvsp[0].lstr).str); -- a_delete (yyvsp[0].lstr).str; -- fflush(stderr); -- } --#line 2366 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 21: --#line 357 "pic.y" /* yacc.c:1646 */ -- { delim_flag = 1; } --#line 2372 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 22: --#line 359 "pic.y" /* yacc.c:1646 */ -- { -- delim_flag = 0; -- if (safer_flag) -- lex_error("unsafe to run command `%1'", (yyvsp[0].str)); -- else -- system((yyvsp[0].str)); -- a_delete (yyvsp[0].str); -- } --#line 2385 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 23: --#line 368 "pic.y" /* yacc.c:1646 */ -- { -- if (yychar < 0) -- do_lookahead(); -- do_copy((yyvsp[0].lstr).str); -- // do not delete the filename -- } --#line 2396 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 24: --#line 375 "pic.y" /* yacc.c:1646 */ -- { delim_flag = 2; } --#line 2402 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 25: --#line 377 "pic.y" /* yacc.c:1646 */ -- { delim_flag = 0; } --#line 2408 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 26: --#line 379 "pic.y" /* yacc.c:1646 */ -- { -- if (yychar < 0) -- do_lookahead(); -- copy_file_thru((yyvsp[-5].lstr).str, (yyvsp[-2].str), (yyvsp[0].str)); -- // do not delete the filename -- a_delete (yyvsp[-2].str); -- a_delete (yyvsp[0].str); -- } --#line 2421 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 27: --#line 388 "pic.y" /* yacc.c:1646 */ -- { delim_flag = 2; } --#line 2427 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 28: --#line 390 "pic.y" /* yacc.c:1646 */ -- { delim_flag = 0; } --#line 2433 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 29: --#line 392 "pic.y" /* yacc.c:1646 */ -- { -- if (yychar < 0) -- do_lookahead(); -- copy_rest_thru((yyvsp[-2].str), (yyvsp[0].str)); -- a_delete (yyvsp[-2].str); -- a_delete (yyvsp[0].str); -- } --#line 2445 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 30: --#line 400 "pic.y" /* yacc.c:1646 */ -- { delim_flag = 1; } --#line 2451 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 31: --#line 402 "pic.y" /* yacc.c:1646 */ -- { -- delim_flag = 0; -- if (yychar < 0) -- do_lookahead(); -- do_for((yyvsp[-8].str), (yyvsp[-6].x), (yyvsp[-4].x), (yyvsp[-3].by).is_multiplicative, (yyvsp[-3].by).val, (yyvsp[0].str)); -- } --#line 2462 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 32: --#line 409 "pic.y" /* yacc.c:1646 */ -- { -- if (yychar < 0) -- do_lookahead(); -- if ((yyvsp[0].if_data).x != 0.0) -- push_body((yyvsp[0].if_data).body); -- a_delete (yyvsp[0].if_data).body; -- } --#line 2474 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 33: --#line 417 "pic.y" /* yacc.c:1646 */ -- { delim_flag = 1; } --#line 2480 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 34: --#line 419 "pic.y" /* yacc.c:1646 */ -- { -- delim_flag = 0; -- if (yychar < 0) -- do_lookahead(); -- if ((yyvsp[-3].if_data).x != 0.0) -- push_body((yyvsp[-3].if_data).body); -- else -- push_body((yyvsp[0].str)); -- a_delete (yyvsp[-3].if_data).body; -- a_delete (yyvsp[0].str); -- } --#line 2496 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 36: --#line 432 "pic.y" /* yacc.c:1646 */ -- { define_variable("scale", 1.0); } --#line 2502 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 39: --#line 442 "pic.y" /* yacc.c:1646 */ -- { -- reset((yyvsp[0].str)); -- a_delete (yyvsp[0].str); -- } --#line 2511 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 40: --#line 447 "pic.y" /* yacc.c:1646 */ -- { -- reset((yyvsp[0].str)); -- a_delete (yyvsp[0].str); -- } --#line 2520 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 41: --#line 452 "pic.y" /* yacc.c:1646 */ -- { -- reset((yyvsp[0].str)); -- a_delete (yyvsp[0].str); -- } --#line 2529 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 42: --#line 460 "pic.y" /* yacc.c:1646 */ -- { (yyval.lstr) = (yyvsp[0].lstr); } --#line 2535 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 43: --#line 462 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.lstr).str = new char[strlen((yyvsp[-1].lstr).str) + strlen((yyvsp[0].lstr).str) + 1]; -- strcpy((yyval.lstr).str, (yyvsp[-1].lstr).str); -- strcat((yyval.lstr).str, (yyvsp[0].lstr).str); -- a_delete (yyvsp[-1].lstr).str; -- a_delete (yyvsp[0].lstr).str; -- if ((yyvsp[-1].lstr).filename) { -- (yyval.lstr).filename = (yyvsp[-1].lstr).filename; -- (yyval.lstr).lineno = (yyvsp[-1].lstr).lineno; -- } -- else if ((yyvsp[0].lstr).filename) { -- (yyval.lstr).filename = (yyvsp[0].lstr).filename; -- (yyval.lstr).lineno = (yyvsp[0].lstr).lineno; -- } -- } --#line 2555 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 44: --#line 481 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.lstr).str = new char[GDIGITS + 1]; -- sprintf((yyval.lstr).str, "%g", (yyvsp[0].x)); -- (yyval.lstr).filename = 0; -- (yyval.lstr).lineno = 0; -- } --#line 2566 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 45: --#line 488 "pic.y" /* yacc.c:1646 */ -- { (yyval.lstr) = (yyvsp[0].lstr); } --#line 2572 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 46: --#line 490 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.lstr).str = new char[GDIGITS + 2 + GDIGITS + 1]; -- sprintf((yyval.lstr).str, "%g, %g", (yyvsp[0].pair).x, (yyvsp[0].pair).y); -- (yyval.lstr).filename = 0; -- (yyval.lstr).lineno = 0; -- } --#line 2583 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 47: --#line 500 "pic.y" /* yacc.c:1646 */ -- { delim_flag = 1; } --#line 2589 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 48: --#line 502 "pic.y" /* yacc.c:1646 */ -- { -- delim_flag = 0; -- (yyval.if_data).x = (yyvsp[-3].x); -- (yyval.if_data).body = (yyvsp[0].str); -- } --#line 2599 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 49: --#line 511 "pic.y" /* yacc.c:1646 */ -- { (yyval.str) = 0; } --#line 2605 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 50: --#line 513 "pic.y" /* yacc.c:1646 */ -- { (yyval.str) = (yyvsp[0].lstr).str; } --#line 2611 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 51: --#line 518 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[0].x); } --#line 2617 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 52: --#line 520 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[0].x); } --#line 2623 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 53: --#line 525 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.x) = strcmp((yyvsp[-2].lstr).str, (yyvsp[0].lstr).str) == 0; -- a_delete (yyvsp[-2].lstr).str; -- a_delete (yyvsp[0].lstr).str; -- } --#line 2633 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 54: --#line 531 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.x) = strcmp((yyvsp[-2].lstr).str, (yyvsp[0].lstr).str) != 0; -- a_delete (yyvsp[-2].lstr).str; -- a_delete (yyvsp[0].lstr).str; -- } --#line 2643 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 55: --#line 537 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != 0.0 && (yyvsp[0].x) != 0.0); } --#line 2649 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 56: --#line 539 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != 0.0 && (yyvsp[0].x) != 0.0); } --#line 2655 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 57: --#line 541 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != 0.0 && (yyvsp[0].x) != 0.0); } --#line 2661 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 58: --#line 543 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != 0.0 || (yyvsp[0].x) != 0.0); } --#line 2667 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 59: --#line 545 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != 0.0 || (yyvsp[0].x) != 0.0); } --#line 2673 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 60: --#line 547 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != 0.0 || (yyvsp[0].x) != 0.0); } --#line 2679 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 61: --#line 549 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[0].x) == 0.0); } --#line 2685 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 62: --#line 555 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.by).val = 1.0; -- (yyval.by).is_multiplicative = 0; -- } --#line 2694 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 63: --#line 560 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.by).val = (yyvsp[0].x); -- (yyval.by).is_multiplicative = 0; -- } --#line 2703 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 64: --#line 565 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.by).val = (yyvsp[0].x); -- (yyval.by).is_multiplicative = 1; -- } --#line 2712 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 65: --#line 573 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pl).obj = (yyvsp[0].spec)->make_object(¤t_position, -- ¤t_direction); -- if ((yyval.pl).obj == 0) -- YYABORT; -- delete (yyvsp[0].spec); -- if ((yyval.pl).obj) -- olist.append((yyval.pl).obj); -- else { -- (yyval.pl).x = current_position.x; -- (yyval.pl).y = current_position.y; -- } -- } --#line 2730 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 66: --#line 587 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pl) = (yyvsp[0].pl); -- define_label((yyvsp[-3].str), & (yyval.pl)); -- a_delete (yyvsp[-3].str); -- } --#line 2740 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 67: --#line 593 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pl).obj = 0; -- (yyval.pl).x = (yyvsp[0].pair).x; -- (yyval.pl).y = (yyvsp[0].pair).y; -- define_label((yyvsp[-3].str), & (yyval.pl)); -- a_delete (yyvsp[-3].str); -- } --#line 2752 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 68: --#line 601 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pl) = (yyvsp[0].pl); -- define_label((yyvsp[-3].str), & (yyval.pl)); -- a_delete (yyvsp[-3].str); -- } --#line 2762 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 69: --#line 607 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.state).x = current_position.x; -- (yyval.state).y = current_position.y; -- (yyval.state).dir = current_direction; -- } --#line 2772 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 70: --#line 613 "pic.y" /* yacc.c:1646 */ -- { -- current_position.x = (yyvsp[-2].state).x; -- current_position.y = (yyvsp[-2].state).y; -- current_direction = (yyvsp[-2].state).dir; -- } --#line 2782 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 71: --#line 619 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pl) = (yyvsp[-3].pl); -- } --#line 2790 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 72: --#line 623 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pl).obj = 0; -- (yyval.pl).x = current_position.x; -- (yyval.pl).y = current_position.y; -- } --#line 2800 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 73: --#line 632 "pic.y" /* yacc.c:1646 */ -- {} --#line 2806 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 74: --#line 634 "pic.y" /* yacc.c:1646 */ -- {} --#line 2812 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 75: --#line 639 "pic.y" /* yacc.c:1646 */ -- { (yyval.spec) = new object_spec(BOX_OBJECT); } --#line 2818 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 76: --#line 641 "pic.y" /* yacc.c:1646 */ -- { (yyval.spec) = new object_spec(CIRCLE_OBJECT); } --#line 2824 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 77: --#line 643 "pic.y" /* yacc.c:1646 */ -- { (yyval.spec) = new object_spec(ELLIPSE_OBJECT); } --#line 2830 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 78: --#line 645 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = new object_spec(ARC_OBJECT); -- (yyval.spec)->dir = current_direction; -- } --#line 2839 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 79: --#line 650 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = new object_spec(LINE_OBJECT); -- lookup_variable("lineht", & (yyval.spec)->segment_height); -- lookup_variable("linewid", & (yyval.spec)->segment_width); -- (yyval.spec)->dir = current_direction; -- } --#line 2850 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 80: --#line 657 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = new object_spec(ARROW_OBJECT); -- lookup_variable("lineht", & (yyval.spec)->segment_height); -- lookup_variable("linewid", & (yyval.spec)->segment_width); -- (yyval.spec)->dir = current_direction; -- } --#line 2861 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 81: --#line 664 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = new object_spec(MOVE_OBJECT); -- lookup_variable("moveht", & (yyval.spec)->segment_height); -- lookup_variable("movewid", & (yyval.spec)->segment_width); -- (yyval.spec)->dir = current_direction; -- } --#line 2872 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 82: --#line 671 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = new object_spec(SPLINE_OBJECT); -- lookup_variable("lineht", & (yyval.spec)->segment_height); -- lookup_variable("linewid", & (yyval.spec)->segment_width); -- (yyval.spec)->dir = current_direction; -- } --#line 2883 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 83: --#line 678 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = new object_spec(TEXT_OBJECT); -- (yyval.spec)->text = new text_item((yyvsp[0].lstr).str, (yyvsp[0].lstr).filename, (yyvsp[0].lstr).lineno); -- } --#line 2892 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 84: --#line 683 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = new object_spec(TEXT_OBJECT); -- (yyval.spec)->text = new text_item(format_number(0, (yyvsp[0].x)), 0, -1); -- } --#line 2901 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 85: --#line 688 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = new object_spec(TEXT_OBJECT); -- (yyval.spec)->text = new text_item(format_number((yyvsp[0].lstr).str, (yyvsp[-1].x)), -- (yyvsp[0].lstr).filename, (yyvsp[0].lstr).lineno); -- a_delete (yyvsp[0].lstr).str; -- } --#line 2912 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 86: --#line 695 "pic.y" /* yacc.c:1646 */ -- { -- saved_state *p = new saved_state; -- (yyval.pstate) = p; -- p->x = current_position.x; -- p->y = current_position.y; -- p->dir = current_direction; -- p->tbl = current_table; -- p->prev = current_saved_state; -- current_position.x = 0.0; -- current_position.y = 0.0; -- current_table = new PTABLE(place); -- current_saved_state = p; -- olist.append(make_mark_object()); -- } --#line 2931 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 87: --#line 710 "pic.y" /* yacc.c:1646 */ -- { -- current_position.x = (yyvsp[-2].pstate)->x; -- current_position.y = (yyvsp[-2].pstate)->y; -- current_direction = (yyvsp[-2].pstate)->dir; -- (yyval.spec) = new object_spec(BLOCK_OBJECT); -- olist.wrap_up_block(& (yyval.spec)->oblist); -- (yyval.spec)->tbl = current_table; -- current_table = (yyvsp[-2].pstate)->tbl; -- current_saved_state = (yyvsp[-2].pstate)->prev; -- delete (yyvsp[-2].pstate); -- } --#line 2947 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 88: --#line 722 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->height = (yyvsp[0].x); -- (yyval.spec)->flags |= HAS_HEIGHT; -- } --#line 2957 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 89: --#line 728 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->radius = (yyvsp[0].x); -- (yyval.spec)->flags |= HAS_RADIUS; -- } --#line 2967 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 90: --#line 734 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->width = (yyvsp[0].x); -- (yyval.spec)->flags |= HAS_WIDTH; -- } --#line 2977 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 91: --#line 740 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->radius = (yyvsp[0].x)/2.0; -- (yyval.spec)->flags |= HAS_RADIUS; -- } --#line 2987 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 92: --#line 746 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= HAS_SEGMENT; -- switch ((yyval.spec)->dir) { -- case UP_DIRECTION: -- (yyval.spec)->segment_pos.y += (yyvsp[0].x); -- break; -- case DOWN_DIRECTION: -- (yyval.spec)->segment_pos.y -= (yyvsp[0].x); -- break; -- case RIGHT_DIRECTION: -- (yyval.spec)->segment_pos.x += (yyvsp[0].x); -- break; -- case LEFT_DIRECTION: -- (yyval.spec)->segment_pos.x -= (yyvsp[0].x); -- break; -- } -- } --#line 3010 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 93: --#line 765 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->dir = UP_DIRECTION; -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.y += (yyval.spec)->segment_height; -- } --#line 3021 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 94: --#line 772 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->dir = UP_DIRECTION; -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.y += (yyvsp[0].x); -- } --#line 3032 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 95: --#line 779 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->dir = DOWN_DIRECTION; -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.y -= (yyval.spec)->segment_height; -- } --#line 3043 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 96: --#line 786 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->dir = DOWN_DIRECTION; -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.y -= (yyvsp[0].x); -- } --#line 3054 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 97: --#line 793 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->dir = RIGHT_DIRECTION; -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.x += (yyval.spec)->segment_width; -- } --#line 3065 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 98: --#line 800 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->dir = RIGHT_DIRECTION; -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.x += (yyvsp[0].x); -- } --#line 3076 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 99: --#line 807 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->dir = LEFT_DIRECTION; -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.x -= (yyval.spec)->segment_width; -- } --#line 3087 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 100: --#line 814 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->dir = LEFT_DIRECTION; -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.x -= (yyvsp[0].x); -- } --#line 3098 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 101: --#line 821 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= HAS_FROM; -- (yyval.spec)->from.x = (yyvsp[0].pair).x; -- (yyval.spec)->from.y = (yyvsp[0].pair).y; -- } --#line 3109 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 102: --#line 828 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- if ((yyval.spec)->flags & HAS_SEGMENT) -- (yyval.spec)->segment_list = new segment((yyval.spec)->segment_pos, -- (yyval.spec)->segment_is_absolute, -- (yyval.spec)->segment_list); -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.x = (yyvsp[0].pair).x; -- (yyval.spec)->segment_pos.y = (yyvsp[0].pair).y; -- (yyval.spec)->segment_is_absolute = 1; -- (yyval.spec)->flags |= HAS_TO; -- (yyval.spec)->to.x = (yyvsp[0].pair).x; -- (yyval.spec)->to.y = (yyvsp[0].pair).y; -- } --#line 3128 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 103: --#line 843 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= HAS_AT; -- (yyval.spec)->at.x = (yyvsp[0].pair).x; -- (yyval.spec)->at.y = (yyvsp[0].pair).y; -- if ((yyval.spec)->type != ARC_OBJECT) { -- (yyval.spec)->flags |= HAS_FROM; -- (yyval.spec)->from.x = (yyvsp[0].pair).x; -- (yyval.spec)->from.y = (yyvsp[0].pair).y; -- } -- } --#line 3144 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 104: --#line 855 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= HAS_WITH; -- (yyval.spec)->with = (yyvsp[0].pth); -- } --#line 3154 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 105: --#line 861 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= HAS_WITH; -- position pos; -- pos.x = (yyvsp[0].pair).x; -- pos.y = (yyvsp[0].pair).y; -- (yyval.spec)->with = new path(pos); -- } --#line 3167 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 106: --#line 870 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= HAS_SEGMENT; -- (yyval.spec)->segment_pos.x += (yyvsp[0].pair).x; -- (yyval.spec)->segment_pos.y += (yyvsp[0].pair).y; -- } --#line 3178 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 107: --#line 877 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- if (!((yyval.spec)->flags & HAS_SEGMENT)) -- switch ((yyval.spec)->dir) { -- case UP_DIRECTION: -- (yyval.spec)->segment_pos.y += (yyval.spec)->segment_width; -- break; -- case DOWN_DIRECTION: -- (yyval.spec)->segment_pos.y -= (yyval.spec)->segment_width; -- break; -- case RIGHT_DIRECTION: -- (yyval.spec)->segment_pos.x += (yyval.spec)->segment_width; -- break; -- case LEFT_DIRECTION: -- (yyval.spec)->segment_pos.x -= (yyval.spec)->segment_width; -- break; -- } -- (yyval.spec)->segment_list = new segment((yyval.spec)->segment_pos, -- (yyval.spec)->segment_is_absolute, -- (yyval.spec)->segment_list); -- (yyval.spec)->flags &= ~HAS_SEGMENT; -- (yyval.spec)->segment_pos.x = (yyval.spec)->segment_pos.y = 0.0; -- (yyval.spec)->segment_is_absolute = 0; -- } --#line 3207 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 108: --#line 902 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); // nothing -- } --#line 3215 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 109: --#line 906 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= IS_DOTTED; -- lookup_variable("dashwid", & (yyval.spec)->dash_width); -- } --#line 3225 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 110: --#line 912 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= IS_DOTTED; -- (yyval.spec)->dash_width = (yyvsp[0].x); -- } --#line 3235 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 111: --#line 918 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= IS_DASHED; -- lookup_variable("dashwid", & (yyval.spec)->dash_width); -- } --#line 3245 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 112: --#line 924 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= IS_DASHED; -- (yyval.spec)->dash_width = (yyvsp[0].x); -- } --#line 3255 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 113: --#line 930 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= IS_DEFAULT_FILLED; -- } --#line 3264 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 114: --#line 935 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= IS_FILLED; -- (yyval.spec)->fill = (yyvsp[0].x); -- } --#line 3274 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 115: --#line 941 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= IS_XSLANTED; -- (yyval.spec)->xslanted = (yyvsp[0].x); -- } --#line 3284 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 116: --#line 947 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= IS_YSLANTED; -- (yyval.spec)->yslanted = (yyvsp[0].x); -- } --#line 3294 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 117: --#line 953 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= (IS_SHADED | IS_FILLED); -- (yyval.spec)->shaded = new char[strlen((yyvsp[0].lstr).str)+1]; -- strcpy((yyval.spec)->shaded, (yyvsp[0].lstr).str); -- } --#line 3305 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 118: --#line 960 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= (IS_SHADED | IS_OUTLINED | IS_FILLED); -- (yyval.spec)->shaded = new char[strlen((yyvsp[0].lstr).str)+1]; -- strcpy((yyval.spec)->shaded, (yyvsp[0].lstr).str); -- (yyval.spec)->outlined = new char[strlen((yyvsp[0].lstr).str)+1]; -- strcpy((yyval.spec)->outlined, (yyvsp[0].lstr).str); -- } --#line 3318 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 119: --#line 969 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= IS_OUTLINED; -- (yyval.spec)->outlined = new char[strlen((yyvsp[0].lstr).str)+1]; -- strcpy((yyval.spec)->outlined, (yyvsp[0].lstr).str); -- } --#line 3329 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 120: --#line 976 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- // line chop chop means line chop 0 chop 0 -- if ((yyval.spec)->flags & IS_DEFAULT_CHOPPED) { -- (yyval.spec)->flags |= IS_CHOPPED; -- (yyval.spec)->flags &= ~IS_DEFAULT_CHOPPED; -- (yyval.spec)->start_chop = (yyval.spec)->end_chop = 0.0; -- } -- else if ((yyval.spec)->flags & IS_CHOPPED) { -- (yyval.spec)->end_chop = 0.0; -- } -- else { -- (yyval.spec)->flags |= IS_DEFAULT_CHOPPED; -- } -- } --#line 3349 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 121: --#line 992 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- if ((yyval.spec)->flags & IS_DEFAULT_CHOPPED) { -- (yyval.spec)->flags |= IS_CHOPPED; -- (yyval.spec)->flags &= ~IS_DEFAULT_CHOPPED; -- (yyval.spec)->start_chop = 0.0; -- (yyval.spec)->end_chop = (yyvsp[0].x); -- } -- else if ((yyval.spec)->flags & IS_CHOPPED) { -- (yyval.spec)->end_chop = (yyvsp[0].x); -- } -- else { -- (yyval.spec)->start_chop = (yyval.spec)->end_chop = (yyvsp[0].x); -- (yyval.spec)->flags |= IS_CHOPPED; -- } -- } --#line 3370 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 122: --#line 1009 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= IS_SAME; -- } --#line 3379 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 123: --#line 1014 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= IS_INVISIBLE; -- } --#line 3388 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 124: --#line 1019 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= HAS_LEFT_ARROW_HEAD; -- } --#line 3397 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 125: --#line 1024 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= HAS_RIGHT_ARROW_HEAD; -- } --#line 3406 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 126: --#line 1029 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= (HAS_LEFT_ARROW_HEAD|HAS_RIGHT_ARROW_HEAD); -- } --#line 3415 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 127: --#line 1034 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= IS_CLOCKWISE; -- } --#line 3424 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 128: --#line 1039 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags &= ~IS_CLOCKWISE; -- } --#line 3433 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 129: --#line 1044 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- text_item **p; -- for (p = & (yyval.spec)->text; *p; p = &(*p)->next) -- ; -- *p = new text_item((yyvsp[0].lstr).str, (yyvsp[0].lstr).filename, (yyvsp[0].lstr).lineno); -- } --#line 3445 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 130: --#line 1052 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- if ((yyval.spec)->text) { -- text_item *p; -- for (p = (yyval.spec)->text; p->next; p = p->next) -- ; -- p->adj.h = LEFT_ADJUST; -- } -- } --#line 3459 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 131: --#line 1062 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- if ((yyval.spec)->text) { -- text_item *p; -- for (p = (yyval.spec)->text; p->next; p = p->next) -- ; -- p->adj.h = RIGHT_ADJUST; -- } -- } --#line 3473 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 132: --#line 1072 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- if ((yyval.spec)->text) { -- text_item *p; -- for (p = (yyval.spec)->text; p->next; p = p->next) -- ; -- p->adj.v = ABOVE_ADJUST; -- } -- } --#line 3487 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 133: --#line 1082 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- if ((yyval.spec)->text) { -- text_item *p; -- for (p = (yyval.spec)->text; p->next; p = p->next) -- ; -- p->adj.v = BELOW_ADJUST; -- } -- } --#line 3501 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 134: --#line 1092 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-2].spec); -- (yyval.spec)->flags |= HAS_THICKNESS; -- (yyval.spec)->thickness = (yyvsp[0].x); -- } --#line 3511 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 135: --#line 1098 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.spec) = (yyvsp[-1].spec); -- (yyval.spec)->flags |= IS_ALIGNED; -- } --#line 3520 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 136: --#line 1106 "pic.y" /* yacc.c:1646 */ -- { (yyval.lstr) = (yyvsp[0].lstr); } --#line 3526 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 137: --#line 1108 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.lstr).filename = (yyvsp[-2].lstr).filename; -- (yyval.lstr).lineno = (yyvsp[-2].lstr).lineno; -- (yyval.lstr).str = do_sprintf((yyvsp[-2].lstr).str, (yyvsp[-1].dv).v, (yyvsp[-1].dv).nv); -- a_delete (yyvsp[-1].dv).v; -- a_delete (yyvsp[-2].lstr).str; -- } --#line 3538 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 138: --#line 1119 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.dv).v = 0; -- (yyval.dv).nv = 0; -- (yyval.dv).maxv = 0; -- } --#line 3548 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 139: --#line 1125 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.dv) = (yyvsp[-2].dv); -- if ((yyval.dv).nv >= (yyval.dv).maxv) { -- if ((yyval.dv).nv == 0) { -- (yyval.dv).v = new double[4]; -- (yyval.dv).maxv = 4; -- } -- else { -- double *oldv = (yyval.dv).v; -- (yyval.dv).maxv *= 2; --#if 0 -- (yyval.dv).v = new double[(yyval.dv).maxv]; -- memcpy((yyval.dv).v, oldv, (yyval.dv).nv*sizeof(double)); --#else -- // workaround for bug in Compaq C++ V6.5-033 -- // for Compaq Tru64 UNIX V5.1A (Rev. 1885) -- double *foo = new double[(yyval.dv).maxv]; -- memcpy(foo, oldv, (yyval.dv).nv*sizeof(double)); -- (yyval.dv).v = foo; --#endif -- a_delete oldv; -- } -- } -- (yyval.dv).v[(yyval.dv).nv] = (yyvsp[0].x); -- (yyval.dv).nv += 1; -- } --#line 3579 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 140: --#line 1155 "pic.y" /* yacc.c:1646 */ -- { (yyval.pair) = (yyvsp[0].pair); } --#line 3585 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 141: --#line 1157 "pic.y" /* yacc.c:1646 */ -- { -- position pos = (yyvsp[0].pl); -- (yyval.pair).x = pos.x; -- (yyval.pair).y = pos.y; -- } --#line 3595 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 142: --#line 1163 "pic.y" /* yacc.c:1646 */ -- { -- position pos = (yyvsp[-1].pl); -- (yyval.pair).x = pos.x; -- (yyval.pair).y = pos.y; -- } --#line 3605 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 143: --#line 1172 "pic.y" /* yacc.c:1646 */ -- { (yyval.pair) = (yyvsp[0].pair); } --#line 3611 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 144: --#line 1174 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (yyvsp[-2].pair).x + (yyvsp[0].pair).x; -- (yyval.pair).y = (yyvsp[-2].pair).y + (yyvsp[0].pair).y; -- } --#line 3620 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 145: --#line 1179 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (yyvsp[-3].pair).x + (yyvsp[-1].pair).x; -- (yyval.pair).y = (yyvsp[-3].pair).y + (yyvsp[-1].pair).y; -- } --#line 3629 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 146: --#line 1184 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (yyvsp[-2].pair).x - (yyvsp[0].pair).x; -- (yyval.pair).y = (yyvsp[-2].pair).y - (yyvsp[0].pair).y; -- } --#line 3638 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 147: --#line 1189 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (yyvsp[-3].pair).x - (yyvsp[-1].pair).x; -- (yyval.pair).y = (yyvsp[-3].pair).y - (yyvsp[-1].pair).y; -- } --#line 3647 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 148: --#line 1194 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (yyvsp[-3].pair).x; -- (yyval.pair).y = (yyvsp[-1].pair).y; -- } --#line 3656 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 149: --#line 1199 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (1.0 - (yyvsp[-4].x))*(yyvsp[-2].pair).x + (yyvsp[-4].x)*(yyvsp[0].pair).x; -- (yyval.pair).y = (1.0 - (yyvsp[-4].x))*(yyvsp[-2].pair).y + (yyvsp[-4].x)*(yyvsp[0].pair).y; -- } --#line 3665 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 150: --#line 1204 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (1.0 - (yyvsp[-5].x))*(yyvsp[-3].pair).x + (yyvsp[-5].x)*(yyvsp[-1].pair).x; -- (yyval.pair).y = (1.0 - (yyvsp[-5].x))*(yyvsp[-3].pair).y + (yyvsp[-5].x)*(yyvsp[-1].pair).y; -- } --#line 3674 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 151: --#line 1210 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (1.0 - (yyvsp[-5].x))*(yyvsp[-3].pair).x + (yyvsp[-5].x)*(yyvsp[-1].pair).x; -- (yyval.pair).y = (1.0 - (yyvsp[-5].x))*(yyvsp[-3].pair).y + (yyvsp[-5].x)*(yyvsp[-1].pair).y; -- } --#line 3683 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 152: --#line 1215 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (1.0 - (yyvsp[-6].x))*(yyvsp[-4].pair).x + (yyvsp[-6].x)*(yyvsp[-2].pair).x; -- (yyval.pair).y = (1.0 - (yyvsp[-6].x))*(yyvsp[-4].pair).y + (yyvsp[-6].x)*(yyvsp[-2].pair).y; -- } --#line 3692 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 155: --#line 1228 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pair).x = (yyvsp[-2].x); -- (yyval.pair).y = (yyvsp[0].x); -- } --#line 3701 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 156: --#line 1233 "pic.y" /* yacc.c:1646 */ -- { (yyval.pair) = (yyvsp[-1].pair); } --#line 3707 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 157: --#line 1239 "pic.y" /* yacc.c:1646 */ -- { (yyval.pl) = (yyvsp[0].pl); } --#line 3713 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 158: --#line 1241 "pic.y" /* yacc.c:1646 */ -- { -- path pth((yyvsp[0].crn)); -- if (!pth.follow((yyvsp[-1].pl), & (yyval.pl))) -- YYABORT; -- } --#line 3723 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 159: --#line 1247 "pic.y" /* yacc.c:1646 */ -- { -- path pth((yyvsp[-1].crn)); -- if (!pth.follow((yyvsp[0].pl), & (yyval.pl))) -- YYABORT; -- } --#line 3733 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 160: --#line 1253 "pic.y" /* yacc.c:1646 */ -- { -- path pth((yyvsp[-2].crn)); -- if (!pth.follow((yyvsp[0].pl), & (yyval.pl))) -- YYABORT; -- } --#line 3743 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 161: --#line 1259 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pl).x = current_position.x; -- (yyval.pl).y = current_position.y; -- (yyval.pl).obj = 0; -- } --#line 3753 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 162: --#line 1268 "pic.y" /* yacc.c:1646 */ -- { -- place *p = lookup_label((yyvsp[0].str)); -- if (!p) { -- lex_error("there is no place `%1'", (yyvsp[0].str)); -- YYABORT; -- } -- (yyval.pl) = *p; -- a_delete (yyvsp[0].str); -- } --#line 3767 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 163: --#line 1278 "pic.y" /* yacc.c:1646 */ -- { (yyval.pl).obj = (yyvsp[0].obj); } --#line 3773 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 164: --#line 1280 "pic.y" /* yacc.c:1646 */ -- { -- path pth((yyvsp[0].str)); -- if (!pth.follow((yyvsp[-2].pl), & (yyval.pl))) -- YYABORT; -- } --#line 3783 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 165: --#line 1289 "pic.y" /* yacc.c:1646 */ -- { (yyval.n) = (yyvsp[0].n); } --#line 3789 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 166: --#line 1291 "pic.y" /* yacc.c:1646 */ -- { -- // XXX Check for overflow (and non-integers?). -- (yyval.n) = (int)(yyvsp[-1].x); -- } --#line 3798 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 167: --#line 1299 "pic.y" /* yacc.c:1646 */ -- { (yyval.n) = 1; } --#line 3804 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 168: --#line 1301 "pic.y" /* yacc.c:1646 */ -- { (yyval.n) = (yyvsp[-1].n); } --#line 3810 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 169: --#line 1306 "pic.y" /* yacc.c:1646 */ -- { -- int count = 0; -- object *p; -- for (p = olist.head; p != 0; p = p->next) -- if (p->type() == (yyvsp[0].obtype) && ++count == (yyvsp[-1].n)) { -- (yyval.obj) = p; -- break; -- } -- if (p == 0) { -- lex_error("there is no %1%2 %3", (yyvsp[-1].n), ordinal_postfix((yyvsp[-1].n)), -- object_type_name((yyvsp[0].obtype))); -- YYABORT; -- } -- } --#line 3829 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 170: --#line 1321 "pic.y" /* yacc.c:1646 */ -- { -- int count = 0; -- object *p; -- for (p = olist.tail; p != 0; p = p->prev) -- if (p->type() == (yyvsp[0].obtype) && ++count == (yyvsp[-1].n)) { -- (yyval.obj) = p; -- break; -- } -- if (p == 0) { -- lex_error("there is no %1%2 last %3", (yyvsp[-1].n), -- ordinal_postfix((yyvsp[-1].n)), object_type_name((yyvsp[0].obtype))); -- YYABORT; -- } -- } --#line 3848 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 171: --#line 1339 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = BOX_OBJECT; } --#line 3854 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 172: --#line 1341 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = CIRCLE_OBJECT; } --#line 3860 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 173: --#line 1343 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = ELLIPSE_OBJECT; } --#line 3866 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 174: --#line 1345 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = ARC_OBJECT; } --#line 3872 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 175: --#line 1347 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = LINE_OBJECT; } --#line 3878 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 176: --#line 1349 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = ARROW_OBJECT; } --#line 3884 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 177: --#line 1351 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = SPLINE_OBJECT; } --#line 3890 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 178: --#line 1353 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = BLOCK_OBJECT; } --#line 3896 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 179: --#line 1355 "pic.y" /* yacc.c:1646 */ -- { (yyval.obtype) = TEXT_OBJECT; } --#line 3902 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 180: --#line 1360 "pic.y" /* yacc.c:1646 */ -- { (yyval.pth) = new path((yyvsp[0].str)); } --#line 3908 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 181: --#line 1362 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pth) = (yyvsp[-2].pth); -- (yyval.pth)->append((yyvsp[0].str)); -- } --#line 3917 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 182: --#line 1370 "pic.y" /* yacc.c:1646 */ -- { (yyval.pth) = new path((yyvsp[0].crn)); } --#line 3923 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 183: --#line 1374 "pic.y" /* yacc.c:1646 */ -- { (yyval.pth) = (yyvsp[0].pth); } --#line 3929 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 184: --#line 1376 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pth) = (yyvsp[-1].pth); -- (yyval.pth)->append((yyvsp[0].crn)); -- } --#line 3938 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 185: --#line 1384 "pic.y" /* yacc.c:1646 */ -- { (yyval.pth) = (yyvsp[0].pth); } --#line 3944 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 186: --#line 1386 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.pth) = (yyvsp[-3].pth); -- (yyval.pth)->set_ypath((yyvsp[-1].pth)); -- } --#line 3953 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 187: --#line 1392 "pic.y" /* yacc.c:1646 */ -- { -- lex_warning("`%1%2 last %3' in `with' argument ignored", -- (yyvsp[-3].n), ordinal_postfix((yyvsp[-3].n)), object_type_name((yyvsp[-1].obtype))); -- (yyval.pth) = (yyvsp[0].pth); -- } --#line 3963 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 188: --#line 1398 "pic.y" /* yacc.c:1646 */ -- { -- lex_warning("`last %1' in `with' argument ignored", -- object_type_name((yyvsp[-1].obtype))); -- (yyval.pth) = (yyvsp[0].pth); -- } --#line 3973 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 189: --#line 1404 "pic.y" /* yacc.c:1646 */ -- { -- lex_warning("`%1%2 %3' in `with' argument ignored", -- (yyvsp[-2].n), ordinal_postfix((yyvsp[-2].n)), object_type_name((yyvsp[-1].obtype))); -- (yyval.pth) = (yyvsp[0].pth); -- } --#line 3983 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 190: --#line 1410 "pic.y" /* yacc.c:1646 */ -- { -- lex_warning("initial `%1' in `with' argument ignored", (yyvsp[-1].str)); -- a_delete (yyvsp[-1].str); -- (yyval.pth) = (yyvsp[0].pth); -- } --#line 3993 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 191: --#line 1419 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north; } --#line 3999 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 192: --#line 1421 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::east; } --#line 4005 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 193: --#line 1423 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::west; } --#line 4011 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 194: --#line 1425 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::south; } --#line 4017 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 195: --#line 1427 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north_east; } --#line 4023 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 196: --#line 1429 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object:: south_east; } --#line 4029 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 197: --#line 1431 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north_west; } --#line 4035 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 198: --#line 1433 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::south_west; } --#line 4041 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 199: --#line 1435 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::center; } --#line 4047 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 200: --#line 1437 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::start; } --#line 4053 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 201: --#line 1439 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::end; } --#line 4059 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 202: --#line 1441 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north; } --#line 4065 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 203: --#line 1443 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::south; } --#line 4071 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 204: --#line 1445 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::west; } --#line 4077 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 205: --#line 1447 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::east; } --#line 4083 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 206: --#line 1449 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north_west; } --#line 4089 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 207: --#line 1451 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::south_west; } --#line 4095 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 208: --#line 1453 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north_east; } --#line 4101 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 209: --#line 1455 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::south_east; } --#line 4107 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 210: --#line 1457 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::west; } --#line 4113 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 211: --#line 1459 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::east; } --#line 4119 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 212: --#line 1461 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north_west; } --#line 4125 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 213: --#line 1463 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::south_west; } --#line 4131 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 214: --#line 1465 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north_east; } --#line 4137 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 215: --#line 1467 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::south_east; } --#line 4143 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 216: --#line 1469 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::north; } --#line 4149 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 217: --#line 1471 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::south; } --#line 4155 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 218: --#line 1473 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::east; } --#line 4161 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 219: --#line 1475 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::west; } --#line 4167 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 220: --#line 1477 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::center; } --#line 4173 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 221: --#line 1479 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::start; } --#line 4179 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 222: --#line 1481 "pic.y" /* yacc.c:1646 */ -- { (yyval.crn) = &object::end; } --#line 4185 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 223: --#line 1486 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[0].x); } --#line 4191 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 224: --#line 1488 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[0].x); } --#line 4197 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 225: --#line 1493 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) < (yyvsp[0].x)); } --#line 4203 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 226: --#line 1498 "pic.y" /* yacc.c:1646 */ -- { -- if (!lookup_variable((yyvsp[0].str), & (yyval.x))) { -- lex_error("there is no variable `%1'", (yyvsp[0].str)); -- YYABORT; -- } -- a_delete (yyvsp[0].str); -- } --#line 4215 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 227: --#line 1506 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[0].x); } --#line 4221 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 228: --#line 1508 "pic.y" /* yacc.c:1646 */ -- { -- if ((yyvsp[-1].pl).obj != 0) -- (yyval.x) = (yyvsp[-1].pl).obj->origin().x; -- else -- (yyval.x) = (yyvsp[-1].pl).x; -- } --#line 4232 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 229: --#line 1515 "pic.y" /* yacc.c:1646 */ -- { -- if ((yyvsp[-1].pl).obj != 0) -- (yyval.x) = (yyvsp[-1].pl).obj->origin().y; -- else -- (yyval.x) = (yyvsp[-1].pl).y; -- } --#line 4243 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 230: --#line 1522 "pic.y" /* yacc.c:1646 */ -- { -- if ((yyvsp[-1].pl).obj != 0) -- (yyval.x) = (yyvsp[-1].pl).obj->height(); -- else -- (yyval.x) = 0.0; -- } --#line 4254 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 231: --#line 1529 "pic.y" /* yacc.c:1646 */ -- { -- if ((yyvsp[-1].pl).obj != 0) -- (yyval.x) = (yyvsp[-1].pl).obj->width(); -- else -- (yyval.x) = 0.0; -- } --#line 4265 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 232: --#line 1536 "pic.y" /* yacc.c:1646 */ -- { -- if ((yyvsp[-1].pl).obj != 0) -- (yyval.x) = (yyvsp[-1].pl).obj->radius(); -- else -- (yyval.x) = 0.0; -- } --#line 4276 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 233: --#line 1543 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[-2].x) + (yyvsp[0].x); } --#line 4282 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 234: --#line 1545 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[-2].x) - (yyvsp[0].x); } --#line 4288 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 235: --#line 1547 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[-2].x) * (yyvsp[0].x); } --#line 4294 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 236: --#line 1549 "pic.y" /* yacc.c:1646 */ -- { -- if ((yyvsp[0].x) == 0.0) { -- lex_error("division by zero"); -- YYABORT; -- } -- (yyval.x) = (yyvsp[-2].x)/(yyvsp[0].x); -- } --#line 4306 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 237: --#line 1557 "pic.y" /* yacc.c:1646 */ -- { -- if ((yyvsp[0].x) == 0.0) { -- lex_error("modulus by zero"); -- YYABORT; -- } -- (yyval.x) = fmod((yyvsp[-2].x), (yyvsp[0].x)); -- } --#line 4318 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 238: --#line 1565 "pic.y" /* yacc.c:1646 */ -- { -- errno = 0; -- (yyval.x) = pow((yyvsp[-2].x), (yyvsp[0].x)); -- if (errno == EDOM) { -- lex_error("arguments to `^' operator out of domain"); -- YYABORT; -- } -- if (errno == ERANGE) { -- lex_error("result of `^' operator out of range"); -- YYABORT; -- } -- } --#line 4335 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 239: --#line 1578 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = -(yyvsp[0].x); } --#line 4341 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 240: --#line 1580 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[-1].x); } --#line 4347 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 241: --#line 1582 "pic.y" /* yacc.c:1646 */ -- { -- errno = 0; -- (yyval.x) = sin((yyvsp[-1].x)); -- if (errno == ERANGE) { -- lex_error("sin result out of range"); -- YYABORT; -- } -- } --#line 4360 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 242: --#line 1591 "pic.y" /* yacc.c:1646 */ -- { -- errno = 0; -- (yyval.x) = cos((yyvsp[-1].x)); -- if (errno == ERANGE) { -- lex_error("cos result out of range"); -- YYABORT; -- } -- } --#line 4373 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 243: --#line 1600 "pic.y" /* yacc.c:1646 */ -- { -- errno = 0; -- (yyval.x) = atan2((yyvsp[-3].x), (yyvsp[-1].x)); -- if (errno == EDOM) { -- lex_error("atan2 argument out of domain"); -- YYABORT; -- } -- if (errno == ERANGE) { -- lex_error("atan2 result out of range"); -- YYABORT; -- } -- } --#line 4390 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 244: --#line 1613 "pic.y" /* yacc.c:1646 */ -- { -- errno = 0; -- (yyval.x) = log10((yyvsp[-1].x)); -- if (errno == ERANGE) { -- lex_error("log result out of range"); -- YYABORT; -- } -- } --#line 4403 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 245: --#line 1622 "pic.y" /* yacc.c:1646 */ -- { -- errno = 0; -- (yyval.x) = pow(10.0, (yyvsp[-1].x)); -- if (errno == ERANGE) { -- lex_error("exp result out of range"); -- YYABORT; -- } -- } --#line 4416 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 246: --#line 1631 "pic.y" /* yacc.c:1646 */ -- { -- errno = 0; -- (yyval.x) = sqrt((yyvsp[-1].x)); -- if (errno == EDOM) { -- lex_error("sqrt argument out of domain"); -- YYABORT; -- } -- } --#line 4429 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 247: --#line 1640 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[-3].x) > (yyvsp[-1].x) ? (yyvsp[-3].x) : (yyvsp[-1].x); } --#line 4435 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 248: --#line 1642 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[-3].x) < (yyvsp[-1].x) ? (yyvsp[-3].x) : (yyvsp[-1].x); } --#line 4441 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 249: --#line 1644 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = (yyvsp[-1].x) < 0 ? -floor(-(yyvsp[-1].x)) : floor((yyvsp[-1].x)); } --#line 4447 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 250: --#line 1646 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = 1.0 + floor(((rand()&0x7fff)/double(0x7fff))*(yyvsp[-1].x)); } --#line 4453 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 251: --#line 1648 "pic.y" /* yacc.c:1646 */ -- { -- /* return a random number in the range [0,1) */ -- /* portable, but not very random */ -- (yyval.x) = (rand() & 0x7fff) / double(0x8000); -- } --#line 4463 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 252: --#line 1654 "pic.y" /* yacc.c:1646 */ -- { -- (yyval.x) = 0; -- srand((unsigned int)(yyvsp[-1].x)); -- } --#line 4472 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 253: --#line 1659 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) <= (yyvsp[0].x)); } --#line 4478 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 254: --#line 1661 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) > (yyvsp[0].x)); } --#line 4484 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 255: --#line 1663 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) >= (yyvsp[0].x)); } --#line 4490 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 256: --#line 1665 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) == (yyvsp[0].x)); } --#line 4496 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 257: --#line 1667 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != (yyvsp[0].x)); } --#line 4502 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 258: --#line 1669 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != 0.0 && (yyvsp[0].x) != 0.0); } --#line 4508 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 259: --#line 1671 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[-2].x) != 0.0 || (yyvsp[0].x) != 0.0); } --#line 4514 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- case 260: --#line 1673 "pic.y" /* yacc.c:1646 */ -- { (yyval.x) = ((yyvsp[0].x) == 0.0); } --#line 4520 "pic.cpp" /* yacc.c:1646 */ -- break; -- -- --#line 4524 "pic.cpp" /* yacc.c:1646 */ -- default: break; -- } -- /* User semantic actions sometimes alter yychar, and that requires -- that yytoken be updated with the new translation. We take the -- approach of translating immediately before every use of yytoken. -- One alternative is translating here after every semantic action, -- but that translation would be missed if the semantic action invokes -- YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or -- if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an -- incorrect destructor might then be invoked immediately. In the -- case of YYERROR or YYBACKUP, subsequent parser actions might lead -- to an incorrect destructor call or verbose syntax error message -- before the lookahead is translated. */ -- YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); -- -- YYPOPSTACK (yylen); -- yylen = 0; -- YY_STACK_PRINT (yyss, yyssp); -- -- *++yyvsp = yyval; -- -- /* Now 'shift' the result of the reduction. Determine what state -- that goes to, based on the state we popped back to and the rule -- number reduced by. */ -- -- yyn = yyr1[yyn]; -- -- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; -- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) -- yystate = yytable[yystate]; -- else -- yystate = yydefgoto[yyn - YYNTOKENS]; -- -- goto yynewstate; -- -- --/*--------------------------------------. --| yyerrlab -- here on detecting error. | --`--------------------------------------*/ --yyerrlab: -- /* Make sure we have latest lookahead translation. See comments at -- user semantic actions for why this is necessary. */ -- yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); -- -- /* If not already recovering from an error, report this error. */ -- if (!yyerrstatus) -- { -- ++yynerrs; --#if ! YYERROR_VERBOSE -- yyerror (YY_("syntax error")); --#else --# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ -- yyssp, yytoken) -- { -- char const *yymsgp = YY_("syntax error"); -- int yysyntax_error_status; -- yysyntax_error_status = YYSYNTAX_ERROR; -- if (yysyntax_error_status == 0) -- yymsgp = yymsg; -- else if (yysyntax_error_status == 1) -- { -- if (yymsg != yymsgbuf) -- YYSTACK_FREE (yymsg); -- yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); -- if (!yymsg) -- { -- yymsg = yymsgbuf; -- yymsg_alloc = sizeof yymsgbuf; -- yysyntax_error_status = 2; -- } -- else -- { -- yysyntax_error_status = YYSYNTAX_ERROR; -- yymsgp = yymsg; -- } -- } -- yyerror (yymsgp); -- if (yysyntax_error_status == 2) -- goto yyexhaustedlab; -- } --# undef YYSYNTAX_ERROR --#endif -- } -- -- -- -- if (yyerrstatus == 3) -- { -- /* If just tried and failed to reuse lookahead token after an -- error, discard it. */ -- -- if (yychar <= YYEOF) -- { -- /* Return failure if at end of input. */ -- if (yychar == YYEOF) -- YYABORT; -- } -- else -- { -- yydestruct ("Error: discarding", -- yytoken, &yylval); -- yychar = YYEMPTY; -- } -- } -- -- /* Else will try to reuse lookahead token after shifting the error -- token. */ -- goto yyerrlab1; -- -- --/*---------------------------------------------------. --| yyerrorlab -- error raised explicitly by YYERROR. | --`---------------------------------------------------*/ --yyerrorlab: -- -- /* Pacify compilers like GCC when the user code never invokes -- YYERROR and the label yyerrorlab therefore never appears in user -- code. */ -- if (/*CONSTCOND*/ 0) -- goto yyerrorlab; -- -- /* Do not reclaim the symbols of the rule whose action triggered -- this YYERROR. */ -- YYPOPSTACK (yylen); -- yylen = 0; -- YY_STACK_PRINT (yyss, yyssp); -- yystate = *yyssp; -- goto yyerrlab1; -- -- --/*-------------------------------------------------------------. --| yyerrlab1 -- common code for both syntax error and YYERROR. | --`-------------------------------------------------------------*/ --yyerrlab1: -- yyerrstatus = 3; /* Each real token shifted decrements this. */ -- -- for (;;) -- { -- yyn = yypact[yystate]; -- if (!yypact_value_is_default (yyn)) -- { -- yyn += YYTERROR; -- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) -- { -- yyn = yytable[yyn]; -- if (0 < yyn) -- break; -- } -- } -- -- /* Pop the current state because it cannot handle the error token. */ -- if (yyssp == yyss) -- YYABORT; -- -- -- yydestruct ("Error: popping", -- yystos[yystate], yyvsp); -- YYPOPSTACK (1); -- yystate = *yyssp; -- YY_STACK_PRINT (yyss, yyssp); -- } -- -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- *++yyvsp = yylval; -- YY_IGNORE_MAYBE_UNINITIALIZED_END -- -- -- /* Shift the error token. */ -- YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); -- -- yystate = yyn; -- goto yynewstate; -- -- --/*-------------------------------------. --| yyacceptlab -- YYACCEPT comes here. | --`-------------------------------------*/ --yyacceptlab: -- yyresult = 0; -- goto yyreturn; -- --/*-----------------------------------. --| yyabortlab -- YYABORT comes here. | --`-----------------------------------*/ --yyabortlab: -- yyresult = 1; -- goto yyreturn; -- --#if !defined yyoverflow || YYERROR_VERBOSE --/*-------------------------------------------------. --| yyexhaustedlab -- memory exhaustion comes here. | --`-------------------------------------------------*/ --yyexhaustedlab: -- yyerror (YY_("memory exhausted")); -- yyresult = 2; -- /* Fall through. */ --#endif -- --yyreturn: -- if (yychar != YYEMPTY) -- { -- /* Make sure we have latest lookahead translation. See comments at -- user semantic actions for why this is necessary. */ -- yytoken = YYTRANSLATE (yychar); -- yydestruct ("Cleanup: discarding lookahead", -- yytoken, &yylval); -- } -- /* Do not reclaim the symbols of the rule whose action triggered -- this YYABORT or YYACCEPT. */ -- YYPOPSTACK (yylen); -- YY_STACK_PRINT (yyss, yyssp); -- while (yyssp != yyss) -- { -- yydestruct ("Cleanup: popping", -- yystos[*yyssp], yyvsp); -- YYPOPSTACK (1); -- } --#ifndef yyoverflow -- if (yyss != yyssa) -- YYSTACK_FREE (yyss); --#endif --#if YYERROR_VERBOSE -- if (yymsg != yymsgbuf) -- YYSTACK_FREE (yymsg); --#endif -- return yyresult; --} --#line 1677 "pic.y" /* yacc.c:1906 */ -- -- --/* bison defines const to be empty unless __STDC__ is defined, which it --isn't under cfront */ -- --#ifdef const --#undef const --#endif -- --static struct { -- const char *name; -- double val; -- int scaled; // non-zero if val should be multiplied by scale --} defaults_table[] = { -- { "arcrad", .25, 1 }, -- { "arrowht", .1, 1 }, -- { "arrowwid", .05, 1 }, -- { "circlerad", .25, 1 }, -- { "boxht", .5, 1 }, -- { "boxwid", .75, 1 }, -- { "boxrad", 0.0, 1 }, -- { "dashwid", .05, 1 }, -- { "ellipseht", .5, 1 }, -- { "ellipsewid", .75, 1 }, -- { "moveht", .5, 1 }, -- { "movewid", .5, 1 }, -- { "lineht", .5, 1 }, -- { "linewid", .5, 1 }, -- { "textht", 0.0, 1 }, -- { "textwid", 0.0, 1 }, -- { "scale", 1.0, 0 }, -- { "linethick", -1.0, 0 }, // in points -- { "fillval", .5, 0 }, -- { "arrowhead", 1.0, 0 }, -- { "maxpswid", 8.5, 0 }, -- { "maxpsht", 11.0, 0 }, --}; -- --place *lookup_label(const char *label) --{ -- saved_state *state = current_saved_state; -- PTABLE(place) *tbl = current_table; -- for (;;) { -- place *pl = tbl->lookup(label); -- if (pl) -- return pl; -- if (!state) -- return 0; -- tbl = state->tbl; -- state = state->prev; -- } --} -- --void define_label(const char *label, const place *pl) --{ -- place *p = new place[1]; -- *p = *pl; -- current_table->define(label, p); --} -- --int lookup_variable(const char *name, double *val) --{ -- place *pl = lookup_label(name); -- if (pl) { -- *val = pl->x; -- return 1; -- } -- return 0; --} -- --void define_variable(const char *name, double val) --{ -- place *p = new place[1]; -- p->obj = 0; -- p->x = val; -- p->y = 0.0; -- current_table->define(name, p); -- if (strcmp(name, "scale") == 0) { -- // When the scale changes, reset all scaled pre-defined variables to -- // their default values. -- for (unsigned int i = 0; -- i < sizeof(defaults_table)/sizeof(defaults_table[0]); i++) -- if (defaults_table[i].scaled) -- define_variable(defaults_table[i].name, val*defaults_table[i].val); -- } --} -- --// called once only (not once per parse) -- --void parse_init() --{ -- current_direction = RIGHT_DIRECTION; -- current_position.x = 0.0; -- current_position.y = 0.0; -- // This resets everything to its default value. -- reset_all(); --} -- --void reset(const char *nm) --{ -- for (unsigned int i = 0; -- i < sizeof(defaults_table)/sizeof(defaults_table[0]); i++) -- if (strcmp(nm, defaults_table[i].name) == 0) { -- double val = defaults_table[i].val; -- if (defaults_table[i].scaled) { -- double scale; -- lookup_variable("scale", &scale); -- val *= scale; -- } -- define_variable(defaults_table[i].name, val); -- return; -- } -- lex_error("`%1' is not a predefined variable", nm); --} -- --void reset_all() --{ -- // We only have to explicitly reset the pre-defined variables that -- // aren't scaled because `scale' is not scaled, and changing the -- // value of `scale' will reset all the pre-defined variables that -- // are scaled. -- for (unsigned int i = 0; -- i < sizeof(defaults_table)/sizeof(defaults_table[0]); i++) -- if (!defaults_table[i].scaled) -- define_variable(defaults_table[i].name, defaults_table[i].val); --} -- --// called after each parse -- --void parse_cleanup() --{ -- while (current_saved_state != 0) { -- delete current_table; -- current_table = current_saved_state->tbl; -- saved_state *tem = current_saved_state; -- current_saved_state = current_saved_state->prev; -- delete tem; -- } -- assert(current_table == &top_table); -- PTABLE_ITERATOR(place) iter(current_table); -- const char *key; -- place *pl; -- while (iter.next(&key, &pl)) -- if (pl->obj != 0) { -- position pos = pl->obj->origin(); -- pl->obj = 0; -- pl->x = pos.x; -- pl->y = pos.y; -- } -- while (olist.head != 0) { -- object *tem = olist.head; -- olist.head = olist.head->next; -- delete tem; -- } -- olist.tail = 0; -- current_direction = RIGHT_DIRECTION; -- current_position.x = 0.0; -- current_position.y = 0.0; --} -- --const char *ordinal_postfix(int n) --{ -- if (n < 10 || n > 20) -- switch (n % 10) { -- case 1: -- return "st"; -- case 2: -- return "nd"; -- case 3: -- return "rd"; -- } -- return "th"; --} -- --const char *object_type_name(object_type type) --{ -- switch (type) { -- case BOX_OBJECT: -- return "box"; -- case CIRCLE_OBJECT: -- return "circle"; -- case ELLIPSE_OBJECT: -- return "ellipse"; -- case ARC_OBJECT: -- return "arc"; -- case SPLINE_OBJECT: -- return "spline"; -- case LINE_OBJECT: -- return "line"; -- case ARROW_OBJECT: -- return "arrow"; -- case MOVE_OBJECT: -- return "move"; -- case TEXT_OBJECT: -- return "\"\""; -- case BLOCK_OBJECT: -- return "[]"; -- case OTHER_OBJECT: -- case MARK_OBJECT: -- default: -- break; -- } -- return "object"; --} -- --static char sprintf_buf[1024]; -- --char *format_number(const char *form, double n) --{ -- if (form == 0) -- form = "%g"; -- return do_sprintf(form, &n, 1); --} -- --char *do_sprintf(const char *form, const double *v, int nv) --{ -- string result; -- int i = 0; -- string one_format; -- while (*form) { -- if (*form == '%') { -- one_format += *form++; -- for (; *form != '\0' && strchr("#-+ 0123456789.", *form) != 0; form++) -- one_format += *form; -- if (*form == '\0' || strchr("eEfgG%", *form) == 0) { -- lex_error("bad sprintf format"); -- result += one_format; -- result += form; -- break; -- } -- if (*form == '%') { -- one_format += *form++; -- one_format += '\0'; -- snprintf(sprintf_buf, sizeof(sprintf_buf), -- "%s", one_format.contents()); -- } -- else { -- if (i >= nv) { -- lex_error("too few arguments to snprintf"); -- result += one_format; -- result += form; -- break; -- } -- one_format += *form++; -- one_format += '\0'; -- snprintf(sprintf_buf, sizeof(sprintf_buf), -- one_format.contents(), v[i++]); -- } -- one_format.clear(); -- result += sprintf_buf; -- } -- else -- result += *form++; -- } -- result += '\0'; -- return strsave(result.contents()); --} -diff --git a/src/preproc/refer/label.cpp b/src/preproc/refer/label.cpp -deleted file mode 100644 -index 12d2dfa..0000000 ---- a/src/preproc/refer/label.cpp -+++ /dev/null -@@ -1,2701 +0,0 @@ --/* A Bison parser, made by GNU Bison 3.0.2. */ -- --/* Bison implementation for Yacc-like parsers in C -- -- Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by -- the Free Software Foundation, either version 3 of the License, or -- (at your option) any later version. -- -- This program is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -- GNU General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program. If not, see . */ -- --/* As a special exception, you may create a larger work that contains -- part or all of the Bison parser skeleton and distribute that work -- under terms of your choice, so long as that work isn't itself a -- parser generator using the skeleton or a modified version thereof -- as a parser skeleton. Alternatively, if you modify or redistribute -- the parser skeleton itself, you may (at your option) remove this -- special exception, which will cause the skeleton and the resulting -- Bison output files to be licensed under the GNU General Public -- License without this special exception. -- -- This special exception was added by the Free Software Foundation in -- version 2.2 of Bison. */ -- --/* C LALR(1) parser skeleton written by Richard Stallman, by -- simplifying the original so-called "semantic" parser. */ -- --/* All symbols defined below should begin with yy or YY, to avoid -- infringing on user name space. This should be done even for local -- variables, as they might otherwise be expanded by user macros. -- There are some unavoidable exceptions within include files to -- define necessary library symbols; they are noted "INFRINGES ON -- USER NAME SPACE" below. */ -- --/* Identify Bison output. */ --#define YYBISON 1 -- --/* Bison version. */ --#define YYBISON_VERSION "3.0.2" -- --/* Skeleton name. */ --#define YYSKELETON_NAME "yacc.c" -- --/* Pure parsers. */ --#define YYPURE 0 -- --/* Push parsers. */ --#define YYPUSH 0 -- --/* Pull parsers. */ --#define YYPULL 1 -- -- -- -- --/* Copy the first part of user declarations. */ --#line 20 "label.y" /* yacc.c:339 */ -- -- --#include "refer.h" --#include "refid.h" --#include "ref.h" --#include "token.h" -- --int yylex(); --void yyerror(const char *); --int yyparse(); -- --static const char *format_serial(char c, int n); -- --struct label_info { -- int start; -- int length; -- int count; -- int total; -- label_info(const string &); --}; -- --label_info *lookup_label(const string &label); -- --struct expression { -- enum { -- // Does the tentative label depend on the reference? -- CONTAINS_VARIABLE = 01, -- CONTAINS_STAR = 02, -- CONTAINS_FORMAT = 04, -- CONTAINS_AT = 010 -- }; -- virtual ~expression() { } -- virtual void evaluate(int, const reference &, string &, -- substring_position &) = 0; -- virtual unsigned analyze() { return 0; } --}; -- --class at_expr : public expression { --public: -- at_expr() { } -- void evaluate(int, const reference &, string &, substring_position &); -- unsigned analyze() { return CONTAINS_VARIABLE|CONTAINS_AT; } --}; -- --class format_expr : public expression { -- char type; -- int width; -- int first_number; --public: -- format_expr(char c, int w = 0, int f = 1) -- : type(c), width(w), first_number(f) { } -- void evaluate(int, const reference &, string &, substring_position &); -- unsigned analyze() { return CONTAINS_FORMAT; } --}; -- --class field_expr : public expression { -- int number; -- char name; --public: -- field_expr(char nm, int num) : number(num), name(nm) { } -- void evaluate(int, const reference &, string &, substring_position &); -- unsigned analyze() { return CONTAINS_VARIABLE; } --}; -- --class literal_expr : public expression { -- string s; --public: -- literal_expr(const char *ptr, int len) : s(ptr, len) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --class unary_expr : public expression { --protected: -- expression *expr; --public: -- unary_expr(expression *e) : expr(e) { } -- ~unary_expr() { delete expr; } -- void evaluate(int, const reference &, string &, substring_position &) = 0; -- unsigned analyze() { return expr ? expr->analyze() : 0; } --}; -- --// This caches the analysis of an expression. -- --class analyzed_expr : public unary_expr { -- unsigned flags; --public: -- analyzed_expr(expression *); -- void evaluate(int, const reference &, string &, substring_position &); -- unsigned analyze() { return flags; } --}; -- --class star_expr : public unary_expr { --public: -- star_expr(expression *e) : unary_expr(e) { } -- void evaluate(int, const reference &, string &, substring_position &); -- unsigned analyze() { -- return ((expr ? (expr->analyze() & ~CONTAINS_VARIABLE) : 0) -- | CONTAINS_STAR); -- } --}; -- --typedef void map_func(const char *, const char *, string &); -- --class map_expr : public unary_expr { -- map_func *func; --public: -- map_expr(expression *e, map_func *f) : unary_expr(e), func(f) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --typedef const char *extractor_func(const char *, const char *, const char **); -- --class extractor_expr : public unary_expr { -- int part; -- extractor_func *func; --public: -- enum { BEFORE = +1, MATCH = 0, AFTER = -1 }; -- extractor_expr(expression *e, extractor_func *f, int pt) -- : unary_expr(e), part(pt), func(f) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --class truncate_expr : public unary_expr { -- int n; --public: -- truncate_expr(expression *e, int i) : unary_expr(e), n(i) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --class separator_expr : public unary_expr { --public: -- separator_expr(expression *e) : unary_expr(e) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --class binary_expr : public expression { --protected: -- expression *expr1; -- expression *expr2; --public: -- binary_expr(expression *e1, expression *e2) : expr1(e1), expr2(e2) { } -- ~binary_expr() { delete expr1; delete expr2; } -- void evaluate(int, const reference &, string &, substring_position &) = 0; -- unsigned analyze() { -- return (expr1 ? expr1->analyze() : 0) | (expr2 ? expr2->analyze() : 0); -- } --}; -- --class alternative_expr : public binary_expr { --public: -- alternative_expr(expression *e1, expression *e2) : binary_expr(e1, e2) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --class list_expr : public binary_expr { --public: -- list_expr(expression *e1, expression *e2) : binary_expr(e1, e2) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --class substitute_expr : public binary_expr { --public: -- substitute_expr(expression *e1, expression *e2) : binary_expr(e1, e2) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --class ternary_expr : public expression { --protected: -- expression *expr1; -- expression *expr2; -- expression *expr3; --public: -- ternary_expr(expression *e1, expression *e2, expression *e3) -- : expr1(e1), expr2(e2), expr3(e3) { } -- ~ternary_expr() { delete expr1; delete expr2; delete expr3; } -- void evaluate(int, const reference &, string &, substring_position &) = 0; -- unsigned analyze() { -- return ((expr1 ? expr1->analyze() : 0) -- | (expr2 ? expr2->analyze() : 0) -- | (expr3 ? expr3->analyze() : 0)); -- } --}; -- --class conditional_expr : public ternary_expr { --public: -- conditional_expr(expression *e1, expression *e2, expression *e3) -- : ternary_expr(e1, e2, e3) { } -- void evaluate(int, const reference &, string &, substring_position &); --}; -- --static expression *parsed_label = 0; --static expression *parsed_date_label = 0; --static expression *parsed_short_label = 0; -- --static expression *parse_result; -- --string literals; -- -- --#line 266 "label.cpp" /* yacc.c:339 */ -- --# ifndef YY_NULLPTR --# if defined __cplusplus && 201103L <= __cplusplus --# define YY_NULLPTR nullptr --# else --# define YY_NULLPTR 0 --# endif --# endif -- --/* Enabling verbose error messages. */ --#ifdef YYERROR_VERBOSE --# undef YYERROR_VERBOSE --# define YYERROR_VERBOSE 1 --#else --# define YYERROR_VERBOSE 0 --#endif -- -- --/* Debug traces. */ --#ifndef YYDEBUG --# define YYDEBUG 0 --#endif --#if YYDEBUG --extern int yydebug; --#endif -- --/* Token type. */ --#ifndef YYTOKENTYPE --# define YYTOKENTYPE -- enum yytokentype -- { -- TOKEN_LETTER = 258, -- TOKEN_LITERAL = 259, -- TOKEN_DIGIT = 260 -- }; --#endif --/* Tokens. */ --#define TOKEN_LETTER 258 --#define TOKEN_LITERAL 259 --#define TOKEN_DIGIT 260 -- --/* Value type. */ --#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED --typedef union YYSTYPE YYSTYPE; --union YYSTYPE --{ --#line 220 "label.y" /* yacc.c:355 */ -- -- int num; -- expression *expr; -- struct { int ndigits; int val; } dig; -- struct { int start; int len; } str; -- --#line 320 "label.cpp" /* yacc.c:355 */ --}; --# define YYSTYPE_IS_TRIVIAL 1 --# define YYSTYPE_IS_DECLARED 1 --#endif -- -- --extern YYSTYPE yylval; -- --int yyparse (void); -- -- -- --/* Copy the second part of user declarations. */ -- --#line 335 "label.cpp" /* yacc.c:358 */ -- --#ifdef short --# undef short --#endif -- --#ifdef YYTYPE_UINT8 --typedef YYTYPE_UINT8 yytype_uint8; --#else --typedef unsigned char yytype_uint8; --#endif -- --#ifdef YYTYPE_INT8 --typedef YYTYPE_INT8 yytype_int8; --#else --typedef signed char yytype_int8; --#endif -- --#ifdef YYTYPE_UINT16 --typedef YYTYPE_UINT16 yytype_uint16; --#else --typedef unsigned short int yytype_uint16; --#endif -- --#ifdef YYTYPE_INT16 --typedef YYTYPE_INT16 yytype_int16; --#else --typedef short int yytype_int16; --#endif -- --#ifndef YYSIZE_T --# ifdef __SIZE_TYPE__ --# define YYSIZE_T __SIZE_TYPE__ --# elif defined size_t --# define YYSIZE_T size_t --# elif ! defined YYSIZE_T --# include /* INFRINGES ON USER NAME SPACE */ --# define YYSIZE_T size_t --# else --# define YYSIZE_T unsigned int --# endif --#endif -- --#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) -- --#ifndef YY_ --# if defined YYENABLE_NLS && YYENABLE_NLS --# if ENABLE_NLS --# include /* INFRINGES ON USER NAME SPACE */ --# define YY_(Msgid) dgettext ("bison-runtime", Msgid) --# endif --# endif --# ifndef YY_ --# define YY_(Msgid) Msgid --# endif --#endif -- --#ifndef YY_ATTRIBUTE --# if (defined __GNUC__ \ -- && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ -- || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C --# define YY_ATTRIBUTE(Spec) __attribute__(Spec) --# else --# define YY_ATTRIBUTE(Spec) /* empty */ --# endif --#endif -- --#ifndef YY_ATTRIBUTE_PURE --# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) --#endif -- --#ifndef YY_ATTRIBUTE_UNUSED --# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) --#endif -- --#if !defined _Noreturn \ -- && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112) --# if defined _MSC_VER && 1200 <= _MSC_VER --# define _Noreturn __declspec (noreturn) --# else --# define _Noreturn YY_ATTRIBUTE ((__noreturn__)) --# endif --#endif -- --/* Suppress unused-variable warnings by "using" E. */ --#if ! defined lint || defined __GNUC__ --# define YYUSE(E) ((void) (E)) --#else --# define YYUSE(E) /* empty */ --#endif -- --#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ --/* Suppress an incorrect diagnostic about yylval being uninitialized. */ --# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ -- _Pragma ("GCC diagnostic push") \ -- _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ -- _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") --# define YY_IGNORE_MAYBE_UNINITIALIZED_END \ -- _Pragma ("GCC diagnostic pop") --#else --# define YY_INITIAL_VALUE(Value) Value --#endif --#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN --# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN --# define YY_IGNORE_MAYBE_UNINITIALIZED_END --#endif --#ifndef YY_INITIAL_VALUE --# define YY_INITIAL_VALUE(Value) /* Nothing. */ --#endif -- -- --#if ! defined yyoverflow || YYERROR_VERBOSE -- --/* The parser invokes alloca or malloc; define the necessary symbols. */ -- --# ifdef YYSTACK_USE_ALLOCA --# if YYSTACK_USE_ALLOCA --# ifdef __GNUC__ --# define YYSTACK_ALLOC __builtin_alloca --# elif defined __BUILTIN_VA_ARG_INCR --# include /* INFRINGES ON USER NAME SPACE */ --# elif defined _AIX --# define YYSTACK_ALLOC __alloca --# elif defined _MSC_VER --# include /* INFRINGES ON USER NAME SPACE */ --# define alloca _alloca --# else --# define YYSTACK_ALLOC alloca --# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS --# include /* INFRINGES ON USER NAME SPACE */ -- /* Use EXIT_SUCCESS as a witness for stdlib.h. */ --# ifndef EXIT_SUCCESS --# define EXIT_SUCCESS 0 --# endif --# endif --# endif --# endif --# endif -- --# ifdef YYSTACK_ALLOC -- /* Pacify GCC's 'empty if-body' warning. */ --# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) --# ifndef YYSTACK_ALLOC_MAXIMUM -- /* The OS might guarantee only one guard page at the bottom of the stack, -- and a page size can be as small as 4096 bytes. So we cannot safely -- invoke alloca (N) if N exceeds 4096. Use a slightly smaller number -- to allow for a few compiler-allocated temporary stack slots. */ --# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ --# endif --# else --# define YYSTACK_ALLOC YYMALLOC --# define YYSTACK_FREE YYFREE --# ifndef YYSTACK_ALLOC_MAXIMUM --# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM --# endif --# if (defined __cplusplus && ! defined EXIT_SUCCESS \ -- && ! ((defined YYMALLOC || defined malloc) \ -- && (defined YYFREE || defined free))) --# include /* INFRINGES ON USER NAME SPACE */ --# ifndef EXIT_SUCCESS --# define EXIT_SUCCESS 0 --# endif --# endif --# ifndef YYMALLOC --# define YYMALLOC malloc --# if ! defined malloc && ! defined EXIT_SUCCESS --void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ --# endif --# endif --# ifndef YYFREE --# define YYFREE free --# if ! defined free && ! defined EXIT_SUCCESS --void free (void *); /* INFRINGES ON USER NAME SPACE */ --# endif --# endif --# endif --#endif /* ! defined yyoverflow || YYERROR_VERBOSE */ -- -- --#if (! defined yyoverflow \ -- && (! defined __cplusplus \ -- || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) -- --/* A type that is properly aligned for any stack member. */ --union yyalloc --{ -- yytype_int16 yyss_alloc; -- YYSTYPE yyvs_alloc; --}; -- --/* The size of the maximum gap between one aligned stack and the next. */ --# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) -- --/* The size of an array large to enough to hold all stacks, each with -- N elements. */ --# define YYSTACK_BYTES(N) \ -- ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ -- + YYSTACK_GAP_MAXIMUM) -- --# define YYCOPY_NEEDED 1 -- --/* Relocate STACK from its old location to the new one. The -- local variables YYSIZE and YYSTACKSIZE give the old and new number of -- elements in the stack, and YYPTR gives the new location of the -- stack. Advance YYPTR to a properly aligned location for the next -- stack. */ --# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ -- do \ -- { \ -- YYSIZE_T yynewbytes; \ -- YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ -- Stack = &yyptr->Stack_alloc; \ -- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ -- yyptr += yynewbytes / sizeof (*yyptr); \ -- } \ -- while (0) -- --#endif -- --#if defined YYCOPY_NEEDED && YYCOPY_NEEDED --/* Copy COUNT objects from SRC to DST. The source and destination do -- not overlap. */ --# ifndef YYCOPY --# if defined __GNUC__ && 1 < __GNUC__ --# define YYCOPY(Dst, Src, Count) \ -- __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) --# else --# define YYCOPY(Dst, Src, Count) \ -- do \ -- { \ -- YYSIZE_T yyi; \ -- for (yyi = 0; yyi < (Count); yyi++) \ -- (Dst)[yyi] = (Src)[yyi]; \ -- } \ -- while (0) --# endif --# endif --#endif /* !YYCOPY_NEEDED */ -- --/* YYFINAL -- State number of the termination state. */ --#define YYFINAL 21 --/* YYLAST -- Last index in YYTABLE. */ --#define YYLAST 39 -- --/* YYNTOKENS -- Number of terminals. */ --#define YYNTOKENS 21 --/* YYNNTS -- Number of nonterminals. */ --#define YYNNTS 12 --/* YYNRULES -- Number of rules. */ --#define YYNRULES 34 --/* YYNSTATES -- Number of states. */ --#define YYNSTATES 49 -- --/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned -- by yylex, with out-of-bounds checking. */ --#define YYUNDEFTOK 2 --#define YYMAXUTOK 260 -- --#define YYTRANSLATE(YYX) \ -- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) -- --/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM -- as returned by yylex, without out-of-bounds checking. */ --static const yytype_uint8 yytranslate[] = --{ -- 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 12, 9, 2, -- 17, 18, 16, 14, 2, 15, 13, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 7, 2, -- 19, 2, 20, 6, 11, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 8, 2, 10, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, -- 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, -- 5 --}; -- --#if YYDEBUG -- /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ --static const yytype_uint16 yyrline[] = --{ -- 0, 248, 248, 253, 255, 261, 262, 267, 269, 271, -- 276, 278, 283, 285, 290, 292, 297, 299, 301, 317, -- 321, 352, 354, 356, 358, 360, 366, 367, 372, 374, -- 379, 381, 388, 389, 391 --}; --#endif -- --#if YYDEBUG || YYERROR_VERBOSE || 0 --/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. -- First, the terminals, then, starting at YYNTOKENS, nonterminals. */ --static const char *const yytname[] = --{ -- "$end", "error", "$undefined", "TOKEN_LETTER", "TOKEN_LITERAL", -- "TOKEN_DIGIT", "'?'", "':'", "'|'", "'&'", "'~'", "'@'", "'%'", "'.'", -- "'+'", "'-'", "'*'", "'('", "')'", "'<'", "'>'", "$accept", "expr", -- "conditional", "optional_conditional", "alternative", "list", -- "substitute", "string", "optional_number", "number", "digits", "flag", YY_NULLPTR --}; --#endif -- --# ifdef YYPRINT --/* YYTOKNUM[NUM] -- (External) token number corresponding to the -- (internal) symbol number NUM (which must be that of a token). */ --static const yytype_uint16 yytoknum[] = --{ -- 0, 256, 257, 258, 259, 260, 63, 58, 124, 38, -- 126, 64, 37, 46, 43, 45, 42, 40, 41, 60, -- 62 --}; --# endif -- --#define YYPACT_NINF -26 -- --#define yypact_value_is_default(Yystate) \ -- (!!((Yystate) == (-26))) -- --#define YYTABLE_NINF -1 -- --#define yytable_value_is_error(Yytable_value) \ -- 0 -- -- /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing -- STATE-NUM. */ --static const yytype_int8 yypact[] = --{ -- 2, 11, -26, -26, 12, 2, 2, 24, -26, -26, -- 21, 2, 18, -6, -26, 26, -26, -26, 27, 15, -- 14, -26, 2, 2, 2, 18, 2, -3, 11, 11, -- -26, -26, -26, -26, -26, 28, 2, 2, -6, -26, -- -26, 33, 26, 26, 2, 11, -26, -26, 26 --}; -- -- /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. -- Performed when YYTABLE does not specify something else to do. Zero -- means the default is an error. */ --static const yytype_uint8 yydefact[] = --{ -- 5, 16, 15, 14, 0, 5, 5, 0, 6, 2, -- 3, 7, 10, 12, 28, 17, 18, 30, 19, 0, -- 0, 1, 5, 0, 0, 11, 0, 32, 0, 0, -- 23, 29, 31, 24, 25, 0, 8, 9, 13, 33, -- 34, 0, 21, 22, 0, 26, 4, 20, 27 --}; -- -- /* YYPGOTO[NTERM-NUM]. */ --static const yytype_int8 yypgoto[] = --{ -- -26, -26, -7, -4, -26, -1, -11, 13, -26, -25, -- -26, -26 --}; -- -- /* YYDEFGOTO[NTERM-NUM]. */ --static const yytype_int8 yydefgoto[] = --{ -- -1, 7, 8, 9, 10, 11, 12, 13, 47, 15, -- 18, 41 --}; -- -- /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If -- positive, shift that token. If negative, reduce the rule whose -- number is the opposite. If YYTABLE_NINF, syntax error. */ --static const yytype_uint8 yytable[] = --{ -- 25, 19, 20, 42, 43, 1, 2, 27, 28, 29, -- 30, 39, 40, 3, 4, 16, 14, 17, 35, 5, -- 48, 6, 36, 37, 21, 25, 25, 22, 26, 23, -- 24, 31, 32, 33, 34, 44, 45, 46, 0, 38 --}; -- --static const yytype_int8 yycheck[] = --{ -- 11, 5, 6, 28, 29, 3, 4, 13, 14, 15, -- 16, 14, 15, 11, 12, 3, 5, 5, 22, 17, -- 45, 19, 23, 24, 0, 36, 37, 6, 10, 8, -- 9, 5, 5, 18, 20, 7, 3, 44, -1, 26 --}; -- -- /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing -- symbol of state STATE-NUM. */ --static const yytype_uint8 yystos[] = --{ -- 0, 3, 4, 11, 12, 17, 19, 22, 23, 24, -- 25, 26, 27, 28, 5, 30, 3, 5, 31, 24, -- 24, 0, 6, 8, 9, 27, 10, 13, 14, 15, -- 16, 5, 5, 18, 20, 24, 26, 26, 28, 14, -- 15, 32, 30, 30, 7, 3, 23, 29, 30 --}; -- -- /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ --static const yytype_uint8 yyr1[] = --{ -- 0, 21, 22, 23, 23, 24, 24, 25, 25, 25, -- 26, 26, 27, 27, 28, 28, 28, 28, 28, 28, -- 28, 28, 28, 28, 28, 28, 29, 29, 30, 30, -- 31, 31, 32, 32, 32 --}; -- -- /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ --static const yytype_uint8 yyr2[] = --{ -- 0, 2, 1, 1, 5, 0, 1, 1, 3, 3, -- 1, 2, 1, 3, 1, 1, 1, 2, 2, 2, -- 5, 3, 3, 2, 3, 3, 0, 1, 1, 2, -- 1, 2, 0, 1, 1 --}; -- -- --#define yyerrok (yyerrstatus = 0) --#define yyclearin (yychar = YYEMPTY) --#define YYEMPTY (-2) --#define YYEOF 0 -- --#define YYACCEPT goto yyacceptlab --#define YYABORT goto yyabortlab --#define YYERROR goto yyerrorlab -- -- --#define YYRECOVERING() (!!yyerrstatus) -- --#define YYBACKUP(Token, Value) \ --do \ -- if (yychar == YYEMPTY) \ -- { \ -- yychar = (Token); \ -- yylval = (Value); \ -- YYPOPSTACK (yylen); \ -- yystate = *yyssp; \ -- goto yybackup; \ -- } \ -- else \ -- { \ -- yyerror (YY_("syntax error: cannot back up")); \ -- YYERROR; \ -- } \ --while (0) -- --/* Error token number */ --#define YYTERROR 1 --#define YYERRCODE 256 -- -- -- --/* Enable debugging if requested. */ --#if YYDEBUG -- --# ifndef YYFPRINTF --# include /* INFRINGES ON USER NAME SPACE */ --# define YYFPRINTF fprintf --# endif -- --# define YYDPRINTF(Args) \ --do { \ -- if (yydebug) \ -- YYFPRINTF Args; \ --} while (0) -- --/* This macro is provided for backward compatibility. */ --#ifndef YY_LOCATION_PRINT --# define YY_LOCATION_PRINT(File, Loc) ((void) 0) --#endif -- -- --# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ --do { \ -- if (yydebug) \ -- { \ -- YYFPRINTF (stderr, "%s ", Title); \ -- yy_symbol_print (stderr, \ -- Type, Value); \ -- YYFPRINTF (stderr, "\n"); \ -- } \ --} while (0) -- -- --/*----------------------------------------. --| Print this symbol's value on YYOUTPUT. | --`----------------------------------------*/ -- --static void --yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) --{ -- FILE *yyo = yyoutput; -- YYUSE (yyo); -- if (!yyvaluep) -- return; --# ifdef YYPRINT -- if (yytype < YYNTOKENS) -- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); --# endif -- YYUSE (yytype); --} -- -- --/*--------------------------------. --| Print this symbol on YYOUTPUT. | --`--------------------------------*/ -- --static void --yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) --{ -- YYFPRINTF (yyoutput, "%s %s (", -- yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); -- -- yy_symbol_value_print (yyoutput, yytype, yyvaluep); -- YYFPRINTF (yyoutput, ")"); --} -- --/*------------------------------------------------------------------. --| yy_stack_print -- Print the state stack from its BOTTOM up to its | --| TOP (included). | --`------------------------------------------------------------------*/ -- --static void --yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) --{ -- YYFPRINTF (stderr, "Stack now"); -- for (; yybottom <= yytop; yybottom++) -- { -- int yybot = *yybottom; -- YYFPRINTF (stderr, " %d", yybot); -- } -- YYFPRINTF (stderr, "\n"); --} -- --# define YY_STACK_PRINT(Bottom, Top) \ --do { \ -- if (yydebug) \ -- yy_stack_print ((Bottom), (Top)); \ --} while (0) -- -- --/*------------------------------------------------. --| Report that the YYRULE is going to be reduced. | --`------------------------------------------------*/ -- --static void --yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule) --{ -- unsigned long int yylno = yyrline[yyrule]; -- int yynrhs = yyr2[yyrule]; -- int yyi; -- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", -- yyrule - 1, yylno); -- /* The symbols being reduced. */ -- for (yyi = 0; yyi < yynrhs; yyi++) -- { -- YYFPRINTF (stderr, " $%d = ", yyi + 1); -- yy_symbol_print (stderr, -- yystos[yyssp[yyi + 1 - yynrhs]], -- &(yyvsp[(yyi + 1) - (yynrhs)]) -- ); -- YYFPRINTF (stderr, "\n"); -- } --} -- --# define YY_REDUCE_PRINT(Rule) \ --do { \ -- if (yydebug) \ -- yy_reduce_print (yyssp, yyvsp, Rule); \ --} while (0) -- --/* Nonzero means print parse trace. It is left uninitialized so that -- multiple parsers can coexist. */ --int yydebug; --#else /* !YYDEBUG */ --# define YYDPRINTF(Args) --# define YY_SYMBOL_PRINT(Title, Type, Value, Location) --# define YY_STACK_PRINT(Bottom, Top) --# define YY_REDUCE_PRINT(Rule) --#endif /* !YYDEBUG */ -- -- --/* YYINITDEPTH -- initial size of the parser's stacks. */ --#ifndef YYINITDEPTH --# define YYINITDEPTH 200 --#endif -- --/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only -- if the built-in stack extension method is used). -- -- Do not make this value too large; the results are undefined if -- YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) -- evaluated with infinite-precision integer arithmetic. */ -- --#ifndef YYMAXDEPTH --# define YYMAXDEPTH 10000 --#endif -- -- --#if YYERROR_VERBOSE -- --# ifndef yystrlen --# if defined __GLIBC__ && defined _STRING_H --# define yystrlen strlen --# else --/* Return the length of YYSTR. */ --static YYSIZE_T --yystrlen (const char *yystr) --{ -- YYSIZE_T yylen; -- for (yylen = 0; yystr[yylen]; yylen++) -- continue; -- return yylen; --} --# endif --# endif -- --# ifndef yystpcpy --# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE --# define yystpcpy stpcpy --# else --/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in -- YYDEST. */ --static char * --yystpcpy (char *yydest, const char *yysrc) --{ -- char *yyd = yydest; -- const char *yys = yysrc; -- -- while ((*yyd++ = *yys++) != '\0') -- continue; -- -- return yyd - 1; --} --# endif --# endif -- --# ifndef yytnamerr --/* Copy to YYRES the contents of YYSTR after stripping away unnecessary -- quotes and backslashes, so that it's suitable for yyerror. The -- heuristic is that double-quoting is unnecessary unless the string -- contains an apostrophe, a comma, or backslash (other than -- backslash-backslash). YYSTR is taken from yytname. If YYRES is -- null, do not copy; instead, return the length of what the result -- would have been. */ --static YYSIZE_T --yytnamerr (char *yyres, const char *yystr) --{ -- if (*yystr == '"') -- { -- YYSIZE_T yyn = 0; -- char const *yyp = yystr; -- -- for (;;) -- switch (*++yyp) -- { -- case '\'': -- case ',': -- goto do_not_strip_quotes; -- -- case '\\': -- if (*++yyp != '\\') -- goto do_not_strip_quotes; -- /* Fall through. */ -- default: -- if (yyres) -- yyres[yyn] = *yyp; -- yyn++; -- break; -- -- case '"': -- if (yyres) -- yyres[yyn] = '\0'; -- return yyn; -- } -- do_not_strip_quotes: ; -- } -- -- if (! yyres) -- return yystrlen (yystr); -- -- return yystpcpy (yyres, yystr) - yyres; --} --# endif -- --/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message -- about the unexpected token YYTOKEN for the state stack whose top is -- YYSSP. -- -- Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is -- not large enough to hold the message. In that case, also set -- *YYMSG_ALLOC to the required number of bytes. Return 2 if the -- required number of bytes is too large to store. */ --static int --yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, -- yytype_int16 *yyssp, int yytoken) --{ -- YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); -- YYSIZE_T yysize = yysize0; -- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; -- /* Internationalized format string. */ -- const char *yyformat = YY_NULLPTR; -- /* Arguments of yyformat. */ -- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; -- /* Number of reported tokens (one for the "unexpected", one per -- "expected"). */ -- int yycount = 0; -- -- /* There are many possibilities here to consider: -- - If this state is a consistent state with a default action, then -- the only way this function was invoked is if the default action -- is an error action. In that case, don't check for expected -- tokens because there are none. -- - The only way there can be no lookahead present (in yychar) is if -- this state is a consistent state with a default action. Thus, -- detecting the absence of a lookahead is sufficient to determine -- that there is no unexpected or expected token to report. In that -- case, just report a simple "syntax error". -- - Don't assume there isn't a lookahead just because this state is a -- consistent state with a default action. There might have been a -- previous inconsistent state, consistent state with a non-default -- action, or user semantic action that manipulated yychar. -- - Of course, the expected token list depends on states to have -- correct lookahead information, and it depends on the parser not -- to perform extra reductions after fetching a lookahead from the -- scanner and before detecting a syntax error. Thus, state merging -- (from LALR or IELR) and default reductions corrupt the expected -- token list. However, the list is correct for canonical LR with -- one exception: it will still contain any token that will not be -- accepted due to an error action in a later state. -- */ -- if (yytoken != YYEMPTY) -- { -- int yyn = yypact[*yyssp]; -- yyarg[yycount++] = yytname[yytoken]; -- if (!yypact_value_is_default (yyn)) -- { -- /* Start YYX at -YYN if negative to avoid negative indexes in -- YYCHECK. In other words, skip the first -YYN actions for -- this state because they are default actions. */ -- int yyxbegin = yyn < 0 ? -yyn : 0; -- /* Stay within bounds of both yycheck and yytname. */ -- int yychecklim = YYLAST - yyn + 1; -- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; -- int yyx; -- -- for (yyx = yyxbegin; yyx < yyxend; ++yyx) -- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR -- && !yytable_value_is_error (yytable[yyx + yyn])) -- { -- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) -- { -- yycount = 1; -- yysize = yysize0; -- break; -- } -- yyarg[yycount++] = yytname[yyx]; -- { -- YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); -- if (! (yysize <= yysize1 -- && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) -- return 2; -- yysize = yysize1; -- } -- } -- } -- } -- -- switch (yycount) -- { --# define YYCASE_(N, S) \ -- case N: \ -- yyformat = S; \ -- break -- YYCASE_(0, YY_("syntax error")); -- YYCASE_(1, YY_("syntax error, unexpected %s")); -- YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); -- YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); -- YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); -- YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); --# undef YYCASE_ -- } -- -- { -- YYSIZE_T yysize1 = yysize + yystrlen (yyformat); -- if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) -- return 2; -- yysize = yysize1; -- } -- -- if (*yymsg_alloc < yysize) -- { -- *yymsg_alloc = 2 * yysize; -- if (! (yysize <= *yymsg_alloc -- && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) -- *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; -- return 1; -- } -- -- /* Avoid sprintf, as that infringes on the user's name space. -- Don't have undefined behavior even if the translation -- produced a string with the wrong number of "%s"s. */ -- { -- char *yyp = *yymsg; -- int yyi = 0; -- while ((*yyp = *yyformat) != '\0') -- if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) -- { -- yyp += yytnamerr (yyp, yyarg[yyi++]); -- yyformat += 2; -- } -- else -- { -- yyp++; -- yyformat++; -- } -- } -- return 0; --} --#endif /* YYERROR_VERBOSE */ -- --/*-----------------------------------------------. --| Release the memory associated to this symbol. | --`-----------------------------------------------*/ -- --static void --yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) --{ -- YYUSE (yyvaluep); -- if (!yymsg) -- yymsg = "Deleting"; -- YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); -- -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- YYUSE (yytype); -- YY_IGNORE_MAYBE_UNINITIALIZED_END --} -- -- -- -- --/* The lookahead symbol. */ --int yychar; -- --/* The semantic value of the lookahead symbol. */ --YYSTYPE yylval; --/* Number of syntax errors so far. */ --int yynerrs; -- -- --/*----------. --| yyparse. | --`----------*/ -- --int --yyparse (void) --{ -- int yystate; -- /* Number of tokens to shift before error messages enabled. */ -- int yyerrstatus; -- -- /* The stacks and their tools: -- 'yyss': related to states. -- 'yyvs': related to semantic values. -- -- Refer to the stacks through separate pointers, to allow yyoverflow -- to reallocate them elsewhere. */ -- -- /* The state stack. */ -- yytype_int16 yyssa[YYINITDEPTH]; -- yytype_int16 *yyss; -- yytype_int16 *yyssp; -- -- /* The semantic value stack. */ -- YYSTYPE yyvsa[YYINITDEPTH]; -- YYSTYPE *yyvs; -- YYSTYPE *yyvsp; -- -- YYSIZE_T yystacksize; -- -- int yyn; -- int yyresult; -- /* Lookahead token as an internal (translated) token number. */ -- int yytoken = 0; -- /* The variables used to return semantic value and location from the -- action routines. */ -- YYSTYPE yyval; -- --#if YYERROR_VERBOSE -- /* Buffer for error messages, and its allocated size. */ -- char yymsgbuf[128]; -- char *yymsg = yymsgbuf; -- YYSIZE_T yymsg_alloc = sizeof yymsgbuf; --#endif -- --#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) -- -- /* The number of symbols on the RHS of the reduced rule. -- Keep to zero when no symbol should be popped. */ -- int yylen = 0; -- -- yyssp = yyss = yyssa; -- yyvsp = yyvs = yyvsa; -- yystacksize = YYINITDEPTH; -- -- YYDPRINTF ((stderr, "Starting parse\n")); -- -- yystate = 0; -- yyerrstatus = 0; -- yynerrs = 0; -- yychar = YYEMPTY; /* Cause a token to be read. */ -- goto yysetstate; -- --/*------------------------------------------------------------. --| yynewstate -- Push a new state, which is found in yystate. | --`------------------------------------------------------------*/ -- yynewstate: -- /* In all cases, when you get here, the value and location stacks -- have just been pushed. So pushing a state here evens the stacks. */ -- yyssp++; -- -- yysetstate: -- *yyssp = yystate; -- -- if (yyss + yystacksize - 1 <= yyssp) -- { -- /* Get the current used size of the three stacks, in elements. */ -- YYSIZE_T yysize = yyssp - yyss + 1; -- --#ifdef yyoverflow -- { -- /* Give user a chance to reallocate the stack. Use copies of -- these so that the &'s don't force the real ones into -- memory. */ -- YYSTYPE *yyvs1 = yyvs; -- yytype_int16 *yyss1 = yyss; -- -- /* Each stack pointer address is followed by the size of the -- data in use in that stack, in bytes. This used to be a -- conditional around just the two extra args, but that might -- be undefined if yyoverflow is a macro. */ -- yyoverflow (YY_("memory exhausted"), -- &yyss1, yysize * sizeof (*yyssp), -- &yyvs1, yysize * sizeof (*yyvsp), -- &yystacksize); -- -- yyss = yyss1; -- yyvs = yyvs1; -- } --#else /* no yyoverflow */ --# ifndef YYSTACK_RELOCATE -- goto yyexhaustedlab; --# else -- /* Extend the stack our own way. */ -- if (YYMAXDEPTH <= yystacksize) -- goto yyexhaustedlab; -- yystacksize *= 2; -- if (YYMAXDEPTH < yystacksize) -- yystacksize = YYMAXDEPTH; -- -- { -- yytype_int16 *yyss1 = yyss; -- union yyalloc *yyptr = -- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); -- if (! yyptr) -- goto yyexhaustedlab; -- YYSTACK_RELOCATE (yyss_alloc, yyss); -- YYSTACK_RELOCATE (yyvs_alloc, yyvs); --# undef YYSTACK_RELOCATE -- if (yyss1 != yyssa) -- YYSTACK_FREE (yyss1); -- } --# endif --#endif /* no yyoverflow */ -- -- yyssp = yyss + yysize - 1; -- yyvsp = yyvs + yysize - 1; -- -- YYDPRINTF ((stderr, "Stack size increased to %lu\n", -- (unsigned long int) yystacksize)); -- -- if (yyss + yystacksize - 1 <= yyssp) -- YYABORT; -- } -- -- YYDPRINTF ((stderr, "Entering state %d\n", yystate)); -- -- if (yystate == YYFINAL) -- YYACCEPT; -- -- goto yybackup; -- --/*-----------. --| yybackup. | --`-----------*/ --yybackup: -- -- /* Do appropriate processing given the current state. Read a -- lookahead token if we need one and don't already have one. */ -- -- /* First try to decide what to do without reference to lookahead token. */ -- yyn = yypact[yystate]; -- if (yypact_value_is_default (yyn)) -- goto yydefault; -- -- /* Not known => get a lookahead token if don't already have one. */ -- -- /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ -- if (yychar == YYEMPTY) -- { -- YYDPRINTF ((stderr, "Reading a token: ")); -- yychar = yylex (); -- } -- -- if (yychar <= YYEOF) -- { -- yychar = yytoken = YYEOF; -- YYDPRINTF ((stderr, "Now at end of input.\n")); -- } -- else -- { -- yytoken = YYTRANSLATE (yychar); -- YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); -- } -- -- /* If the proper action on seeing token YYTOKEN is to reduce or to -- detect an error, take that action. */ -- yyn += yytoken; -- if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) -- goto yydefault; -- yyn = yytable[yyn]; -- if (yyn <= 0) -- { -- if (yytable_value_is_error (yyn)) -- goto yyerrlab; -- yyn = -yyn; -- goto yyreduce; -- } -- -- /* Count tokens shifted since error; after three, turn off error -- status. */ -- if (yyerrstatus) -- yyerrstatus--; -- -- /* Shift the lookahead token. */ -- YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); -- -- /* Discard the shifted token. */ -- yychar = YYEMPTY; -- -- yystate = yyn; -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- *++yyvsp = yylval; -- YY_IGNORE_MAYBE_UNINITIALIZED_END -- -- goto yynewstate; -- -- --/*-----------------------------------------------------------. --| yydefault -- do the default action for the current state. | --`-----------------------------------------------------------*/ --yydefault: -- yyn = yydefact[yystate]; -- if (yyn == 0) -- goto yyerrlab; -- goto yyreduce; -- -- --/*-----------------------------. --| yyreduce -- Do a reduction. | --`-----------------------------*/ --yyreduce: -- /* yyn is the number of a rule to reduce with. */ -- yylen = yyr2[yyn]; -- -- /* If YYLEN is nonzero, implement the default value of the action: -- '$$ = $1'. -- -- Otherwise, the following line sets YYVAL to garbage. -- This behavior is undocumented and Bison -- users should not rely upon it. Assigning to YYVAL -- unconditionally makes the parser a bit smaller, and it avoids a -- GCC warning that YYVAL may be used uninitialized. */ -- yyval = yyvsp[1-yylen]; -- -- -- YY_REDUCE_PRINT (yyn); -- switch (yyn) -- { -- case 2: --#line 249 "label.y" /* yacc.c:1646 */ -- { parse_result = ((yyvsp[0].expr) ? new analyzed_expr((yyvsp[0].expr)) : 0); } --#line 1435 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 3: --#line 254 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = (yyvsp[0].expr); } --#line 1441 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 4: --#line 256 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new conditional_expr((yyvsp[-4].expr), (yyvsp[-2].expr), (yyvsp[0].expr)); } --#line 1447 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 5: --#line 261 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = 0; } --#line 1453 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 6: --#line 263 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = (yyvsp[0].expr); } --#line 1459 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 7: --#line 268 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = (yyvsp[0].expr); } --#line 1465 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 8: --#line 270 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new alternative_expr((yyvsp[-2].expr), (yyvsp[0].expr)); } --#line 1471 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 9: --#line 272 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new conditional_expr((yyvsp[-2].expr), (yyvsp[0].expr), 0); } --#line 1477 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 10: --#line 277 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = (yyvsp[0].expr); } --#line 1483 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 11: --#line 279 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new list_expr((yyvsp[-1].expr), (yyvsp[0].expr)); } --#line 1489 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 12: --#line 284 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = (yyvsp[0].expr); } --#line 1495 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 13: --#line 286 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new substitute_expr((yyvsp[-2].expr), (yyvsp[0].expr)); } --#line 1501 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 14: --#line 291 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new at_expr; } --#line 1507 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 15: --#line 293 "label.y" /* yacc.c:1646 */ -- { -- (yyval.expr) = new literal_expr(literals.contents() + (yyvsp[0].str).start, -- (yyvsp[0].str).len); -- } --#line 1516 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 16: --#line 298 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new field_expr((yyvsp[0].num), 0); } --#line 1522 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 17: --#line 300 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new field_expr((yyvsp[-1].num), (yyvsp[0].num) - 1); } --#line 1528 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 18: --#line 302 "label.y" /* yacc.c:1646 */ -- { -- switch ((yyvsp[0].num)) { -- case 'I': -- case 'i': -- case 'A': -- case 'a': -- (yyval.expr) = new format_expr((yyvsp[0].num)); -- break; -- default: -- command_error("unrecognized format `%1'", char((yyvsp[0].num))); -- (yyval.expr) = new format_expr('a'); -- break; -- } -- } --#line 1547 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 19: --#line 318 "label.y" /* yacc.c:1646 */ -- { -- (yyval.expr) = new format_expr('0', (yyvsp[0].dig).ndigits, (yyvsp[0].dig).val); -- } --#line 1555 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 20: --#line 322 "label.y" /* yacc.c:1646 */ -- { -- switch ((yyvsp[-1].num)) { -- case 'l': -- (yyval.expr) = new map_expr((yyvsp[-4].expr), lowercase); -- break; -- case 'u': -- (yyval.expr) = new map_expr((yyvsp[-4].expr), uppercase); -- break; -- case 'c': -- (yyval.expr) = new map_expr((yyvsp[-4].expr), capitalize); -- break; -- case 'r': -- (yyval.expr) = new map_expr((yyvsp[-4].expr), reverse_name); -- break; -- case 'a': -- (yyval.expr) = new map_expr((yyvsp[-4].expr), abbreviate_name); -- break; -- case 'y': -- (yyval.expr) = new extractor_expr((yyvsp[-4].expr), find_year, (yyvsp[-2].num)); -- break; -- case 'n': -- (yyval.expr) = new extractor_expr((yyvsp[-4].expr), find_last_name, (yyvsp[-2].num)); -- break; -- default: -- (yyval.expr) = (yyvsp[-4].expr); -- command_error("unknown function `%1'", char((yyvsp[-1].num))); -- break; -- } -- } --#line 1589 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 21: --#line 353 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new truncate_expr((yyvsp[-2].expr), (yyvsp[0].num)); } --#line 1595 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 22: --#line 355 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new truncate_expr((yyvsp[-2].expr), -(yyvsp[0].num)); } --#line 1601 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 23: --#line 357 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new star_expr((yyvsp[-1].expr)); } --#line 1607 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 24: --#line 359 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = (yyvsp[-1].expr); } --#line 1613 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 25: --#line 361 "label.y" /* yacc.c:1646 */ -- { (yyval.expr) = new separator_expr((yyvsp[-1].expr)); } --#line 1619 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 26: --#line 366 "label.y" /* yacc.c:1646 */ -- { (yyval.num) = -1; } --#line 1625 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 27: --#line 368 "label.y" /* yacc.c:1646 */ -- { (yyval.num) = (yyvsp[0].num); } --#line 1631 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 28: --#line 373 "label.y" /* yacc.c:1646 */ -- { (yyval.num) = (yyvsp[0].num); } --#line 1637 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 29: --#line 375 "label.y" /* yacc.c:1646 */ -- { (yyval.num) = (yyvsp[-1].num)*10 + (yyvsp[0].num); } --#line 1643 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 30: --#line 380 "label.y" /* yacc.c:1646 */ -- { (yyval.dig).ndigits = 1; (yyval.dig).val = (yyvsp[0].num); } --#line 1649 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 31: --#line 382 "label.y" /* yacc.c:1646 */ -- { (yyval.dig).ndigits = (yyvsp[-1].dig).ndigits + 1; (yyval.dig).val = (yyvsp[-1].dig).val*10 + (yyvsp[0].num); } --#line 1655 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 32: --#line 388 "label.y" /* yacc.c:1646 */ -- { (yyval.num) = 0; } --#line 1661 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 33: --#line 390 "label.y" /* yacc.c:1646 */ -- { (yyval.num) = 1; } --#line 1667 "label.cpp" /* yacc.c:1646 */ -- break; -- -- case 34: --#line 392 "label.y" /* yacc.c:1646 */ -- { (yyval.num) = -1; } --#line 1673 "label.cpp" /* yacc.c:1646 */ -- break; -- -- --#line 1677 "label.cpp" /* yacc.c:1646 */ -- default: break; -- } -- /* User semantic actions sometimes alter yychar, and that requires -- that yytoken be updated with the new translation. We take the -- approach of translating immediately before every use of yytoken. -- One alternative is translating here after every semantic action, -- but that translation would be missed if the semantic action invokes -- YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or -- if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an -- incorrect destructor might then be invoked immediately. In the -- case of YYERROR or YYBACKUP, subsequent parser actions might lead -- to an incorrect destructor call or verbose syntax error message -- before the lookahead is translated. */ -- YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); -- -- YYPOPSTACK (yylen); -- yylen = 0; -- YY_STACK_PRINT (yyss, yyssp); -- -- *++yyvsp = yyval; -- -- /* Now 'shift' the result of the reduction. Determine what state -- that goes to, based on the state we popped back to and the rule -- number reduced by. */ -- -- yyn = yyr1[yyn]; -- -- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; -- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) -- yystate = yytable[yystate]; -- else -- yystate = yydefgoto[yyn - YYNTOKENS]; -- -- goto yynewstate; -- -- --/*--------------------------------------. --| yyerrlab -- here on detecting error. | --`--------------------------------------*/ --yyerrlab: -- /* Make sure we have latest lookahead translation. See comments at -- user semantic actions for why this is necessary. */ -- yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); -- -- /* If not already recovering from an error, report this error. */ -- if (!yyerrstatus) -- { -- ++yynerrs; --#if ! YYERROR_VERBOSE -- yyerror (YY_("syntax error")); --#else --# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ -- yyssp, yytoken) -- { -- char const *yymsgp = YY_("syntax error"); -- int yysyntax_error_status; -- yysyntax_error_status = YYSYNTAX_ERROR; -- if (yysyntax_error_status == 0) -- yymsgp = yymsg; -- else if (yysyntax_error_status == 1) -- { -- if (yymsg != yymsgbuf) -- YYSTACK_FREE (yymsg); -- yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); -- if (!yymsg) -- { -- yymsg = yymsgbuf; -- yymsg_alloc = sizeof yymsgbuf; -- yysyntax_error_status = 2; -- } -- else -- { -- yysyntax_error_status = YYSYNTAX_ERROR; -- yymsgp = yymsg; -- } -- } -- yyerror (yymsgp); -- if (yysyntax_error_status == 2) -- goto yyexhaustedlab; -- } --# undef YYSYNTAX_ERROR --#endif -- } -- -- -- -- if (yyerrstatus == 3) -- { -- /* If just tried and failed to reuse lookahead token after an -- error, discard it. */ -- -- if (yychar <= YYEOF) -- { -- /* Return failure if at end of input. */ -- if (yychar == YYEOF) -- YYABORT; -- } -- else -- { -- yydestruct ("Error: discarding", -- yytoken, &yylval); -- yychar = YYEMPTY; -- } -- } -- -- /* Else will try to reuse lookahead token after shifting the error -- token. */ -- goto yyerrlab1; -- -- --/*---------------------------------------------------. --| yyerrorlab -- error raised explicitly by YYERROR. | --`---------------------------------------------------*/ --yyerrorlab: -- -- /* Pacify compilers like GCC when the user code never invokes -- YYERROR and the label yyerrorlab therefore never appears in user -- code. */ -- if (/*CONSTCOND*/ 0) -- goto yyerrorlab; -- -- /* Do not reclaim the symbols of the rule whose action triggered -- this YYERROR. */ -- YYPOPSTACK (yylen); -- yylen = 0; -- YY_STACK_PRINT (yyss, yyssp); -- yystate = *yyssp; -- goto yyerrlab1; -- -- --/*-------------------------------------------------------------. --| yyerrlab1 -- common code for both syntax error and YYERROR. | --`-------------------------------------------------------------*/ --yyerrlab1: -- yyerrstatus = 3; /* Each real token shifted decrements this. */ -- -- for (;;) -- { -- yyn = yypact[yystate]; -- if (!yypact_value_is_default (yyn)) -- { -- yyn += YYTERROR; -- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) -- { -- yyn = yytable[yyn]; -- if (0 < yyn) -- break; -- } -- } -- -- /* Pop the current state because it cannot handle the error token. */ -- if (yyssp == yyss) -- YYABORT; -- -- -- yydestruct ("Error: popping", -- yystos[yystate], yyvsp); -- YYPOPSTACK (1); -- yystate = *yyssp; -- YY_STACK_PRINT (yyss, yyssp); -- } -- -- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -- *++yyvsp = yylval; -- YY_IGNORE_MAYBE_UNINITIALIZED_END -- -- -- /* Shift the error token. */ -- YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); -- -- yystate = yyn; -- goto yynewstate; -- -- --/*-------------------------------------. --| yyacceptlab -- YYACCEPT comes here. | --`-------------------------------------*/ --yyacceptlab: -- yyresult = 0; -- goto yyreturn; -- --/*-----------------------------------. --| yyabortlab -- YYABORT comes here. | --`-----------------------------------*/ --yyabortlab: -- yyresult = 1; -- goto yyreturn; -- --#if !defined yyoverflow || YYERROR_VERBOSE --/*-------------------------------------------------. --| yyexhaustedlab -- memory exhaustion comes here. | --`-------------------------------------------------*/ --yyexhaustedlab: -- yyerror (YY_("memory exhausted")); -- yyresult = 2; -- /* Fall through. */ --#endif -- --yyreturn: -- if (yychar != YYEMPTY) -- { -- /* Make sure we have latest lookahead translation. See comments at -- user semantic actions for why this is necessary. */ -- yytoken = YYTRANSLATE (yychar); -- yydestruct ("Cleanup: discarding lookahead", -- yytoken, &yylval); -- } -- /* Do not reclaim the symbols of the rule whose action triggered -- this YYABORT or YYACCEPT. */ -- YYPOPSTACK (yylen); -- YY_STACK_PRINT (yyss, yyssp); -- while (yyssp != yyss) -- { -- yydestruct ("Cleanup: popping", -- yystos[*yyssp], yyvsp); -- YYPOPSTACK (1); -- } --#ifndef yyoverflow -- if (yyss != yyssa) -- YYSTACK_FREE (yyss); --#endif --#if YYERROR_VERBOSE -- if (yymsg != yymsgbuf) -- YYSTACK_FREE (yymsg); --#endif -- return yyresult; --} --#line 395 "label.y" /* yacc.c:1906 */ -- -- --/* bison defines const to be empty unless __STDC__ is defined, which it --isn't under cfront */ -- --#ifdef const --#undef const --#endif -- --const char *spec_ptr; --const char *spec_end; --const char *spec_cur; -- --static char uppercase_array[] = { -- 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', -- 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', -- 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', -- 'Y', 'Z', --}; -- --static char lowercase_array[] = { -- 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', -- 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', -- 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', -- 'y', 'z', --}; -- --int yylex() --{ -- while (spec_ptr < spec_end && csspace(*spec_ptr)) -- spec_ptr++; -- spec_cur = spec_ptr; -- if (spec_ptr >= spec_end) -- return 0; -- unsigned char c = *spec_ptr++; -- if (csalpha(c)) { -- yylval.num = c; -- return TOKEN_LETTER; -- } -- if (csdigit(c)) { -- yylval.num = c - '0'; -- return TOKEN_DIGIT; -- } -- if (c == '\'') { -- yylval.str.start = literals.length(); -- for (; spec_ptr < spec_end; spec_ptr++) { -- if (*spec_ptr == '\'') { -- if (++spec_ptr < spec_end && *spec_ptr == '\'') -- literals += '\''; -- else { -- yylval.str.len = literals.length() - yylval.str.start; -- return TOKEN_LITERAL; -- } -- } -- else -- literals += *spec_ptr; -- } -- yylval.str.len = literals.length() - yylval.str.start; -- return TOKEN_LITERAL; -- } -- return c; --} -- --int set_label_spec(const char *label_spec) --{ -- spec_cur = spec_ptr = label_spec; -- spec_end = strchr(label_spec, '\0'); -- literals.clear(); -- if (yyparse()) -- return 0; -- delete parsed_label; -- parsed_label = parse_result; -- return 1; --} -- --int set_date_label_spec(const char *label_spec) --{ -- spec_cur = spec_ptr = label_spec; -- spec_end = strchr(label_spec, '\0'); -- literals.clear(); -- if (yyparse()) -- return 0; -- delete parsed_date_label; -- parsed_date_label = parse_result; -- return 1; --} -- --int set_short_label_spec(const char *label_spec) --{ -- spec_cur = spec_ptr = label_spec; -- spec_end = strchr(label_spec, '\0'); -- literals.clear(); -- if (yyparse()) -- return 0; -- delete parsed_short_label; -- parsed_short_label = parse_result; -- return 1; --} -- --void yyerror(const char *message) --{ -- if (spec_cur < spec_end) -- command_error("label specification %1 before `%2'", message, spec_cur); -- else -- command_error("label specification %1 at end of string", -- message, spec_cur); --} -- --void at_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &) --{ -- if (tentative) -- ref.canonicalize_authors(result); -- else { -- const char *end, *start = ref.get_authors(&end); -- if (start) -- result.append(start, end - start); -- } --} -- --void format_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &) --{ -- if (tentative) -- return; -- const label_info *lp = ref.get_label_ptr(); -- int num = lp == 0 ? ref.get_number() : lp->count; -- if (type != '0') -- result += format_serial(type, num + 1); -- else { -- const char *ptr = i_to_a(num + first_number); -- int pad = width - strlen(ptr); -- while (--pad >= 0) -- result += '0'; -- result += ptr; -- } --} -- --static const char *format_serial(char c, int n) --{ -- assert(n > 0); -- static char buf[128]; // more than enough. -- switch (c) { -- case 'i': -- case 'I': -- { -- char *p = buf; -- // troff uses z and w to represent 10000 and 5000 in Roman -- // numerals; I can find no historical basis for this usage -- const char *s = c == 'i' ? "zwmdclxvi" : "ZWMDCLXVI"; -- if (n >= 40000) -- return i_to_a(n); -- while (n >= 10000) { -- *p++ = s[0]; -- n -= 10000; -- } -- for (int i = 1000; i > 0; i /= 10, s += 2) { -- int m = n/i; -- n -= m*i; -- switch (m) { -- case 3: -- *p++ = s[2]; -- /* falls through */ -- case 2: -- *p++ = s[2]; -- /* falls through */ -- case 1: -- *p++ = s[2]; -- break; -- case 4: -- *p++ = s[2]; -- *p++ = s[1]; -- break; -- case 8: -- *p++ = s[1]; -- *p++ = s[2]; -- *p++ = s[2]; -- *p++ = s[2]; -- break; -- case 7: -- *p++ = s[1]; -- *p++ = s[2]; -- *p++ = s[2]; -- break; -- case 6: -- *p++ = s[1]; -- *p++ = s[2]; -- break; -- case 5: -- *p++ = s[1]; -- break; -- case 9: -- *p++ = s[2]; -- *p++ = s[0]; -- } -- } -- *p = 0; -- break; -- } -- case 'a': -- case 'A': -- { -- char *p = buf; -- // this is derived from troff/reg.c -- while (n > 0) { -- int d = n % 26; -- if (d == 0) -- d = 26; -- n -= d; -- n /= 26; -- *p++ = c == 'a' ? lowercase_array[d - 1] : -- uppercase_array[d - 1]; -- } -- *p-- = 0; -- // Reverse it. -- char *q = buf; -- while (q < p) { -- char temp = *q; -- *q = *p; -- *p = temp; -- --p; -- ++q; -- } -- break; -- } -- default: -- assert(0); -- } -- return buf; --} -- --void field_expr::evaluate(int, const reference &ref, -- string &result, substring_position &) --{ -- const char *end; -- const char *start = ref.get_field(name, &end); -- if (start) { -- start = nth_field(number, start, &end); -- if (start) -- result.append(start, end - start); -- } --} -- --void literal_expr::evaluate(int, const reference &, -- string &result, substring_position &) --{ -- result += s; --} -- --analyzed_expr::analyzed_expr(expression *e) --: unary_expr(e), flags(e ? e->analyze() : 0) --{ --} -- --void analyzed_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &pos) --{ -- if (expr) -- expr->evaluate(tentative, ref, result, pos); --} -- --void star_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &pos) --{ -- const label_info *lp = ref.get_label_ptr(); -- if (!tentative -- && (lp == 0 || lp->total > 1) -- && expr) -- expr->evaluate(tentative, ref, result, pos); --} -- --void separator_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &pos) --{ -- int start_length = result.length(); -- int is_first = pos.start < 0; -- if (expr) -- expr->evaluate(tentative, ref, result, pos); -- if (is_first) { -- pos.start = start_length; -- pos.length = result.length() - start_length; -- } --} -- --void map_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &) --{ -- if (expr) { -- string temp; -- substring_position temp_pos; -- expr->evaluate(tentative, ref, temp, temp_pos); -- (*func)(temp.contents(), temp.contents() + temp.length(), result); -- } --} -- --void extractor_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &) --{ -- if (expr) { -- string temp; -- substring_position temp_pos; -- expr->evaluate(tentative, ref, temp, temp_pos); -- const char *end, *start = (*func)(temp.contents(), -- temp.contents() + temp.length(), -- &end); -- switch (part) { -- case BEFORE: -- if (start) -- result.append(temp.contents(), start - temp.contents()); -- else -- result += temp; -- break; -- case MATCH: -- if (start) -- result.append(start, end - start); -- break; -- case AFTER: -- if (start) -- result.append(end, temp.contents() + temp.length() - end); -- break; -- default: -- assert(0); -- } -- } --} -- --static void first_part(int len, const char *ptr, const char *end, -- string &result) --{ -- for (;;) { -- const char *token_start = ptr; -- if (!get_token(&ptr, end)) -- break; -- const token_info *ti = lookup_token(token_start, ptr); -- int counts = ti->sortify_non_empty(token_start, ptr); -- if (counts && --len < 0) -- break; -- if (counts || ti->is_accent()) -- result.append(token_start, ptr - token_start); -- } --} -- --static void last_part(int len, const char *ptr, const char *end, -- string &result) --{ -- const char *start = ptr; -- int count = 0; -- for (;;) { -- const char *token_start = ptr; -- if (!get_token(&ptr, end)) -- break; -- const token_info *ti = lookup_token(token_start, ptr); -- if (ti->sortify_non_empty(token_start, ptr)) -- count++; -- } -- ptr = start; -- int skip = count - len; -- if (skip > 0) { -- for (;;) { -- const char *token_start = ptr; -- if (!get_token(&ptr, end)) -- assert(0); -- const token_info *ti = lookup_token(token_start, ptr); -- if (ti->sortify_non_empty(token_start, ptr) && --skip < 0) { -- ptr = token_start; -- break; -- } -- } -- } -- first_part(len, ptr, end, result); --} -- --void truncate_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &) --{ -- if (expr) { -- string temp; -- substring_position temp_pos; -- expr->evaluate(tentative, ref, temp, temp_pos); -- const char *start = temp.contents(); -- const char *end = start + temp.length(); -- if (n > 0) -- first_part(n, start, end, result); -- else if (n < 0) -- last_part(-n, start, end, result); -- } --} -- --void alternative_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &pos) --{ -- int start_length = result.length(); -- if (expr1) -- expr1->evaluate(tentative, ref, result, pos); -- if (result.length() == start_length && expr2) -- expr2->evaluate(tentative, ref, result, pos); --} -- --void list_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &pos) --{ -- if (expr1) -- expr1->evaluate(tentative, ref, result, pos); -- if (expr2) -- expr2->evaluate(tentative, ref, result, pos); --} -- --void substitute_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &pos) --{ -- int start_length = result.length(); -- if (expr1) -- expr1->evaluate(tentative, ref, result, pos); -- if (result.length() > start_length && result[result.length() - 1] == '-') { -- // ought to see if pos covers the - -- result.set_length(result.length() - 1); -- if (expr2) -- expr2->evaluate(tentative, ref, result, pos); -- } --} -- --void conditional_expr::evaluate(int tentative, const reference &ref, -- string &result, substring_position &pos) --{ -- string temp; -- substring_position temp_pos; -- if (expr1) -- expr1->evaluate(tentative, ref, temp, temp_pos); -- if (temp.length() > 0) { -- if (expr2) -- expr2->evaluate(tentative, ref, result, pos); -- } -- else { -- if (expr3) -- expr3->evaluate(tentative, ref, result, pos); -- } --} -- --void reference::pre_compute_label() --{ -- if (parsed_label != 0 -- && (parsed_label->analyze() & expression::CONTAINS_VARIABLE)) { -- label.clear(); -- substring_position temp_pos; -- parsed_label->evaluate(1, *this, label, temp_pos); -- label_ptr = lookup_label(label); -- } --} -- --void reference::compute_label() --{ -- label.clear(); -- if (parsed_label) -- parsed_label->evaluate(0, *this, label, separator_pos); -- if (short_label_flag && parsed_short_label) -- parsed_short_label->evaluate(0, *this, short_label, short_separator_pos); -- if (date_as_label) { -- string new_date; -- if (parsed_date_label) { -- substring_position temp_pos; -- parsed_date_label->evaluate(0, *this, new_date, temp_pos); -- } -- set_date(new_date); -- } -- if (label_ptr) -- label_ptr->count += 1; --} -- --void reference::immediate_compute_label() --{ -- if (label_ptr) -- label_ptr->total = 2; // force use of disambiguator -- compute_label(); --} -- --int reference::merge_labels(reference **v, int n, label_type type, -- string &result) --{ -- if (abbreviate_label_ranges) -- return merge_labels_by_number(v, n, type, result); -- else -- return merge_labels_by_parts(v, n, type, result); --} -- --int reference::merge_labels_by_number(reference **v, int n, label_type type, -- string &result) --{ -- if (n <= 1) -- return 0; -- int num = get_number(); -- // Only merge three or more labels. -- if (v[0]->get_number() != num + 1 -- || v[1]->get_number() != num + 2) -- return 0; -- int i; -- for (i = 2; i < n; i++) -- if (v[i]->get_number() != num + i + 1) -- break; -- result = get_label(type); -- result += label_range_indicator; -- result += v[i - 1]->get_label(type); -- return i; --} -- --const substring_position &reference::get_separator_pos(label_type type) const --{ -- if (type == SHORT_LABEL && short_label_flag) -- return short_separator_pos; -- else -- return separator_pos; --} -- --const string &reference::get_label(label_type type) const --{ -- if (type == SHORT_LABEL && short_label_flag) -- return short_label; -- else -- return label; --} -- --int reference::merge_labels_by_parts(reference **v, int n, label_type type, -- string &result) --{ -- if (n <= 0) -- return 0; -- const string &lb = get_label(type); -- const substring_position &sp = get_separator_pos(type); -- if (sp.start < 0 -- || sp.start != v[0]->get_separator_pos(type).start -- || memcmp(lb.contents(), v[0]->get_label(type).contents(), -- sp.start) != 0) -- return 0; -- result = lb; -- int i = 0; -- do { -- result += separate_label_second_parts; -- const substring_position &s = v[i]->get_separator_pos(type); -- int sep_end_pos = s.start + s.length; -- result.append(v[i]->get_label(type).contents() + sep_end_pos, -- v[i]->get_label(type).length() - sep_end_pos); -- } while (++i < n -- && sp.start == v[i]->get_separator_pos(type).start -- && memcmp(lb.contents(), v[i]->get_label(type).contents(), -- sp.start) == 0); -- return i; --} -- --string label_pool; -- --label_info::label_info(const string &s) --: start(label_pool.length()), length(s.length()), count(0), total(1) --{ -- label_pool += s; --} -- --static label_info **label_table = 0; --static int label_table_size = 0; --static int label_table_used = 0; -- --label_info *lookup_label(const string &label) --{ -- if (label_table == 0) { -- label_table = new label_info *[17]; -- label_table_size = 17; -- for (int i = 0; i < 17; i++) -- label_table[i] = 0; -- } -- unsigned h = hash_string(label.contents(), label.length()) % label_table_size; -- label_info **ptr; -- for (ptr = label_table + h; -- *ptr != 0; -- (ptr == label_table) -- ? (ptr = label_table + label_table_size - 1) -- : ptr--) -- if ((*ptr)->length == label.length() -- && memcmp(label_pool.contents() + (*ptr)->start, label.contents(), -- label.length()) == 0) { -- (*ptr)->total += 1; -- return *ptr; -- } -- label_info *result = *ptr = new label_info(label); -- if (++label_table_used * 2 > label_table_size) { -- // Rehash the table. -- label_info **old_table = label_table; -- int old_size = label_table_size; -- label_table_size = next_size(label_table_size); -- label_table = new label_info *[label_table_size]; -- int i; -- for (i = 0; i < label_table_size; i++) -- label_table[i] = 0; -- for (i = 0; i < old_size; i++) -- if (old_table[i]) { -- h = hash_string(label_pool.contents() + old_table[i]->start, -- old_table[i]->length); -- label_info **p; -- for (p = label_table + (h % label_table_size); -- *p != 0; -- (p == label_table) -- ? (p = label_table + label_table_size - 1) -- : --p) -- ; -- *p = old_table[i]; -- } -- a_delete old_table; -- } -- return result; --} -- --void clear_labels() --{ -- for (int i = 0; i < label_table_size; i++) { -- delete label_table[i]; -- label_table[i] = 0; -- } -- label_table_used = 0; -- label_pool.clear(); --} -- --static void consider_authors(reference **start, reference **end, int i); -- --void compute_labels(reference **v, int n) --{ -- if (parsed_label -- && (parsed_label->analyze() & expression::CONTAINS_AT) -- && sort_fields.length() >= 2 -- && sort_fields[0] == 'A' -- && sort_fields[1] == '+') -- consider_authors(v, v + n, 0); -- for (int i = 0; i < n; i++) -- v[i]->compute_label(); --} -- -- --/* A reference with a list of authors _needs_ author i --where 0 <= i <= N if there exists a reference with a list of authors -- such that != and M >= i --and Aj = Bj for 0 <= j < i. In this case if we can't say ``A0, --A1,...,A(i-1) et al'' because this would match both and --. If a reference needs author i we only have to call --need_author(j) for some j >= i such that the reference also needs --author j. */ -- --/* This function handles 2 tasks: --determine which authors are needed (cannot be elided with et al.); --determine which authors can have only last names in the labels. -- --References >= start and < end have the same first i author names. --Also they're sorted by A+. */ -- --static void consider_authors(reference **start, reference **end, int i) --{ -- if (start >= end) -- return; -- reference **p = start; -- if (i >= (*p)->get_nauthors()) { -- for (++p; p < end && i >= (*p)->get_nauthors(); p++) -- ; -- if (p < end && i > 0) { -- // If we have an author list and an author list , -- // then both lists need C. -- for (reference **q = start; q < end; q++) -- (*q)->need_author(i - 1); -- } -- start = p; -- } -- while (p < end) { -- reference **last_name_start = p; -- reference **name_start = p; -- for (++p; -- p < end && i < (*p)->get_nauthors() -- && same_author_last_name(**last_name_start, **p, i); -- p++) { -- if (!same_author_name(**name_start, **p, i)) { -- consider_authors(name_start, p, i + 1); -- name_start = p; -- } -- } -- consider_authors(name_start, p, i + 1); -- if (last_name_start == name_start) { -- for (reference **q = last_name_start; q < p; q++) -- (*q)->set_last_name_unambiguous(i); -- } -- // If we have an author list and , then the lists -- // need author D and E respectively. -- if (name_start > start || p < end) { -- for (reference **q = last_name_start; q < p; q++) -- (*q)->need_author(i); -- } -- } --} -- --int same_author_last_name(const reference &r1, const reference &r2, int n) --{ -- const char *ae1; -- const char *as1 = r1.get_sort_field(0, n, 0, &ae1); -- const char *ae2; -- const char *as2 = r2.get_sort_field(0, n, 0, &ae2); -- if (!as1 && !as2) return 1; // they are the same -- if (!as1 || !as2) return 0; -- return ae1 - as1 == ae2 - as2 && memcmp(as1, as2, ae1 - as1) == 0; --} -- --int same_author_name(const reference &r1, const reference &r2, int n) --{ -- const char *ae1; -- const char *as1 = r1.get_sort_field(0, n, -1, &ae1); -- const char *ae2; -- const char *as2 = r2.get_sort_field(0, n, -1, &ae2); -- if (!as1 && !as2) return 1; // they are the same -- if (!as1 || !as2) return 0; -- return ae1 - as1 == ae2 - as2 && memcmp(as1, as2, ae1 - as1) == 0; --} -- -- --void int_set::set(int i) --{ -- assert(i >= 0); -- int bytei = i >> 3; -- if (bytei >= v.length()) { -- int old_length = v.length(); -- v.set_length(bytei + 1); -- for (int j = old_length; j <= bytei; j++) -- v[j] = 0; -- } -- v[bytei] |= 1 << (i & 7); --} -- --int int_set::get(int i) const --{ -- assert(i >= 0); -- int bytei = i >> 3; -- return bytei >= v.length() ? 0 : (v[bytei] & (1 << (i & 7))) != 0; --} -- --void reference::set_last_name_unambiguous(int i) --{ -- last_name_unambiguous.set(i); --} -- --void reference::need_author(int n) --{ -- if (n > last_needed_author) -- last_needed_author = n; --} -- --const char *reference::get_authors(const char **end) const --{ -- if (!computed_authors) { -- ((reference *)this)->computed_authors = 1; -- string &result = ((reference *)this)->authors; -- int na = get_nauthors(); -- result.clear(); -- for (int i = 0; i < na; i++) { -- if (last_name_unambiguous.get(i)) { -- const char *e, *start = get_author_last_name(i, &e); -- assert(start != 0); -- result.append(start, e - start); -- } -- else { -- const char *e, *start = get_author(i, &e); -- assert(start != 0); -- result.append(start, e - start); -- } -- if (i == last_needed_author -- && et_al.length() > 0 -- && et_al_min_elide > 0 -- && last_needed_author + et_al_min_elide < na -- && na >= et_al_min_total) { -- result += et_al; -- break; -- } -- if (i < na - 1) { -- if (na == 2) -- result += join_authors_exactly_two; -- else if (i < na - 2) -- result += join_authors_default; -- else -- result += join_authors_last_two; -- } -- } -- } -- const char *start = authors.contents(); -- *end = start + authors.length(); -- return start; --} -- --int reference::get_nauthors() const --{ -- if (nauthors < 0) { -- const char *dummy; -- int na; -- for (na = 0; get_author(na, &dummy) != 0; na++) -- ; -- ((reference *)this)->nauthors = na; -- } -- return nauthors; --} -diff --git a/src/preproc/refer/label.y b/src/preproc/refer/label.y -index 7d0708a..850c3a3 100644 ---- a/src/preproc/refer/label.y -+++ b/src/preproc/refer/label.y -@@ -246,7 +246,7 @@ string literals; - - expr: - optional_conditional -- { parse_result = ($1 ? new analyzed_expr($1) : 0); } -+ { if (parse_result) delete parse_result; parse_result = ($1 ? new analyzed_expr($1) : 0); } - ; - - conditional: -diff --git a/src/preproc/tbl/table.cpp b/src/preproc/tbl/table.cpp -index f43fe7d..01b5162 100644 ---- a/src/preproc/tbl/table.cpp -+++ b/src/preproc/tbl/table.cpp -@@ -858,7 +858,7 @@ void single_line_entry::simple_print(int dont_move) - printfs("\\s[\\n[" LINESIZE_REG "]]" "\\D'l |\\n[%1]u", - column_divide_reg(end_col+1)); - if (double_vrule_on_right) { -- prints(double_vrule_on_left == 1 ? "+" : "-"); -+ prints(double_vrule_on_right == 1 ? "+" : "-"); - prints(HALF_DOUBLE_LINE_SEP); - } - prints("0'\\s0"); -@@ -903,7 +903,7 @@ void double_line_entry::simple_print(int dont_move) - "\\D'l |\\n[%1]u", - column_divide_reg(start_col)); - if (double_vrule_on_right) { -- prints(double_vrule_on_left == 1 ? "+" : "-"); -+ prints(double_vrule_on_right == 1 ? "+" : "-"); - prints(HALF_DOUBLE_LINE_SEP); - } - prints(" 0'"); -diff --git a/src/roff/troff/dictionary.cpp b/src/roff/troff/dictionary.cpp -index 538531a..2dececa 100644 ---- a/src/roff/troff/dictionary.cpp -+++ b/src/roff/troff/dictionary.cpp -@@ -41,6 +41,11 @@ dictionary::dictionary(int n) : size(n), used(0), threshold(0.5), factor(1.5) - table = new association[n]; - } - -+dictionary::~dictionary() -+{ -+ a_delete table; -+} -+ - // see Knuth, Sorting and Searching, p518, Algorithm L - // we can't use double-hashing because we want a remove function - -diff --git a/src/roff/troff/dictionary.h b/src/roff/troff/dictionary.h -index 422a58e..d5ffff8 100644 ---- a/src/roff/troff/dictionary.h -+++ b/src/roff/troff/dictionary.h -@@ -47,6 +47,7 @@ class dictionary { - void rehash(int); - public: - dictionary(int); -+ ~dictionary(); - void *lookup(symbol s, void *v=0); // returns value associated with key - void *lookup(const char *); - // if second parameter not NULL, value will be replaced -diff --git a/src/roff/troff/env.cpp b/src/roff/troff/env.cpp -index 9fbd592..2a0fe8c 100644 ---- a/src/roff/troff/env.cpp -+++ b/src/roff/troff/env.cpp -@@ -430,6 +430,9 @@ void environment::space_newline() - w->next = new width_list(sw, ssw); - if (line != 0 && line->merge_space(x, sw, ssw)) { - width_total += x; -+ if (w->next) -+ delete w->next; -+ delete w; - return; - } - add_node(new word_space_node(x, get_fill_color(), w)); -@@ -1243,8 +1246,10 @@ void override_sizes() - int *sizes = new int[n]; - int i = 0; - char *buf = read_string(); -- if (!buf) -+ if (!buf) { -+ a_delete sizes; - return; -+ } - char *p = strtok(buf, " \t"); - for (;;) { - if (!p) -@@ -1260,6 +1265,8 @@ void override_sizes() - // fall through - default: - warning(WARN_RANGE, "bad size range `%1'", p); -+ a_delete sizes; -+ a_delete buf; - return; - } - if (i + 2 > n) { -@@ -1276,6 +1283,8 @@ void override_sizes() - p = strtok(0, " \t"); - } - font_size::init_size_table(sizes); -+ a_delete sizes; -+ a_delete buf; - } - - void space_size() -diff --git a/src/roff/troff/input.cpp b/src/roff/troff/input.cpp -index 9594f07..f2c8f68 100644 ---- a/src/roff/troff/input.cpp -+++ b/src/roff/troff/input.cpp -@@ -7693,6 +7693,11 @@ static void parse_output_page_list(char *p) - } - if (*p != '\0') { - error("bad output page list"); -+ while (output_page_list) { -+ page_range *l = output_page_list; -+ output_page_list = output_page_list->next; -+ delete l; -+ } - output_page_list = 0; - } - } -diff --git a/src/roff/troff/mtsm.cpp b/src/roff/troff/mtsm.cpp -index 0fd2d33..dcf31ad 100644 ---- a/src/roff/troff/mtsm.cpp -+++ b/src/roff/troff/mtsm.cpp -@@ -374,8 +374,9 @@ void mtsm::push_state(statem *n) - { - if (is_html) { - #if defined(DEBUGGING) -- if (debug_state) -+ if (debug_state) { - fprintf(stderr, "--> state %d pushed\n", n->issue_no) ; fflush(stderr); -+ } - #endif - sp = new stack(n, sp); - } -@@ -385,8 +386,9 @@ void mtsm::pop_state() - { - if (is_html) { - #if defined(DEBUGGING) -- if (debug_state) -+ if (debug_state) { - fprintf(stderr, "--> state popped\n") ; fflush(stderr); -+ } - #endif - if (sp == 0) - fatal("empty state machine stack"); -diff --git a/src/utils/addftinfo/addftinfo.cpp b/src/utils/addftinfo/addftinfo.cpp -index 88095bf..a5afbfb 100644 ---- a/src/utils/addftinfo/addftinfo.cpp -+++ b/src/utils/addftinfo/addftinfo.cpp -@@ -125,6 +125,7 @@ int main(int argc, char **argv) - if (infp == 0) - fatal("can't open `%1': %2", font, strerror(errno)); - convert_font(param, infp, stdout); -+ fclose(infp); - return 0; - } - -diff --git a/src/utils/hpftodit/hpftodit.cpp b/src/utils/hpftodit/hpftodit.cpp -index 069608d..7bde0b6 100644 ---- a/src/utils/hpftodit/hpftodit.cpp -+++ b/src/utils/hpftodit/hpftodit.cpp -@@ -140,6 +140,7 @@ typedef unsigned int uint32; - class File { - public: - File(const char *); -+ ~File(); - void skip(int n); - byte get_byte(); - uint16 get_uint16(); -@@ -412,6 +413,7 @@ File::File(const char *s) - fatal("not a regular file"); - buf_ = new unsigned char[sb.st_size]; - long nread = read(fd, buf_, sb.st_size); -+ close(fd); - if (nread < 0) - fatal("read error: %1", strerror(errno)); - if (nread != sb.st_size) -@@ -420,6 +422,11 @@ File::File(const char *s) - end_ = buf_ + sb.st_size; - } - -+File::~File() -+{ -+ a_delete buf_; -+} -+ - void - File::skip(int n) - { -@@ -868,10 +875,15 @@ output_charset(const int tfm_type) - printf("%s", charcode_name_table[charcode]->name); - else if (!all_flag) - continue; -- else if (tfm_type == MSL) -- printf("%s", hp_msl_to_ucode_name(charcode)); -- else -- printf("%s", unicode_to_ucode_name(charcode)); -+ else if (tfm_type == MSL) { -+ char *name = hp_msl_to_ucode_name(charcode); -+ printf("%s", name); -+ a_delete name; -+ } else { -+ char *name = unicode_to_ucode_name(charcode); -+ printf("%s", name); -+ a_delete name; -+ } - - printf("\t%d,%d", - scale(char_table[i].width), scale(char_table[i].ascent)); -@@ -1383,6 +1395,7 @@ read_map(const char *file, const int tfm_type) - } - if (strlen(ptr) != 4) { - error("bad Unicode value (%1)", ptr); -+ fclose(fp); - return 0; - } - -@@ -1399,6 +1412,8 @@ read_map(const char *file, const int tfm_type) - return 0; - } - -+ char *name = NULL; -+ - ptr = strtok(NULL, " \n\t"); - if (!ptr) { // groff name - error("missing name(s)"); -@@ -1407,7 +1422,7 @@ read_map(const char *file, const int tfm_type) - } - // leave decomposed Unicode values alone - else if (is_uname(ptr) && !is_decomposed(ptr)) -- ptr = unicode_to_ucode_name(strtol(ptr + 1, &nonum, 16)); -+ ptr = name = unicode_to_ucode_name(strtol(ptr + 1, &nonum, 16)); - - if (size_t(n) >= charcode_name_table_size) { - size_t old_size = charcode_name_table_size; -@@ -1428,6 +1443,9 @@ read_map(const char *file, const int tfm_type) - break; - charcode_name_table[n] = new name_list(ptr, charcode_name_table[n]); - } -+ -+ if (name != NULL) -+ a_delete name; - } - fclose(fp); - return 1; -diff --git a/src/utils/indxbib/indxbib.cpp b/src/utils/indxbib/indxbib.cpp -index ee568d8..d9d4c3e 100644 ---- a/src/utils/indxbib/indxbib.cpp -+++ b/src/utils/indxbib/indxbib.cpp -@@ -70,6 +70,7 @@ struct word_list { - char *str; - int len; - word_list(const char *, int, word_list *); -+ ~word_list(); - }; - - table_entry *hash_table; -@@ -314,6 +315,7 @@ int main(int argc, char **argv) - if (unlink(temp_index_file) < 0) - fatal("can't unlink temporary index file: %1", strerror(errno)); - #endif /* not HAVE_RENAME */ -+ a_delete index_file; - temp_index_file = 0; - return failed; - } -@@ -372,6 +374,11 @@ word_list::word_list(const char *s, int n, word_list *p) - memcpy(str, s, n); - } - -+word_list::~word_list() -+{ -+ a_delete str; -+} -+ - static void read_common_words_file() - { - if (n_ignore_words <= 0) -diff --git a/src/utils/tfmtodit/tfmtodit.cpp b/src/utils/tfmtodit/tfmtodit.cpp -index 6fef258..c5c8865 100644 ---- a/src/utils/tfmtodit/tfmtodit.cpp -+++ b/src/utils/tfmtodit/tfmtodit.cpp -@@ -421,6 +421,7 @@ int gf::load(const char *file) - } - if (getc(fp) != pre || getc(fp) != gf_id_byte) { - error("bad gf file"); -+ fclose(fp); - return 0; - } - int n = getc(fp); -@@ -537,11 +538,13 @@ int gf::load(const char *file) - break; - } - } -+ fclose(fp); - if (!got_an_adjustment) - warning("no adjustment specials found in gf file"); - return 1; - eof: - error("unexpected end of file"); -+ fclose(fp); - return 0; - } - -@@ -590,12 +593,17 @@ struct char_list { - char *ch; - char_list *next; - char_list(const char *, char_list * = 0); -+ ~char_list(); - }; - - char_list::char_list(const char *s, char_list *p) : ch(strsave(s)), next(p) - { - } - -+char_list::~char_list() -+{ -+ a_delete ch; -+} - - int read_map(const char *file, char_list **table) - { --- -2.17.2 - diff --git a/groff.spec b/groff.spec index 58f4f0b..b377018 100644 --- a/groff.spec +++ b/groff.spec @@ -2,12 +2,51 @@ Summary: A document formatting system Name: groff -Version: 1.22.3 -Release: 18%{?dist} -License: GPLv3+ and GFDL and BSD and MIT -Group: Applications/Publishing +Version: 1.23.0 +Release: 10%{?dist} +# Everything is under GPL-3.0-or-later, except for the following files: +# MIT license +# -- tmac/hyphen.den +# tmac/hyphen.det +# GFDL license +# -- contrib/mom/momdoc/* +# contrib/pdfmark/pdfmark.ms +# contrib/pdfmark/pdfroff.1.man +# contrib/hdtbl/groff_hdtbl.7.man +# tmac/groff_trace.7.man +# src/roff/groff/groff.1.man +# src/roff/troff/troff.1.man +# man/groff_diff.7.man +# man/ditroff.7.man +# man/groff_out.5.man +# man/groff_tmac.5.man +# man/groff.7.man +# man/roff.7.man +# doc/fdl.texi +# doc/groff.texi +# BSD-4-Clause-UC +# -- tmac/doc.tmac +# tmac/doc-old.tmac +# tmac/doc-common +# tmac/doc-ditroff +# tmac/doc-nroff +# tmac/doc-syms +# tmac/groff_mdoc.man +# tmac/e.tmac +# tmac/groff_me.man +# doc/meintro.me +# doc/meintro_fr.me +# doc/meref.me +# X11 license +# -- src/devices/xditview/* +# Public domain +# -- src/preproc/grn +# contrib/grap2graph/grap2graph.sh +# contrib/pic2graph/pic2graph.sh +# contrib/eqn2graph/eqn2graph.sh +License: GPL-3.0-or-later AND GFDL-1.3-or-later AND BSD-4-Clause-UC AND MIT AND X11 AND LicenseRef-Fedora-Public-Domain URL: http://www.gnu.org/software/groff/ -Source: ftp://ftp.gnu.org/gnu/groff/groff-%{version}.tar.gz +Source: https://ftp.gnu.org/gnu/groff/groff-%{version}.tar.gz # resolves: #530788 Patch0: 0001-missing-groff-x11-info-message-when-gxditview-not-fo.patch @@ -16,17 +55,39 @@ Patch1: 0002-load-site-font-and-site-tmac-from-etc-groff.patch Patch2: 0003-various-security-fixes.patch # resolves: #987069 Patch3: 0004-don-t-use-usr-bin-env-in-shebang.patch -# SSIA -Patch4: 0005-Add-missing-rule-for-gropdf.patch -# resolves: #1602530 -Patch5: groff-1.22.3-coverity.patch +# allow to specify custom docdir +Patch4: 0005-do-not-overwrite-docdir.patch +# Revert upstream change of mapping special characters for UTF-8 devices +# Debian commit: https://salsa.debian.org/debian/groff/-/commit/d5394c68d70e6c5199b01d2522e094c8fd52e64e +# SAST fixes +# Reported to upstream: +# https://savannah.gnu.org/bugs/?66052 +# https://savannah.gnu.org/bugs/index.php?66076 +# https://savannah.gnu.org/bugs/index.php?66078 +# https://savannah.gnu.org/bugs/index.php?66079 +# https://savannah.gnu.org/bugs/index.php?66080 +# https://savannah.gnu.org/bugs/?66081 +Patch5: 0006-Revert-upstream-change-of-mapping-special-characters.patch +Patch6: 0007-Fix-the-possible-overrun-of-buf-array.patch +Patch7: 0008-Fix-for-insufficient-allocation-of-iterator.patch +Patch8: 0009-Safely-handle-the-name-argument-in-NewFile-func.patch +Patch9: 0010-Fix-array-comparison-warning-by-comparing-elements-i.patch +Patch10: 0011-Initialize-s-to-prevent-undefined-behavior.patch +Patch11: 0012-Initialize-x-and-y-elements-of-the-here-structure.patch +Patch12: 0013-Fix-uninitialized-memory-usage-in-override_sizes-by-.patch + +Requires: coreutils, groff-base = %{version}-%{release} + +Recommends: psutils + +Requires(post): /usr/sbin/update-alternatives +Requires(postun): /usr/sbin/update-alternatives +Requires(preun): /usr/sbin/update-alternatives -Requires: coreutils, /sbin/install-info, groff-base = %{version}-%{release} -Requires(post): info -Requires(preun): info BuildRequires: gcc, gcc-c++ -BuildRequires: byacc +BuildRequires: bison, texinfo BuildRequires: git, netpbm-progs, perl-generators, psutils, ghostscript + Provides: nroff-i18n = %{version}-%{release} Provides: bundled(gnulib) @@ -46,7 +107,9 @@ groff-x11 package. %package base Summary: Parts of the groff formatting system required to display manual pages -Group: Applications/Publishing +Requires(post): /usr/sbin/update-alternatives +Requires(postun): /usr/sbin/update-alternatives +Requires(preun): /usr/sbin/update-alternatives %description base The groff-base package contains only necessary parts of groff formatting @@ -55,7 +118,6 @@ display device (PostScript). %package perl Summary: Parts of the groff formatting system that require Perl -Group: Applications/Publishing Requires: groff-base = %{version}-%{release} %description perl @@ -70,9 +132,9 @@ roff2html roff2pdf roff2ps roff2text roff2x (roff code converters). %if %{with_x} %package x11 Summary: Parts of the groff formatting system that require X Windows System -Group: Applications/Publishing Requires: groff-base = %{version}-%{release} BuildRequires: libXaw-devel, libXmu-devel +BuildRequires: make Provides: groff-gxditview = %{version}-%{release} Obsoletes: groff-gxditview < 1.20.1 @@ -85,11 +147,8 @@ xtotroff (converts X font metrics into groff font metrics). %package doc Summary: Documentation for groff document formatting system -Group: Documentation BuildArch: noarch Requires: groff = %{version}-%{release} -Requires(post): info -Requires(preun): info %description doc The groff-doc package includes additional documentation for groff @@ -105,7 +164,7 @@ git add . git commit -n -m "release %{version}" git am %{patches} -for file in NEWS src/devices/grolbp/grolbp.man doc/{groff.info*,webpage.ms} \ +for file in NEWS src/devices/grolbp/grolbp.1.man doc/webpage.ms \ contrib/mm/*.man contrib/mom/examples/{README.txt,*.mom,mom.vim}; do iconv -f iso-8859-1 -t utf-8 < "$file" > "${file}_" mv "${file}_" "$file" @@ -114,12 +173,20 @@ done %build %configure \ --docdir=%{_pkgdocdir} \ - --with-appresdir=%{_datadir}/X11/app-defaults \ + --with-appdefdir=%{_datadir}/X11/app-defaults \ --with-grofferdir=%{_datadir}/%{name}/%{version}/groffer -make %{?_smp_mflags} +%make_build %install -make install DESTDIR=%{buildroot} +%make_install + +# rename files for alternative usage +mv %{buildroot}%{_bindir}/soelim %{buildroot}%{_bindir}/soelim.%{name} +touch %{buildroot}%{_bindir}/soelim +mv %{buildroot}%{_mandir}/man1/soelim.1 %{buildroot}%{_mandir}/man1/soelim.%{name}.1 +touch %{buildroot}%{_mandir}/man1/soelim.1 +mv %{buildroot}%{_mandir}/man7/roff.7 %{buildroot}%{_mandir}/man7/roff.%{name}.7 +touch %{buildroot}%{_mandir}/man7/roff.7 # some binaries need alias with 'g' or 'z' prefix for file in g{nroff,troff,tbl,pic,eqn,neqn,refer,lookbib,indxbib,soelim} zsoelim; do @@ -141,10 +208,6 @@ sed --in-place 's/\.pfa$/.pfa_/' %{buildroot}%{_datadir}/%{name}/%{version}/font # remove unnecessary files rm -f %{buildroot}%{_infodir}/dir -# fix privileges -chmod 755 %{buildroot}%{_datadir}/groff/%{version}/groffer/version.sh -chmod 755 %{buildroot}%{_datadir}/groff/%{version}/font/devlj4/generate/special.awk - # remove CreationDate from documentation pushd %{buildroot}%{_pkgdocdir} find -name "*.html" | xargs sed -i "/^