ref: babf901b4a508c3ec5d1f89655f10377bbdf9637
dir: /limbo/y.tab.c/
#line 2 "limbo.y"
#include "limbo.h"
#line 5 "limbo.y"
typedef union
{
struct{
Src src;
union{
Sym *idval;
Long ival;
Real rval;
}v;
}tok;
Decl *ids;
Node *node;
Type *type;
Typelist *types;
} YYSTYPE;
extern int yyerrflag;
#ifndef YYMAXDEPTH
#define YYMAXDEPTH 150
#endif
YYSTYPE yylval;
YYSTYPE yyval;
#define Landeq 57346
#define Loreq 57347
#define Lxoreq 57348
#define Llsheq 57349
#define Lrsheq 57350
#define Laddeq 57351
#define Lsubeq 57352
#define Lmuleq 57353
#define Ldiveq 57354
#define Lmodeq 57355
#define Lexpeq 57356
#define Ldeclas 57357
#define Lload 57358
#define Loror 57359
#define Landand 57360
#define Lcons 57361
#define Leq 57362
#define Lneq 57363
#define Lleq 57364
#define Lgeq 57365
#define Llsh 57366
#define Lrsh 57367
#define Lexp 57368
#define Lcomm 57369
#define Linc 57370
#define Ldec 57371
#define Lof 57372
#define Lref 57373
#define Lif 57374
#define Lelse 57375
#define Lfn 57376
#define Lexcept 57377
#define Lraises 57378
#define Lmdot 57379
#define Lto 57380
#define Lor 57381
#define Lrconst 57382
#define Lconst 57383
#define Lid 57384
#define Ltid 57385
#define Lsconst 57386
#define Llabs 57387
#define Lnil 57388
#define Llen 57389
#define Lhd 57390
#define Ltl 57391
#define Ltagof 57392
#define Limplement 57393
#define Limport 57394
#define Linclude 57395
#define Lcon 57396
#define Ltype 57397
#define Lmodule 57398
#define Lcyclic 57399
#define Ladt 57400
#define Larray 57401
#define Llist 57402
#define Lchan 57403
#define Lself 57404
#define Ldo 57405
#define Lwhile 57406
#define Lfor 57407
#define Lbreak 57408
#define Lalt 57409
#define Lcase 57410
#define Lpick 57411
#define Lcont 57412
#define Lreturn 57413
#define Lexit 57414
#define Lspawn 57415
#define Lraise 57416
#define Lfix 57417
#define Ldynamic 57418
#define YYEOFCODE 1
#define YYERRCODE 2
#line 1600 "limbo.y"
static char *mkfileext(char*, char*, char*);
static void usage(void);
static int dosym;
static int toterrors;
static ulong canonnanbits[] = { 0x7fffffff, 0xffffffff};
static char* infile;
#define SLASHMOD "/module"
static char*
getroot(void)
{
int n;
char *e, *l, *s;
if((e = getenv("EMU")) != nil){
for(s = e; *e != '\0'; e++){
if(*e == '-' && *(e+1) == 'r' && (e == s || *(e-1) == ' ' || *(e-1) == '\t')){
e += 2;
l = strchr(e, ' ');
if(l != nil)
*l = '\0';
if((n = strlen(e)) > 0){
s = malloc(n+1);
strcpy(s, e);
return s;
}
}
}
}
if((e = getenv("ROOT")) != nil)
return strdup(e);
return nil;
}
void
main(int argc, char *argv[])
{
char *s, *ofile, *ext, *root;
int i;
FPinit();
FPcontrol(0, INVAL|ZDIV|OVFL|UNFL|INEX);
canonnan = canontod(canonnanbits);
fmtinstall('D', dotconv);
fmtinstall('I', instconv);
fmtinstall('K', declconv);
fmtinstall('k', storeconv);
fmtinstall('L', lineconv);
fmtinstall('M', mapconv);
fmtinstall('n', nodeconv); /* exp structure */
fmtinstall('O', opconv);
fmtinstall('g', gfltconv);
fmtinstall('Q', etconv); /* src expression with type */
fmtinstall('R', ctypeconv); /* c equivalent type */
fmtinstall('P', ctypeconv); /* c equivalent type - pointer type */
fmtinstall('T', typeconv); /* source style types */
fmtinstall('t', stypeconv); /* structurally descriptive type */
fmtinstall('U', srcconv);
fmtinstall('v', expconv); /* src expression */
fmtinstall('V', expconv); /* src expression in '' */
lexinit();
typeinit();
optabinit();
gendis = 1;
asmsym = 0;
maxerr = 20;
ofile = nil;
ext = nil;
ARGBEGIN{
case 'D':
/*
* debug flags:
*
* a alt compilation
* A array constructor compilation
* b boolean and branch compilation
* c case compilation
* d function declaration
* D descriptor generation
* e expression compilation
* E addressable expression compilation
* f print arguments for compiled functions
* F constant folding
* g print out globals
* m module declaration and type checking
* n nil references
* s print sizes of output file sections
* S type signing
* t type checking function bodies
* T timing
* v global var and constant compilation
* x adt verification
* Y tuple compilation
* z Z bug fixes
*/
s = ARGF();
while(s && *s)
debug[*s++] = 1;
break;
case 'I':
s = ARGF();
if(s == nil)
usage();
addinclude(s);
break;
case 'G':
asmsym = 1;
break;
case 'S':
gendis = 0;
break;
case 'a':
emitstub = 1;
break;
case 'A':
emitstub = emitdyn = 1;
break;
case 'c':
mustcompile = 1;
break;
case 'C':
dontcompile = 1;
break;
case 'e':
maxerr = 1000;
break;
case 'f':
isfatal = 1;
break;
case 'F':
newfnptr = 1;
break;
case 'g':
dosym = 1;
break;
case 'i':
dontinline = 1;
break;
case 'o':
ofile = ARGF();
break;
case 'O':
optims = 1;
break;
case 's':
s = ARGF();
if(s != nil)
fixss = atoi(s);
break;
case 't':
emittab = ARGF();
if(emittab == nil)
usage();
break;
case 'T':
emitcode = ARGF();
if(emitcode == nil)
usage();
break;
case 'd':
emitcode = ARGF();
if(emitcode == nil)
usage();
emitdyn = 1;
break;
case 'w':
superwarn = dowarn;
dowarn = 1;
break;
case 'x':
ext = ARGF();
break;
case 'X':
signdump = ARGF();
break;
case 'y':
oldcycles = 1;
break;
case 'z':
arrayz = 1;
break;
default:
usage();
break;
}ARGEND
if((root = getroot()) != nil){
char *r;
r = malloc(strlen(root)+strlen(SLASHMOD)+1);
strcpy(r, root);
strcat(r, SLASHMOD);
addinclude(r);
free(root);
}
else
addinclude(INCPATH);
if(argc == 0){
usage();
}else if(ofile != nil){
if(argc != 1)
usage();
translate(argv[0], ofile, mkfileext(ofile, ".dis", ".sbl"));
}else{
if(ext == nil){
ext = ".s";
if(gendis)
ext = ".dis";
}
for(i = 0; i < argc; i++){
s = strrchr(argv[i], '/');
if(s == nil)
s = argv[i];
else
s++;
if(argc > 1)
print("%s:\n", argv[i]);
ofile = mkfileext(s, ".b", ext);
translate(argv[i], ofile, mkfileext(ofile, ext, ".sbl"));
}
}
if(toterrors)
exits("errors");
exits(0);
}
static void
usage(void)
{
fprint(2, "usage: limbo [-CGSacgwe] [-I incdir] [-o outfile] [-{T|t|d} module] [-D debug] file ...\n");
exits("usage");
}
static char*
mkfileext(char *file, char *oldext, char *ext)
{
char *ofile;
int n, n2;
n = strlen(file);
n2 = strlen(oldext);
if(n >= n2 && strcmp(&file[n-n2], oldext) == 0)
n -= n2;
ofile = malloc(n + strlen(ext) + 1);
memmove(ofile, file, n);
strcpy(ofile+n, ext);
return ofile;
}
void
translate(char *in, char *out, char *dbg)
{
Decl *entry;
int doemit;
infile = in;
outfile = out;
symfile = dbg;
errors = 0;
bins[0] = Bopen(in, OREAD);
if(bins[0] == nil){
fprint(2, "can't open %s: %r\n", in);
toterrors++;
return;
}
doemit = emitstub || emittab || emitcode;
if(!doemit){
bout = Bopen(out, OWRITE);
if(bout == nil){
fprint(2, "can't open %s: %r\n", out);
toterrors++;
Bterm(bins[0]);
return;
}
if(dosym){
bsym = Bopen(dbg, OWRITE);
if(bsym == nil)
fprint(2, "can't open %s: %r\n", dbg);
}
}
lexstart(in);
popscopes();
typestart();
declstart();
yyparse();
entry = typecheck(!doemit);
modcom(entry);
fns = nil;
nfns = 0;
descriptors = nil;
if(bout != nil)
Bterm(bout);
if(bsym != nil)
Bterm(bsym);
toterrors += errors;
if(errors && bout != nil)
remove(out);
if(errors && bsym != nil)
remove(dbg);
}
void
trapFPE(unsigned exception[5], int value[2])
{
/* can't happen; it's just here to keep FPinit happy. */
USED(exception);
USED(value);
}
static char *
win2inf(char *s)
{
int nt = 0;
char *t;
if(strlen(s) > 1 && s[1] == ':'){
s[1] = '/';
s++;
nt = 1;
}
for(t = s; *t != '\0'; t++){
if(*t == '\\')
*t = '/';
if(nt)
*t = tolower(*t);
}
return s;
}
static char *
cleann(char *s)
{
char *p, *r, *t;
char buf[256];
r = t = malloc(strlen(s)+1);
strcpy(t, s);
t = win2inf(t);
if(*t != '/'){
p = win2inf(getwd(buf, sizeof(buf)));
s = malloc(strlen(p)+strlen(t)+2);
strcpy(s, p);
strcat(s, "/");
strcat(s, t);
}
else{
s = malloc(strlen(t)+1);
strcpy(s, t);
}
free(r);
/* print("cleann: %s\n", p); */
return cleanname(s);
}
char *
srcpath(char *name, int nlen)
{
int l1, l2;
char *r, *srcp, *t;
srcp = cleann(infile);
r = getroot();
if(r == nil){
l1 = strlen(INCPATH);
r = malloc(l1+1);
strcpy(r, INCPATH);
if(l1 >= strlen(SLASHMOD) && strcmp(r+l1-strlen(SLASHMOD), SLASHMOD) == 0)
r[l1-strlen(SLASHMOD)] = '\0';
}
t = cleann(r);
free(r);
r = t;
/* srcp relative to r */
l1 = strlen(srcp);
l2 = strlen(r);
if(l1 >= l2 && strncmp(srcp, r, l2) == 0){
/* nothing to do */
}else
l2 = 0;
strncpy(name, srcp+l2, nlen);
name[nlen-1] = '\0';
free(r);
free(srcp);
/* print("srcpath: %s\n", name); */
return name;
}
short yyexca[] =
{-1, 1,
1, -1,
-2, 0,
-1, 3,
1, 3,
-2, 0,
-1, 17,
39, 88,
50, 62,
54, 88,
99, 62,
-2, 251,
-1, 209,
59, 29,
71, 29,
-2, 0,
-1, 228,
1, 2,
-2, 0,
-1, 272,
50, 176,
-2, 256,
-1, 306,
59, 41,
71, 41,
91, 41,
-2, 0,
-1, 308,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 377,
50, 62,
99, 62,
-2, 251,
-1, 378,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 384,
53, 71,
54, 71,
-2, 110,
-1, 386,
53, 72,
54, 72,
-2, 112,
-1, 418,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 425,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 440,
53, 71,
54, 71,
-2, 111,
-1, 441,
53, 72,
54, 72,
-2, 113,
-1, 449,
71, 278,
99, 278,
-2, 163,
-1, 466,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 483,
50, 126,
99, 126,
-2, 240,
-1, 488,
71, 275,
-2, 0,
-1, 500,
59, 47,
71, 47,
-2, 0,
-1, 505,
59, 41,
71, 41,
91, 41,
-2, 0,
-1, 511,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 545,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 551,
71, 154,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 559,
56, 59,
62, 59,
-2, 62,
-1, 565,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 570,
71, 157,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 574,
72, 176,
-2, 163,
-1, 593,
71, 160,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 599,
71, 168,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 603,
72, 175,
85, 150,
86, 150,
87, 150,
89, 150,
90, 150,
91, 150,
-2, 0,
-1, 606,
50, 62,
56, 171,
62, 171,
99, 62,
-2, 251,
};
#define YYNPROD 283
#define YYPRIVATE 57344
#define YYLAST 2707
short yyact[] =
{
376, 588, 450, 361, 502, 381, 409, 308, 366, 312,
356, 448, 446, 184, 83, 82, 429, 296, 269, 15,
8, 49, 4, 101, 318, 12, 23, 109, 48, 77,
78, 79, 196, 35, 51, 42, 541, 488, 360, 6,
397, 3, 6, 456, 483, 379, 362, 14, 455, 21,
14, 350, 420, 291, 347, 284, 117, 223, 31, 328,
285, 224, 221, 46, 462, 111, 425, 424, 423, 11,
427, 426, 428, 185, 163, 164, 165, 166, 167, 168,
169, 170, 171, 172, 173, 174, 175, 104, 116, 43,
181, 182, 183, 71, 10, 285, 203, 10, 206, 40,
346, 419, 92, 285, 118, 346, 32, 32, 514, 113,
292, 346, 292, 44, 285, 118, 417, 416, 415, 596,
582, 544, 482, 229, 230, 231, 232, 233, 234, 235,
236, 237, 238, 239, 240, 242, 243, 244, 245, 246,
247, 248, 249, 250, 251, 252, 253, 254, 255, 256,
257, 258, 259, 260, 261, 262, 263, 264, 185, 6,
480, 272, 228, 306, 192, 193, 22, 14, 208, 270,
479, 266, 22, 478, 192, 193, 435, 278, 562, 598,
307, 283, 421, 556, 407, 563, 406, 286, 226, 200,
192, 193, 287, 532, 268, 86, 215, 404, 412, 22,
210, 207, 84, 216, 412, 89, 301, 98, 63, 527,
93, 351, 227, 47, 10, 91, 81, 310, 309, 75,
74, 69, 68, 73, 26, 18, 54, 55, 62, 60,
61, 64, 460, 459, 295, 25, 100, 87, 88, 85,
24, 303, 324, 65, 66, 67, 592, 111, 321, 316,
311, 23, 569, 76, 554, 192, 193, 550, 533, 76,
510, 522, 487, 465, 314, 396, 380, 6, 505, 86,
213, 205, 577, 86, 492, 14, 84, 495, 476, 89,
84, 98, 185, 89, 43, 464, 338, 395, 358, 91,
81, 113, 281, 91, 81, 336, 181, 217, 209, 322,
576, 536, 334, 323, 95, 382, 97, 94, 44, 192,
193, 87, 88, 85, 33, 87, 88, 85, 378, 345,
192, 193, 10, 86, 355, 354, 19, 76, 509, 390,
84, 76, 214, 89, 386, 384, 388, 501, 212, 204,
399, 280, 601, 91, 81, 484, 45, 389, 611, 561,
18, 353, 45, 5, 537, 504, 18, 485, 192, 193,
400, 401, 559, 497, 86, 87, 88, 85, 413, 191,
540, 84, 418, 433, 89, 5, 185, 299, 22, 477,
432, 76, 434, 430, 91, 81, 315, 431, 438, 436,
19, 19, 289, 288, 504, 445, 449, 267, 338, 182,
441, 440, 156, 411, 119, 314, 87, 88, 85, 103,
17, 114, 19, 334, 18, 115, 107, 70, 192, 193,
72, 19, 76, 470, 2, 466, 13, 475, 439, 473,
192, 193, 17, 158, 484, 102, 18, 190, 75, 74,
45, 114, 73, 86, 18, 115, 449, 507, 13, 90,
84, 490, 90, 89, 601, 515, 490, 609, 486, 490,
600, 494, 597, 91, 81, 594, 463, 591, 490, 185,
490, 414, 474, 167, 585, 405, 571, 520, 490, 519,
512, 513, 508, 403, 552, 87, 88, 85, 86, 449,
524, 520, 526, 525, 327, 84, 222, 530, 89, 590,
523, 76, 90, 39, 90, 529, 534, 490, 91, 81,
105, 542, 90, 491, 565, 543, 538, 520, 36, 549,
34, 398, 553, 90, 589, 496, 551, 394, 497, 333,
87, 88, 85, 157, 330, 160, 199, 161, 162, 557,
560, 438, 314, 198, 195, 178, 76, 159, 158, 567,
443, 442, 574, 566, 572, 568, 570, 176, 474, 180,
343, 329, 326, 179, 520, 225, 580, 342, 176, 581,
297, 574, 177, 584, 140, 141, 137, 138, 139, 136,
134, 558, 41, 546, 201, 411, 603, 593, 583, 545,
383, 595, 474, 325, 574, 599, 602, 90, 220, 219,
472, 604, 80, 608, 86, 96, 471, 610, 468, 422,
39, 84, 474, 90, 89, 186, 90, 90, 19, 90,
136, 134, 452, 134, 91, 81, 90, 29, 182, 167,
137, 138, 139, 136, 134, 521, 357, 50, 535, 30,
90, 90, 305, 365, 298, 120, 87, 88, 85, 27,
474, 1, 52, 53, 451, 194, 461, 197, 59, 72,
271, 28, 76, 57, 58, 202, 63, 143, 142, 140,
141, 137, 138, 139, 136, 134, 218, 75, 74, 69,
68, 73, 273, 18, 54, 55, 62, 60, 61, 64,
313, 539, 50, 579, 578, 90, 410, 500, 499, 587,
586, 65, 66, 67, 16, 408, 304, 52, 53, 56,
90, 352, 9, 59, 72, 548, 90, 76, 57, 58,
547, 63, 518, 517, 211, 7, 447, 335, 265, 503,
368, 108, 75, 74, 69, 274, 73, 90, 18, 54,
55, 62, 60, 61, 64, 106, 112, 90, 90, 110,
282, 20, 37, 38, 277, 86, 275, 276, 67, 0,
90, 90, 84, 0, 90, 89, 290, 0, 0, 293,
294, 0, 76, 0, 0, 91, 81, 0, 0, 197,
0, 0, 0, 0, 0, 0, 281, 0, 0, 0,
0, 0, 0, 317, 320, 0, 0, 87, 88, 85,
0, 0, 0, 90, 0, 0, 0, 0, 52, 53,
56, 0, 90, 76, 59, 72, 90, 0, 0, 57,
58, 90, 63, 90, 0, 0, 0, 0, 0, 0,
0, 0, 90, 75, 74, 69, 68, 73, 90, 18,
54, 55, 62, 60, 61, 64, 0, 0, 331, 0,
0, 0, 0, 0, 86, 0, 0, 65, 66, 67,
0, 84, 0, 344, 89, 0, 98, 0, 0, 348,
0, 0, 0, 76, 91, 81, 0, 90, 0, 0,
0, 90, 0, 0, 0, 0, 0, 0, 0, 95,
387, 97, 94, 99, 0, 100, 87, 88, 85, 0,
392, 393, 90, 0, 0, 0, 0, 0, 0, 0,
0, 0, 76, 0, 0, 90, 0, 402, 122, 123,
124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
135, 0, 155, 154, 153, 152, 151, 150, 148, 149,
144, 145, 146, 147, 143, 142, 140, 141, 137, 138,
139, 136, 134, 0, 340, 0, 194, 86, 0, 0,
0, 86, 0, 0, 84, 444, 0, 89, 84, 453,
0, 89, 0, 0, 457, 0, 458, 91, 81, 0,
363, 91, 391, 0, 0, 96, 0, 0, 0, 0,
0, 469, 0, 0, 0, 50, 0, 0, 0, 87,
88, 85, 319, 87, 88, 85, 0, 0, 0, 0,
52, 53, 56, 339, 0, 76, 59, 375, 0, 76,
0, 57, 58, 0, 63, 367, 0, 0, 0, 0,
493, 0, 0, 0, 498, 75, 74, 377, 68, 73,
0, 18, 54, 55, 62, 60, 61, 64, 364, 506,
363, 0, 0, 13, 0, 498, 0, 0, 0, 65,
66, 67, 0, 0, 0, 50, 369, 0, 531, 0,
370, 371, 374, 372, 373, 76, 0, 0, 0, 0,
52, 53, 56, 0, 0, 0, 59, 375, 0, 0,
0, 57, 58, 0, 63, 367, 0, 0, 0, 0,
0, 0, 0, 0, 0, 75, 74, 377, 68, 73,
0, 18, 54, 55, 62, 60, 61, 64, 364, 467,
363, 0, 0, 13, 0, 0, 0, 0, 0, 65,
66, 67, 0, 0, 0, 50, 369, 0, 0, 0,
370, 371, 374, 372, 373, 76, 0, 0, 0, 0,
52, 53, 56, 0, 0, 0, 59, 375, 0, 0,
0, 57, 58, 0, 63, 367, 0, 0, 0, 0,
0, 0, 0, 0, 0, 75, 74, 377, 68, 73,
0, 18, 54, 55, 62, 60, 61, 64, 364, 437,
363, 0, 0, 13, 0, 0, 0, 0, 0, 65,
66, 67, 0, 0, 0, 50, 369, 0, 0, 0,
370, 371, 374, 372, 373, 76, 0, 0, 0, 0,
52, 53, 56, 0, 0, 0, 59, 375, 0, 0,
0, 57, 58, 0, 63, 367, 0, 0, 0, 0,
0, 0, 0, 0, 0, 75, 74, 377, 68, 73,
0, 18, 54, 55, 62, 60, 61, 64, 364, 359,
605, 0, 0, 13, 0, 0, 0, 0, 0, 65,
66, 67, 0, 0, 0, 50, 369, 0, 0, 0,
370, 371, 374, 372, 373, 76, 0, 0, 0, 0,
52, 53, 607, 0, 0, 0, 59, 375, 0, 0,
0, 57, 58, 0, 63, 367, 0, 0, 0, 0,
0, 0, 0, 0, 0, 75, 74, 606, 68, 73,
0, 18, 54, 55, 62, 60, 61, 64, 364, 573,
0, 0, 0, 13, 0, 0, 0, 0, 0, 65,
66, 67, 0, 0, 50, 0, 369, 0, 0, 0,
370, 371, 374, 372, 373, 76, 0, 0, 0, 52,
53, 451, 0, 0, 0, 59, 375, 0, 0, 0,
57, 58, 0, 63, 367, 0, 0, 0, 0, 0,
0, 0, 0, 0, 75, 74, 377, 68, 73, 0,
18, 54, 55, 62, 60, 61, 64, 364, 363, 0,
0, 0, 13, 0, 0, 0, 0, 0, 65, 66,
67, 0, 0, 50, 0, 369, 0, 0, 0, 370,
371, 374, 372, 373, 76, 0, 0, 0, 52, 53,
56, 0, 0, 0, 59, 375, 0, 0, 0, 57,
58, 0, 63, 367, 0, 0, 0, 0, 0, 0,
0, 0, 0, 75, 74, 377, 68, 73, 0, 18,
54, 55, 62, 60, 61, 64, 364, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 65, 66, 67,
50, 0, 0, 0, 369, 0, 0, 0, 370, 371,
374, 372, 373, 76, 0, 52, 53, 56, 0, 0,
0, 59, 72, 0, 0, 279, 57, 58, 0, 63,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
75, 74, 69, 68, 73, 0, 18, 54, 55, 62,
60, 61, 64, 0, 241, 0, 0, 0, 0, 0,
0, 0, 0, 0, 65, 66, 67, 50, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
76, 0, 52, 53, 56, 0, 0, 0, 59, 72,
0, 0, 0, 57, 58, 0, 63, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 75, 74, 69,
68, 73, 0, 18, 54, 55, 62, 60, 61, 64,
0, 0, 50, 0, 0, 0, 0, 0, 0, 0,
0, 65, 66, 67, 0, 0, 0, 52, 53, 56,
0, 0, 0, 59, 72, 0, 0, 76, 57, 58,
0, 63, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 75, 74, 69, 68, 73, 0, 18, 54,
55, 62, 60, 61, 64, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 65, 66, 67, 122,
123, 124, 125, 126, 127, 128, 129, 130, 131, 132,
133, 135, 76, 155, 154, 153, 152, 151, 150, 148,
149, 144, 145, 146, 147, 143, 142, 140, 141, 137,
138, 139, 136, 134, 154, 153, 152, 151, 150, 148,
149, 144, 145, 146, 147, 143, 142, 140, 141, 137,
138, 139, 136, 134, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 135, 564, 155, 154,
153, 152, 151, 150, 148, 149, 144, 145, 146, 147,
143, 142, 140, 141, 137, 138, 139, 136, 134, 153,
152, 151, 150, 148, 149, 144, 145, 146, 147, 143,
142, 140, 141, 137, 138, 139, 136, 134, 0, 122,
123, 124, 125, 126, 127, 128, 129, 130, 131, 132,
133, 135, 555, 155, 154, 153, 152, 151, 150, 148,
149, 144, 145, 146, 147, 143, 142, 140, 141, 137,
138, 139, 136, 134, 151, 150, 148, 149, 144, 145,
146, 147, 143, 142, 140, 141, 137, 138, 139, 136,
134, 0, 0, 0, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 135, 528, 155, 154,
153, 152, 151, 150, 148, 149, 144, 145, 146, 147,
143, 142, 140, 141, 137, 138, 139, 136, 134, 150,
148, 149, 144, 145, 146, 147, 143, 142, 140, 141,
137, 138, 139, 136, 134, 0, 0, 0, 0, 122,
123, 124, 125, 126, 127, 128, 129, 130, 131, 132,
133, 135, 481, 155, 154, 153, 152, 151, 150, 148,
149, 144, 145, 146, 147, 143, 142, 140, 141, 137,
138, 139, 136, 134, 148, 149, 144, 145, 146, 147,
143, 142, 140, 141, 137, 138, 139, 136, 134, 0,
0, 0, 0, 0, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 135, 349, 155, 154,
153, 152, 151, 150, 148, 149, 144, 145, 146, 147,
143, 142, 140, 141, 137, 138, 139, 136, 134, 144,
145, 146, 147, 143, 142, 140, 141, 137, 138, 139,
136, 134, 0, 0, 0, 0, 0, 0, 0, 122,
123, 124, 125, 126, 127, 128, 129, 130, 131, 132,
133, 135, 341, 155, 154, 153, 152, 151, 150, 148,
149, 144, 145, 146, 147, 143, 142, 140, 141, 137,
138, 139, 136, 134, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 135, 302, 155, 154,
153, 152, 151, 150, 148, 149, 144, 145, 146, 147,
143, 142, 140, 141, 137, 138, 139, 136, 134, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 122,
123, 124, 125, 126, 127, 128, 129, 130, 131, 132,
133, 135, 300, 155, 154, 153, 152, 151, 150, 148,
149, 144, 145, 146, 147, 143, 142, 140, 141, 137,
138, 139, 136, 134, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 135, 189, 155, 154,
153, 152, 151, 150, 148, 149, 144, 145, 146, 147,
143, 142, 140, 141, 137, 138, 139, 136, 134, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 122,
123, 124, 125, 126, 127, 128, 129, 130, 131, 132,
133, 135, 188, 155, 154, 153, 152, 151, 150, 148,
149, 144, 145, 146, 147, 143, 142, 140, 141, 137,
138, 139, 136, 134, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 135, 187, 155, 154,
153, 152, 151, 150, 148, 149, 144, 145, 146, 147,
143, 142, 140, 141, 137, 138, 139, 136, 134, 0,
86, 0, 0, 0, 0, 0, 0, 385, 0, 0,
89, 0, 0, 0, 0, 0, 0, 0, 0, 0,
91, 81, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 121, 0, 0, 0, 0, 0, 0, 0,
0, 0, 87, 88, 85, 122, 123, 124, 125, 126,
127, 128, 129, 130, 131, 132, 133, 135, 76, 155,
154, 153, 152, 151, 150, 148, 149, 144, 145, 146,
147, 143, 142, 140, 141, 137, 138, 139, 136, 134,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 122, 123,
124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
135, 575, 155, 154, 153, 152, 151, 150, 148, 149,
144, 145, 146, 147, 143, 142, 140, 141, 137, 138,
139, 136, 134, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 122, 123, 124, 125, 126, 127, 128, 129, 130,
131, 132, 133, 135, 516, 155, 154, 153, 152, 151,
150, 148, 149, 144, 145, 146, 147, 143, 142, 140,
141, 137, 138, 139, 136, 134, 0, 0, 0, 122,
123, 124, 125, 126, 127, 128, 129, 130, 131, 132,
133, 135, 489, 155, 154, 153, 152, 151, 150, 148,
149, 144, 145, 146, 147, 143, 142, 140, 141, 137,
138, 139, 136, 134, 0, 0, 0, 337, 122, 123,
124, 125, 126, 127, 128, 129, 130, 131, 132, 133,
135, 0, 155, 154, 153, 152, 151, 150, 148, 149,
144, 145, 146, 147, 143, 142, 140, 141, 137, 138,
139, 136, 134, 0, 0, 0, 332, 122, 123, 124,
125, 126, 127, 128, 129, 130, 131, 132, 133, 135,
0, 155, 154, 153, 152, 151, 150, 148, 149, 144,
145, 146, 147, 143, 142, 140, 141, 137, 138, 139,
136, 134, 0, 511, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 135, 0, 155, 154,
153, 152, 151, 150, 148, 149, 144, 145, 146, 147,
143, 142, 140, 141, 137, 138, 139, 136, 134, 0,
454, 122, 123, 124, 125, 126, 127, 128, 129, 130,
131, 132, 133, 135, 0, 155, 154, 153, 152, 151,
150, 148, 149, 144, 145, 146, 147, 143, 142, 140,
141, 137, 138, 139, 136, 134, 155, 154, 153, 152,
151, 150, 148, 149, 144, 145, 146, 147, 143, 142,
140, 141, 137, 138, 139, 136, 134
};
short yypact[] =
{
351,-1000, 319, 373,-1000, 168,-1000,-1000, 163, 152,
645, 623, 8, 253, 470,-1000, 464, 541,-1000, 287,
-36, 141,-1000,-1000,-1000,-1000,-1000,1585,1585,1585,
1585, 234, 579, 138, 815, 383, 350, 0, 460, 382,
-1000, 319, 16,-1000,-1000,-1000, 345,-1000,2270,-1000,
343, 494, 776, 776, 776, 776, 776, 776, 776, 776,
776, 776, 776, 776, 776, 527, 500, 518, 776, 162,
776,-1000,1585,-1000,-1000,-1000, 576,2215,2160,2105,
365,-1000,-1000,-1000, 234, 499, 234, 498, 491, 541,
-1000, 543,-1000,-1000, 234,1585, 267,1585, 129, 228,
541, 268, 293, 541, 227, 234, 559, 558, -37,-1000,
446, 7, -38,-1000,-1000,-1000, 523,-1000, 287,-1000,
373,-1000,1585,1585,1585,1585,1585,1585,1585,1585,
1585,1585,1585,1585,1530,1585,1585,1585,1585,1585,
1585,1585,1585,1585,1585,1585,1585,1585,1585,1585,
1585,1585,1585,1585,1585,1585,1585,1585, 338, 381,
675,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
-1000,-1000,-1000,-1000,-1000,-1000,1463, 281, 222, 234,
1585,-1000,-1000,-1000, 15,2647,1585,-1000,-1000,-1000,
-1000,1585, 334, 333, 377, 234, 13, 377, 234, 234,
571, 565, 305,2050,-1000,1585,1995,-1000, 234, 640,
93,-1000,-1000, 147, 287,-1000,-1000, 319, 377,-1000,
-1000, 352, 918, 918, 240,-1000,-1000,-1000, 373,2647,
2647,2647,2647,2647,2647,2647,2647,2647,2647,2647,
2647,1585, 585,2647, 583, 583, 583, 583, 596, 596,
542, 542, 637, 637, 637, 637,1953,1953,1900,1846,
1792,1739,1739,1685,2668, 553, -39,-1000, 379, 520,
444, -40,2647,-1000, 776, 516, 489, 234,2534, 484,
776,1585, 377,2495,-1000,1585, 914,1940, 526, 519,
377,-1000, 234, 377, 377, 383, 12, 377, 234,-1000,
-1000,1885,-1000, 11, 140,-1000, 634, 218,1188,-1000,
-1000, 5, 195,-1000, 243, 550,-1000, 377,-1000,2271,
377,-1000,-1000,-1000,2647,-1000,-1000,1585, 675, 922,
716, 377, 482, 217,-1000, 194, -59, 476,2647,1585,
-1000,-1000, 565, 565, 377,-1000, 404,-1000, 377,-1000,
125,-1000,-1000, 425, 114,-1000, 113,-1000, 319,-1000,
-1000,-1000, 421, 46,-1000, 2, 110, 570, -19, 324,
324,1585,1585,1585, 104,1585,2647, 162,1118,-1000,
-1000, 319,-1000,-1000,-1000, 234,-1000, 377, 509, 508,
2647, 776, 377, 377, 325, 620,-1000,1585, 234,2610,
6, 1, 377, 234,-1000, 156,-1000, -23,-1000,-1000,
-1000, 416, 215, 192, 230,-1000,-1000,-1000,1048, 569,
234,-1000,1585, 567, 561,1396,1585, 208, 320, 101,
-1000, 98, 88,1830, 50,-1000, 4,-1000,-1000, 295,
-1000,-1000,-1000,-1000, 377, 620, 191, -62,-1000,2457,
451, 776,-1000, 377,-1000,-1000,-1000, 377, 202, 234,
1585,-1000, 207, 449, 335, 198, 978, 396,1585, 256,
2573,1585,1585, 22, 405,2404, 620, 619,-1000,-1000,
-1000,-1000,-1000,-1000, 284,-1000, 190,-1000, 620,1585,
620,1585,-1000, 137,1775, 319,1585, 234, 121, 187,
636,-1000, 239, 298,-1000, 634,-1000, 311, -4,-1000,
1585,1396, 49, 549, 544,-1000, 620, 186,-1000, 422,
2457,1585,-1000,-1000,2647,-1000,2647,-1000,-1000, 183,
1720, 111,-1000,-1000, 303, 296,-1000, 290, 107, 115,
-1000,-1000,1665, 466,1585,1396,1585, 181,-1000, 414,
-1000,1327,-1000,2351,-1000,-1000,-1000, 238, 384,-1000,
210,-1000,-1000, 620,-1000,1396, 48,-1000, 548,-1000,
1327,-1000, 412, 46,2457, 465,-1000,-1000, 175,-1000,
403,-1000,1585, 47, 400,-1000, 108,-1000, 398,-1000,
-1000,-1000,-1000,1327,-1000, 546,-1000,-1000,-1000,1258,
-1000, 465, 395,1396, 286, 46, 162, 776,-1000,-1000,
-1000,-1000
};
short yypgo[] =
{
0, 570, 753, 752, 33, 24, 417, 15, 14, 46,
751, 749, 746, 32, 745, 731, 27, 730, 16, 4,
729, 99, 8, 0, 21, 34, 13, 728, 727, 93,
25, 69, 35, 12, 726, 11, 2, 38, 41, 22,
725, 724, 3, 7, 723, 722, 720, 715, 712, 20,
711, 706, 705, 10, 704, 700, 699, 1, 698, 697,
696, 6, 5, 694, 693, 691, 19, 23, 690, 9,
682, 18, 660, 656, 17, 651, 645, 643
};
short yyr1[] =
{
0, 76, 75, 75, 38, 38, 39, 39, 39, 39,
39, 39, 39, 39, 39, 39, 39, 30, 30, 37,
37, 37, 37, 37, 37, 37, 66, 66, 48, 51,
51, 51, 50, 50, 50, 50, 50, 49, 49, 73,
73, 53, 53, 53, 52, 52, 52, 62, 62, 61,
61, 60, 58, 58, 58, 59, 59, 59, 19, 20,
20, 9, 10, 10, 6, 6, 74, 74, 74, 74,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 7, 7, 8, 8, 13, 13, 21, 21,
2, 2, 2, 3, 3, 4, 4, 14, 14, 15,
15, 16, 16, 16, 16, 11, 12, 12, 12, 12,
5, 5, 5, 5, 40, 67, 67, 67, 41, 41,
41, 54, 54, 43, 43, 43, 77, 77, 42, 42,
42, 42, 42, 42, 42, 42, 42, 42, 42, 42,
42, 42, 42, 42, 42, 42, 42, 42, 42, 42,
17, 17, 18, 18, 44, 45, 45, 46, 47, 47,
63, 64, 64, 36, 36, 36, 36, 36, 55, 56,
56, 57, 57, 57, 57, 22, 22, 23, 23, 23,
23, 23, 23, 23, 23, 23, 23, 23, 23, 23,
23, 23, 23, 23, 23, 23, 23, 23, 23, 23,
23, 23, 23, 23, 23, 23, 23, 23, 23, 23,
23, 23, 23, 23, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 24, 25, 25,
25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
25, 29, 29, 31, 72, 72, 71, 71, 70, 70,
70, 70, 65, 65, 32, 32, 32, 32, 27, 27,
28, 28, 26, 26, 33, 33, 34, 34, 35, 35,
69, 68, 68
};
short yyr2[] =
{
0, 0, 5, 1, 1, 2, 2, 1, 1, 2,
2, 4, 4, 4, 4, 4, 6, 1, 3, 3,
5, 5, 4, 6, 5, 1, 4, 7, 6, 0,
2, 1, 4, 2, 5, 5, 1, 8, 11, 0,
4, 0, 2, 1, 1, 1, 5, 0, 2, 5,
4, 4, 2, 2, 1, 2, 4, 4, 1, 1,
3, 1, 1, 3, 6, 4, 1, 2, 3, 4,
1, 1, 1, 3, 6, 2, 3, 3, 3, 3,
4, 1, 1, 4, 3, 6, 1, 3, 0, 3,
3, 3, 5, 1, 3, 1, 5, 0, 1, 1,
3, 3, 3, 3, 3, 1, 1, 1, 3, 3,
2, 3, 2, 3, 4, 4, 2, 0, 3, 2,
4, 2, 4, 0, 2, 2, 3, 5, 2, 2,
4, 3, 4, 6, 2, 5, 7, 10, 6, 8,
3, 3, 3, 3, 3, 6, 5, 8, 2, 8,
0, 2, 0, 1, 2, 2, 4, 2, 2, 4,
2, 2, 4, 1, 3, 1, 3, 1, 2, 2,
4, 1, 1, 3, 1, 0, 1, 1, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
4, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 1, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 6, 8,
7, 5, 3, 6, 4, 2, 2, 2, 1, 4,
3, 3, 3, 4, 6, 2, 2, 1, 1, 1,
6, 1, 1, 3, 1, 3, 1, 1, 1, 3,
3, 2, 1, 0, 1, 1, 3, 3, 0, 1,
1, 2, 1, 3, 1, 2, 1, 3, 1, 3,
2, 2, 4
};
short yychk[] =
{
-1000, -75, 73, -38, -39, 2, -37, -40, -49, -48,
-29, -31, -30, 75, -9, -66, -54, 59, 63, 39,
-10, -9, 59, -39, 72, 72, 72, 4, 16, 4,
16, 50, 99, 61, 50, -4, 54, -3, -2, 39,
-21, 41, -32, -31, -29, 59, 99, 72, -23, -24,
17, -25, 32, 33, 64, 65, 34, 43, 44, 38,
67, 68, 66, 46, 69, 81, 82, 83, 60, 59,
-6, -29, 39, 61, 58, 57, 97, -23, -23, -23,
-1, 60, -7, -8, 46, 83, 39, 81, 82, 49,
-6, 59, -31, 72, 77, 74, -1, 76, 51, 78,
80, -67, 52, 59, 87, 50, -14, 34, -15, -16,
-11, -30, -12, -31, 59, 63, -9, 40, 99, 59,
-76, 72, 4, 5, 6, 7, 8, 9, 10, 11,
12, 13, 14, 15, 38, 16, 37, 34, 35, 36,
32, 33, 31, 30, 26, 27, 28, 29, 24, 25,
23, 22, 21, 20, 19, 18, 59, 39, 54, 53,
41, 43, 44, -24, -24, -24, -24, -24, -24, -24,
-24, -24, -24, -24, -24, -24, 41, 45, 45, 45,
41, -24, -24, -24, -26, -23, 39, 72, 72, 72,
72, 4, 53, 54, -1, 45, -13, -1, 45, 45,
-21, 41, -1, -23, 72, 4, -23, 72, 39, 70,
-21, -41, 70, 2, 39, -29, -21, 70, -1, 40,
40, 99, 50, 50, 99, 42, -31, -29, -38, -23,
-23, -23, -23, -23, -23, -23, -23, -23, -23, -23,
-23, 4, -23, -23, -23, -23, -23, -23, -23, -23,
-23, -23, -23, -23, -23, -23, -23, -23, -23, -23,
-23, -23, -23, -23, -23, -27, -26, 59, -25, -71,
-22, -72, -23, -70, 60, 81, 82, 79, -23, 42,
60, 70, -1, -23, 40, 99, -23, -23, 59, 59,
-1, 40, 99, -1, -1, -4, -74, -1, 79, 72,
72, -23, 72, -13, -51, 2, 70, 87, -43, 71,
70, -32, -69, -68, -9, 34, -16, -1, -5, 84,
-1, -5, 59, 63, -23, 40, 42, 50, 99, 45,
45, -1, 42, 45, -24, -28, -26, 42, -23, 99,
40, 72, 41, 41, -1, -67, 99, 42, -1, 72,
40, 71, -50, -9, -49, -66, -53, 2, 70, 71,
-37, -42, -9, 2, 70, -77, -22, 47, -17, 88,
92, 93, 95, 96, 94, 39, -23, 59, -43, 40,
71, -62, 62, 40, -7, 46, -8, -1, -22, -71,
-23, 60, -1, -1, 45, 70, 71, 99, 45, -23,
-74, -74, -1, 79, 72, 50, 72, 71, -52, -61,
-60, -9, 91, -69, 50, 72, 71, 70, -43, 99,
50, 72, 39, 87, 86, 85, 90, 89, 91, -18,
59, -18, -22, -23, -22, 72, -26, 71, -61, -9,
-7, -8, 42, 42, -1, 70, -33, -34, -35, -23,
-36, 34, 2, -1, 40, 42, 42, -1, -1, 77,
76, -73, 87, 50, 70, 71, -43, 71, 39, -1,
-23, 39, 39, -42, -9, -23, 70, 59, 72, 72,
72, 72, 72, 40, 50, 62, -33, 71, 99, 55,
56, 62, 72, -1, -23, 70, 76, 79, -1, -58,
-59, 2, -19, -20, 59, 70, 71, 51, -26, 72,
4, 40, -22, -22, 86, 50, 70, -44, -45, -36,
-23, 16, 71, -35, -23, -36, -23, 72, 72, -69,
-23, -1, 72, 71, -62, 2, 62, 56, -53, -65,
59, 40, -23, -42, 72, 40, 39, -46, -47, -36,
71, -43, 62, -23, 71, 72, 72, -19, -9, 59,
-19, 59, 71, 70, 72, 48, -22, -42, -22, 71,
-43, 62, -36, 2, -23, 70, 62, 62, -63, -64,
-36, -42, 72, 40, -36, 62, -55, -56, -57, 59,
34, 2, 71, -43, 62, -22, 72, 62, 71, -43,
62, 56, -36, 40, -57, 2, 59, 34, -57, 62,
-42, 62
};
short yydef[] =
{
0, -2, 0, -2, 4, 0, 7, 8, 0, 0,
0, 17, 0, 0, 0, 25, 0, -2, 252, 0,
61, 0, 62, 5, 6, 9, 10, 0, 0, 0,
0, 0, 0, 0, 0, 117, 0, 95, 93, 97,
121, 0, 0, 264, 265, 251, 0, 1, 0, 177,
0, 214, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 251,
0, 238, 0, 247, 248, 249, 0, 0, 0, 0,
0, 70, 71, 72, 0, 0, 0, 0, 0, 88,
81, 82, 18, 19, 0, 0, 0, 0, 0, 0,
88, 0, 0, 88, 0, 0, 0, 0, 98, 99,
0, 0, 105, 17, 106, 107, 0, 253, 0, 63,
0, 11, 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, 268, 0, 0,
175, 245, 246, 215, 216, 217, 218, 219, 220, 221,
222, 223, 224, 225, 226, 227, 0, 0, 0, 0,
0, 235, 236, 237, 0, 272, 0, 13, 12, 14,
15, 0, 0, 0, 75, 0, 0, 86, 0, 0,
0, 0, 0, 0, 22, 0, 0, 26, 0, -2,
0, 114, 123, 0, 0, 116, 122, 0, 94, 90,
91, 0, 0, 0, 0, 89, 266, 267, -2, 178,
179, 180, 181, 182, 183, 184, 185, 186, 187, 188,
189, 0, 191, 192, 194, 195, 196, 197, 198, 199,
200, 201, 202, 203, 204, 205, 206, 207, 208, 209,
210, 211, 212, 213, 193, 0, 269, 241, 242, 254,
0, 0, -2, 257, 258, 0, 0, 0, 0, 0,
0, 0, 232, 0, 240, 0, 0, 0, 73, 84,
76, 77, 0, 78, 79, 117, 0, 66, 0, 20,
21, 0, 24, 0, 0, 31, -2, 0, -2, 119,
123, 0, 0, 47, 0, 0, 100, 101, 102, 0,
103, 104, 108, 109, 190, 239, 243, 175, 0, 0,
0, 261, 0, 0, 234, 0, 270, 0, 273, 0,
65, 16, 0, 0, 87, 80, 0, 83, 67, 23,
0, 28, 30, 0, 0, 36, 0, 43, 0, 118,
124, 125, 0, 0, 123, 0, 0, 0, 0, 152,
152, 175, 0, 175, 0, 0, 176, -2, -2, 115,
96, 280, 281, 92, -2, 0, -2, 0, 0, 255,
256, 70, 259, 260, 0, 0, 231, 271, 0, 0,
0, 0, 68, 0, 27, 0, 33, 39, 42, 44,
45, 0, 0, 0, 151, 128, 129, 123, -2, 0,
0, 134, 0, 0, 0, -2, 0, 0, 0, 0,
153, 0, 0, 0, 0, 148, 0, 120, 48, 0,
-2, -2, 244, 250, 228, 0, 0, 274, 276, -2,
0, 165, 167, 233, 64, 74, 85, 69, 0, 0,
0, 37, 0, 0, 0, 0, -2, 131, 0, 0,
0, 175, 175, 0, 0, 0, 0, 0, 140, 141,
142, 143, 144, -2, 0, 282, 0, 230, -2, 0,
0, 0, 32, 0, 0, 0, 0, 0, 0, 0,
-2, 54, 0, 58, 59, -2, 130, 263, 0, 132,
0, -2, 0, 0, 0, 151, 0, 0, 123, 0,
163, 0, 229, 277, 164, 166, 279, 34, 35, 0,
0, 0, 50, 51, 52, 53, 55, 0, 0, 0,
262, 127, 0, 135, 175, -2, 175, 0, 123, 0,
146, -2, 155, 0, 40, 46, 49, 0, 0, -2,
0, 60, 38, 0, 133, -2, 0, 138, 0, 145,
-2, 158, 0, 167, -2, 0, 56, 57, 0, 123,
0, 136, 175, 0, 0, 156, 0, 123, 0, 171,
172, 174, 149, -2, 161, 0, 139, 159, 147, -2,
169, 0, 0, -2, 0, 174, -2, 172, 173, 162,
137, 170
};
short yytok1[] =
{
1, 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, 64, 0, 0, 0, 36, 23, 0,
39, 40, 34, 32, 99, 33, 54, 35, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 50, 72,
26, 4, 27, 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, 41, 0, 42, 22, 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, 70, 21, 71, 65
};
short yytok2[] =
{
2, 3, 5, 6, 7, 8, 9, 10, 11, 12,
13, 14, 15, 16, 17, 18, 19, 20, 24, 25,
28, 29, 30, 31, 37, 38, 43, 44, 45, 46,
47, 48, 49, 51, 52, 53, 55, 56, 57, 58,
59, 60, 61, 62, 63, 66, 67, 68, 69, 73,
74, 75, 76, 77, 78, 79, 80, 81, 82, 83,
84, 85, 86, 87, 88, 89, 90, 91, 92, 93,
94, 95, 96, 97, 98
};
long yytok3[] =
{
0
};
#define YYFLAG -1000
#define yyclearin yychar = -1
#define yyerrok yyerrflag = 0
#ifdef yydebug
#include "y.debug"
#else
#define yydebug 0
char* yytoknames[1]; /* for debugging */
char* yystates[1]; /* for debugging */
#endif
/* parser for yacc output */
int yynerrs = 0; /* number of errors */
int yyerrflag = 0; /* error recovery flag */
extern int fprint(int, char*, ...);
extern int sprint(char*, char*, ...);
char*
yytokname(int yyc)
{
static char x[16];
if(yyc > 0 && yyc <= sizeof(yytoknames)/sizeof(yytoknames[0]))
if(yytoknames[yyc-1])
return yytoknames[yyc-1];
sprint(x, "<%d>", yyc);
return x;
}
char*
yystatname(int yys)
{
static char x[16];
if(yys >= 0 && yys < sizeof(yystates)/sizeof(yystates[0]))
if(yystates[yys])
return yystates[yys];
sprint(x, "<%d>\n", yys);
return x;
}
long
yylex1(void)
{
long yychar;
long *t3p;
int c;
yychar = yylex();
if(yychar <= 0) {
c = yytok1[0];
goto out;
}
if(yychar < sizeof(yytok1)/sizeof(yytok1[0])) {
c = yytok1[yychar];
goto out;
}
if(yychar >= YYPRIVATE)
if(yychar < YYPRIVATE+sizeof(yytok2)/sizeof(yytok2[0])) {
c = yytok2[yychar-YYPRIVATE];
goto out;
}
for(t3p=yytok3;; t3p+=2) {
c = t3p[0];
if(c == yychar) {
c = t3p[1];
goto out;
}
if(c == 0)
break;
}
c = 0;
out:
if(c == 0)
c = yytok2[1]; /* unknown char */
if(yydebug >= 3)
fprint(2, "lex %.4lux %s\n", yychar, yytokname(c));
return c;
}
int
yyparse(void)
{
struct
{
YYSTYPE yyv;
int yys;
} yys[YYMAXDEPTH], *yyp, *yypt;
short *yyxi;
int yyj, yym, yystate, yyn, yyg;
long yychar;
YYSTYPE save1, save2;
int save3, save4;
save1 = yylval;
save2 = yyval;
save3 = yynerrs;
save4 = yyerrflag;
yystate = 0;
yychar = -1;
yynerrs = 0;
yyerrflag = 0;
yyp = &yys[-1];
goto yystack;
ret0:
yyn = 0;
goto ret;
ret1:
yyn = 1;
goto ret;
ret:
yylval = save1;
yyval = save2;
yynerrs = save3;
yyerrflag = save4;
return yyn;
yystack:
/* put a state and value onto the stack */
if(yydebug >= 4)
fprint(2, "char %s in %s", yytokname(yychar), yystatname(yystate));
yyp++;
if(yyp >= &yys[YYMAXDEPTH]) {
yyerror("yacc stack overflow");
goto ret1;
}
yyp->yys = yystate;
yyp->yyv = yyval;
yynewstate:
yyn = yypact[yystate];
if(yyn <= YYFLAG)
goto yydefault; /* simple state */
if(yychar < 0)
yychar = yylex1();
yyn += yychar;
if(yyn < 0 || yyn >= YYLAST)
goto yydefault;
yyn = yyact[yyn];
if(yychk[yyn] == yychar) { /* valid shift */
yychar = -1;
yyval = yylval;
yystate = yyn;
if(yyerrflag > 0)
yyerrflag--;
goto yystack;
}
yydefault:
/* default state action */
yyn = yydef[yystate];
if(yyn == -2) {
if(yychar < 0)
yychar = yylex1();
/* look through exception table */
for(yyxi=yyexca;; yyxi+=2)
if(yyxi[0] == -1 && yyxi[1] == yystate)
break;
for(yyxi += 2;; yyxi += 2) {
yyn = yyxi[0];
if(yyn < 0 || yyn == yychar)
break;
}
yyn = yyxi[1];
if(yyn < 0)
goto ret0;
}
if(yyn == 0) {
/* error ... attempt to resume parsing */
switch(yyerrflag) {
case 0: /* brand new error */
yyerror("syntax error");
yynerrs++;
if(yydebug >= 1) {
fprint(2, "%s", yystatname(yystate));
fprint(2, "saw %s\n", yytokname(yychar));
}
case 1:
case 2: /* incompletely recovered error ... try again */
yyerrflag = 3;
/* find a state where "error" is a legal shift action */
while(yyp >= yys) {
yyn = yypact[yyp->yys] + YYERRCODE;
if(yyn >= 0 && yyn < YYLAST) {
yystate = yyact[yyn]; /* simulate a shift of "error" */
if(yychk[yystate] == YYERRCODE)
goto yystack;
}
/* the current yyp has no shift onn "error", pop stack */
if(yydebug >= 2)
fprint(2, "error recovery pops state %d, uncovers %d\n",
yyp->yys, (yyp-1)->yys );
yyp--;
}
/* there is no state on the stack with an error shift ... abort */
goto ret1;
case 3: /* no shift yet; clobber input char */
if(yydebug >= 2)
fprint(2, "error recovery discards %s\n", yytokname(yychar));
if(yychar == YYEOFCODE)
goto ret1;
yychar = -1;
goto yynewstate; /* try again in the same state */
}
}
/* reduction by production yyn */
if(yydebug >= 2)
fprint(2, "reduce %d in:\n\t%s", yyn, yystatname(yystate));
yypt = yyp;
yyp -= yyr2[yyn];
yyval = (yyp+1)->yyv;
yym = yyn;
/* consult goto table to find next state */
yyn = yyr1[yyn];
yyg = yypgo[yyn];
yyj = yyg + yyp->yys + 1;
if(yyj >= YYLAST || yychk[yystate=yyact[yyj]] != -yyn)
yystate = yyact[yyg];
switch(yym) {
case 1:
#line 74 "limbo.y"
{
impmods = yypt[-1].yyv.ids;
} break;
case 2:
#line 77 "limbo.y"
{
tree = rotater(yypt[-0].yyv.node);
} break;
case 3:
#line 81 "limbo.y"
{
impmods = nil;
tree = rotater(yypt[-0].yyv.node);
} break;
case 5:
#line 89 "limbo.y"
{
if(yypt[-1].yyv.node == nil)
yyval.node = yypt[-0].yyv.node;
else if(yypt[-0].yyv.node == nil)
yyval.node = yypt[-1].yyv.node;
else
yyval.node = mkbin(Oseq, yypt[-1].yyv.node, yypt[-0].yyv.node);
} break;
case 6:
#line 100 "limbo.y"
{
yyval.node = nil;
} break;
case 11:
#line 108 "limbo.y"
{
yyval.node = mkbin(Oas, yypt[-3].yyv.node, yypt[-1].yyv.node);
} break;
case 12:
#line 112 "limbo.y"
{
yyval.node = mkbin(Oas, yypt[-3].yyv.node, yypt[-1].yyv.node);
} break;
case 13:
#line 116 "limbo.y"
{
yyval.node = mkbin(Odas, yypt[-3].yyv.node, yypt[-1].yyv.node);
} break;
case 14:
#line 120 "limbo.y"
{
yyval.node = mkbin(Odas, yypt[-3].yyv.node, yypt[-1].yyv.node);
} break;
case 15:
#line 124 "limbo.y"
{
yyerror("illegal declaration");
yyval.node = nil;
} break;
case 16:
#line 129 "limbo.y"
{
yyerror("illegal declaration");
yyval.node = nil;
} break;
case 18:
#line 137 "limbo.y"
{
yyval.node = mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 19:
#line 143 "limbo.y"
{
includef(yypt[-1].yyv.tok.v.idval);
yyval.node = nil;
} break;
case 20:
#line 148 "limbo.y"
{
yyval.node = typedecl(yypt[-4].yyv.ids, yypt[-1].yyv.type);
} break;
case 21:
#line 152 "limbo.y"
{
yyval.node = importdecl(yypt[-1].yyv.node, yypt[-4].yyv.ids);
yyval.node->src.start = yypt[-4].yyv.ids->src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 22:
#line 158 "limbo.y"
{
yyval.node = vardecl(yypt[-3].yyv.ids, yypt[-1].yyv.type);
} break;
case 23:
#line 162 "limbo.y"
{
yyval.node = mkbin(Ovardecli, vardecl(yypt[-5].yyv.ids, yypt[-3].yyv.type), varinit(yypt[-5].yyv.ids, yypt[-1].yyv.node));
} break;
case 24:
#line 166 "limbo.y"
{
yyval.node = condecl(yypt[-4].yyv.ids, yypt[-1].yyv.node);
} break;
case 26:
#line 173 "limbo.y"
{
yyval.node = exdecl(yypt[-3].yyv.ids, nil);
} break;
case 27:
#line 177 "limbo.y"
{
yyval.node = exdecl(yypt[-6].yyv.ids, revids(yypt[-2].yyv.ids));
} break;
case 28:
#line 183 "limbo.y"
{
yypt[-5].yyv.ids->src.stop = yypt[-0].yyv.tok.src.stop;
yyval.node = moddecl(yypt[-5].yyv.ids, rotater(yypt[-1].yyv.node));
} break;
case 29:
#line 190 "limbo.y"
{
yyval.node = nil;
} break;
case 30:
#line 194 "limbo.y"
{
if(yypt[-1].yyv.node == nil)
yyval.node = yypt[-0].yyv.node;
else if(yypt[-0].yyv.node == nil)
yyval.node = yypt[-1].yyv.node;
else
yyval.node = mkn(Oseq, yypt[-1].yyv.node, yypt[-0].yyv.node);
} break;
case 31:
#line 203 "limbo.y"
{
yyval.node = nil;
} break;
case 32:
#line 209 "limbo.y"
{
yyval.node = fielddecl(Dglobal, typeids(yypt[-3].yyv.ids, yypt[-1].yyv.type));
} break;
case 34:
#line 214 "limbo.y"
{
yyval.node = typedecl(yypt[-4].yyv.ids, yypt[-1].yyv.type);
} break;
case 35:
#line 218 "limbo.y"
{
yyval.node = condecl(yypt[-4].yyv.ids, yypt[-1].yyv.node);
} break;
case 37:
#line 225 "limbo.y"
{
yypt[-7].yyv.ids->src.stop = yypt[-1].yyv.tok.src.stop;
yyval.node = adtdecl(yypt[-7].yyv.ids, rotater(yypt[-2].yyv.node));
yyval.node->ty->polys = yypt[-4].yyv.ids;
yyval.node->ty->val = rotater(yypt[-0].yyv.node);
} break;
case 38:
#line 232 "limbo.y"
{
yypt[-10].yyv.ids->src.stop = yypt[-0].yyv.tok.src.stop;
yyval.node = adtdecl(yypt[-10].yyv.ids, rotater(yypt[-1].yyv.node));
yyval.node->ty->polys = yypt[-7].yyv.ids;
yyval.node->ty->val = rotater(yypt[-4].yyv.node);
} break;
case 39:
#line 241 "limbo.y"
{
yyval.node = nil;
} break;
case 40:
#line 245 "limbo.y"
{
yyval.node = yypt[-1].yyv.node;
} break;
case 41:
#line 251 "limbo.y"
{
yyval.node = nil;
} break;
case 42:
#line 255 "limbo.y"
{
if(yypt[-1].yyv.node == nil)
yyval.node = yypt[-0].yyv.node;
else if(yypt[-0].yyv.node == nil)
yyval.node = yypt[-1].yyv.node;
else
yyval.node = mkn(Oseq, yypt[-1].yyv.node, yypt[-0].yyv.node);
} break;
case 43:
#line 264 "limbo.y"
{
yyval.node = nil;
} break;
case 46:
#line 272 "limbo.y"
{
yyval.node = condecl(yypt[-4].yyv.ids, yypt[-1].yyv.node);
} break;
case 47:
#line 278 "limbo.y"
{
yyval.node = nil;
} break;
case 48:
#line 282 "limbo.y"
{
if(yypt[-1].yyv.node == nil)
yyval.node = yypt[-0].yyv.node;
else if(yypt[-0].yyv.node == nil)
yyval.node = yypt[-1].yyv.node;
else
yyval.node = mkn(Oseq, yypt[-1].yyv.node, yypt[-0].yyv.node);
} break;
case 49:
#line 293 "limbo.y"
{
Decl *d;
for(d = yypt[-4].yyv.ids; d != nil; d = d->next)
d->cyc = 1;
yyval.node = fielddecl(Dfield, typeids(yypt[-4].yyv.ids, yypt[-1].yyv.type));
} break;
case 50:
#line 301 "limbo.y"
{
yyval.node = fielddecl(Dfield, typeids(yypt[-3].yyv.ids, yypt[-1].yyv.type));
} break;
case 51:
#line 307 "limbo.y"
{
yyval.node = yypt[-1].yyv.node;
} break;
case 52:
#line 313 "limbo.y"
{
yypt[-1].yyv.node->right->right = yypt[-0].yyv.node;
yyval.node = yypt[-1].yyv.node;
} break;
case 53:
#line 318 "limbo.y"
{
yyval.node = nil;
} break;
case 54:
#line 322 "limbo.y"
{
yyval.node = nil;
} break;
case 55:
#line 328 "limbo.y"
{
yyval.node = mkn(Opickdecl, nil, mkn(Oseq, fielddecl(Dtag, yypt[-1].yyv.ids), nil));
typeids(yypt[-1].yyv.ids, mktype(&yypt[-1].yyv.ids->src.start, &yypt[-1].yyv.ids->src.stop, Tadtpick, nil, nil));
} break;
case 56:
#line 333 "limbo.y"
{
yypt[-3].yyv.node->right->right = yypt[-2].yyv.node;
yyval.node = mkn(Opickdecl, yypt[-3].yyv.node, mkn(Oseq, fielddecl(Dtag, yypt[-1].yyv.ids), nil));
typeids(yypt[-1].yyv.ids, mktype(&yypt[-1].yyv.ids->src.start, &yypt[-1].yyv.ids->src.stop, Tadtpick, nil, nil));
} break;
case 57:
#line 339 "limbo.y"
{
yyval.node = mkn(Opickdecl, nil, mkn(Oseq, fielddecl(Dtag, yypt[-1].yyv.ids), nil));
typeids(yypt[-1].yyv.ids, mktype(&yypt[-1].yyv.ids->src.start, &yypt[-1].yyv.ids->src.stop, Tadtpick, nil, nil));
} break;
case 58:
#line 346 "limbo.y"
{
yyval.ids = revids(yypt[-0].yyv.ids);
} break;
case 59:
#line 352 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval, nil, nil);
} break;
case 60:
#line 356 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval, nil, yypt[-2].yyv.ids);
} break;
case 61:
#line 362 "limbo.y"
{
yyval.ids = revids(yypt[-0].yyv.ids);
} break;
case 62:
#line 368 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval, nil, nil);
} break;
case 63:
#line 372 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval, nil, yypt[-2].yyv.ids);
} break;
case 64:
#line 378 "limbo.y"
{
yyval.type = mktype(&yypt[-5].yyv.tok.src.start, &yypt[-0].yyv.tok.src.stop, Tfix, nil, nil);
yyval.type->val = mkbin(Oseq, yypt[-3].yyv.node, yypt[-1].yyv.node);
} break;
case 65:
#line 383 "limbo.y"
{
yyval.type = mktype(&yypt[-3].yyv.tok.src.start, &yypt[-0].yyv.tok.src.stop, Tfix, nil, nil);
yyval.type->val = yypt[-1].yyv.node;
} break;
case 66:
#line 390 "limbo.y"
{
yyval.types = addtype(yypt[-0].yyv.type, nil);
} break;
case 67:
#line 394 "limbo.y"
{
yyval.types = addtype(yypt[-0].yyv.type, nil);
yypt[-0].yyv.type->flags |= CYCLIC;
} break;
case 68:
#line 399 "limbo.y"
{
yyval.types = addtype(yypt[-0].yyv.type, yypt[-2].yyv.types);
} break;
case 69:
#line 403 "limbo.y"
{
yyval.types = addtype(yypt[-0].yyv.type, yypt[-3].yyv.types);
yypt[-0].yyv.type->flags |= CYCLIC;
} break;
case 70:
#line 410 "limbo.y"
{
yyval.type = mkidtype(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval);
} break;
case 71:
#line 414 "limbo.y"
{
yyval.type = yypt[-0].yyv.type;
} break;
case 72:
#line 418 "limbo.y"
{
yyval.type = yypt[-0].yyv.type;
} break;
case 73:
#line 422 "limbo.y"
{
yyval.type = mkarrowtype(&yypt[-2].yyv.type->src.start, &yypt[-0].yyv.tok.src.stop, yypt[-2].yyv.type, yypt[-0].yyv.tok.v.idval);
} break;
case 74:
#line 426 "limbo.y"
{
yyval.type = mkarrowtype(&yypt[-5].yyv.type->src.start, &yypt[-3].yyv.tok.src.stop, yypt[-5].yyv.type, yypt[-3].yyv.tok.v.idval);
yyval.type = mkinsttype(&yypt[-5].yyv.type->src, yyval.type, yypt[-1].yyv.types);
} break;
case 75:
#line 431 "limbo.y"
{
yyval.type = mktype(&yypt[-1].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tref, yypt[-0].yyv.type, nil);
} break;
case 76:
#line 435 "limbo.y"
{
yyval.type = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tchan, yypt[-0].yyv.type, nil);
} break;
case 77:
#line 439 "limbo.y"
{
if(yypt[-1].yyv.ids->next == nil)
yyval.type = yypt[-1].yyv.ids->ty;
else
yyval.type = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.tok.src.stop, Ttuple, nil, revids(yypt[-1].yyv.ids));
} break;
case 78:
#line 446 "limbo.y"
{
yyval.type = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tarray, yypt[-0].yyv.type, nil);
} break;
case 79:
#line 450 "limbo.y"
{
yyval.type = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tlist, yypt[-0].yyv.type, nil);
} break;
case 80:
#line 454 "limbo.y"
{
yypt[-1].yyv.type->src.start = yypt[-3].yyv.tok.src.start;
yypt[-1].yyv.type->polys = yypt[-2].yyv.ids;
yypt[-1].yyv.type->u.eraises = yypt[-0].yyv.node;
yyval.type = yypt[-1].yyv.type;
} break;
case 82:
#line 476 "limbo.y"
{
yyval.type = mkidtype(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval);
} break;
case 83:
#line 480 "limbo.y"
{
yyval.type = mkinsttype(&yypt[-3].yyv.tok.src, mkidtype(&yypt[-3].yyv.tok.src, yypt[-3].yyv.tok.v.idval), yypt[-1].yyv.types);
} break;
case 84:
#line 486 "limbo.y"
{
yyval.type = mkdottype(&yypt[-2].yyv.type->src.start, &yypt[-0].yyv.tok.src.stop, yypt[-2].yyv.type, yypt[-0].yyv.tok.v.idval);
} break;
case 85:
#line 490 "limbo.y"
{
yyval.type = mkdottype(&yypt[-5].yyv.type->src.start, &yypt[-3].yyv.tok.src.stop, yypt[-5].yyv.type, yypt[-3].yyv.tok.v.idval);
yyval.type = mkinsttype(&yypt[-5].yyv.type->src, yyval.type, yypt[-1].yyv.types);
} break;
case 86:
#line 497 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.type->src, nil, yypt[-0].yyv.type, nil);
} break;
case 87:
#line 501 "limbo.y"
{
yyval.ids = mkids(&yypt[-2].yyv.ids->src, nil, yypt[-0].yyv.type, yypt[-2].yyv.ids);
} break;
case 88:
#line 507 "limbo.y"
{
yyval.ids = nil;
} break;
case 89:
#line 511 "limbo.y"
{
yyval.ids = polydecl(yypt[-1].yyv.ids);
} break;
case 90:
#line 517 "limbo.y"
{
yyval.type = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.tok.src.stop, Tfn, tnone, yypt[-1].yyv.ids);
} break;
case 91:
#line 521 "limbo.y"
{
yyval.type = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.tok.src.stop, Tfn, tnone, nil);
yyval.type->varargs = 1;
} break;
case 92:
#line 526 "limbo.y"
{
yyval.type = mktype(&yypt[-4].yyv.tok.src.start, &yypt[-0].yyv.tok.src.stop, Tfn, tnone, yypt[-3].yyv.ids);
yyval.type->varargs = 1;
} break;
case 93:
#line 533 "limbo.y"
{
yyval.type = yypt[-0].yyv.type;
} break;
case 94:
#line 537 "limbo.y"
{
yypt[-2].yyv.type->tof = yypt[-0].yyv.type;
yypt[-2].yyv.type->src.stop = yypt[-0].yyv.type->src.stop;
yyval.type = yypt[-2].yyv.type;
} break;
case 95:
#line 545 "limbo.y"
{
yyval.type = yypt[-0].yyv.type;
} break;
case 96:
#line 549 "limbo.y"
{
yyval.type = yypt[-4].yyv.type;
yyval.type->val = rotater(yypt[-1].yyv.node);
} break;
case 97:
#line 556 "limbo.y"
{
yyval.ids = nil;
} break;
case 100:
#line 564 "limbo.y"
{
yyval.ids = appdecls(yypt[-2].yyv.ids, yypt[-0].yyv.ids);
} break;
case 101:
#line 570 "limbo.y"
{
yyval.ids = typeids(yypt[-2].yyv.ids, yypt[-0].yyv.type);
} break;
case 102:
#line 574 "limbo.y"
{
Decl *d;
yyval.ids = typeids(yypt[-2].yyv.ids, yypt[-0].yyv.type);
for(d = yyval.ids; d != nil; d = d->next)
d->implicit = 1;
} break;
case 103:
#line 582 "limbo.y"
{
yyval.ids = mkids(&yypt[-2].yyv.node->src, enter("junk", 0), yypt[-0].yyv.type, nil);
yyval.ids->store = Darg;
yyerror("illegal argument declaration");
} break;
case 104:
#line 588 "limbo.y"
{
yyval.ids = mkids(&yypt[-2].yyv.node->src, enter("junk", 0), yypt[-0].yyv.type, nil);
yyval.ids->store = Darg;
yyerror("illegal argument declaration");
} break;
case 105:
#line 596 "limbo.y"
{
yyval.ids = revids(yypt[-0].yyv.ids);
} break;
case 106:
#line 602 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval, nil, nil);
yyval.ids->store = Darg;
} break;
case 107:
#line 607 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, nil, nil, nil);
yyval.ids->store = Darg;
} break;
case 108:
#line 612 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval, nil, yypt[-2].yyv.ids);
yyval.ids->store = Darg;
} break;
case 109:
#line 617 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, nil, nil, yypt[-2].yyv.ids);
yyval.ids->store = Darg;
} break;
case 110:
#line 650 "limbo.y"
{
yyval.type = yypt[-0].yyv.type;
} break;
case 111:
#line 654 "limbo.y"
{
yyval.type = mktype(&yypt[-1].yyv.tok.src.start, &yypt[-0].yyv.tok.src.stop, Tref, yypt[-0].yyv.type, nil);
} break;
case 112:
#line 658 "limbo.y"
{
yyval.type = yypt[-0].yyv.type;
} break;
case 113:
#line 662 "limbo.y"
{
yyval.type = mktype(&yypt[-1].yyv.tok.src.start, &yypt[-0].yyv.tok.src.stop, Tref, yypt[-0].yyv.type, nil);
} break;
case 114:
#line 668 "limbo.y"
{
yyval.node = fndecl(yypt[-3].yyv.node, yypt[-2].yyv.type, yypt[-0].yyv.node);
nfns++;
/* patch up polydecs */
if(yypt[-3].yyv.node->op == Odot){
if(yypt[-3].yyv.node->right->left != nil){
yypt[-2].yyv.type->polys = yypt[-3].yyv.node->right->left->decl;
yypt[-3].yyv.node->right->left = nil;
}
if(yypt[-3].yyv.node->left->op == Oname && yypt[-3].yyv.node->left->left != nil){
yyval.node->decl = yypt[-3].yyv.node->left->left->decl;
yypt[-3].yyv.node->left->left = nil;
}
}
else{
if(yypt[-3].yyv.node->left != nil){
yypt[-2].yyv.type->polys = yypt[-3].yyv.node->left->decl;
yypt[-3].yyv.node->left = nil;
}
}
yypt[-2].yyv.type->u.eraises = yypt[-1].yyv.node;
yyval.node->src = yypt[-3].yyv.node->src;
} break;
case 115:
#line 694 "limbo.y"
{
yyval.node = mkn(Otuple, rotater(yypt[-1].yyv.node), nil);
yyval.node->src.start = yypt[-3].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 116:
#line 700 "limbo.y"
{
yyval.node = mkn(Otuple, mkunary(Oseq, yypt[-0].yyv.node), nil);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.node->src.stop;
} break;
case 117:
#line 706 "limbo.y"
{
yyval.node = nil;
} break;
case 118:
#line 712 "limbo.y"
{
if(yypt[-1].yyv.node == nil){
yypt[-1].yyv.node = mkn(Onothing, nil, nil);
yypt[-1].yyv.node->src.start = curline();
yypt[-1].yyv.node->src.stop = yypt[-1].yyv.node->src.start;
}
yyval.node = rotater(yypt[-1].yyv.node);
yyval.node->src.start = yypt[-2].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 119:
#line 723 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
} break;
case 120:
#line 727 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
} break;
case 121:
#line 733 "limbo.y"
{
yyval.node = mkname(&yypt[-1].yyv.tok.src, yypt[-1].yyv.tok.v.idval);
if(yypt[-0].yyv.ids != nil){
yyval.node->left = mkn(Onothing, nil ,nil);
yyval.node->left->decl = yypt[-0].yyv.ids;
}
} break;
case 122:
#line 741 "limbo.y"
{
yyval.node = mkbin(Odot, yypt[-3].yyv.node, mkname(&yypt[-1].yyv.tok.src, yypt[-1].yyv.tok.v.idval));
if(yypt[-0].yyv.ids != nil){
yyval.node->right->left = mkn(Onothing, nil ,nil);
yyval.node->right->left->decl = yypt[-0].yyv.ids;
}
} break;
case 123:
#line 751 "limbo.y"
{
yyval.node = nil;
} break;
case 124:
#line 755 "limbo.y"
{
if(yypt[-1].yyv.node == nil)
yyval.node = yypt[-0].yyv.node;
else if(yypt[-0].yyv.node == nil)
yyval.node = yypt[-1].yyv.node;
else
yyval.node = mkbin(Oseq, yypt[-1].yyv.node, yypt[-0].yyv.node);
} break;
case 125:
#line 764 "limbo.y"
{
if(yypt[-1].yyv.node == nil)
yyval.node = yypt[-0].yyv.node;
else
yyval.node = mkbin(Oseq, yypt[-1].yyv.node, yypt[-0].yyv.node);
} break;
case 128:
#line 777 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = curline();
yyval.node->src.stop = yyval.node->src.start;
} break;
case 129:
#line 783 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = curline();
yyval.node->src.stop = yyval.node->src.start;
} break;
case 130:
#line 789 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = curline();
yyval.node->src.stop = yyval.node->src.start;
} break;
case 131:
#line 795 "limbo.y"
{
if(yypt[-1].yyv.node == nil){
yypt[-1].yyv.node = mkn(Onothing, nil, nil);
yypt[-1].yyv.node->src.start = curline();
yypt[-1].yyv.node->src.stop = yypt[-1].yyv.node->src.start;
}
yyval.node = mkscope(rotater(yypt[-1].yyv.node));
} break;
case 132:
#line 804 "limbo.y"
{
yyerror("illegal declaration");
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = curline();
yyval.node->src.stop = yyval.node->src.start;
} break;
case 133:
#line 811 "limbo.y"
{
yyerror("illegal declaration");
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = curline();
yyval.node->src.stop = yyval.node->src.start;
} break;
case 134:
#line 818 "limbo.y"
{
yyval.node = yypt[-1].yyv.node;
} break;
case 135:
#line 822 "limbo.y"
{
yyval.node = mkn(Oif, yypt[-2].yyv.node, mkunary(Oseq, yypt[-0].yyv.node));
yyval.node->src.start = yypt[-4].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.node->src.stop;
} break;
case 136:
#line 828 "limbo.y"
{
yyval.node = mkn(Oif, yypt[-4].yyv.node, mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node));
yyval.node->src.start = yypt[-6].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.node->src.stop;
} break;
case 137:
#line 834 "limbo.y"
{
yyval.node = mkunary(Oseq, yypt[-0].yyv.node);
if(yypt[-2].yyv.node->op != Onothing)
yyval.node->right = yypt[-2].yyv.node;
yyval.node = mkbin(Ofor, yypt[-4].yyv.node, yyval.node);
yyval.node->decl = yypt[-9].yyv.ids;
if(yypt[-6].yyv.node->op != Onothing)
yyval.node = mkbin(Oseq, yypt[-6].yyv.node, yyval.node);
} break;
case 138:
#line 844 "limbo.y"
{
yyval.node = mkn(Ofor, yypt[-2].yyv.node, mkunary(Oseq, yypt[-0].yyv.node));
yyval.node->src.start = yypt[-4].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.node->src.stop;
yyval.node->decl = yypt[-5].yyv.ids;
} break;
case 139:
#line 851 "limbo.y"
{
yyval.node = mkn(Odo, yypt[-2].yyv.node, yypt[-5].yyv.node);
yyval.node->src.start = yypt[-6].yyv.tok.src.start;
yyval.node->src.stop = yypt[-1].yyv.tok.src.stop;
yyval.node->decl = yypt[-7].yyv.ids;
} break;
case 140:
#line 858 "limbo.y"
{
yyval.node = mkn(Obreak, nil, nil);
yyval.node->decl = yypt[-1].yyv.ids;
yyval.node->src = yypt[-2].yyv.tok.src;
} break;
case 141:
#line 864 "limbo.y"
{
yyval.node = mkn(Ocont, nil, nil);
yyval.node->decl = yypt[-1].yyv.ids;
yyval.node->src = yypt[-2].yyv.tok.src;
} break;
case 142:
#line 870 "limbo.y"
{
yyval.node = mkn(Oret, yypt[-1].yyv.node, nil);
yyval.node->src = yypt[-2].yyv.tok.src;
if(yypt[-1].yyv.node->op == Onothing)
yyval.node->left = nil;
else
yyval.node->src.stop = yypt[-1].yyv.node->src.stop;
} break;
case 143:
#line 879 "limbo.y"
{
yyval.node = mkn(Ospawn, yypt[-1].yyv.node, nil);
yyval.node->src.start = yypt[-2].yyv.tok.src.start;
yyval.node->src.stop = yypt[-1].yyv.node->src.stop;
} break;
case 144:
#line 885 "limbo.y"
{
yyval.node = mkn(Oraise, yypt[-1].yyv.node, nil);
yyval.node->src.start = yypt[-2].yyv.tok.src.start;
yyval.node->src.stop = yypt[-1].yyv.node->src.stop;
} break;
case 145:
#line 891 "limbo.y"
{
yyval.node = mkn(Ocase, yypt[-3].yyv.node, caselist(yypt[-1].yyv.node, nil));
yyval.node->src = yypt[-3].yyv.node->src;
yyval.node->decl = yypt[-5].yyv.ids;
} break;
case 146:
#line 897 "limbo.y"
{
yyval.node = mkn(Oalt, caselist(yypt[-1].yyv.node, nil), nil);
yyval.node->src = yypt[-3].yyv.tok.src;
yyval.node->decl = yypt[-4].yyv.ids;
} break;
case 147:
#line 903 "limbo.y"
{
yyval.node = mkn(Opick, mkbin(Odas, mkname(&yypt[-5].yyv.tok.src, yypt[-5].yyv.tok.v.idval), yypt[-3].yyv.node), caselist(yypt[-1].yyv.node, nil));
yyval.node->src.start = yypt[-5].yyv.tok.src.start;
yyval.node->src.stop = yypt[-3].yyv.node->src.stop;
yyval.node->decl = yypt[-7].yyv.ids;
} break;
case 148:
#line 910 "limbo.y"
{
yyval.node = mkn(Oexit, nil, nil);
yyval.node->src = yypt[-1].yyv.tok.src;
} break;
case 149:
#line 915 "limbo.y"
{
if(yypt[-6].yyv.node == nil){
yypt[-6].yyv.node = mkn(Onothing, nil, nil);
yypt[-6].yyv.node->src.start = curline();
yypt[-6].yyv.node->src.stop = curline();
}
yypt[-6].yyv.node = mkscope(rotater(yypt[-6].yyv.node));
yyval.node = mkbin(Oexstmt, yypt[-6].yyv.node, mkn(Oexcept, yypt[-3].yyv.node, caselist(yypt[-1].yyv.node, nil)));
} break;
case 150:
#line 933 "limbo.y"
{
yyval.ids = nil;
} break;
case 151:
#line 937 "limbo.y"
{
if(yypt[-1].yyv.ids->next != nil)
yyerror("only one identifier allowed in a label");
yyval.ids = yypt[-1].yyv.ids;
} break;
case 152:
#line 945 "limbo.y"
{
yyval.ids = nil;
} break;
case 153:
#line 949 "limbo.y"
{
yyval.ids = mkids(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval, nil, nil);
} break;
case 154:
#line 955 "limbo.y"
{
yypt[-1].yyv.node->left->right->right = yypt[-0].yyv.node;
yyval.node = yypt[-1].yyv.node;
} break;
case 155:
#line 962 "limbo.y"
{
yyval.node = mkunary(Oseq, mkscope(mkunary(Olabel, rotater(yypt[-1].yyv.node))));
} break;
case 156:
#line 966 "limbo.y"
{
yypt[-3].yyv.node->left->right->right = yypt[-2].yyv.node;
yyval.node = mkbin(Oseq, mkscope(mkunary(Olabel, rotater(yypt[-1].yyv.node))), yypt[-3].yyv.node);
} break;
case 157:
#line 973 "limbo.y"
{
yypt[-1].yyv.node->left->right = mkscope(yypt[-0].yyv.node);
yyval.node = yypt[-1].yyv.node;
} break;
case 158:
#line 980 "limbo.y"
{
yyval.node = mkunary(Oseq, mkunary(Olabel, rotater(yypt[-1].yyv.node)));
} break;
case 159:
#line 984 "limbo.y"
{
yypt[-3].yyv.node->left->right = mkscope(yypt[-2].yyv.node);
yyval.node = mkbin(Oseq, mkunary(Olabel, rotater(yypt[-1].yyv.node)), yypt[-3].yyv.node);
} break;
case 160:
#line 991 "limbo.y"
{
yypt[-1].yyv.node->left->right = mkscope(yypt[-0].yyv.node);
yyval.node = yypt[-1].yyv.node;
} break;
case 161:
#line 998 "limbo.y"
{
yyval.node = mkunary(Oseq, mkunary(Olabel, rotater(yypt[-1].yyv.node)));
} break;
case 162:
#line 1002 "limbo.y"
{
yypt[-3].yyv.node->left->right = mkscope(yypt[-2].yyv.node);
yyval.node = mkbin(Oseq, mkunary(Olabel, rotater(yypt[-1].yyv.node)), yypt[-3].yyv.node);
} break;
case 164:
#line 1010 "limbo.y"
{
yyval.node = mkbin(Orange, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 165:
#line 1014 "limbo.y"
{
yyval.node = mkn(Owild, nil, nil);
yyval.node->src = yypt[-0].yyv.tok.src;
} break;
case 166:
#line 1019 "limbo.y"
{
yyval.node = mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 167:
#line 1023 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = curline();
yyval.node->src.stop = yyval.node->src.start;
} break;
case 168:
#line 1031 "limbo.y"
{
yypt[-1].yyv.node->left->right = mkscope(yypt[-0].yyv.node);
yyval.node = yypt[-1].yyv.node;
} break;
case 169:
#line 1038 "limbo.y"
{
yyval.node = mkunary(Oseq, mkunary(Olabel, rotater(yypt[-1].yyv.node)));
} break;
case 170:
#line 1042 "limbo.y"
{
yypt[-3].yyv.node->left->right = mkscope(yypt[-2].yyv.node);
yyval.node = mkbin(Oseq, mkunary(Olabel, rotater(yypt[-1].yyv.node)), yypt[-3].yyv.node);
} break;
case 171:
#line 1049 "limbo.y"
{
yyval.node = mkname(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval);
} break;
case 172:
#line 1053 "limbo.y"
{
yyval.node = mkn(Owild, nil, nil);
yyval.node->src = yypt[-0].yyv.tok.src;
} break;
case 173:
#line 1058 "limbo.y"
{
yyval.node = mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 174:
#line 1062 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = curline();
yyval.node->src.stop = yyval.node->src.start;
} break;
case 175:
#line 1070 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = curline();
yyval.node->src.stop = yyval.node->src.start;
} break;
case 178:
#line 1080 "limbo.y"
{
yyval.node = mkbin(Oas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 179:
#line 1084 "limbo.y"
{
yyval.node = mkbin(Oandas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 180:
#line 1088 "limbo.y"
{
yyval.node = mkbin(Ooras, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 181:
#line 1092 "limbo.y"
{
yyval.node = mkbin(Oxoras, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 182:
#line 1096 "limbo.y"
{
yyval.node = mkbin(Olshas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 183:
#line 1100 "limbo.y"
{
yyval.node = mkbin(Orshas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 184:
#line 1104 "limbo.y"
{
yyval.node = mkbin(Oaddas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 185:
#line 1108 "limbo.y"
{
yyval.node = mkbin(Osubas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 186:
#line 1112 "limbo.y"
{
yyval.node = mkbin(Omulas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 187:
#line 1116 "limbo.y"
{
yyval.node = mkbin(Odivas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 188:
#line 1120 "limbo.y"
{
yyval.node = mkbin(Omodas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 189:
#line 1124 "limbo.y"
{
yyval.node = mkbin(Oexpas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 190:
#line 1128 "limbo.y"
{
yyval.node = mkbin(Osnd, yypt[-3].yyv.node, yypt[-0].yyv.node);
} break;
case 191:
#line 1132 "limbo.y"
{
yyval.node = mkbin(Osnd, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 192:
#line 1136 "limbo.y"
{
yyval.node = mkbin(Odas, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 193:
#line 1140 "limbo.y"
{
yyval.node = mkn(Oload, yypt[-0].yyv.node, nil);
yyval.node->src.start = yypt[-2].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.node->src.stop;
yyval.node->ty = mkidtype(&yypt[-1].yyv.tok.src, yypt[-1].yyv.tok.v.idval);
} break;
case 194:
#line 1147 "limbo.y"
{
yyval.node = mkbin(Oexp, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 195:
#line 1151 "limbo.y"
{
yyval.node = mkbin(Omul, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 196:
#line 1155 "limbo.y"
{
yyval.node = mkbin(Odiv, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 197:
#line 1159 "limbo.y"
{
yyval.node = mkbin(Omod, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 198:
#line 1163 "limbo.y"
{
yyval.node = mkbin(Oadd, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 199:
#line 1167 "limbo.y"
{
yyval.node = mkbin(Osub, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 200:
#line 1171 "limbo.y"
{
yyval.node = mkbin(Orsh, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 201:
#line 1175 "limbo.y"
{
yyval.node = mkbin(Olsh, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 202:
#line 1179 "limbo.y"
{
yyval.node = mkbin(Olt, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 203:
#line 1183 "limbo.y"
{
yyval.node = mkbin(Ogt, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 204:
#line 1187 "limbo.y"
{
yyval.node = mkbin(Oleq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 205:
#line 1191 "limbo.y"
{
yyval.node = mkbin(Ogeq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 206:
#line 1195 "limbo.y"
{
yyval.node = mkbin(Oeq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 207:
#line 1199 "limbo.y"
{
yyval.node = mkbin(Oneq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 208:
#line 1203 "limbo.y"
{
yyval.node = mkbin(Oand, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 209:
#line 1207 "limbo.y"
{
yyval.node = mkbin(Oxor, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 210:
#line 1211 "limbo.y"
{
yyval.node = mkbin(Oor, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 211:
#line 1215 "limbo.y"
{
yyval.node = mkbin(Ocons, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 212:
#line 1219 "limbo.y"
{
yyval.node = mkbin(Oandand, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 213:
#line 1223 "limbo.y"
{
yyval.node = mkbin(Ooror, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 215:
#line 1230 "limbo.y"
{
yypt[-0].yyv.node->src.start = yypt[-1].yyv.tok.src.start;
yyval.node = yypt[-0].yyv.node;
} break;
case 216:
#line 1235 "limbo.y"
{
yyval.node = mkunary(Oneg, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 217:
#line 1240 "limbo.y"
{
yyval.node = mkunary(Onot, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 218:
#line 1245 "limbo.y"
{
yyval.node = mkunary(Ocomp, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 219:
#line 1250 "limbo.y"
{
yyval.node = mkunary(Oind, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 220:
#line 1255 "limbo.y"
{
yyval.node = mkunary(Opreinc, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 221:
#line 1260 "limbo.y"
{
yyval.node = mkunary(Opredec, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 222:
#line 1265 "limbo.y"
{
yyval.node = mkunary(Orcv, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 223:
#line 1270 "limbo.y"
{
yyval.node = mkunary(Ohd, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 224:
#line 1275 "limbo.y"
{
yyval.node = mkunary(Otl, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 225:
#line 1280 "limbo.y"
{
yyval.node = mkunary(Olen, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 226:
#line 1285 "limbo.y"
{
yyval.node = mkunary(Oref, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 227:
#line 1290 "limbo.y"
{
yyval.node = mkunary(Otagof, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
} break;
case 228:
#line 1295 "limbo.y"
{
yyval.node = mkn(Oarray, yypt[-3].yyv.node, nil);
yyval.node->ty = mktype(&yypt[-5].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tarray, yypt[-0].yyv.type, nil);
yyval.node->src = yyval.node->ty->src;
} break;
case 229:
#line 1301 "limbo.y"
{
yyval.node = mkn(Oarray, yypt[-5].yyv.node, yypt[-1].yyv.node);
yyval.node->src.start = yypt[-7].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 230:
#line 1307 "limbo.y"
{
yyval.node = mkn(Onothing, nil, nil);
yyval.node->src.start = yypt[-5].yyv.tok.src.start;
yyval.node->src.stop = yypt[-4].yyv.tok.src.stop;
yyval.node = mkn(Oarray, yyval.node, yypt[-1].yyv.node);
yyval.node->src.start = yypt[-6].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 231:
#line 1316 "limbo.y"
{
yyval.node = etolist(yypt[-1].yyv.node);
yyval.node->src.start = yypt[-4].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 232:
#line 1322 "limbo.y"
{
yyval.node = mkn(Ochan, nil, nil);
yyval.node->ty = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tchan, yypt[-0].yyv.type, nil);
yyval.node->src = yyval.node->ty->src;
} break;
case 233:
#line 1328 "limbo.y"
{
yyval.node = mkn(Ochan, yypt[-3].yyv.node, nil);
yyval.node->ty = mktype(&yypt[-5].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tchan, yypt[-0].yyv.type, nil);
yyval.node->src = yyval.node->ty->src;
} break;
case 234:
#line 1334 "limbo.y"
{
yyval.node = mkunary(Ocast, yypt[-0].yyv.node);
yyval.node->ty = mktype(&yypt[-3].yyv.tok.src.start, &yypt[-0].yyv.node->src.stop, Tarray, mkidtype(&yypt[-1].yyv.tok.src, yypt[-1].yyv.tok.v.idval), nil);
yyval.node->src = yyval.node->ty->src;
} break;
case 235:
#line 1340 "limbo.y"
{
yyval.node = mkunary(Ocast, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
yyval.node->ty = mkidtype(&yyval.node->src, yypt[-1].yyv.tok.v.idval);
} break;
case 236:
#line 1346 "limbo.y"
{
yyval.node = mkunary(Ocast, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
yyval.node->ty = mkidtype(&yyval.node->src, yypt[-1].yyv.tok.v.idval);
} break;
case 237:
#line 1352 "limbo.y"
{
yyval.node = mkunary(Ocast, yypt[-0].yyv.node);
yyval.node->src.start = yypt[-1].yyv.tok.src.start;
yyval.node->ty = yypt[-1].yyv.type;
} break;
case 239:
#line 1361 "limbo.y"
{
yyval.node = mkn(Ocall, yypt[-3].yyv.node, yypt[-1].yyv.node);
yyval.node->src.start = yypt[-3].yyv.node->src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 240:
#line 1367 "limbo.y"
{
yyval.node = yypt[-1].yyv.node;
if(yypt[-1].yyv.node->op == Oseq)
yyval.node = mkn(Otuple, rotater(yypt[-1].yyv.node), nil);
else
yyval.node->flags |= PARENS;
yyval.node->src.start = yypt[-2].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 241:
#line 1377 "limbo.y"
{
yyval.node = mkbin(Odot, yypt[-2].yyv.node, mkname(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval));
} break;
case 242:
#line 1381 "limbo.y"
{
yyval.node = mkbin(Omdot, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 243:
#line 1385 "limbo.y"
{
yyval.node = mkbin(Oindex, yypt[-3].yyv.node, yypt[-1].yyv.node);
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 244:
#line 1390 "limbo.y"
{
if(yypt[-3].yyv.node->op == Onothing)
yypt[-3].yyv.node->src = yypt[-2].yyv.tok.src;
if(yypt[-1].yyv.node->op == Onothing)
yypt[-1].yyv.node->src = yypt[-2].yyv.tok.src;
yyval.node = mkbin(Oslice, yypt[-5].yyv.node, mkbin(Oseq, yypt[-3].yyv.node, yypt[-1].yyv.node));
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 245:
#line 1399 "limbo.y"
{
yyval.node = mkunary(Oinc, yypt[-1].yyv.node);
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 246:
#line 1404 "limbo.y"
{
yyval.node = mkunary(Odec, yypt[-1].yyv.node);
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 247:
#line 1409 "limbo.y"
{
yyval.node = mksconst(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval);
} break;
case 248:
#line 1413 "limbo.y"
{
yyval.node = mkconst(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.ival);
if(yypt[-0].yyv.tok.v.ival > 0x7fffffff || yypt[-0].yyv.tok.v.ival < -0x7fffffff)
yyval.node->ty = tbig;
yyval.node = yyval.node;
} break;
case 249:
#line 1420 "limbo.y"
{
yyval.node = mkrconst(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.rval);
} break;
case 250:
#line 1424 "limbo.y"
{
yyval.node = mkbin(Oindex, yypt[-5].yyv.node, rotater(mkbin(Oseq, yypt[-3].yyv.node, yypt[-1].yyv.node)));
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 251:
#line 1431 "limbo.y"
{
yyval.node = mkname(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval);
} break;
case 252:
#line 1435 "limbo.y"
{
yyval.node = mknil(&yypt[-0].yyv.tok.src);
} break;
case 253:
#line 1441 "limbo.y"
{
yyval.node = mkn(Otuple, rotater(yypt[-1].yyv.node), nil);
yyval.node->src.start = yypt[-2].yyv.tok.src.start;
yyval.node->src.stop = yypt[-0].yyv.tok.src.stop;
} break;
case 255:
#line 1450 "limbo.y"
{
yyval.node = mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 258:
#line 1460 "limbo.y"
{
yyval.node = mkn(Otype, nil, nil);
yyval.node->ty = mkidtype(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval);
yyval.node->src = yyval.node->ty->src;
} break;
case 259:
#line 1466 "limbo.y"
{
yyval.node = mkn(Otype, nil, nil);
yyval.node->ty = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tarray, yypt[-0].yyv.type, nil);
yyval.node->src = yyval.node->ty->src;
} break;
case 260:
#line 1472 "limbo.y"
{
yyval.node = mkn(Otype, nil, nil);
yyval.node->ty = mktype(&yypt[-2].yyv.tok.src.start, &yypt[-0].yyv.type->src.stop, Tlist, yypt[-0].yyv.type, nil);
yyval.node->src = yyval.node->ty->src;
} break;
case 261:
#line 1478 "limbo.y"
{
yyval.node = mkn(Otype, nil ,nil);
yyval.node->ty = yypt[-0].yyv.type;
yyval.node->ty->flags |= CYCLIC;
yyval.node->src = yyval.node->ty->src;
} break;
case 262:
#line 1487 "limbo.y"
{
yyval.node = mkname(&yypt[-0].yyv.tok.src, yypt[-0].yyv.tok.v.idval);
} break;
case 263:
#line 1491 "limbo.y"
{
yyval.node = nil;
} break;
case 266:
#line 1499 "limbo.y"
{
yyval.node = mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 267:
#line 1503 "limbo.y"
{
yyval.node = mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 268:
#line 1509 "limbo.y"
{
yyval.node = nil;
} break;
case 269:
#line 1513 "limbo.y"
{
yyval.node = rotater(yypt[-0].yyv.node);
} break;
case 273:
#line 1524 "limbo.y"
{
yyval.node = mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 274:
#line 1530 "limbo.y"
{
yyval.node = rotater(yypt[-0].yyv.node);
} break;
case 275:
#line 1534 "limbo.y"
{
yyval.node = rotater(yypt[-1].yyv.node);
} break;
case 277:
#line 1541 "limbo.y"
{
yyval.node = mkbin(Oseq, yypt[-2].yyv.node, yypt[-0].yyv.node);
} break;
case 278:
#line 1547 "limbo.y"
{
yyval.node = mkn(Oelem, nil, yypt[-0].yyv.node);
yyval.node->src = yypt[-0].yyv.node->src;
} break;
case 279:
#line 1552 "limbo.y"
{
yyval.node = mkbin(Oelem, rotater(yypt[-2].yyv.node), yypt[-0].yyv.node);
} break;
case 280:
#line 1577 "limbo.y"
{
if(yypt[-1].yyv.node->op == Oseq)
yypt[-1].yyv.node->right->left = rotater(yypt[-0].yyv.node);
else
yypt[-1].yyv.node->left = rotater(yypt[-0].yyv.node);
yyval.node = yypt[-1].yyv.node;
} break;
case 281:
#line 1587 "limbo.y"
{
yyval.node = typedecl(yypt[-1].yyv.ids, mktype(&yypt[-1].yyv.ids->src.start, &yypt[-0].yyv.tok.src.stop, Tpoly, nil, nil));
} break;
case 282:
#line 1591 "limbo.y"
{
if(yypt[-3].yyv.node->op == Oseq)
yypt[-3].yyv.node->right->left = rotater(yypt[-2].yyv.node);
else
yypt[-3].yyv.node->left = rotater(yypt[-2].yyv.node);
yyval.node = mkbin(Oseq, yypt[-3].yyv.node, typedecl(yypt[-1].yyv.ids, mktype(&yypt[-1].yyv.ids->src.start, &yypt[-0].yyv.tok.src.stop, Tpoly, nil, nil)));
} break;
}
goto yystack; /* stack new state and value */
}