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 :
|
