summaryrefslogtreecommitdiff
path: root/src/iconc/cparse.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/iconc/cparse.c')
-rw-r--r--src/iconc/cparse.c1940
1 files changed, 0 insertions, 1940 deletions
diff --git a/src/iconc/cparse.c b/src/iconc/cparse.c
deleted file mode 100644
index b29986d..0000000
--- a/src/iconc/cparse.c
+++ /dev/null
@@ -1,1940 +0,0 @@
-# define IDENT 257
-# define INTLIT 258
-# define REALLIT 259
-# define STRINGLIT 260
-# define CSETLIT 261
-# define EOFX 262
-# define BREAK 263
-# define BY 264
-# define CASE 265
-# define CREATE 266
-# define DEFAULT 267
-# define DO 268
-# define ELSE 269
-# define END 270
-# define EVERY 271
-# define FAIL 272
-# define GLOBAL 273
-# define IF 274
-# define INITIAL 275
-# define INVOCABLE 276
-# define LINK 277
-# define LOCAL 278
-# define NEXT 279
-# define NOT 280
-# define OF 281
-# define PROCEDURE 282
-# define RECORD 283
-# define REPEAT 284
-# define RETURN 285
-# define STATIC 286
-# define SUSPEND 287
-# define THEN 288
-# define TO 289
-# define UNTIL 290
-# define WHILE 291
-# define BANG 292
-# define MOD 293
-# define AUGMOD 294
-# define AND 295
-# define AUGAND 296
-# define STAR 297
-# define AUGSTAR 298
-# define INTER 299
-# define AUGINTER 300
-# define PLUS 301
-# define AUGPLUS 302
-# define UNION 303
-# define AUGUNION 304
-# define MINUS 305
-# define AUGMINUS 306
-# define DIFF 307
-# define AUGDIFF 308
-# define DOT 309
-# define SLASH 310
-# define AUGSLASH 311
-# define ASSIGN 312
-# define SWAP 313
-# define NMLT 314
-# define AUGNMLT 315
-# define REVASSIGN 316
-# define REVSWAP 317
-# define SLT 318
-# define AUGSLT 319
-# define SLE 320
-# define AUGSLE 321
-# define NMLE 322
-# define AUGNMLE 323
-# define NMEQ 324
-# define AUGNMEQ 325
-# define SEQ 326
-# define AUGSEQ 327
-# define EQUIV 328
-# define AUGEQUIV 329
-# define NMGT 330
-# define AUGNMGT 331
-# define NMGE 332
-# define AUGNMGE 333
-# define SGT 334
-# define AUGSGT 335
-# define SGE 336
-# define AUGSGE 337
-# define QMARK 338
-# define AUGQMARK 339
-# define AT 340
-# define AUGAT 341
-# define BACKSLASH 342
-# define CARET 343
-# define AUGCARET 344
-# define BAR 345
-# define CONCAT 346
-# define AUGCONCAT 347
-# define LCONCAT 348
-# define AUGLCONCAT 349
-# define TILDE 350
-# define NMNE 351
-# define AUGNMNE 352
-# define SNE 353
-# define AUGSNE 354
-# define NEQUIV 355
-# define AUGNEQUIV 356
-# define LPAREN 357
-# define RPAREN 358
-# define PCOLON 359
-# define COMMA 360
-# define MCOLON 361
-# define COLON 362
-# define SEMICOL 363
-# define LBRACK 364
-# define RBRACK 365
-# define LBRACE 366
-# define RBRACE 367
-
-# line 145 "cgram.g"
-/*
- * These commented directives are passed through the first application
- * of cpp, then turned into real directives in cgram.g by fixgram.icn.
- */
-#include "../h/gsupport.h"
-#include "../h/lexdef.h"
-#include "ctrans.h"
-#include "csym.h"
-#include "ctree.h"
-#include "ccode.h"
-#include "cproto.h"
-#undef YYSTYPE
-#define YYSTYPE nodeptr
-#define YYMAXDEPTH 500
-
-int idflag;
-
-
-
-#define yyclearin yychar = -1
-#define yyerrok yyerrflag = 0
-extern int yychar;
-extern int yyerrflag;
-#ifndef YYMAXDEPTH
-#define YYMAXDEPTH 150
-#endif
-#ifndef YYSTYPE
-#define YYSTYPE int
-#endif
-YYSTYPE yylval, yyval;
-# define YYERRCODE 256
-
-# line 441 "cgram.g"
-
-
-/*
- * xfree(p) -- used with free(p) macro to avoid compiler errors from
- * miscast free calls generated by Yacc.
- */
-
-static void xfree(p)
-char *p;
-{
- free(p);
-}
-
-#define free(p) xfree((char*)p)
-int yyexca[] ={
--1, 0,
- 262, 2,
- 273, 2,
- 276, 2,
- 277, 2,
- 282, 2,
- 283, 2,
- -2, 0,
--1, 1,
- 0, -1,
- -2, 0,
--1, 20,
- 270, 40,
- 363, 42,
- -2, 0,
--1, 86,
- 264, 42,
- 268, 42,
- 269, 42,
- 281, 42,
- 288, 42,
- 289, 42,
- 293, 42,
- 294, 42,
- 296, 42,
- 298, 42,
- 300, 42,
- 302, 42,
- 304, 42,
- 306, 42,
- 308, 42,
- 311, 42,
- 312, 42,
- 313, 42,
- 314, 42,
- 315, 42,
- 316, 42,
- 317, 42,
- 318, 42,
- 319, 42,
- 320, 42,
- 321, 42,
- 322, 42,
- 323, 42,
- 325, 42,
- 327, 42,
- 329, 42,
- 330, 42,
- 331, 42,
- 332, 42,
- 333, 42,
- 334, 42,
- 335, 42,
- 336, 42,
- 337, 42,
- 339, 42,
- 341, 42,
- 344, 42,
- 347, 42,
- 349, 42,
- 352, 42,
- 354, 42,
- 356, 42,
- 358, 42,
- 359, 42,
- 360, 42,
- 361, 42,
- 362, 42,
- 363, 42,
- 365, 42,
- 367, 42,
- -2, 0,
--1, 87,
- 358, 42,
- 360, 42,
- -2, 0,
--1, 88,
- 363, 42,
- 367, 42,
- -2, 0,
--1, 89,
- 360, 42,
- 365, 42,
- -2, 0,
--1, 96,
- 264, 42,
- 268, 42,
- 269, 42,
- 281, 42,
- 288, 42,
- 289, 42,
- 293, 42,
- 294, 42,
- 296, 42,
- 298, 42,
- 300, 42,
- 302, 42,
- 304, 42,
- 306, 42,
- 308, 42,
- 311, 42,
- 312, 42,
- 313, 42,
- 314, 42,
- 315, 42,
- 316, 42,
- 317, 42,
- 318, 42,
- 319, 42,
- 320, 42,
- 321, 42,
- 322, 42,
- 323, 42,
- 325, 42,
- 327, 42,
- 329, 42,
- 330, 42,
- 331, 42,
- 332, 42,
- 333, 42,
- 334, 42,
- 335, 42,
- 336, 42,
- 337, 42,
- 339, 42,
- 341, 42,
- 344, 42,
- 347, 42,
- 349, 42,
- 352, 42,
- 354, 42,
- 356, 42,
- 358, 42,
- 359, 42,
- 360, 42,
- 361, 42,
- 362, 42,
- 363, 42,
- 365, 42,
- 367, 42,
- -2, 0,
--1, 97,
- 264, 42,
- 268, 42,
- 269, 42,
- 281, 42,
- 288, 42,
- 289, 42,
- 293, 42,
- 294, 42,
- 296, 42,
- 298, 42,
- 300, 42,
- 302, 42,
- 304, 42,
- 306, 42,
- 308, 42,
- 311, 42,
- 312, 42,
- 313, 42,
- 314, 42,
- 315, 42,
- 316, 42,
- 317, 42,
- 318, 42,
- 319, 42,
- 320, 42,
- 321, 42,
- 322, 42,
- 323, 42,
- 325, 42,
- 327, 42,
- 329, 42,
- 330, 42,
- 331, 42,
- 332, 42,
- 333, 42,
- 334, 42,
- 335, 42,
- 336, 42,
- 337, 42,
- 339, 42,
- 341, 42,
- 344, 42,
- 347, 42,
- 349, 42,
- 352, 42,
- 354, 42,
- 356, 42,
- 358, 42,
- 359, 42,
- 360, 42,
- 361, 42,
- 362, 42,
- 363, 42,
- 365, 42,
- 367, 42,
- -2, 0,
--1, 111,
- 270, 40,
- 363, 42,
- -2, 0,
--1, 117,
- 270, 40,
- 363, 42,
- -2, 0,
--1, 182,
- 360, 42,
- 365, 42,
- -2, 0,
--1, 183,
- 360, 42,
- -2, 0,
--1, 184,
- 358, 42,
- 360, 42,
- -2, 0,
--1, 311,
- 358, 42,
- 360, 42,
- 365, 42,
- -2, 0,
--1, 313,
- 363, 42,
- 367, 42,
- -2, 0,
--1, 335,
- 360, 42,
- 367, 42,
- -2, 0,
- };
-# define YYNPROD 203
-# define YYLAST 728
-int yyact[]={
-
- 38, 84, 91, 92, 93, 94, 312, 86, 185, 99,
- 83, 118, 335, 359, 341, 102, 95, 358, 98, 334,
- 311, 311, 355, 85, 51, 329, 314, 20, 103, 96,
- 118, 97, 313, 228, 101, 100, 56, 346, 118, 90,
- 118, 59, 117, 62, 360, 58, 108, 70, 336, 64,
- 311, 57, 228, 55, 60, 326, 184, 228, 310, 119,
- 311, 107, 106, 182, 345, 183, 324, 232, 65, 110,
- 67, 168, 69, 169, 352, 214, 118, 350, 328, 177,
- 41, 356, 71, 174, 50, 175, 73, 61, 325, 52,
- 53, 320, 54, 316, 63, 66, 176, 68, 327, 72,
- 118, 87, 332, 118, 333, 331, 319, 361, 89, 116,
- 88, 305, 38, 84, 91, 92, 93, 94, 118, 86,
- 181, 99, 83, 353, 317, 231, 3, 102, 95, 218,
- 98, 318, 105, 118, 19, 85, 51, 315, 118, 28,
- 103, 96, 29, 97, 217, 321, 101, 100, 56, 309,
- 170, 90, 172, 59, 173, 62, 171, 58, 118, 70,
- 30, 64, 18, 57, 118, 55, 60, 44, 180, 37,
- 179, 178, 113, 24, 104, 114, 25, 330, 351, 306,
- 65, 212, 67, 115, 69, 82, 2, 81, 80, 27,
- 17, 36, 23, 79, 71, 78, 50, 77, 73, 61,
- 76, 52, 53, 75, 54, 74, 63, 66, 49, 68,
- 47, 72, 42, 87, 38, 84, 91, 92, 93, 94,
- 89, 86, 88, 99, 83, 40, 112, 322, 109, 102,
- 95, 34, 98, 273, 274, 111, 33, 85, 51, 12,
- 233, 32, 103, 96, 21, 97, 22, 26, 101, 100,
- 56, 10, 9, 90, 8, 59, 7, 62, 31, 58,
- 6, 70, 5, 64, 1, 57, 0, 55, 60, 13,
- 0, 216, 15, 14, 0, 210, 0, 0, 16, 11,
- 0, 0, 65, 0, 67, 234, 69, 236, 239, 221,
- 222, 223, 224, 225, 226, 227, 71, 230, 50, 229,
- 73, 61, 0, 52, 53, 237, 54, 0, 63, 66,
- 0, 68, 0, 72, 0, 87, 46, 84, 91, 92,
- 93, 94, 89, 86, 88, 99, 83, 45, 0, 0,
- 0, 102, 95, 0, 98, 0, 289, 290, 0, 85,
- 51, 0, 0, 235, 103, 96, 0, 97, 0, 238,
- 101, 100, 56, 0, 0, 90, 0, 59, 0, 62,
- 0, 58, 4, 70, 303, 64, 308, 57, 0, 55,
- 60, 0, 0, 13, 304, 0, 15, 14, 0, 0,
- 0, 0, 16, 11, 65, 0, 67, 0, 69, 338,
- 0, 213, 0, 0, 0, 0, 0, 0, 71, 43,
- 50, 0, 73, 61, 0, 52, 53, 323, 54, 347,
- 63, 66, 35, 68, 152, 72, 0, 87, 0, 133,
- 0, 150, 0, 130, 89, 131, 88, 128, 0, 127,
- 0, 129, 0, 126, 362, 0, 132, 121, 120, 0,
- 140, 123, 122, 0, 147, 164, 146, 0, 139, 158,
- 135, 157, 143, 163, 136, 160, 138, 154, 137, 166,
- 145, 162, 144, 161, 149, 156, 151, 155, 0, 134,
- 0, 0, 124, 0, 125, 0, 153, 141, 211, 148,
- 215, 142, 165, 39, 159, 0, 167, 0, 219, 220,
- 0, 295, 296, 297, 298, 299, 0, 0, 291, 292,
- 293, 294, 0, 35, 0, 0, 0, 339, 340, 35,
- 342, 343, 344, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 348, 0, 0, 0, 48, 0, 0, 0,
- 0, 0, 0, 354, 0, 0, 0, 0, 0, 0,
- 0, 0, 357, 0, 0, 0, 0, 0, 0, 0,
- 0, 354, 363, 364, 275, 276, 277, 278, 279, 280,
- 281, 282, 283, 284, 285, 286, 287, 288, 0, 0,
- 0, 0, 0, 0, 0, 307, 0, 186, 187, 188,
- 189, 190, 191, 192, 193, 194, 195, 196, 197, 198,
- 199, 200, 201, 202, 203, 204, 205, 206, 207, 208,
- 209, 0, 0, 240, 241, 242, 243, 244, 245, 246,
- 247, 248, 249, 250, 251, 252, 253, 254, 255, 256,
- 257, 258, 259, 260, 261, 262, 263, 264, 265, 266,
- 267, 268, 269, 270, 271, 272, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 337, 0, 215, 300, 301, 302, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 349 };
-int yypact[]={
-
- -130, -1000, 100, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
- -1000, -95, -229, -1000, -84, -118, -97, -4, -1000, -1000,
- -42, -125, -298, -1000, -1000, -1000, -299, -1000, -1000, -316,
- -1000, -1000, -288, -103, -161, -321, -219, -279, -1000, -1000,
- 125, -1000, 131, -275, -151, -214, -1000, -172, -1000, -301,
- 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- 60, 60, 60, 60, -1000, -1000, -1000, -1000, -1000, -1000,
- -1000, -1000, -1000, -42, -1000, -1000, -42, -42, -42, -42,
- -128, -1000, -1000, -1000, -1000, -1000, -42, -42, -42, -42,
- -42, -42, -42, -42, -303, -1000, -84, -118, -133, -290,
- -125, -42, -125, -42, -1000, -1000, -1000, -42, 60, 60,
- 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- 60, 60, -42, -256, -42, -108, -1000, -1000, -1000, -1000,
- -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
- -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
- -219, -1000, -300, -1000, -361, -331, -339, -1000, -1000, -1000,
- -1000, -131, -195, -157, -137, -162, -177, -219, -112, -1000,
- -1000, -1000, -125, -292, -303, -182, -308, -265, -1000, -279,
- -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
- -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
- -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
- -1000, -1000, -1000, -186, -1000, -275, -275, -275, -275, -275,
- -275, -275, -275, -275, -275, -275, -275, -275, -275, -151,
- -151, -214, -214, -214, -214, -1000, -1000, -1000, -1000, -1000,
- -1000, -1000, -1000, -340, -257, -1000, -348, -1000, -310, -1000,
- -1000, -42, -1000, -42, -1000, -42, -42, -352, -42, -42,
- -42, -1000, -294, -327, -1000, -1000, -1000, -1000, 60, -1000,
- -42, -1000, -1000, -1000, -1000, -42, -1000, -1000, -1000, -219,
- -192, -144, -219, -219, -219, -1000, -343, -1000, -284, -1000,
- -42, -350, -1000, -318, -255, -1000, -1000, -219, -1000, -144,
- -42, -42, -1000, -219, -219 };
-int yypgo[]={
-
- 0, 264, 186, 262, 260, 256, 254, 252, 251, 247,
- 189, 246, 192, 244, 174, 241, 240, 239, 236, 235,
- 231, 228, 227, 226, 191, 391, 169, 483, 225, 80,
- 212, 399, 167, 327, 316, 210, 526, 208, 205, 203,
- 200, 197, 195, 193, 188, 187, 185, 181, 75, 179,
- 178, 74, 177 };
-int yyr1[]={
-
- 0, 1, 2, 2, 3, 3, 3, 3, 3, 8,
- 9, 9, 10, 10, 10, 7, 11, 11, 12, 12,
- 13, 6, 15, 4, 16, 16, 5, 21, 17, 22,
- 22, 22, 14, 14, 18, 18, 23, 23, 19, 19,
- 20, 20, 25, 25, 24, 24, 26, 26, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 28, 28, 28, 29, 29, 30, 30, 30, 30,
- 30, 30, 30, 30, 30, 30, 30, 30, 30, 30,
- 30, 31, 31, 31, 32, 32, 32, 32, 32, 33,
- 33, 33, 33, 33, 34, 34, 35, 35, 35, 35,
- 36, 36, 36, 36, 36, 36, 36, 36, 36, 36,
- 36, 36, 36, 36, 36, 36, 36, 36, 36, 36,
- 36, 36, 36, 36, 36, 37, 37, 37, 37, 37,
- 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
- 37, 37, 37, 37, 37, 37, 37, 37, 43, 43,
- 44, 44, 45, 45, 46, 40, 40, 40, 40, 41,
- 41, 42, 50, 50, 51, 51, 47, 47, 49, 49,
- 38, 38, 38, 38, 39, 52, 52, 52, 48, 48,
- 1, 5, 24 };
-int yyr2[]={
-
- 0, 5, 0, 4, 3, 3, 3, 3, 3, 5,
- 2, 7, 3, 3, 7, 5, 2, 7, 3, 3,
- 1, 7, 1, 13, 1, 3, 13, 1, 13, 1,
- 3, 7, 3, 7, 1, 9, 3, 3, 1, 7,
- 1, 7, 1, 2, 2, 7, 2, 7, 2, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 2, 7, 11, 2, 7, 2, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 2, 7, 7, 2, 7, 7, 7, 7, 2,
- 7, 7, 7, 7, 2, 7, 2, 7, 7, 7,
- 2, 5, 5, 5, 5, 5, 5, 5, 5, 5,
- 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
- 5, 5, 5, 5, 5, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 5, 3, 3, 5, 7, 7,
- 7, 9, 7, 9, 9, 7, 5, 5, 5, 9,
- 5, 9, 5, 9, 5, 3, 5, 5, 9, 9,
- 13, 13, 2, 7, 7, 7, 3, 7, 3, 7,
- 3, 3, 3, 3, 13, 3, 3, 3, 2, 7,
- 6, 8, 2 };
-int yychk[]={
-
- -1000, -1, -2, 256, 262, -3, -4, -5, -6, -7,
- -8, 283, -17, 273, 277, 276, 282, -2, 257, 363,
- 256, -13, -11, -12, 257, 260, -9, -10, 257, 260,
- 257, 262, -15, -18, -20, -25, -24, -26, 256, -27,
- -28, -29, -30, -31, -32, -33, -34, -35, -36, -37,
- 340, 280, 345, 346, 348, 309, 292, 307, 301, 297,
- 310, 343, 299, 350, 305, 324, 351, 326, 353, 328,
- 303, 338, 355, 342, -38, -39, -40, -41, -42, -43,
- -44, -45, -46, 266, 257, 279, 263, 357, 366, 364,
- 295, 258, 259, 260, 261, 272, 285, 287, 274, 265,
- 291, 290, 271, 284, -14, 257, 360, 360, 362, -21,
- 357, -19, -23, 275, 278, 286, 270, 363, 295, 338,
- 313, 312, 317, 316, 347, 349, 308, 304, 302, 306,
- 298, 300, 311, 294, 344, 325, 329, 333, 331, 323,
- 315, 352, 356, 327, 337, 335, 321, 319, 354, 339,
- 296, 341, 289, 345, 326, 336, 334, 320, 318, 353,
- 324, 332, 330, 322, 314, 351, 328, 355, 346, 348,
- 301, 307, 303, 305, 297, 299, 310, 293, 343, 342,
- 340, 292, 364, 366, 357, 309, -36, -36, -36, -36,
- -36, -36, -36, -36, -36, -36, -36, -36, -36, -36,
- -36, -36, -36, -36, -36, -36, -36, -36, -36, -36,
- -24, -25, -47, -25, -48, -25, -47, 272, 257, -25,
- -25, -24, -24, -24, -24, -24, -24, -24, 360, -12,
- -10, 258, 357, -16, -14, -20, -14, -24, -20, -26,
- -27, -27, -27, -27, -27, -27, -27, -27, -27, -27,
- -27, -27, -27, -27, -27, -27, -27, -27, -27, -27,
- -27, -27, -27, -27, -27, -27, -27, -27, -27, -27,
- -27, -27, -27, -29, -29, -31, -31, -31, -31, -31,
- -31, -31, -31, -31, -31, -31, -31, -31, -31, -32,
- -32, -33, -33, -33, -33, -34, -34, -34, -34, -34,
- -36, -36, -36, -47, -24, 367, -49, -25, -47, 257,
- 358, 360, 367, 363, 365, 268, 288, 281, 268, 268,
- 268, 257, -22, -14, 358, 270, 363, 363, 264, 365,
- -52, 362, 359, 361, 367, 360, 358, -25, -48, -24,
- -24, 366, -24, -24, -24, 358, 364, -29, -24, -25,
- 269, -50, -51, 267, -24, 365, 365, -24, 367, 363,
- 362, 362, -51, -24, -24 };
-int yydef[]={
-
- -2, -2, 0, 2, 1, 3, 4, 5, 6, 7,
- 8, 0, 0, 20, 0, 0, 0, 0, 22, 34,
- -2, 0, 15, 16, 18, 19, 9, 10, 12, 13,
- 27, 200, 0, 38, 0, 0, 43, 44, 202, 46,
- 48, 81, 84, 86, 101, 104, 109, 114, 116, 120,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 145, 146, 147, 148, 149, 150,
- 151, 152, 153, 0, 155, 156, -2, -2, -2, -2,
- 0, 190, 191, 192, 193, 175, -2, -2, 0, 0,
- 0, 0, 0, 0, 21, 32, 0, 0, 0, 0,
- 24, -2, 0, 0, 36, 37, 201, -2, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -2, -2, -2, 0, 121, 122, 123, 124,
- 125, 126, 127, 128, 129, 130, 131, 132, 133, 134,
- 135, 136, 137, 138, 139, 140, 141, 142, 143, 144,
- 154, 157, 0, 186, 0, 198, 0, 166, 167, 176,
- 177, 43, 0, 0, 168, 170, 172, 174, 0, 17,
- 11, 14, 29, 0, 25, 0, 0, 0, 41, 45,
- 47, 49, 50, 51, 52, 53, 54, 55, 56, 57,
- 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
- 68, 69, 70, 71, 72, 73, 74, 75, 76, 77,
- 78, 79, 80, 82, 85, 87, 88, 89, 90, 91,
- 92, 93, 94, 95, 96, 97, 98, 99, 100, 102,
- 103, 105, 106, 107, 108, 110, 111, 112, 113, 115,
- 117, 118, 119, 0, 43, 162, 0, 188, 0, 165,
- 158, -2, 159, -2, 160, 0, 0, 0, 0, 0,
- 0, 33, 0, 30, 23, 26, 35, 39, 0, 161,
- 0, 195, 196, 197, 163, -2, 164, 187, 199, 178,
- 179, 0, 169, 171, 173, 28, 0, 83, 0, 189,
- 0, 0, 182, 0, 0, 31, 194, 180, 181, 0,
- 0, 0, 183, 184, 185 };
-typedef struct { char *t_name; int t_val; } yytoktype;
-#ifndef YYDEBUG
-# define YYDEBUG 0 /* don't allow debugging */
-#endif
-
-#if YYDEBUG
-
-yytoktype yytoks[] =
-{
- "IDENT", 257,
- "INTLIT", 258,
- "REALLIT", 259,
- "STRINGLIT", 260,
- "CSETLIT", 261,
- "EOFX", 262,
- "BREAK", 263,
- "BY", 264,
- "CASE", 265,
- "CREATE", 266,
- "DEFAULT", 267,
- "DO", 268,
- "ELSE", 269,
- "END", 270,
- "EVERY", 271,
- "FAIL", 272,
- "GLOBAL", 273,
- "IF", 274,
- "INITIAL", 275,
- "INVOCABLE", 276,
- "LINK", 277,
- "LOCAL", 278,
- "NEXT", 279,
- "NOT", 280,
- "OF", 281,
- "PROCEDURE", 282,
- "RECORD", 283,
- "REPEAT", 284,
- "RETURN", 285,
- "STATIC", 286,
- "SUSPEND", 287,
- "THEN", 288,
- "TO", 289,
- "UNTIL", 290,
- "WHILE", 291,
- "BANG", 292,
- "MOD", 293,
- "AUGMOD", 294,
- "AND", 295,
- "AUGAND", 296,
- "STAR", 297,
- "AUGSTAR", 298,
- "INTER", 299,
- "AUGINTER", 300,
- "PLUS", 301,
- "AUGPLUS", 302,
- "UNION", 303,
- "AUGUNION", 304,
- "MINUS", 305,
- "AUGMINUS", 306,
- "DIFF", 307,
- "AUGDIFF", 308,
- "DOT", 309,
- "SLASH", 310,
- "AUGSLASH", 311,
- "ASSIGN", 312,
- "SWAP", 313,
- "NMLT", 314,
- "AUGNMLT", 315,
- "REVASSIGN", 316,
- "REVSWAP", 317,
- "SLT", 318,
- "AUGSLT", 319,
- "SLE", 320,
- "AUGSLE", 321,
- "NMLE", 322,
- "AUGNMLE", 323,
- "NMEQ", 324,
- "AUGNMEQ", 325,
- "SEQ", 326,
- "AUGSEQ", 327,
- "EQUIV", 328,
- "AUGEQUIV", 329,
- "NMGT", 330,
- "AUGNMGT", 331,
- "NMGE", 332,
- "AUGNMGE", 333,
- "SGT", 334,
- "AUGSGT", 335,
- "SGE", 336,
- "AUGSGE", 337,
- "QMARK", 338,
- "AUGQMARK", 339,
- "AT", 340,
- "AUGAT", 341,
- "BACKSLASH", 342,
- "CARET", 343,
- "AUGCARET", 344,
- "BAR", 345,
- "CONCAT", 346,
- "AUGCONCAT", 347,
- "LCONCAT", 348,
- "AUGLCONCAT", 349,
- "TILDE", 350,
- "NMNE", 351,
- "AUGNMNE", 352,
- "SNE", 353,
- "AUGSNE", 354,
- "NEQUIV", 355,
- "AUGNEQUIV", 356,
- "LPAREN", 357,
- "RPAREN", 358,
- "PCOLON", 359,
- "COMMA", 360,
- "MCOLON", 361,
- "COLON", 362,
- "SEMICOL", 363,
- "LBRACK", 364,
- "RBRACK", 365,
- "LBRACE", 366,
- "RBRACE", 367,
- "-unknown-", -1 /* ends search */
-};
-
-char * yyreds[] =
-{
- "-no such reduction-",
- "program : decls EOFX",
- "decls : /* empty */",
- "decls : decls decl",
- "decl : record",
- "decl : proc",
- "decl : global",
- "decl : link",
- "decl : invocable",
- "invocable : INVOCABLE invoclist",
- "invoclist : invocop",
- "invoclist : invoclist COMMA invocop",
- "invocop : IDENT",
- "invocop : STRINGLIT",
- "invocop : STRINGLIT COLON INTLIT",
- "link : LINK lnklist",
- "lnklist : lnkfile",
- "lnklist : lnklist COMMA lnkfile",
- "lnkfile : IDENT",
- "lnkfile : STRINGLIT",
- "global : GLOBAL",
- "global : GLOBAL idlist",
- "record : RECORD IDENT",
- "record : RECORD IDENT LPAREN fldlist RPAREN",
- "fldlist : /* empty */",
- "fldlist : idlist",
- "proc : prochead SEMICOL locals initial procbody END",
- "prochead : PROCEDURE IDENT",
- "prochead : PROCEDURE IDENT LPAREN arglist RPAREN",
- "arglist : /* empty */",
- "arglist : idlist",
- "arglist : idlist LBRACK RBRACK",
- "idlist : IDENT",
- "idlist : idlist COMMA IDENT",
- "locals : /* empty */",
- "locals : locals retention idlist SEMICOL",
- "retention : LOCAL",
- "retention : STATIC",
- "initial : /* empty */",
- "initial : INITIAL expr SEMICOL",
- "procbody : /* empty */",
- "procbody : nexpr SEMICOL procbody",
- "nexpr : /* empty */",
- "nexpr : expr",
- "expr : expr1a",
- "expr : expr AND expr1a",
- "expr1a : expr1",
- "expr1a : expr1a QMARK expr1",
- "expr1 : expr2",
- "expr1 : expr2 SWAP expr1",
- "expr1 : expr2 ASSIGN expr1",
- "expr1 : expr2 REVSWAP expr1",
- "expr1 : expr2 REVASSIGN expr1",
- "expr1 : expr2 AUGCONCAT expr1",
- "expr1 : expr2 AUGLCONCAT expr1",
- "expr1 : expr2 AUGDIFF expr1",
- "expr1 : expr2 AUGUNION expr1",
- "expr1 : expr2 AUGPLUS expr1",
- "expr1 : expr2 AUGMINUS expr1",
- "expr1 : expr2 AUGSTAR expr1",
- "expr1 : expr2 AUGINTER expr1",
- "expr1 : expr2 AUGSLASH expr1",
- "expr1 : expr2 AUGMOD expr1",
- "expr1 : expr2 AUGCARET expr1",
- "expr1 : expr2 AUGNMEQ expr1",
- "expr1 : expr2 AUGEQUIV expr1",
- "expr1 : expr2 AUGNMGE expr1",
- "expr1 : expr2 AUGNMGT expr1",
- "expr1 : expr2 AUGNMLE expr1",
- "expr1 : expr2 AUGNMLT expr1",
- "expr1 : expr2 AUGNMNE expr1",
- "expr1 : expr2 AUGNEQUIV expr1",
- "expr1 : expr2 AUGSEQ expr1",
- "expr1 : expr2 AUGSGE expr1",
- "expr1 : expr2 AUGSGT expr1",
- "expr1 : expr2 AUGSLE expr1",
- "expr1 : expr2 AUGSLT expr1",
- "expr1 : expr2 AUGSNE expr1",
- "expr1 : expr2 AUGQMARK expr1",
- "expr1 : expr2 AUGAND expr1",
- "expr1 : expr2 AUGAT expr1",
- "expr2 : expr3",
- "expr2 : expr2 TO expr3",
- "expr2 : expr2 TO expr3 BY expr3",
- "expr3 : expr4",
- "expr3 : expr4 BAR expr3",
- "expr4 : expr5",
- "expr4 : expr4 SEQ expr5",
- "expr4 : expr4 SGE expr5",
- "expr4 : expr4 SGT expr5",
- "expr4 : expr4 SLE expr5",
- "expr4 : expr4 SLT expr5",
- "expr4 : expr4 SNE expr5",
- "expr4 : expr4 NMEQ expr5",
- "expr4 : expr4 NMGE expr5",
- "expr4 : expr4 NMGT expr5",
- "expr4 : expr4 NMLE expr5",
- "expr4 : expr4 NMLT expr5",
- "expr4 : expr4 NMNE expr5",
- "expr4 : expr4 EQUIV expr5",
- "expr4 : expr4 NEQUIV expr5",
- "expr5 : expr6",
- "expr5 : expr5 CONCAT expr6",
- "expr5 : expr5 LCONCAT expr6",
- "expr6 : expr7",
- "expr6 : expr6 PLUS expr7",
- "expr6 : expr6 DIFF expr7",
- "expr6 : expr6 UNION expr7",
- "expr6 : expr6 MINUS expr7",
- "expr7 : expr8",
- "expr7 : expr7 STAR expr8",
- "expr7 : expr7 INTER expr8",
- "expr7 : expr7 SLASH expr8",
- "expr7 : expr7 MOD expr8",
- "expr8 : expr9",
- "expr8 : expr9 CARET expr8",
- "expr9 : expr10",
- "expr9 : expr9 BACKSLASH expr10",
- "expr9 : expr9 AT expr10",
- "expr9 : expr9 BANG expr10",
- "expr10 : expr11",
- "expr10 : AT expr10",
- "expr10 : NOT expr10",
- "expr10 : BAR expr10",
- "expr10 : CONCAT expr10",
- "expr10 : LCONCAT expr10",
- "expr10 : DOT expr10",
- "expr10 : BANG expr10",
- "expr10 : DIFF expr10",
- "expr10 : PLUS expr10",
- "expr10 : STAR expr10",
- "expr10 : SLASH expr10",
- "expr10 : CARET expr10",
- "expr10 : INTER expr10",
- "expr10 : TILDE expr10",
- "expr10 : MINUS expr10",
- "expr10 : NMEQ expr10",
- "expr10 : NMNE expr10",
- "expr10 : SEQ expr10",
- "expr10 : SNE expr10",
- "expr10 : EQUIV expr10",
- "expr10 : UNION expr10",
- "expr10 : QMARK expr10",
- "expr10 : NEQUIV expr10",
- "expr10 : BACKSLASH expr10",
- "expr11 : literal",
- "expr11 : section",
- "expr11 : return",
- "expr11 : if",
- "expr11 : case",
- "expr11 : while",
- "expr11 : until",
- "expr11 : every",
- "expr11 : repeat",
- "expr11 : CREATE expr",
- "expr11 : IDENT",
- "expr11 : NEXT",
- "expr11 : BREAK nexpr",
- "expr11 : LPAREN exprlist RPAREN",
- "expr11 : LBRACE compound RBRACE",
- "expr11 : LBRACK exprlist RBRACK",
- "expr11 : expr11 LBRACK exprlist RBRACK",
- "expr11 : expr11 LBRACE RBRACE",
- "expr11 : expr11 LBRACE pdcolist RBRACE",
- "expr11 : expr11 LPAREN exprlist RPAREN",
- "expr11 : expr11 DOT IDENT",
- "expr11 : AND FAIL",
- "expr11 : AND IDENT",
- "while : WHILE expr",
- "while : WHILE expr DO expr",
- "until : UNTIL expr",
- "until : UNTIL expr DO expr",
- "every : EVERY expr",
- "every : EVERY expr DO expr",
- "repeat : REPEAT expr",
- "return : FAIL",
- "return : RETURN nexpr",
- "return : SUSPEND nexpr",
- "return : SUSPEND expr DO expr",
- "if : IF expr THEN expr",
- "if : IF expr THEN expr ELSE expr",
- "case : CASE expr OF LBRACE caselist RBRACE",
- "caselist : cclause",
- "caselist : caselist SEMICOL cclause",
- "cclause : DEFAULT COLON expr",
- "cclause : expr COLON expr",
- "exprlist : nexpr",
- "exprlist : exprlist COMMA nexpr",
- "pdcolist : nexpr",
- "pdcolist : pdcolist COMMA nexpr",
- "literal : INTLIT",
- "literal : REALLIT",
- "literal : STRINGLIT",
- "literal : CSETLIT",
- "section : expr11 LBRACK expr sectop expr RBRACK",
- "sectop : COLON",
- "sectop : PCOLON",
- "sectop : MCOLON",
- "compound : nexpr",
- "compound : nexpr SEMICOL compound",
- "program : error decls EOFX",
- "proc : prochead error procbody END",
- "expr : error",
-};
-#endif
-#line 1 "/usr/lib/yaccpar"
-/* @(#)yaccpar 1.10 89/04/04 SMI; from S5R3 1.10 */
-
-/*
-** Skeleton parser driver for yacc output
-*/
-
-/*
-** yacc user known macros and defines
-*/
-#define YYERROR goto yyerrlab
-#define YYACCEPT { free(yys); free(yyv); return(0); }
-#define YYABORT { free(yys); free(yyv); return(1); }
-#define YYBACKUP( newtoken, newvalue )\
-{\
- if ( yychar >= 0 || ( yyr2[ yytmp ] >> 1 ) != 1 )\
- {\
- tsyserr("parser: syntax error - cannot backup" );\
- goto yyerrlab;\
- }\
- yychar = newtoken;\
- yystate = *yyps;\
- yylval = newvalue;\
- goto yynewstate;\
-}
-#define YYRECOVERING() (!!yyerrflag)
-#ifndef YYDEBUG
-# define YYDEBUG 1 /* make debugging available */
-#endif
-
-/*
-** user known globals
-*/
-int yydebug; /* set to 1 to get debugging */
-
-/*
-** driver internal defines
-*/
-#define YYFLAG (-1000)
-
-/*
-** static variables used by the parser
-*/
-static YYSTYPE *yyv; /* value stack */
-static int *yys; /* state stack */
-
-static YYSTYPE *yypv; /* top of value stack */
-static int *yyps; /* top of state stack */
-
-static int yystate; /* current state */
-static int yytmp; /* extra var (lasts between blocks) */
-
-int yynerrs; /* number of errors */
-
-int yyerrflag; /* error recovery flag */
-int yychar; /* current input token number */
-
-
-/*
-** yyparse - return 0 if worked, 1 if syntax error not recovered from
-*/
-int
-yyparse()
-{
- register YYSTYPE *yypvt; /* top of value stack for $vars */
- unsigned yymaxdepth = YYMAXDEPTH;
-
- /*
- ** Initialize externals - yyparse may be called more than once
- */
- yyv = (YYSTYPE*)malloc(yymaxdepth*sizeof(YYSTYPE));
- yys = (int*)malloc(yymaxdepth*sizeof(int));
- if (!yyv || !yys)
- {
- tsyserr("parser: out of memory" );
- return(1);
- }
- yypv = &yyv[-1];
- yyps = &yys[-1];
- yystate = 0;
- yytmp = 0;
- yynerrs = 0;
- yyerrflag = 0;
- yychar = -1;
-
- goto yystack;
- {
- register YYSTYPE *yy_pv; /* top of value stack */
- register int *yy_ps; /* top of state stack */
- register int yy_state; /* current state */
- register int yy_n; /* internal state number info */
-
- /*
- ** get globals into registers.
- ** branch to here only if YYBACKUP was called.
- */
- yynewstate:
- yy_pv = yypv;
- yy_ps = yyps;
- yy_state = yystate;
- goto yy_newstate;
-
- /*
- ** get globals into registers.
- ** either we just started, or we just finished a reduction
- */
- yystack:
- yy_pv = yypv;
- yy_ps = yyps;
- yy_state = yystate;
-
- /*
- ** top of for (;;) loop while no reductions done
- */
- yy_stack:
- /*
- ** put a state and value onto the stacks
- */
-#if YYDEBUG
- /*
- ** if debugging, look up token value in list of value vs.
- ** name pairs. 0 and negative (-1) are special values.
- ** Note: linear search is used since time is not a real
- ** consideration while debugging.
- */
- if ( yydebug )
- {
- register int yy_i;
-
- (void)printf( "State %d, token ", yy_state );
- if ( yychar == 0 )
- (void)printf( "end-of-file\n" );
- else if ( yychar < 0 )
- (void)printf( "-none-\n" );
- else
- {
- for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
- yy_i++ )
- {
- if ( yytoks[yy_i].t_val == yychar )
- break;
- }
- (void)printf( "%s\n", yytoks[yy_i].t_name );
- }
- }
-#endif
- if ( ++yy_ps >= &yys[ yymaxdepth ] ) /* room on stack? */
- {
- /*
- ** reallocate and recover. Note that pointers
- ** have to be reset, or bad things will happen
- */
- int yyps_index = (yy_ps - yys);
- int yypv_index = (yy_pv - yyv);
- int yypvt_index = (yypvt - yyv);
- yymaxdepth += YYMAXDEPTH;
- yyv = (YYSTYPE*)realloc((char*)yyv,
- yymaxdepth * sizeof(YYSTYPE));
- yys = (int*)realloc((char*)yys,
- yymaxdepth * sizeof(int));
- if (!yyv || !yys)
- {
- tsyserr("parse stack overflow" );
- return(1);
- }
- yy_ps = yys + yyps_index;
- yy_pv = yyv + yypv_index;
- yypvt = yyv + yypvt_index;
- }
- *yy_ps = yy_state;
- *++yy_pv = yyval;
-
- /*
- ** we have a new state - find out what to do
- */
- yy_newstate:
- if ( ( yy_n = yypact[ yy_state ] ) <= YYFLAG )
- goto yydefault; /* simple state */
-#if YYDEBUG
- /*
- ** if debugging, need to mark whether new token grabbed
- */
- yytmp = yychar < 0;
-#endif
- if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
- yychar = 0; /* reached EOF */
-#if YYDEBUG
- if ( yydebug && yytmp )
- {
- register int yy_i;
-
- (void)printf( "Received token " );
- if ( yychar == 0 )
- (void)printf( "end-of-file\n" );
- else if ( yychar < 0 )
- (void)printf( "-none-\n" );
- else
- {
- for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
- yy_i++ )
- {
- if ( yytoks[yy_i].t_val == yychar )
- break;
- }
- (void)printf( "%s\n", yytoks[yy_i].t_name );
- }
- }
-#endif
- if ( ( ( yy_n += yychar ) < 0 ) || ( yy_n >= YYLAST ) )
- goto yydefault;
- if ( yychk[ yy_n = yyact[ yy_n ] ] == yychar ) /*valid shift*/
- {
- yychar = -1;
- yyval = yylval;
- yy_state = yy_n;
- if ( yyerrflag > 0 )
- yyerrflag--;
- goto yy_stack;
- }
-
- yydefault:
- if ( ( yy_n = yydef[ yy_state ] ) == -2 )
- {
-#if YYDEBUG
- yytmp = yychar < 0;
-#endif
- if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
- yychar = 0; /* reached EOF */
-#if YYDEBUG
- if ( yydebug && yytmp )
- {
- register int yy_i;
-
- (void)printf( "Received token " );
- if ( yychar == 0 )
- (void)printf( "end-of-file\n" );
- else if ( yychar < 0 )
- (void)printf( "-none-\n" );
- else
- {
- for ( yy_i = 0;
- yytoks[yy_i].t_val >= 0;
- yy_i++ )
- {
- if ( yytoks[yy_i].t_val
- == yychar )
- {
- break;
- }
- }
- (void)printf( "%s\n", yytoks[yy_i].t_name );
- }
- }
-#endif
- /*
- ** look through exception table
- */
- {
- register int *yyxi = yyexca;
-
- while ( ( *yyxi != -1 ) ||
- ( yyxi[1] != yy_state ) )
- {
- yyxi += 2;
- }
- while ( ( *(yyxi += 2) >= 0 ) &&
- ( *yyxi != yychar ) )
- ;
- if ( ( yy_n = yyxi[1] ) < 0 )
- YYACCEPT;
- }
- }
-
- /*
- ** check for syntax error
- */
- if ( yy_n == 0 ) /* have an error */
- {
- /* no worry about speed here! */
- switch ( yyerrflag )
- {
- case 0: /* new error */
- yyerror(yychar, yylval, yy_state );
- goto skip_init;
- yyerrlab:
- /*
- ** get globals into registers.
- ** we have a user generated syntax type error
- */
- yy_pv = yypv;
- yy_ps = yyps;
- yy_state = yystate;
- yynerrs++;
- skip_init:
- case 1:
- case 2: /* incompletely recovered error */
- /* try again... */
- yyerrflag = 3;
- /*
- ** find state where "error" is a legal
- ** shift action
- */
- while ( yy_ps >= yys )
- {
- yy_n = yypact[ *yy_ps ] + YYERRCODE;
- if ( yy_n >= 0 && yy_n < YYLAST &&
- yychk[yyact[yy_n]] == YYERRCODE) {
- /*
- ** simulate shift of "error"
- */
- yy_state = yyact[ yy_n ];
- goto yy_stack;
- }
- /*
- ** current state has no shift on
- ** "error", pop stack
- */
-#if YYDEBUG
-# define _POP_ "Error recovery pops state %d, uncovers state %d\n"
- if ( yydebug )
- (void)printf( _POP_, *yy_ps,
- yy_ps[-1] );
-# undef _POP_
-#endif
- yy_ps--;
- yy_pv--;
- }
- /*
- ** there is no state on stack with "error" as
- ** a valid shift. give up.
- */
- YYABORT;
- case 3: /* no shift yet; eat a token */
-#if YYDEBUG
- /*
- ** if debugging, look up token in list of
- ** pairs. 0 and negative shouldn't occur,
- ** but since timing doesn't matter when
- ** debugging, it doesn't hurt to leave the
- ** tests here.
- */
- if ( yydebug )
- {
- register int yy_i;
-
- (void)printf( "Error recovery discards " );
- if ( yychar == 0 )
- (void)printf( "token end-of-file\n" );
- else if ( yychar < 0 )
- (void)printf( "token -none-\n" );
- else
- {
- for ( yy_i = 0;
- yytoks[yy_i].t_val >= 0;
- yy_i++ )
- {
- if ( yytoks[yy_i].t_val
- == yychar )
- {
- break;
- }
- }
- (void)printf( "token %s\n",
- yytoks[yy_i].t_name );
- }
- }
-#endif
- if ( yychar == 0 ) /* reached EOF. quit */
- YYABORT;
- yychar = -1;
- goto yy_newstate;
- }
- }/* end if ( yy_n == 0 ) */
- /*
- ** reduction by production yy_n
- ** put stack tops, etc. so things right after switch
- */
-#if YYDEBUG
- /*
- ** if debugging, print the string that is the user's
- ** specification of the reduction which is just about
- ** to be done.
- */
- if ( yydebug )
- (void)printf( "Reduce by (%d) \"%s\"\n",
- yy_n, yyreds[ yy_n ] );
-#endif
- yytmp = yy_n; /* value to switch over */
- yypvt = yy_pv; /* $vars top of value stack */
- /*
- ** Look in goto table for next state
- ** Sorry about using yy_state here as temporary
- ** register variable, but why not, if it works...
- ** If yyr2[ yy_n ] doesn't have the low order bit
- ** set, then there is no action to be done for
- ** this reduction. So, no saving & unsaving of
- ** registers done. The only difference between the
- ** code just after the if and the body of the if is
- ** the goto yy_stack in the body. This way the test
- ** can be made before the choice of what to do is needed.
- */
- {
- /* length of production doubled with extra bit */
- register int yy_len = yyr2[ yy_n ];
-
- if ( !( yy_len & 01 ) )
- {
- yy_len >>= 1;
- yyval = ( yy_pv -= yy_len )[1]; /* $$ = $1 */
- yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
- *( yy_ps -= yy_len ) + 1;
- if ( yy_state >= YYLAST ||
- yychk[ yy_state =
- yyact[ yy_state ] ] != -yy_n )
- {
- yy_state = yyact[ yypgo[ yy_n ] ];
- }
- goto yy_stack;
- }
- yy_len >>= 1;
- yyval = ( yy_pv -= yy_len )[1]; /* $$ = $1 */
- yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
- *( yy_ps -= yy_len ) + 1;
- if ( yy_state >= YYLAST ||
- yychk[ yy_state = yyact[ yy_state ] ] != -yy_n )
- {
- yy_state = yyact[ yypgo[ yy_n ] ];
- }
- }
- /* save until reenter driver code */
- yystate = yy_state;
- yyps = yy_ps;
- yypv = yy_pv;
- }
- /*
- ** code supplied by user is placed in this switch
- */
- switch( yytmp )
- {
-
-case 1:
-# line 177 "cgram.g"
-{;} break;
-case 4:
-# line 182 "cgram.g"
-{;} break;
-case 5:
-# line 183 "cgram.g"
-{proc_lst->tree = yypvt[-0] ;} break;
-case 6:
-# line 184 "cgram.g"
-{;} break;
-case 7:
-# line 185 "cgram.g"
-{;} break;
-case 8:
-# line 186 "cgram.g"
-{;} break;
-case 9:
-# line 188 "cgram.g"
-{;} break;
-case 11:
-# line 191 "cgram.g"
-{;} break;
-case 12:
-# line 193 "cgram.g"
-{invoc_grp(Str0(yypvt[-0])); ;} break;
-case 13:
-# line 194 "cgram.g"
-{invocbl(yypvt[-0], -1); ;} break;
-case 14:
-# line 195 "cgram.g"
-{invocbl(yypvt[-2], atoi(Str0(yypvt[-0]))); ;} break;
-case 15:
-# line 197 "cgram.g"
-{;} break;
-case 17:
-# line 200 "cgram.g"
-{;} break;
-case 18:
-# line 202 "cgram.g"
-{lnkdcl(Str0(yypvt[-0])); ;} break;
-case 19:
-# line 203 "cgram.g"
-{lnkdcl(Str0(yypvt[-0])); ;} break;
-case 20:
-# line 205 "cgram.g"
-{idflag = F_Global ;} break;
-case 21:
-# line 205 "cgram.g"
-{;} break;
-case 22:
-# line 207 "cgram.g"
-{init_rec(Str0(yypvt[-0])); idflag = F_Field ;} break;
-case 23:
-# line 207 "cgram.g"
-{
- ;
- } break;
-case 24:
-# line 211 "cgram.g"
-{;} break;
-case 25:
-# line 212 "cgram.g"
-{;} break;
-case 26:
-# line 214 "cgram.g"
-{
- yyval = tree6(N_Proc,yypvt[-5],yypvt[-5],yypvt[-2],yypvt[-1],yypvt[-0]) ;
- } break;
-case 27:
-# line 218 "cgram.g"
-{init_proc(Str0(yypvt[-0])); idflag = F_Argument ;} break;
-case 28:
-# line 218 "cgram.g"
-{
- ;
- } break;
-case 29:
-# line 222 "cgram.g"
-{;} break;
-case 30:
-# line 223 "cgram.g"
-{;} break;
-case 31:
-# line 224 "cgram.g"
-{proc_lst->nargs = -proc_lst->nargs ;} break;
-case 32:
-# line 227 "cgram.g"
-{
- install(Str0(yypvt[-0]),idflag) ;
- } break;
-case 33:
-# line 230 "cgram.g"
-{
- install(Str0(yypvt[-0]),idflag) ;
- } break;
-case 34:
-# line 234 "cgram.g"
-{;} break;
-case 35:
-# line 235 "cgram.g"
-{;} break;
-case 36:
-# line 237 "cgram.g"
-{idflag = F_Dynamic ;} break;
-case 37:
-# line 238 "cgram.g"
-{idflag = F_Static ;} break;
-case 38:
-# line 240 "cgram.g"
-{yyval = tree1(N_Empty) ;} break;
-case 39:
-# line 241 "cgram.g"
-{yyval = yypvt[-1] ;} break;
-case 40:
-# line 243 "cgram.g"
-{yyval = tree1(N_Empty) ;} break;
-case 41:
-# line 244 "cgram.g"
-{yyval = tree4(N_Slist,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 42:
-# line 246 "cgram.g"
-{yyval = tree1(N_Empty) ;} break;
-case 45:
-# line 250 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 47:
-# line 253 "cgram.g"
-{yyval = tree5(N_Scan,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 49:
-# line 256 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 50:
-# line 257 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 51:
-# line 258 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 52:
-# line 259 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 53:
-# line 260 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 54:
-# line 261 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 55:
-# line 262 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 56:
-# line 263 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 57:
-# line 264 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 58:
-# line 265 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 59:
-# line 266 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 60:
-# line 267 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 61:
-# line 268 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 62:
-# line 269 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 63:
-# line 270 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 64:
-# line 271 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 65:
-# line 272 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 66:
-# line 273 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 67:
-# line 274 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 68:
-# line 275 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 69:
-# line 276 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 70:
-# line 277 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 71:
-# line 278 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 72:
-# line 279 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 73:
-# line 280 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 74:
-# line 281 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 75:
-# line 282 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 76:
-# line 283 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 77:
-# line 284 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 78:
-# line 285 "cgram.g"
-{yyval = tree5(N_Scan,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 79:
-# line 286 "cgram.g"
-{yyval = aug_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 80:
-# line 287 "cgram.g"
-{yyval = tree5(N_Activat,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 82:
-# line 290 "cgram.g"
-{yyval = to_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 83:
-# line 291 "cgram.g"
-{yyval = toby_nd(yypvt[-3],yypvt[-4],yypvt[-2],yypvt[-0]) ;} break;
-case 85:
-# line 294 "cgram.g"
-{yyval = tree4(N_Alt,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 87:
-# line 297 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 88:
-# line 298 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 89:
-# line 299 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 90:
-# line 300 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 91:
-# line 301 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 92:
-# line 302 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 93:
-# line 303 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 94:
-# line 304 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 95:
-# line 305 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 96:
-# line 306 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 97:
-# line 307 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 98:
-# line 308 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 99:
-# line 309 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 100:
-# line 310 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 102:
-# line 313 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 103:
-# line 314 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 105:
-# line 317 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 106:
-# line 318 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 107:
-# line 319 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 108:
-# line 320 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 110:
-# line 323 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 111:
-# line 324 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 112:
-# line 325 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 113:
-# line 326 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 115:
-# line 329 "cgram.g"
-{yyval = binary_nd(yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 117:
-# line 332 "cgram.g"
-{yyval = tree4(N_Limit,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 118:
-# line 333 "cgram.g"
-{yyval = tree5(N_Activat,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 119:
-# line 334 "cgram.g"
-{yyval = tree4(N_Apply,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 121:
-# line 337 "cgram.g"
-{yyval = tree5(N_Activat,yypvt[-1],yypvt[-1],tree1(N_Empty) ,yypvt[-0]) ;} break;
-case 122:
-# line 338 "cgram.g"
-{yyval = tree3(N_Not,yypvt[-0],yypvt[-0]) ;} break;
-case 123:
-# line 339 "cgram.g"
-{yyval = tree3(N_Bar,yypvt[-0],yypvt[-0]) ;} break;
-case 124:
-# line 340 "cgram.g"
-{yyval = tree3(N_Bar,yypvt[-0],yypvt[-0]) ;} break;
-case 125:
-# line 341 "cgram.g"
-{yyval = tree3(N_Bar,yypvt[-0],yypvt[-0]) ;} break;
-case 126:
-# line 342 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 127:
-# line 343 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 128:
-# line 344 "cgram.g"
-{yyval = MultiUnary(yypvt[-1],yypvt[-0]) ;} break;
-case 129:
-# line 345 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 130:
-# line 346 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 131:
-# line 347 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 132:
-# line 348 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 133:
-# line 349 "cgram.g"
-{yyval = MultiUnary(yypvt[-1],yypvt[-0]) ;} break;
-case 134:
-# line 350 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 135:
-# line 351 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 136:
-# line 352 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 137:
-# line 353 "cgram.g"
-{yyval = MultiUnary(yypvt[-1],yypvt[-0]) ;} break;
-case 138:
-# line 354 "cgram.g"
-{yyval = MultiUnary(yypvt[-1],yypvt[-0]) ;} break;
-case 139:
-# line 355 "cgram.g"
-{yyval = MultiUnary(yypvt[-1],yypvt[-0]) ;} break;
-case 140:
-# line 356 "cgram.g"
-{yyval = MultiUnary(yypvt[-1],yypvt[-0]) ;} break;
-case 141:
-# line 357 "cgram.g"
-{yyval = MultiUnary(yypvt[-1],yypvt[-0]) ;} break;
-case 142:
-# line 358 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 143:
-# line 359 "cgram.g"
-{yyval = MultiUnary(yypvt[-1],yypvt[-0]) ;} break;
-case 144:
-# line 360 "cgram.g"
-{yyval = unary_nd(yypvt[-1],yypvt[-0]) ;} break;
-case 154:
-# line 371 "cgram.g"
-{yyval = tree3(N_Create,yypvt[-1],yypvt[-0]); proc_lst->has_coexpr = 1; ;} break;
-case 155:
-# line 372 "cgram.g"
-{LSym0(yypvt[-0]) = putloc(Str0(yypvt[-0]),0) ;} break;
-case 156:
-# line 373 "cgram.g"
-{yyval = tree2(N_Next,yypvt[-0]) ;} break;
-case 157:
-# line 374 "cgram.g"
-{yyval = tree3(N_Break,yypvt[-1],yypvt[-0]) ;} break;
-case 158:
-# line 375 "cgram.g"
-{if ((yypvt[-1])->n_type == N_Elist) yyval = invk_nd(yypvt[-2],tree1(N_Empty) ,yypvt[-1]); else yyval = yypvt[-1] ;} break;
-case 159:
-# line 376 "cgram.g"
-{yyval = yypvt[-1] ;} break;
-case 160:
-# line 377 "cgram.g"
-{yyval = list_nd(yypvt[-2],yypvt[-1]) ;} break;
-case 161:
-# line 378 "cgram.g"
-{yyval = buildarray(yypvt[-3],yypvt[-2],yypvt[-1]) ;} break;
-case 162:
-# line 379 "cgram.g"
-{yyval = invk_nd(yypvt[-1],yypvt[-2],list_nd(yypvt[-1],tree1(N_Empty) )) ;} break;
-case 163:
-# line 380 "cgram.g"
-{yyval = invk_nd(yypvt[-2],yypvt[-3],list_nd(yypvt[-2],yypvt[-1])) ;} break;
-case 164:
-# line 381 "cgram.g"
-{yyval = invk_nd(yypvt[-2],yypvt[-3],yypvt[-1]) ;} break;
-case 165:
-# line 382 "cgram.g"
-{yyval = tree4(N_Field,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 166:
-# line 383 "cgram.g"
-{yyval = key_leaf(yypvt[-1],spec_str("fail")) ;} break;
-case 167:
-# line 384 "cgram.g"
-{yyval = key_leaf(yypvt[-1],Str0(yypvt[-0])) ;} break;
-case 168:
-# line 386 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty) ) ;} break;
-case 169:
-# line 387 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-3],yypvt[-3],yypvt[-2],yypvt[-0]) ;} break;
-case 170:
-# line 389 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty) ) ;} break;
-case 171:
-# line 390 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-3],yypvt[-3],yypvt[-2],yypvt[-0]) ;} break;
-case 172:
-# line 392 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty) ) ;} break;
-case 173:
-# line 393 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-3],yypvt[-3],yypvt[-2],yypvt[-0]) ;} break;
-case 174:
-# line 395 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty) ) ;} break;
-case 175:
-# line 397 "cgram.g"
-{yyval = tree4(N_Ret,yypvt[-0],yypvt[-0],tree1(N_Empty) ) ;} break;
-case 176:
-# line 398 "cgram.g"
-{yyval = tree4(N_Ret,yypvt[-1],yypvt[-1],yypvt[-0]) ;} break;
-case 177:
-# line 399 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty) ) ;} break;
-case 178:
-# line 400 "cgram.g"
-{yyval = tree5(N_Loop,yypvt[-3],yypvt[-3],yypvt[-2],yypvt[-0]) ;} break;
-case 179:
-# line 402 "cgram.g"
-{yyval = tree5(N_If,yypvt[-3],yypvt[-2],yypvt[-0],tree1(N_Empty) ) ;} break;
-case 180:
-# line 403 "cgram.g"
-{yyval = tree5(N_If,yypvt[-5],yypvt[-4],yypvt[-2],yypvt[-0]) ;} break;
-case 181:
-# line 405 "cgram.g"
-{yyval = case_nd(yypvt[-5],yypvt[-4],yypvt[-1]) ;} break;
-case 183:
-# line 408 "cgram.g"
-{yyval = tree4(N_Clist,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 184:
-# line 410 "cgram.g"
-{yyval = tree4(N_Ccls,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 185:
-# line 411 "cgram.g"
-{yyval = tree4(N_Ccls,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
-case 186:
-# line 413 "cgram.g"
-{yyval = yypvt[-0]; ;} break;
-case 187:
-# line 414 "cgram.g"
-{yyval = tree4(N_Elist,yypvt[-1],yypvt[-2],yypvt[-0]); ;} break;
-case 188:
-# line 416 "cgram.g"
-{
- yyval = tree3(N_Create,yypvt[-0],yypvt[-0]); proc_lst->has_coexpr = 1; ;
- } break;
-case 189:
-# line 419 "cgram.g"
-{
- yyval =tree4(N_Elist,yypvt[-1],yypvt[-2],tree3(N_Create,yypvt[-1],yypvt[-0])); proc_lst->has_coexpr = 1; ;
- } break;
-case 190:
-# line 423 "cgram.g"
-{CSym0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_IntLit,0) ;} break;
-case 191:
-# line 424 "cgram.g"
-{CSym0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_RealLit,0) ;} break;
-case 192:
-# line 425 "cgram.g"
-{CSym0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_StrLit,(int)Val1(yypvt[-0])) ;} break;
-case 193:
-# line 426 "cgram.g"
-{CSym0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_CsetLit,(int)Val1(yypvt[-0])) ;} break;
-case 194:
-# line 428 "cgram.g"
-{yyval = sect_nd(yypvt[-2],yypvt[-5],yypvt[-3],yypvt[-1]) ;} break;
-case 195:
-# line 430 "cgram.g"
-{yyval = yypvt[-0] ;} break;
-case 196:
-# line 431 "cgram.g"
-{yyval = yypvt[-0] ;} break;
-case 197:
-# line 432 "cgram.g"
-{yyval = yypvt[-0] ;} break;
-case 199:
-# line 435 "cgram.g"
-{yyval = tree4(N_Slist,yypvt[-1],yypvt[-2],yypvt[-0]) ;} break;
- }
- goto yystack; /* reset registers in driver code */
-}
generated by cgit v1.2.3 (git 2.39.1) at 2025-07-14 18:42:43 +0000