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