/* [<][>][^][v][top][bottom][index][help] */
DEFINITIONS
This source file includes following definitions.
- YYID
- yy_symbol_value_print
- yy_symbol_print
- yy_stack_print
- yy_reduce_print
- yystrlen
- yystpcpy
- yytnamerr
- yysyntax_error
- yydestruct
- yyparse
- yyerror
- new_tag
- new_objid
- add_oid_to_tail
- new_type
- new_constraint_spec
- fix_labels1
- fix_labels2
- fix_labels
1 /* A Bison parser, made by GNU Bison 2.3. */
2
3 /* Skeleton implementation for Bison's Yacc-like parsers in C
4
5 Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
6 Free Software Foundation, 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 2, or (at your option)
11 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, write to the Free Software
20 Foundation, Inc., 51 Franklin Street, Fifth Floor,
21 Boston, MA 02110-1301, USA. */
22
23 /* As a special exception, you may create a larger work that contains
24 part or all of the Bison parser skeleton and distribute that work
25 under terms of your choice, so long as that work isn't itself a
26 parser generator using the skeleton or a modified version thereof
27 as a parser skeleton. Alternatively, if you modify or redistribute
28 the parser skeleton itself, you may (at your option) remove this
29 special exception, which will cause the skeleton and the resulting
30 Bison output files to be licensed under the GNU General Public
31 License without this special exception.
32
33 This special exception was added by the Free Software Foundation in
34 version 2.2 of Bison. */
35
36 /* C LALR(1) parser skeleton written by Richard Stallman, by
37 simplifying the original so-called "semantic" parser. */
38
39 /* All symbols defined below should begin with yy or YY, to avoid
40 infringing on user name space. This should be done even for local
41 variables, as they might otherwise be expanded by user macros.
42 There are some unavoidable exceptions within include files to
43 define necessary library symbols; they are noted "INFRINGES ON
44 USER NAME SPACE" below. */
45
46 /* Identify Bison output. */
47 #define YYBISON 1
48
49 /* Bison version. */
50 #define YYBISON_VERSION "2.3"
51
52 /* Skeleton name. */
53 #define YYSKELETON_NAME "yacc.c"
54
55 /* Pure parsers. */
56 #define YYPURE 0
57
58 /* Using locations. */
59 #define YYLSP_NEEDED 0
60
61
62
63 /* Tokens. */
64 #ifndef YYTOKENTYPE
65 # define YYTOKENTYPE
66 /* Put the tokens into the symbol table, so that GDB and other debuggers
67 know about them. */
68 enum yytokentype {
69 kw_ABSENT = 258,
70 kw_ABSTRACT_SYNTAX = 259,
71 kw_ALL = 260,
72 kw_APPLICATION = 261,
73 kw_AUTOMATIC = 262,
74 kw_BEGIN = 263,
75 kw_BIT = 264,
76 kw_BMPString = 265,
77 kw_BOOLEAN = 266,
78 kw_BY = 267,
79 kw_CHARACTER = 268,
80 kw_CHOICE = 269,
81 kw_CLASS = 270,
82 kw_COMPONENT = 271,
83 kw_COMPONENTS = 272,
84 kw_CONSTRAINED = 273,
85 kw_CONTAINING = 274,
86 kw_DEFAULT = 275,
87 kw_DEFINITIONS = 276,
88 kw_EMBEDDED = 277,
89 kw_ENCODED = 278,
90 kw_END = 279,
91 kw_ENUMERATED = 280,
92 kw_EXCEPT = 281,
93 kw_EXPLICIT = 282,
94 kw_EXPORTS = 283,
95 kw_EXTENSIBILITY = 284,
96 kw_EXTERNAL = 285,
97 kw_FALSE = 286,
98 kw_FROM = 287,
99 kw_GeneralString = 288,
100 kw_GeneralizedTime = 289,
101 kw_GraphicString = 290,
102 kw_IA5String = 291,
103 kw_IDENTIFIER = 292,
104 kw_IMPLICIT = 293,
105 kw_IMPLIED = 294,
106 kw_IMPORTS = 295,
107 kw_INCLUDES = 296,
108 kw_INSTANCE = 297,
109 kw_INTEGER = 298,
110 kw_INTERSECTION = 299,
111 kw_ISO646String = 300,
112 kw_MAX = 301,
113 kw_MIN = 302,
114 kw_MINUS_INFINITY = 303,
115 kw_NULL = 304,
116 kw_NumericString = 305,
117 kw_OBJECT = 306,
118 kw_OCTET = 307,
119 kw_OF = 308,
120 kw_OPTIONAL = 309,
121 kw_ObjectDescriptor = 310,
122 kw_PATTERN = 311,
123 kw_PDV = 312,
124 kw_PLUS_INFINITY = 313,
125 kw_PRESENT = 314,
126 kw_PRIVATE = 315,
127 kw_PrintableString = 316,
128 kw_REAL = 317,
129 kw_RELATIVE_OID = 318,
130 kw_SEQUENCE = 319,
131 kw_SET = 320,
132 kw_SIZE = 321,
133 kw_STRING = 322,
134 kw_SYNTAX = 323,
135 kw_T61String = 324,
136 kw_TAGS = 325,
137 kw_TRUE = 326,
138 kw_TYPE_IDENTIFIER = 327,
139 kw_TeletexString = 328,
140 kw_UNION = 329,
141 kw_UNIQUE = 330,
142 kw_UNIVERSAL = 331,
143 kw_UTCTime = 332,
144 kw_UTF8String = 333,
145 kw_UniversalString = 334,
146 kw_VideotexString = 335,
147 kw_VisibleString = 336,
148 kw_WITH = 337,
149 RANGE = 338,
150 EEQUAL = 339,
151 ELLIPSIS = 340,
152 IDENTIFIER = 341,
153 referencename = 342,
154 STRING = 343,
155 NUMBER = 344
156 };
157 #endif
158 /* Tokens. */
159 #define kw_ABSENT 258
160 #define kw_ABSTRACT_SYNTAX 259
161 #define kw_ALL 260
162 #define kw_APPLICATION 261
163 #define kw_AUTOMATIC 262
164 #define kw_BEGIN 263
165 #define kw_BIT 264
166 #define kw_BMPString 265
167 #define kw_BOOLEAN 266
168 #define kw_BY 267
169 #define kw_CHARACTER 268
170 #define kw_CHOICE 269
171 #define kw_CLASS 270
172 #define kw_COMPONENT 271
173 #define kw_COMPONENTS 272
174 #define kw_CONSTRAINED 273
175 #define kw_CONTAINING 274
176 #define kw_DEFAULT 275
177 #define kw_DEFINITIONS 276
178 #define kw_EMBEDDED 277
179 #define kw_ENCODED 278
180 #define kw_END 279
181 #define kw_ENUMERATED 280
182 #define kw_EXCEPT 281
183 #define kw_EXPLICIT 282
184 #define kw_EXPORTS 283
185 #define kw_EXTENSIBILITY 284
186 #define kw_EXTERNAL 285
187 #define kw_FALSE 286
188 #define kw_FROM 287
189 #define kw_GeneralString 288
190 #define kw_GeneralizedTime 289
191 #define kw_GraphicString 290
192 #define kw_IA5String 291
193 #define kw_IDENTIFIER 292
194 #define kw_IMPLICIT 293
195 #define kw_IMPLIED 294
196 #define kw_IMPORTS 295
197 #define kw_INCLUDES 296
198 #define kw_INSTANCE 297
199 #define kw_INTEGER 298
200 #define kw_INTERSECTION 299
201 #define kw_ISO646String 300
202 #define kw_MAX 301
203 #define kw_MIN 302
204 #define kw_MINUS_INFINITY 303
205 #define kw_NULL 304
206 #define kw_NumericString 305
207 #define kw_OBJECT 306
208 #define kw_OCTET 307
209 #define kw_OF 308
210 #define kw_OPTIONAL 309
211 #define kw_ObjectDescriptor 310
212 #define kw_PATTERN 311
213 #define kw_PDV 312
214 #define kw_PLUS_INFINITY 313
215 #define kw_PRESENT 314
216 #define kw_PRIVATE 315
217 #define kw_PrintableString 316
218 #define kw_REAL 317
219 #define kw_RELATIVE_OID 318
220 #define kw_SEQUENCE 319
221 #define kw_SET 320
222 #define kw_SIZE 321
223 #define kw_STRING 322
224 #define kw_SYNTAX 323
225 #define kw_T61String 324
226 #define kw_TAGS 325
227 #define kw_TRUE 326
228 #define kw_TYPE_IDENTIFIER 327
229 #define kw_TeletexString 328
230 #define kw_UNION 329
231 #define kw_UNIQUE 330
232 #define kw_UNIVERSAL 331
233 #define kw_UTCTime 332
234 #define kw_UTF8String 333
235 #define kw_UniversalString 334
236 #define kw_VideotexString 335
237 #define kw_VisibleString 336
238 #define kw_WITH 337
239 #define RANGE 338
240 #define EEQUAL 339
241 #define ELLIPSIS 340
242 #define IDENTIFIER 341
243 #define referencename 342
244 #define STRING 343
245 #define NUMBER 344
246
247
248
249
250 /* Copy the first part of user declarations. */
251 #line 36 "heimdal/lib/asn1/parse.y"
252
253 #ifdef HAVE_CONFIG_H
254 #include <config.h>
255 #endif
256 #include <stdio.h>
257 #include <stdlib.h>
258 #include <string.h>
259 #include "symbol.h"
260 #include "lex.h"
261 #include "gen_locl.h"
262 #include "der.h"
263
264 RCSID("$Id$");
265
266 static Type *new_type (Typetype t);
267 static struct constraint_spec *new_constraint_spec(enum ctype);
268 static Type *new_tag(int tagclass, int tagvalue, int tagenv, Type *oldtype);
269 void yyerror (const char *);
270 static struct objid *new_objid(const char *label, int value);
271 static void add_oid_to_tail(struct objid *, struct objid *);
272 static void fix_labels(Symbol *s);
273
274 struct string_list {
275 char *string;
276 struct string_list *next;
277 };
278
279
280
281 /* Enabling traces. */
282 #ifndef YYDEBUG
283 # define YYDEBUG 0
284 #endif
285
286 /* Enabling verbose error messages. */
287 #ifdef YYERROR_VERBOSE
288 # undef YYERROR_VERBOSE
289 # define YYERROR_VERBOSE 1
290 #else
291 # define YYERROR_VERBOSE 0
292 #endif
293
294 /* Enabling the token table. */
295 #ifndef YYTOKEN_TABLE
296 # define YYTOKEN_TABLE 0
297 #endif
298
299 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
300 typedef union YYSTYPE
301 #line 65 "heimdal/lib/asn1/parse.y"
302 {
303 int constant;
304 struct value *value;
305 struct range *range;
306 char *name;
307 Type *type;
308 Member *member;
309 struct objid *objid;
310 char *defval;
311 struct string_list *sl;
312 struct tagtype tag;
313 struct memhead *members;
314 struct constraint_spec *constraint_spec;
315 }
316 /* Line 187 of yacc.c. */
317 #line 318 "heimdal/lib/asn1/parse.y"
318 YYSTYPE;
319 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
320 # define YYSTYPE_IS_DECLARED 1
321 # define YYSTYPE_IS_TRIVIAL 1
322 #endif
323
324
325
326 /* Copy the second part of user declarations. */
327
328
329 /* Line 216 of yacc.c. */
330 #line 331 "heimdal/lib/asn1/parse.y"
331
332 #ifdef short
333 # undef short
334 #endif
335
336 #ifdef YYTYPE_UINT8
337 typedef YYTYPE_UINT8 yytype_uint8;
338 #else
339 typedef unsigned char yytype_uint8;
340 #endif
341
342 #ifdef YYTYPE_INT8
343 typedef YYTYPE_INT8 yytype_int8;
344 #elif (defined __STDC__ || defined __C99__FUNC__ \
345 || defined __cplusplus || defined _MSC_VER)
346 typedef signed char yytype_int8;
347 #else
348 typedef short int yytype_int8;
349 #endif
350
351 #ifdef YYTYPE_UINT16
352 typedef YYTYPE_UINT16 yytype_uint16;
353 #else
354 typedef unsigned short int yytype_uint16;
355 #endif
356
357 #ifdef YYTYPE_INT16
358 typedef YYTYPE_INT16 yytype_int16;
359 #else
360 typedef short int yytype_int16;
361 #endif
362
363 #ifndef YYSIZE_T
364 # ifdef __SIZE_TYPE__
365 # define YYSIZE_T __SIZE_TYPE__
366 # elif defined size_t
367 # define YYSIZE_T size_t
368 # elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
369 || defined __cplusplus || defined _MSC_VER)
370 # include <stddef.h> /* INFRINGES ON USER NAME SPACE */
371 # define YYSIZE_T size_t
372 # else
373 # define YYSIZE_T unsigned int
374 # endif
375 #endif
376
377 #define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
378
379 #ifndef YY_
380 # if YYENABLE_NLS
381 # if ENABLE_NLS
382 # include <libintl.h> /* INFRINGES ON USER NAME SPACE */
383 # define YY_(msgid) dgettext ("bison-runtime", msgid)
384 # endif
385 # endif
386 # ifndef YY_
387 # define YY_(msgid) msgid
388 # endif
389 #endif
390
391 /* Suppress unused-variable warnings by "using" E. */
392 #if ! defined lint || defined __GNUC__
393 # define YYUSE(e) ((void) (e))
394 #else
395 # define YYUSE(e) /* empty */
396 #endif
397
398 /* Identity function, used to suppress warnings about constant conditions. */
399 #ifndef lint
400 # define YYID(n) (n)
401 #else
402 #if (defined __STDC__ || defined __C99__FUNC__ \
403 || defined __cplusplus || defined _MSC_VER)
404 static int
405 YYID (int i)
/* [<][>][^][v][top][bottom][index][help] */
406 #else
407 static int
408 YYID (i)
409 int i;
410 #endif
411 {
412 return i;
413 }
414 #endif
415
416 #if ! defined yyoverflow || YYERROR_VERBOSE
417
418 /* The parser invokes alloca or malloc; define the necessary symbols. */
419
420 # ifdef YYSTACK_USE_ALLOCA
421 # if YYSTACK_USE_ALLOCA
422 # ifdef __GNUC__
423 # define YYSTACK_ALLOC __builtin_alloca
424 # elif defined __BUILTIN_VA_ARG_INCR
425 # include <alloca.h> /* INFRINGES ON USER NAME SPACE */
426 # elif defined _AIX
427 # define YYSTACK_ALLOC __alloca
428 # elif defined _MSC_VER
429 # include <malloc.h> /* INFRINGES ON USER NAME SPACE */
430 # define alloca _alloca
431 # else
432 # define YYSTACK_ALLOC alloca
433 # if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
434 || defined __cplusplus || defined _MSC_VER)
435 # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
436 # ifndef _STDLIB_H
437 # define _STDLIB_H 1
438 # endif
439 # endif
440 # endif
441 # endif
442 # endif
443
444 # ifdef YYSTACK_ALLOC
445 /* Pacify GCC's `empty if-body' warning. */
446 # define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
447 # ifndef YYSTACK_ALLOC_MAXIMUM
448 /* The OS might guarantee only one guard page at the bottom of the stack,
449 and a page size can be as small as 4096 bytes. So we cannot safely
450 invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
451 to allow for a few compiler-allocated temporary stack slots. */
452 # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
453 # endif
454 # else
455 # define YYSTACK_ALLOC YYMALLOC
456 # define YYSTACK_FREE YYFREE
457 # ifndef YYSTACK_ALLOC_MAXIMUM
458 # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
459 # endif
460 # if (defined __cplusplus && ! defined _STDLIB_H \
461 && ! ((defined YYMALLOC || defined malloc) \
462 && (defined YYFREE || defined free)))
463 # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
464 # ifndef _STDLIB_H
465 # define _STDLIB_H 1
466 # endif
467 # endif
468 # ifndef YYMALLOC
469 # define YYMALLOC malloc
470 # if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
471 || defined __cplusplus || defined _MSC_VER)
472 void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
473 # endif
474 # endif
475 # ifndef YYFREE
476 # define YYFREE free
477 # if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
478 || defined __cplusplus || defined _MSC_VER)
479 void free (void *); /* INFRINGES ON USER NAME SPACE */
480 # endif
481 # endif
482 # endif
483 #endif /* ! defined yyoverflow || YYERROR_VERBOSE */
484
485
486 #if (! defined yyoverflow \
487 && (! defined __cplusplus \
488 || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
489
490 /* A type that is properly aligned for any stack member. */
491 union yyalloc
492 {
493 yytype_int16 yyss;
494 YYSTYPE yyvs;
495 };
496
497 /* The size of the maximum gap between one aligned stack and the next. */
498 # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
499
500 /* The size of an array large to enough to hold all stacks, each with
501 N elements. */
502 # define YYSTACK_BYTES(N) \
503 ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
504 + YYSTACK_GAP_MAXIMUM)
505
506 /* Copy COUNT objects from FROM to TO. The source and destination do
507 not overlap. */
508 # ifndef YYCOPY
509 # if defined __GNUC__ && 1 < __GNUC__
510 # define YYCOPY(To, From, Count) \
511 __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
512 # else
513 # define YYCOPY(To, From, Count) \
514 do \
515 { \
516 YYSIZE_T yyi; \
517 for (yyi = 0; yyi < (Count); yyi++) \
518 (To)[yyi] = (From)[yyi]; \
519 } \
520 while (YYID (0))
521 # endif
522 # endif
523
524 /* Relocate STACK from its old location to the new one. The
525 local variables YYSIZE and YYSTACKSIZE give the old and new number of
526 elements in the stack, and YYPTR gives the new location of the
527 stack. Advance YYPTR to a properly aligned location for the next
528 stack. */
529 # define YYSTACK_RELOCATE(Stack) \
530 do \
531 { \
532 YYSIZE_T yynewbytes; \
533 YYCOPY (&yyptr->Stack, Stack, yysize); \
534 Stack = &yyptr->Stack; \
535 yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
536 yyptr += yynewbytes / sizeof (*yyptr); \
537 } \
538 while (YYID (0))
539
540 #endif
541
542 /* YYFINAL -- State number of the termination state. */
543 #define YYFINAL 6
544 /* YYLAST -- Last index in YYTABLE. */
545 #define YYLAST 195
546
547 /* YYNTOKENS -- Number of terminals. */
548 #define YYNTOKENS 98
549 /* YYNNTS -- Number of nonterminals. */
550 #define YYNNTS 68
551 /* YYNRULES -- Number of rules. */
552 #define YYNRULES 136
553 /* YYNRULES -- Number of states. */
554 #define YYNSTATES 214
555
556 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
557 #define YYUNDEFTOK 2
558 #define YYMAXUTOK 344
559
560 #define YYTRANSLATE(YYX) \
561 ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
562
563 /* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
564 static const yytype_uint8 yytranslate[] =
565 {
566 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
567 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
568 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
569 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
570 92, 93, 2, 2, 91, 2, 2, 2, 2, 2,
571 2, 2, 2, 2, 2, 2, 2, 2, 2, 90,
572 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
573 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
574 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
575 2, 96, 2, 97, 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, 2, 2, 94, 2, 95, 2, 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, 2, 2, 2, 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, 1, 2, 3, 4,
592 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
593 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
594 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
595 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
596 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,
597 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
598 65, 66, 67, 68, 69, 70, 71, 72, 73, 74,
599 75, 76, 77, 78, 79, 80, 81, 82, 83, 84,
600 85, 86, 87, 88, 89
601 };
602
603 #if YYDEBUG
604 /* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
605 YYRHS. */
606 static const yytype_uint16 yyprhs[] =
607 {
608 0, 0, 3, 13, 16, 19, 22, 23, 26, 27,
609 30, 31, 35, 36, 38, 39, 41, 44, 49, 51,
610 54, 56, 58, 62, 64, 68, 70, 72, 74, 76,
611 78, 80, 82, 84, 86, 88, 90, 92, 94, 96,
612 98, 100, 102, 104, 110, 116, 122, 126, 128, 131,
613 136, 138, 142, 146, 151, 156, 158, 161, 167, 170,
614 174, 176, 177, 180, 185, 189, 194, 199, 203, 207,
615 212, 214, 216, 218, 220, 222, 225, 229, 231, 233,
616 235, 238, 242, 248, 253, 257, 262, 263, 265, 267,
617 269, 270, 272, 274, 279, 281, 283, 285, 287, 289,
618 291, 293, 295, 297, 301, 305, 308, 310, 313, 317,
619 319, 323, 328, 330, 331, 335, 336, 339, 344, 346,
620 348, 350, 352, 354, 356, 358, 360, 362, 364, 366,
621 368, 370, 372, 374, 376, 378, 380
622 };
623
624 /* YYRHS -- A `-1'-separated list of the rules' RHS. */
625 static const yytype_int16 yyrhs[] =
626 {
627 99, 0, -1, 86, 151, 21, 100, 101, 84, 8,
628 102, 24, -1, 27, 70, -1, 38, 70, -1, 7,
629 70, -1, -1, 29, 39, -1, -1, 103, 107, -1,
630 -1, 40, 104, 90, -1, -1, 105, -1, -1, 106,
631 -1, 105, 106, -1, 109, 32, 86, 151, -1, 108,
632 -1, 108, 107, -1, 110, -1, 143, -1, 86, 91,
633 109, -1, 86, -1, 86, 84, 111, -1, 112, -1,
634 130, -1, 133, -1, 120, -1, 113, -1, 144, -1,
635 129, -1, 118, -1, 115, -1, 123, -1, 121, -1,
636 122, -1, 125, -1, 126, -1, 127, -1, 128, -1,
637 139, -1, 11, -1, 92, 155, 83, 155, 93, -1,
638 92, 155, 83, 46, 93, -1, 92, 47, 83, 155,
639 93, -1, 92, 155, 93, -1, 43, -1, 43, 114,
640 -1, 43, 94, 116, 95, -1, 117, -1, 116, 91,
641 117, -1, 116, 91, 85, -1, 86, 92, 163, 93,
642 -1, 25, 94, 119, 95, -1, 116, -1, 9, 67,
643 -1, 9, 67, 94, 149, 95, -1, 51, 37, -1,
644 52, 67, 124, -1, 49, -1, -1, 66, 114, -1,
645 64, 94, 146, 95, -1, 64, 94, 95, -1, 64,
646 124, 53, 111, -1, 65, 94, 146, 95, -1, 65,
647 94, 95, -1, 65, 53, 111, -1, 14, 94, 146,
648 95, -1, 131, -1, 132, -1, 86, -1, 34, -1,
649 77, -1, 111, 134, -1, 92, 135, 93, -1, 136,
650 -1, 137, -1, 138, -1, 19, 111, -1, 23, 12,
651 155, -1, 19, 111, 23, 12, 155, -1, 18, 12,
652 94, 95, -1, 140, 142, 111, -1, 96, 141, 89,
653 97, -1, -1, 76, -1, 6, -1, 60, -1, -1,
654 27, -1, 38, -1, 86, 111, 84, 155, -1, 145,
655 -1, 33, -1, 78, -1, 61, -1, 81, -1, 36,
656 -1, 10, -1, 79, -1, 148, -1, 146, 91, 148,
657 -1, 146, 91, 85, -1, 86, 111, -1, 147, -1,
658 147, 54, -1, 147, 20, 155, -1, 150, -1, 149,
659 91, 150, -1, 86, 92, 89, 93, -1, 152, -1,
660 -1, 94, 153, 95, -1, -1, 154, 153, -1, 86,
661 92, 89, 93, -1, 86, -1, 89, -1, 156, -1,
662 157, -1, 161, -1, 160, -1, 162, -1, 165, -1,
663 164, -1, 158, -1, 159, -1, 86, -1, 88, -1,
664 71, -1, 31, -1, 163, -1, 89, -1, 49, -1,
665 152, -1
666 };
667
668 /* YYRLINE[YYN] -- source line where rule number YYN was defined. */
669 static const yytype_uint16 yyrline[] =
670 {
671 0, 233, 233, 240, 241, 243, 245, 248, 250, 253,
672 254, 257, 258, 261, 262, 265, 266, 269, 280, 281,
673 284, 285, 288, 294, 302, 312, 313, 314, 317, 318,
674 319, 320, 321, 322, 323, 324, 325, 326, 327, 328,
675 329, 330, 333, 340, 350, 358, 366, 377, 382, 388,
676 396, 402, 407, 411, 424, 432, 435, 442, 450, 456,
677 465, 473, 474, 479, 485, 493, 502, 508, 516, 524,
678 531, 532, 535, 546, 551, 558, 574, 580, 583, 584,
679 587, 593, 601, 611, 617, 630, 639, 642, 646, 650,
680 657, 660, 664, 671, 682, 685, 690, 695, 700, 705,
681 710, 715, 723, 729, 734, 745, 756, 762, 768, 776,
682 782, 789, 802, 803, 806, 813, 816, 827, 831, 842,
683 848, 849, 852, 853, 854, 855, 856, 859, 862, 865,
684 876, 884, 890, 898, 906, 909, 914
685 };
686 #endif
687
688 #if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
689 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
690 First, the terminals, then, starting at YYNTOKENS, nonterminals. */
691 static const char *const yytname[] =
692 {
693 "$end", "error", "$undefined", "kw_ABSENT", "kw_ABSTRACT_SYNTAX",
694 "kw_ALL", "kw_APPLICATION", "kw_AUTOMATIC", "kw_BEGIN", "kw_BIT",
695 "kw_BMPString", "kw_BOOLEAN", "kw_BY", "kw_CHARACTER", "kw_CHOICE",
696 "kw_CLASS", "kw_COMPONENT", "kw_COMPONENTS", "kw_CONSTRAINED",
697 "kw_CONTAINING", "kw_DEFAULT", "kw_DEFINITIONS", "kw_EMBEDDED",
698 "kw_ENCODED", "kw_END", "kw_ENUMERATED", "kw_EXCEPT", "kw_EXPLICIT",
699 "kw_EXPORTS", "kw_EXTENSIBILITY", "kw_EXTERNAL", "kw_FALSE", "kw_FROM",
700 "kw_GeneralString", "kw_GeneralizedTime", "kw_GraphicString",
701 "kw_IA5String", "kw_IDENTIFIER", "kw_IMPLICIT", "kw_IMPLIED",
702 "kw_IMPORTS", "kw_INCLUDES", "kw_INSTANCE", "kw_INTEGER",
703 "kw_INTERSECTION", "kw_ISO646String", "kw_MAX", "kw_MIN",
704 "kw_MINUS_INFINITY", "kw_NULL", "kw_NumericString", "kw_OBJECT",
705 "kw_OCTET", "kw_OF", "kw_OPTIONAL", "kw_ObjectDescriptor", "kw_PATTERN",
706 "kw_PDV", "kw_PLUS_INFINITY", "kw_PRESENT", "kw_PRIVATE",
707 "kw_PrintableString", "kw_REAL", "kw_RELATIVE_OID", "kw_SEQUENCE",
708 "kw_SET", "kw_SIZE", "kw_STRING", "kw_SYNTAX", "kw_T61String", "kw_TAGS",
709 "kw_TRUE", "kw_TYPE_IDENTIFIER", "kw_TeletexString", "kw_UNION",
710 "kw_UNIQUE", "kw_UNIVERSAL", "kw_UTCTime", "kw_UTF8String",
711 "kw_UniversalString", "kw_VideotexString", "kw_VisibleString", "kw_WITH",
712 "RANGE", "EEQUAL", "ELLIPSIS", "IDENTIFIER", "referencename", "STRING",
713 "NUMBER", "';'", "','", "'('", "')'", "'{'", "'}'", "'['", "']'",
714 "$accept", "ModuleDefinition", "TagDefault", "ExtensionDefault",
715 "ModuleBody", "Imports", "SymbolsImported", "SymbolsFromModuleList",
716 "SymbolsFromModule", "AssignmentList", "Assignment", "referencenames",
717 "TypeAssignment", "Type", "BuiltinType", "BooleanType", "range",
718 "IntegerType", "NamedNumberList", "NamedNumber", "EnumeratedType",
719 "Enumerations", "BitStringType", "ObjectIdentifierType",
720 "OctetStringType", "NullType", "size", "SequenceType", "SequenceOfType",
721 "SetType", "SetOfType", "ChoiceType", "ReferencedType", "DefinedType",
722 "UsefulType", "ConstrainedType", "Constraint", "ConstraintSpec",
723 "GeneralConstraint", "ContentsConstraint", "UserDefinedConstraint",
724 "TaggedType", "Tag", "Class", "tagenv", "ValueAssignment",
725 "CharacterStringType", "RestrictedCharactedStringType",
726 "ComponentTypeList", "NamedType", "ComponentType", "NamedBitList",
727 "NamedBit", "objid_opt", "objid", "objid_list", "objid_element", "Value",
728 "BuiltinValue", "ReferencedValue", "DefinedValue", "Valuereference",
729 "CharacterStringValue", "BooleanValue", "IntegerValue", "SignedNumber",
730 "NullValue", "ObjectIdentifierValue", 0
731 };
732 #endif
733
734 # ifdef YYPRINT
735 /* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
736 token YYLEX-NUM. */
737 static const yytype_uint16 yytoknum[] =
738 {
739 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
740 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
741 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
742 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
743 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
744 305, 306, 307, 308, 309, 310, 311, 312, 313, 314,
745 315, 316, 317, 318, 319, 320, 321, 322, 323, 324,
746 325, 326, 327, 328, 329, 330, 331, 332, 333, 334,
747 335, 336, 337, 338, 339, 340, 341, 342, 343, 344,
748 59, 44, 40, 41, 123, 125, 91, 93
749 };
750 # endif
751
752 /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
753 static const yytype_uint8 yyr1[] =
754 {
755 0, 98, 99, 100, 100, 100, 100, 101, 101, 102,
756 102, 103, 103, 104, 104, 105, 105, 106, 107, 107,
757 108, 108, 109, 109, 110, 111, 111, 111, 112, 112,
758 112, 112, 112, 112, 112, 112, 112, 112, 112, 112,
759 112, 112, 113, 114, 114, 114, 114, 115, 115, 115,
760 116, 116, 116, 117, 118, 119, 120, 120, 121, 122,
761 123, 124, 124, 125, 125, 126, 127, 127, 128, 129,
762 130, 130, 131, 132, 132, 133, 134, 135, 136, 136,
763 137, 137, 137, 138, 139, 140, 141, 141, 141, 141,
764 142, 142, 142, 143, 144, 145, 145, 145, 145, 145,
765 145, 145, 146, 146, 146, 147, 148, 148, 148, 149,
766 149, 150, 151, 151, 152, 153, 153, 154, 154, 154,
767 155, 155, 156, 156, 156, 156, 156, 157, 158, 159,
768 160, 161, 161, 162, 163, 164, 165
769 };
770
771 /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
772 static const yytype_uint8 yyr2[] =
773 {
774 0, 2, 9, 2, 2, 2, 0, 2, 0, 2,
775 0, 3, 0, 1, 0, 1, 2, 4, 1, 2,
776 1, 1, 3, 1, 3, 1, 1, 1, 1, 1,
777 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
778 1, 1, 1, 5, 5, 5, 3, 1, 2, 4,
779 1, 3, 3, 4, 4, 1, 2, 5, 2, 3,
780 1, 0, 2, 4, 3, 4, 4, 3, 3, 4,
781 1, 1, 1, 1, 1, 2, 3, 1, 1, 1,
782 2, 3, 5, 4, 3, 4, 0, 1, 1, 1,
783 0, 1, 1, 4, 1, 1, 1, 1, 1, 1,
784 1, 1, 1, 3, 3, 2, 1, 2, 3, 1,
785 3, 4, 1, 0, 3, 0, 2, 4, 1, 1,
786 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
787 1, 1, 1, 1, 1, 1, 1
788 };
789
790 /* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
791 STATE-NUM when YYTABLE doesn't specify something else to do. Zero
792 means the default is an error. */
793 static const yytype_uint8 yydefact[] =
794 {
795 0, 113, 0, 115, 0, 112, 1, 118, 119, 0,
796 115, 6, 0, 114, 116, 0, 0, 0, 8, 0,
797 5, 3, 4, 0, 0, 117, 7, 0, 10, 14,
798 0, 0, 23, 0, 13, 15, 0, 2, 0, 9,
799 18, 20, 21, 0, 11, 16, 0, 0, 100, 42,
800 0, 0, 95, 73, 99, 47, 60, 0, 0, 97,
801 61, 0, 74, 96, 101, 98, 0, 72, 86, 0,
802 25, 29, 33, 32, 28, 35, 36, 34, 37, 38,
803 39, 40, 31, 26, 70, 71, 27, 41, 90, 30,
804 94, 19, 22, 113, 56, 0, 0, 0, 0, 48,
805 58, 61, 0, 0, 0, 0, 0, 24, 88, 89,
806 87, 0, 0, 0, 75, 91, 92, 0, 17, 0,
807 0, 0, 106, 102, 0, 55, 50, 0, 132, 0,
808 135, 131, 129, 130, 134, 136, 0, 120, 121, 127,
809 128, 123, 122, 124, 133, 126, 125, 0, 59, 62,
810 64, 0, 0, 68, 67, 0, 0, 93, 0, 0,
811 0, 0, 77, 78, 79, 84, 0, 0, 109, 105,
812 0, 69, 0, 107, 0, 0, 54, 0, 0, 46,
813 49, 63, 65, 66, 85, 0, 80, 0, 76, 0,
814 0, 57, 104, 103, 108, 0, 52, 51, 0, 0,
815 0, 0, 0, 81, 0, 110, 53, 45, 44, 43,
816 83, 0, 111, 82
817 };
818
819 /* YYDEFGOTO[NTERM-NUM]. */
820 static const yytype_int16 yydefgoto[] =
821 {
822 -1, 2, 18, 24, 30, 31, 33, 34, 35, 39,
823 40, 36, 41, 69, 70, 71, 99, 72, 125, 126,
824 73, 127, 74, 75, 76, 77, 104, 78, 79, 80,
825 81, 82, 83, 84, 85, 86, 114, 161, 162, 163,
826 164, 87, 88, 111, 117, 42, 89, 90, 121, 122,
827 123, 167, 168, 4, 135, 9, 10, 136, 137, 138,
828 139, 140, 141, 142, 143, 144, 145, 146
829 };
830
831 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
832 STATE-NUM. */
833 #define YYPACT_NINF -113
834 static const yytype_int16 yypact[] =
835 {
836 -74, -67, 38, -69, 23, -113, -113, -44, -113, -41,
837 -69, 4, -26, -113, -113, -3, 1, 10, 52, -10,
838 -113, -113, -113, 45, 13, -113, -113, 77, -35, 15,
839 64, 19, 17, 20, 15, -113, 85, -113, 25, -113,
840 19, -113, -113, 15, -113, -113, 27, 47, -113, -113,
841 26, 29, -113, -113, -113, -30, -113, 89, 61, -113,
842 -57, -47, -113, -113, -113, -113, 82, -113, -4, -68,
843 -113, -113, -113, -113, -113, -113, -113, -113, -113, -113,
844 -113, -113, -113, -113, -113, -113, -113, -113, -17, -113,
845 -113, -113, -113, -67, 35, 33, 46, 51, 46, -113,
846 -113, 69, 44, -73, 88, 82, -72, 56, -113, -113,
847 -113, 49, 93, 7, -113, -113, -113, 82, -113, 58,
848 82, -76, -13, -113, 57, 59, -113, 60, -113, 68,
849 -113, -113, -113, -113, -113, -113, -75, -113, -113, -113,
850 -113, -113, -113, -113, -113, -113, -113, -63, -113, -113,
851 -113, -62, 82, 56, -113, -46, 65, -113, 141, 82,
852 142, 63, -113, -113, -113, 56, 66, -38, -113, 56,
853 -16, -113, 93, -113, 76, -7, -113, 93, 81, -113,
854 -113, -113, 56, -113, -113, 72, -19, 93, -113, 83,
855 58, -113, -113, -113, -113, 78, -113, -113, 80, 84,
856 87, 62, 162, -113, 90, -113, -113, -113, -113, -113,
857 -113, 93, -113, -113
858 };
859
860 /* YYPGOTO[NTERM-NUM]. */
861 static const yytype_int16 yypgoto[] =
862 {
863 -113, -113, -113, -113, -113, -113, -113, -113, 150, 136,
864 -113, 143, -113, -65, -113, -113, 86, -113, 91, 16,
865 -113, -113, -113, -113, -113, -113, 92, -113, -113, -113,
866 -113, -113, -113, -113, -113, -113, -113, -113, -113, -113,
867 -113, -113, -113, -113, -113, -113, -113, -113, -60, -113,
868 22, -113, -5, 97, 2, 184, -113, -112, -113, -113,
869 -113, -113, -113, -113, -113, 21, -113, -113
870 };
871
872 /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
873 positive, shift that token. If negative, reduce the rule which
874 number is the opposite. If zero, do what YYDEFACT says.
875 If YYTABLE_NINF, syntax error. */
876 #define YYTABLE_NINF -13
877 static const yytype_int16 yytable[] =
878 {
879 157, 107, 108, 5, 202, 29, 105, 172, 178, 102,
880 115, 15, 1, 120, 120, 170, 112, 7, 179, 171,
881 8, 116, 150, 154, 113, 158, 159, 3, 175, 170,
882 160, 16, 180, 181, 47, 48, 49, 103, 6, 50,
883 153, 173, 17, 151, 11, 170, 155, 106, 12, 183,
884 51, -12, 165, 190, 13, 169, 109, 191, 52, 53,
885 194, 54, 97, 19, 98, 198, 200, 20, 55, 192,
886 120, 21, 110, 113, 56, 203, 57, 58, 196, 124,
887 22, 23, 128, 25, 26, 28, 59, 182, 37, 60,
888 61, 47, 48, 49, 186, 5, 50, 27, 129, 213,
889 130, 32, 62, 63, 64, 38, 65, 51, 43, 66,
890 44, 67, 128, 93, 94, 52, 53, 46, 54, 120,
891 95, 68, 131, 96, 128, 55, 100, 199, 101, 119,
892 130, 56, 124, 57, 58, 102, 97, 132, 156, 133,
893 134, 152, 130, 59, 166, 3, 60, 61, 113, 174,
894 175, 177, 131, 185, 187, 176, 188, 210, 189, 62,
895 63, 64, 184, 65, 131, 134, 201, 132, 67, 133,
896 134, 206, 204, 207, 211, 3, 91, 208, 68, 132,
897 209, 133, 134, 212, 45, 205, 92, 3, 149, 147,
898 118, 197, 193, 148, 14, 195
899 };
900
901 static const yytype_uint8 yycheck[] =
902 {
903 112, 66, 6, 1, 23, 40, 53, 20, 83, 66,
904 27, 7, 86, 86, 86, 91, 84, 86, 93, 95,
905 89, 38, 95, 95, 92, 18, 19, 94, 91, 91,
906 23, 27, 95, 95, 9, 10, 11, 94, 0, 14,
907 105, 54, 38, 103, 21, 91, 106, 94, 92, 95,
908 25, 86, 117, 91, 95, 120, 60, 95, 33, 34,
909 172, 36, 92, 89, 94, 177, 178, 70, 43, 85,
910 86, 70, 76, 92, 49, 187, 51, 52, 85, 86,
911 70, 29, 31, 93, 39, 8, 61, 152, 24, 64,
912 65, 9, 10, 11, 159, 93, 14, 84, 47, 211,
913 49, 86, 77, 78, 79, 86, 81, 25, 91, 84,
914 90, 86, 31, 86, 67, 33, 34, 32, 36, 86,
915 94, 96, 71, 94, 31, 43, 37, 46, 67, 94,
916 49, 49, 86, 51, 52, 66, 92, 86, 89, 88,
917 89, 53, 49, 61, 86, 94, 64, 65, 92, 92,
918 91, 83, 71, 12, 12, 95, 93, 95, 92, 77,
919 78, 79, 97, 81, 71, 89, 94, 86, 86, 88,
920 89, 93, 89, 93, 12, 94, 40, 93, 96, 86,
921 93, 88, 89, 93, 34, 190, 43, 94, 102, 98,
922 93, 175, 170, 101, 10, 174
923 };
924
925 /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
926 symbol of state STATE-NUM. */
927 static const yytype_uint8 yystos[] =
928 {
929 0, 86, 99, 94, 151, 152, 0, 86, 89, 153,
930 154, 21, 92, 95, 153, 7, 27, 38, 100, 89,
931 70, 70, 70, 29, 101, 93, 39, 84, 8, 40,
932 102, 103, 86, 104, 105, 106, 109, 24, 86, 107,
933 108, 110, 143, 91, 90, 106, 32, 9, 10, 11,
934 14, 25, 33, 34, 36, 43, 49, 51, 52, 61,
935 64, 65, 77, 78, 79, 81, 84, 86, 96, 111,
936 112, 113, 115, 118, 120, 121, 122, 123, 125, 126,
937 127, 128, 129, 130, 131, 132, 133, 139, 140, 144,
938 145, 107, 109, 86, 67, 94, 94, 92, 94, 114,
939 37, 67, 66, 94, 124, 53, 94, 111, 6, 60,
940 76, 141, 84, 92, 134, 27, 38, 142, 151, 94,
941 86, 146, 147, 148, 86, 116, 117, 119, 31, 47,
942 49, 71, 86, 88, 89, 152, 155, 156, 157, 158,
943 159, 160, 161, 162, 163, 164, 165, 116, 124, 114,
944 95, 146, 53, 111, 95, 146, 89, 155, 18, 19,
945 23, 135, 136, 137, 138, 111, 86, 149, 150, 111,
946 91, 95, 20, 54, 92, 91, 95, 83, 83, 93,
947 95, 95, 111, 95, 97, 12, 111, 12, 93, 92,
948 91, 95, 85, 148, 155, 163, 85, 117, 155, 46,
949 155, 94, 23, 155, 89, 150, 93, 93, 93, 93,
950 95, 12, 93, 155
951 };
952
953 #define yyerrok (yyerrstatus = 0)
954 #define yyclearin (yychar = YYEMPTY)
955 #define YYEMPTY (-2)
956 #define YYEOF 0
957
958 #define YYACCEPT goto yyacceptlab
959 #define YYABORT goto yyabortlab
960 #define YYERROR goto yyerrorlab
961
962
963 /* Like YYERROR except do call yyerror. This remains here temporarily
964 to ease the transition to the new meaning of YYERROR, for GCC.
965 Once GCC version 2 has supplanted version 1, this can go. */
966
967 #define YYFAIL goto yyerrlab
968
969 #define YYRECOVERING() (!!yyerrstatus)
970
971 #define YYBACKUP(Token, Value) \
972 do \
973 if (yychar == YYEMPTY && yylen == 1) \
974 { \
975 yychar = (Token); \
976 yylval = (Value); \
977 yytoken = YYTRANSLATE (yychar); \
978 YYPOPSTACK (1); \
979 goto yybackup; \
980 } \
981 else \
982 { \
983 yyerror (YY_("syntax error: cannot back up")); \
984 YYERROR; \
985 } \
986 while (YYID (0))
987
988
989 #define YYTERROR 1
990 #define YYERRCODE 256
991
992
993 /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
994 If N is 0, then set CURRENT to the empty location which ends
995 the previous symbol: RHS[0] (always defined). */
996
997 #define YYRHSLOC(Rhs, K) ((Rhs)[K])
998 #ifndef YYLLOC_DEFAULT
999 # define YYLLOC_DEFAULT(Current, Rhs, N) \
1000 do \
1001 if (YYID (N)) \
1002 { \
1003 (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
1004 (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
1005 (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
1006 (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
1007 } \
1008 else \
1009 { \
1010 (Current).first_line = (Current).last_line = \
1011 YYRHSLOC (Rhs, 0).last_line; \
1012 (Current).first_column = (Current).last_column = \
1013 YYRHSLOC (Rhs, 0).last_column; \
1014 } \
1015 while (YYID (0))
1016 #endif
1017
1018
1019 /* YY_LOCATION_PRINT -- Print the location on the stream.
1020 This macro was not mandated originally: define only if we know
1021 we won't break user code: when these are the locations we know. */
1022
1023 #ifndef YY_LOCATION_PRINT
1024 # if YYLTYPE_IS_TRIVIAL
1025 # define YY_LOCATION_PRINT(File, Loc) \
1026 fprintf (File, "%d.%d-%d.%d", \
1027 (Loc).first_line, (Loc).first_column, \
1028 (Loc).last_line, (Loc).last_column)
1029 # else
1030 # define YY_LOCATION_PRINT(File, Loc) ((void) 0)
1031 # endif
1032 #endif
1033
1034
1035 /* YYLEX -- calling `yylex' with the right arguments. */
1036
1037 #ifdef YYLEX_PARAM
1038 # define YYLEX yylex (YYLEX_PARAM)
1039 #else
1040 # define YYLEX yylex ()
1041 #endif
1042
1043 /* Enable debugging if requested. */
1044 #if YYDEBUG
1045
1046 # ifndef YYFPRINTF
1047 # include <stdio.h> /* INFRINGES ON USER NAME SPACE */
1048 # define YYFPRINTF fprintf
1049 # endif
1050
1051 # define YYDPRINTF(Args) \
1052 do { \
1053 if (yydebug) \
1054 YYFPRINTF Args; \
1055 } while (YYID (0))
1056
1057 # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
1058 do { \
1059 if (yydebug) \
1060 { \
1061 YYFPRINTF (stderr, "%s ", Title); \
1062 yy_symbol_print (stderr, \
1063 Type, Value); \
1064 YYFPRINTF (stderr, "\n"); \
1065 } \
1066 } while (YYID (0))
1067
1068
1069 /*--------------------------------.
1070 | Print this symbol on YYOUTPUT. |
1071 `--------------------------------*/
1072
1073 /*ARGSUSED*/
1074 #if (defined __STDC__ || defined __C99__FUNC__ \
1075 || defined __cplusplus || defined _MSC_VER)
1076 static void
1077 yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
/* [<][>][^][v][top][bottom][index][help] */
1078 #else
1079 static void
1080 yy_symbol_value_print (yyoutput, yytype, yyvaluep)
1081 FILE *yyoutput;
1082 int yytype;
1083 YYSTYPE const * const yyvaluep;
1084 #endif
1085 {
1086 if (!yyvaluep)
1087 return;
1088 # ifdef YYPRINT
1089 if (yytype < YYNTOKENS)
1090 YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
1091 # else
1092 YYUSE (yyoutput);
1093 # endif
1094 switch (yytype)
1095 {
1096 default:
1097 break;
1098 }
1099 }
1100
1101
1102 /*--------------------------------.
1103 | Print this symbol on YYOUTPUT. |
1104 `--------------------------------*/
1105
1106 #if (defined __STDC__ || defined __C99__FUNC__ \
1107 || defined __cplusplus || defined _MSC_VER)
1108 static void
1109 yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
/* [<][>][^][v][top][bottom][index][help] */
1110 #else
1111 static void
1112 yy_symbol_print (yyoutput, yytype, yyvaluep)
1113 FILE *yyoutput;
1114 int yytype;
1115 YYSTYPE const * const yyvaluep;
1116 #endif
1117 {
1118 if (yytype < YYNTOKENS)
1119 YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
1120 else
1121 YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
1122
1123 yy_symbol_value_print (yyoutput, yytype, yyvaluep);
1124 YYFPRINTF (yyoutput, ")");
1125 }
1126
1127 /*------------------------------------------------------------------.
1128 | yy_stack_print -- Print the state stack from its BOTTOM up to its |
1129 | TOP (included). |
1130 `------------------------------------------------------------------*/
1131
1132 #if (defined __STDC__ || defined __C99__FUNC__ \
1133 || defined __cplusplus || defined _MSC_VER)
1134 static void
1135 yy_stack_print (yytype_int16 *bottom, yytype_int16 *top)
/* [<][>][^][v][top][bottom][index][help] */
1136 #else
1137 static void
1138 yy_stack_print (bottom, top)
1139 yytype_int16 *bottom;
1140 yytype_int16 *top;
1141 #endif
1142 {
1143 YYFPRINTF (stderr, "Stack now");
1144 for (; bottom <= top; ++bottom)
1145 YYFPRINTF (stderr, " %d", *bottom);
1146 YYFPRINTF (stderr, "\n");
1147 }
1148
1149 # define YY_STACK_PRINT(Bottom, Top) \
1150 do { \
1151 if (yydebug) \
1152 yy_stack_print ((Bottom), (Top)); \
1153 } while (YYID (0))
1154
1155
1156 /*------------------------------------------------.
1157 | Report that the YYRULE is going to be reduced. |
1158 `------------------------------------------------*/
1159
1160 #if (defined __STDC__ || defined __C99__FUNC__ \
1161 || defined __cplusplus || defined _MSC_VER)
1162 static void
1163 yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
/* [<][>][^][v][top][bottom][index][help] */
1164 #else
1165 static void
1166 yy_reduce_print (yyvsp, yyrule)
1167 YYSTYPE *yyvsp;
1168 int yyrule;
1169 #endif
1170 {
1171 int yynrhs = yyr2[yyrule];
1172 int yyi;
1173 unsigned long int yylno = yyrline[yyrule];
1174 YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
1175 yyrule - 1, yylno);
1176 /* The symbols being reduced. */
1177 for (yyi = 0; yyi < yynrhs; yyi++)
1178 {
1179 fprintf (stderr, " $%d = ", yyi + 1);
1180 yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
1181 &(yyvsp[(yyi + 1) - (yynrhs)])
1182 );
1183 fprintf (stderr, "\n");
1184 }
1185 }
1186
1187 # define YY_REDUCE_PRINT(Rule) \
1188 do { \
1189 if (yydebug) \
1190 yy_reduce_print (yyvsp, Rule); \
1191 } while (YYID (0))
1192
1193 /* Nonzero means print parse trace. It is left uninitialized so that
1194 multiple parsers can coexist. */
1195 int yydebug;
1196 #else /* !YYDEBUG */
1197 # define YYDPRINTF(Args)
1198 # define YY_SYMBOL_PRINT(Title, Type, Value, Location)
1199 # define YY_STACK_PRINT(Bottom, Top)
1200 # define YY_REDUCE_PRINT(Rule)
1201 #endif /* !YYDEBUG */
1202
1203
1204 /* YYINITDEPTH -- initial size of the parser's stacks. */
1205 #ifndef YYINITDEPTH
1206 # define YYINITDEPTH 200
1207 #endif
1208
1209 /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
1210 if the built-in stack extension method is used).
1211
1212 Do not make this value too large; the results are undefined if
1213 YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
1214 evaluated with infinite-precision integer arithmetic. */
1215
1216 #ifndef YYMAXDEPTH
1217 # define YYMAXDEPTH 10000
1218 #endif
1219
1220
1221
1222 #if YYERROR_VERBOSE
1223
1224 # ifndef yystrlen
1225 # if defined __GLIBC__ && defined _STRING_H
1226 # define yystrlen strlen
1227 # else
1228 /* Return the length of YYSTR. */
1229 #if (defined __STDC__ || defined __C99__FUNC__ \
1230 || defined __cplusplus || defined _MSC_VER)
1231 static YYSIZE_T
1232 yystrlen (const char *yystr)
/* [<][>][^][v][top][bottom][index][help] */
1233 #else
1234 static YYSIZE_T
1235 yystrlen (yystr)
1236 const char *yystr;
1237 #endif
1238 {
1239 YYSIZE_T yylen;
1240 for (yylen = 0; yystr[yylen]; yylen++)
1241 continue;
1242 return yylen;
1243 }
1244 # endif
1245 # endif
1246
1247 # ifndef yystpcpy
1248 # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
1249 # define yystpcpy stpcpy
1250 # else
1251 /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
1252 YYDEST. */
1253 #if (defined __STDC__ || defined __C99__FUNC__ \
1254 || defined __cplusplus || defined _MSC_VER)
1255 static char *
1256 yystpcpy (char *yydest, const char *yysrc)
/* [<][>][^][v][top][bottom][index][help] */
1257 #else
1258 static char *
1259 yystpcpy (yydest, yysrc)
1260 char *yydest;
1261 const char *yysrc;
1262 #endif
1263 {
1264 char *yyd = yydest;
1265 const char *yys = yysrc;
1266
1267 while ((*yyd++ = *yys++) != '\0')
1268 continue;
1269
1270 return yyd - 1;
1271 }
1272 # endif
1273 # endif
1274
1275 # ifndef yytnamerr
1276 /* Copy to YYRES the contents of YYSTR after stripping away unnecessary
1277 quotes and backslashes, so that it's suitable for yyerror. The
1278 heuristic is that double-quoting is unnecessary unless the string
1279 contains an apostrophe, a comma, or backslash (other than
1280 backslash-backslash). YYSTR is taken from yytname. If YYRES is
1281 null, do not copy; instead, return the length of what the result
1282 would have been. */
1283 static YYSIZE_T
1284 yytnamerr (char *yyres, const char *yystr)
/* [<][>][^][v][top][bottom][index][help] */
1285 {
1286 if (*yystr == '"')
1287 {
1288 YYSIZE_T yyn = 0;
1289 char const *yyp = yystr;
1290
1291 for (;;)
1292 switch (*++yyp)
1293 {
1294 case '\'':
1295 case ',':
1296 goto do_not_strip_quotes;
1297
1298 case '\\':
1299 if (*++yyp != '\\')
1300 goto do_not_strip_quotes;
1301 /* Fall through. */
1302 default:
1303 if (yyres)
1304 yyres[yyn] = *yyp;
1305 yyn++;
1306 break;
1307
1308 case '"':
1309 if (yyres)
1310 yyres[yyn] = '\0';
1311 return yyn;
1312 }
1313 do_not_strip_quotes: ;
1314 }
1315
1316 if (! yyres)
1317 return yystrlen (yystr);
1318
1319 return yystpcpy (yyres, yystr) - yyres;
1320 }
1321 # endif
1322
1323 /* Copy into YYRESULT an error message about the unexpected token
1324 YYCHAR while in state YYSTATE. Return the number of bytes copied,
1325 including the terminating null byte. If YYRESULT is null, do not
1326 copy anything; just return the number of bytes that would be
1327 copied. As a special case, return 0 if an ordinary "syntax error"
1328 message will do. Return YYSIZE_MAXIMUM if overflow occurs during
1329 size calculation. */
1330 static YYSIZE_T
1331 yysyntax_error (char *yyresult, int yystate, int yychar)
/* [<][>][^][v][top][bottom][index][help] */
1332 {
1333 int yyn = yypact[yystate];
1334
1335 if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
1336 return 0;
1337 else
1338 {
1339 int yytype = YYTRANSLATE (yychar);
1340 YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
1341 YYSIZE_T yysize = yysize0;
1342 YYSIZE_T yysize1;
1343 int yysize_overflow = 0;
1344 enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
1345 char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
1346 int yyx;
1347
1348 # if 0
1349 /* This is so xgettext sees the translatable formats that are
1350 constructed on the fly. */
1351 YY_("syntax error, unexpected %s");
1352 YY_("syntax error, unexpected %s, expecting %s");
1353 YY_("syntax error, unexpected %s, expecting %s or %s");
1354 YY_("syntax error, unexpected %s, expecting %s or %s or %s");
1355 YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
1356 # endif
1357 char *yyfmt;
1358 char const *yyf;
1359 static char const yyunexpected[] = "syntax error, unexpected %s";
1360 static char const yyexpecting[] = ", expecting %s";
1361 static char const yyor[] = " or %s";
1362 char yyformat[sizeof yyunexpected
1363 + sizeof yyexpecting - 1
1364 + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
1365 * (sizeof yyor - 1))];
1366 char const *yyprefix = yyexpecting;
1367
1368 /* Start YYX at -YYN if negative to avoid negative indexes in
1369 YYCHECK. */
1370 int yyxbegin = yyn < 0 ? -yyn : 0;
1371
1372 /* Stay within bounds of both yycheck and yytname. */
1373 int yychecklim = YYLAST - yyn + 1;
1374 int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
1375 int yycount = 1;
1376
1377 yyarg[0] = yytname[yytype];
1378 yyfmt = yystpcpy (yyformat, yyunexpected);
1379
1380 for (yyx = yyxbegin; yyx < yyxend; ++yyx)
1381 if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
1382 {
1383 if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
1384 {
1385 yycount = 1;
1386 yysize = yysize0;
1387 yyformat[sizeof yyunexpected - 1] = '\0';
1388 break;
1389 }
1390 yyarg[yycount++] = yytname[yyx];
1391 yysize1 = yysize + yytnamerr (0, yytname[yyx]);
1392 yysize_overflow |= (yysize1 < yysize);
1393 yysize = yysize1;
1394 yyfmt = yystpcpy (yyfmt, yyprefix);
1395 yyprefix = yyor;
1396 }
1397
1398 yyf = YY_(yyformat);
1399 yysize1 = yysize + yystrlen (yyf);
1400 yysize_overflow |= (yysize1 < yysize);
1401 yysize = yysize1;
1402
1403 if (yysize_overflow)
1404 return YYSIZE_MAXIMUM;
1405
1406 if (yyresult)
1407 {
1408 /* Avoid sprintf, as that infringes on the user's name space.
1409 Don't have undefined behavior even if the translation
1410 produced a string with the wrong number of "%s"s. */
1411 char *yyp = yyresult;
1412 int yyi = 0;
1413 while ((*yyp = *yyf) != '\0')
1414 {
1415 if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
1416 {
1417 yyp += yytnamerr (yyp, yyarg[yyi++]);
1418 yyf += 2;
1419 }
1420 else
1421 {
1422 yyp++;
1423 yyf++;
1424 }
1425 }
1426 }
1427 return yysize;
1428 }
1429 }
1430 #endif /* YYERROR_VERBOSE */
1431
1432
1433 /*-----------------------------------------------.
1434 | Release the memory associated to this symbol. |
1435 `-----------------------------------------------*/
1436
1437 /*ARGSUSED*/
1438 #if (defined __STDC__ || defined __C99__FUNC__ \
1439 || defined __cplusplus || defined _MSC_VER)
1440 static void
1441 yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
/* [<][>][^][v][top][bottom][index][help] */
1442 #else
1443 static void
1444 yydestruct (yymsg, yytype, yyvaluep)
1445 const char *yymsg;
1446 int yytype;
1447 YYSTYPE *yyvaluep;
1448 #endif
1449 {
1450 YYUSE (yyvaluep);
1451
1452 if (!yymsg)
1453 yymsg = "Deleting";
1454 YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
1455
1456 switch (yytype)
1457 {
1458
1459 default:
1460 break;
1461 }
1462 }
1463
1464
1465 /* Prevent warnings from -Wmissing-prototypes. */
1466
1467 #ifdef YYPARSE_PARAM
1468 #if defined __STDC__ || defined __cplusplus
1469 int yyparse (void *YYPARSE_PARAM);
1470 #else
1471 int yyparse ();
1472 #endif
1473 #else /* ! YYPARSE_PARAM */
1474 #if defined __STDC__ || defined __cplusplus
1475 int yyparse (void);
1476 #else
1477 int yyparse ();
1478 #endif
1479 #endif /* ! YYPARSE_PARAM */
1480
1481
1482
1483 /* The look-ahead symbol. */
1484 int yychar;
1485
1486 /* The semantic value of the look-ahead symbol. */
1487 YYSTYPE yylval;
1488
1489 /* Number of syntax errors so far. */
1490 int yynerrs;
1491
1492
1493
1494 /*----------.
1495 | yyparse. |
1496 `----------*/
1497
1498 #ifdef YYPARSE_PARAM
1499 #if (defined __STDC__ || defined __C99__FUNC__ \
1500 || defined __cplusplus || defined _MSC_VER)
1501 int
1502 yyparse (void *YYPARSE_PARAM)
/* [<][>][^][v][top][bottom][index][help] */
1503 #else
1504 int
1505 yyparse (YYPARSE_PARAM)
1506 void *YYPARSE_PARAM;
1507 #endif
1508 #else /* ! YYPARSE_PARAM */
1509 #if (defined __STDC__ || defined __C99__FUNC__ \
1510 || defined __cplusplus || defined _MSC_VER)
1511 int
1512 yyparse (void)
1513 #else
1514 int
1515 yyparse ()
1516
1517 #endif
1518 #endif
1519 {
1520
1521 int yystate;
1522 int yyn;
1523 int yyresult;
1524 /* Number of tokens to shift before error messages enabled. */
1525 int yyerrstatus;
1526 /* Look-ahead token as an internal (translated) token number. */
1527 int yytoken = 0;
1528 #if YYERROR_VERBOSE
1529 /* Buffer for error messages, and its allocated size. */
1530 char yymsgbuf[128];
1531 char *yymsg = yymsgbuf;
1532 YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
1533 #endif
1534
1535 /* Three stacks and their tools:
1536 `yyss': related to states,
1537 `yyvs': related to semantic values,
1538 `yyls': related to locations.
1539
1540 Refer to the stacks thru separate pointers, to allow yyoverflow
1541 to reallocate them elsewhere. */
1542
1543 /* The state stack. */
1544 yytype_int16 yyssa[YYINITDEPTH];
1545 yytype_int16 *yyss = yyssa;
1546 yytype_int16 *yyssp;
1547
1548 /* The semantic value stack. */
1549 YYSTYPE yyvsa[YYINITDEPTH];
1550 YYSTYPE *yyvs = yyvsa;
1551 YYSTYPE *yyvsp;
1552
1553
1554
1555 #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
1556
1557 YYSIZE_T yystacksize = YYINITDEPTH;
1558
1559 /* The variables used to return semantic value and location from the
1560 action routines. */
1561 YYSTYPE yyval;
1562
1563
1564 /* The number of symbols on the RHS of the reduced rule.
1565 Keep to zero when no symbol should be popped. */
1566 int yylen = 0;
1567
1568 YYDPRINTF ((stderr, "Starting parse\n"));
1569
1570 yystate = 0;
1571 yyerrstatus = 0;
1572 yynerrs = 0;
1573 yychar = YYEMPTY; /* Cause a token to be read. */
1574
1575 /* Initialize stack pointers.
1576 Waste one element of value and location stack
1577 so that they stay on the same level as the state stack.
1578 The wasted elements are never initialized. */
1579
1580 yyssp = yyss;
1581 yyvsp = yyvs;
1582
1583 goto yysetstate;
1584
1585 /*------------------------------------------------------------.
1586 | yynewstate -- Push a new state, which is found in yystate. |
1587 `------------------------------------------------------------*/
1588 yynewstate:
1589 /* In all cases, when you get here, the value and location stacks
1590 have just been pushed. So pushing a state here evens the stacks. */
1591 yyssp++;
1592
1593 yysetstate:
1594 *yyssp = yystate;
1595
1596 if (yyss + yystacksize - 1 <= yyssp)
1597 {
1598 /* Get the current used size of the three stacks, in elements. */
1599 YYSIZE_T yysize = yyssp - yyss + 1;
1600
1601 #ifdef yyoverflow
1602 {
1603 /* Give user a chance to reallocate the stack. Use copies of
1604 these so that the &'s don't force the real ones into
1605 memory. */
1606 YYSTYPE *yyvs1 = yyvs;
1607 yytype_int16 *yyss1 = yyss;
1608
1609
1610 /* Each stack pointer address is followed by the size of the
1611 data in use in that stack, in bytes. This used to be a
1612 conditional around just the two extra args, but that might
1613 be undefined if yyoverflow is a macro. */
1614 yyoverflow (YY_("memory exhausted"),
1615 &yyss1, yysize * sizeof (*yyssp),
1616 &yyvs1, yysize * sizeof (*yyvsp),
1617
1618 &yystacksize);
1619
1620 yyss = yyss1;
1621 yyvs = yyvs1;
1622 }
1623 #else /* no yyoverflow */
1624 # ifndef YYSTACK_RELOCATE
1625 goto yyexhaustedlab;
1626 # else
1627 /* Extend the stack our own way. */
1628 if (YYMAXDEPTH <= yystacksize)
1629 goto yyexhaustedlab;
1630 yystacksize *= 2;
1631 if (YYMAXDEPTH < yystacksize)
1632 yystacksize = YYMAXDEPTH;
1633
1634 {
1635 yytype_int16 *yyss1 = yyss;
1636 union yyalloc *yyptr =
1637 (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
1638 if (! yyptr)
1639 goto yyexhaustedlab;
1640 YYSTACK_RELOCATE (yyss);
1641 YYSTACK_RELOCATE (yyvs);
1642
1643 # undef YYSTACK_RELOCATE
1644 if (yyss1 != yyssa)
1645 YYSTACK_FREE (yyss1);
1646 }
1647 # endif
1648 #endif /* no yyoverflow */
1649
1650 yyssp = yyss + yysize - 1;
1651 yyvsp = yyvs + yysize - 1;
1652
1653
1654 YYDPRINTF ((stderr, "Stack size increased to %lu\n",
1655 (unsigned long int) yystacksize));
1656
1657 if (yyss + yystacksize - 1 <= yyssp)
1658 YYABORT;
1659 }
1660
1661 YYDPRINTF ((stderr, "Entering state %d\n", yystate));
1662
1663 goto yybackup;
1664
1665 /*-----------.
1666 | yybackup. |
1667 `-----------*/
1668 yybackup:
1669
1670 /* Do appropriate processing given the current state. Read a
1671 look-ahead token if we need one and don't already have one. */
1672
1673 /* First try to decide what to do without reference to look-ahead token. */
1674 yyn = yypact[yystate];
1675 if (yyn == YYPACT_NINF)
1676 goto yydefault;
1677
1678 /* Not known => get a look-ahead token if don't already have one. */
1679
1680 /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */
1681 if (yychar == YYEMPTY)
1682 {
1683 YYDPRINTF ((stderr, "Reading a token: "));
1684 yychar = YYLEX;
1685 }
1686
1687 if (yychar <= YYEOF)
1688 {
1689 yychar = yytoken = YYEOF;
1690 YYDPRINTF ((stderr, "Now at end of input.\n"));
1691 }
1692 else
1693 {
1694 yytoken = YYTRANSLATE (yychar);
1695 YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
1696 }
1697
1698 /* If the proper action on seeing token YYTOKEN is to reduce or to
1699 detect an error, take that action. */
1700 yyn += yytoken;
1701 if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
1702 goto yydefault;
1703 yyn = yytable[yyn];
1704 if (yyn <= 0)
1705 {
1706 if (yyn == 0 || yyn == YYTABLE_NINF)
1707 goto yyerrlab;
1708 yyn = -yyn;
1709 goto yyreduce;
1710 }
1711
1712 if (yyn == YYFINAL)
1713 YYACCEPT;
1714
1715 /* Count tokens shifted since error; after three, turn off error
1716 status. */
1717 if (yyerrstatus)
1718 yyerrstatus--;
1719
1720 /* Shift the look-ahead token. */
1721 YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
1722
1723 /* Discard the shifted token unless it is eof. */
1724 if (yychar != YYEOF)
1725 yychar = YYEMPTY;
1726
1727 yystate = yyn;
1728 *++yyvsp = yylval;
1729
1730 goto yynewstate;
1731
1732
1733 /*-----------------------------------------------------------.
1734 | yydefault -- do the default action for the current state. |
1735 `-----------------------------------------------------------*/
1736 yydefault:
1737 yyn = yydefact[yystate];
1738 if (yyn == 0)
1739 goto yyerrlab;
1740 goto yyreduce;
1741
1742
1743 /*-----------------------------.
1744 | yyreduce -- Do a reduction. |
1745 `-----------------------------*/
1746 yyreduce:
1747 /* yyn is the number of a rule to reduce with. */
1748 yylen = yyr2[yyn];
1749
1750 /* If YYLEN is nonzero, implement the default value of the action:
1751 `$$ = $1'.
1752
1753 Otherwise, the following line sets YYVAL to garbage.
1754 This behavior is undocumented and Bison
1755 users should not rely upon it. Assigning to YYVAL
1756 unconditionally makes the parser a bit smaller, and it avoids a
1757 GCC warning that YYVAL may be used uninitialized. */
1758 yyval = yyvsp[1-yylen];
1759
1760
1761 YY_REDUCE_PRINT (yyn);
1762 switch (yyn)
1763 {
1764 case 2:
1765 #line 235 "heimdal/lib/asn1/parse.y"
1766 {
1767 checkundefined();
1768 }
1769 break;
1770
1771 case 4:
1772 #line 242 "heimdal/lib/asn1/parse.y"
1773 { error_message("implicit tagging is not supported"); }
1774 break;
1775
1776 case 5:
1777 #line 244 "heimdal/lib/asn1/parse.y"
1778 { error_message("automatic tagging is not supported"); }
1779 break;
1780
1781 case 7:
1782 #line 249 "heimdal/lib/asn1/parse.y"
1783 { error_message("no extensibility options supported"); }
1784 break;
1785
1786 case 17:
1787 #line 270 "heimdal/lib/asn1/parse.y"
1788 {
1789 struct string_list *sl;
1790 for(sl = (yyvsp[(1) - (4)].sl); sl != NULL; sl = sl->next) {
1791 Symbol *s = addsym(sl->string);
1792 s->stype = Stype;
1793 }
1794 add_import((yyvsp[(3) - (4)].name));
1795 }
1796 break;
1797
1798 case 22:
1799 #line 289 "heimdal/lib/asn1/parse.y"
1800 {
1801 (yyval.sl) = emalloc(sizeof(*(yyval.sl)));
1802 (yyval.sl)->string = (yyvsp[(1) - (3)].name);
1803 (yyval.sl)->next = (yyvsp[(3) - (3)].sl);
1804 }
1805 break;
1806
1807 case 23:
1808 #line 295 "heimdal/lib/asn1/parse.y"
1809 {
1810 (yyval.sl) = emalloc(sizeof(*(yyval.sl)));
1811 (yyval.sl)->string = (yyvsp[(1) - (1)].name);
1812 (yyval.sl)->next = NULL;
1813 }
1814 break;
1815
1816 case 24:
1817 #line 303 "heimdal/lib/asn1/parse.y"
1818 {
1819 Symbol *s = addsym ((yyvsp[(1) - (3)].name));
1820 s->stype = Stype;
1821 s->type = (yyvsp[(3) - (3)].type);
1822 fix_labels(s);
1823 generate_type (s);
1824 }
1825 break;
1826
1827 case 42:
1828 #line 334 "heimdal/lib/asn1/parse.y"
1829 {
1830 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Boolean,
1831 TE_EXPLICIT, new_type(TBoolean));
1832 }
1833 break;
1834
1835 case 43:
1836 #line 341 "heimdal/lib/asn1/parse.y"
1837 {
1838 if((yyvsp[(2) - (5)].value)->type != integervalue)
1839 error_message("Non-integer used in first part of range");
1840 if((yyvsp[(2) - (5)].value)->type != integervalue)
1841 error_message("Non-integer in second part of range");
1842 (yyval.range) = ecalloc(1, sizeof(*(yyval.range)));
1843 (yyval.range)->min = (yyvsp[(2) - (5)].value)->u.integervalue;
1844 (yyval.range)->max = (yyvsp[(4) - (5)].value)->u.integervalue;
1845 }
1846 break;
1847
1848 case 44:
1849 #line 351 "heimdal/lib/asn1/parse.y"
1850 {
1851 if((yyvsp[(2) - (5)].value)->type != integervalue)
1852 error_message("Non-integer in first part of range");
1853 (yyval.range) = ecalloc(1, sizeof(*(yyval.range)));
1854 (yyval.range)->min = (yyvsp[(2) - (5)].value)->u.integervalue;
1855 (yyval.range)->max = (yyvsp[(2) - (5)].value)->u.integervalue - 1;
1856 }
1857 break;
1858
1859 case 45:
1860 #line 359 "heimdal/lib/asn1/parse.y"
1861 {
1862 if((yyvsp[(4) - (5)].value)->type != integervalue)
1863 error_message("Non-integer in second part of range");
1864 (yyval.range) = ecalloc(1, sizeof(*(yyval.range)));
1865 (yyval.range)->min = (yyvsp[(4) - (5)].value)->u.integervalue + 2;
1866 (yyval.range)->max = (yyvsp[(4) - (5)].value)->u.integervalue;
1867 }
1868 break;
1869
1870 case 46:
1871 #line 367 "heimdal/lib/asn1/parse.y"
1872 {
1873 if((yyvsp[(2) - (3)].value)->type != integervalue)
1874 error_message("Non-integer used in limit");
1875 (yyval.range) = ecalloc(1, sizeof(*(yyval.range)));
1876 (yyval.range)->min = (yyvsp[(2) - (3)].value)->u.integervalue;
1877 (yyval.range)->max = (yyvsp[(2) - (3)].value)->u.integervalue;
1878 }
1879 break;
1880
1881 case 47:
1882 #line 378 "heimdal/lib/asn1/parse.y"
1883 {
1884 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Integer,
1885 TE_EXPLICIT, new_type(TInteger));
1886 }
1887 break;
1888
1889 case 48:
1890 #line 383 "heimdal/lib/asn1/parse.y"
1891 {
1892 (yyval.type) = new_type(TInteger);
1893 (yyval.type)->range = (yyvsp[(2) - (2)].range);
1894 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Integer, TE_EXPLICIT, (yyval.type));
1895 }
1896 break;
1897
1898 case 49:
1899 #line 389 "heimdal/lib/asn1/parse.y"
1900 {
1901 (yyval.type) = new_type(TInteger);
1902 (yyval.type)->members = (yyvsp[(3) - (4)].members);
1903 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Integer, TE_EXPLICIT, (yyval.type));
1904 }
1905 break;
1906
1907 case 50:
1908 #line 397 "heimdal/lib/asn1/parse.y"
1909 {
1910 (yyval.members) = emalloc(sizeof(*(yyval.members)));
1911 ASN1_TAILQ_INIT((yyval.members));
1912 ASN1_TAILQ_INSERT_HEAD((yyval.members), (yyvsp[(1) - (1)].member), members);
1913 }
1914 break;
1915
1916 case 51:
1917 #line 403 "heimdal/lib/asn1/parse.y"
1918 {
1919 ASN1_TAILQ_INSERT_TAIL((yyvsp[(1) - (3)].members), (yyvsp[(3) - (3)].member), members);
1920 (yyval.members) = (yyvsp[(1) - (3)].members);
1921 }
1922 break;
1923
1924 case 52:
1925 #line 408 "heimdal/lib/asn1/parse.y"
1926 { (yyval.members) = (yyvsp[(1) - (3)].members); }
1927 break;
1928
1929 case 53:
1930 #line 412 "heimdal/lib/asn1/parse.y"
1931 {
1932 (yyval.member) = emalloc(sizeof(*(yyval.member)));
1933 (yyval.member)->name = (yyvsp[(1) - (4)].name);
1934 (yyval.member)->gen_name = estrdup((yyvsp[(1) - (4)].name));
1935 output_name ((yyval.member)->gen_name);
1936 (yyval.member)->val = (yyvsp[(3) - (4)].constant);
1937 (yyval.member)->optional = 0;
1938 (yyval.member)->ellipsis = 0;
1939 (yyval.member)->type = NULL;
1940 }
1941 break;
1942
1943 case 54:
1944 #line 425 "heimdal/lib/asn1/parse.y"
1945 {
1946 (yyval.type) = new_type(TInteger);
1947 (yyval.type)->members = (yyvsp[(3) - (4)].members);
1948 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Enumerated, TE_EXPLICIT, (yyval.type));
1949 }
1950 break;
1951
1952 case 56:
1953 #line 436 "heimdal/lib/asn1/parse.y"
1954 {
1955 (yyval.type) = new_type(TBitString);
1956 (yyval.type)->members = emalloc(sizeof(*(yyval.type)->members));
1957 ASN1_TAILQ_INIT((yyval.type)->members);
1958 (yyval.type) = new_tag(ASN1_C_UNIV, UT_BitString, TE_EXPLICIT, (yyval.type));
1959 }
1960 break;
1961
1962 case 57:
1963 #line 443 "heimdal/lib/asn1/parse.y"
1964 {
1965 (yyval.type) = new_type(TBitString);
1966 (yyval.type)->members = (yyvsp[(4) - (5)].members);
1967 (yyval.type) = new_tag(ASN1_C_UNIV, UT_BitString, TE_EXPLICIT, (yyval.type));
1968 }
1969 break;
1970
1971 case 58:
1972 #line 451 "heimdal/lib/asn1/parse.y"
1973 {
1974 (yyval.type) = new_tag(ASN1_C_UNIV, UT_OID,
1975 TE_EXPLICIT, new_type(TOID));
1976 }
1977 break;
1978
1979 case 59:
1980 #line 457 "heimdal/lib/asn1/parse.y"
1981 {
1982 Type *t = new_type(TOctetString);
1983 t->range = (yyvsp[(3) - (3)].range);
1984 (yyval.type) = new_tag(ASN1_C_UNIV, UT_OctetString,
1985 TE_EXPLICIT, t);
1986 }
1987 break;
1988
1989 case 60:
1990 #line 466 "heimdal/lib/asn1/parse.y"
1991 {
1992 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Null,
1993 TE_EXPLICIT, new_type(TNull));
1994 }
1995 break;
1996
1997 case 61:
1998 #line 473 "heimdal/lib/asn1/parse.y"
1999 { (yyval.range) = NULL; }
2000 break;
2001
2002 case 62:
2003 #line 475 "heimdal/lib/asn1/parse.y"
2004 { (yyval.range) = (yyvsp[(2) - (2)].range); }
2005 break;
2006
2007 case 63:
2008 #line 480 "heimdal/lib/asn1/parse.y"
2009 {
2010 (yyval.type) = new_type(TSequence);
2011 (yyval.type)->members = (yyvsp[(3) - (4)].members);
2012 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Sequence, TE_EXPLICIT, (yyval.type));
2013 }
2014 break;
2015
2016 case 64:
2017 #line 486 "heimdal/lib/asn1/parse.y"
2018 {
2019 (yyval.type) = new_type(TSequence);
2020 (yyval.type)->members = NULL;
2021 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Sequence, TE_EXPLICIT, (yyval.type));
2022 }
2023 break;
2024
2025 case 65:
2026 #line 494 "heimdal/lib/asn1/parse.y"
2027 {
2028 (yyval.type) = new_type(TSequenceOf);
2029 (yyval.type)->range = (yyvsp[(2) - (4)].range);
2030 (yyval.type)->subtype = (yyvsp[(4) - (4)].type);
2031 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Sequence, TE_EXPLICIT, (yyval.type));
2032 }
2033 break;
2034
2035 case 66:
2036 #line 503 "heimdal/lib/asn1/parse.y"
2037 {
2038 (yyval.type) = new_type(TSet);
2039 (yyval.type)->members = (yyvsp[(3) - (4)].members);
2040 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Set, TE_EXPLICIT, (yyval.type));
2041 }
2042 break;
2043
2044 case 67:
2045 #line 509 "heimdal/lib/asn1/parse.y"
2046 {
2047 (yyval.type) = new_type(TSet);
2048 (yyval.type)->members = NULL;
2049 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Set, TE_EXPLICIT, (yyval.type));
2050 }
2051 break;
2052
2053 case 68:
2054 #line 517 "heimdal/lib/asn1/parse.y"
2055 {
2056 (yyval.type) = new_type(TSetOf);
2057 (yyval.type)->subtype = (yyvsp[(3) - (3)].type);
2058 (yyval.type) = new_tag(ASN1_C_UNIV, UT_Set, TE_EXPLICIT, (yyval.type));
2059 }
2060 break;
2061
2062 case 69:
2063 #line 525 "heimdal/lib/asn1/parse.y"
2064 {
2065 (yyval.type) = new_type(TChoice);
2066 (yyval.type)->members = (yyvsp[(3) - (4)].members);
2067 }
2068 break;
2069
2070 case 72:
2071 #line 536 "heimdal/lib/asn1/parse.y"
2072 {
2073 Symbol *s = addsym((yyvsp[(1) - (1)].name));
2074 (yyval.type) = new_type(TType);
2075 if(s->stype != Stype && s->stype != SUndefined)
2076 error_message ("%s is not a type\n", (yyvsp[(1) - (1)].name));
2077 else
2078 (yyval.type)->symbol = s;
2079 }
2080 break;
2081
2082 case 73:
2083 #line 547 "heimdal/lib/asn1/parse.y"
2084 {
2085 (yyval.type) = new_tag(ASN1_C_UNIV, UT_GeneralizedTime,
2086 TE_EXPLICIT, new_type(TGeneralizedTime));
2087 }
2088 break;
2089
2090 case 74:
2091 #line 552 "heimdal/lib/asn1/parse.y"
2092 {
2093 (yyval.type) = new_tag(ASN1_C_UNIV, UT_UTCTime,
2094 TE_EXPLICIT, new_type(TUTCTime));
2095 }
2096 break;
2097
2098 case 75:
2099 #line 559 "heimdal/lib/asn1/parse.y"
2100 {
2101 /* if (Constraint.type == contentConstrant) {
2102 assert(Constraint.u.constraint.type == octetstring|bitstring-w/o-NamedBitList); // remember to check type reference too
2103 if (Constraint.u.constraint.type) {
2104 assert((Constraint.u.constraint.type.length % 8) == 0);
2105 }
2106 }
2107 if (Constraint.u.constraint.encoding) {
2108 type == der-oid|ber-oid
2109 }
2110 */
2111 }
2112 break;
2113
2114 case 76:
2115 #line 575 "heimdal/lib/asn1/parse.y"
2116 {
2117 (yyval.constraint_spec) = (yyvsp[(2) - (3)].constraint_spec);
2118 }
2119 break;
2120
2121 case 80:
2122 #line 588 "heimdal/lib/asn1/parse.y"
2123 {
2124 (yyval.constraint_spec) = new_constraint_spec(CT_CONTENTS);
2125 (yyval.constraint_spec)->u.content.type = (yyvsp[(2) - (2)].type);
2126 (yyval.constraint_spec)->u.content.encoding = NULL;
2127 }
2128 break;
2129
2130 case 81:
2131 #line 594 "heimdal/lib/asn1/parse.y"
2132 {
2133 if ((yyvsp[(3) - (3)].value)->type != objectidentifiervalue)
2134 error_message("Non-OID used in ENCODED BY constraint");
2135 (yyval.constraint_spec) = new_constraint_spec(CT_CONTENTS);
2136 (yyval.constraint_spec)->u.content.type = NULL;
2137 (yyval.constraint_spec)->u.content.encoding = (yyvsp[(3) - (3)].value);
2138 }
2139 break;
2140
2141 case 82:
2142 #line 602 "heimdal/lib/asn1/parse.y"
2143 {
2144 if ((yyvsp[(5) - (5)].value)->type != objectidentifiervalue)
2145 error_message("Non-OID used in ENCODED BY constraint");
2146 (yyval.constraint_spec) = new_constraint_spec(CT_CONTENTS);
2147 (yyval.constraint_spec)->u.content.type = (yyvsp[(2) - (5)].type);
2148 (yyval.constraint_spec)->u.content.encoding = (yyvsp[(5) - (5)].value);
2149 }
2150 break;
2151
2152 case 83:
2153 #line 612 "heimdal/lib/asn1/parse.y"
2154 {
2155 (yyval.constraint_spec) = new_constraint_spec(CT_USER);
2156 }
2157 break;
2158
2159 case 84:
2160 #line 618 "heimdal/lib/asn1/parse.y"
2161 {
2162 (yyval.type) = new_type(TTag);
2163 (yyval.type)->tag = (yyvsp[(1) - (3)].tag);
2164 (yyval.type)->tag.tagenv = (yyvsp[(2) - (3)].constant);
2165 if((yyvsp[(3) - (3)].type)->type == TTag && (yyvsp[(2) - (3)].constant) == TE_IMPLICIT) {
2166 (yyval.type)->subtype = (yyvsp[(3) - (3)].type)->subtype;
2167 free((yyvsp[(3) - (3)].type));
2168 } else
2169 (yyval.type)->subtype = (yyvsp[(3) - (3)].type);
2170 }
2171 break;
2172
2173 case 85:
2174 #line 631 "heimdal/lib/asn1/parse.y"
2175 {
2176 (yyval.tag).tagclass = (yyvsp[(2) - (4)].constant);
2177 (yyval.tag).tagvalue = (yyvsp[(3) - (4)].constant);
2178 (yyval.tag).tagenv = TE_EXPLICIT;
2179 }
2180 break;
2181
2182 case 86:
2183 #line 639 "heimdal/lib/asn1/parse.y"
2184 {
2185 (yyval.constant) = ASN1_C_CONTEXT;
2186 }
2187 break;
2188
2189 case 87:
2190 #line 643 "heimdal/lib/asn1/parse.y"
2191 {
2192 (yyval.constant) = ASN1_C_UNIV;
2193 }
2194 break;
2195
2196 case 88:
2197 #line 647 "heimdal/lib/asn1/parse.y"
2198 {
2199 (yyval.constant) = ASN1_C_APPL;
2200 }
2201 break;
2202
2203 case 89:
2204 #line 651 "heimdal/lib/asn1/parse.y"
2205 {
2206 (yyval.constant) = ASN1_C_PRIVATE;
2207 }
2208 break;
2209
2210 case 90:
2211 #line 657 "heimdal/lib/asn1/parse.y"
2212 {
2213 (yyval.constant) = TE_EXPLICIT;
2214 }
2215 break;
2216
2217 case 91:
2218 #line 661 "heimdal/lib/asn1/parse.y"
2219 {
2220 (yyval.constant) = TE_EXPLICIT;
2221 }
2222 break;
2223
2224 case 92:
2225 #line 665 "heimdal/lib/asn1/parse.y"
2226 {
2227 (yyval.constant) = TE_IMPLICIT;
2228 }
2229 break;
2230
2231 case 93:
2232 #line 672 "heimdal/lib/asn1/parse.y"
2233 {
2234 Symbol *s;
2235 s = addsym ((yyvsp[(1) - (4)].name));
2236
2237 s->stype = SValue;
2238 s->value = (yyvsp[(4) - (4)].value);
2239 generate_constant (s);
2240 }
2241 break;
2242
2243 case 95:
2244 #line 686 "heimdal/lib/asn1/parse.y"
2245 {
2246 (yyval.type) = new_tag(ASN1_C_UNIV, UT_GeneralString,
2247 TE_EXPLICIT, new_type(TGeneralString));
2248 }
2249 break;
2250
2251 case 96:
2252 #line 691 "heimdal/lib/asn1/parse.y"
2253 {
2254 (yyval.type) = new_tag(ASN1_C_UNIV, UT_UTF8String,
2255 TE_EXPLICIT, new_type(TUTF8String));
2256 }
2257 break;
2258
2259 case 97:
2260 #line 696 "heimdal/lib/asn1/parse.y"
2261 {
2262 (yyval.type) = new_tag(ASN1_C_UNIV, UT_PrintableString,
2263 TE_EXPLICIT, new_type(TPrintableString));
2264 }
2265 break;
2266
2267 case 98:
2268 #line 701 "heimdal/lib/asn1/parse.y"
2269 {
2270 (yyval.type) = new_tag(ASN1_C_UNIV, UT_VisibleString,
2271 TE_EXPLICIT, new_type(TVisibleString));
2272 }
2273 break;
2274
2275 case 99:
2276 #line 706 "heimdal/lib/asn1/parse.y"
2277 {
2278 (yyval.type) = new_tag(ASN1_C_UNIV, UT_IA5String,
2279 TE_EXPLICIT, new_type(TIA5String));
2280 }
2281 break;
2282
2283 case 100:
2284 #line 711 "heimdal/lib/asn1/parse.y"
2285 {
2286 (yyval.type) = new_tag(ASN1_C_UNIV, UT_BMPString,
2287 TE_EXPLICIT, new_type(TBMPString));
2288 }
2289 break;
2290
2291 case 101:
2292 #line 716 "heimdal/lib/asn1/parse.y"
2293 {
2294 (yyval.type) = new_tag(ASN1_C_UNIV, UT_UniversalString,
2295 TE_EXPLICIT, new_type(TUniversalString));
2296 }
2297 break;
2298
2299 case 102:
2300 #line 724 "heimdal/lib/asn1/parse.y"
2301 {
2302 (yyval.members) = emalloc(sizeof(*(yyval.members)));
2303 ASN1_TAILQ_INIT((yyval.members));
2304 ASN1_TAILQ_INSERT_HEAD((yyval.members), (yyvsp[(1) - (1)].member), members);
2305 }
2306 break;
2307
2308 case 103:
2309 #line 730 "heimdal/lib/asn1/parse.y"
2310 {
2311 ASN1_TAILQ_INSERT_TAIL((yyvsp[(1) - (3)].members), (yyvsp[(3) - (3)].member), members);
2312 (yyval.members) = (yyvsp[(1) - (3)].members);
2313 }
2314 break;
2315
2316 case 104:
2317 #line 735 "heimdal/lib/asn1/parse.y"
2318 {
2319 struct member *m = ecalloc(1, sizeof(*m));
2320 m->name = estrdup("...");
2321 m->gen_name = estrdup("asn1_ellipsis");
2322 m->ellipsis = 1;
2323 ASN1_TAILQ_INSERT_TAIL((yyvsp[(1) - (3)].members), m, members);
2324 (yyval.members) = (yyvsp[(1) - (3)].members);
2325 }
2326 break;
2327
2328 case 105:
2329 #line 746 "heimdal/lib/asn1/parse.y"
2330 {
2331 (yyval.member) = emalloc(sizeof(*(yyval.member)));
2332 (yyval.member)->name = (yyvsp[(1) - (2)].name);
2333 (yyval.member)->gen_name = estrdup((yyvsp[(1) - (2)].name));
2334 output_name ((yyval.member)->gen_name);
2335 (yyval.member)->type = (yyvsp[(2) - (2)].type);
2336 (yyval.member)->ellipsis = 0;
2337 }
2338 break;
2339
2340 case 106:
2341 #line 757 "heimdal/lib/asn1/parse.y"
2342 {
2343 (yyval.member) = (yyvsp[(1) - (1)].member);
2344 (yyval.member)->optional = 0;
2345 (yyval.member)->defval = NULL;
2346 }
2347 break;
2348
2349 case 107:
2350 #line 763 "heimdal/lib/asn1/parse.y"
2351 {
2352 (yyval.member) = (yyvsp[(1) - (2)].member);
2353 (yyval.member)->optional = 1;
2354 (yyval.member)->defval = NULL;
2355 }
2356 break;
2357
2358 case 108:
2359 #line 769 "heimdal/lib/asn1/parse.y"
2360 {
2361 (yyval.member) = (yyvsp[(1) - (3)].member);
2362 (yyval.member)->optional = 0;
2363 (yyval.member)->defval = (yyvsp[(3) - (3)].value);
2364 }
2365 break;
2366
2367 case 109:
2368 #line 777 "heimdal/lib/asn1/parse.y"
2369 {
2370 (yyval.members) = emalloc(sizeof(*(yyval.members)));
2371 ASN1_TAILQ_INIT((yyval.members));
2372 ASN1_TAILQ_INSERT_HEAD((yyval.members), (yyvsp[(1) - (1)].member), members);
2373 }
2374 break;
2375
2376 case 110:
2377 #line 783 "heimdal/lib/asn1/parse.y"
2378 {
2379 ASN1_TAILQ_INSERT_TAIL((yyvsp[(1) - (3)].members), (yyvsp[(3) - (3)].member), members);
2380 (yyval.members) = (yyvsp[(1) - (3)].members);
2381 }
2382 break;
2383
2384 case 111:
2385 #line 790 "heimdal/lib/asn1/parse.y"
2386 {
2387 (yyval.member) = emalloc(sizeof(*(yyval.member)));
2388 (yyval.member)->name = (yyvsp[(1) - (4)].name);
2389 (yyval.member)->gen_name = estrdup((yyvsp[(1) - (4)].name));
2390 output_name ((yyval.member)->gen_name);
2391 (yyval.member)->val = (yyvsp[(3) - (4)].constant);
2392 (yyval.member)->optional = 0;
2393 (yyval.member)->ellipsis = 0;
2394 (yyval.member)->type = NULL;
2395 }
2396 break;
2397
2398 case 113:
2399 #line 803 "heimdal/lib/asn1/parse.y"
2400 { (yyval.objid) = NULL; }
2401 break;
2402
2403 case 114:
2404 #line 807 "heimdal/lib/asn1/parse.y"
2405 {
2406 (yyval.objid) = (yyvsp[(2) - (3)].objid);
2407 }
2408 break;
2409
2410 case 115:
2411 #line 813 "heimdal/lib/asn1/parse.y"
2412 {
2413 (yyval.objid) = NULL;
2414 }
2415 break;
2416
2417 case 116:
2418 #line 817 "heimdal/lib/asn1/parse.y"
2419 {
2420 if ((yyvsp[(2) - (2)].objid)) {
2421 (yyval.objid) = (yyvsp[(2) - (2)].objid);
2422 add_oid_to_tail((yyvsp[(2) - (2)].objid), (yyvsp[(1) - (2)].objid));
2423 } else {
2424 (yyval.objid) = (yyvsp[(1) - (2)].objid);
2425 }
2426 }
2427 break;
2428
2429 case 117:
2430 #line 828 "heimdal/lib/asn1/parse.y"
2431 {
2432 (yyval.objid) = new_objid((yyvsp[(1) - (4)].name), (yyvsp[(3) - (4)].constant));
2433 }
2434 break;
2435
2436 case 118:
2437 #line 832 "heimdal/lib/asn1/parse.y"
2438 {
2439 Symbol *s = addsym((yyvsp[(1) - (1)].name));
2440 if(s->stype != SValue ||
2441 s->value->type != objectidentifiervalue) {
2442 error_message("%s is not an object identifier\n",
2443 s->name);
2444 exit(1);
2445 }
2446 (yyval.objid) = s->value->u.objectidentifiervalue;
2447 }
2448 break;
2449
2450 case 119:
2451 #line 843 "heimdal/lib/asn1/parse.y"
2452 {
2453 (yyval.objid) = new_objid(NULL, (yyvsp[(1) - (1)].constant));
2454 }
2455 break;
2456
2457 case 129:
2458 #line 866 "heimdal/lib/asn1/parse.y"
2459 {
2460 Symbol *s = addsym((yyvsp[(1) - (1)].name));
2461 if(s->stype != SValue)
2462 error_message ("%s is not a value\n",
2463 s->name);
2464 else
2465 (yyval.value) = s->value;
2466 }
2467 break;
2468
2469 case 130:
2470 #line 877 "heimdal/lib/asn1/parse.y"
2471 {
2472 (yyval.value) = emalloc(sizeof(*(yyval.value)));
2473 (yyval.value)->type = stringvalue;
2474 (yyval.value)->u.stringvalue = (yyvsp[(1) - (1)].name);
2475 }
2476 break;
2477
2478 case 131:
2479 #line 885 "heimdal/lib/asn1/parse.y"
2480 {
2481 (yyval.value) = emalloc(sizeof(*(yyval.value)));
2482 (yyval.value)->type = booleanvalue;
2483 (yyval.value)->u.booleanvalue = 0;
2484 }
2485 break;
2486
2487 case 132:
2488 #line 891 "heimdal/lib/asn1/parse.y"
2489 {
2490 (yyval.value) = emalloc(sizeof(*(yyval.value)));
2491 (yyval.value)->type = booleanvalue;
2492 (yyval.value)->u.booleanvalue = 0;
2493 }
2494 break;
2495
2496 case 133:
2497 #line 899 "heimdal/lib/asn1/parse.y"
2498 {
2499 (yyval.value) = emalloc(sizeof(*(yyval.value)));
2500 (yyval.value)->type = integervalue;
2501 (yyval.value)->u.integervalue = (yyvsp[(1) - (1)].constant);
2502 }
2503 break;
2504
2505 case 135:
2506 #line 910 "heimdal/lib/asn1/parse.y"
2507 {
2508 }
2509 break;
2510
2511 case 136:
2512 #line 915 "heimdal/lib/asn1/parse.y"
2513 {
2514 (yyval.value) = emalloc(sizeof(*(yyval.value)));
2515 (yyval.value)->type = objectidentifiervalue;
2516 (yyval.value)->u.objectidentifiervalue = (yyvsp[(1) - (1)].objid);
2517 }
2518 break;
2519
2520
2521 /* Line 1267 of yacc.c. */
2522 #line 2523 "heimdal/lib/asn1/parse.y"
2523 default: break;
2524 }
2525 YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
2526
2527 YYPOPSTACK (yylen);
2528 yylen = 0;
2529 YY_STACK_PRINT (yyss, yyssp);
2530
2531 *++yyvsp = yyval;
2532
2533
2534 /* Now `shift' the result of the reduction. Determine what state
2535 that goes to, based on the state we popped back to and the rule
2536 number reduced by. */
2537
2538 yyn = yyr1[yyn];
2539
2540 yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
2541 if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
2542 yystate = yytable[yystate];
2543 else
2544 yystate = yydefgoto[yyn - YYNTOKENS];
2545
2546 goto yynewstate;
2547
2548
2549 /*------------------------------------.
2550 | yyerrlab -- here on detecting error |
2551 `------------------------------------*/
2552 yyerrlab:
2553 /* If not already recovering from an error, report this error. */
2554 if (!yyerrstatus)
2555 {
2556 ++yynerrs;
2557 #if ! YYERROR_VERBOSE
2558 yyerror (YY_("syntax error"));
2559 #else
2560 {
2561 YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
2562 if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
2563 {
2564 YYSIZE_T yyalloc = 2 * yysize;
2565 if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
2566 yyalloc = YYSTACK_ALLOC_MAXIMUM;
2567 if (yymsg != yymsgbuf)
2568 YYSTACK_FREE (yymsg);
2569 yymsg = (char *) YYSTACK_ALLOC (yyalloc);
2570 if (yymsg)
2571 yymsg_alloc = yyalloc;
2572 else
2573 {
2574 yymsg = yymsgbuf;
2575 yymsg_alloc = sizeof yymsgbuf;
2576 }
2577 }
2578
2579 if (0 < yysize && yysize <= yymsg_alloc)
2580 {
2581 (void) yysyntax_error (yymsg, yystate, yychar);
2582 yyerror (yymsg);
2583 }
2584 else
2585 {
2586 yyerror (YY_("syntax error"));
2587 if (yysize != 0)
2588 goto yyexhaustedlab;
2589 }
2590 }
2591 #endif
2592 }
2593
2594
2595
2596 if (yyerrstatus == 3)
2597 {
2598 /* If just tried and failed to reuse look-ahead token after an
2599 error, discard it. */
2600
2601 if (yychar <= YYEOF)
2602 {
2603 /* Return failure if at end of input. */
2604 if (yychar == YYEOF)
2605 YYABORT;
2606 }
2607 else
2608 {
2609 yydestruct ("Error: discarding",
2610 yytoken, &yylval);
2611 yychar = YYEMPTY;
2612 }
2613 }
2614
2615 /* Else will try to reuse look-ahead token after shifting the error
2616 token. */
2617 goto yyerrlab1;
2618
2619
2620 /*---------------------------------------------------.
2621 | yyerrorlab -- error raised explicitly by YYERROR. |
2622 `---------------------------------------------------*/
2623 yyerrorlab:
2624
2625 /* Pacify compilers like GCC when the user code never invokes
2626 YYERROR and the label yyerrorlab therefore never appears in user
2627 code. */
2628 if (/*CONSTCOND*/ 0)
2629 goto yyerrorlab;
2630
2631 /* Do not reclaim the symbols of the rule which action triggered
2632 this YYERROR. */
2633 YYPOPSTACK (yylen);
2634 yylen = 0;
2635 YY_STACK_PRINT (yyss, yyssp);
2636 yystate = *yyssp;
2637 goto yyerrlab1;
2638
2639
2640 /*-------------------------------------------------------------.
2641 | yyerrlab1 -- common code for both syntax error and YYERROR. |
2642 `-------------------------------------------------------------*/
2643 yyerrlab1:
2644 yyerrstatus = 3; /* Each real token shifted decrements this. */
2645
2646 for (;;)
2647 {
2648 yyn = yypact[yystate];
2649 if (yyn != YYPACT_NINF)
2650 {
2651 yyn += YYTERROR;
2652 if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
2653 {
2654 yyn = yytable[yyn];
2655 if (0 < yyn)
2656 break;
2657 }
2658 }
2659
2660 /* Pop the current state because it cannot handle the error token. */
2661 if (yyssp == yyss)
2662 YYABORT;
2663
2664
2665 yydestruct ("Error: popping",
2666 yystos[yystate], yyvsp);
2667 YYPOPSTACK (1);
2668 yystate = *yyssp;
2669 YY_STACK_PRINT (yyss, yyssp);
2670 }
2671
2672 if (yyn == YYFINAL)
2673 YYACCEPT;
2674
2675 *++yyvsp = yylval;
2676
2677
2678 /* Shift the error token. */
2679 YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
2680
2681 yystate = yyn;
2682 goto yynewstate;
2683
2684
2685 /*-------------------------------------.
2686 | yyacceptlab -- YYACCEPT comes here. |
2687 `-------------------------------------*/
2688 yyacceptlab:
2689 yyresult = 0;
2690 goto yyreturn;
2691
2692 /*-----------------------------------.
2693 | yyabortlab -- YYABORT comes here. |
2694 `-----------------------------------*/
2695 yyabortlab:
2696 yyresult = 1;
2697 goto yyreturn;
2698
2699 #ifndef yyoverflow
2700 /*-------------------------------------------------.
2701 | yyexhaustedlab -- memory exhaustion comes here. |
2702 `-------------------------------------------------*/
2703 yyexhaustedlab:
2704 yyerror (YY_("memory exhausted"));
2705 yyresult = 2;
2706 /* Fall through. */
2707 #endif
2708
2709 yyreturn:
2710 if (yychar != YYEOF && yychar != YYEMPTY)
2711 yydestruct ("Cleanup: discarding lookahead",
2712 yytoken, &yylval);
2713 /* Do not reclaim the symbols of the rule which action triggered
2714 this YYABORT or YYACCEPT. */
2715 YYPOPSTACK (yylen);
2716 YY_STACK_PRINT (yyss, yyssp);
2717 while (yyssp != yyss)
2718 {
2719 yydestruct ("Cleanup: popping",
2720 yystos[*yyssp], yyvsp);
2721 YYPOPSTACK (1);
2722 }
2723 #ifndef yyoverflow
2724 if (yyss != yyssa)
2725 YYSTACK_FREE (yyss);
2726 #endif
2727 #if YYERROR_VERBOSE
2728 if (yymsg != yymsgbuf)
2729 YYSTACK_FREE (yymsg);
2730 #endif
2731 /* Make sure YYID is used. */
2732 return YYID (yyresult);
2733 }
2734
2735
2736 #line 922 "heimdal/lib/asn1/parse.y"
2737
2738
2739 void
2740 yyerror (const char *s)
/* [<][>][^][v][top][bottom][index][help] */
2741 {
2742 error_message ("%s\n", s);
2743 }
2744
2745 static Type *
2746 new_tag(int tagclass, int tagvalue, int tagenv, Type *oldtype)
/* [<][>][^][v][top][bottom][index][help] */
2747 {
2748 Type *t;
2749 if(oldtype->type == TTag && oldtype->tag.tagenv == TE_IMPLICIT) {
2750 t = oldtype;
2751 oldtype = oldtype->subtype; /* XXX */
2752 } else
2753 t = new_type (TTag);
2754
2755 t->tag.tagclass = tagclass;
2756 t->tag.tagvalue = tagvalue;
2757 t->tag.tagenv = tagenv;
2758 t->subtype = oldtype;
2759 return t;
2760 }
2761
2762 static struct objid *
2763 new_objid(const char *label, int value)
/* [<][>][^][v][top][bottom][index][help] */
2764 {
2765 struct objid *s;
2766 s = emalloc(sizeof(*s));
2767 s->label = label;
2768 s->value = value;
2769 s->next = NULL;
2770 return s;
2771 }
2772
2773 static void
2774 add_oid_to_tail(struct objid *head, struct objid *tail)
/* [<][>][^][v][top][bottom][index][help] */
2775 {
2776 struct objid *o;
2777 o = head;
2778 while (o->next)
2779 o = o->next;
2780 o->next = tail;
2781 }
2782
2783 static Type *
2784 new_type (Typetype tt)
/* [<][>][^][v][top][bottom][index][help] */
2785 {
2786 Type *t = ecalloc(1, sizeof(*t));
2787 t->type = tt;
2788 return t;
2789 }
2790
2791 static struct constraint_spec *
2792 new_constraint_spec(enum ctype ct)
/* [<][>][^][v][top][bottom][index][help] */
2793 {
2794 struct constraint_spec *c = ecalloc(1, sizeof(*c));
2795 c->ctype = ct;
2796 return c;
2797 }
2798
2799 static void fix_labels2(Type *t, const char *prefix);
2800 static void fix_labels1(struct memhead *members, const char *prefix)
/* [<][>][^][v][top][bottom][index][help] */
2801 {
2802 Member *m;
2803
2804 if(members == NULL)
2805 return;
2806 ASN1_TAILQ_FOREACH(m, members, members) {
2807 asprintf(&m->label, "%s_%s", prefix, m->gen_name);
2808 if (m->label == NULL)
2809 errx(1, "malloc");
2810 if(m->type != NULL)
2811 fix_labels2(m->type, m->label);
2812 }
2813 }
2814
2815 static void fix_labels2(Type *t, const char *prefix)
/* [<][>][^][v][top][bottom][index][help] */
2816 {
2817 for(; t; t = t->subtype)
2818 fix_labels1(t->members, prefix);
2819 }
2820
2821 static void
2822 fix_labels(Symbol *s)
/* [<][>][^][v][top][bottom][index][help] */
2823 {
2824 char *p;
2825 asprintf(&p, "choice_%s", s->gen_name);
2826 if (p == NULL)
2827 errx(1, "malloc");
2828 fix_labels2(s->type, p);
2829 free(p);
2830 }
2831