Code coverage tests

This page documents the degree to which the PARI/GP source code is tested by our public test suite, distributed with the source distribution in directory src/test/. This is measured by the gcov utility; we then process gcov output using the lcov frond-end.

We test a few variants depending on Configure flags on the pari.math.u-bordeaux.fr machine (x86_64 architecture), and agregate them in the final report:

The target is to exceed 90% coverage for all mathematical modules (given that branches depending on DEBUGLEVEL or DEBUGMEM are not covered). This script is run to produce the results below.

LCOV - code coverage report
Current view: top level - language - parse.c (source / functions) Hit Total Coverage
Test: PARI/GP v2.16.2 lcov report (development 29115-f22e516b23) Lines: 423 551 76.8 %
Date: 2024-04-22 08:08:03 Functions: 7 8 87.5 %
Legend: Lines: hit not hit

          Line data    Source code
       1             : /* A Bison parser, made by GNU Bison 3.7.5.  */
       2             : 
       3             : /* Bison implementation for Yacc-like parsers in C
       4             : 
       5             :    Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation,
       6             :    Inc.
       7             : 
       8             :    This program is free software: you can redistribute it and/or modify
       9             :    it under the terms of the GNU General Public License as published by
      10             :    the Free Software Foundation, either version 3 of the License, or
      11             :    (at your option) any later version.
      12             : 
      13             :    This program is distributed in the hope that it will be useful,
      14             :    but WITHOUT ANY WARRANTY; without even the implied warranty of
      15             :    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      16             :    GNU General Public License for more details.
      17             : 
      18             :    You should have received a copy of the GNU General Public License
      19             :    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
      20             : 
      21             : /* As a special exception, you may create a larger work that contains
      22             :    part or all of the Bison parser skeleton and distribute that work
      23             :    under terms of your choice, so long as that work isn't itself a
      24             :    parser generator using the skeleton or a modified version thereof
      25             :    as a parser skeleton.  Alternatively, if you modify or redistribute
      26             :    the parser skeleton itself, you may (at your option) remove this
      27             :    special exception, which will cause the skeleton and the resulting
      28             :    Bison output files to be licensed under the GNU General Public
      29             :    License without this special exception.
      30             : 
      31             :    This special exception was added by the Free Software Foundation in
      32             :    version 2.2 of Bison.  */
      33             : 
      34             : /* C LALR(1) parser skeleton written by Richard Stallman, by
      35             :    simplifying the original so-called "semantic" parser.  */
      36             : 
      37             : /* DO NOT RELY ON FEATURES THAT ARE NOT DOCUMENTED in the manual,
      38             :    especially those whose name start with YY_ or yy_.  They are
      39             :    private implementation details that can be changed or removed.  */
      40             : 
      41             : /* All symbols defined below should begin with yy or YY, to avoid
      42             :    infringing on user name space.  This should be done even for local
      43             :    variables, as they might otherwise be expanded by user macros.
      44             :    There are some unavoidable exceptions within include files to
      45             :    define necessary library symbols; they are noted "INFRINGES ON
      46             :    USER NAME SPACE" below.  */
      47             : 
      48             : /* Identify Bison output, and Bison version.  */
      49             : #define YYBISON 30705
      50             : 
      51             : /* Bison version string.  */
      52             : #define YYBISON_VERSION "3.7.5"
      53             : 
      54             : /* Skeleton name.  */
      55             : #define YYSKELETON_NAME "yacc.c"
      56             : 
      57             : /* Pure parsers.  */
      58             : #define YYPURE 2
      59             : 
      60             : /* Push parsers.  */
      61             : #define YYPUSH 0
      62             : 
      63             : /* Pull parsers.  */
      64             : #define YYPULL 1
      65             : 
      66             : /* Substitute the type names.  */
      67             : #define YYSTYPE         PARI_STYPE
      68             : #define YYLTYPE         PARI_LTYPE
      69             : /* Substitute the variable and function names.  */
      70             : #define yyparse         pari_parse
      71             : #define yylex           pari_lex
      72             : #define yyerror         pari_error
      73             : #define yydebug         pari_debug
      74             : #define yynerrs         pari_nerrs
      75             : 
      76             : /* First part of user prologue.  */
      77             : #line 1 "../src/language/parse.y"
      78             : 
      79             : /* Copyright (C) 2006  The PARI group.
      80             : 
      81             : This file is part of the PARI package.
      82             : 
      83             : PARI/GP is free software; you can redistribute it and/or modify it under the
      84             : terms of the GNU General Public License as published by the Free Software
      85             : Foundation; either version 2 of the License, or (at your option) any later
      86             : version. It is distributed in the hope that it will be useful, but WITHOUT
      87             : ANY WARRANTY WHATSOEVER.
      88             : 
      89             : Check the License for details. You should have received a copy of it, along
      90             : with the package; see the file 'COPYING'. If not, write to the Free Software
      91             : Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. */
      92             : 
      93             : #define PARI_STYPE union token_value
      94             : #define PARI_LTYPE struct node_loc
      95             : #define YYPTRDIFF_T long
      96             : #define YYPTRDIFF_MAXIMUM LONG_MAX
      97             : #define YYSIZE_T size_t
      98             : #define YYLLOC_DEFAULT(Current, Rhs, N)     \
      99             :         ((Current).start  = ((N)?(Rhs)[1].start:(Rhs)[0].end),  \
     100             :          (Current).end    = (Rhs)[N].end)
     101             : #include "parsec.h"
     102             : #define NOARG(x) newnode(Fnoarg,-1,-1,&(x))
     103             : #define NORANGE(x) newnode(Fnorange,-1,-1,&(x))
     104             : 
     105             : #line 106 "../src/language/parse.c"
     106             : 
     107             : # ifndef YY_CAST
     108             : #  ifdef __cplusplus
     109             : #   define YY_CAST(Type, Val) static_cast<Type> (Val)
     110             : #   define YY_REINTERPRET_CAST(Type, Val) reinterpret_cast<Type> (Val)
     111             : #  else
     112             : #   define YY_CAST(Type, Val) ((Type) (Val))
     113             : #   define YY_REINTERPRET_CAST(Type, Val) ((Type) (Val))
     114             : #  endif
     115             : # endif
     116             : # ifndef YY_NULLPTR
     117             : #  if defined __cplusplus
     118             : #   if 201103L <= __cplusplus
     119             : #    define YY_NULLPTR nullptr
     120             : #   else
     121             : #    define YY_NULLPTR 0
     122             : #   endif
     123             : #  else
     124             : #   define YY_NULLPTR ((void*)0)
     125             : #  endif
     126             : # endif
     127             : 
     128             : #include "parse.h"
     129             : /* Symbol kind.  */
     130             : enum yysymbol_kind_t
     131             : {
     132             :   YYSYMBOL_YYEMPTY = -2,
     133             :   YYSYMBOL_YYEOF = 0,                      /* "end of file"  */
     134             :   YYSYMBOL_YYerror = 1,                    /* error  */
     135             :   YYSYMBOL_YYUNDEF = 2,                    /* "invalid token"  */
     136             :   YYSYMBOL_KPARROW = 3,                    /* ")->"  */
     137             :   YYSYMBOL_KARROW = 4,                     /* "->"  */
     138             :   YYSYMBOL_KDOTDOT = 5,                    /* ".."  */
     139             :   YYSYMBOL_KPE = 6,                        /* "+="  */
     140             :   YYSYMBOL_KSE = 7,                        /* "-="  */
     141             :   YYSYMBOL_KME = 8,                        /* "*="  */
     142             :   YYSYMBOL_KDE = 9,                        /* "/="  */
     143             :   YYSYMBOL_KDRE = 10,                      /* "\\/="  */
     144             :   YYSYMBOL_KEUCE = 11,                     /* "\\="  */
     145             :   YYSYMBOL_KMODE = 12,                     /* "%="  */
     146             :   YYSYMBOL_KAND = 13,                      /* "&&"  */
     147             :   YYSYMBOL_KOR = 14,                       /* "||"  */
     148             :   YYSYMBOL_KID = 15,                       /* "==="  */
     149             :   YYSYMBOL_KEQ = 16,                       /* "=="  */
     150             :   YYSYMBOL_KNE = 17,                       /* "!="  */
     151             :   YYSYMBOL_KGE = 18,                       /* ">="  */
     152             :   YYSYMBOL_KLE = 19,                       /* "<="  */
     153             :   YYSYMBOL_KSRE = 20,                      /* ">>="  */
     154             :   YYSYMBOL_KSLE = 21,                      /* "<<="  */
     155             :   YYSYMBOL_KSR = 22,                       /* ">>"  */
     156             :   YYSYMBOL_KSL = 23,                       /* "<<"  */
     157             :   YYSYMBOL_KDR = 24,                       /* "\\/"  */
     158             :   YYSYMBOL_KPP = 25,                       /* "++"  */
     159             :   YYSYMBOL_KSS = 26,                       /* "--"  */
     160             :   YYSYMBOL_KINTEGER = 27,                  /* "integer"  */
     161             :   YYSYMBOL_KREAL = 28,                     /* "real number"  */
     162             :   YYSYMBOL_KENTRY = 29,                    /* "variable name"  */
     163             :   YYSYMBOL_KSTRING = 30,                   /* "character string"  */
     164             :   YYSYMBOL_SEQ = 31,                       /* SEQ  */
     165             :   YYSYMBOL_DEFFUNC = 32,                   /* DEFFUNC  */
     166             :   YYSYMBOL_INT = 33,                       /* INT  */
     167             :   YYSYMBOL_LVAL = 34,                      /* LVAL  */
     168             :   YYSYMBOL_35_ = 35,                       /* ';'  */
     169             :   YYSYMBOL_36_ = 36,                       /* ','  */
     170             :   YYSYMBOL_37_ = 37,                       /* '='  */
     171             :   YYSYMBOL_38_ = 38,                       /* '&'  */
     172             :   YYSYMBOL_39_ = 39,                       /* '>'  */
     173             :   YYSYMBOL_40_ = 40,                       /* '<'  */
     174             :   YYSYMBOL_41_ = 41,                       /* '+'  */
     175             :   YYSYMBOL_42_ = 42,                       /* '-'  */
     176             :   YYSYMBOL_43_ = 43,                       /* '%'  */
     177             :   YYSYMBOL_44_ = 44,                       /* '\\'  */
     178             :   YYSYMBOL_45_ = 45,                       /* '/'  */
     179             :   YYSYMBOL_46_ = 46,                       /* '*'  */
     180             :   YYSYMBOL_SIGN = 47,                      /* SIGN  */
     181             :   YYSYMBOL_48_ = 48,                       /* '^'  */
     182             :   YYSYMBOL_49_ = 49,                       /* '#'  */
     183             :   YYSYMBOL_50_ = 50,                       /* '!'  */
     184             :   YYSYMBOL_51_ = 51,                       /* '~'  */
     185             :   YYSYMBOL_52_ = 52,                       /* '['  */
     186             :   YYSYMBOL_DERIV = 53,                     /* DERIV  */
     187             :   YYSYMBOL_54_ = 54,                       /* '\''  */
     188             :   YYSYMBOL_55_ = 55,                       /* '.'  */
     189             :   YYSYMBOL_56_ = 56,                       /* '('  */
     190             :   YYSYMBOL_57_ = 57,                       /* ':'  */
     191             :   YYSYMBOL_58_ = 58,                       /* ']'  */
     192             :   YYSYMBOL_59_ = 59,                       /* '`'  */
     193             :   YYSYMBOL_60_ = 60,                       /* ')'  */
     194             :   YYSYMBOL_61_ = 61,                       /* '|'  */
     195             :   YYSYMBOL_YYACCEPT = 62,                  /* $accept  */
     196             :   YYSYMBOL_sequence = 63,                  /* sequence  */
     197             :   YYSYMBOL_seq = 64,                       /* seq  */
     198             :   YYSYMBOL_range = 65,                     /* range  */
     199             :   YYSYMBOL_matrix_index = 66,              /* matrix_index  */
     200             :   YYSYMBOL_backticks = 67,                 /* backticks  */
     201             :   YYSYMBOL_history = 68,                   /* history  */
     202             :   YYSYMBOL_deriv = 69,                     /* deriv  */
     203             :   YYSYMBOL_expr = 70,                      /* expr  */
     204             :   YYSYMBOL_lvalue = 71,                    /* lvalue  */
     205             :   YYSYMBOL_exprno = 72,                    /* exprno  */
     206             :   YYSYMBOL_matrixeltsno = 73,              /* matrixeltsno  */
     207             :   YYSYMBOL_matrixelts = 74,                /* matrixelts  */
     208             :   YYSYMBOL_matrixlines = 75,               /* matrixlines  */
     209             :   YYSYMBOL_matrix = 76,                    /* matrix  */
     210             :   YYSYMBOL_in = 77,                        /* in  */
     211             :   YYSYMBOL_inseq = 78,                     /* inseq  */
     212             :   YYSYMBOL_compr = 79,                     /* compr  */
     213             :   YYSYMBOL_arg = 80,                       /* arg  */
     214             :   YYSYMBOL_81_1 = 81,                      /* $@1  */
     215             :   YYSYMBOL_listarg = 82,                   /* listarg  */
     216             :   YYSYMBOL_funcid = 83,                    /* funcid  */
     217             :   YYSYMBOL_memberid = 84,                  /* memberid  */
     218             :   YYSYMBOL_definition = 85                 /* definition  */
     219             : };
     220             : typedef enum yysymbol_kind_t yysymbol_kind_t;
     221             : 
     222             : 
     223             : 
     224             : 
     225             : #ifdef short
     226             : # undef short
     227             : #endif
     228             : 
     229             : /* On compilers that do not define __PTRDIFF_MAX__ etc., make sure
     230             :    <limits.h> and (if available) <stdint.h> are included
     231             :    so that the code can choose integer types of a good width.  */
     232             : 
     233             : #ifndef __PTRDIFF_MAX__
     234             : # include <limits.h> /* INFRINGES ON USER NAME SPACE */
     235             : # if defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__
     236             : #  include <stdint.h> /* INFRINGES ON USER NAME SPACE */
     237             : #  define YY_STDINT_H
     238             : # endif
     239             : #endif
     240             : 
     241             : /* Narrow types that promote to a signed type and that can represent a
     242             :    signed or unsigned integer of at least N bits.  In tables they can
     243             :    save space and decrease cache pressure.  Promoting to a signed type
     244             :    helps avoid bugs in integer arithmetic.  */
     245             : 
     246             : #ifdef __INT_LEAST8_MAX__
     247             : typedef __INT_LEAST8_TYPE__ yytype_int8;
     248             : #elif defined YY_STDINT_H
     249             : typedef int_least8_t yytype_int8;
     250             : #else
     251             : typedef signed char yytype_int8;
     252             : #endif
     253             : 
     254             : #ifdef __INT_LEAST16_MAX__
     255             : typedef __INT_LEAST16_TYPE__ yytype_int16;
     256             : #elif defined YY_STDINT_H
     257             : typedef int_least16_t yytype_int16;
     258             : #else
     259             : typedef short yytype_int16;
     260             : #endif
     261             : 
     262             : /* Work around bug in HP-UX 11.23, which defines these macros
     263             :    incorrectly for preprocessor constants.  This workaround can likely
     264             :    be removed in 2023, as HPE has promised support for HP-UX 11.23
     265             :    (aka HP-UX 11i v2) only through the end of 2022; see Table 2 of
     266             :    <https://h20195.www2.hpe.com/V2/getpdf.aspx/4AA4-7673ENW.pdf>.  */
     267             : #ifdef __hpux
     268             : # undef UINT_LEAST8_MAX
     269             : # undef UINT_LEAST16_MAX
     270             : # define UINT_LEAST8_MAX 255
     271             : # define UINT_LEAST16_MAX 65535
     272             : #endif
     273             : 
     274             : #if defined __UINT_LEAST8_MAX__ && __UINT_LEAST8_MAX__ <= __INT_MAX__
     275             : typedef __UINT_LEAST8_TYPE__ yytype_uint8;
     276             : #elif (!defined __UINT_LEAST8_MAX__ && defined YY_STDINT_H \
     277             :        && UINT_LEAST8_MAX <= INT_MAX)
     278             : typedef uint_least8_t yytype_uint8;
     279             : #elif !defined __UINT_LEAST8_MAX__ && UCHAR_MAX <= INT_MAX
     280             : typedef unsigned char yytype_uint8;
     281             : #else
     282             : typedef short yytype_uint8;
     283             : #endif
     284             : 
     285             : #if defined __UINT_LEAST16_MAX__ && __UINT_LEAST16_MAX__ <= __INT_MAX__
     286             : typedef __UINT_LEAST16_TYPE__ yytype_uint16;
     287             : #elif (!defined __UINT_LEAST16_MAX__ && defined YY_STDINT_H \
     288             :        && UINT_LEAST16_MAX <= INT_MAX)
     289             : typedef uint_least16_t yytype_uint16;
     290             : #elif !defined __UINT_LEAST16_MAX__ && USHRT_MAX <= INT_MAX
     291             : typedef unsigned short yytype_uint16;
     292             : #else
     293             : typedef int yytype_uint16;
     294             : #endif
     295             : 
     296             : #ifndef YYPTRDIFF_T
     297             : # if defined __PTRDIFF_TYPE__ && defined __PTRDIFF_MAX__
     298             : #  define YYPTRDIFF_T __PTRDIFF_TYPE__
     299             : #  define YYPTRDIFF_MAXIMUM __PTRDIFF_MAX__
     300             : # elif defined PTRDIFF_MAX
     301             : #  ifndef ptrdiff_t
     302             : #   include <stddef.h> /* INFRINGES ON USER NAME SPACE */
     303             : #  endif
     304             : #  define YYPTRDIFF_T ptrdiff_t
     305             : #  define YYPTRDIFF_MAXIMUM PTRDIFF_MAX
     306             : # else
     307             : #  define YYPTRDIFF_T long
     308             : #  define YYPTRDIFF_MAXIMUM LONG_MAX
     309             : # endif
     310             : #endif
     311             : 
     312             : #ifndef YYSIZE_T
     313             : # ifdef __SIZE_TYPE__
     314             : #  define YYSIZE_T __SIZE_TYPE__
     315             : # elif defined size_t
     316             : #  define YYSIZE_T size_t
     317             : # elif defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__
     318             : #  include <stddef.h> /* INFRINGES ON USER NAME SPACE */
     319             : #  define YYSIZE_T size_t
     320             : # else
     321             : #  define YYSIZE_T unsigned
     322             : # endif
     323             : #endif
     324             : 
     325             : #define YYSIZE_MAXIMUM                                  \
     326             :   YY_CAST (YYPTRDIFF_T,                                 \
     327             :            (YYPTRDIFF_MAXIMUM < YY_CAST (YYSIZE_T, -1)  \
     328             :             ? YYPTRDIFF_MAXIMUM                         \
     329             :             : YY_CAST (YYSIZE_T, -1)))
     330             : 
     331             : #define YYSIZEOF(X) YY_CAST (YYPTRDIFF_T, sizeof (X))
     332             : 
     333             : 
     334             : /* Stored state numbers (used for stacks). */
     335             : typedef yytype_uint8 yy_state_t;
     336             : 
     337             : /* State numbers in computations.  */
     338             : typedef int yy_state_fast_t;
     339             : 
     340             : #ifndef YY_
     341             : # if defined YYENABLE_NLS && YYENABLE_NLS
     342             : #  if ENABLE_NLS
     343             : #   include <libintl.h> /* INFRINGES ON USER NAME SPACE */
     344             : #   define YY_(Msgid) dgettext ("bison-runtime", Msgid)
     345             : #  endif
     346             : # endif
     347             : # ifndef YY_
     348             : #  define YY_(Msgid) Msgid
     349             : # endif
     350             : #endif
     351             : 
     352             : 
     353             : #ifndef YY_ATTRIBUTE_PURE
     354             : # if defined __GNUC__ && 2 < __GNUC__ + (96 <= __GNUC_MINOR__)
     355             : #  define YY_ATTRIBUTE_PURE __attribute__ ((__pure__))
     356             : # else
     357             : #  define YY_ATTRIBUTE_PURE
     358             : # endif
     359             : #endif
     360             : 
     361             : #ifndef YY_ATTRIBUTE_UNUSED
     362             : # if defined __GNUC__ && 2 < __GNUC__ + (7 <= __GNUC_MINOR__)
     363             : #  define YY_ATTRIBUTE_UNUSED __attribute__ ((__unused__))
     364             : # else
     365             : #  define YY_ATTRIBUTE_UNUSED
     366             : # endif
     367             : #endif
     368             : 
     369             : /* Suppress unused-variable warnings by "using" E.  */
     370             : #if ! defined lint || defined __GNUC__
     371             : # define YY_USE(E) ((void) (E))
     372             : #else
     373             : # define YY_USE(E) /* empty */
     374             : #endif
     375             : 
     376             : #if defined __GNUC__ && ! defined __ICC && 407 <= __GNUC__ * 100 + __GNUC_MINOR__
     377             : /* Suppress an incorrect diagnostic about yylval being uninitialized.  */
     378             : # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN                            \
     379             :     _Pragma ("GCC diagnostic push")                                     \
     380             :     _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")              \
     381             :     _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
     382             : # define YY_IGNORE_MAYBE_UNINITIALIZED_END      \
     383             :     _Pragma ("GCC diagnostic pop")
     384             : #else
     385             : # define YY_INITIAL_VALUE(Value) Value
     386             : #endif
     387             : #ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
     388             : # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
     389             : # define YY_IGNORE_MAYBE_UNINITIALIZED_END
     390             : #endif
     391             : #ifndef YY_INITIAL_VALUE
     392             : # define YY_INITIAL_VALUE(Value) /* Nothing. */
     393             : #endif
     394             : 
     395             : #if defined __cplusplus && defined __GNUC__ && ! defined __ICC && 6 <= __GNUC__
     396             : # define YY_IGNORE_USELESS_CAST_BEGIN                          \
     397             :     _Pragma ("GCC diagnostic push")                            \
     398             :     _Pragma ("GCC diagnostic ignored \"-Wuseless-cast\"")
     399             : # define YY_IGNORE_USELESS_CAST_END            \
     400             :     _Pragma ("GCC diagnostic pop")
     401             : #endif
     402             : #ifndef YY_IGNORE_USELESS_CAST_BEGIN
     403             : # define YY_IGNORE_USELESS_CAST_BEGIN
     404             : # define YY_IGNORE_USELESS_CAST_END
     405             : #endif
     406             : 
     407             : 
     408             : #define YY_ASSERT(E) ((void) (0 && (E)))
     409             : 
     410             : #if 1
     411             : 
     412             : /* The parser invokes alloca or malloc; define the necessary symbols.  */
     413             : 
     414             : # ifdef YYSTACK_USE_ALLOCA
     415             : #  if YYSTACK_USE_ALLOCA
     416             : #   ifdef __GNUC__
     417             : #    define YYSTACK_ALLOC __builtin_alloca
     418             : #   elif defined __BUILTIN_VA_ARG_INCR
     419             : #    include <alloca.h> /* INFRINGES ON USER NAME SPACE */
     420             : #   elif defined _AIX
     421             : #    define YYSTACK_ALLOC __alloca
     422             : #   elif defined _MSC_VER
     423             : #    include <malloc.h> /* INFRINGES ON USER NAME SPACE */
     424             : #    define alloca _alloca
     425             : #   else
     426             : #    define YYSTACK_ALLOC alloca
     427             : #    if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
     428             : #     include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
     429             :       /* Use EXIT_SUCCESS as a witness for stdlib.h.  */
     430             : #     ifndef EXIT_SUCCESS
     431             : #      define EXIT_SUCCESS 0
     432             : #     endif
     433             : #    endif
     434             : #   endif
     435             : #  endif
     436             : # endif
     437             : 
     438             : # ifdef YYSTACK_ALLOC
     439             :    /* Pacify GCC's 'empty if-body' warning.  */
     440             : #  define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
     441             : #  ifndef YYSTACK_ALLOC_MAXIMUM
     442             :     /* The OS might guarantee only one guard page at the bottom of the stack,
     443             :        and a page size can be as small as 4096 bytes.  So we cannot safely
     444             :        invoke alloca (N) if N exceeds 4096.  Use a slightly smaller number
     445             :        to allow for a few compiler-allocated temporary stack slots.  */
     446             : #   define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
     447             : #  endif
     448             : # else
     449             : #  define YYSTACK_ALLOC YYMALLOC
     450             : #  define YYSTACK_FREE YYFREE
     451             : #  ifndef YYSTACK_ALLOC_MAXIMUM
     452             : #   define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
     453             : #  endif
     454             : #  if (defined __cplusplus && ! defined EXIT_SUCCESS \
     455             :        && ! ((defined YYMALLOC || defined malloc) \
     456             :              && (defined YYFREE || defined free)))
     457             : #   include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
     458             : #   ifndef EXIT_SUCCESS
     459             : #    define EXIT_SUCCESS 0
     460             : #   endif
     461             : #  endif
     462             : #  ifndef YYMALLOC
     463             : #   define YYMALLOC malloc
     464             : #   if ! defined malloc && ! defined EXIT_SUCCESS
     465             : void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
     466             : #   endif
     467             : #  endif
     468             : #  ifndef YYFREE
     469             : #   define YYFREE free
     470             : #   if ! defined free && ! defined EXIT_SUCCESS
     471             : void free (void *); /* INFRINGES ON USER NAME SPACE */
     472             : #   endif
     473             : #  endif
     474             : # endif
     475             : #endif /* 1 */
     476             : 
     477             : #if (! defined yyoverflow \
     478             :      && (! defined __cplusplus \
     479             :          || (defined PARI_LTYPE_IS_TRIVIAL && PARI_LTYPE_IS_TRIVIAL \
     480             :              && defined PARI_STYPE_IS_TRIVIAL && PARI_STYPE_IS_TRIVIAL)))
     481             : 
     482             : /* A type that is properly aligned for any stack member.  */
     483             : union yyalloc
     484             : {
     485             :   yy_state_t yyss_alloc;
     486             :   YYSTYPE yyvs_alloc;
     487             :   YYLTYPE yyls_alloc;
     488             : };
     489             : 
     490             : /* The size of the maximum gap between one aligned stack and the next.  */
     491             : # define YYSTACK_GAP_MAXIMUM (YYSIZEOF (union yyalloc) - 1)
     492             : 
     493             : /* The size of an array large to enough to hold all stacks, each with
     494             :    N elements.  */
     495             : # define YYSTACK_BYTES(N) \
     496             :      ((N) * (YYSIZEOF (yy_state_t) + YYSIZEOF (YYSTYPE) \
     497             :              + YYSIZEOF (YYLTYPE)) \
     498             :       + 2 * YYSTACK_GAP_MAXIMUM)
     499             : 
     500             : # define YYCOPY_NEEDED 1
     501             : 
     502             : /* Relocate STACK from its old location to the new one.  The
     503             :    local variables YYSIZE and YYSTACKSIZE give the old and new number of
     504             :    elements in the stack, and YYPTR gives the new location of the
     505             :    stack.  Advance YYPTR to a properly aligned location for the next
     506             :    stack.  */
     507             : # define YYSTACK_RELOCATE(Stack_alloc, Stack)                           \
     508             :     do                                                                  \
     509             :       {                                                                 \
     510             :         YYPTRDIFF_T yynewbytes;                                         \
     511             :         YYCOPY (&yyptr->Stack_alloc, Stack, yysize);                    \
     512             :         Stack = &yyptr->Stack_alloc;                                    \
     513             :         yynewbytes = yystacksize * YYSIZEOF (*Stack) + YYSTACK_GAP_MAXIMUM; \
     514             :         yyptr += yynewbytes / YYSIZEOF (*yyptr);                        \
     515             :       }                                                                 \
     516             :     while (0)
     517             : 
     518             : #endif
     519             : 
     520             : #if defined YYCOPY_NEEDED && YYCOPY_NEEDED
     521             : /* Copy COUNT objects from SRC to DST.  The source and destination do
     522             :    not overlap.  */
     523             : # ifndef YYCOPY
     524             : #  if defined __GNUC__ && 1 < __GNUC__
     525             : #   define YYCOPY(Dst, Src, Count) \
     526             :       __builtin_memcpy (Dst, Src, YY_CAST (YYSIZE_T, (Count)) * sizeof (*(Src)))
     527             : #  else
     528             : #   define YYCOPY(Dst, Src, Count)              \
     529             :       do                                        \
     530             :         {                                       \
     531             :           YYPTRDIFF_T yyi;                      \
     532             :           for (yyi = 0; yyi < (Count); yyi++)   \
     533             :             (Dst)[yyi] = (Src)[yyi];            \
     534             :         }                                       \
     535             :       while (0)
     536             : #  endif
     537             : # endif
     538             : #endif /* !YYCOPY_NEEDED */
     539             : 
     540             : /* YYFINAL -- State number of the termination state.  */
     541             : #define YYFINAL  49
     542             : /* YYLAST -- Last index in YYTABLE.  */
     543             : #define YYLAST   689
     544             : 
     545             : /* YYNTOKENS -- Number of terminals.  */
     546             : #define YYNTOKENS  62
     547             : /* YYNNTS -- Number of nonterminals.  */
     548             : #define YYNNTS  24
     549             : /* YYNRULES -- Number of rules.  */
     550             : #define YYNRULES  117
     551             : /* YYNSTATES -- Number of states.  */
     552             : #define YYNSTATES  199
     553             : 
     554             : /* YYMAXUTOK -- Last valid token kind.  */
     555             : #define YYMAXUTOK   291
     556             : 
     557             : 
     558             : /* YYTRANSLATE(TOKEN-NUM) -- Symbol number corresponding to TOKEN-NUM
     559             :    as returned by yylex, with out-of-bounds checking.  */
     560             : #define YYTRANSLATE(YYX)                                \
     561             :   (0 <= (YYX) && (YYX) <= YYMAXUTOK                     \
     562             :    ? YY_CAST (yysymbol_kind_t, yytranslate[YYX])        \
     563             :    : YYSYMBOL_YYUNDEF)
     564             : 
     565             : /* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
     566             :    as returned by yylex.  */
     567             : static const yytype_int8 yytranslate[] =
     568             : {
     569             :        0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     570             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     571             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     572             :        2,     2,     2,    50,     2,    49,     2,    43,    38,    54,
     573             :       56,    60,    46,    41,    36,    42,    55,    45,     2,     2,
     574             :        2,     2,     2,     2,     2,     2,     2,     2,    57,    35,
     575             :       40,    37,    39,     2,     2,     2,     2,     2,     2,     2,
     576             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     577             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     578             :        2,    52,    44,    58,    48,     2,    59,     2,     2,     2,
     579             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     580             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     581             :        2,     2,     2,     2,    61,     2,    51,     2,     2,     2,
     582             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     583             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     584             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     585             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     586             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     587             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     588             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     589             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     590             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     591             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     592             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     593             :        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     594             :        2,     2,     2,     2,     2,     2,     1,     2,     3,     4,
     595             :        5,     6,     7,     8,     9,    10,    11,    12,    13,    14,
     596             :       15,    16,    17,    18,    19,    20,    21,    22,    23,    24,
     597             :       25,    26,    27,    28,    29,    30,    31,    32,    33,    34,
     598             :       47,    53
     599             : };
     600             : 
     601             : #if PARI_DEBUG
     602             :   /* YYRLINE[YYN] -- Source line where rule number YYN was defined.  */
     603             : static const yytype_uint8 yyrline[] =
     604             : {
     605             :        0,    90,    90,    93,    94,    95,    96,    99,   100,   101,
     606             :      102,   105,   106,   109,   110,   113,   114,   115,   116,   117,
     607             :      118,   121,   122,   125,   126,   127,   128,   130,   131,   132,
     608             :      133,   134,   135,   136,   137,   138,   139,   140,   141,   142,
     609             :      143,   144,   145,   146,   147,   148,   149,   150,   151,   152,
     610             :      153,   154,   155,   156,   157,   158,   159,   160,   161,   162,
     611             :      163,   164,   165,   166,   167,   168,   169,   170,   171,   172,
     612             :      173,   174,   175,   176,   177,   178,   179,   180,   181,   182,
     613             :      183,   186,   187,   188,   191,   192,   194,   195,   198,   199,
     614             :      202,   203,   206,   207,   208,   209,   210,   211,   214,   217,
     615             :      218,   219,   220,   223,   226,   227,   228,   229,   230,   230,
     616             :      234,   235,   238,   241,   244,   246,   248,   249
     617             : };
     618             : #endif
     619             : 
     620             : /** Accessing symbol of state STATE.  */
     621             : #define YY_ACCESSING_SYMBOL(State) YY_CAST (yysymbol_kind_t, yystos[State])
     622             : 
     623             : #if 1
     624             : /* The user-facing name of the symbol whose (internal) number is
     625             :    YYSYMBOL.  No bounds checking.  */
     626             : static const char *yysymbol_name (yysymbol_kind_t yysymbol) YY_ATTRIBUTE_UNUSED;
     627             : 
     628             : /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
     629             :    First, the terminals, then, starting at YYNTOKENS, nonterminals.  */
     630             : static const char *const yytname[] =
     631             : {
     632             :   "\"end of file\"", "error", "\"invalid token\"", "\")->\"", "\"->\"",
     633             :   "\"..\"", "\"+=\"", "\"-=\"", "\"*=\"", "\"/=\"", "\"\\\\/=\"",
     634             :   "\"\\\\=\"", "\"%=\"", "\"&&\"", "\"||\"", "\"===\"", "\"==\"", "\"!=\"",
     635             :   "\">=\"", "\"<=\"", "\">>=\"", "\"<<=\"", "\">>\"", "\"<<\"",
     636             :   "\"\\\\/\"", "\"++\"", "\"--\"", "\"integer\"", "\"real number\"",
     637             :   "\"variable name\"", "\"character string\"", "SEQ", "DEFFUNC", "INT",
     638             :   "LVAL", "';'", "','", "'='", "'&'", "'>'", "'<'", "'+'", "'-'", "'%'",
     639             :   "'\\\\'", "'/'", "'*'", "SIGN", "'^'", "'#'", "'!'", "'~'", "'['",
     640             :   "DERIV", "'\\''", "'.'", "'('", "':'", "']'", "'`'", "')'", "'|'",
     641             :   "$accept", "sequence", "seq", "range", "matrix_index", "backticks",
     642             :   "history", "deriv", "expr", "lvalue", "exprno", "matrixeltsno",
     643             :   "matrixelts", "matrixlines", "matrix", "in", "inseq", "compr", "arg",
     644             :   "$@1", "listarg", "funcid", "memberid", "definition", YY_NULLPTR
     645             : };
     646             : 
     647             : static const char *
     648           0 : yysymbol_name (yysymbol_kind_t yysymbol)
     649             : {
     650           0 :   return yytname[yysymbol];
     651             : }
     652             : #endif
     653             : 
     654             : #ifdef YYPRINT
     655             : /* YYTOKNUM[NUM] -- (External) token number corresponding to the
     656             :    (internal) symbol number NUM (which must be that of a token).  */
     657             : static const yytype_int16 yytoknum[] =
     658             : {
     659             :        0,   256,   257,   258,   259,   260,   261,   262,   263,   264,
     660             :      265,   266,   267,   268,   269,   270,   271,   272,   273,   274,
     661             :      275,   276,   277,   278,   279,   280,   281,   282,   283,   284,
     662             :      285,   286,   287,   288,   289,    59,    44,    61,    38,    62,
     663             :       60,    43,    45,    37,    92,    47,    42,   290,    94,    35,
     664             :       33,   126,    91,   291,    39,    46,    40,    58,    93,    96,
     665             :       41,   124
     666             : };
     667             : #endif
     668             : 
     669             : #define YYPACT_NINF (-91)
     670             : 
     671             : #define yypact_value_is_default(Yyn) \
     672             :   ((Yyn) == YYPACT_NINF)
     673             : 
     674             : #define YYTABLE_NINF (-112)
     675             : 
     676             : #define yytable_value_is_error(Yyn) \
     677             :   0
     678             : 
     679             :   /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
     680             :      STATE-NUM.  */
     681             : static const yytype_int16 yypact[] =
     682             : {
     683             :      633,   -30,   -91,   -36,   -91,   633,   633,   -15,   633,   633,
     684             :       89,    -2,   -91,   599,    28,    -6,   -91,   474,   148,    31,
     685             :      -91,   -91,   -91,   -91,     3,   599,   158,   158,   -91,    13,
     686             :      -91,    15,   212,    66,    17,    29,   -91,   179,    50,   -25,
     687             :      -19,   -91,    65,    65,    -6,   335,   235,     6,    35,   -91,
     688             :      633,   633,   633,   633,   633,   633,   633,   633,   633,   633,
     689             :      633,   633,   633,   633,   633,   633,   633,   633,   633,   633,
     690             :      633,   -91,   -91,   -91,   616,   -91,    74,   599,    76,   -91,
     691             :       52,   633,   633,   633,   633,   633,   633,   633,   633,   633,
     692             :      633,   -91,   -91,   633,    79,   -91,   633,   -91,   -23,   -91,
     693             :       15,   -91,   -91,   -91,   633,    65,   633,   633,   -91,   633,
     694             :      -91,   -91,   -35,   -35,   -91,   291,   -91,   633,   599,   474,
     695             :      517,   517,   553,   553,   553,   553,   553,   158,   158,   158,
     696             :      517,   553,   553,   568,   568,   158,   158,   158,   158,   158,
     697             :      633,    37,   260,    72,    53,   -91,   -91,    -6,   474,   474,
     698             :      474,   474,   474,   474,   474,   474,   474,   474,   -91,   474,
     699             :       75,   383,   -26,   -12,    56,   474,   -91,   474,    90,    90,
     700             :       57,   633,    -6,    40,   474,   616,   -91,   633,   633,   -91,
     701             :      633,   -91,    85,    65,   633,   -91,   -91,   474,    71,   474,
     702             :       -6,    -6,   633,   -91,   429,   -91,   474,    65,   -91
     703             : };
     704             : 
     705             :   /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
     706             :      Performed when YYTABLE does not specify something else to do.  Zero
     707             :      means the default is an error.  */
     708             : static const yytype_int8 yydefact[] =
     709             : {
     710             :        3,    23,    24,    81,    27,     0,     0,    15,     0,     0,
     711             :        0,     0,    25,     3,     0,     2,    29,     4,    32,    33,
     712             :       34,    31,    78,    35,     0,     3,    70,    71,    16,    18,
     713             :       13,    17,    50,    49,     0,     0,    92,    88,     0,    86,
     714             :        0,    28,     0,     0,   104,     4,    32,     0,     0,     1,
     715             :        5,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     716             :        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     717             :        0,    76,    75,    73,     7,    21,     0,     3,     0,    77,
     718             :       74,     3,     0,     0,     0,     0,     0,     0,     0,     0,
     719             :        0,    38,    39,     0,     0,    82,     0,    26,     0,    19,
     720             :       20,    14,    97,    94,     0,     0,    85,    87,    95,    87,
     721             :       96,    81,   106,   107,    80,     7,   108,     3,     3,     6,
     722             :       52,    51,    54,    55,    56,    57,    59,    64,    63,    66,
     723             :       53,    58,    60,    62,    61,    65,    67,    68,    69,    72,
     724             :        0,     0,     8,   113,     0,    79,    22,   116,    47,    48,
     725             :       40,    41,    42,    43,    44,    46,    45,    37,    83,    36,
     726             :      112,     0,     0,    99,     0,    84,    89,    88,    90,    91,
     727             :        0,     0,   117,     0,    10,     7,    12,     0,     3,    30,
     728             :        3,    93,     0,     0,     0,   103,   105,   109,     0,     9,
     729             :      115,   114,     0,   101,   100,    11,    98,     0,   102
     730             : };
     731             : 
     732             :   /* YYPGOTO[NTERM-NUM].  */
     733             : static const yytype_int8 yypgoto[] =
     734             : {
     735             :      -91,   -91,    11,   -42,   -16,   105,   -91,   -91,    -5,    -7,
     736             :      -91,   -91,   -88,   -91,   -91,   -91,   -90,   -91,    18,   -91,
     737             :      -10,   -91,   -91,   -91
     738             : };
     739             : 
     740             :   /* YYDEFGOTO[NTERM-NUM].  */
     741             : static const yytype_uint8 yydefgoto[] =
     742             : {
     743             :        0,    14,    44,   141,    79,    31,    16,    80,    17,    18,
     744             :      166,    38,    39,    40,    19,   163,   164,    20,    47,   171,
     745             :       48,    21,    22,    23
     746             : };
     747             : 
     748             :   /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM.  If
     749             :      positive, shift that token.  If negative, reduce the rule whose
     750             :      number is the opposite.  If YYTABLE_NINF, syntax error.  */
     751             : static const yytype_int16 yytable[] =
     752             : {
     753             :       26,    27,    95,    32,    33,    37,    46,   116,    45,  -110,
     754             :      107,    15,    28,   118,   182,    98,   109,    74,    46,   168,
     755             :       25,   169,    94,   183,   184,    24,    74,    41,    49,    50,
     756             :       95,    94,    97,   108,    29,   112,   113,   160,   117,   110,
     757             :       99,   116,  -110,  -111,    30,   119,   120,   121,   122,   123,
     758             :      124,   125,   126,   127,   128,   129,   130,   131,   132,   133,
     759             :      134,   135,   136,   137,   138,   139,  -110,   144,    96,   142,
     760             :       46,   118,    30,   175,   101,   102,  -111,   148,   149,   150,
     761             :      151,   152,   153,   154,   155,   156,   106,   103,   157,   118,
     762             :       34,   159,   147,   193,   111,   176,    95,    95,   162,   161,
     763             :     -111,   165,   167,   143,   167,   145,   146,   198,   158,   178,
     764             :      142,    46,   180,   179,   185,   186,     1,     2,     3,     4,
     765             :       75,    76,    77,    78,    35,   -87,   -86,   192,   172,   195,
     766             :        5,     6,     7,   188,   100,   174,   173,     0,     8,     9,
     767             :        0,    10,     0,    11,    12,    13,    95,    36,     0,     0,
     768             :        0,     0,    81,     0,    82,    83,    84,    85,    86,    87,
     769             :       88,     0,     0,     0,     0,     0,   187,     0,    89,    90,
     770             :      142,     0,   189,    91,    92,     0,   162,     0,     0,   194,
     771             :        0,     0,     0,     0,   104,    93,     0,   196,     0,   190,
     772             :      162,   191,    51,    52,    53,    54,    55,    56,    57,     0,
     773             :       74,    58,    59,    60,     0,    94,    70,    71,    72,    73,
     774             :       74,     0,    75,    76,    77,    78,     0,    61,    62,    63,
     775             :       64,    65,    66,    67,    68,    69,     0,    70,    71,    72,
     776             :       73,    74,     0,    75,    76,    77,    78,     0,     0,    81,
     777             :      105,    82,    83,    84,    85,    86,    87,    88,     0,     0,
     778             :        0,     0,     0,     0,     0,    89,    90,     0,     0,     0,
     779             :       91,    92,    72,    73,    74,   177,    75,    76,    77,    78,
     780             :        0,     0,    93,    51,    52,    53,    54,    55,    56,    57,
     781             :        0,     0,    58,    59,    60,     0,     0,   115,     0,     0,
     782             :        0,     0,    94,     0,     0,     0,   170,     0,    61,    62,
     783             :       63,    64,    65,    66,    67,    68,    69,     0,    70,    71,
     784             :       72,    73,    74,     0,    75,    76,    77,    78,     1,     2,
     785             :        3,     4,     0,     0,     0,     0,     0,     0,     0,     0,
     786             :        0,     0,     5,     6,     7,     0,     0,     0,     0,   140,
     787             :        8,     9,     0,    10,     0,    11,    12,    13,    51,    52,
     788             :       53,    54,    55,    56,    57,     0,     0,    58,    59,    60,
     789             :        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     790             :        0,     0,     0,    61,    62,    63,    64,    65,    66,    67,
     791             :       68,    69,     0,    70,    71,    72,    73,    74,     0,    75,
     792             :       76,    77,    78,     0,     0,   114,    51,    52,    53,    54,
     793             :       55,    56,    57,     0,     0,    58,    59,    60,     0,     0,
     794             :        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     795             :        0,    61,    62,    63,    64,    65,    66,    67,    68,    69,
     796             :        0,    70,    71,    72,    73,    74,     0,    75,    76,    77,
     797             :       78,   181,    51,    52,    53,    54,    55,    56,    57,     0,
     798             :        0,    58,    59,    60,     0,     0,     0,     0,     0,     0,
     799             :        0,     0,     0,     0,   197,     0,     0,    61,    62,    63,
     800             :       64,    65,    66,    67,    68,    69,     0,    70,    71,    72,
     801             :       73,    74,     0,    75,    76,    77,    78,    51,    52,    53,
     802             :       54,    55,    56,    57,     0,     0,    58,    59,    60,     0,
     803             :        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     804             :        0,     0,    61,    62,    63,    64,    65,    66,    67,    68,
     805             :       69,     0,    70,    71,    72,    73,    74,     0,    75,    76,
     806             :       77,    78,    53,    54,    55,    56,    57,     0,     0,    58,
     807             :       59,    60,     0,     0,     0,     0,     0,     0,     0,     0,
     808             :        0,     0,     0,     0,     0,     0,    62,    63,    64,    65,
     809             :       66,    67,    68,    69,     0,    70,    71,    72,    73,    74,
     810             :        0,    75,    76,    77,    78,    58,    59,    60,     0,     0,
     811             :        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     812             :       58,    59,    60,     0,    64,    65,    66,    67,    68,    69,
     813             :        0,    70,    71,    72,    73,    74,     0,    75,    76,    77,
     814             :       78,    66,    67,    68,    69,     0,    70,    71,    72,    73,
     815             :       74,     0,    75,    76,    77,    78,     1,     2,     3,     4,
     816             :        0,     0,     0,     0,     0,     0,     0,    42,     0,     0,
     817             :        5,     6,     7,     1,     2,     3,     4,     0,     8,     9,
     818             :       43,    10,     0,    11,    12,    13,     0,     5,     6,     7,
     819             :        1,     2,     3,     4,   140,     8,     9,     0,    10,     0,
     820             :       11,    12,    13,     0,     5,     6,     7,     0,     0,     0,
     821             :        0,     0,     8,     9,     0,    10,     0,    11,    12,    13
     822             : };
     823             : 
     824             : static const yytype_int16 yycheck[] =
     825             : {
     826             :        5,     6,    18,     8,     9,    10,    13,     1,    13,     3,
     827             :       35,     0,    27,    36,    40,    25,    35,    52,    25,   107,
     828             :       56,   109,    57,    35,    36,    55,    52,    29,     0,    35,
     829             :       46,    57,    29,    58,    49,    42,    43,    60,     3,    58,
     830             :       27,     1,    36,     3,    59,    50,    51,    52,    53,    54,
     831             :       55,    56,    57,    58,    59,    60,    61,    62,    63,    64,
     832             :       65,    66,    67,    68,    69,    70,    60,    77,    37,    74,
     833             :       77,    36,    59,    36,    59,    58,    36,    82,    83,    84,
     834             :       85,    86,    87,    88,    89,    90,    36,    58,    93,    36,
     835             :        1,    96,    81,   183,    29,    58,   112,   113,   105,   104,
     836             :       60,   106,   107,    29,   109,    29,    54,   197,    29,    37,
     837             :      115,   118,    37,    60,    58,    58,    27,    28,    29,    30,
     838             :       54,    55,    56,    57,    35,    36,    36,    42,   117,    58,
     839             :       41,    42,    43,   175,    29,   140,   118,    -1,    49,    50,
     840             :       -1,    52,    -1,    54,    55,    56,   162,    58,    -1,    -1,
     841             :       -1,    -1,     4,    -1,     6,     7,     8,     9,    10,    11,
     842             :       12,    -1,    -1,    -1,    -1,    -1,   171,    -1,    20,    21,
     843             :      175,    -1,   177,    25,    26,    -1,   183,    -1,    -1,   184,
     844             :       -1,    -1,    -1,    -1,     5,    37,    -1,   192,    -1,   178,
     845             :      197,   180,    13,    14,    15,    16,    17,    18,    19,    -1,
     846             :       52,    22,    23,    24,    -1,    57,    48,    49,    50,    51,
     847             :       52,    -1,    54,    55,    56,    57,    -1,    38,    39,    40,
     848             :       41,    42,    43,    44,    45,    46,    -1,    48,    49,    50,
     849             :       51,    52,    -1,    54,    55,    56,    57,    -1,    -1,     4,
     850             :       61,     6,     7,     8,     9,    10,    11,    12,    -1,    -1,
     851             :       -1,    -1,    -1,    -1,    -1,    20,    21,    -1,    -1,    -1,
     852             :       25,    26,    50,    51,    52,     5,    54,    55,    56,    57,
     853             :       -1,    -1,    37,    13,    14,    15,    16,    17,    18,    19,
     854             :       -1,    -1,    22,    23,    24,    -1,    -1,    52,    -1,    -1,
     855             :       -1,    -1,    57,    -1,    -1,    -1,     5,    -1,    38,    39,
     856             :       40,    41,    42,    43,    44,    45,    46,    -1,    48,    49,
     857             :       50,    51,    52,    -1,    54,    55,    56,    57,    27,    28,
     858             :       29,    30,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
     859             :       -1,    -1,    41,    42,    43,    -1,    -1,    -1,    -1,    48,
     860             :       49,    50,    -1,    52,    -1,    54,    55,    56,    13,    14,
     861             :       15,    16,    17,    18,    19,    -1,    -1,    22,    23,    24,
     862             :       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
     863             :       -1,    -1,    -1,    38,    39,    40,    41,    42,    43,    44,
     864             :       45,    46,    -1,    48,    49,    50,    51,    52,    -1,    54,
     865             :       55,    56,    57,    -1,    -1,    60,    13,    14,    15,    16,
     866             :       17,    18,    19,    -1,    -1,    22,    23,    24,    -1,    -1,
     867             :       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
     868             :       -1,    38,    39,    40,    41,    42,    43,    44,    45,    46,
     869             :       -1,    48,    49,    50,    51,    52,    -1,    54,    55,    56,
     870             :       57,    58,    13,    14,    15,    16,    17,    18,    19,    -1,
     871             :       -1,    22,    23,    24,    -1,    -1,    -1,    -1,    -1,    -1,
     872             :       -1,    -1,    -1,    -1,    35,    -1,    -1,    38,    39,    40,
     873             :       41,    42,    43,    44,    45,    46,    -1,    48,    49,    50,
     874             :       51,    52,    -1,    54,    55,    56,    57,    13,    14,    15,
     875             :       16,    17,    18,    19,    -1,    -1,    22,    23,    24,    -1,
     876             :       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
     877             :       -1,    -1,    38,    39,    40,    41,    42,    43,    44,    45,
     878             :       46,    -1,    48,    49,    50,    51,    52,    -1,    54,    55,
     879             :       56,    57,    15,    16,    17,    18,    19,    -1,    -1,    22,
     880             :       23,    24,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
     881             :       -1,    -1,    -1,    -1,    -1,    -1,    39,    40,    41,    42,
     882             :       43,    44,    45,    46,    -1,    48,    49,    50,    51,    52,
     883             :       -1,    54,    55,    56,    57,    22,    23,    24,    -1,    -1,
     884             :       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
     885             :       22,    23,    24,    -1,    41,    42,    43,    44,    45,    46,
     886             :       -1,    48,    49,    50,    51,    52,    -1,    54,    55,    56,
     887             :       57,    43,    44,    45,    46,    -1,    48,    49,    50,    51,
     888             :       52,    -1,    54,    55,    56,    57,    27,    28,    29,    30,
     889             :       -1,    -1,    -1,    -1,    -1,    -1,    -1,    38,    -1,    -1,
     890             :       41,    42,    43,    27,    28,    29,    30,    -1,    49,    50,
     891             :       51,    52,    -1,    54,    55,    56,    -1,    41,    42,    43,
     892             :       27,    28,    29,    30,    48,    49,    50,    -1,    52,    -1,
     893             :       54,    55,    56,    -1,    41,    42,    43,    -1,    -1,    -1,
     894             :       -1,    -1,    49,    50,    -1,    52,    -1,    54,    55,    56
     895             : };
     896             : 
     897             :   /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
     898             :      symbol of state STATE-NUM.  */
     899             : static const yytype_int8 yystos[] =
     900             : {
     901             :        0,    27,    28,    29,    30,    41,    42,    43,    49,    50,
     902             :       52,    54,    55,    56,    63,    64,    68,    70,    71,    76,
     903             :       79,    83,    84,    85,    55,    56,    70,    70,    27,    49,
     904             :       59,    67,    70,    70,     1,    35,    58,    70,    73,    74,
     905             :       75,    29,    38,    51,    64,    70,    71,    80,    82,     0,
     906             :       35,    13,    14,    15,    16,    17,    18,    19,    22,    23,
     907             :       24,    38,    39,    40,    41,    42,    43,    44,    45,    46,
     908             :       48,    49,    50,    51,    52,    54,    55,    56,    57,    66,
     909             :       69,     4,     6,     7,     8,     9,    10,    11,    12,    20,
     910             :       21,    25,    26,    37,    57,    66,    37,    29,    82,    27,
     911             :       67,    59,    58,    58,     5,    61,    36,    35,    58,    35,
     912             :       58,    29,    71,    71,    60,    52,     1,     3,    36,    70,
     913             :       70,    70,    70,    70,    70,    70,    70,    70,    70,    70,
     914             :       70,    70,    70,    70,    70,    70,    70,    70,    70,    70,
     915             :       48,    65,    70,    29,    82,    29,    54,    64,    70,    70,
     916             :       70,    70,    70,    70,    70,    70,    70,    70,    29,    70,
     917             :       60,    70,    71,    77,    78,    70,    72,    70,    74,    74,
     918             :        5,    81,    64,    80,    70,    36,    58,     5,    37,    60,
     919             :       37,    58,    40,    35,    36,    58,    58,    70,    65,    70,
     920             :       64,    64,    42,    78,    70,    58,    70,    35,    78
     921             : };
     922             : 
     923             :   /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */
     924             : static const yytype_int8 yyr1[] =
     925             : {
     926             :        0,    62,    63,    64,    64,    64,    64,    65,    65,    65,
     927             :       65,    66,    66,    67,    67,    68,    68,    68,    68,    68,
     928             :       68,    69,    69,    70,    70,    70,    70,    70,    70,    70,
     929             :       70,    70,    70,    70,    70,    70,    70,    70,    70,    70,
     930             :       70,    70,    70,    70,    70,    70,    70,    70,    70,    70,
     931             :       70,    70,    70,    70,    70,    70,    70,    70,    70,    70,
     932             :       70,    70,    70,    70,    70,    70,    70,    70,    70,    70,
     933             :       70,    70,    70,    70,    70,    70,    70,    70,    70,    70,
     934             :       70,    71,    71,    71,    72,    72,    73,    73,    74,    74,
     935             :       75,    75,    76,    76,    76,    76,    76,    76,    77,    78,
     936             :       78,    78,    78,    79,    80,    80,    80,    80,    81,    80,
     937             :       82,    82,    83,    84,    85,    85,    85,    85
     938             : };
     939             : 
     940             :   /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN.  */
     941             : static const yytype_int8 yyr2[] =
     942             : {
     943             :        0,     2,     1,     0,     1,     2,     3,     0,     1,     3,
     944             :        2,     5,     3,     1,     2,     1,     2,     2,     2,     3,
     945             :        3,     1,     2,     1,     1,     1,     3,     1,     2,     1,
     946             :        4,     1,     1,     1,     1,     1,     3,     3,     2,     2,
     947             :        3,     3,     3,     3,     3,     3,     3,     3,     3,     2,
     948             :        2,     3,     3,     3,     3,     3,     3,     3,     3,     3,
     949             :        3,     3,     3,     3,     3,     3,     3,     3,     3,     3,
     950             :        2,     2,     3,     2,     2,     2,     2,     2,     1,     3,
     951             :        3,     1,     2,     3,     1,     0,     1,     0,     1,     3,
     952             :        3,     3,     2,     5,     3,     3,     3,     3,     4,     1,
     953             :        3,     3,     5,     5,     1,     4,     2,     2,     0,     4,
     954             :        1,     3,     4,     3,     6,     5,     3,     4
     955             : };
     956             : 
     957             : 
     958             : enum { YYENOMEM = -2 };
     959             : 
     960             : #define yyerrok         (yyerrstatus = 0)
     961             : #define yyclearin       (yychar = PARI_EMPTY)
     962             : 
     963             : #define YYACCEPT        goto yyacceptlab
     964             : #define YYABORT         goto yyabortlab
     965             : #define YYERROR         goto yyerrorlab
     966             : 
     967             : 
     968             : #define YYRECOVERING()  (!!yyerrstatus)
     969             : 
     970             : #define YYBACKUP(Token, Value)                                    \
     971             :   do                                                              \
     972             :     if (yychar == PARI_EMPTY)                                        \
     973             :       {                                                           \
     974             :         yychar = (Token);                                         \
     975             :         yylval = (Value);                                         \
     976             :         YYPOPSTACK (yylen);                                       \
     977             :         yystate = *yyssp;                                         \
     978             :         goto yybackup;                                            \
     979             :       }                                                           \
     980             :     else                                                          \
     981             :       {                                                           \
     982             :         yyerror (&yylloc, lex, YY_("syntax error: cannot back up")); \
     983             :         YYERROR;                                                  \
     984             :       }                                                           \
     985             :   while (0)
     986             : 
     987             : /* Backward compatibility with an undocumented macro.
     988             :    Use PARI_error or PARI_UNDEF. */
     989             : #define YYERRCODE PARI_UNDEF
     990             : 
     991             : /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
     992             :    If N is 0, then set CURRENT to the empty location which ends
     993             :    the previous symbol: RHS[0] (always defined).  */
     994             : 
     995             : #ifndef YYLLOC_DEFAULT
     996             : # define YYLLOC_DEFAULT(Current, Rhs, N)                                \
     997             :     do                                                                  \
     998             :       if (N)                                                            \
     999             :         {                                                               \
    1000             :           (Current).first_line   = YYRHSLOC (Rhs, 1).first_line;        \
    1001             :           (Current).first_column = YYRHSLOC (Rhs, 1).first_column;      \
    1002             :           (Current).last_line    = YYRHSLOC (Rhs, N).last_line;         \
    1003             :           (Current).last_column  = YYRHSLOC (Rhs, N).last_column;       \
    1004             :         }                                                               \
    1005             :       else                                                              \
    1006             :         {                                                               \
    1007             :           (Current).first_line   = (Current).last_line   =              \
    1008             :             YYRHSLOC (Rhs, 0).last_line;                                \
    1009             :           (Current).first_column = (Current).last_column =              \
    1010             :             YYRHSLOC (Rhs, 0).last_column;                              \
    1011             :         }                                                               \
    1012             :     while (0)
    1013             : #endif
    1014             : 
    1015             : #define YYRHSLOC(Rhs, K) ((Rhs)[K])
    1016             : 
    1017             : 
    1018             : /* Enable debugging if requested.  */
    1019             : #if PARI_DEBUG
    1020             : 
    1021             : # ifndef YYFPRINTF
    1022             : #  include <stdio.h> /* INFRINGES ON USER NAME SPACE */
    1023             : #  define YYFPRINTF fprintf
    1024             : # endif
    1025             : 
    1026             : # define YYDPRINTF(Args)                        \
    1027             : do {                                            \
    1028             :   if (yydebug)                                  \
    1029             :     YYFPRINTF Args;                             \
    1030             : } while (0)
    1031             : 
    1032             : 
    1033             : /* YY_LOCATION_PRINT -- Print the location on the stream.
    1034             :    This macro was not mandated originally: define only if we know
    1035             :    we won't break user code: when these are the locations we know.  */
    1036             : 
    1037             : # ifndef YY_LOCATION_PRINT
    1038             : #  if defined PARI_LTYPE_IS_TRIVIAL && PARI_LTYPE_IS_TRIVIAL
    1039             : 
    1040             : /* Print *YYLOCP on YYO.  Private, do not rely on its existence. */
    1041             : 
    1042             : YY_ATTRIBUTE_UNUSED
    1043             : static int
    1044             : yy_location_print_ (FILE *yyo, YYLTYPE const * const yylocp)
    1045             : {
    1046             :   int res = 0;
    1047             :   int end_col = 0 != yylocp->last_column ? yylocp->last_column - 1 : 0;
    1048             :   if (0 <= yylocp->first_line)
    1049             :     {
    1050             :       res += YYFPRINTF (yyo, "%d", yylocp->first_line);
    1051             :       if (0 <= yylocp->first_column)
    1052             :         res += YYFPRINTF (yyo, ".%d", yylocp->first_column);
    1053             :     }
    1054             :   if (0 <= yylocp->last_line)
    1055             :     {
    1056             :       if (yylocp->first_line < yylocp->last_line)
    1057             :         {
    1058             :           res += YYFPRINTF (yyo, "-%d", yylocp->last_line);
    1059             :           if (0 <= end_col)
    1060             :             res += YYFPRINTF (yyo, ".%d", end_col);
    1061             :         }
    1062             :       else if (0 <= end_col && yylocp->first_column < end_col)
    1063             :         res += YYFPRINTF (yyo, "-%d", end_col);
    1064             :     }
    1065             :   return res;
    1066             :  }
    1067             : 
    1068             : #   define YY_LOCATION_PRINT(File, Loc)          \
    1069             :   yy_location_print_ (File, &(Loc))
    1070             : 
    1071             : #  else
    1072             : #   define YY_LOCATION_PRINT(File, Loc) ((void) 0)
    1073             : #  endif
    1074             : # endif /* !defined YY_LOCATION_PRINT */
    1075             : 
    1076             : 
    1077             : # define YY_SYMBOL_PRINT(Title, Kind, Value, Location)                    \
    1078             : do {                                                                      \
    1079             :   if (yydebug)                                                            \
    1080             :     {                                                                     \
    1081             :       YYFPRINTF (stderr, "%s ", Title);                                   \
    1082             :       yy_symbol_print (stderr,                                            \
    1083             :                   Kind, Value, Location, lex); \
    1084             :       YYFPRINTF (stderr, "\n");                                           \
    1085             :     }                                                                     \
    1086             : } while (0)
    1087             : 
    1088             : 
    1089             : /*-----------------------------------.
    1090             : | Print this symbol's value on YYO.  |
    1091             : `-----------------------------------*/
    1092             : 
    1093             : static void
    1094             : yy_symbol_value_print (FILE *yyo,
    1095             :                        yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, char **lex)
    1096             : {
    1097             :   FILE *yyoutput = yyo;
    1098             :   YY_USE (yyoutput);
    1099             :   YY_USE (yylocationp);
    1100             :   YY_USE (lex);
    1101             :   if (!yyvaluep)
    1102             :     return;
    1103             : # ifdef YYPRINT
    1104             :   if (yykind < YYNTOKENS)
    1105             :     YYPRINT (yyo, yytoknum[yykind], *yyvaluep);
    1106             : # endif
    1107             :   YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
    1108             :   YY_USE (yykind);
    1109             :   YY_IGNORE_MAYBE_UNINITIALIZED_END
    1110             : }
    1111             : 
    1112             : 
    1113             : /*---------------------------.
    1114             : | Print this symbol on YYO.  |
    1115             : `---------------------------*/
    1116             : 
    1117             : static void
    1118             : yy_symbol_print (FILE *yyo,
    1119             :                  yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, char **lex)
    1120             : {
    1121             :   YYFPRINTF (yyo, "%s %s (",
    1122             :              yykind < YYNTOKENS ? "token" : "nterm", yysymbol_name (yykind));
    1123             : 
    1124             :   YY_LOCATION_PRINT (yyo, *yylocationp);
    1125             :   YYFPRINTF (yyo, ": ");
    1126             :   yy_symbol_value_print (yyo, yykind, yyvaluep, yylocationp, lex);
    1127             :   YYFPRINTF (yyo, ")");
    1128             : }
    1129             : 
    1130             : /*------------------------------------------------------------------.
    1131             : | yy_stack_print -- Print the state stack from its BOTTOM up to its |
    1132             : | TOP (included).                                                   |
    1133             : `------------------------------------------------------------------*/
    1134             : 
    1135             : static void
    1136             : yy_stack_print (yy_state_t *yybottom, yy_state_t *yytop)
    1137             : {
    1138             :   YYFPRINTF (stderr, "Stack now");
    1139             :   for (; yybottom <= yytop; yybottom++)
    1140             :     {
    1141             :       int yybot = *yybottom;
    1142             :       YYFPRINTF (stderr, " %d", yybot);
    1143             :     }
    1144             :   YYFPRINTF (stderr, "\n");
    1145             : }
    1146             : 
    1147             : # define YY_STACK_PRINT(Bottom, Top)                            \
    1148             : do {                                                            \
    1149             :   if (yydebug)                                                  \
    1150             :     yy_stack_print ((Bottom), (Top));                           \
    1151             : } while (0)
    1152             : 
    1153             : 
    1154             : /*------------------------------------------------.
    1155             : | Report that the YYRULE is going to be reduced.  |
    1156             : `------------------------------------------------*/
    1157             : 
    1158             : static void
    1159             : yy_reduce_print (yy_state_t *yyssp, YYSTYPE *yyvsp, YYLTYPE *yylsp,
    1160             :                  int yyrule, char **lex)
    1161             : {
    1162             :   int yylno = yyrline[yyrule];
    1163             :   int yynrhs = yyr2[yyrule];
    1164             :   int yyi;
    1165             :   YYFPRINTF (stderr, "Reducing stack by rule %d (line %d):\n",
    1166             :              yyrule - 1, yylno);
    1167             :   /* The symbols being reduced.  */
    1168             :   for (yyi = 0; yyi < yynrhs; yyi++)
    1169             :     {
    1170             :       YYFPRINTF (stderr, "   $%d = ", yyi + 1);
    1171             :       yy_symbol_print (stderr,
    1172             :                        YY_ACCESSING_SYMBOL (+yyssp[yyi + 1 - yynrhs]),
    1173             :                        &yyvsp[(yyi + 1) - (yynrhs)],
    1174             :                        &(yylsp[(yyi + 1) - (yynrhs)]), lex);
    1175             :       YYFPRINTF (stderr, "\n");
    1176             :     }
    1177             : }
    1178             : 
    1179             : # define YY_REDUCE_PRINT(Rule)          \
    1180             : do {                                    \
    1181             :   if (yydebug)                          \
    1182             :     yy_reduce_print (yyssp, yyvsp, yylsp, Rule, lex); \
    1183             : } while (0)
    1184             : 
    1185             : /* Nonzero means print parse trace.  It is left uninitialized so that
    1186             :    multiple parsers can coexist.  */
    1187             : int yydebug;
    1188             : #else /* !PARI_DEBUG */
    1189             : # define YYDPRINTF(Args) ((void) 0)
    1190             : # define YY_SYMBOL_PRINT(Title, Kind, Value, Location)
    1191             : # define YY_STACK_PRINT(Bottom, Top)
    1192             : # define YY_REDUCE_PRINT(Rule)
    1193             : #endif /* !PARI_DEBUG */
    1194             : 
    1195             : 
    1196             : /* YYINITDEPTH -- initial size of the parser's stacks.  */
    1197             : #ifndef YYINITDEPTH
    1198             : # define YYINITDEPTH 200
    1199             : #endif
    1200             : 
    1201             : /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
    1202             :    if the built-in stack extension method is used).
    1203             : 
    1204             :    Do not make this value too large; the results are undefined if
    1205             :    YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
    1206             :    evaluated with infinite-precision integer arithmetic.  */
    1207             : 
    1208             : #ifndef YYMAXDEPTH
    1209             : # define YYMAXDEPTH 10000
    1210             : #endif
    1211             : 
    1212             : 
    1213             : /* Context of a parse error.  */
    1214             : typedef struct
    1215             : {
    1216             :   yy_state_t *yyssp;
    1217             :   yysymbol_kind_t yytoken;
    1218             :   YYLTYPE *yylloc;
    1219             : } yypcontext_t;
    1220             : 
    1221             : /* Put in YYARG at most YYARGN of the expected tokens given the
    1222             :    current YYCTX, and return the number of tokens stored in YYARG.  If
    1223             :    YYARG is null, return the number of expected tokens (guaranteed to
    1224             :    be less than YYNTOKENS).  Return YYENOMEM on memory exhaustion.
    1225             :    Return 0 if there are more than YYARGN expected tokens, yet fill
    1226             :    YYARG up to YYARGN. */
    1227             : static int
    1228         105 : yypcontext_expected_tokens (const yypcontext_t *yyctx,
    1229             :                             yysymbol_kind_t yyarg[], int yyargn)
    1230             : {
    1231             :   /* Actual size of YYARG. */
    1232         105 :   int yycount = 0;
    1233         105 :   int yyn = yypact[+*yyctx->yyssp];
    1234         105 :   if (!yypact_value_is_default (yyn))
    1235             :     {
    1236             :       /* Start YYX at -YYN if negative to avoid negative indexes in
    1237             :          YYCHECK.  In other words, skip the first -YYN actions for
    1238             :          this state because they are default actions.  */
    1239         105 :       int yyxbegin = yyn < 0 ? -yyn : 0;
    1240             :       /* Stay within bounds of both yycheck and yytname.  */
    1241         105 :       int yychecklim = YYLAST - yyn + 1;
    1242         105 :       int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
    1243             :       int yyx;
    1244        6468 :       for (yyx = yyxbegin; yyx < yyxend; ++yyx)
    1245        6370 :         if (yycheck[yyx + yyn] == yyx && yyx != YYSYMBOL_YYerror
    1246         427 :             && !yytable_value_is_error (yytable[yyx + yyn]))
    1247             :           {
    1248         329 :             if (!yyarg)
    1249           0 :               ++yycount;
    1250         329 :             else if (yycount == yyargn)
    1251           7 :               return 0;
    1252             :             else
    1253         322 :               yyarg[yycount++] = YY_CAST (yysymbol_kind_t, yyx);
    1254             :           }
    1255             :     }
    1256          98 :   if (yyarg && yycount == 0 && 0 < yyargn)
    1257           0 :     yyarg[0] = YYSYMBOL_YYEMPTY;
    1258          98 :   return yycount;
    1259             : }
    1260             : 
    1261             : 
    1262             : 
    1263             : 
    1264             : #ifndef yystrlen
    1265             : # if defined __GLIBC__ && defined _STRING_H
    1266             : #  define yystrlen(S) (YY_CAST (YYPTRDIFF_T, strlen (S)))
    1267             : # else
    1268             : /* Return the length of YYSTR.  */
    1269             : static YYPTRDIFF_T
    1270             : yystrlen (const char *yystr)
    1271             : {
    1272             :   YYPTRDIFF_T yylen;
    1273             :   for (yylen = 0; yystr[yylen]; yylen++)
    1274             :     continue;
    1275             :   return yylen;
    1276             : }
    1277             : # endif
    1278             : #endif
    1279             : 
    1280             : #ifndef yystpcpy
    1281             : # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
    1282             : #  define yystpcpy stpcpy
    1283             : # else
    1284             : /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
    1285             :    YYDEST.  */
    1286             : static char *
    1287         217 : yystpcpy (char *yydest, const char *yysrc)
    1288             : {
    1289         217 :   char *yyd = yydest;
    1290         217 :   const char *yys = yysrc;
    1291             : 
    1292         868 :   while ((*yyd++ = *yys++) != '\0')
    1293         651 :     continue;
    1294             : 
    1295         217 :   return yyd - 1;
    1296             : }
    1297             : # endif
    1298             : #endif
    1299             : 
    1300             : #ifndef yytnamerr
    1301             : /* Copy to YYRES the contents of YYSTR after stripping away unnecessary
    1302             :    quotes and backslashes, so that it's suitable for yyerror.  The
    1303             :    heuristic is that double-quoting is unnecessary unless the string
    1304             :    contains an apostrophe, a comma, or backslash (other than
    1305             :    backslash-backslash).  YYSTR is taken from yytname.  If YYRES is
    1306             :    null, do not copy; instead, return the length of what the result
    1307             :    would have been.  */
    1308             : static YYPTRDIFF_T
    1309         798 : yytnamerr (char *yyres, const char *yystr)
    1310             : {
    1311         798 :   if (*yystr == '"')
    1312             :     {
    1313         364 :       YYPTRDIFF_T yyn = 0;
    1314         364 :       char const *yyp = yystr;
    1315             :       for (;;)
    1316        3220 :         switch (*++yyp)
    1317             :           {
    1318           0 :           case '\'':
    1319             :           case ',':
    1320           0 :             goto do_not_strip_quotes;
    1321             : 
    1322           0 :           case '\\':
    1323           0 :             if (*++yyp != '\\')
    1324           0 :               goto do_not_strip_quotes;
    1325             :             else
    1326           0 :               goto append;
    1327             : 
    1328           0 :           append:
    1329        2856 :           default:
    1330        2856 :             if (yyres)
    1331        1428 :               yyres[yyn] = *yyp;
    1332        2856 :             yyn++;
    1333        2856 :             break;
    1334             : 
    1335         364 :           case '"':
    1336         364 :             if (yyres)
    1337         182 :               yyres[yyn] = '\0';
    1338         364 :             return yyn;
    1339             :           }
    1340           0 :     do_not_strip_quotes: ;
    1341             :     }
    1342             : 
    1343         434 :   if (yyres)
    1344         217 :     return yystpcpy (yyres, yystr) - yyres;
    1345             :   else
    1346         217 :     return yystrlen (yystr);
    1347             : }
    1348             : #endif
    1349             : 
    1350             : 
    1351             : static int
    1352         105 : yy_syntax_error_arguments (const yypcontext_t *yyctx,
    1353             :                            yysymbol_kind_t yyarg[], int yyargn)
    1354             : {
    1355             :   /* Actual size of YYARG. */
    1356         105 :   int yycount = 0;
    1357             :   /* There are many possibilities here to consider:
    1358             :      - If this state is a consistent state with a default action, then
    1359             :        the only way this function was invoked is if the default action
    1360             :        is an error action.  In that case, don't check for expected
    1361             :        tokens because there are none.
    1362             :      - The only way there can be no lookahead present (in yychar) is if
    1363             :        this state is a consistent state with a default action.  Thus,
    1364             :        detecting the absence of a lookahead is sufficient to determine
    1365             :        that there is no unexpected or expected token to report.  In that
    1366             :        case, just report a simple "syntax error".
    1367             :      - Don't assume there isn't a lookahead just because this state is a
    1368             :        consistent state with a default action.  There might have been a
    1369             :        previous inconsistent state, consistent state with a non-default
    1370             :        action, or user semantic action that manipulated yychar.
    1371             :      - Of course, the expected token list depends on states to have
    1372             :        correct lookahead information, and it depends on the parser not
    1373             :        to perform extra reductions after fetching a lookahead from the
    1374             :        scanner and before detecting a syntax error.  Thus, state merging
    1375             :        (from LALR or IELR) and default reductions corrupt the expected
    1376             :        token list.  However, the list is correct for canonical LR with
    1377             :        one exception: it will still contain any token that will not be
    1378             :        accepted due to an error action in a later state.
    1379             :   */
    1380         105 :   if (yyctx->yytoken != YYSYMBOL_YYEMPTY)
    1381             :     {
    1382             :       int yyn;
    1383         105 :       if (yyarg)
    1384         105 :         yyarg[yycount] = yyctx->yytoken;
    1385         105 :       ++yycount;
    1386         105 :       yyn = yypcontext_expected_tokens (yyctx,
    1387             :                                         yyarg ? yyarg + 1 : yyarg, yyargn - 1);
    1388         105 :       if (yyn == YYENOMEM)
    1389           0 :         return YYENOMEM;
    1390             :       else
    1391         105 :         yycount += yyn;
    1392             :     }
    1393         105 :   return yycount;
    1394             : }
    1395             : 
    1396             : /* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
    1397             :    about the unexpected token YYTOKEN for the state stack whose top is
    1398             :    YYSSP.
    1399             : 
    1400             :    Return 0 if *YYMSG was successfully written.  Return -1 if *YYMSG is
    1401             :    not large enough to hold the message.  In that case, also set
    1402             :    *YYMSG_ALLOC to the required number of bytes.  Return YYENOMEM if the
    1403             :    required number of bytes is too large to store.  */
    1404             : static int
    1405         105 : yysyntax_error (YYPTRDIFF_T *yymsg_alloc, char **yymsg,
    1406             :                 const yypcontext_t *yyctx)
    1407             : {
    1408             :   enum { YYARGS_MAX = 5 };
    1409             :   /* Internationalized format string. */
    1410         105 :   const char *yyformat = YY_NULLPTR;
    1411             :   /* Arguments of yyformat: reported tokens (one for the "unexpected",
    1412             :      one per "expected"). */
    1413             :   yysymbol_kind_t yyarg[YYARGS_MAX];
    1414             :   /* Cumulated lengths of YYARG.  */
    1415         105 :   YYPTRDIFF_T yysize = 0;
    1416             : 
    1417             :   /* Actual size of YYARG. */
    1418         105 :   int yycount = yy_syntax_error_arguments (yyctx, yyarg, YYARGS_MAX);
    1419         105 :   if (yycount == YYENOMEM)
    1420           0 :     return YYENOMEM;
    1421             : 
    1422         105 :   switch (yycount)
    1423             :     {
    1424             : #define YYCASE_(N, S)                       \
    1425             :       case N:                               \
    1426             :         yyformat = S;                       \
    1427             :         break
    1428           0 :     default: /* Avoid compiler warnings. */
    1429           0 :       YYCASE_(0, YY_("syntax error"));
    1430           7 :       YYCASE_(1, YY_("syntax error, unexpected %s"));
    1431           0 :       YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
    1432           0 :       YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
    1433          98 :       YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
    1434           0 :       YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
    1435             : #undef YYCASE_
    1436             :     }
    1437             : 
    1438             :   /* Compute error message size.  Don't count the "%s"s, but reserve
    1439             :      room for the terminator.  */
    1440         105 :   yysize = yystrlen (yyformat) - 2 * yycount + 1;
    1441             :   {
    1442             :     int yyi;
    1443         504 :     for (yyi = 0; yyi < yycount; ++yyi)
    1444             :       {
    1445         399 :         YYPTRDIFF_T yysize1
    1446         399 :           = yysize + yytnamerr (YY_NULLPTR, yytname[yyarg[yyi]]);
    1447         399 :         if (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)
    1448         399 :           yysize = yysize1;
    1449             :         else
    1450           0 :           return YYENOMEM;
    1451             :       }
    1452             :   }
    1453             : 
    1454         105 :   if (*yymsg_alloc < yysize)
    1455             :     {
    1456           0 :       *yymsg_alloc = 2 * yysize;
    1457           0 :       if (! (yysize <= *yymsg_alloc
    1458             :              && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
    1459           0 :         *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
    1460           0 :       return -1;
    1461             :     }
    1462             : 
    1463             :   /* Avoid sprintf, as that infringes on the user's name space.
    1464             :      Don't have undefined behavior even if the translation
    1465             :      produced a string with the wrong number of "%s"s.  */
    1466             :   {
    1467         105 :     char *yyp = *yymsg;
    1468         105 :     int yyi = 0;
    1469        5089 :     while ((*yyp = *yyformat) != '\0')
    1470        4984 :       if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
    1471             :         {
    1472         399 :           yyp += yytnamerr (yyp, yytname[yyarg[yyi++]]);
    1473         399 :           yyformat += 2;
    1474             :         }
    1475             :       else
    1476             :         {
    1477        4585 :           ++yyp;
    1478        4585 :           ++yyformat;
    1479             :         }
    1480             :   }
    1481         105 :   return 0;
    1482             : }
    1483             : 
    1484             : 
    1485             : /*-----------------------------------------------.
    1486             : | Release the memory associated to this symbol.  |
    1487             : `-----------------------------------------------*/
    1488             : 
    1489             : static void
    1490     1854236 : yydestruct (const char *yymsg,
    1491             :             yysymbol_kind_t yykind, YYSTYPE *yyvaluep, YYLTYPE *yylocationp, char **lex)
    1492             : {
    1493             :   YY_USE (yyvaluep);
    1494             :   YY_USE (yylocationp);
    1495             :   YY_USE (lex);
    1496     1854236 :   if (!yymsg)
    1497           0 :     yymsg = "Deleting";
    1498             :   YY_SYMBOL_PRINT (yymsg, yykind, yyvaluep, yylocationp);
    1499             : 
    1500             :   YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
    1501     1854236 :   switch (yykind)
    1502             :     {
    1503           0 :     case YYSYMBOL_seq: /* seq  */
    1504             : #line 87 "../src/language/parse.y"
    1505             :             { pari_discarded++; }
    1506             : #line 1507 "../src/language/parse.c"
    1507           0 :         break;
    1508             : 
    1509           0 :     case YYSYMBOL_range: /* range  */
    1510             : #line 87 "../src/language/parse.y"
    1511             :             { pari_discarded++; }
    1512             : #line 1513 "../src/language/parse.c"
    1513           0 :         break;
    1514             : 
    1515           0 :     case YYSYMBOL_matrix_index: /* matrix_index  */
    1516             : #line 87 "../src/language/parse.y"
    1517             :             { pari_discarded++; }
    1518             : #line 1519 "../src/language/parse.c"
    1519           0 :         break;
    1520             : 
    1521           0 :     case YYSYMBOL_backticks: /* backticks  */
    1522             : #line 87 "../src/language/parse.y"
    1523             :             { pari_discarded++; }
    1524             : #line 1525 "../src/language/parse.c"
    1525           0 :         break;
    1526             : 
    1527           0 :     case YYSYMBOL_history: /* history  */
    1528             : #line 87 "../src/language/parse.y"
    1529             :             { pari_discarded++; }
    1530             : #line 1531 "../src/language/parse.c"
    1531           0 :         break;
    1532             : 
    1533           0 :     case YYSYMBOL_deriv: /* deriv  */
    1534             : #line 87 "../src/language/parse.y"
    1535             :             { pari_discarded++; }
    1536             : #line 1537 "../src/language/parse.c"
    1537           0 :         break;
    1538             : 
    1539           0 :     case YYSYMBOL_expr: /* expr  */
    1540             : #line 87 "../src/language/parse.y"
    1541             :             { pari_discarded++; }
    1542             : #line 1543 "../src/language/parse.c"
    1543           0 :         break;
    1544             : 
    1545           0 :     case YYSYMBOL_lvalue: /* lvalue  */
    1546             : #line 87 "../src/language/parse.y"
    1547             :             { pari_discarded++; }
    1548             : #line 1549 "../src/language/parse.c"
    1549           0 :         break;
    1550             : 
    1551           0 :     case YYSYMBOL_exprno: /* exprno  */
    1552             : #line 87 "../src/language/parse.y"
    1553             :             { pari_discarded++; }
    1554             : #line 1555 "../src/language/parse.c"
    1555           0 :         break;
    1556             : 
    1557           0 :     case YYSYMBOL_matrixeltsno: /* matrixeltsno  */
    1558             : #line 87 "../src/language/parse.y"
    1559             :             { pari_discarded++; }
    1560             : #line 1561 "../src/language/parse.c"
    1561           0 :         break;
    1562             : 
    1563           0 :     case YYSYMBOL_matrixelts: /* matrixelts  */
    1564             : #line 87 "../src/language/parse.y"
    1565             :             { pari_discarded++; }
    1566             : #line 1567 "../src/language/parse.c"
    1567           0 :         break;
    1568             : 
    1569           0 :     case YYSYMBOL_matrixlines: /* matrixlines  */
    1570             : #line 87 "../src/language/parse.y"
    1571             :             { pari_discarded++; }
    1572             : #line 1573 "../src/language/parse.c"
    1573           0 :         break;
    1574             : 
    1575           0 :     case YYSYMBOL_matrix: /* matrix  */
    1576             : #line 87 "../src/language/parse.y"
    1577             :             { pari_discarded++; }
    1578             : #line 1579 "../src/language/parse.c"
    1579           0 :         break;
    1580             : 
    1581           0 :     case YYSYMBOL_in: /* in  */
    1582             : #line 87 "../src/language/parse.y"
    1583             :             { pari_discarded++; }
    1584             : #line 1585 "../src/language/parse.c"
    1585           0 :         break;
    1586             : 
    1587           0 :     case YYSYMBOL_inseq: /* inseq  */
    1588             : #line 87 "../src/language/parse.y"
    1589             :             { pari_discarded++; }
    1590             : #line 1591 "../src/language/parse.c"
    1591           0 :         break;
    1592             : 
    1593           0 :     case YYSYMBOL_compr: /* compr  */
    1594             : #line 87 "../src/language/parse.y"
    1595             :             { pari_discarded++; }
    1596             : #line 1597 "../src/language/parse.c"
    1597           0 :         break;
    1598             : 
    1599           0 :     case YYSYMBOL_arg: /* arg  */
    1600             : #line 87 "../src/language/parse.y"
    1601             :             { pari_discarded++; }
    1602             : #line 1603 "../src/language/parse.c"
    1603           0 :         break;
    1604             : 
    1605           0 :     case YYSYMBOL_listarg: /* listarg  */
    1606             : #line 87 "../src/language/parse.y"
    1607             :             { pari_discarded++; }
    1608             : #line 1609 "../src/language/parse.c"
    1609           0 :         break;
    1610             : 
    1611           0 :     case YYSYMBOL_funcid: /* funcid  */
    1612             : #line 87 "../src/language/parse.y"
    1613             :             { pari_discarded++; }
    1614             : #line 1615 "../src/language/parse.c"
    1615           0 :         break;
    1616             : 
    1617           0 :     case YYSYMBOL_memberid: /* memberid  */
    1618             : #line 87 "../src/language/parse.y"
    1619             :             { pari_discarded++; }
    1620             : #line 1621 "../src/language/parse.c"
    1621           0 :         break;
    1622             : 
    1623           0 :     case YYSYMBOL_definition: /* definition  */
    1624             : #line 87 "../src/language/parse.y"
    1625             :             { pari_discarded++; }
    1626             : #line 1627 "../src/language/parse.c"
    1627           0 :         break;
    1628             : 
    1629     1854236 :       default:
    1630     1854236 :         break;
    1631             :     }
    1632             :   YY_IGNORE_MAYBE_UNINITIALIZED_END
    1633     1854236 : }
    1634             : 
    1635             : 
    1636             : 
    1637             : 
    1638             : 
    1639             : 
    1640             : /*----------.
    1641             : | yyparse.  |
    1642             : `----------*/
    1643             : 
    1644             : int
    1645      927069 : yyparse (char **lex)
    1646             : {
    1647             : /* Lookahead token kind.  */
    1648             : int yychar;
    1649             : 
    1650             : 
    1651             : /* The semantic value of the lookahead symbol.  */
    1652             : /* Default value used for initialization, for pacifying older GCCs
    1653             :    or non-GCC compilers.  */
    1654             : YY_INITIAL_VALUE (static YYSTYPE yyval_default;)
    1655             : YYSTYPE yylval YY_INITIAL_VALUE (= yyval_default);
    1656             : 
    1657             : /* Location data for the lookahead symbol.  */
    1658             : static YYLTYPE yyloc_default
    1659             : # if defined PARI_LTYPE_IS_TRIVIAL && PARI_LTYPE_IS_TRIVIAL
    1660             :   = { 1, 1, 1, 1 }
    1661             : # endif
    1662             : ;
    1663      927069 : YYLTYPE yylloc = yyloc_default;
    1664             : 
    1665             :     /* Number of syntax errors so far.  */
    1666      927069 :     int yynerrs = 0;
    1667             : 
    1668      927069 :     yy_state_fast_t yystate = 0;
    1669             :     /* Number of tokens to shift before error messages enabled.  */
    1670      927069 :     int yyerrstatus = 0;
    1671             : 
    1672             :     /* Refer to the stacks through separate pointers, to allow yyoverflow
    1673             :        to reallocate them elsewhere.  */
    1674             : 
    1675             :     /* Their size.  */
    1676      927069 :     YYPTRDIFF_T yystacksize = YYINITDEPTH;
    1677             : 
    1678             :     /* The state stack: array, bottom, top.  */
    1679             :     yy_state_t yyssa[YYINITDEPTH];
    1680      927069 :     yy_state_t *yyss = yyssa;
    1681      927069 :     yy_state_t *yyssp = yyss;
    1682             : 
    1683             :     /* The semantic value stack: array, bottom, top.  */
    1684             :     YYSTYPE yyvsa[YYINITDEPTH];
    1685      927069 :     YYSTYPE *yyvs = yyvsa;
    1686      927069 :     YYSTYPE *yyvsp = yyvs;
    1687             : 
    1688             :     /* The location stack: array, bottom, top.  */
    1689             :     YYLTYPE yylsa[YYINITDEPTH];
    1690      927069 :     YYLTYPE *yyls = yylsa;
    1691      927069 :     YYLTYPE *yylsp = yyls;
    1692             : 
    1693             :   int yyn;
    1694             :   /* The return value of yyparse.  */
    1695             :   int yyresult;
    1696             :   /* Lookahead symbol kind.  */
    1697      927069 :   yysymbol_kind_t yytoken = YYSYMBOL_YYEMPTY;
    1698             :   /* The variables used to return semantic value and location from the
    1699             :      action routines.  */
    1700             :   YYSTYPE yyval;
    1701             :   YYLTYPE yyloc;
    1702             : 
    1703             :   /* The locations where the error started and ended.  */
    1704             :   YYLTYPE yyerror_range[3];
    1705             : 
    1706             :   /* Buffer for error messages, and its allocated size.  */
    1707             :   char yymsgbuf[128];
    1708      927069 :   char *yymsg = yymsgbuf;
    1709      927069 :   YYPTRDIFF_T yymsg_alloc = sizeof yymsgbuf;
    1710             : 
    1711             : #define YYPOPSTACK(N)   (yyvsp -= (N), yyssp -= (N), yylsp -= (N))
    1712             : 
    1713             :   /* The number of symbols on the RHS of the reduced rule.
    1714             :      Keep to zero when no symbol should be popped.  */
    1715      927069 :   int yylen = 0;
    1716             : 
    1717             :   YYDPRINTF ((stderr, "Starting parse\n"));
    1718             : 
    1719      927069 :   yychar = PARI_EMPTY; /* Cause a token to be read.  */
    1720             : 
    1721             : /* User initialization code.  */
    1722             : #line 33 "../src/language/parse.y"
    1723             : { yylloc.start=yylloc.end=*lex; }
    1724             : 
    1725             : #line 1726 "../src/language/parse.c"
    1726             : 
    1727      927069 :   yylsp[0] = yylloc;
    1728      927069 :   goto yysetstate;
    1729             : 
    1730             : 
    1731             : /*------------------------------------------------------------.
    1732             : | yynewstate -- push a new state, which is found in yystate.  |
    1733             : `------------------------------------------------------------*/
    1734   108579718 : yynewstate:
    1735             :   /* In all cases, when you get here, the value and location stacks
    1736             :      have just been pushed.  So pushing a state here evens the stacks.  */
    1737   108579718 :   yyssp++;
    1738             : 
    1739             : 
    1740             : /*--------------------------------------------------------------------.
    1741             : | yysetstate -- set current state (the top of the stack) to yystate.  |
    1742             : `--------------------------------------------------------------------*/
    1743   109506787 : yysetstate:
    1744             :   YYDPRINTF ((stderr, "Entering state %d\n", yystate));
    1745             :   YY_ASSERT (0 <= yystate && yystate < YYNSTATES);
    1746             :   YY_IGNORE_USELESS_CAST_BEGIN
    1747   109506787 :   *yyssp = YY_CAST (yy_state_t, yystate);
    1748             :   YY_IGNORE_USELESS_CAST_END
    1749             :   YY_STACK_PRINT (yyss, yyssp);
    1750             : 
    1751   109506787 :   if (yyss + yystacksize - 1 <= yyssp)
    1752             : #if !defined yyoverflow && !defined YYSTACK_RELOCATE
    1753             :     goto yyexhaustedlab;
    1754             : #else
    1755             :     {
    1756             :       /* Get the current used size of the three stacks, in elements.  */
    1757           0 :       YYPTRDIFF_T yysize = yyssp - yyss + 1;
    1758             : 
    1759             : # if defined yyoverflow
    1760             :       {
    1761             :         /* Give user a chance to reallocate the stack.  Use copies of
    1762             :            these so that the &'s don't force the real ones into
    1763             :            memory.  */
    1764             :         yy_state_t *yyss1 = yyss;
    1765             :         YYSTYPE *yyvs1 = yyvs;
    1766             :         YYLTYPE *yyls1 = yyls;
    1767             : 
    1768             :         /* Each stack pointer address is followed by the size of the
    1769             :            data in use in that stack, in bytes.  This used to be a
    1770             :            conditional around just the two extra args, but that might
    1771             :            be undefined if yyoverflow is a macro.  */
    1772             :         yyoverflow (YY_("memory exhausted"),
    1773             :                     &yyss1, yysize * YYSIZEOF (*yyssp),
    1774             :                     &yyvs1, yysize * YYSIZEOF (*yyvsp),
    1775             :                     &yyls1, yysize * YYSIZEOF (*yylsp),
    1776             :                     &yystacksize);
    1777             :         yyss = yyss1;
    1778             :         yyvs = yyvs1;
    1779             :         yyls = yyls1;
    1780             :       }
    1781             : # else /* defined YYSTACK_RELOCATE */
    1782             :       /* Extend the stack our own way.  */
    1783           0 :       if (YYMAXDEPTH <= yystacksize)
    1784           0 :         goto yyexhaustedlab;
    1785           0 :       yystacksize *= 2;
    1786           0 :       if (YYMAXDEPTH < yystacksize)
    1787           0 :         yystacksize = YYMAXDEPTH;
    1788             : 
    1789             :       {
    1790           0 :         yy_state_t *yyss1 = yyss;
    1791             :         union yyalloc *yyptr =
    1792           0 :           YY_CAST (union yyalloc *,
    1793             :                    YYSTACK_ALLOC (YY_CAST (YYSIZE_T, YYSTACK_BYTES (yystacksize))));
    1794           0 :         if (! yyptr)
    1795           0 :           goto yyexhaustedlab;
    1796           0 :         YYSTACK_RELOCATE (yyss_alloc, yyss);
    1797           0 :         YYSTACK_RELOCATE (yyvs_alloc, yyvs);
    1798           0 :         YYSTACK_RELOCATE (yyls_alloc, yyls);
    1799             : #  undef YYSTACK_RELOCATE
    1800           0 :         if (yyss1 != yyssa)
    1801           0 :           YYSTACK_FREE (yyss1);
    1802             :       }
    1803             : # endif
    1804             : 
    1805           0 :       yyssp = yyss + yysize - 1;
    1806           0 :       yyvsp = yyvs + yysize - 1;
    1807           0 :       yylsp = yyls + yysize - 1;
    1808             : 
    1809             :       YY_IGNORE_USELESS_CAST_BEGIN
    1810             :       YYDPRINTF ((stderr, "Stack size increased to %ld\n",
    1811             :                   YY_CAST (long, yystacksize)));
    1812             :       YY_IGNORE_USELESS_CAST_END
    1813             : 
    1814           0 :       if (yyss + yystacksize - 1 <= yyssp)
    1815           0 :         YYABORT;
    1816             :     }
    1817             : #endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */
    1818             : 
    1819   109506787 :   if (yystate == YYFINAL)
    1820      927069 :     YYACCEPT;
    1821             : 
    1822   108579718 :   goto yybackup;
    1823             : 
    1824             : 
    1825             : /*-----------.
    1826             : | yybackup.  |
    1827             : `-----------*/
    1828   108579718 : yybackup:
    1829             :   /* Do appropriate processing given the current state.  Read a
    1830             :      lookahead token if we need one and don't already have one.  */
    1831             : 
    1832             :   /* First try to decide what to do without reference to lookahead token.  */
    1833   108579718 :   yyn = yypact[yystate];
    1834   108579718 :   if (yypact_value_is_default (yyn))
    1835    17151425 :     goto yydefault;
    1836             : 
    1837             :   /* Not known => get a lookahead token if don't already have one.  */
    1838             : 
    1839             :   /* YYCHAR is either empty, or end-of-input, or a valid lookahead.  */
    1840    91428293 :   if (yychar == PARI_EMPTY)
    1841             :     {
    1842             :       YYDPRINTF ((stderr, "Reading a token\n"));
    1843    39615887 :       yychar = yylex (&yylval, &yylloc, lex);
    1844             :     }
    1845             : 
    1846    91428293 :   if (yychar <= PARI_EOF)
    1847             :     {
    1848     3688939 :       yychar = PARI_EOF;
    1849     3688939 :       yytoken = YYSYMBOL_YYEOF;
    1850             :       YYDPRINTF ((stderr, "Now at end of input.\n"));
    1851             :     }
    1852    87739354 :   else if (yychar == PARI_error)
    1853             :     {
    1854             :       /* The scanner already issued an error message, process directly
    1855             :          to error recovery.  But do not keep the error token as
    1856             :          lookahead, it is too special and may lead us to an endless
    1857             :          loop in error recovery. */
    1858           0 :       yychar = PARI_UNDEF;
    1859           0 :       yytoken = YYSYMBOL_YYerror;
    1860           0 :       yyerror_range[1] = yylloc;
    1861           0 :       goto yyerrlab1;
    1862             :     }
    1863             :   else
    1864             :     {
    1865    87739354 :       yytoken = YYTRANSLATE (yychar);
    1866             :       YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
    1867             :     }
    1868             : 
    1869             :   /* If the proper action on seeing token YYTOKEN is to reduce or to
    1870             :      detect an error, take that action.  */
    1871    91428293 :   yyn += yytoken;
    1872    91428293 :   if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
    1873    51259495 :     goto yydefault;
    1874    40168798 :   yyn = yytable[yyn];
    1875    40168798 :   if (yyn <= 0)
    1876             :     {
    1877             :       if (yytable_value_is_error (yyn))
    1878             :         goto yyerrlab;
    1879      552939 :       yyn = -yyn;
    1880      552939 :       goto yyreduce;
    1881             :     }
    1882             : 
    1883             :   /* Count tokens shifted since error; after three, turn off error
    1884             :      status.  */
    1885    39615859 :   if (yyerrstatus)
    1886         280 :     yyerrstatus--;
    1887             : 
    1888             :   /* Shift the lookahead token.  */
    1889             :   YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
    1890    39615859 :   yystate = yyn;
    1891             :   YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
    1892    39615859 :   *++yyvsp = yylval;
    1893             :   YY_IGNORE_MAYBE_UNINITIALIZED_END
    1894    39615859 :   *++yylsp = yylloc;
    1895             : 
    1896             :   /* Discard the shifted token.  */
    1897    39615859 :   yychar = PARI_EMPTY;
    1898    39615859 :   goto yynewstate;
    1899             : 
    1900             : 
    1901             : /*-----------------------------------------------------------.
    1902             : | yydefault -- do the default action for the current state.  |
    1903             : `-----------------------------------------------------------*/
    1904    68410920 : yydefault:
    1905    68410920 :   yyn = yydefact[yystate];
    1906    68410920 :   if (yyn == 0)
    1907         140 :     goto yyerrlab;
    1908    68410780 :   goto yyreduce;
    1909             : 
    1910             : 
    1911             : /*-----------------------------.
    1912             : | yyreduce -- do a reduction.  |
    1913             : `-----------------------------*/
    1914    68963719 : yyreduce:
    1915             :   /* yyn is the number of a rule to reduce with.  */
    1916    68963719 :   yylen = yyr2[yyn];
    1917             : 
    1918             :   /* If YYLEN is nonzero, implement the default value of the action:
    1919             :      '$$ = $1'.
    1920             : 
    1921             :      Otherwise, the following line sets YYVAL to garbage.
    1922             :      This behavior is undocumented and Bison
    1923             :      users should not rely upon it.  Assigning to YYVAL
    1924             :      unconditionally makes the parser a bit smaller, and it avoids a
    1925             :      GCC warning that YYVAL may be used uninitialized.  */
    1926    68963719 :   yyval = yyvsp[1-yylen];
    1927             : 
    1928             :   /* Default location. */
    1929    68963719 :   YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen);
    1930    68963719 :   yyerror_range[1] = yyloc;
    1931             :   YY_REDUCE_PRINT (yyn);
    1932    68963719 :   switch (yyn)
    1933             :     {
    1934      927069 :   case 2: /* sequence: seq  */
    1935             : #line 90 "../src/language/parse.y"
    1936             :                      {(yyval.val)=(yyvsp[0].val); (void) pari_nerrs;}
    1937             : #line 1938 "../src/language/parse.c"
    1938      927069 :     break;
    1939             : 
    1940       14888 :   case 3: /* seq: %empty  */
    1941             : #line 93 "../src/language/parse.y"
    1942             :                      {(yyval.val)=NOARG((yyloc));}
    1943             : #line 1944 "../src/language/parse.c"
    1944       14888 :     break;
    1945             : 
    1946     1287634 :   case 4: /* seq: expr  */
    1947             : #line 94 "../src/language/parse.y"
    1948             :                      {(yyval.val)=(yyvsp[0].val);}
    1949             : #line 1950 "../src/language/parse.c"
    1950     1287634 :     break;
    1951             : 
    1952       40313 :   case 5: /* seq: seq ';'  */
    1953             : #line 95 "../src/language/parse.y"
    1954             :                      {(yyval.val)=(yyvsp[-1].val); (yyloc)=(yylsp[-1]);}
    1955             : #line 1956 "../src/language/parse.c"
    1956       40313 :     break;
    1957             : 
    1958       30037 :   case 6: /* seq: seq ';' expr  */
    1959             : #line 96 "../src/language/parse.y"
    1960             :                      {(yyval.val)=newnode(Fseq,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    1961             : #line 1962 "../src/language/parse.c"
    1962       30037 :     break;
    1963             : 
    1964         938 :   case 7: /* range: %empty  */
    1965             : #line 99 "../src/language/parse.y"
    1966             :                       { (yyval.val)=newnode(Frange,NORANGE((yyloc)),NORANGE((yyloc)),&(yyloc)); }
    1967             : #line 1968 "../src/language/parse.c"
    1968         938 :     break;
    1969             : 
    1970       13400 :   case 8: /* range: expr  */
    1971             : #line 100 "../src/language/parse.y"
    1972             :                       { (yyval.val)=newnode(Frange,(yyvsp[0].val),NORANGE((yyloc)),&(yyloc)); }
    1973             : #line 1974 "../src/language/parse.c"
    1974       13400 :     break;
    1975             : 
    1976         700 :   case 9: /* range: expr ".." expr  */
    1977             : #line 101 "../src/language/parse.y"
    1978             :                       { (yyval.val)=newnode(Frange,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc)); }
    1979             : #line 1980 "../src/language/parse.c"
    1980         700 :     break;
    1981             : 
    1982          98 :   case 10: /* range: '^' expr  */
    1983             : #line 102 "../src/language/parse.y"
    1984             :                       { (yyval.val)=newnode(Frange,NORANGE((yyloc)),(yyvsp[0].val),&(yyloc)); }
    1985             : #line 1986 "../src/language/parse.c"
    1986          98 :     break;
    1987             : 
    1988        1666 :   case 11: /* matrix_index: '[' range ',' range ']'  */
    1989             : #line 105 "../src/language/parse.y"
    1990             :                                       {(yyval.val)=newnode(Fmatrix,(yyvsp[-3].val),(yyvsp[-1].val),&(yyloc));}
    1991             : #line 1992 "../src/language/parse.c"
    1992        1666 :     break;
    1993             : 
    1994       11804 :   case 12: /* matrix_index: '[' range ']'  */
    1995             : #line 106 "../src/language/parse.y"
    1996             :                                       {(yyval.val)=newnode(Fmatrix,(yyvsp[-1].val),-1,&(yyloc));}
    1997             : #line 1998 "../src/language/parse.c"
    1998       11804 :     break;
    1999             : 
    2000          35 :   case 13: /* backticks: '`'  */
    2001             : #line 109 "../src/language/parse.y"
    2002             :                {(yyval.val)=1;}
    2003             : #line 2004 "../src/language/parse.c"
    2004          35 :     break;
    2005             : 
    2006          84 :   case 14: /* backticks: backticks '`'  */
    2007             : #line 110 "../src/language/parse.y"
    2008             :                          {(yyval.val)=(yyvsp[-1].val)+1;}
    2009             : #line 2010 "../src/language/parse.c"
    2010          84 :     break;
    2011             : 
    2012          49 :   case 15: /* history: '%'  */
    2013             : #line 113 "../src/language/parse.y"
    2014             :                        {(yyval.val)=newopcall(OPhist,-1,-1,&(yyloc));}
    2015             : #line 2016 "../src/language/parse.c"
    2016          49 :     break;
    2017             : 
    2018          14 :   case 16: /* history: '%' "integer"  */
    2019             : #line 114 "../src/language/parse.y"
    2020             :                        {(yyval.val)=newopcall(OPhist,newintnode(&(yylsp[0])),-1,&(yyloc));}
    2021             : #line 2022 "../src/language/parse.c"
    2022          14 :     break;
    2023             : 
    2024          28 :   case 17: /* history: '%' backticks  */
    2025             : #line 115 "../src/language/parse.y"
    2026             :                        {(yyval.val)=newopcall(OPhist,newnode(Fsmall,-(yyvsp[0].val),-1,&(yyloc)),-1,&(yyloc));}
    2027             : #line 2028 "../src/language/parse.c"
    2028          28 :     break;
    2029             : 
    2030           7 :   case 18: /* history: '%' '#'  */
    2031             : #line 116 "../src/language/parse.y"
    2032             :                           {(yyval.val)=newopcall(OPhisttime,-1,-1,&(yyloc));}
    2033             : #line 2034 "../src/language/parse.c"
    2034           7 :     break;
    2035             : 
    2036          11 :   case 19: /* history: '%' '#' "integer"  */
    2037             : #line 117 "../src/language/parse.y"
    2038             :                           {(yyval.val)=newopcall(OPhisttime,newintnode(&(yylsp[0])),-1,&(yyloc));}
    2039             : #line 2040 "../src/language/parse.c"
    2040          11 :     break;
    2041             : 
    2042           7 :   case 20: /* history: '%' '#' backticks  */
    2043             : #line 118 "../src/language/parse.y"
    2044             :                           {(yyval.val)=newopcall(OPhisttime,newnode(Fsmall,-(yyvsp[0].val),-1,&(yyloc)),-1,&(yyloc));}
    2045             : #line 2046 "../src/language/parse.c"
    2046           7 :     break;
    2047             : 
    2048         147 :   case 21: /* deriv: '\''  */
    2049             : #line 121 "../src/language/parse.y"
    2050             :             {(yyval.val) = 1;}
    2051             : #line 2052 "../src/language/parse.c"
    2052         147 :     break;
    2053             : 
    2054          42 :   case 22: /* deriv: deriv '\''  */
    2055             : #line 122 "../src/language/parse.y"
    2056             :                   {(yyval.val) = (yyvsp[-1].val)+1;}
    2057             : #line 2058 "../src/language/parse.c"
    2058          42 :     break;
    2059             : 
    2060    11721669 :   case 23: /* expr: "integer"  */
    2061             : #line 125 "../src/language/parse.y"
    2062             :                           {(yyval.val)=newintnode(&(yylsp[0]));}
    2063             : #line 2064 "../src/language/parse.c"
    2064    11721669 :     break;
    2065             : 
    2066        5142 :   case 24: /* expr: "real number"  */
    2067             : #line 126 "../src/language/parse.y"
    2068             :                           {(yyval.val)=newconst(CSTreal,&(yyloc));}
    2069             : #line 2070 "../src/language/parse.c"
    2070        5142 :     break;
    2071             : 
    2072           0 :   case 25: /* expr: '.'  */
    2073             : #line 127 "../src/language/parse.y"
    2074             :                           {(yyval.val)=newconst(CSTreal,&(yyloc));}
    2075             : #line 2076 "../src/language/parse.c"
    2076           0 :     break;
    2077             : 
    2078           0 :   case 26: /* expr: "integer" '.' "variable name"  */
    2079             : #line 128 "../src/language/parse.y"
    2080             :                           {(yyval.val)=newnode(Ffunction,newconst(CSTmember,&(yylsp[0])),
    2081             :                                                 newintnode(&(yylsp[-2])),&(yyloc));}
    2082             : #line 2083 "../src/language/parse.c"
    2083           0 :     break;
    2084             : 
    2085      843673 :   case 27: /* expr: "character string"  */
    2086             : #line 130 "../src/language/parse.y"
    2087             :                     {(yyval.val)=newconst(CSTstr,&(yyloc));}
    2088             : #line 2089 "../src/language/parse.c"
    2089      843673 :     break;
    2090             : 
    2091        3377 :   case 28: /* expr: '\'' "variable name"  */
    2092             : #line 131 "../src/language/parse.y"
    2093             :                     {(yyval.val)=newconst(CSTquote,&(yyloc));}
    2094             : #line 2095 "../src/language/parse.c"
    2095        3377 :     break;
    2096             : 
    2097         116 :   case 29: /* expr: history  */
    2098             : #line 132 "../src/language/parse.y"
    2099             :                         {(yyval.val)=(yyvsp[0].val);}
    2100             : #line 2101 "../src/language/parse.c"
    2101         116 :     break;
    2102             : 
    2103         322 :   case 30: /* expr: expr '(' listarg ')'  */
    2104             : #line 133 "../src/language/parse.y"
    2105             :                             {(yyval.val)=newnode(Fcall,(yyvsp[-3].val),(yyvsp[-1].val),&(yyloc));}
    2106             : #line 2107 "../src/language/parse.c"
    2107         322 :     break;
    2108             : 
    2109      192478 :   case 31: /* expr: funcid  */
    2110             : #line 134 "../src/language/parse.y"
    2111             :                         {(yyval.val)=(yyvsp[0].val);}
    2112             : #line 2113 "../src/language/parse.c"
    2113      192478 :     break;
    2114             : 
    2115      275602 :   case 32: /* expr: lvalue  */
    2116             : #line 135 "../src/language/parse.y"
    2117             :                         {(yyval.val)=(yyvsp[0].val);}
    2118             : #line 2119 "../src/language/parse.c"
    2119      275602 :     break;
    2120             : 
    2121     4343932 :   case 33: /* expr: matrix  */
    2122             : #line 136 "../src/language/parse.y"
    2123             :                         {(yyval.val)=(yyvsp[0].val);}
    2124             : #line 2125 "../src/language/parse.c"
    2125     4343932 :     break;
    2126             : 
    2127         739 :   case 34: /* expr: compr  */
    2128             : #line 137 "../src/language/parse.y"
    2129             :                         {(yyval.val)=(yyvsp[0].val);}
    2130             : #line 2131 "../src/language/parse.c"
    2131         739 :     break;
    2132             : 
    2133        8917 :   case 35: /* expr: definition  */
    2134             : #line 138 "../src/language/parse.y"
    2135             :                         {(yyval.val)=(yyvsp[0].val);}
    2136             : #line 2137 "../src/language/parse.c"
    2137        8917 :     break;
    2138             : 
    2139        1145 :   case 36: /* expr: matrix '=' expr  */
    2140             : #line 139 "../src/language/parse.y"
    2141             :                       {(yyval.val)=newnode(Fassign,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2142             : #line 2143 "../src/language/parse.c"
    2143        1145 :     break;
    2144             : 
    2145       47001 :   case 37: /* expr: lvalue '=' expr  */
    2146             : #line 140 "../src/language/parse.y"
    2147             :                       {(yyval.val)=newnode(Fassign,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2148             : #line 2149 "../src/language/parse.c"
    2149       47001 :     break;
    2150             : 
    2151         183 :   case 38: /* expr: lvalue "++"  */
    2152             : #line 141 "../src/language/parse.y"
    2153             :                       {(yyval.val)=newopcall(OPpp,(yyvsp[-1].val),-1,&(yyloc));}
    2154             : #line 2155 "../src/language/parse.c"
    2155         183 :     break;
    2156             : 
    2157          28 :   case 39: /* expr: lvalue "--"  */
    2158             : #line 142 "../src/language/parse.y"
    2159             :                       {(yyval.val)=newopcall(OPss,(yyvsp[-1].val),-1,&(yyloc));}
    2160             : #line 2161 "../src/language/parse.c"
    2161          28 :     break;
    2162             : 
    2163         188 :   case 40: /* expr: lvalue "*=" expr  */
    2164             : #line 143 "../src/language/parse.y"
    2165             :                          {(yyval.val)=newopcall(OPme,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2166             : #line 2167 "../src/language/parse.c"
    2167         188 :     break;
    2168             : 
    2169          35 :   case 41: /* expr: lvalue "/=" expr  */
    2170             : #line 144 "../src/language/parse.y"
    2171             :                          {(yyval.val)=newopcall(OPde,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2172             : #line 2173 "../src/language/parse.c"
    2173          35 :     break;
    2174             : 
    2175           7 :   case 42: /* expr: lvalue "\\/=" expr  */
    2176             : #line 145 "../src/language/parse.y"
    2177             :                          {(yyval.val)=newopcall(OPdre,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2178             : #line 2179 "../src/language/parse.c"
    2179           7 :     break;
    2180             : 
    2181           7 :   case 43: /* expr: lvalue "\\=" expr  */
    2182             : #line 146 "../src/language/parse.y"
    2183             :                          {(yyval.val)=newopcall(OPeuce,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2184             : #line 2185 "../src/language/parse.c"
    2185           7 :     break;
    2186             : 
    2187           7 :   case 44: /* expr: lvalue "%=" expr  */
    2188             : #line 147 "../src/language/parse.y"
    2189             :                          {(yyval.val)=newopcall(OPmode,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2190             : #line 2191 "../src/language/parse.c"
    2191           7 :     break;
    2192             : 
    2193           7 :   case 45: /* expr: lvalue "<<=" expr  */
    2194             : #line 148 "../src/language/parse.y"
    2195             :                          {(yyval.val)=newopcall(OPsle,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2196             : #line 2197 "../src/language/parse.c"
    2197           7 :     break;
    2198             : 
    2199           7 :   case 46: /* expr: lvalue ">>=" expr  */
    2200             : #line 149 "../src/language/parse.y"
    2201             :                          {(yyval.val)=newopcall(OPsre,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2202             : #line 2203 "../src/language/parse.c"
    2203           7 :     break;
    2204             : 
    2205         222 :   case 47: /* expr: lvalue "+=" expr  */
    2206             : #line 150 "../src/language/parse.y"
    2207             :                          {(yyval.val)=newopcall(OPpe,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2208             : #line 2209 "../src/language/parse.c"
    2209         222 :     break;
    2210             : 
    2211          63 :   case 48: /* expr: lvalue "-=" expr  */
    2212             : #line 151 "../src/language/parse.y"
    2213             :                          {(yyval.val)=newopcall(OPse,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2214             : #line 2215 "../src/language/parse.c"
    2215          63 :     break;
    2216             : 
    2217         735 :   case 49: /* expr: '!' expr  */
    2218             : #line 152 "../src/language/parse.y"
    2219             :                        {(yyval.val)=newopcall(OPnb,(yyvsp[0].val),-1,&(yyloc));}
    2220             : #line 2221 "../src/language/parse.c"
    2221         735 :     break;
    2222             : 
    2223        3633 :   case 50: /* expr: '#' expr  */
    2224             : #line 153 "../src/language/parse.y"
    2225             :                        {(yyval.val)=newopcall(OPlength,(yyvsp[0].val),-1,&(yyloc));}
    2226             : #line 2227 "../src/language/parse.c"
    2227        3633 :     break;
    2228             : 
    2229         399 :   case 51: /* expr: expr "||" expr  */
    2230             : #line 154 "../src/language/parse.y"
    2231             :                        {(yyval.val)=newopcall(OPor,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2232             : #line 2233 "../src/language/parse.c"
    2233         399 :     break;
    2234             : 
    2235         760 :   case 52: /* expr: expr "&&" expr  */
    2236             : #line 155 "../src/language/parse.y"
    2237             :                        {(yyval.val)=newopcall(OPand,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2238             : #line 2239 "../src/language/parse.c"
    2239         760 :     break;
    2240             : 
    2241           0 :   case 53: /* expr: expr '&' expr  */
    2242             : #line 156 "../src/language/parse.y"
    2243             :                        {(yyval.val)=newopcall(OPand,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2244             : #line 2245 "../src/language/parse.c"
    2245           0 :     break;
    2246             : 
    2247         343 :   case 54: /* expr: expr "===" expr  */
    2248             : #line 157 "../src/language/parse.y"
    2249             :                        {(yyval.val)=newopcall(OPid,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2250             : #line 2251 "../src/language/parse.c"
    2251         343 :     break;
    2252             : 
    2253       10333 :   case 55: /* expr: expr "==" expr  */
    2254             : #line 158 "../src/language/parse.y"
    2255             :                        {(yyval.val)=newopcall(OPeq,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2256             : #line 2257 "../src/language/parse.c"
    2257       10333 :     break;
    2258             : 
    2259        2100 :   case 56: /* expr: expr "!=" expr  */
    2260             : #line 159 "../src/language/parse.y"
    2261             :                        {(yyval.val)=newopcall(OPne,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2262             : #line 2263 "../src/language/parse.c"
    2263        2100 :     break;
    2264             : 
    2265         111 :   case 57: /* expr: expr ">=" expr  */
    2266             : #line 160 "../src/language/parse.y"
    2267             :                        {(yyval.val)=newopcall(OPge,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2268             : #line 2269 "../src/language/parse.c"
    2269         111 :     break;
    2270             : 
    2271         473 :   case 58: /* expr: expr '>' expr  */
    2272             : #line 161 "../src/language/parse.y"
    2273             :                        {(yyval.val)=newopcall(OPg,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2274             : #line 2275 "../src/language/parse.c"
    2275         473 :     break;
    2276             : 
    2277         237 :   case 59: /* expr: expr "<=" expr  */
    2278             : #line 162 "../src/language/parse.y"
    2279             :                        {(yyval.val)=newopcall(OPle,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2280             : #line 2281 "../src/language/parse.c"
    2281         237 :     break;
    2282             : 
    2283        1249 :   case 60: /* expr: expr '<' expr  */
    2284             : #line 163 "../src/language/parse.y"
    2285             :                        {(yyval.val)=newopcall(OPl,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2286             : #line 2287 "../src/language/parse.c"
    2287        1249 :     break;
    2288             : 
    2289       27800 :   case 61: /* expr: expr '-' expr  */
    2290             : #line 164 "../src/language/parse.y"
    2291             :                        {(yyval.val)=newopcall(OPs,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2292             : #line 2293 "../src/language/parse.c"
    2293       27800 :     break;
    2294             : 
    2295       54586 :   case 62: /* expr: expr '+' expr  */
    2296             : #line 165 "../src/language/parse.y"
    2297             :                        {(yyval.val)=newopcall(OPp,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2298             : #line 2299 "../src/language/parse.c"
    2299       54586 :     break;
    2300             : 
    2301         147 :   case 63: /* expr: expr "<<" expr  */
    2302             : #line 166 "../src/language/parse.y"
    2303             :                        {(yyval.val)=newopcall(OPsl,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2304             : #line 2305 "../src/language/parse.c"
    2305         147 :     break;
    2306             : 
    2307          21 :   case 64: /* expr: expr ">>" expr  */
    2308             : #line 167 "../src/language/parse.y"
    2309             :                        {(yyval.val)=newopcall(OPsr,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2310             : #line 2311 "../src/language/parse.c"
    2311          21 :     break;
    2312             : 
    2313         616 :   case 65: /* expr: expr '%' expr  */
    2314             : #line 168 "../src/language/parse.y"
    2315             :                        {(yyval.val)=newopcall(OPmod,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2316             : #line 2317 "../src/language/parse.c"
    2317         616 :     break;
    2318             : 
    2319          28 :   case 66: /* expr: expr "\\/" expr  */
    2320             : #line 169 "../src/language/parse.y"
    2321             :                        {(yyval.val)=newopcall(OPdr,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2322             : #line 2323 "../src/language/parse.c"
    2323          28 :     break;
    2324             : 
    2325         161 :   case 67: /* expr: expr '\\' expr  */
    2326             : #line 170 "../src/language/parse.y"
    2327             :                        {(yyval.val)=newopcall(OPeuc,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2328             : #line 2329 "../src/language/parse.c"
    2329         161 :     break;
    2330             : 
    2331      113595 :   case 68: /* expr: expr '/' expr  */
    2332             : #line 171 "../src/language/parse.y"
    2333             :                        {(yyval.val)=newopcall(OPd,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2334             : #line 2335 "../src/language/parse.c"
    2335      113595 :     break;
    2336             : 
    2337       56589 :   case 69: /* expr: expr '*' expr  */
    2338             : #line 172 "../src/language/parse.y"
    2339             :                        {(yyval.val)=newopcall(OPm,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2340             : #line 2341 "../src/language/parse.c"
    2341       56589 :     break;
    2342             : 
    2343          77 :   case 70: /* expr: '+' expr  */
    2344             : #line 173 "../src/language/parse.y"
    2345             :                           {(yyval.val)=(yyvsp[0].val);}
    2346             : #line 2347 "../src/language/parse.c"
    2347          77 :     break;
    2348             : 
    2349     4046595 :   case 71: /* expr: '-' expr  */
    2350             : #line 174 "../src/language/parse.y"
    2351             :                           {(yyval.val)=newopcall(OPn,(yyvsp[0].val),-1,&(yyloc));}
    2352             : #line 2353 "../src/language/parse.c"
    2353     4046595 :     break;
    2354             : 
    2355       71353 :   case 72: /* expr: expr '^' expr  */
    2356             : #line 175 "../src/language/parse.y"
    2357             :                     {(yyval.val)=newopcall(OPpow,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2358             : #line 2359 "../src/language/parse.c"
    2359       71353 :     break;
    2360             : 
    2361        4382 :   case 73: /* expr: expr '~'  */
    2362             : #line 176 "../src/language/parse.y"
    2363             :                {(yyval.val)=newopcall(OPtrans,(yyvsp[-1].val),-1,&(yyloc));}
    2364             : #line 2365 "../src/language/parse.c"
    2365        4382 :     break;
    2366             : 
    2367         147 :   case 74: /* expr: expr deriv  */
    2368             : #line 177 "../src/language/parse.y"
    2369             :                              {(yyval.val)=newopcall(OPderivn,(yyvsp[-1].val), newnode(Fsmall,(yyvsp[0].val),-1,&(yyloc)),&(yyloc));}
    2370             : #line 2371 "../src/language/parse.c"
    2371         147 :     break;
    2372             : 
    2373         236 :   case 75: /* expr: expr '!'  */
    2374             : #line 178 "../src/language/parse.y"
    2375             :                 {(yyval.val)=newopcall(OPfact,(yyvsp[-1].val),-1,&(yyloc));}
    2376             : #line 2377 "../src/language/parse.c"
    2377         236 :     break;
    2378             : 
    2379          28 :   case 76: /* expr: expr '#'  */
    2380             : #line 179 "../src/language/parse.y"
    2381             :                 {(yyval.val)=newopcall(OPprim,(yyvsp[-1].val),-1,&(yyloc));}
    2382             : #line 2383 "../src/language/parse.c"
    2383          28 :     break;
    2384             : 
    2385        4184 :   case 77: /* expr: expr matrix_index  */
    2386             : #line 180 "../src/language/parse.y"
    2387             :                         {(yyval.val)=newnode(Fmatcoeff,(yyvsp[-1].val),(yyvsp[0].val),&(yyloc));}
    2388             : #line 2389 "../src/language/parse.c"
    2389        4184 :     break;
    2390             : 
    2391       12383 :   case 78: /* expr: memberid  */
    2392             : #line 181 "../src/language/parse.y"
    2393             :                {(yyval.val)=(yyvsp[0].val);}
    2394             : #line 2395 "../src/language/parse.c"
    2395       12383 :     break;
    2396             : 
    2397           0 :   case 79: /* expr: expr ':' "variable name"  */
    2398             : #line 182 "../src/language/parse.y"
    2399             :                         {(yyval.val)=newnode(Ftag,(yyvsp[-2].val),0,&(yyloc));}
    2400             : #line 2401 "../src/language/parse.c"
    2401           0 :     break;
    2402             : 
    2403       13494 :   case 80: /* expr: '(' expr ')'  */
    2404             : #line 183 "../src/language/parse.y"
    2405             :                    {(yyval.val)=(yyvsp[-1].val);}
    2406             : #line 2407 "../src/language/parse.c"
    2407       13494 :     break;
    2408             : 
    2409      327360 :   case 81: /* lvalue: "variable name"  */
    2410             : #line 186 "../src/language/parse.y"
    2411             :                             {(yyval.val)=newnode(Fentry,newconst(CSTentry,&(yylsp[0])),-1,&(yyloc));}
    2412             : #line 2413 "../src/language/parse.c"
    2413      327360 :     break;
    2414             : 
    2415        9286 :   case 82: /* lvalue: lvalue matrix_index  */
    2416             : #line 187 "../src/language/parse.y"
    2417             :                             {(yyval.val)=newnode(Fmatcoeff,(yyvsp[-1].val),(yyvsp[0].val),&(yyloc));}
    2418             : #line 2419 "../src/language/parse.c"
    2419        9286 :     break;
    2420             : 
    2421           0 :   case 83: /* lvalue: lvalue ':' "variable name"  */
    2422             : #line 188 "../src/language/parse.y"
    2423             :                             {(yyval.val)=newnode(Ftag,(yyvsp[-2].val),newconst(CSTentry,&(yylsp[-1])),&(yyloc));}
    2424             : #line 2425 "../src/language/parse.c"
    2425           0 :     break;
    2426             : 
    2427    11689845 :   case 84: /* exprno: expr  */
    2428             : #line 191 "../src/language/parse.y"
    2429             :              {(yyval.val)=(yyvsp[0].val);}
    2430             : #line 2431 "../src/language/parse.c"
    2431    11689845 :     break;
    2432             : 
    2433          35 :   case 85: /* exprno: %empty  */
    2434             : #line 192 "../src/language/parse.y"
    2435             :              {(yyval.val)=NOARG((yyloc));}
    2436             : #line 2437 "../src/language/parse.c"
    2437          35 :     break;
    2438             : 
    2439    11689873 :   case 86: /* matrixeltsno: matrixelts  */
    2440             : #line 194 "../src/language/parse.y"
    2441             :                          {(yyval.val)=(yyvsp[0].val);}
    2442             : #line 2443 "../src/language/parse.c"
    2443    11689873 :     break;
    2444             : 
    2445           7 :   case 87: /* matrixeltsno: %empty  */
    2446             : #line 195 "../src/language/parse.y"
    2447             :                    {(yyval.val)=NOARG((yyloc));}
    2448             : #line 2449 "../src/language/parse.c"
    2449           7 :     break;
    2450             : 
    2451     4029238 :   case 88: /* matrixelts: expr  */
    2452             : #line 198 "../src/language/parse.y"
    2453             :                  {(yyval.val)=(yyvsp[0].val);}
    2454             : #line 2455 "../src/language/parse.c"
    2455     4029238 :     break;
    2456             : 
    2457    11689880 :   case 89: /* matrixelts: matrixeltsno ',' exprno  */
    2458             : #line 199 "../src/language/parse.y"
    2459             :                                     {(yyval.val)=newnode(Fmatrixelts,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2460             : #line 2461 "../src/language/parse.c"
    2461    11689880 :     break;
    2462             : 
    2463        8449 :   case 90: /* matrixlines: matrixelts ';' matrixelts  */
    2464             : #line 202 "../src/language/parse.y"
    2465             :                                         {(yyval.val)=newnode(Fmatrixlines,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2466             : #line 2467 "../src/language/parse.c"
    2467        8449 :     break;
    2468             : 
    2469       20748 :   case 91: /* matrixlines: matrixlines ';' matrixelts  */
    2470             : #line 203 "../src/language/parse.y"
    2471             :                                         {(yyval.val)=newnode(Fmatrixlines,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2472             : #line 2473 "../src/language/parse.c"
    2473       20748 :     break;
    2474             : 
    2475      343343 :   case 92: /* matrix: '[' ']'  */
    2476             : #line 206 "../src/language/parse.y"
    2477             :                             {(yyval.val)=newnode(Fvec,-1,-1,&(yyloc));}
    2478             : #line 2479 "../src/language/parse.c"
    2479      343343 :     break;
    2480             : 
    2481         727 :   case 93: /* matrix: '[' expr ".." expr ']'  */
    2482             : #line 207 "../src/language/parse.y"
    2483             :                                {(yyval.val)=newopcall(OPrange,(yyvsp[-3].val),(yyvsp[-1].val),&(yyloc));}
    2484             : #line 2485 "../src/language/parse.c"
    2485         727 :     break;
    2486             : 
    2487         959 :   case 94: /* matrix: '[' ';' ']'  */
    2488             : #line 208 "../src/language/parse.y"
    2489             :                             {(yyval.val)=newnode(Fmat,-1,-1,&(yyloc));}
    2490             : #line 2491 "../src/language/parse.c"
    2491         959 :     break;
    2492             : 
    2493     3991599 :   case 95: /* matrix: '[' matrixelts ']'  */
    2494             : #line 209 "../src/language/parse.y"
    2495             :                             {(yyval.val)=newnode(Fvec,(yyvsp[-1].val),-1,&(yyloc));}
    2496             : #line 2497 "../src/language/parse.c"
    2497     3991599 :     break;
    2498             : 
    2499        8449 :   case 96: /* matrix: '[' matrixlines ']'  */
    2500             : #line 210 "../src/language/parse.y"
    2501             :                             {(yyval.val)=newnode(Fmat,(yyvsp[-1].val),-1,&(yyloc));}
    2502             : #line 2503 "../src/language/parse.c"
    2503        8449 :     break;
    2504             : 
    2505           0 :   case 97: /* matrix: '[' error ']'  */
    2506             : #line 211 "../src/language/parse.y"
    2507             :                             {(yyval.val)=-1; YYABORT;}
    2508             : #line 2509 "../src/language/parse.c"
    2509             :     break;
    2510             : 
    2511         830 :   case 98: /* in: lvalue '<' '-' expr  */
    2512             : #line 214 "../src/language/parse.y"
    2513             :                         {(yyval.val)=newnode(Flistarg,(yyvsp[0].val),(yyvsp[-3].val),&(yyloc));}
    2514             : #line 2515 "../src/language/parse.c"
    2515         830 :     break;
    2516             : 
    2517         592 :   case 99: /* inseq: in  */
    2518             : #line 217 "../src/language/parse.y"
    2519             :                              {(yyval.val)=newopcall(OPcompr,(yyvsp[0].val),-2,&(yyloc));}
    2520             : #line 2521 "../src/language/parse.c"
    2521         592 :     break;
    2522             : 
    2523         147 :   case 100: /* inseq: in ',' expr  */
    2524             : #line 218 "../src/language/parse.y"
    2525             :                              {(yyval.val)=newopcall3(OPcompr,(yyvsp[-2].val),-2,(yyvsp[0].val),&(yyloc));}
    2526             : #line 2527 "../src/language/parse.c"
    2527         147 :     break;
    2528             : 
    2529          77 :   case 101: /* inseq: in ';' inseq  */
    2530             : #line 219 "../src/language/parse.y"
    2531             :                              {(yyval.val)=newopcall(OPcomprc,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2532             : #line 2533 "../src/language/parse.c"
    2533          77 :     break;
    2534             : 
    2535          14 :   case 102: /* inseq: in ',' expr ';' inseq  */
    2536             : #line 220 "../src/language/parse.y"
    2537             :                              {(yyval.val)=newopcall3(OPcomprc,(yyvsp[-4].val),(yyvsp[0].val),(yyvsp[-2].val),&(yyloc));}
    2538             : #line 2539 "../src/language/parse.c"
    2539          14 :     break;
    2540             : 
    2541         739 :   case 103: /* compr: '[' expr '|' inseq ']'  */
    2542             : #line 223 "../src/language/parse.y"
    2543             :                               {(yyval.val)=addcurrexpr((yyvsp[-1].val),(yyvsp[-3].val),&(yyloc));}
    2544             : #line 2545 "../src/language/parse.c"
    2545         739 :     break;
    2546             : 
    2547      366536 :   case 104: /* arg: seq  */
    2548             : #line 226 "../src/language/parse.y"
    2549             :                 {(yyval.val)=(yyvsp[0].val);}
    2550             : #line 2551 "../src/language/parse.c"
    2551      366536 :     break;
    2552             : 
    2553          21 :   case 105: /* arg: lvalue '[' ".." ']'  */
    2554             : #line 227 "../src/language/parse.y"
    2555             :                          {(yyval.val)=newnode(Fvararg,(yyvsp[-3].val),-1,&(yyloc));}
    2556             : #line 2557 "../src/language/parse.c"
    2557          21 :     break;
    2558             : 
    2559        1484 :   case 106: /* arg: '&' lvalue  */
    2560             : #line 228 "../src/language/parse.y"
    2561             :                 {(yyval.val)=newnode(Frefarg,(yyvsp[0].val),-1,&(yyloc));}
    2562             : #line 2563 "../src/language/parse.c"
    2563        1484 :     break;
    2564             : 
    2565         392 :   case 107: /* arg: '~' lvalue  */
    2566             : #line 229 "../src/language/parse.y"
    2567             :                 {(yyval.val)=newnode(Findarg,(yyvsp[0].val),-1,&(yyloc));}
    2568             : #line 2569 "../src/language/parse.c"
    2569         392 :     break;
    2570             : 
    2571         140 :   case 108: /* $@1: %empty  */
    2572             : #line 230 "../src/language/parse.y"
    2573             :                 {if (!pari_once) { yyerrok; } pari_once=1;}
    2574             : #line 2575 "../src/language/parse.c"
    2575         140 :     break;
    2576             : 
    2577         105 :   case 109: /* arg: arg error $@1 expr  */
    2578             : #line 231 "../src/language/parse.y"
    2579             :                      {pari_once=0; (yyval.val)=newopcall(OPcat,(yyvsp[-3].val),(yyvsp[0].val),&(yyloc));}
    2580             : #line 2581 "../src/language/parse.c"
    2581         105 :     break;
    2582             : 
    2583      200427 :   case 110: /* listarg: arg  */
    2584             : #line 234 "../src/language/parse.y"
    2585             :              {(yyval.val)=(yyvsp[0].val);}
    2586             : #line 2587 "../src/language/parse.c"
    2587      200427 :     break;
    2588             : 
    2589      168006 :   case 111: /* listarg: listarg ',' arg  */
    2590             : #line 235 "../src/language/parse.y"
    2591             :                          {(yyval.val)=newnode(Flistarg,(yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2592             : #line 2593 "../src/language/parse.c"
    2593      168006 :     break;
    2594             : 
    2595      192478 :   case 112: /* funcid: "variable name" '(' listarg ')'  */
    2596             : #line 238 "../src/language/parse.y"
    2597             :                                {(yyval.val)=newnode(Ffunction,newconst(CSTentry,&(yylsp[-3])),(yyvsp[-1].val),&(yyloc));}
    2598             : #line 2599 "../src/language/parse.c"
    2599      192478 :     break;
    2600             : 
    2601       12383 :   case 113: /* memberid: expr '.' "variable name"  */
    2602             : #line 241 "../src/language/parse.y"
    2603             :                           {(yyval.val)=newnode(Ffunction,newconst(CSTmember,&(yylsp[0])),(yyvsp[-2].val),&(yyloc));}
    2604             : #line 2605 "../src/language/parse.c"
    2605       12383 :     break;
    2606             : 
    2607        3541 :   case 114: /* definition: "variable name" '(' listarg ')' '=' seq  */
    2608             : #line 245 "../src/language/parse.y"
    2609             :                                    {(yyval.val)=newfunc(CSTentry,&(yylsp[-5]),(yyvsp[-3].val),(yyvsp[0].val),&(yyloc));}
    2610             : #line 2611 "../src/language/parse.c"
    2611        3541 :     break;
    2612             : 
    2613          14 :   case 115: /* definition: expr '.' "variable name" '=' seq  */
    2614             : #line 247 "../src/language/parse.y"
    2615             :                                    {(yyval.val)=newfunc(CSTmember,&(yylsp[-2]),newnode(Findarg,(yyvsp[-4].val),-1,&(yylsp[-4])),(yyvsp[0].val),&(yyloc));}
    2616             : #line 2617 "../src/language/parse.c"
    2617          14 :     break;
    2618             : 
    2619        1276 :   case 116: /* definition: lvalue "->" seq  */
    2620             : #line 248 "../src/language/parse.y"
    2621             :                                          {(yyval.val)=newnode(Flambda, (yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2622             : #line 2623 "../src/language/parse.c"
    2623        1276 :     break;
    2624             : 
    2625        4086 :   case 117: /* definition: '(' listarg ")->" seq  */
    2626             : #line 249 "../src/language/parse.y"
    2627             :                                          {(yyval.val)=newnode(Flambda, (yyvsp[-2].val),(yyvsp[0].val),&(yyloc));}
    2628             : #line 2629 "../src/language/parse.c"
    2629        4086 :     break;
    2630             : 
    2631             : 
    2632             : #line 2633 "../src/language/parse.c"
    2633             : 
    2634           0 :       default: break;
    2635             :     }
    2636             :   /* User semantic actions sometimes alter yychar, and that requires
    2637             :      that yytoken be updated with the new translation.  We take the
    2638             :      approach of translating immediately before every use of yytoken.
    2639             :      One alternative is translating here after every semantic action,
    2640             :      but that translation would be missed if the semantic action invokes
    2641             :      YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
    2642             :      if it invokes YYBACKUP.  In the case of YYABORT or YYACCEPT, an
    2643             :      incorrect destructor might then be invoked immediately.  In the
    2644             :      case of YYERROR or YYBACKUP, subsequent parser actions might lead
    2645             :      to an incorrect destructor call or verbose syntax error message
    2646             :      before the lookahead is translated.  */
    2647             :   YY_SYMBOL_PRINT ("-> $$ =", YY_CAST (yysymbol_kind_t, yyr1[yyn]), &yyval, &yyloc);
    2648             : 
    2649    68963719 :   YYPOPSTACK (yylen);
    2650    68963719 :   yylen = 0;
    2651             : 
    2652    68963719 :   *++yyvsp = yyval;
    2653    68963719 :   *++yylsp = yyloc;
    2654             : 
    2655             :   /* Now 'shift' the result of the reduction.  Determine what state
    2656             :      that goes to, based on the state we popped back to and the rule
    2657             :      number reduced by.  */
    2658             :   {
    2659    68963719 :     const int yylhs = yyr1[yyn] - YYNTOKENS;
    2660    68963719 :     const int yyi = yypgoto[yylhs] + *yyssp;
    2661    37878988 :     yystate = (0 <= yyi && yyi <= YYLAST && yycheck[yyi] == *yyssp
    2662    22413789 :                ? yytable[yyi]
    2663   106842707 :                : yydefgoto[yylhs]);
    2664             :   }
    2665             : 
    2666    68963719 :   goto yynewstate;
    2667             : 
    2668             : 
    2669             : /*--------------------------------------.
    2670             : | yyerrlab -- here on detecting error.  |
    2671             : `--------------------------------------*/
    2672         140 : yyerrlab:
    2673             :   /* Make sure we have latest lookahead translation.  See comments at
    2674             :      user semantic actions for why this is necessary.  */
    2675         140 :   yytoken = yychar == PARI_EMPTY ? YYSYMBOL_YYEMPTY : YYTRANSLATE (yychar);
    2676             :   /* If not already recovering from an error, report this error.  */
    2677         140 :   if (!yyerrstatus)
    2678             :     {
    2679         105 :       ++yynerrs;
    2680             :       {
    2681         105 :         yypcontext_t yyctx
    2682             :           = {yyssp, yytoken, &yylloc};
    2683         105 :         char const *yymsgp = YY_("syntax error");
    2684             :         int yysyntax_error_status;
    2685         105 :         yysyntax_error_status = yysyntax_error (&yymsg_alloc, &yymsg, &yyctx);
    2686         105 :         if (yysyntax_error_status == 0)
    2687         105 :           yymsgp = yymsg;
    2688           0 :         else if (yysyntax_error_status == -1)
    2689             :           {
    2690           0 :             if (yymsg != yymsgbuf)
    2691           0 :               YYSTACK_FREE (yymsg);
    2692           0 :             yymsg = YY_CAST (char *,
    2693             :                              YYSTACK_ALLOC (YY_CAST (YYSIZE_T, yymsg_alloc)));
    2694           0 :             if (yymsg)
    2695             :               {
    2696             :                 yysyntax_error_status
    2697           0 :                   = yysyntax_error (&yymsg_alloc, &yymsg, &yyctx);
    2698           0 :                 yymsgp = yymsg;
    2699             :               }
    2700             :             else
    2701             :               {
    2702           0 :                 yymsg = yymsgbuf;
    2703           0 :                 yymsg_alloc = sizeof yymsgbuf;
    2704           0 :                 yysyntax_error_status = YYENOMEM;
    2705             :               }
    2706             :           }
    2707         105 :         yyerror (&yylloc, lex, yymsgp);
    2708         105 :         if (yysyntax_error_status == YYENOMEM)
    2709           0 :           goto yyexhaustedlab;
    2710             :       }
    2711             :     }
    2712             : 
    2713         140 :   yyerror_range[1] = yylloc;
    2714         140 :   if (yyerrstatus == 3)
    2715             :     {
    2716             :       /* If just tried and failed to reuse lookahead token after an
    2717             :          error, discard it.  */
    2718             : 
    2719          28 :       if (yychar <= PARI_EOF)
    2720             :         {
    2721             :           /* Return failure if at end of input.  */
    2722           0 :           if (yychar == PARI_EOF)
    2723           0 :             YYABORT;
    2724             :         }
    2725             :       else
    2726             :         {
    2727          28 :           yydestruct ("Error: discarding",
    2728             :                       yytoken, &yylval, &yylloc, lex);
    2729          28 :           yychar = PARI_EMPTY;
    2730             :         }
    2731             :     }
    2732             : 
    2733             :   /* Else will try to reuse lookahead token after shifting the error
    2734             :      token.  */
    2735         140 :   goto yyerrlab1;
    2736             : 
    2737             : 
    2738             : /*---------------------------------------------------.
    2739             : | yyerrorlab -- error raised explicitly by YYERROR.  |
    2740             : `---------------------------------------------------*/
    2741             : yyerrorlab:
    2742             :   /* Pacify compilers when the user code never invokes YYERROR and the
    2743             :      label yyerrorlab therefore never appears in user code.  */
    2744             :   if (0)
    2745             :     YYERROR;
    2746             : 
    2747             :   /* Do not reclaim the symbols of the rule whose action triggered
    2748             :      this YYERROR.  */
    2749             :   YYPOPSTACK (yylen);
    2750             :   yylen = 0;
    2751             :   YY_STACK_PRINT (yyss, yyssp);
    2752             :   yystate = *yyssp;
    2753             :   goto yyerrlab1;
    2754             : 
    2755             : 
    2756             : /*-------------------------------------------------------------.
    2757             : | yyerrlab1 -- common code for both syntax error and YYERROR.  |
    2758             : `-------------------------------------------------------------*/
    2759         140 : yyerrlab1:
    2760         140 :   yyerrstatus = 3;      /* Each real token shifted decrements this.  */
    2761             : 
    2762             :   /* Pop stack until we find a state that shifts the error token.  */
    2763             :   for (;;)
    2764             :     {
    2765         210 :       yyn = yypact[yystate];
    2766         210 :       if (!yypact_value_is_default (yyn))
    2767             :         {
    2768         175 :           yyn += YYSYMBOL_YYerror;
    2769         175 :           if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYSYMBOL_YYerror)
    2770             :             {
    2771         140 :               yyn = yytable[yyn];
    2772         140 :               if (0 < yyn)
    2773         140 :                 break;
    2774             :             }
    2775             :         }
    2776             : 
    2777             :       /* Pop the current state because it cannot handle the error token.  */
    2778          70 :       if (yyssp == yyss)
    2779           0 :         YYABORT;
    2780             : 
    2781          70 :       yyerror_range[1] = *yylsp;
    2782          70 :       yydestruct ("Error: popping",
    2783          70 :                   YY_ACCESSING_SYMBOL (yystate), yyvsp, yylsp, lex);
    2784          70 :       YYPOPSTACK (1);
    2785          70 :       yystate = *yyssp;
    2786             :       YY_STACK_PRINT (yyss, yyssp);
    2787             :     }
    2788             : 
    2789             :   YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
    2790         140 :   *++yyvsp = yylval;
    2791             :   YY_IGNORE_MAYBE_UNINITIALIZED_END
    2792             : 
    2793         140 :   yyerror_range[2] = yylloc;
    2794         140 :   ++yylsp;
    2795         140 :   YYLLOC_DEFAULT (*yylsp, yyerror_range, 2);
    2796             : 
    2797             :   /* Shift the error token.  */
    2798             :   YY_SYMBOL_PRINT ("Shifting", YY_ACCESSING_SYMBOL (yyn), yyvsp, yylsp);
    2799             : 
    2800         140 :   yystate = yyn;
    2801         140 :   goto yynewstate;
    2802             : 
    2803             : 
    2804             : /*-------------------------------------.
    2805             : | yyacceptlab -- YYACCEPT comes here.  |
    2806             : `-------------------------------------*/
    2807      927069 : yyacceptlab:
    2808      927069 :   yyresult = 0;
    2809      927069 :   goto yyreturn;
    2810             : 
    2811             : 
    2812             : /*-----------------------------------.
    2813             : | yyabortlab -- YYABORT comes here.  |
    2814             : `-----------------------------------*/
    2815           0 : yyabortlab:
    2816           0 :   yyresult = 1;
    2817           0 :   goto yyreturn;
    2818             : 
    2819             : 
    2820             : #if 1
    2821             : /*-------------------------------------------------.
    2822             : | yyexhaustedlab -- memory exhaustion comes here.  |
    2823             : `-------------------------------------------------*/
    2824           0 : yyexhaustedlab:
    2825           0 :   yyerror (&yylloc, lex, YY_("memory exhausted"));
    2826           0 :   yyresult = 2;
    2827           0 :   goto yyreturn;
    2828             : #endif
    2829             : 
    2830             : 
    2831             : /*-------------------------------------------------------.
    2832             : | yyreturn -- parsing is finished, clean up and return.  |
    2833             : `-------------------------------------------------------*/
    2834      927069 : yyreturn:
    2835      927069 :   if (yychar != PARI_EMPTY)
    2836             :     {
    2837             :       /* Make sure we have latest lookahead translation.  See comments at
    2838             :          user semantic actions for why this is necessary.  */
    2839           0 :       yytoken = YYTRANSLATE (yychar);
    2840           0 :       yydestruct ("Cleanup: discarding lookahead",
    2841             :                   yytoken, &yylval, &yylloc, lex);
    2842             :     }
    2843             :   /* Do not reclaim the symbols of the rule whose action triggered
    2844             :      this YYABORT or YYACCEPT.  */
    2845      927069 :   YYPOPSTACK (yylen);
    2846             :   YY_STACK_PRINT (yyss, yyssp);
    2847     2781207 :   while (yyssp != yyss)
    2848             :     {
    2849     1854138 :       yydestruct ("Cleanup: popping",
    2850     1854138 :                   YY_ACCESSING_SYMBOL (+*yyssp), yyvsp, yylsp, lex);
    2851     1854138 :       YYPOPSTACK (1);
    2852             :     }
    2853             : #ifndef yyoverflow
    2854      927069 :   if (yyss != yyssa)
    2855           0 :     YYSTACK_FREE (yyss);
    2856             : #endif
    2857      927069 :   if (yymsg != yymsgbuf)
    2858           0 :     YYSTACK_FREE (yymsg);
    2859      927069 :   return yyresult;
    2860             : }
    2861             : 
    2862             : #line 252 "../src/language/parse.y"
    2863             : 

Generated by: LCOV version 1.14