"Fossies" - the Fresh Open Source Software Archive

Member "gentle-97/gentle/cyfront.c" (20 Aug 1998, 543726 Bytes) of package /linux/misc/old/gentle-97.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "cyfront.c" see the Fossies "Dox" file reference documentation.

    1 /*
    2 
    3    GENTLE 97
    4 
    5    Gentle Compiler Construction System 3.0
    6    Copyright (C) 1992, 1997  F.W. Schroeer
    7 
    8 */
    9 
   10 
   11 typedef long * yy;
   12 #define yyu (-2147483647L)
   13 static yy yynull;
   14 extern yy yyh;
   15 extern yy yyhx;
   16 static yyErr(n,l)
   17 {
   18 yyAbort(n,"cyfront", l);
   19 }
   20 yyeq_IDENT(t1, t2) yy t1, t2;
   21 {
   22 return t1 == t2;
   23 }
   24 yyPrint_IDENT(t) yy t;
   25 {
   26 yyPrintOpaque(t);
   27 }
   28 yybroadcast_IDENT(t,In,Out,Handler)
   29 yy t, In, *Out; int (*Handler) ();
   30 {
   31 yy A, B;
   32 A = In;
   33 if (! Handler(yybroadcast_IDENT, t, In, Out)) {
   34 *Out = In;}
   35 }
   36 yyeq_UNIT(t1, t2) yy t1, t2;
   37 {
   38 switch(t1[0]) {
   39 case 1: return (t2[0] == 1)
   40 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
   41 && yyeq_EXPORT((yy)t1[2], (yy)t2[2])
   42 && yyeq_DECLARATIONLIST((yy)t1[3], (yy)t2[3])
   43 && (t1[4] == t2[4])
   44 ;
   45 }
   46 }
   47 yyPrint_UNIT(t) yy t;
   48 {
   49 switch(t[0]) {
   50 case 1: 
   51 yyTerm("unit");
   52 yyFirstArg();
   53 yyPrint_IDENT((yy)t[1]);
   54 yyNextArg();
   55 yyPrint_EXPORT((yy)t[2]);
   56 yyNextArg();
   57 yyPrint_DECLARATIONLIST((yy)t[3]);
   58 yyNextArg();
   59 yyPrint_POS((yy)t[4]);
   60 yyEndArgs();
   61 break;
   62 }
   63 }
   64 yybroadcast_UNIT(t,In,Out,Handler)
   65 yy t, In, *Out; int (*Handler) ();
   66 {
   67 yy A, B;
   68 A = In;
   69 if (! Handler(yybroadcast_UNIT, t, In, Out)) {
   70 switch(t[0]) {
   71 case 1: 
   72 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
   73 yybroadcast_EXPORT((yy)t[2], B, &A, Handler);
   74 yybroadcast_DECLARATIONLIST((yy)t[3], A, &B, Handler);
   75 *Out = B;
   76 break;
   77 }
   78 }
   79 }
   80 yyeq_EXPORT(t1, t2) yy t1, t2;
   81 {
   82 switch(t1[0]) {
   83 case 1: return (t2[0] == 1)
   84 && yyeq_IDENTLIST((yy)t1[1], (yy)t2[1])
   85 && (t1[2] == t2[2])
   86 ;
   87 }
   88 }
   89 yyPrint_EXPORT(t) yy t;
   90 {
   91 switch(t[0]) {
   92 case 1: 
   93 yyTerm("export");
   94 yyFirstArg();
   95 yyPrint_IDENTLIST((yy)t[1]);
   96 yyNextArg();
   97 yyPrint_POS((yy)t[2]);
   98 yyEndArgs();
   99 break;
  100 }
  101 }
  102 yybroadcast_EXPORT(t,In,Out,Handler)
  103 yy t, In, *Out; int (*Handler) ();
  104 {
  105 yy A, B;
  106 A = In;
  107 if (! Handler(yybroadcast_EXPORT, t, In, Out)) {
  108 switch(t[0]) {
  109 case 1: 
  110 yybroadcast_IDENTLIST((yy)t[1], A, &B, Handler);
  111 *Out = B;
  112 break;
  113 }
  114 }
  115 }
  116 yyeq_DECLARATION(t1, t2) yy t1, t2;
  117 {
  118 switch(t1[0]) {
  119 case 1: return (t2[0] == 1)
  120 && (t1[1] == t2[1])
  121 && yyeq_MEMBERS((yy)t1[2], (yy)t2[2])
  122 ;
  123 case 2: return (t2[0] == 2)
  124 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  125 && (t1[2] == t2[2])
  126 && yyeq_ASSOC((yy)t1[3], (yy)t2[3])
  127 ;
  128 }
  129 }
  130 yyPrint_DECLARATION(t) yy t;
  131 {
  132 switch(t[0]) {
  133 case 1: 
  134 yyTerm("root");
  135 yyFirstArg();
  136 yyPrint_POS((yy)t[1]);
  137 yyNextArg();
  138 yyPrint_MEMBERS((yy)t[2]);
  139 yyEndArgs();
  140 break;
  141 case 2: 
  142 yyTerm("declaration");
  143 yyFirstArg();
  144 yyPrint_IDENT((yy)t[1]);
  145 yyNextArg();
  146 yyPrint_POS((yy)t[2]);
  147 yyNextArg();
  148 yyPrint_ASSOC((yy)t[3]);
  149 yyEndArgs();
  150 break;
  151 }
  152 }
  153 yybroadcast_DECLARATION(t,In,Out,Handler)
  154 yy t, In, *Out; int (*Handler) ();
  155 {
  156 yy A, B;
  157 A = In;
  158 if (! Handler(yybroadcast_DECLARATION, t, In, Out)) {
  159 switch(t[0]) {
  160 case 1: 
  161 yybroadcast_MEMBERS((yy)t[2], A, &B, Handler);
  162 *Out = B;
  163 break;
  164 case 2: 
  165 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
  166 yybroadcast_ASSOC((yy)t[3], B, &A, Handler);
  167 *Out = A;
  168 break;
  169 }
  170 }
  171 }
  172 yyeq_ASSOC(t1, t2) yy t1, t2;
  173 {
  174 switch(t1[0]) {
  175 case 1: return (t2[0] == 1)
  176 && yyeq_TYPEKIND((yy)t1[1], (yy)t2[1])
  177 && yyeq_FUNCTORSPECLIST((yy)t1[2], (yy)t2[2])
  178 ;
  179 case 2: return (t2[0] == 2)
  180 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  181 && (t1[2] == t2[2])
  182 ;
  183 case 3: return (t2[0] == 3)
  184 && yyeq_TABLEFIELDLIST((yy)t1[1], (yy)t2[1])
  185 ;
  186 case 4: return (t2[0] == 4)
  187 && yyeq_CODENAME((yy)t1[1], (yy)t2[1])
  188 && yyeq_CLASS((yy)t1[2], (yy)t2[2])
  189 && yyeq_FORMALS((yy)t1[3], (yy)t2[3])
  190 && yyeq_RULELIST((yy)t1[4], (yy)t2[4])
  191 ;
  192 case 5: return (t2[0] == 5)
  193 ;
  194 }
  195 }
  196 yyPrint_ASSOC(t) yy t;
  197 {
  198 switch(t[0]) {
  199 case 1: 
  200 yyTerm("type");
  201 yyFirstArg();
  202 yyPrint_TYPEKIND((yy)t[1]);
  203 yyNextArg();
  204 yyPrint_FUNCTORSPECLIST((yy)t[2]);
  205 yyEndArgs();
  206 break;
  207 case 2: 
  208 yyTerm("var");
  209 yyFirstArg();
  210 yyPrint_IDENT((yy)t[1]);
  211 yyNextArg();
  212 yyPrint_POS((yy)t[2]);
  213 yyEndArgs();
  214 break;
  215 case 3: 
  216 yyTerm("table");
  217 yyFirstArg();
  218 yyPrint_TABLEFIELDLIST((yy)t[1]);
  219 yyEndArgs();
  220 break;
  221 case 4: 
  222 yyTerm("predicate");
  223 yyFirstArg();
  224 yyPrint_CODENAME((yy)t[1]);
  225 yyNextArg();
  226 yyPrint_CLASS((yy)t[2]);
  227 yyNextArg();
  228 yyPrint_FORMALS((yy)t[3]);
  229 yyNextArg();
  230 yyPrint_RULELIST((yy)t[4]);
  231 yyEndArgs();
  232 break;
  233 case 5: 
  234 yyTerm("predefined");
  235 yyNoArgs();
  236 break;
  237 }
  238 }
  239 yybroadcast_ASSOC(t,In,Out,Handler)
  240 yy t, In, *Out; int (*Handler) ();
  241 {
  242 yy A, B;
  243 A = In;
  244 if (! Handler(yybroadcast_ASSOC, t, In, Out)) {
  245 switch(t[0]) {
  246 case 1: 
  247 yybroadcast_TYPEKIND((yy)t[1], A, &B, Handler);
  248 yybroadcast_FUNCTORSPECLIST((yy)t[2], B, &A, Handler);
  249 *Out = A;
  250 break;
  251 case 2: 
  252 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
  253 *Out = B;
  254 break;
  255 case 3: 
  256 yybroadcast_TABLEFIELDLIST((yy)t[1], A, &B, Handler);
  257 *Out = B;
  258 break;
  259 case 4: 
  260 yybroadcast_CODENAME((yy)t[1], A, &B, Handler);
  261 yybroadcast_CLASS((yy)t[2], B, &A, Handler);
  262 yybroadcast_FORMALS((yy)t[3], A, &B, Handler);
  263 yybroadcast_RULELIST((yy)t[4], B, &A, Handler);
  264 *Out = A;
  265 break;
  266 case 5: 
  267 *Out = A;
  268 break;
  269 }
  270 }
  271 }
  272 yyeq_TYPEKIND(t1, t2) yy t1, t2;
  273 {
  274 switch(t1[0]) {
  275 case 1: return (t2[0] == 1)
  276 ;
  277 case 2: return (t2[0] == 2)
  278 ;
  279 }
  280 }
  281 yyPrint_TYPEKIND(t) yy t;
  282 {
  283 switch(t[0]) {
  284 case 1: 
  285 yyTerm("domain");
  286 yyNoArgs();
  287 break;
  288 case 2: 
  289 yyTerm("class");
  290 yyNoArgs();
  291 break;
  292 }
  293 }
  294 yybroadcast_TYPEKIND(t,In,Out,Handler)
  295 yy t, In, *Out; int (*Handler) ();
  296 {
  297 yy A, B;
  298 A = In;
  299 if (! Handler(yybroadcast_TYPEKIND, t, In, Out)) {
  300 switch(t[0]) {
  301 case 1: 
  302 *Out = A;
  303 break;
  304 case 2: 
  305 *Out = A;
  306 break;
  307 }
  308 }
  309 }
  310 yyeq_CODENAME(t1, t2) yy t1, t2;
  311 {
  312 switch(t1[0]) {
  313 case 1: return (t2[0] == 1)
  314 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  315 ;
  316 case 2: return (t2[0] == 2)
  317 ;
  318 case 3: return (t2[0] == 3)
  319 ;
  320 }
  321 }
  322 yyPrint_CODENAME(t) yy t;
  323 {
  324 switch(t[0]) {
  325 case 1: 
  326 yyTerm("extern");
  327 yyFirstArg();
  328 yyPrint_IDENT((yy)t[1]);
  329 yyEndArgs();
  330 break;
  331 case 2: 
  332 yyTerm("yygoal");
  333 yyNoArgs();
  334 break;
  335 case 3: 
  336 yyTerm("noname");
  337 yyNoArgs();
  338 break;
  339 }
  340 }
  341 yybroadcast_CODENAME(t,In,Out,Handler)
  342 yy t, In, *Out; int (*Handler) ();
  343 {
  344 yy A, B;
  345 A = In;
  346 if (! Handler(yybroadcast_CODENAME, t, In, Out)) {
  347 switch(t[0]) {
  348 case 1: 
  349 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
  350 *Out = B;
  351 break;
  352 case 2: 
  353 *Out = A;
  354 break;
  355 case 3: 
  356 *Out = A;
  357 break;
  358 }
  359 }
  360 }
  361 yyeq_BASECLASS(t1, t2) yy t1, t2;
  362 {
  363 switch(t1[0]) {
  364 case 1: return (t2[0] == 1)
  365 ;
  366 }
  367 }
  368 yyPrint_BASECLASS(t) yy t;
  369 {
  370 switch(t[0]) {
  371 case 1: 
  372 yyTerm("none");
  373 yyNoArgs();
  374 break;
  375 }
  376 }
  377 yybroadcast_BASECLASS(t,In,Out,Handler)
  378 yy t, In, *Out; int (*Handler) ();
  379 {
  380 yy A, B;
  381 A = In;
  382 if (! Handler(yybroadcast_BASECLASS, t, In, Out)) {
  383 switch(t[0]) {
  384 case 1: 
  385 *Out = A;
  386 break;
  387 }
  388 }
  389 }
  390 yyeq_TABLEFIELDLIST(t1, t2) yy t1, t2;
  391 {
  392 switch(t1[0]) {
  393 case 1: return (t2[0] == 1)
  394 && yyeq_TABLEFIELD((yy)t1[1], (yy)t2[1])
  395 && yyeq_TABLEFIELDLIST((yy)t1[2], (yy)t2[2])
  396 ;
  397 case 2: return (t2[0] == 2)
  398 ;
  399 }
  400 }
  401 yyPrint_TABLEFIELDLIST(t) yy t;
  402 {
  403 switch(t[0]) {
  404 case 1: 
  405 yyTerm("tablefieldlist");
  406 yyFirstArg();
  407 yyPrint_TABLEFIELD((yy)t[1]);
  408 yyNextArg();
  409 yyPrint_TABLEFIELDLIST((yy)t[2]);
  410 yyEndArgs();
  411 break;
  412 case 2: 
  413 yyTerm("nil");
  414 yyNoArgs();
  415 break;
  416 }
  417 }
  418 yybroadcast_TABLEFIELDLIST(t,In,Out,Handler)
  419 yy t, In, *Out; int (*Handler) ();
  420 {
  421 yy A, B;
  422 A = In;
  423 if (! Handler(yybroadcast_TABLEFIELDLIST, t, In, Out)) {
  424 switch(t[0]) {
  425 case 1: 
  426 yybroadcast_TABLEFIELD((yy)t[1], A, &B, Handler);
  427 yybroadcast_TABLEFIELDLIST((yy)t[2], B, &A, Handler);
  428 *Out = A;
  429 break;
  430 case 2: 
  431 *Out = A;
  432 break;
  433 }
  434 }
  435 }
  436 yyeq_TABLEFIELD(t1, t2) yy t1, t2;
  437 {
  438 switch(t1[0]) {
  439 case 1: return (t2[0] == 1)
  440 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  441 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
  442 && (t1[3] == t2[3])
  443 ;
  444 }
  445 }
  446 yyPrint_TABLEFIELD(t) yy t;
  447 {
  448 switch(t[0]) {
  449 case 1: 
  450 yyTerm("tablefield");
  451 yyFirstArg();
  452 yyPrint_IDENT((yy)t[1]);
  453 yyNextArg();
  454 yyPrint_IDENT((yy)t[2]);
  455 yyNextArg();
  456 yyPrint_POS((yy)t[3]);
  457 yyEndArgs();
  458 break;
  459 }
  460 }
  461 yybroadcast_TABLEFIELD(t,In,Out,Handler)
  462 yy t, In, *Out; int (*Handler) ();
  463 {
  464 yy A, B;
  465 A = In;
  466 if (! Handler(yybroadcast_TABLEFIELD, t, In, Out)) {
  467 switch(t[0]) {
  468 case 1: 
  469 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
  470 yybroadcast_IDENT((yy)t[2], B, &A, Handler);
  471 *Out = A;
  472 break;
  473 }
  474 }
  475 }
  476 yyeq_FUNCTORSPEC(t1, t2) yy t1, t2;
  477 {
  478 switch(t1[0]) {
  479 case 1: return (t2[0] == 1)
  480 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  481 && (t1[2] == t2[2])
  482 && yyeq_ARGSPECLIST((yy)t1[3], (yy)t2[3])
  483 ;
  484 }
  485 }
  486 yyPrint_FUNCTORSPEC(t) yy t;
  487 {
  488 switch(t[0]) {
  489 case 1: 
  490 yyTerm("functorspec");
  491 yyFirstArg();
  492 yyPrint_IDENT((yy)t[1]);
  493 yyNextArg();
  494 yyPrint_POS((yy)t[2]);
  495 yyNextArg();
  496 yyPrint_ARGSPECLIST((yy)t[3]);
  497 yyEndArgs();
  498 break;
  499 }
  500 }
  501 yybroadcast_FUNCTORSPEC(t,In,Out,Handler)
  502 yy t, In, *Out; int (*Handler) ();
  503 {
  504 yy A, B;
  505 A = In;
  506 if (! Handler(yybroadcast_FUNCTORSPEC, t, In, Out)) {
  507 switch(t[0]) {
  508 case 1: 
  509 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
  510 yybroadcast_ARGSPECLIST((yy)t[3], B, &A, Handler);
  511 *Out = A;
  512 break;
  513 }
  514 }
  515 }
  516 yyeq_ARGSPEC(t1, t2) yy t1, t2;
  517 {
  518 switch(t1[0]) {
  519 case 1: return (t2[0] == 1)
  520 && yyeq_FORMALNAME((yy)t1[1], (yy)t2[1])
  521 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
  522 && yyeq_ACCESS((yy)t1[3], (yy)t2[3])
  523 ;
  524 }
  525 }
  526 yyPrint_ARGSPEC(t) yy t;
  527 {
  528 switch(t[0]) {
  529 case 1: 
  530 yyTerm("argspec");
  531 yyFirstArg();
  532 yyPrint_FORMALNAME((yy)t[1]);
  533 yyNextArg();
  534 yyPrint_IDENT((yy)t[2]);
  535 yyNextArg();
  536 yyPrint_ACCESS((yy)t[3]);
  537 yyEndArgs();
  538 break;
  539 }
  540 }
  541 yybroadcast_ARGSPEC(t,In,Out,Handler)
  542 yy t, In, *Out; int (*Handler) ();
  543 {
  544 yy A, B;
  545 A = In;
  546 if (! Handler(yybroadcast_ARGSPEC, t, In, Out)) {
  547 switch(t[0]) {
  548 case 1: 
  549 yybroadcast_FORMALNAME((yy)t[1], A, &B, Handler);
  550 yybroadcast_IDENT((yy)t[2], B, &A, Handler);
  551 yybroadcast_ACCESS((yy)t[3], A, &B, Handler);
  552 *Out = B;
  553 break;
  554 }
  555 }
  556 }
  557 yyeq_FORMALNAME(t1, t2) yy t1, t2;
  558 {
  559 switch(t1[0]) {
  560 case 1: return (t2[0] == 1)
  561 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  562 ;
  563 case 2: return (t2[0] == 2)
  564 ;
  565 }
  566 }
  567 yyPrint_FORMALNAME(t) yy t;
  568 {
  569 switch(t[0]) {
  570 case 1: 
  571 yyTerm("name");
  572 yyFirstArg();
  573 yyPrint_IDENT((yy)t[1]);
  574 yyEndArgs();
  575 break;
  576 case 2: 
  577 yyTerm("noname");
  578 yyNoArgs();
  579 break;
  580 }
  581 }
  582 yybroadcast_FORMALNAME(t,In,Out,Handler)
  583 yy t, In, *Out; int (*Handler) ();
  584 {
  585 yy A, B;
  586 A = In;
  587 if (! Handler(yybroadcast_FORMALNAME, t, In, Out)) {
  588 switch(t[0]) {
  589 case 1: 
  590 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
  591 *Out = B;
  592 break;
  593 case 2: 
  594 *Out = A;
  595 break;
  596 }
  597 }
  598 }
  599 yyeq_ACCESS(t1, t2) yy t1, t2;
  600 {
  601 switch(t1[0]) {
  602 case 1: return (t2[0] == 1)
  603 ;
  604 case 2: return (t2[0] == 2)
  605 ;
  606 }
  607 }
  608 yyPrint_ACCESS(t) yy t;
  609 {
  610 switch(t[0]) {
  611 case 1: 
  612 yyTerm("var");
  613 yyNoArgs();
  614 break;
  615 case 2: 
  616 yyTerm("const");
  617 yyNoArgs();
  618 break;
  619 }
  620 }
  621 yybroadcast_ACCESS(t,In,Out,Handler)
  622 yy t, In, *Out; int (*Handler) ();
  623 {
  624 yy A, B;
  625 A = In;
  626 if (! Handler(yybroadcast_ACCESS, t, In, Out)) {
  627 switch(t[0]) {
  628 case 1: 
  629 *Out = A;
  630 break;
  631 case 2: 
  632 *Out = A;
  633 break;
  634 }
  635 }
  636 }
  637 yyeq_FORMALS(t1, t2) yy t1, t2;
  638 {
  639 switch(t1[0]) {
  640 case 1: return (t2[0] == 1)
  641 && yyeq_ARGSPECLIST((yy)t1[1], (yy)t2[1])
  642 && yyeq_ARGSPECLIST((yy)t1[2], (yy)t2[2])
  643 ;
  644 }
  645 }
  646 yyPrint_FORMALS(t) yy t;
  647 {
  648 switch(t[0]) {
  649 case 1: 
  650 yyTerm("formals");
  651 yyFirstArg();
  652 yyPrint_ARGSPECLIST((yy)t[1]);
  653 yyNextArg();
  654 yyPrint_ARGSPECLIST((yy)t[2]);
  655 yyEndArgs();
  656 break;
  657 }
  658 }
  659 yybroadcast_FORMALS(t,In,Out,Handler)
  660 yy t, In, *Out; int (*Handler) ();
  661 {
  662 yy A, B;
  663 A = In;
  664 if (! Handler(yybroadcast_FORMALS, t, In, Out)) {
  665 switch(t[0]) {
  666 case 1: 
  667 yybroadcast_ARGSPECLIST((yy)t[1], A, &B, Handler);
  668 yybroadcast_ARGSPECLIST((yy)t[2], B, &A, Handler);
  669 *Out = A;
  670 break;
  671 }
  672 }
  673 }
  674 yyeq_CLASS(t1, t2) yy t1, t2;
  675 {
  676 switch(t1[0]) {
  677 case 1: return (t2[0] == 1)
  678 ;
  679 case 2: return (t2[0] == 2)
  680 ;
  681 case 3: return (t2[0] == 3)
  682 ;
  683 case 4: return (t2[0] == 4)
  684 ;
  685 case 5: return (t2[0] == 5)
  686 ;
  687 case 6: return (t2[0] == 6)
  688 ;
  689 }
  690 }
  691 yyPrint_CLASS(t) yy t;
  692 {
  693 switch(t[0]) {
  694 case 1: 
  695 yyTerm("proc");
  696 yyNoArgs();
  697 break;
  698 case 2: 
  699 yyTerm("cond");
  700 yyNoArgs();
  701 break;
  702 case 3: 
  703 yyTerm("nonterm");
  704 yyNoArgs();
  705 break;
  706 case 4: 
  707 yyTerm("token");
  708 yyNoArgs();
  709 break;
  710 case 5: 
  711 yyTerm("choice");
  712 yyNoArgs();
  713 break;
  714 case 6: 
  715 yyTerm("sweep");
  716 yyNoArgs();
  717 break;
  718 }
  719 }
  720 yybroadcast_CLASS(t,In,Out,Handler)
  721 yy t, In, *Out; int (*Handler) ();
  722 {
  723 yy A, B;
  724 A = In;
  725 if (! Handler(yybroadcast_CLASS, t, In, Out)) {
  726 switch(t[0]) {
  727 case 1: 
  728 *Out = A;
  729 break;
  730 case 2: 
  731 *Out = A;
  732 break;
  733 case 3: 
  734 *Out = A;
  735 break;
  736 case 4: 
  737 *Out = A;
  738 break;
  739 case 5: 
  740 *Out = A;
  741 break;
  742 case 6: 
  743 *Out = A;
  744 break;
  745 }
  746 }
  747 }
  748 yyeq_RULE(t1, t2) yy t1, t2;
  749 {
  750 switch(t1[0]) {
  751 case 1: return (t2[0] == 1)
  752 && yyeq_LHS((yy)t1[1], (yy)t2[1])
  753 && yyeq_MEMBERS((yy)t1[2], (yy)t2[2])
  754 && (t1[3] == t2[3])
  755 ;
  756 }
  757 }
  758 yyPrint_RULE(t) yy t;
  759 {
  760 switch(t[0]) {
  761 case 1: 
  762 yyTerm("rule");
  763 yyFirstArg();
  764 yyPrint_LHS((yy)t[1]);
  765 yyNextArg();
  766 yyPrint_MEMBERS((yy)t[2]);
  767 yyNextArg();
  768 yyPrint_INT((yy)t[3]);
  769 yyEndArgs();
  770 break;
  771 }
  772 }
  773 yybroadcast_RULE(t,In,Out,Handler)
  774 yy t, In, *Out; int (*Handler) ();
  775 {
  776 yy A, B;
  777 A = In;
  778 if (! Handler(yybroadcast_RULE, t, In, Out)) {
  779 switch(t[0]) {
  780 case 1: 
  781 yybroadcast_LHS((yy)t[1], A, &B, Handler);
  782 yybroadcast_MEMBERS((yy)t[2], B, &A, Handler);
  783 *Out = A;
  784 break;
  785 }
  786 }
  787 }
  788 yyeq_LHS(t1, t2) yy t1, t2;
  789 {
  790 switch(t1[0]) {
  791 case 1: return (t2[0] == 1)
  792 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  793 && (t1[2] == t2[2])
  794 && yyeq_DEFARGLIST((yy)t1[3], (yy)t2[3])
  795 && yyeq_USEARGLIST((yy)t1[4], (yy)t2[4])
  796 ;
  797 }
  798 }
  799 yyPrint_LHS(t) yy t;
  800 {
  801 switch(t[0]) {
  802 case 1: 
  803 yyTerm("lhs");
  804 yyFirstArg();
  805 yyPrint_IDENT((yy)t[1]);
  806 yyNextArg();
  807 yyPrint_POS((yy)t[2]);
  808 yyNextArg();
  809 yyPrint_DEFARGLIST((yy)t[3]);
  810 yyNextArg();
  811 yyPrint_USEARGLIST((yy)t[4]);
  812 yyEndArgs();
  813 break;
  814 }
  815 }
  816 yybroadcast_LHS(t,In,Out,Handler)
  817 yy t, In, *Out; int (*Handler) ();
  818 {
  819 yy A, B;
  820 A = In;
  821 if (! Handler(yybroadcast_LHS, t, In, Out)) {
  822 switch(t[0]) {
  823 case 1: 
  824 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
  825 yybroadcast_DEFARGLIST((yy)t[3], B, &A, Handler);
  826 yybroadcast_USEARGLIST((yy)t[4], A, &B, Handler);
  827 *Out = B;
  828 break;
  829 }
  830 }
  831 }
  832 yyeq_MEMBER(t1, t2) yy t1, t2;
  833 {
  834 switch(t1[0]) {
  835 case 1: return (t2[0] == 1)
  836 && yyeq_DEFARG((yy)t1[1], (yy)t2[1])
  837 && yyeq_USEARG((yy)t1[2], (yy)t2[2])
  838 && (t1[3] == t2[3])
  839 ;
  840 case 2: return (t2[0] == 2)
  841 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  842 && (t1[2] == t2[2])
  843 && yyeq_USEARG((yy)t1[3], (yy)t2[3])
  844 ;
  845 case 3: return (t2[0] == 3)
  846 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  847 && (t1[2] == t2[2])
  848 && yyeq_DEFARG((yy)t1[3], (yy)t2[3])
  849 ;
  850 case 4: return (t2[0] == 4)
  851 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  852 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
  853 && (t1[3] == t2[3])
  854 && yyeq_REF_INT((yy)t1[4], (yy)t2[4])
  855 ;
  856 case 5: return (t2[0] == 5)
  857 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  858 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
  859 && yyeq_USEARG((yy)t1[3], (yy)t2[3])
  860 && (t1[4] == t2[4])
  861 ;
  862 case 6: return (t2[0] == 6)
  863 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  864 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
  865 && yyeq_DEFARG((yy)t1[3], (yy)t2[3])
  866 && (t1[4] == t2[4])
  867 ;
  868 case 7: return (t2[0] == 7)
  869 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
  870 && (t1[2] == t2[2])
  871 && yyeq_USEARGLIST((yy)t1[3], (yy)t2[3])
  872 && yyeq_DEFARGLIST((yy)t1[4], (yy)t2[4])
  873 && yyeq_REF_INT((yy)t1[5], (yy)t2[5])
  874 ;
  875 case 8: return (t2[0] == 8)
  876 &&(strcmp((char *) t1[1], (char *) t2[1]) == 0)
  877 && (t1[2] == t2[2])
  878 ;
  879 case 9: return (t2[0] == 9)
  880 && yyeq_DEFARG((yy)t1[1], (yy)t2[1])
  881 && (t1[2] == t2[2])
  882 ;
  883 case 10: return (t2[0] == 10)
  884 && yyeq_ALTERNATIVELIST((yy)t1[1], (yy)t2[1])
  885 && yyeq_REF_IDENTLIST((yy)t1[2], (yy)t2[2])
  886 && (t1[3] == t2[3])
  887 ;
  888 case 11: return (t2[0] == 11)
  889 && yyeq_MEMBERS((yy)t1[1], (yy)t2[1])
  890 && (t1[2] == t2[2])
  891 ;
  892 }
  893 }
  894 yyPrint_MEMBER(t) yy t;
  895 {
  896 switch(t[0]) {
  897 case 1: 
  898 yyTerm("localasg");
  899 yyFirstArg();
  900 yyPrint_DEFARG((yy)t[1]);
  901 yyNextArg();
  902 yyPrint_USEARG((yy)t[2]);
  903 yyNextArg();
  904 yyPrint_POS((yy)t[3]);
  905 yyEndArgs();
  906 break;
  907 case 2: 
  908 yyTerm("update");
  909 yyFirstArg();
  910 yyPrint_IDENT((yy)t[1]);
  911 yyNextArg();
  912 yyPrint_POS((yy)t[2]);
  913 yyNextArg();
  914 yyPrint_USEARG((yy)t[3]);
  915 yyEndArgs();
  916 break;
  917 case 3: 
  918 yyTerm("query");
  919 yyFirstArg();
  920 yyPrint_IDENT((yy)t[1]);
  921 yyNextArg();
  922 yyPrint_POS((yy)t[2]);
  923 yyNextArg();
  924 yyPrint_DEFARG((yy)t[3]);
  925 yyEndArgs();
  926 break;
  927 case 4: 
  928 yyTerm("newkey");
  929 yyFirstArg();
  930 yyPrint_IDENT((yy)t[1]);
  931 yyNextArg();
  932 yyPrint_IDENT((yy)t[2]);
  933 yyNextArg();
  934 yyPrint_POS((yy)t[3]);
  935 yyNextArg();
  936 yyPrint_REF_INT((yy)t[4]);
  937 yyEndArgs();
  938 break;
  939 case 5: 
  940 yyTerm("table_update");
  941 yyFirstArg();
  942 yyPrint_IDENT((yy)t[1]);
  943 yyNextArg();
  944 yyPrint_IDENT((yy)t[2]);
  945 yyNextArg();
  946 yyPrint_USEARG((yy)t[3]);
  947 yyNextArg();
  948 yyPrint_POS((yy)t[4]);
  949 yyEndArgs();
  950 break;
  951 case 6: 
  952 yyTerm("table_query");
  953 yyFirstArg();
  954 yyPrint_IDENT((yy)t[1]);
  955 yyNextArg();
  956 yyPrint_IDENT((yy)t[2]);
  957 yyNextArg();
  958 yyPrint_DEFARG((yy)t[3]);
  959 yyNextArg();
  960 yyPrint_POS((yy)t[4]);
  961 yyEndArgs();
  962 break;
  963 case 7: 
  964 yyTerm("call");
  965 yyFirstArg();
  966 yyPrint_IDENT((yy)t[1]);
  967 yyNextArg();
  968 yyPrint_POS((yy)t[2]);
  969 yyNextArg();
  970 yyPrint_USEARGLIST((yy)t[3]);
  971 yyNextArg();
  972 yyPrint_DEFARGLIST((yy)t[4]);
  973 yyNextArg();
  974 yyPrint_REF_INT((yy)t[5]);
  975 yyEndArgs();
  976 break;
  977 case 8: 
  978 yyTerm("literal");
  979 yyFirstArg();
  980 yyPrint_STRING((yy)t[1]);
  981 yyNextArg();
  982 yyPrint_POS((yy)t[2]);
  983 yyEndArgs();
  984 break;
  985 case 9: 
  986 yyTerm("posmark");
  987 yyFirstArg();
  988 yyPrint_DEFARG((yy)t[1]);
  989 yyNextArg();
  990 yyPrint_POS((yy)t[2]);
  991 yyEndArgs();
  992 break;
  993 case 10: 
  994 yyTerm("disjunction");
  995 yyFirstArg();
  996 yyPrint_ALTERNATIVELIST((yy)t[1]);
  997 yyNextArg();
  998 yyPrint_REF_IDENTLIST((yy)t[2]);
  999 yyNextArg();
 1000 yyPrint_POS((yy)t[3]);
 1001 yyEndArgs();
 1002 break;
 1003 case 11: 
 1004 yyTerm("loop");
 1005 yyFirstArg();
 1006 yyPrint_MEMBERS((yy)t[1]);
 1007 yyNextArg();
 1008 yyPrint_POS((yy)t[2]);
 1009 yyEndArgs();
 1010 break;
 1011 }
 1012 }
 1013 yybroadcast_MEMBER(t,In,Out,Handler)
 1014 yy t, In, *Out; int (*Handler) ();
 1015 {
 1016 yy A, B;
 1017 A = In;
 1018 if (! Handler(yybroadcast_MEMBER, t, In, Out)) {
 1019 switch(t[0]) {
 1020 case 1: 
 1021 yybroadcast_DEFARG((yy)t[1], A, &B, Handler);
 1022 yybroadcast_USEARG((yy)t[2], B, &A, Handler);
 1023 *Out = A;
 1024 break;
 1025 case 2: 
 1026 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1027 yybroadcast_USEARG((yy)t[3], B, &A, Handler);
 1028 *Out = A;
 1029 break;
 1030 case 3: 
 1031 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1032 yybroadcast_DEFARG((yy)t[3], B, &A, Handler);
 1033 *Out = A;
 1034 break;
 1035 case 4: 
 1036 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1037 yybroadcast_IDENT((yy)t[2], B, &A, Handler);
 1038 *Out = A;
 1039 break;
 1040 case 5: 
 1041 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1042 yybroadcast_IDENT((yy)t[2], B, &A, Handler);
 1043 yybroadcast_USEARG((yy)t[3], A, &B, Handler);
 1044 *Out = B;
 1045 break;
 1046 case 6: 
 1047 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1048 yybroadcast_IDENT((yy)t[2], B, &A, Handler);
 1049 yybroadcast_DEFARG((yy)t[3], A, &B, Handler);
 1050 *Out = B;
 1051 break;
 1052 case 7: 
 1053 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1054 yybroadcast_USEARGLIST((yy)t[3], B, &A, Handler);
 1055 yybroadcast_DEFARGLIST((yy)t[4], A, &B, Handler);
 1056 *Out = B;
 1057 break;
 1058 case 8: 
 1059 *Out = A;
 1060 break;
 1061 case 9: 
 1062 yybroadcast_DEFARG((yy)t[1], A, &B, Handler);
 1063 *Out = B;
 1064 break;
 1065 case 10: 
 1066 yybroadcast_ALTERNATIVELIST((yy)t[1], A, &B, Handler);
 1067 *Out = B;
 1068 break;
 1069 case 11: 
 1070 yybroadcast_MEMBERS((yy)t[1], A, &B, Handler);
 1071 *Out = B;
 1072 break;
 1073 }
 1074 }
 1075 }
 1076 yyeq_MEMBERS(t1, t2) yy t1, t2;
 1077 {
 1078 switch(t1[0]) {
 1079 case 1: return (t2[0] == 1)
 1080 && yyeq_MEMBERLIST((yy)t1[1], (yy)t2[1])
 1081 && yyeq_REF_INT((yy)t1[2], (yy)t2[2])
 1082 ;
 1083 }
 1084 }
 1085 yyPrint_MEMBERS(t) yy t;
 1086 {
 1087 switch(t[0]) {
 1088 case 1: 
 1089 yyTerm("members");
 1090 yyFirstArg();
 1091 yyPrint_MEMBERLIST((yy)t[1]);
 1092 yyNextArg();
 1093 yyPrint_REF_INT((yy)t[2]);
 1094 yyEndArgs();
 1095 break;
 1096 }
 1097 }
 1098 yybroadcast_MEMBERS(t,In,Out,Handler)
 1099 yy t, In, *Out; int (*Handler) ();
 1100 {
 1101 yy A, B;
 1102 A = In;
 1103 if (! Handler(yybroadcast_MEMBERS, t, In, Out)) {
 1104 switch(t[0]) {
 1105 case 1: 
 1106 yybroadcast_MEMBERLIST((yy)t[1], A, &B, Handler);
 1107 *Out = B;
 1108 break;
 1109 }
 1110 }
 1111 }
 1112 yyeq_DEFARG(t1, t2) yy t1, t2;
 1113 {
 1114 switch(t1[0]) {
 1115 case 1: return (t2[0] == 1)
 1116 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1117 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
 1118 && (t1[3] == t2[3])
 1119 && yyeq_DEFARGLIST((yy)t1[4], (yy)t2[4])
 1120 ;
 1121 case 2: return (t2[0] == 2)
 1122 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 1123 && yyeq_REF_TEMPO((yy)t1[2], (yy)t2[2])
 1124 && yyeq_IDENT((yy)t1[3], (yy)t2[3])
 1125 && (t1[4] == t2[4])
 1126 && yyeq_DEFARGLIST((yy)t1[5], (yy)t2[5])
 1127 ;
 1128 case 3: return (t2[0] == 3)
 1129 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1130 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
 1131 && (t1[3] == t2[3])
 1132 ;
 1133 case 4: return (t2[0] == 4)
 1134 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1135 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
 1136 && (t1[3] == t2[3])
 1137 && yyeq_DEFARG((yy)t1[4], (yy)t2[4])
 1138 ;
 1139 case 5: return (t2[0] == 5)
 1140 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1141 && (t1[2] == t2[2])
 1142 ;
 1143 case 6: return (t2[0] == 6)
 1144 ;
 1145 }
 1146 }
 1147 yyPrint_DEFARG(t) yy t;
 1148 {
 1149 switch(t[0]) {
 1150 case 1: 
 1151 yyTerm("defterm");
 1152 yyFirstArg();
 1153 yyPrint_REF_TEMPO((yy)t[1]);
 1154 yyNextArg();
 1155 yyPrint_IDENT((yy)t[2]);
 1156 yyNextArg();
 1157 yyPrint_POS((yy)t[3]);
 1158 yyNextArg();
 1159 yyPrint_DEFARGLIST((yy)t[4]);
 1160 yyEndArgs();
 1161 break;
 1162 case 2: 
 1163 yyTerm("deftypedterm");
 1164 yyFirstArg();
 1165 yyPrint_IDENT((yy)t[1]);
 1166 yyNextArg();
 1167 yyPrint_REF_TEMPO((yy)t[2]);
 1168 yyNextArg();
 1169 yyPrint_IDENT((yy)t[3]);
 1170 yyNextArg();
 1171 yyPrint_POS((yy)t[4]);
 1172 yyNextArg();
 1173 yyPrint_DEFARGLIST((yy)t[5]);
 1174 yyEndArgs();
 1175 break;
 1176 case 3: 
 1177 yyTerm("defvar");
 1178 yyFirstArg();
 1179 yyPrint_REF_TEMPO((yy)t[1]);
 1180 yyNextArg();
 1181 yyPrint_IDENT((yy)t[2]);
 1182 yyNextArg();
 1183 yyPrint_POS((yy)t[3]);
 1184 yyEndArgs();
 1185 break;
 1186 case 4: 
 1187 yyTerm("defnamed");
 1188 yyFirstArg();
 1189 yyPrint_REF_TEMPO((yy)t[1]);
 1190 yyNextArg();
 1191 yyPrint_IDENT((yy)t[2]);
 1192 yyNextArg();
 1193 yyPrint_POS((yy)t[3]);
 1194 yyNextArg();
 1195 yyPrint_DEFARG((yy)t[4]);
 1196 yyEndArgs();
 1197 break;
 1198 case 5: 
 1199 yyTerm("defskip");
 1200 yyFirstArg();
 1201 yyPrint_REF_TEMPO((yy)t[1]);
 1202 yyNextArg();
 1203 yyPrint_POS((yy)t[2]);
 1204 yyEndArgs();
 1205 break;
 1206 case 6: 
 1207 yyTerm("deferror");
 1208 yyNoArgs();
 1209 break;
 1210 }
 1211 }
 1212 yybroadcast_DEFARG(t,In,Out,Handler)
 1213 yy t, In, *Out; int (*Handler) ();
 1214 {
 1215 yy A, B;
 1216 A = In;
 1217 if (! Handler(yybroadcast_DEFARG, t, In, Out)) {
 1218 switch(t[0]) {
 1219 case 1: 
 1220 yybroadcast_IDENT((yy)t[2], A, &B, Handler);
 1221 yybroadcast_DEFARGLIST((yy)t[4], B, &A, Handler);
 1222 *Out = A;
 1223 break;
 1224 case 2: 
 1225 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1226 yybroadcast_IDENT((yy)t[3], B, &A, Handler);
 1227 yybroadcast_DEFARGLIST((yy)t[5], A, &B, Handler);
 1228 *Out = B;
 1229 break;
 1230 case 3: 
 1231 yybroadcast_IDENT((yy)t[2], A, &B, Handler);
 1232 *Out = B;
 1233 break;
 1234 case 4: 
 1235 yybroadcast_IDENT((yy)t[2], A, &B, Handler);
 1236 yybroadcast_DEFARG((yy)t[4], B, &A, Handler);
 1237 *Out = A;
 1238 break;
 1239 case 5: 
 1240 *Out = A;
 1241 break;
 1242 case 6: 
 1243 *Out = A;
 1244 break;
 1245 }
 1246 }
 1247 }
 1248 yyeq_USEARG(t1, t2) yy t1, t2;
 1249 {
 1250 switch(t1[0]) {
 1251 case 1: return (t2[0] == 1)
 1252 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1253 && yyeq_BINOP((yy)t1[2], (yy)t2[2])
 1254 && (t1[3] == t2[3])
 1255 && yyeq_USEARG((yy)t1[4], (yy)t2[4])
 1256 && yyeq_USEARG((yy)t1[5], (yy)t2[5])
 1257 ;
 1258 case 2: return (t2[0] == 2)
 1259 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1260 && yyeq_MONOP((yy)t1[2], (yy)t2[2])
 1261 && (t1[3] == t2[3])
 1262 && yyeq_USEARG((yy)t1[4], (yy)t2[4])
 1263 ;
 1264 case 3: return (t2[0] == 3)
 1265 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1266 && yyeq_REF_INT((yy)t1[2], (yy)t2[2])
 1267 && yyeq_IDENT((yy)t1[3], (yy)t2[3])
 1268 && (t1[4] == t2[4])
 1269 && yyeq_USEARGLIST((yy)t1[5], (yy)t2[5])
 1270 ;
 1271 case 4: return (t2[0] == 4)
 1272 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 1273 && yyeq_USEARG((yy)t1[2], (yy)t2[2])
 1274 && (t1[3] == t2[3])
 1275 ;
 1276 case 5: return (t2[0] == 5)
 1277 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1278 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
 1279 && (t1[3] == t2[3])
 1280 ;
 1281 case 6: return (t2[0] == 6)
 1282 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1283 && (t1[2] == t2[2])
 1284 && (t1[3] == t2[3])
 1285 ;
 1286 case 7: return (t2[0] == 7)
 1287 && yyeq_REF_TEMPO((yy)t1[1], (yy)t2[1])
 1288 &&(strcmp((char *) t1[2], (char *) t2[2]) == 0)
 1289 && (t1[3] == t2[3])
 1290 ;
 1291 }
 1292 }
 1293 yyPrint_USEARG(t) yy t;
 1294 {
 1295 switch(t[0]) {
 1296 case 1: 
 1297 yyTerm("usebinary");
 1298 yyFirstArg();
 1299 yyPrint_REF_TEMPO((yy)t[1]);
 1300 yyNextArg();
 1301 yyPrint_BINOP((yy)t[2]);
 1302 yyNextArg();
 1303 yyPrint_POS((yy)t[3]);
 1304 yyNextArg();
 1305 yyPrint_USEARG((yy)t[4]);
 1306 yyNextArg();
 1307 yyPrint_USEARG((yy)t[5]);
 1308 yyEndArgs();
 1309 break;
 1310 case 2: 
 1311 yyTerm("useunary");
 1312 yyFirstArg();
 1313 yyPrint_REF_TEMPO((yy)t[1]);
 1314 yyNextArg();
 1315 yyPrint_MONOP((yy)t[2]);
 1316 yyNextArg();
 1317 yyPrint_POS((yy)t[3]);
 1318 yyNextArg();
 1319 yyPrint_USEARG((yy)t[4]);
 1320 yyEndArgs();
 1321 break;
 1322 case 3: 
 1323 yyTerm("useterm");
 1324 yyFirstArg();
 1325 yyPrint_REF_TEMPO((yy)t[1]);
 1326 yyNextArg();
 1327 yyPrint_REF_INT((yy)t[2]);
 1328 yyNextArg();
 1329 yyPrint_IDENT((yy)t[3]);
 1330 yyNextArg();
 1331 yyPrint_POS((yy)t[4]);
 1332 yyNextArg();
 1333 yyPrint_USEARGLIST((yy)t[5]);
 1334 yyEndArgs();
 1335 break;
 1336 case 4: 
 1337 yyTerm("usetypedterm");
 1338 yyFirstArg();
 1339 yyPrint_IDENT((yy)t[1]);
 1340 yyNextArg();
 1341 yyPrint_USEARG((yy)t[2]);
 1342 yyNextArg();
 1343 yyPrint_POS((yy)t[3]);
 1344 yyEndArgs();
 1345 break;
 1346 case 5: 
 1347 yyTerm("usevar");
 1348 yyFirstArg();
 1349 yyPrint_REF_TEMPO((yy)t[1]);
 1350 yyNextArg();
 1351 yyPrint_IDENT((yy)t[2]);
 1352 yyNextArg();
 1353 yyPrint_POS((yy)t[3]);
 1354 yyEndArgs();
 1355 break;
 1356 case 6: 
 1357 yyTerm("usenumber");
 1358 yyFirstArg();
 1359 yyPrint_REF_TEMPO((yy)t[1]);
 1360 yyNextArg();
 1361 yyPrint_INT((yy)t[2]);
 1362 yyNextArg();
 1363 yyPrint_POS((yy)t[3]);
 1364 yyEndArgs();
 1365 break;
 1366 case 7: 
 1367 yyTerm("usestring");
 1368 yyFirstArg();
 1369 yyPrint_REF_TEMPO((yy)t[1]);
 1370 yyNextArg();
 1371 yyPrint_STRING((yy)t[2]);
 1372 yyNextArg();
 1373 yyPrint_POS((yy)t[3]);
 1374 yyEndArgs();
 1375 break;
 1376 }
 1377 }
 1378 yybroadcast_USEARG(t,In,Out,Handler)
 1379 yy t, In, *Out; int (*Handler) ();
 1380 {
 1381 yy A, B;
 1382 A = In;
 1383 if (! Handler(yybroadcast_USEARG, t, In, Out)) {
 1384 switch(t[0]) {
 1385 case 1: 
 1386 yybroadcast_BINOP((yy)t[2], A, &B, Handler);
 1387 yybroadcast_USEARG((yy)t[4], B, &A, Handler);
 1388 yybroadcast_USEARG((yy)t[5], A, &B, Handler);
 1389 *Out = B;
 1390 break;
 1391 case 2: 
 1392 yybroadcast_MONOP((yy)t[2], A, &B, Handler);
 1393 yybroadcast_USEARG((yy)t[4], B, &A, Handler);
 1394 *Out = A;
 1395 break;
 1396 case 3: 
 1397 yybroadcast_IDENT((yy)t[3], A, &B, Handler);
 1398 yybroadcast_USEARGLIST((yy)t[5], B, &A, Handler);
 1399 *Out = A;
 1400 break;
 1401 case 4: 
 1402 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1403 yybroadcast_USEARG((yy)t[2], B, &A, Handler);
 1404 *Out = A;
 1405 break;
 1406 case 5: 
 1407 yybroadcast_IDENT((yy)t[2], A, &B, Handler);
 1408 *Out = B;
 1409 break;
 1410 case 6: 
 1411 *Out = A;
 1412 break;
 1413 case 7: 
 1414 *Out = A;
 1415 break;
 1416 }
 1417 }
 1418 }
 1419 yyeq_TEMPO(t1, t2) yy t1, t2;
 1420 {
 1421 switch(t1[0]) {
 1422 case 1: return (t2[0] == 1)
 1423 && (t1[1] == t2[1])
 1424 && yyeq_TEMPO((yy)t1[2], (yy)t2[2])
 1425 ;
 1426 case 2: return (t2[0] == 2)
 1427 ;
 1428 }
 1429 }
 1430 yyPrint_TEMPO(t) yy t;
 1431 {
 1432 switch(t[0]) {
 1433 case 1: 
 1434 yyTerm("indexed");
 1435 yyFirstArg();
 1436 yyPrint_INT((yy)t[1]);
 1437 yyNextArg();
 1438 yyPrint_TEMPO((yy)t[2]);
 1439 yyEndArgs();
 1440 break;
 1441 case 2: 
 1442 yyTerm("nil");
 1443 yyNoArgs();
 1444 break;
 1445 }
 1446 }
 1447 yybroadcast_TEMPO(t,In,Out,Handler)
 1448 yy t, In, *Out; int (*Handler) ();
 1449 {
 1450 yy A, B;
 1451 A = In;
 1452 if (! Handler(yybroadcast_TEMPO, t, In, Out)) {
 1453 switch(t[0]) {
 1454 case 1: 
 1455 yybroadcast_TEMPO((yy)t[2], A, &B, Handler);
 1456 *Out = B;
 1457 break;
 1458 case 2: 
 1459 *Out = A;
 1460 break;
 1461 }
 1462 }
 1463 }
 1464 yyeq_BINOP(t1, t2) yy t1, t2;
 1465 {
 1466 switch(t1[0]) {
 1467 case 1: return (t2[0] == 1)
 1468 ;
 1469 case 2: return (t2[0] == 2)
 1470 ;
 1471 case 3: return (t2[0] == 3)
 1472 ;
 1473 case 4: return (t2[0] == 4)
 1474 ;
 1475 }
 1476 }
 1477 yyPrint_BINOP(t) yy t;
 1478 {
 1479 switch(t[0]) {
 1480 case 1: 
 1481 yyTerm("plus");
 1482 yyNoArgs();
 1483 break;
 1484 case 2: 
 1485 yyTerm("minus");
 1486 yyNoArgs();
 1487 break;
 1488 case 3: 
 1489 yyTerm("mult");
 1490 yyNoArgs();
 1491 break;
 1492 case 4: 
 1493 yyTerm("div");
 1494 yyNoArgs();
 1495 break;
 1496 }
 1497 }
 1498 yybroadcast_BINOP(t,In,Out,Handler)
 1499 yy t, In, *Out; int (*Handler) ();
 1500 {
 1501 yy A, B;
 1502 A = In;
 1503 if (! Handler(yybroadcast_BINOP, t, In, Out)) {
 1504 switch(t[0]) {
 1505 case 1: 
 1506 *Out = A;
 1507 break;
 1508 case 2: 
 1509 *Out = A;
 1510 break;
 1511 case 3: 
 1512 *Out = A;
 1513 break;
 1514 case 4: 
 1515 *Out = A;
 1516 break;
 1517 }
 1518 }
 1519 }
 1520 yyeq_MONOP(t1, t2) yy t1, t2;
 1521 {
 1522 switch(t1[0]) {
 1523 case 1: return (t2[0] == 1)
 1524 ;
 1525 case 2: return (t2[0] == 2)
 1526 ;
 1527 }
 1528 }
 1529 yyPrint_MONOP(t) yy t;
 1530 {
 1531 switch(t[0]) {
 1532 case 1: 
 1533 yyTerm("plus");
 1534 yyNoArgs();
 1535 break;
 1536 case 2: 
 1537 yyTerm("minus");
 1538 yyNoArgs();
 1539 break;
 1540 }
 1541 }
 1542 yybroadcast_MONOP(t,In,Out,Handler)
 1543 yy t, In, *Out; int (*Handler) ();
 1544 {
 1545 yy A, B;
 1546 A = In;
 1547 if (! Handler(yybroadcast_MONOP, t, In, Out)) {
 1548 switch(t[0]) {
 1549 case 1: 
 1550 *Out = A;
 1551 break;
 1552 case 2: 
 1553 *Out = A;
 1554 break;
 1555 }
 1556 }
 1557 }
 1558 yyeq_REF_IDENTLIST(t1, t2) yy t1, t2;
 1559 {
 1560 return t1 == t2;
 1561 }
 1562 yyPrint_REF_IDENTLIST(t) yy t;
 1563 {
 1564 yyPrintIndex(t);
 1565 }
 1566 yyeq_UNITLIST(t1, t2) yy t1, t2;
 1567 {
 1568 switch(t1[0]) {
 1569 case 1: return (t2[0] == 1)
 1570 && yyeq_UNIT((yy)t1[1], (yy)t2[1])
 1571 && yyeq_UNITLIST((yy)t1[2], (yy)t2[2])
 1572 ;
 1573 case 2: return (t2[0] == 2)
 1574 ;
 1575 }
 1576 }
 1577 yyPrint_UNITLIST(t) yy t;
 1578 {
 1579 switch(t[0]) {
 1580 case 1: 
 1581 yyTerm("unitlist");
 1582 yyFirstArg();
 1583 yyPrint_UNIT((yy)t[1]);
 1584 yyNextArg();
 1585 yyPrint_UNITLIST((yy)t[2]);
 1586 yyEndArgs();
 1587 break;
 1588 case 2: 
 1589 yyTerm("nil");
 1590 yyNoArgs();
 1591 break;
 1592 }
 1593 }
 1594 yybroadcast_UNITLIST(t,In,Out,Handler)
 1595 yy t, In, *Out; int (*Handler) ();
 1596 {
 1597 yy A, B;
 1598 A = In;
 1599 if (! Handler(yybroadcast_UNITLIST, t, In, Out)) {
 1600 switch(t[0]) {
 1601 case 1: 
 1602 yybroadcast_UNIT((yy)t[1], A, &B, Handler);
 1603 yybroadcast_UNITLIST((yy)t[2], B, &A, Handler);
 1604 *Out = A;
 1605 break;
 1606 case 2: 
 1607 *Out = A;
 1608 break;
 1609 }
 1610 }
 1611 }
 1612 yyeq_IDENTLIST(t1, t2) yy t1, t2;
 1613 {
 1614 switch(t1[0]) {
 1615 case 1: return (t2[0] == 1)
 1616 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 1617 && yyeq_IDENTLIST((yy)t1[2], (yy)t2[2])
 1618 ;
 1619 case 2: return (t2[0] == 2)
 1620 ;
 1621 }
 1622 }
 1623 yyPrint_IDENTLIST(t) yy t;
 1624 {
 1625 switch(t[0]) {
 1626 case 1: 
 1627 yyTerm("identlist");
 1628 yyFirstArg();
 1629 yyPrint_IDENT((yy)t[1]);
 1630 yyNextArg();
 1631 yyPrint_IDENTLIST((yy)t[2]);
 1632 yyEndArgs();
 1633 break;
 1634 case 2: 
 1635 yyTerm("nil");
 1636 yyNoArgs();
 1637 break;
 1638 }
 1639 }
 1640 yybroadcast_IDENTLIST(t,In,Out,Handler)
 1641 yy t, In, *Out; int (*Handler) ();
 1642 {
 1643 yy A, B;
 1644 A = In;
 1645 if (! Handler(yybroadcast_IDENTLIST, t, In, Out)) {
 1646 switch(t[0]) {
 1647 case 1: 
 1648 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 1649 yybroadcast_IDENTLIST((yy)t[2], B, &A, Handler);
 1650 *Out = A;
 1651 break;
 1652 case 2: 
 1653 *Out = A;
 1654 break;
 1655 }
 1656 }
 1657 }
 1658 yyeq_DECLARATIONLIST(t1, t2) yy t1, t2;
 1659 {
 1660 switch(t1[0]) {
 1661 case 1: return (t2[0] == 1)
 1662 && yyeq_DECLARATION((yy)t1[1], (yy)t2[1])
 1663 && yyeq_DECLARATIONLIST((yy)t1[2], (yy)t2[2])
 1664 ;
 1665 case 2: return (t2[0] == 2)
 1666 ;
 1667 }
 1668 }
 1669 yyPrint_DECLARATIONLIST(t) yy t;
 1670 {
 1671 switch(t[0]) {
 1672 case 1: 
 1673 yyTerm("declarationlist");
 1674 yyFirstArg();
 1675 yyPrint_DECLARATION((yy)t[1]);
 1676 yyNextArg();
 1677 yyPrint_DECLARATIONLIST((yy)t[2]);
 1678 yyEndArgs();
 1679 break;
 1680 case 2: 
 1681 yyTerm("nil");
 1682 yyNoArgs();
 1683 break;
 1684 }
 1685 }
 1686 yybroadcast_DECLARATIONLIST(t,In,Out,Handler)
 1687 yy t, In, *Out; int (*Handler) ();
 1688 {
 1689 yy A, B;
 1690 A = In;
 1691 if (! Handler(yybroadcast_DECLARATIONLIST, t, In, Out)) {
 1692 switch(t[0]) {
 1693 case 1: 
 1694 yybroadcast_DECLARATION((yy)t[1], A, &B, Handler);
 1695 yybroadcast_DECLARATIONLIST((yy)t[2], B, &A, Handler);
 1696 *Out = A;
 1697 break;
 1698 case 2: 
 1699 *Out = A;
 1700 break;
 1701 }
 1702 }
 1703 }
 1704 yyeq_FUNCTORSPECLIST(t1, t2) yy t1, t2;
 1705 {
 1706 switch(t1[0]) {
 1707 case 1: return (t2[0] == 1)
 1708 && yyeq_FUNCTORSPEC((yy)t1[1], (yy)t2[1])
 1709 && yyeq_FUNCTORSPECLIST((yy)t1[2], (yy)t2[2])
 1710 ;
 1711 case 2: return (t2[0] == 2)
 1712 ;
 1713 }
 1714 }
 1715 yyPrint_FUNCTORSPECLIST(t) yy t;
 1716 {
 1717 switch(t[0]) {
 1718 case 1: 
 1719 yyTerm("functorspeclist");
 1720 yyFirstArg();
 1721 yyPrint_FUNCTORSPEC((yy)t[1]);
 1722 yyNextArg();
 1723 yyPrint_FUNCTORSPECLIST((yy)t[2]);
 1724 yyEndArgs();
 1725 break;
 1726 case 2: 
 1727 yyTerm("nil");
 1728 yyNoArgs();
 1729 break;
 1730 }
 1731 }
 1732 yybroadcast_FUNCTORSPECLIST(t,In,Out,Handler)
 1733 yy t, In, *Out; int (*Handler) ();
 1734 {
 1735 yy A, B;
 1736 A = In;
 1737 if (! Handler(yybroadcast_FUNCTORSPECLIST, t, In, Out)) {
 1738 switch(t[0]) {
 1739 case 1: 
 1740 yybroadcast_FUNCTORSPEC((yy)t[1], A, &B, Handler);
 1741 yybroadcast_FUNCTORSPECLIST((yy)t[2], B, &A, Handler);
 1742 *Out = A;
 1743 break;
 1744 case 2: 
 1745 *Out = A;
 1746 break;
 1747 }
 1748 }
 1749 }
 1750 yyeq_ARGSPECLIST(t1, t2) yy t1, t2;
 1751 {
 1752 switch(t1[0]) {
 1753 case 1: return (t2[0] == 1)
 1754 && yyeq_ARGSPEC((yy)t1[1], (yy)t2[1])
 1755 && (t1[2] == t2[2])
 1756 && yyeq_ARGSPECLIST((yy)t1[3], (yy)t2[3])
 1757 ;
 1758 case 2: return (t2[0] == 2)
 1759 ;
 1760 }
 1761 }
 1762 yyPrint_ARGSPECLIST(t) yy t;
 1763 {
 1764 switch(t[0]) {
 1765 case 1: 
 1766 yyTerm("argspeclist");
 1767 yyFirstArg();
 1768 yyPrint_ARGSPEC((yy)t[1]);
 1769 yyNextArg();
 1770 yyPrint_POS((yy)t[2]);
 1771 yyNextArg();
 1772 yyPrint_ARGSPECLIST((yy)t[3]);
 1773 yyEndArgs();
 1774 break;
 1775 case 2: 
 1776 yyTerm("nil");
 1777 yyNoArgs();
 1778 break;
 1779 }
 1780 }
 1781 yybroadcast_ARGSPECLIST(t,In,Out,Handler)
 1782 yy t, In, *Out; int (*Handler) ();
 1783 {
 1784 yy A, B;
 1785 A = In;
 1786 if (! Handler(yybroadcast_ARGSPECLIST, t, In, Out)) {
 1787 switch(t[0]) {
 1788 case 1: 
 1789 yybroadcast_ARGSPEC((yy)t[1], A, &B, Handler);
 1790 yybroadcast_ARGSPECLIST((yy)t[3], B, &A, Handler);
 1791 *Out = A;
 1792 break;
 1793 case 2: 
 1794 *Out = A;
 1795 break;
 1796 }
 1797 }
 1798 }
 1799 yyeq_RULELIST(t1, t2) yy t1, t2;
 1800 {
 1801 switch(t1[0]) {
 1802 case 1: return (t2[0] == 1)
 1803 && yyeq_RULE((yy)t1[1], (yy)t2[1])
 1804 && yyeq_RULELIST((yy)t1[2], (yy)t2[2])
 1805 ;
 1806 case 2: return (t2[0] == 2)
 1807 ;
 1808 }
 1809 }
 1810 yyPrint_RULELIST(t) yy t;
 1811 {
 1812 switch(t[0]) {
 1813 case 1: 
 1814 yyTerm("rulelist");
 1815 yyFirstArg();
 1816 yyPrint_RULE((yy)t[1]);
 1817 yyNextArg();
 1818 yyPrint_RULELIST((yy)t[2]);
 1819 yyEndArgs();
 1820 break;
 1821 case 2: 
 1822 yyTerm("nil");
 1823 yyNoArgs();
 1824 break;
 1825 }
 1826 }
 1827 yybroadcast_RULELIST(t,In,Out,Handler)
 1828 yy t, In, *Out; int (*Handler) ();
 1829 {
 1830 yy A, B;
 1831 A = In;
 1832 if (! Handler(yybroadcast_RULELIST, t, In, Out)) {
 1833 switch(t[0]) {
 1834 case 1: 
 1835 yybroadcast_RULE((yy)t[1], A, &B, Handler);
 1836 yybroadcast_RULELIST((yy)t[2], B, &A, Handler);
 1837 *Out = A;
 1838 break;
 1839 case 2: 
 1840 *Out = A;
 1841 break;
 1842 }
 1843 }
 1844 }
 1845 yyeq_MEMBERLIST(t1, t2) yy t1, t2;
 1846 {
 1847 switch(t1[0]) {
 1848 case 1: return (t2[0] == 1)
 1849 && yyeq_MEMBER((yy)t1[1], (yy)t2[1])
 1850 && yyeq_MEMBERLIST((yy)t1[2], (yy)t2[2])
 1851 ;
 1852 case 2: return (t2[0] == 2)
 1853 ;
 1854 }
 1855 }
 1856 yyPrint_MEMBERLIST(t) yy t;
 1857 {
 1858 switch(t[0]) {
 1859 case 1: 
 1860 yyTerm("memberlist");
 1861 yyFirstArg();
 1862 yyPrint_MEMBER((yy)t[1]);
 1863 yyNextArg();
 1864 yyPrint_MEMBERLIST((yy)t[2]);
 1865 yyEndArgs();
 1866 break;
 1867 case 2: 
 1868 yyTerm("nil");
 1869 yyNoArgs();
 1870 break;
 1871 }
 1872 }
 1873 yybroadcast_MEMBERLIST(t,In,Out,Handler)
 1874 yy t, In, *Out; int (*Handler) ();
 1875 {
 1876 yy A, B;
 1877 A = In;
 1878 if (! Handler(yybroadcast_MEMBERLIST, t, In, Out)) {
 1879 switch(t[0]) {
 1880 case 1: 
 1881 yybroadcast_MEMBER((yy)t[1], A, &B, Handler);
 1882 yybroadcast_MEMBERLIST((yy)t[2], B, &A, Handler);
 1883 *Out = A;
 1884 break;
 1885 case 2: 
 1886 *Out = A;
 1887 break;
 1888 }
 1889 }
 1890 }
 1891 yyeq_ALTERNATIVELIST(t1, t2) yy t1, t2;
 1892 {
 1893 switch(t1[0]) {
 1894 case 1: return (t2[0] == 1)
 1895 && yyeq_MEMBERS((yy)t1[1], (yy)t2[1])
 1896 && (t1[2] == t2[2])
 1897 && yyeq_ALTERNATIVELIST((yy)t1[3], (yy)t2[3])
 1898 ;
 1899 case 2: return (t2[0] == 2)
 1900 ;
 1901 }
 1902 }
 1903 yyPrint_ALTERNATIVELIST(t) yy t;
 1904 {
 1905 switch(t[0]) {
 1906 case 1: 
 1907 yyTerm("alternativelist");
 1908 yyFirstArg();
 1909 yyPrint_MEMBERS((yy)t[1]);
 1910 yyNextArg();
 1911 yyPrint_POS((yy)t[2]);
 1912 yyNextArg();
 1913 yyPrint_ALTERNATIVELIST((yy)t[3]);
 1914 yyEndArgs();
 1915 break;
 1916 case 2: 
 1917 yyTerm("nil");
 1918 yyNoArgs();
 1919 break;
 1920 }
 1921 }
 1922 yybroadcast_ALTERNATIVELIST(t,In,Out,Handler)
 1923 yy t, In, *Out; int (*Handler) ();
 1924 {
 1925 yy A, B;
 1926 A = In;
 1927 if (! Handler(yybroadcast_ALTERNATIVELIST, t, In, Out)) {
 1928 switch(t[0]) {
 1929 case 1: 
 1930 yybroadcast_MEMBERS((yy)t[1], A, &B, Handler);
 1931 yybroadcast_ALTERNATIVELIST((yy)t[3], B, &A, Handler);
 1932 *Out = A;
 1933 break;
 1934 case 2: 
 1935 *Out = A;
 1936 break;
 1937 }
 1938 }
 1939 }
 1940 yyeq_USEARGLIST(t1, t2) yy t1, t2;
 1941 {
 1942 switch(t1[0]) {
 1943 case 1: return (t2[0] == 1)
 1944 && yyeq_USEARG((yy)t1[1], (yy)t2[1])
 1945 && (t1[2] == t2[2])
 1946 && yyeq_USEARGLIST((yy)t1[3], (yy)t2[3])
 1947 ;
 1948 case 2: return (t2[0] == 2)
 1949 && (t1[1] == t2[1])
 1950 ;
 1951 }
 1952 }
 1953 yyPrint_USEARGLIST(t) yy t;
 1954 {
 1955 switch(t[0]) {
 1956 case 1: 
 1957 yyTerm("usearglist");
 1958 yyFirstArg();
 1959 yyPrint_USEARG((yy)t[1]);
 1960 yyNextArg();
 1961 yyPrint_POS((yy)t[2]);
 1962 yyNextArg();
 1963 yyPrint_USEARGLIST((yy)t[3]);
 1964 yyEndArgs();
 1965 break;
 1966 case 2: 
 1967 yyTerm("nil");
 1968 yyFirstArg();
 1969 yyPrint_POS((yy)t[1]);
 1970 yyEndArgs();
 1971 break;
 1972 }
 1973 }
 1974 yybroadcast_USEARGLIST(t,In,Out,Handler)
 1975 yy t, In, *Out; int (*Handler) ();
 1976 {
 1977 yy A, B;
 1978 A = In;
 1979 if (! Handler(yybroadcast_USEARGLIST, t, In, Out)) {
 1980 switch(t[0]) {
 1981 case 1: 
 1982 yybroadcast_USEARG((yy)t[1], A, &B, Handler);
 1983 yybroadcast_USEARGLIST((yy)t[3], B, &A, Handler);
 1984 *Out = A;
 1985 break;
 1986 case 2: 
 1987 *Out = A;
 1988 break;
 1989 }
 1990 }
 1991 }
 1992 yyeq_DEFARGLIST(t1, t2) yy t1, t2;
 1993 {
 1994 switch(t1[0]) {
 1995 case 1: return (t2[0] == 1)
 1996 && yyeq_DEFARG((yy)t1[1], (yy)t2[1])
 1997 && (t1[2] == t2[2])
 1998 && yyeq_DEFARGLIST((yy)t1[3], (yy)t2[3])
 1999 ;
 2000 case 2: return (t2[0] == 2)
 2001 && (t1[1] == t2[1])
 2002 ;
 2003 }
 2004 }
 2005 yyPrint_DEFARGLIST(t) yy t;
 2006 {
 2007 switch(t[0]) {
 2008 case 1: 
 2009 yyTerm("defarglist");
 2010 yyFirstArg();
 2011 yyPrint_DEFARG((yy)t[1]);
 2012 yyNextArg();
 2013 yyPrint_POS((yy)t[2]);
 2014 yyNextArg();
 2015 yyPrint_DEFARGLIST((yy)t[3]);
 2016 yyEndArgs();
 2017 break;
 2018 case 2: 
 2019 yyTerm("nil");
 2020 yyFirstArg();
 2021 yyPrint_POS((yy)t[1]);
 2022 yyEndArgs();
 2023 break;
 2024 }
 2025 }
 2026 yybroadcast_DEFARGLIST(t,In,Out,Handler)
 2027 yy t, In, *Out; int (*Handler) ();
 2028 {
 2029 yy A, B;
 2030 A = In;
 2031 if (! Handler(yybroadcast_DEFARGLIST, t, In, Out)) {
 2032 switch(t[0]) {
 2033 case 1: 
 2034 yybroadcast_DEFARG((yy)t[1], A, &B, Handler);
 2035 yybroadcast_DEFARGLIST((yy)t[3], B, &A, Handler);
 2036 *Out = A;
 2037 break;
 2038 case 2: 
 2039 *Out = A;
 2040 break;
 2041 }
 2042 }
 2043 }
 2044 yy yyglov_currentGroupIdent = (yy) yyu;
 2045 yyeq_BOOL(t1, t2) yy t1, t2;
 2046 {
 2047 switch(t1[0]) {
 2048 case 1: return (t2[0] == 1)
 2049 ;
 2050 case 2: return (t2[0] == 2)
 2051 ;
 2052 }
 2053 }
 2054 yyPrint_BOOL(t) yy t;
 2055 {
 2056 switch(t[0]) {
 2057 case 1: 
 2058 yyTerm("yes");
 2059 yyNoArgs();
 2060 break;
 2061 case 2: 
 2062 yyTerm("no");
 2063 yyNoArgs();
 2064 break;
 2065 }
 2066 }
 2067 yybroadcast_BOOL(t,In,Out,Handler)
 2068 yy t, In, *Out; int (*Handler) ();
 2069 {
 2070 yy A, B;
 2071 A = In;
 2072 if (! Handler(yybroadcast_BOOL, t, In, Out)) {
 2073 switch(t[0]) {
 2074 case 1: 
 2075 *Out = A;
 2076 break;
 2077 case 2: 
 2078 *Out = A;
 2079 break;
 2080 }
 2081 }
 2082 }
 2083 yy yyglov_containsGrammar = (yy) yyu;
 2084 yy yyglov_containsRoot = (yy) yyu;
 2085 yy yyglov_maxAttr = (yy) yyu;
 2086 yy yyglov_tokenList = (yy) yyu;
 2087 yyeq_TOKENLIST(t1, t2) yy t1, t2;
 2088 {
 2089 switch(t1[0]) {
 2090 case 1: return (t2[0] == 1)
 2091 && yyeq_TokenIndex((yy)t1[1], (yy)t2[1])
 2092 && yyeq_TOKENLIST((yy)t1[2], (yy)t2[2])
 2093 ;
 2094 case 2: return (t2[0] == 2)
 2095 ;
 2096 }
 2097 }
 2098 yyPrint_TOKENLIST(t) yy t;
 2099 {
 2100 switch(t[0]) {
 2101 case 1: 
 2102 yyTerm("list");
 2103 yyFirstArg();
 2104 yyPrint_TokenIndex((yy)t[1]);
 2105 yyNextArg();
 2106 yyPrint_TOKENLIST((yy)t[2]);
 2107 yyEndArgs();
 2108 break;
 2109 case 2: 
 2110 yyTerm("nil");
 2111 yyNoArgs();
 2112 break;
 2113 }
 2114 }
 2115 yybroadcast_TOKENLIST(t,In,Out,Handler)
 2116 yy t, In, *Out; int (*Handler) ();
 2117 {
 2118 yy A, B;
 2119 A = In;
 2120 if (! Handler(yybroadcast_TOKENLIST, t, In, Out)) {
 2121 switch(t[0]) {
 2122 case 1: 
 2123 yybroadcast_TOKENLIST((yy)t[2], A, &B, Handler);
 2124 *Out = B;
 2125 break;
 2126 case 2: 
 2127 *Out = A;
 2128 break;
 2129 }
 2130 }
 2131 }
 2132 yyeq_TokenIndex(t1, t2) yy t1, t2;
 2133 {
 2134 return t1 == t2;
 2135 }
 2136 yyPrint_TokenIndex(t) yy t;
 2137 {
 2138 yyPrintIndex(t);
 2139 }
 2140 yy yyglov_errorId = (yy) yyu;
 2141 yy yyglov_id_INT = (yy) yyu;
 2142 yy yyglov_id_STRING = (yy) yyu;
 2143 yy yyglov_id_POS = (yy) yyu;
 2144 yy yyglov_importedDeclarations = (yy) yyu;
 2145 yy yyglov_declaredVars = (yy) yyu;
 2146 yyeq_TYPEDIDLIST(t1, t2) yy t1, t2;
 2147 {
 2148 switch(t1[0]) {
 2149 case 1: return (t2[0] == 1)
 2150 && yyeq_TYPEDID((yy)t1[1], (yy)t2[1])
 2151 && yyeq_TYPEDIDLIST((yy)t1[2], (yy)t2[2])
 2152 ;
 2153 case 2: return (t2[0] == 2)
 2154 ;
 2155 }
 2156 }
 2157 yyPrint_TYPEDIDLIST(t) yy t;
 2158 {
 2159 switch(t[0]) {
 2160 case 1: 
 2161 yyTerm("typedidlist");
 2162 yyFirstArg();
 2163 yyPrint_TYPEDID((yy)t[1]);
 2164 yyNextArg();
 2165 yyPrint_TYPEDIDLIST((yy)t[2]);
 2166 yyEndArgs();
 2167 break;
 2168 case 2: 
 2169 yyTerm("nil");
 2170 yyNoArgs();
 2171 break;
 2172 }
 2173 }
 2174 yybroadcast_TYPEDIDLIST(t,In,Out,Handler)
 2175 yy t, In, *Out; int (*Handler) ();
 2176 {
 2177 yy A, B;
 2178 A = In;
 2179 if (! Handler(yybroadcast_TYPEDIDLIST, t, In, Out)) {
 2180 switch(t[0]) {
 2181 case 1: 
 2182 yybroadcast_TYPEDID((yy)t[1], A, &B, Handler);
 2183 yybroadcast_TYPEDIDLIST((yy)t[2], B, &A, Handler);
 2184 *Out = A;
 2185 break;
 2186 case 2: 
 2187 *Out = A;
 2188 break;
 2189 }
 2190 }
 2191 }
 2192 yyeq_TYPEDID(t1, t2) yy t1, t2;
 2193 {
 2194 switch(t1[0]) {
 2195 case 1: return (t2[0] == 1)
 2196 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 2197 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
 2198 ;
 2199 }
 2200 }
 2201 yyPrint_TYPEDID(t) yy t;
 2202 {
 2203 switch(t[0]) {
 2204 case 1: 
 2205 yyTerm("typedid");
 2206 yyFirstArg();
 2207 yyPrint_IDENT((yy)t[1]);
 2208 yyNextArg();
 2209 yyPrint_IDENT((yy)t[2]);
 2210 yyEndArgs();
 2211 break;
 2212 }
 2213 }
 2214 yybroadcast_TYPEDID(t,In,Out,Handler)
 2215 yy t, In, *Out; int (*Handler) ();
 2216 {
 2217 yy A, B;
 2218 A = In;
 2219 if (! Handler(yybroadcast_TYPEDID, t, In, Out)) {
 2220 switch(t[0]) {
 2221 case 1: 
 2222 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 2223 yybroadcast_IDENT((yy)t[2], B, &A, Handler);
 2224 *Out = A;
 2225 break;
 2226 }
 2227 }
 2228 }
 2229 yy yyglov_spaceRequired = (yy) yyu;
 2230 yy yyglov_currentTokenCode = (yy) yyu;
 2231 yy yyglov_currentProcNumber = (yy) yyu;
 2232 yy yyglov_currentRuleNumber = (yy) yyu;
 2233 yyeq_CODEKIND(t1, t2) yy t1, t2;
 2234 {
 2235 switch(t1[0]) {
 2236 case 1: return (t2[0] == 1)
 2237 ;
 2238 case 2: return (t2[0] == 2)
 2239 ;
 2240 }
 2241 }
 2242 yyPrint_CODEKIND(t) yy t;
 2243 {
 2244 switch(t[0]) {
 2245 case 1: 
 2246 yyTerm("grammar_code");
 2247 yyNoArgs();
 2248 break;
 2249 case 2: 
 2250 yyTerm("predicate_code");
 2251 yyNoArgs();
 2252 break;
 2253 }
 2254 }
 2255 yybroadcast_CODEKIND(t,In,Out,Handler)
 2256 yy t, In, *Out; int (*Handler) ();
 2257 {
 2258 yy A, B;
 2259 A = In;
 2260 if (! Handler(yybroadcast_CODEKIND, t, In, Out)) {
 2261 switch(t[0]) {
 2262 case 1: 
 2263 *Out = A;
 2264 break;
 2265 case 2: 
 2266 *Out = A;
 2267 break;
 2268 }
 2269 }
 2270 }
 2271 yyeq_RULEGROUPLIST(t1, t2) yy t1, t2;
 2272 {
 2273 switch(t1[0]) {
 2274 case 1: return (t2[0] == 1)
 2275 && yyeq_RULEGROUP((yy)t1[1], (yy)t2[1])
 2276 && yyeq_RULEGROUPLIST((yy)t1[2], (yy)t2[2])
 2277 ;
 2278 case 2: return (t2[0] == 2)
 2279 ;
 2280 }
 2281 }
 2282 yyPrint_RULEGROUPLIST(t) yy t;
 2283 {
 2284 switch(t[0]) {
 2285 case 1: 
 2286 yyTerm("list");
 2287 yyFirstArg();
 2288 yyPrint_RULEGROUP((yy)t[1]);
 2289 yyNextArg();
 2290 yyPrint_RULEGROUPLIST((yy)t[2]);
 2291 yyEndArgs();
 2292 break;
 2293 case 2: 
 2294 yyTerm("nil");
 2295 yyNoArgs();
 2296 break;
 2297 }
 2298 }
 2299 yybroadcast_RULEGROUPLIST(t,In,Out,Handler)
 2300 yy t, In, *Out; int (*Handler) ();
 2301 {
 2302 yy A, B;
 2303 A = In;
 2304 if (! Handler(yybroadcast_RULEGROUPLIST, t, In, Out)) {
 2305 switch(t[0]) {
 2306 case 1: 
 2307 yybroadcast_RULEGROUP((yy)t[1], A, &B, Handler);
 2308 yybroadcast_RULEGROUPLIST((yy)t[2], B, &A, Handler);
 2309 *Out = A;
 2310 break;
 2311 case 2: 
 2312 *Out = A;
 2313 break;
 2314 }
 2315 }
 2316 }
 2317 yyeq_RULEGROUP(t1, t2) yy t1, t2;
 2318 {
 2319 switch(t1[0]) {
 2320 case 1: return (t2[0] == 1)
 2321 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 2322 && yyeq_RULE_ENTRY((yy)t1[2], (yy)t2[2])
 2323 ;
 2324 }
 2325 }
 2326 yyPrint_RULEGROUP(t) yy t;
 2327 {
 2328 switch(t[0]) {
 2329 case 1: 
 2330 yyTerm("rulegroup");
 2331 yyFirstArg();
 2332 yyPrint_IDENT((yy)t[1]);
 2333 yyNextArg();
 2334 yyPrint_RULE_ENTRY((yy)t[2]);
 2335 yyEndArgs();
 2336 break;
 2337 }
 2338 }
 2339 yybroadcast_RULEGROUP(t,In,Out,Handler)
 2340 yy t, In, *Out; int (*Handler) ();
 2341 {
 2342 yy A, B;
 2343 A = In;
 2344 if (! Handler(yybroadcast_RULEGROUP, t, In, Out)) {
 2345 switch(t[0]) {
 2346 case 1: 
 2347 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 2348 *Out = B;
 2349 break;
 2350 }
 2351 }
 2352 }
 2353 yyeq_RULE_ENTRY(t1, t2) yy t1, t2;
 2354 {
 2355 return t1 == t2;
 2356 }
 2357 yyPrint_RULE_ENTRY(t) yy t;
 2358 {
 2359 yyPrintIndex(t);
 2360 }
 2361 yy yyglov_localVars = (yy) yyu;
 2362 yy yyglov_env = (yy) yyu;
 2363 yyeq_ENV(t1, t2) yy t1, t2;
 2364 {
 2365 switch(t1[0]) {
 2366 case 1: return (t2[0] == 1)
 2367 && yyeq_IDENTLIST((yy)t1[1], (yy)t2[1])
 2368 && yyeq_ENV((yy)t1[2], (yy)t2[2])
 2369 ;
 2370 case 2: return (t2[0] == 2)
 2371 ;
 2372 }
 2373 }
 2374 yyPrint_ENV(t) yy t;
 2375 {
 2376 switch(t[0]) {
 2377 case 1: 
 2378 yyTerm("env");
 2379 yyFirstArg();
 2380 yyPrint_IDENTLIST((yy)t[1]);
 2381 yyNextArg();
 2382 yyPrint_ENV((yy)t[2]);
 2383 yyEndArgs();
 2384 break;
 2385 case 2: 
 2386 yyTerm("nil");
 2387 yyNoArgs();
 2388 break;
 2389 }
 2390 }
 2391 yybroadcast_ENV(t,In,Out,Handler)
 2392 yy t, In, *Out; int (*Handler) ();
 2393 {
 2394 yy A, B;
 2395 A = In;
 2396 if (! Handler(yybroadcast_ENV, t, In, Out)) {
 2397 switch(t[0]) {
 2398 case 1: 
 2399 yybroadcast_IDENTLIST((yy)t[1], A, &B, Handler);
 2400 yybroadcast_ENV((yy)t[2], B, &A, Handler);
 2401 *Out = A;
 2402 break;
 2403 case 2: 
 2404 *Out = A;
 2405 break;
 2406 }
 2407 }
 2408 }
 2409 yy yyglov_currentFailLabel = (yy) yyu;
 2410 yy yyglov_currentFailLabelUsed = (yy) yyu;
 2411 yy yyglov_currentSuccessLabel = (yy) yyu;
 2412 yyeq_TYPECHECKFLAG(t1, t2) yy t1, t2;
 2413 {
 2414 switch(t1[0]) {
 2415 case 1: return (t2[0] == 1)
 2416 ;
 2417 case 2: return (t2[0] == 2)
 2418 ;
 2419 }
 2420 }
 2421 yyPrint_TYPECHECKFLAG(t) yy t;
 2422 {
 2423 switch(t[0]) {
 2424 case 1: 
 2425 yyTerm("typecheck");
 2426 yyNoArgs();
 2427 break;
 2428 case 2: 
 2429 yyTerm("no_typecheck");
 2430 yyNoArgs();
 2431 break;
 2432 }
 2433 }
 2434 yybroadcast_TYPECHECKFLAG(t,In,Out,Handler)
 2435 yy t, In, *Out; int (*Handler) ();
 2436 {
 2437 yy A, B;
 2438 A = In;
 2439 if (! Handler(yybroadcast_TYPECHECKFLAG, t, In, Out)) {
 2440 switch(t[0]) {
 2441 case 1: 
 2442 *Out = A;
 2443 break;
 2444 case 2: 
 2445 *Out = A;
 2446 break;
 2447 }
 2448 }
 2449 }
 2450 yyeq_REF_TEMPO(t1, t2) yy t1, t2;
 2451 {
 2452 return t1 == t2;
 2453 }
 2454 yyPrint_REF_TEMPO(t) yy t;
 2455 {
 2456 yyPrintIndex(t);
 2457 }
 2458 yyeq_REF_INT(t1, t2) yy t1, t2;
 2459 {
 2460 return t1 == t2;
 2461 }
 2462 yyPrint_REF_INT(t) yy t;
 2463 {
 2464 yyPrintIndex(t);
 2465 }
 2466 yy yyglov_choice_Declarations = (yy) yyu;
 2467 yy yyglov_choice_Types = (yy) yyu;
 2468 yy yyglov_insideChoiceRule = (yy) yyu;
 2469 yyeq_CHOICETYPELIST(t1, t2) yy t1, t2;
 2470 {
 2471 switch(t1[0]) {
 2472 case 1: return (t2[0] == 1)
 2473 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 2474 && yyeq_CHOICETYPE((yy)t1[2], (yy)t2[2])
 2475 && yyeq_CHOICETYPELIST((yy)t1[3], (yy)t2[3])
 2476 ;
 2477 case 2: return (t2[0] == 2)
 2478 ;
 2479 }
 2480 }
 2481 yyPrint_CHOICETYPELIST(t) yy t;
 2482 {
 2483 switch(t[0]) {
 2484 case 1: 
 2485 yyTerm("list");
 2486 yyFirstArg();
 2487 yyPrint_IDENT((yy)t[1]);
 2488 yyNextArg();
 2489 yyPrint_CHOICETYPE((yy)t[2]);
 2490 yyNextArg();
 2491 yyPrint_CHOICETYPELIST((yy)t[3]);
 2492 yyEndArgs();
 2493 break;
 2494 case 2: 
 2495 yyTerm("nil");
 2496 yyNoArgs();
 2497 break;
 2498 }
 2499 }
 2500 yybroadcast_CHOICETYPELIST(t,In,Out,Handler)
 2501 yy t, In, *Out; int (*Handler) ();
 2502 {
 2503 yy A, B;
 2504 A = In;
 2505 if (! Handler(yybroadcast_CHOICETYPELIST, t, In, Out)) {
 2506 switch(t[0]) {
 2507 case 1: 
 2508 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 2509 yybroadcast_CHOICETYPELIST((yy)t[3], B, &A, Handler);
 2510 *Out = A;
 2511 break;
 2512 case 2: 
 2513 *Out = A;
 2514 break;
 2515 }
 2516 }
 2517 }
 2518 yyeq_CHOICEFUNCTORLIST(t1, t2) yy t1, t2;
 2519 {
 2520 switch(t1[0]) {
 2521 case 1: return (t2[0] == 1)
 2522 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 2523 && yyeq_CHOICEFUNCTOR((yy)t1[2], (yy)t2[2])
 2524 && yyeq_CHOICEFUNCTORLIST((yy)t1[3], (yy)t2[3])
 2525 ;
 2526 case 2: return (t2[0] == 2)
 2527 ;
 2528 }
 2529 }
 2530 yyPrint_CHOICEFUNCTORLIST(t) yy t;
 2531 {
 2532 switch(t[0]) {
 2533 case 1: 
 2534 yyTerm("list");
 2535 yyFirstArg();
 2536 yyPrint_IDENT((yy)t[1]);
 2537 yyNextArg();
 2538 yyPrint_CHOICEFUNCTOR((yy)t[2]);
 2539 yyNextArg();
 2540 yyPrint_CHOICEFUNCTORLIST((yy)t[3]);
 2541 yyEndArgs();
 2542 break;
 2543 case 2: 
 2544 yyTerm("nil");
 2545 yyNoArgs();
 2546 break;
 2547 }
 2548 }
 2549 yybroadcast_CHOICEFUNCTORLIST(t,In,Out,Handler)
 2550 yy t, In, *Out; int (*Handler) ();
 2551 {
 2552 yy A, B;
 2553 A = In;
 2554 if (! Handler(yybroadcast_CHOICEFUNCTORLIST, t, In, Out)) {
 2555 switch(t[0]) {
 2556 case 1: 
 2557 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 2558 yybroadcast_CHOICEFUNCTORLIST((yy)t[3], B, &A, Handler);
 2559 *Out = A;
 2560 break;
 2561 case 2: 
 2562 *Out = A;
 2563 break;
 2564 }
 2565 }
 2566 }
 2567 yyeq_CHOICETYPE(t1, t2) yy t1, t2;
 2568 {
 2569 return t1 == t2;
 2570 }
 2571 yyPrint_CHOICETYPE(t) yy t;
 2572 {
 2573 yyPrintIndex(t);
 2574 }
 2575 yyeq_CHOICEFUNCTOR(t1, t2) yy t1, t2;
 2576 {
 2577 return t1 == t2;
 2578 }
 2579 yyPrint_CHOICEFUNCTOR(t) yy t;
 2580 {
 2581 yyPrintIndex(t);
 2582 }
 2583 yy yyglov_current_choice_type = (yy) yyu;
 2584 yyeq_PREDICATELIST(t1, t2) yy t1, t2;
 2585 {
 2586 switch(t1[0]) {
 2587 case 1: return (t2[0] == 1)
 2588 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 2589 && yyeq_PREDICATELIST((yy)t1[2], (yy)t2[2])
 2590 ;
 2591 case 2: return (t2[0] == 2)
 2592 ;
 2593 }
 2594 }
 2595 yyPrint_PREDICATELIST(t) yy t;
 2596 {
 2597 switch(t[0]) {
 2598 case 1: 
 2599 yyTerm("list");
 2600 yyFirstArg();
 2601 yyPrint_IDENT((yy)t[1]);
 2602 yyNextArg();
 2603 yyPrint_PREDICATELIST((yy)t[2]);
 2604 yyEndArgs();
 2605 break;
 2606 case 2: 
 2607 yyTerm("nil");
 2608 yyNoArgs();
 2609 break;
 2610 }
 2611 }
 2612 yybroadcast_PREDICATELIST(t,In,Out,Handler)
 2613 yy t, In, *Out; int (*Handler) ();
 2614 {
 2615 yy A, B;
 2616 A = In;
 2617 if (! Handler(yybroadcast_PREDICATELIST, t, In, Out)) {
 2618 switch(t[0]) {
 2619 case 1: 
 2620 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 2621 yybroadcast_PREDICATELIST((yy)t[2], B, &A, Handler);
 2622 *Out = A;
 2623 break;
 2624 case 2: 
 2625 *Out = A;
 2626 break;
 2627 }
 2628 }
 2629 }
 2630 yy yyglov_tryLabel = (yy) yyu;
 2631 yyeq_PATH(t1, t2) yy t1, t2;
 2632 {
 2633 switch(t1[0]) {
 2634 case 1: return (t2[0] == 1)
 2635 && yyeq_PATH((yy)t1[1], (yy)t2[1])
 2636 && (t1[2] == t2[2])
 2637 ;
 2638 case 2: return (t2[0] == 2)
 2639 ;
 2640 }
 2641 }
 2642 yyPrint_PATH(t) yy t;
 2643 {
 2644 switch(t[0]) {
 2645 case 1: 
 2646 yyTerm("path");
 2647 yyFirstArg();
 2648 yyPrint_PATH((yy)t[1]);
 2649 yyNextArg();
 2650 yyPrint_INT((yy)t[2]);
 2651 yyEndArgs();
 2652 break;
 2653 case 2: 
 2654 yyTerm("nil");
 2655 yyNoArgs();
 2656 break;
 2657 }
 2658 }
 2659 yybroadcast_PATH(t,In,Out,Handler)
 2660 yy t, In, *Out; int (*Handler) ();
 2661 {
 2662 yy A, B;
 2663 A = In;
 2664 if (! Handler(yybroadcast_PATH, t, In, Out)) {
 2665 switch(t[0]) {
 2666 case 1: 
 2667 yybroadcast_PATH((yy)t[1], A, &B, Handler);
 2668 *Out = B;
 2669 break;
 2670 case 2: 
 2671 *Out = A;
 2672 break;
 2673 }
 2674 }
 2675 }
 2676 yyeq_VARPATHES(t1, t2) yy t1, t2;
 2677 {
 2678 switch(t1[0]) {
 2679 case 1: return (t2[0] == 1)
 2680 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 2681 && yyeq_PATH((yy)t1[2], (yy)t2[2])
 2682 && yyeq_VARPATHES((yy)t1[3], (yy)t2[3])
 2683 ;
 2684 case 2: return (t2[0] == 2)
 2685 ;
 2686 }
 2687 }
 2688 yyPrint_VARPATHES(t) yy t;
 2689 {
 2690 switch(t[0]) {
 2691 case 1: 
 2692 yyTerm("varpathes");
 2693 yyFirstArg();
 2694 yyPrint_IDENT((yy)t[1]);
 2695 yyNextArg();
 2696 yyPrint_PATH((yy)t[2]);
 2697 yyNextArg();
 2698 yyPrint_VARPATHES((yy)t[3]);
 2699 yyEndArgs();
 2700 break;
 2701 case 2: 
 2702 yyTerm("nil");
 2703 yyNoArgs();
 2704 break;
 2705 }
 2706 }
 2707 yybroadcast_VARPATHES(t,In,Out,Handler)
 2708 yy t, In, *Out; int (*Handler) ();
 2709 {
 2710 yy A, B;
 2711 A = In;
 2712 if (! Handler(yybroadcast_VARPATHES, t, In, Out)) {
 2713 switch(t[0]) {
 2714 case 1: 
 2715 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 2716 yybroadcast_PATH((yy)t[2], B, &A, Handler);
 2717 yybroadcast_VARPATHES((yy)t[3], A, &B, Handler);
 2718 *Out = B;
 2719 break;
 2720 case 2: 
 2721 *Out = A;
 2722 break;
 2723 }
 2724 }
 2725 }
 2726 yyeq_CHOICEMEMBERLIST(t1, t2) yy t1, t2;
 2727 {
 2728 switch(t1[0]) {
 2729 case 1: return (t2[0] == 1)
 2730 && yyeq_IDENT((yy)t1[1], (yy)t2[1])
 2731 && yyeq_IDENT((yy)t1[2], (yy)t2[2])
 2732 && yyeq_PATH((yy)t1[3], (yy)t2[3])
 2733 && yyeq_CHOICETYPE((yy)t1[4], (yy)t2[4])
 2734 && yyeq_CHOICEMEMBERLIST((yy)t1[5], (yy)t2[5])
 2735 ;
 2736 case 2: return (t2[0] == 2)
 2737 ;
 2738 }
 2739 }
 2740 yyPrint_CHOICEMEMBERLIST(t) yy t;
 2741 {
 2742 switch(t[0]) {
 2743 case 1: 
 2744 yyTerm("list");
 2745 yyFirstArg();
 2746 yyPrint_IDENT((yy)t[1]);
 2747 yyNextArg();
 2748 yyPrint_IDENT((yy)t[2]);
 2749 yyNextArg();
 2750 yyPrint_PATH((yy)t[3]);
 2751 yyNextArg();
 2752 yyPrint_CHOICETYPE((yy)t[4]);
 2753 yyNextArg();
 2754 yyPrint_CHOICEMEMBERLIST((yy)t[5]);
 2755 yyEndArgs();
 2756 break;
 2757 case 2: 
 2758 yyTerm("nil");
 2759 yyNoArgs();
 2760 break;
 2761 }
 2762 }
 2763 yybroadcast_CHOICEMEMBERLIST(t,In,Out,Handler)
 2764 yy t, In, *Out; int (*Handler) ();
 2765 {
 2766 yy A, B;
 2767 A = In;
 2768 if (! Handler(yybroadcast_CHOICEMEMBERLIST, t, In, Out)) {
 2769 switch(t[0]) {
 2770 case 1: 
 2771 yybroadcast_IDENT((yy)t[1], A, &B, Handler);
 2772 yybroadcast_IDENT((yy)t[2], B, &A, Handler);
 2773 yybroadcast_PATH((yy)t[3], A, &B, Handler);
 2774 yybroadcast_CHOICEMEMBERLIST((yy)t[5], B, &A, Handler);
 2775 *Out = A;
 2776 break;
 2777 case 2: 
 2778 *Out = A;
 2779 break;
 2780 }
 2781 }
 2782 }
 2783 yy yyglov_pathes = (yy) yyu;
 2784 yyeq_EXPORTABLE(t1, t2) yy t1, t2;
 2785 {
 2786 switch(t1[0]) {
 2787 case 1: return (t2[0] == 1)
 2788 ;
 2789 case 2: return (t2[0] == 2)
 2790 ;
 2791 }
 2792 }
 2793 yyPrint_EXPORTABLE(t) yy t;
 2794 {
 2795 switch(t[0]) {
 2796 case 1: 
 2797 yyTerm("exportable");
 2798 yyNoArgs();
 2799 break;
 2800 case 2: 
 2801 yyTerm("not_exportable");
 2802 yyNoArgs();
 2803 break;
 2804 }
 2805 }
 2806 yybroadcast_EXPORTABLE(t,In,Out,Handler)
 2807 yy t, In, *Out; int (*Handler) ();
 2808 {
 2809 yy A, B;
 2810 A = In;
 2811 if (! Handler(yybroadcast_EXPORTABLE, t, In, Out)) {
 2812 switch(t[0]) {
 2813 case 1: 
 2814 *Out = A;
 2815 break;
 2816 case 2: 
 2817 *Out = A;
 2818 break;
 2819 }
 2820 }
 2821 }
 2822 int yyparse_rc = 0;
 2823 ROOT()
 2824 {
 2825 extern char *THIS_RUNTIME_SYSTEM;
 2826 char *GENTLE = "Gentle 3.0 (C) 1992, 1997";
 2827 if (strcmp(THIS_RUNTIME_SYSTEM, GENTLE))
 2828 { printf("INCONSISTENT GENTLE RUNTIME SYSTEM\n"); exit(1); }
 2829 yyExtend();
 2830 yyparse_rc = yyparse();
 2831 }
 2832 PrepareImport(yyin_1)
 2833 yy yyin_1;
 2834 {
 2835 {
 2836 yy yyb;
 2837 yy yy_0_1;
 2838 yy yyv_H;
 2839 yy yy_0_1_1;
 2840 yy yyv_T;
 2841 yy yy_0_1_2;
 2842 yy yy_1_1;
 2843 yy yyv_S;
 2844 yy yy_1_2;
 2845 yy yy_2_1;
 2846 yy yy_3_1;
 2847 yy_0_1 = yyin_1;
 2848 if (yy_0_1[0] != 1) goto yyfl_157_1;
 2849 yy_0_1_1 = ((yy)yy_0_1[1]);
 2850 yy_0_1_2 = ((yy)yy_0_1[2]);
 2851 yyv_H = yy_0_1_1;
 2852 yyv_T = yy_0_1_2;
 2853 yy_1_1 = yyv_H;
 2854 id_to_string(yy_1_1, &yy_1_2);
 2855 yyv_S = yy_1_2;
 2856 yy_2_1 = yyv_S;
 2857 define_file(yy_2_1);
 2858 yy_3_1 = yyv_T;
 2859 PrepareImport(yy_3_1);
 2860 return;
 2861 yyfl_157_1 : ;
 2862 }
 2863 {
 2864 yy yyb;
 2865 yy yy_0_1;
 2866 yy_0_1 = yyin_1;
 2867 if (yy_0_1[0] != 2) goto yyfl_157_2;
 2868 return;
 2869 yyfl_157_2 : ;
 2870 }
 2871 yyErr(2,1101);
 2872 }
 2873 New_REF_IDENTLIST(yyout_1)
 2874 yy *yyout_1;
 2875 {
 2876 {
 2877 yy yyb;
 2878 yy yy_0_1;
 2879 yy yyv_P;
 2880 yyb = yyh;
 2881 yyh += 2; if (yyh > yyhx) yyExtend();
 2882 yyv_P = yyb + 0;
 2883 yyb[1] = yyu;
 2884 yy_0_1 = yyv_P;
 2885 *yyout_1 = yy_0_1;
 2886 return;
 2887 }
 2888 }
 2889 EnterLiteral(yyin_1, yyin_2, yyout_1)
 2890 yy yyin_1;
 2891 yy yyin_2;
 2892 yy *yyout_1;
 2893 {
 2894 {
 2895 yy yyb;
 2896 yy yyv_Str;
 2897 yy yy_0_1;
 2898 yy yyv_Pos;
 2899 yy yy_0_2;
 2900 yy yy_0_3;
 2901 yy yy_1_1_1_1;
 2902 yy yy_1_1_1_2;
 2903 yy yy_1_1_2_1;
 2904 yy yy_1_1_2_2;
 2905 yy yyv_L;
 2906 yy yy_2;
 2907 yy yy_3_1;
 2908 yy yy_3_2;
 2909 yy yy_3_3;
 2910 yy yyv_Id;
 2911 yy yy_3_4;
 2912 yy_0_1 = yyin_1;
 2913 yy_0_2 = yyin_2;
 2914 yyv_Str = yy_0_1;
 2915 yyv_Pos = yy_0_2;
 2916 {
 2917 yy yysb = yyb;
 2918 yy_1_1_1_1 = yyv_Str;
 2919 yy_1_1_1_2 = ((yy)"");
 2920 if (strcmp((char *) yy_1_1_1_1, (char *) yy_1_1_1_2)  !=  0) goto yyfl_166_1_1_1;
 2921 yy_1_1_2_1 = ((yy)"empty string not allowed as token");
 2922 yy_1_1_2_2 = yyv_Pos;
 2923 MESSAGE(yy_1_1_2_1, yy_1_1_2_2);
 2924 goto yysl_166_1_1;
 2925 yyfl_166_1_1_1 : ;
 2926 goto yysl_166_1_1;
 2927 yysl_166_1_1 : ;
 2928 yyb = yysb;
 2929 }
 2930 yy_2 = yyglov_tokenList;
 2931 if (yy_2 == (yy) yyu) yyErr(1,1142);
 2932 yyv_L = yy_2;
 2933 yy_3_1 = yyv_L;
 2934 yy_3_2 = yyv_Str;
 2935 yy_3_3 = yyv_Pos;
 2936 LookupAnonToken(yy_3_1, yy_3_2, yy_3_3, &yy_3_4);
 2937 yyv_Id = yy_3_4;
 2938 yy_0_3 = yyv_Id;
 2939 *yyout_1 = yy_0_3;
 2940 return;
 2941 }
 2942 }
 2943 LookupAnonToken(yyin_1, yyin_2, yyin_3, yyout_1)
 2944 yy yyin_1;
 2945 yy yyin_2;
 2946 yy yyin_3;
 2947 yy *yyout_1;
 2948 {
 2949 {
 2950 yy yyb;
 2951 yy yy_0_1;
 2952 yy yyv_Index;
 2953 yy yy_0_1_1;
 2954 yy yyv_Tail;
 2955 yy yy_0_1_2;
 2956 yy yyv_Str;
 2957 yy yy_0_2;
 2958 yy yyv_Pos;
 2959 yy yy_0_3;
 2960 yy yy_0_4;
 2961 yy yyv_Repr;
 2962 yy yy_1;
 2963 yy yy_2_1_1_1;
 2964 yy yy_2_1_1_2;
 2965 yy yyv_Ident;
 2966 yy yy_2_1_2;
 2967 yy yy_2_1_3_1_1;
 2968 yy yy_2_1_3_1_2_1;
 2969 yy yy_2_1_3_1_2_2;
 2970 yy yy_2_1_3_1_2_3;
 2971 yy yy_2_1_3_1_2_4;
 2972 yy yy_2_1_4_1;
 2973 yy yyv_Id;
 2974 yy yy_2_1_4_2;
 2975 yy yy_2_2_1_1;
 2976 yy yy_2_2_1_2;
 2977 yy yy_2_2_1_3;
 2978 yy yy_2_2_1_4;
 2979 yy_0_1 = yyin_1;
 2980 yy_0_2 = yyin_2;
 2981 yy_0_3 = yyin_3;
 2982 if (yy_0_1[0] != 1) goto yyfl_167_1;
 2983 yy_0_1_1 = ((yy)yy_0_1[1]);
 2984 yy_0_1_2 = ((yy)yy_0_1[2]);
 2985 yyv_Index = yy_0_1_1;
 2986 yyv_Tail = yy_0_1_2;
 2987 yyv_Str = yy_0_2;
 2988 yyv_Pos = yy_0_3;
 2989 yy_1 = (yy) yyv_Index[3];
 2990 if (yy_1 == (yy) yyu) yyErr(1,1148);
 2991 yyv_Repr = yy_1;
 2992 {
 2993 yy yysb = yyb;
 2994 yy_2_1_1_1 = yyv_Str;
 2995 yy_2_1_1_2 = yyv_Repr;
 2996 if (strcmp((char *) yy_2_1_1_1, (char *) yy_2_1_1_2)  !=  0) goto yyfl_167_1_2_1;
 2997 yy_2_1_2 = (yy) yyv_Index[2];
 2998 if (yy_2_1_2 == (yy) yyu) yyErr(1,1151);
 2999 yyv_Ident = yy_2_1_2;
 3000 {
 3001 yy yysb = yyb;
 3002 yy_2_1_3_1_1 = (yy) yyv_Index[1];
 3003 if (yy_2_1_3_1_1 == (yy) yyu) yyErr(1,1153);
 3004 if (yy_2_1_3_1_1[0] != 1) goto yyfl_167_1_2_1_3_1;
 3005 yy_2_1_3_1_2_1 = ((yy)"use symbolic name '");
 3006 yy_2_1_3_1_2_2 = yyv_Ident;
 3007 yy_2_1_3_1_2_3 = ((yy)"'");
 3008 yy_2_1_3_1_2_4 = yyv_Pos;
 3009 MESSAGE1(yy_2_1_3_1_2_1, yy_2_1_3_1_2_2, yy_2_1_3_1_2_3, yy_2_1_3_1_2_4);
 3010 goto yysl_167_1_2_1_3;
 3011 yyfl_167_1_2_1_3_1 : ;
 3012 goto yysl_167_1_2_1_3;
 3013 yysl_167_1_2_1_3 : ;
 3014 yyb = yysb;
 3015 }
 3016 yy_2_1_4_1 = yyv_Ident;
 3017 yy_2_1_4_2 = yy_2_1_4_1;
 3018 yyv_Id = yy_2_1_4_2;
 3019 goto yysl_167_1_2;
 3020 yyfl_167_1_2_1 : ;
 3021 yy_2_2_1_1 = yyv_Tail;
 3022 yy_2_2_1_2 = yyv_Str;
 3023 yy_2_2_1_3 = yyv_Pos;
 3024 LookupAnonToken(yy_2_2_1_1, yy_2_2_1_2, yy_2_2_1_3, &yy_2_2_1_4);
 3025 yyv_Id = yy_2_2_1_4;
 3026 goto yysl_167_1_2;
 3027 yysl_167_1_2 : ;
 3028 yyb = yysb;
 3029 }
 3030 yy_0_4 = yyv_Id;
 3031 *yyout_1 = yy_0_4;
 3032 return;
 3033 yyfl_167_1 : ;
 3034 }
 3035 {
 3036 yy yyb;
 3037 yy yy_0_1;
 3038 yy yyv_Str;
 3039 yy yy_0_2;
 3040 yy yyv_Pos;
 3041 yy yy_0_3;
 3042 yy yy_0_4;
 3043 yy yyv_I;
 3044 yy yy_2_1;
 3045 yy yyv_Id;
 3046 yy yy_2_2;
 3047 yy yy_3;
 3048 yy yy_4;
 3049 yy yy_5;
 3050 yy yy_6;
 3051 yy yyv_L;
 3052 yy yy_7;
 3053 yy yy_8;
 3054 yy yy_8_1;
 3055 yy yy_8_2;
 3056 yy_0_1 = yyin_1;
 3057 yy_0_2 = yyin_2;
 3058 yy_0_3 = yyin_3;
 3059 if (yy_0_1[0] != 2) goto yyfl_167_2;
 3060 yyv_Str = yy_0_2;
 3061 yyv_Pos = yy_0_3;
 3062 yyb = yyh;
 3063 yyh += 9; if (yyh > yyhx) yyExtend();
 3064 yyv_I = yyb + 0;
 3065 yyb[4] = yyu;
 3066 yyb[3] = yyu;
 3067 yyb[2] = yyu;
 3068 yyb[1] = yyu;
 3069 yy_2_1 = yyv_Str;
 3070 CreateNameForToken(yy_2_1, &yy_2_2);
 3071 yyv_Id = yy_2_2;
 3072 yy_3 = yyb + 5;
 3073 yy_3[0] = 2;
 3074 yyv_I[1] = (long) yy_3;
 3075 yy_4 = yyv_Id;
 3076 yyv_I[2] = (long) yy_4;
 3077 yy_5 = ((yy)"");
 3078 yyv_I[4] = (long) yy_5;
 3079 yy_6 = yyv_Str;
 3080 yyv_I[3] = (long) yy_6;
 3081 yy_7 = yyglov_tokenList;
 3082 if (yy_7 == (yy) yyu) yyErr(1,1170);
 3083 yyv_L = yy_7;
 3084 yy_8_1 = yyv_I;
 3085 yy_8_2 = yyv_L;
 3086 yy_8 = yyb + 6;
 3087 yy_8[0] = 1;
 3088 yy_8[1] = ((long)yy_8_1);
 3089 yy_8[2] = ((long)yy_8_2);
 3090 yyglov_tokenList = yy_8;
 3091 yy_0_4 = yyv_Id;
 3092 *yyout_1 = yy_0_4;
 3093 return;
 3094 yyfl_167_2 : ;
 3095 }
 3096 yyErr(2,1145);
 3097 }
 3098 WriteTokenDescrFile()
 3099 {
 3100 {
 3101 yy yyb;
 3102 yy yy_1_1;
 3103 yy yyv_L;
 3104 yy yy_2;
 3105 yy yy_3_1;
 3106 yy_1_1 = ((yy)"gen.lit");
 3107 TellFile(yy_1_1);
 3108 yy_2 = yyglov_tokenList;
 3109 if (yy_2 == (yy) yyu) yyErr(1,1177);
 3110 yyv_L = yy_2;
 3111 yy_3_1 = yyv_L;
 3112 WriteTokenDescr(yy_3_1);
 3113 return;
 3114 }
 3115 }
 3116 WriteTokenDescr(yyin_1)
 3117 yy yyin_1;
 3118 {
 3119 {
 3120 yy yyb;
 3121 yy yy_0_1;
 3122 yy yyv_Index;
 3123 yy yy_0_1_1;
 3124 yy yyv_Tail;
 3125 yy yy_0_1_2;
 3126 yy yyv_Id;
 3127 yy yy_1;
 3128 yy yyv_Repr;
 3129 yy yy_2;
 3130 yy yyv_Handler;
 3131 yy yy_3;
 3132 yy yy_4_1;
 3133 yy yy_5_1;
 3134 yy yy_6_1;
 3135 yy yy_7_1;
 3136 yy yy_9_1;
 3137 yy_0_1 = yyin_1;
 3138 if (yy_0_1[0] != 1) goto yyfl_169_1;
 3139 yy_0_1_1 = ((yy)yy_0_1[1]);
 3140 yy_0_1_2 = ((yy)yy_0_1[2]);
 3141 yyv_Index = yy_0_1_1;
 3142 yyv_Tail = yy_0_1_2;
 3143 yy_1 = (yy) yyv_Index[2];
 3144 if (yy_1 == (yy) yyu) yyErr(1,1182);
 3145 yyv_Id = yy_1;
 3146 yy_2 = (yy) yyv_Index[3];
 3147 if (yy_2 == (yy) yyu) yyErr(1,1183);
 3148 yyv_Repr = yy_2;
 3149 yy_3 = (yy) yyv_Index[4];
 3150 if (yy_3 == (yy) yyu) yyErr(1,1184);
 3151 yyv_Handler = yy_3;
 3152 yy_4_1 = yyv_Repr;
 3153 qu_s(yy_4_1);
 3154 yy_5_1 = ((yy)" { yysetpos(); return ");
 3155 s(yy_5_1);
 3156 yy_6_1 = yyv_Id;
 3157 id(yy_6_1);
 3158 yy_7_1 = ((yy)"; }");
 3159 s(yy_7_1);
 3160 nl();
 3161 yy_9_1 = yyv_Tail;
 3162 WriteTokenDescr(yy_9_1);
 3163 return;
 3164 yyfl_169_1 : ;
 3165 }
 3166 {
 3167 yy yyb;
 3168 yy yy_0_1;
 3169 yy_0_1 = yyin_1;
 3170 if (yy_0_1[0] != 2) goto yyfl_169_2;
 3171 return;
 3172 yyfl_169_2 : ;
 3173 }
 3174 yyErr(2,1180);
 3175 }
 3176 Trafo(yyin_1, yyin_2)
 3177 yy yyin_1;
 3178 yy yyin_2;
 3179 {
 3180 {
 3181 yy yyb;
 3182 yy yyv_Unit;
 3183 yy yy_0_1;
 3184 yy yyv_ImportedUnits;
 3185 yy yy_0_2;
 3186 yy yy_1;
 3187 yy yy_2;
 3188 yy yy_3;
 3189 yy yy_4_1;
 3190 yy yyv_T_ERROR_ID;
 3191 yy yy_4_2;
 3192 yy yy_5;
 3193 yy yy_6;
 3194 yy yy_7;
 3195 yy yy_8;
 3196 yy yy_9;
 3197 yy yy_11_1;
 3198 yy yy_12_1;
 3199 yy yy_14_1;
 3200 yy yy_14_2;
 3201 yy yyv_Name;
 3202 yy yy_14_2_1;
 3203 yy yy_14_2_2;
 3204 yy yyv_OwnExport;
 3205 yy yy_14_2_2_1;
 3206 yy yyv_ExportPos;
 3207 yy yy_14_2_2_2;
 3208 yy yy_14_2_3;
 3209 yy yyv_UnitPos;
 3210 yy yy_14_2_4;
 3211 yy yyv_SN;
 3212 yy yy_15_1;
 3213 yy yy_16_1;
 3214 yy yyv_UN;
 3215 yy yy_16_2;
 3216 yy yy_17_1_1_1;
 3217 yy yy_17_1_1_2;
 3218 yy yy_17_2_1_1;
 3219 yy yy_17_2_1_2;
 3220 yy yy_17_2_1_3;
 3221 yy yy_17_2_1_4;
 3222 yy yy_18_1;
 3223 yy yy_18_2;
 3224 yy yy_19_1;
 3225 yy yy_19_2;
 3226 yy_0_1 = yyin_1;
 3227 yy_0_2 = yyin_2;
 3228 yyv_Unit = yy_0_1;
 3229 yyv_ImportedUnits = yy_0_2;
 3230 yyb = yyh;
 3231 yyh += 6; if (yyh > yyhx) yyExtend();
 3232 yy_1 = yyb + 0;
 3233 yy_1[0] = 2;
 3234 yyglov_containsGrammar = yy_1;
 3235 yy_2 = yyb + 1;
 3236 yy_2[0] = 2;
 3237 yyglov_containsRoot = yy_2;
 3238 yy_3 = ((yy)1);
 3239 yyglov_maxAttr = yy_3;
 3240 yy_4_1 = ((yy)"<ERROR>");
 3241 string_to_id(yy_4_1, &yy_4_2);
 3242 yyv_T_ERROR_ID = yy_4_2;
 3243 yy_5 = yyv_T_ERROR_ID;
 3244 yyglov_errorId = yy_5;
 3245 yy_6 = yyb + 2;
 3246 yy_6[0] = 2;
 3247 yyglov_choice_Declarations = yy_6;
 3248 yy_7 = yyb + 3;
 3249 yy_7[0] = 2;
 3250 yyglov_choice_Types = yy_7;
 3251 yy_8 = yyb + 4;
 3252 yy_8[0] = 2;
 3253 yyglov_insideChoiceRule = yy_8;
 3254 yy_9 = yyb + 5;
 3255 yy_9[0] = 2;
 3256 yyglov_importedDeclarations = yy_9;
 3257 MakeStdItemsVisible();
 3258 yy_11_1 = yyv_ImportedUnits;
 3259 MakeImportedItemsVisible_UNITLIST(yy_11_1);
 3260 yy_12_1 = yyv_Unit;
 3261 MakeGlobalItemsVisible(yy_12_1);
 3262 {
 3263 yy yysb = yyb;
 3264 if (! SymbolFileOption()) goto yyfl_172_1_13_1;
 3265 TellSymbolFile();
 3266 goto yysl_172_1_13;
 3267 yyfl_172_1_13_1 : ;
 3268 goto yysl_172_1_13;
 3269 yysl_172_1_13 : ;
 3270 yyb = yysb;
 3271 }
 3272 yy_14_1 = yyv_Unit;
 3273 yy_14_2 = yy_14_1;
 3274 if (yy_14_2[0] != 1) goto yyfl_172_1;
 3275 yy_14_2_1 = ((yy)yy_14_2[1]);
 3276 yy_14_2_2 = ((yy)yy_14_2[2]);
 3277 yy_14_2_3 = ((yy)yy_14_2[3]);
 3278 yy_14_2_4 = ((yy)yy_14_2[4]);
 3279 yyv_Name = yy_14_2_1;
 3280 if (yy_14_2_2[0] != 1) goto yyfl_172_1;
 3281 yy_14_2_2_1 = ((yy)yy_14_2_2[1]);
 3282 yy_14_2_2_2 = ((yy)yy_14_2_2[2]);
 3283 yyv_OwnExport = yy_14_2_2_1;
 3284 yyv_ExportPos = yy_14_2_2_2;
 3285 yyv_UnitPos = yy_14_2_4;
 3286 GetSourceName(&yy_15_1);
 3287 yyv_SN = yy_15_1;
 3288 yy_16_1 = yyv_Name;
 3289 id_to_string(yy_16_1, &yy_16_2);
 3290 yyv_UN = yy_16_2;
 3291 {
 3292 yy yysb = yyb;
 3293 yy_17_1_1_1 = yyv_SN;
 3294 yy_17_1_1_2 = yyv_UN;
 3295 if (strcmp((char *) yy_17_1_1_1, (char *) yy_17_1_1_2)  !=  0) goto yyfl_172_1_17_1;
 3296 goto yysl_172_1_17;
 3297 yyfl_172_1_17_1 : ;
 3298 yy_17_2_1_1 = ((yy)"'");
 3299 yy_17_2_1_2 = yyv_Name;
 3300 yy_17_2_1_3 = ((yy)"' does not correspond to file name");
 3301 yy_17_2_1_4 = yyv_UnitPos;
 3302 MESSAGE1(yy_17_2_1_1, yy_17_2_1_2, yy_17_2_1_3, yy_17_2_1_4);
 3303 goto yysl_172_1_17;
 3304 yysl_172_1_17 : ;
 3305 yyb = yysb;
 3306 }
 3307 yy_18_1 = yyv_OwnExport;
 3308 yy_18_2 = yyv_ExportPos;
 3309 CheckExport(yy_18_1, yy_18_2);
 3310 yy_19_1 = yyv_Unit;
 3311 yy_19_2 = yyv_ImportedUnits;
 3312 Code(yy_19_1, yy_19_2);
 3313 Told();
 3314 return;
 3315 yyfl_172_1 : ;
 3316 }
 3317 yyErr(2,1195);
 3318 }
 3319 CheckExport(yyin_1, yyin_2)
 3320 yy yyin_1;
 3321 yy yyin_2;
 3322 {
 3323 {
 3324 yy yyb;
 3325 yy yy_0_1;
 3326 yy yyv_H;
 3327 yy yy_0_1_1;
 3328 yy yyv_T;
 3329 yy yy_0_1_2;
 3330 yy yyv_Pos;
 3331 yy yy_0_2;
 3332 yy yy_1_1_1_1;
 3333 yy yyv_Assoc;
 3334 yy yy_1_1_1_2;
 3335 yy yy_1_1_2_1_1_1;
 3336 yy yy_1_1_2_1_1_2;
 3337 yy yy_1_1_2_2_1_1;
 3338 yy yy_1_1_2_2_1_2;
 3339 yy yy_1_1_2_2_1_3;
 3340 yy yy_1_1_2_2_1_4;
 3341 yy yy_1_1_3_1_1_1;
 3342 yy yy_1_1_3_1_1_2;
 3343 yy yy_1_1_3_1_1_2_1;
 3344 yy yy_1_1_3_1_1_2_2;
 3345 yy yy_1_1_3_1_1_2_3;
 3346 yy yy_1_1_3_1_1_2_4;
 3347 yy yy_1_1_3_1_2_1;
 3348 yy yy_1_1_3_1_2_2;
 3349 yy yy_1_1_3_1_2_3;
 3350 yy yy_1_1_3_1_2_4;
 3351 yy yy_1_1_3_2_1_1;
 3352 yy yy_1_1_3_2_1_2;
 3353 yy yy_1_1_3_2_1_2_1;
 3354 yy yyv_Class;
 3355 yy yy_1_1_3_2_1_2_2;
 3356 yy yy_1_1_3_2_1_2_3;
 3357 yy yy_1_1_3_2_1_2_4;
 3358 yy yy_1_1_3_2_2_1_1_1;
 3359 yy yy_1_1_3_2_2_1_1_2;
 3360 yy yy_1_1_3_2_2_2_1_1;
 3361 yy yy_1_1_3_2_2_2_1_2;
 3362 yy yy_1_1_3_2_3_1;
 3363 yy yy_1_1_3_2_3_2;
 3364 yy yy_1_1_3_2_3_3;
 3365 yy yy_1_1_3_2_3_4;
 3366 yy yy_1_1_4_1_2_1;
 3367 yy yy_1_1_4_1_2_2;
 3368 yy yy_1_2_1_1;
 3369 yy yy_1_2_1_2;
 3370 yy yy_1_2_1_3;
 3371 yy yy_1_2_1_4;
 3372 yy yy_2_1;
 3373 yy yy_2_2;
 3374 yy_0_1 = yyin_1;
 3375 yy_0_2 = yyin_2;
 3376 if (yy_0_1[0] != 1) goto yyfl_177_1;
 3377 yy_0_1_1 = ((yy)yy_0_1[1]);
 3378 yy_0_1_2 = ((yy)yy_0_1[2]);
 3379 yyv_H = yy_0_1_1;
 3380 yyv_T = yy_0_1_2;
 3381 yyv_Pos = yy_0_2;
 3382 {
 3383 yy yysb = yyb;
 3384 yy_1_1_1_1 = yyv_H;
 3385 if (! GetGlobalMeaning(yy_1_1_1_1, &yy_1_1_1_2)) goto yyfl_177_1_1_1;
 3386 yyv_Assoc = yy_1_1_1_2;
 3387 {
 3388 yy yysb = yyb;
 3389 yy_1_1_2_1_1_1 = yyv_H;
 3390 if (! GetExportFlag(yy_1_1_2_1_1_1, &yy_1_1_2_1_1_2)) goto yyfl_177_1_1_1_2_1;
 3391 if (yy_1_1_2_1_1_2[0] != 1) goto yyfl_177_1_1_1_2_1;
 3392 goto yysl_177_1_1_1_2;
 3393 yyfl_177_1_1_1_2_1 : ;
 3394 yy_1_1_2_2_1_1 = ((yy)"'");
 3395 yy_1_1_2_2_1_2 = yyv_H;
 3396 yy_1_1_2_2_1_3 = ((yy)"' cannot be exported");
 3397 yy_1_1_2_2_1_4 = yyv_Pos;
 3398 MESSAGE1(yy_1_1_2_2_1_1, yy_1_1_2_2_1_2, yy_1_1_2_2_1_3, yy_1_1_2_2_1_4);
 3399 goto yysl_177_1_1_1_2;
 3400 yysl_177_1_1_1_2 : ;
 3401 yyb = yysb;
 3402 }
 3403 {
 3404 yy yysb = yyb;
 3405 yy_1_1_3_1_1_1 = yyv_Assoc;
 3406 yy_1_1_3_1_1_2 = yy_1_1_3_1_1_1;
 3407 if (yy_1_1_3_1_1_2[0] != 4) goto yyfl_177_1_1_1_3_1;
 3408 yy_1_1_3_1_1_2_1 = ((yy)yy_1_1_3_1_1_2[1]);
 3409 yy_1_1_3_1_1_2_2 = ((yy)yy_1_1_3_1_1_2[2]);
 3410 yy_1_1_3_1_1_2_3 = ((yy)yy_1_1_3_1_1_2[3]);
 3411 yy_1_1_3_1_1_2_4 = ((yy)yy_1_1_3_1_1_2[4]);
 3412 if (yy_1_1_3_1_1_2_2[0] != 5) goto yyfl_177_1_1_1_3_1;
 3413 yy_1_1_3_1_2_1 = ((yy)"CHOICE predicate '");
 3414 yy_1_1_3_1_2_2 = yyv_H;
 3415 yy_1_1_3_1_2_3 = ((yy)"' cannot be exported");
 3416 yy_1_1_3_1_2_4 = yyv_Pos;
 3417 MESSAGE1(yy_1_1_3_1_2_1, yy_1_1_3_1_2_2, yy_1_1_3_1_2_3, yy_1_1_3_1_2_4);
 3418 goto yysl_177_1_1_1_3;
 3419 yyfl_177_1_1_1_3_1 : ;
 3420 yy_1_1_3_2_1_1 = yyv_Assoc;
 3421 yy_1_1_3_2_1_2 = yy_1_1_3_2_1_1;
 3422 if (yy_1_1_3_2_1_2[0] != 4) goto yyfl_177_1_1_1_3_2;
 3423 yy_1_1_3_2_1_2_1 = ((yy)yy_1_1_3_2_1_2[1]);
 3424 yy_1_1_3_2_1_2_2 = ((yy)yy_1_1_3_2_1_2[2]);
 3425 yy_1_1_3_2_1_2_3 = ((yy)yy_1_1_3_2_1_2[3]);
 3426 yy_1_1_3_2_1_2_4 = ((yy)yy_1_1_3_2_1_2[4]);
 3427 yyv_Class = yy_1_1_3_2_1_2_2;
 3428 {
 3429 yy yysb = yyb;
 3430 yy_1_1_3_2_2_1_1_1 = yyv_Class;
 3431 yy_1_1_3_2_2_1_1_2 = yy_1_1_3_2_2_1_1_1;
 3432 if (yy_1_1_3_2_2_1_1_2[0] != 3) goto yyfl_177_1_1_1_3_2_2_1;
 3433 goto yysl_177_1_1_1_3_2_2;
 3434 yyfl_177_1_1_1_3_2_2_1 : ;
 3435 yy_1_1_3_2_2_2_1_1 = yyv_Class;
 3436 yy_1_1_3_2_2_2_1_2 = yy_1_1_3_2_2_2_1_1;
 3437 if (yy_1_1_3_2_2_2_1_2[0] != 4) goto yyfl_177_1_1_1_3_2_2_2;
 3438 goto yysl_177_1_1_1_3_2_2;
 3439 yyfl_177_1_1_1_3_2_2_2 : ;
 3440 goto yyfl_177_1_1_1_3_2;
 3441 yysl_177_1_1_1_3_2_2 : ;
 3442 yyb = yysb;
 3443 }
 3444 yy_1_1_3_2_3_1 = ((yy)"grammar symbol '");
 3445 yy_1_1_3_2_3_2 = yyv_H;
 3446 yy_1_1_3_2_3_3 = ((yy)"' cannot be exported");
 3447 yy_1_1_3_2_3_4 = yyv_Pos;
 3448 MESSAGE1(yy_1_1_3_2_3_1, yy_1_1_3_2_3_2, yy_1_1_3_2_3_3, yy_1_1_3_2_3_4);
 3449 goto yysl_177_1_1_1_3;
 3450 yyfl_177_1_1_1_3_2 : ;
 3451 goto yysl_177_1_1_1_3;
 3452 yysl_177_1_1_1_3 : ;
 3453 yyb = yysb;
 3454 }
 3455 {
 3456 yy yysb = yyb;
 3457 if (! SymbolFileOption()) goto yyfl_177_1_1_1_4_1;
 3458 yy_1_1_4_1_2_1 = yyv_H;
 3459 yy_1_1_4_1_2_2 = yyv_Assoc;
 3460 SF_Assoc(yy_1_1_4_1_2_1, yy_1_1_4_1_2_2);
 3461 goto yysl_177_1_1_1_4;
 3462 yyfl_177_1_1_1_4_1 : ;
 3463 goto yysl_177_1_1_1_4;
 3464 yysl_177_1_1_1_4 : ;
 3465 yyb = yysb;
 3466 }
 3467 goto yysl_177_1_1;
 3468 yyfl_177_1_1_1 : ;
 3469 yy_1_2_1_1 = ((yy)"exported '");
 3470 yy_1_2_1_2 = yyv_H;
 3471 yy_1_2_1_3 = ((yy)"' is not declared");
 3472 yy_1_2_1_4 = yyv_Pos;
 3473 MESSAGE1(yy_1_2_1_1, yy_1_2_1_2, yy_1_2_1_3, yy_1_2_1_4);
 3474 goto yysl_177_1_1;
 3475 yysl_177_1_1 : ;
 3476 yyb = yysb;
 3477 }
 3478 yy_2_1 = yyv_T;
 3479 yy_2_2 = yyv_Pos;
 3480 CheckExport(yy_2_1, yy_2_2);
 3481 return;
 3482 yyfl_177_1 : ;
 3483 }
 3484 {
 3485 yy yyb;
 3486 yy yy_0_1;
 3487 yy yyv_Pos;
 3488 yy yy_0_2;
 3489 yy_0_1 = yyin_1;
 3490 yy_0_2 = yyin_2;
 3491 if (yy_0_1[0] != 2) goto yyfl_177_2;
 3492 yyv_Pos = yy_0_2;
 3493 return;
 3494 yyfl_177_2 : ;
 3495 }
 3496 yyErr(2,1238);
 3497 }
 3498 MakeStdItemsVisible()
 3499 {
 3500 {
 3501 yy yyb;
 3502 yy yy_1_1;
 3503 yy yyv_T_ID_INT;
 3504 yy yy_1_2;
 3505 yy yy_2;
 3506 yy yy_3_1;
 3507 yy yy_3_2;
 3508 yy yy_3_2_1;
 3509 yy yy_3_2_2;
 3510 yy yy_3_3;
 3511 yy yy_4_1;
 3512 yy yyv_T_ID_STRING;
 3513 yy yy_4_2;
 3514 yy yy_5;
 3515 yy yy_6_1;
 3516 yy yy_6_2;
 3517 yy yy_6_2_1;
 3518 yy yy_6_2_2;
 3519 yy yy_6_3;
 3520 yy yy_7_1;
 3521 yy yyv_T_ID_POS;
 3522 yy yy_7_2;
 3523 yy yy_8;
 3524 yy yy_9_1;
 3525 yy yy_9_2;
 3526 yy yy_9_2_1;
 3527 yy yy_9_2_2;
 3528 yy yy_9_3;
 3529 yy yy_10_1;
 3530 yy yyv_WHERENEXT;
 3531 yy yy_10_2;
 3532 yy yy_11_1;
 3533 yy yy_11_2;
 3534 yy yy_11_3;
 3535 yy yy_12_1;
 3536 yy yyv_WHERE;
 3537 yy yy_12_2;
 3538 yy yy_13_1;
 3539 yy yy_13_2;
 3540 yy yy_13_3;
 3541 yy yy_14_1;
 3542 yy yyv_LET;
 3543 yy yy_14_2;
 3544 yy yy_15_1;
 3545 yy yy_15_2;
 3546 yy yy_15_3;
 3547 yy yy_16_1;
 3548 yy yyv_IS;
 3549 yy yy_16_2;
 3550 yy yy_17_1;
 3551 yy yy_17_2;
 3552 yy yy_17_3;
 3553 yy yy_18_1;
 3554 yy yyv_VAL;
 3555 yy yy_18_2;
 3556 yy yy_19_1;
 3557 yy yy_19_2;
 3558 yy yy_19_3;
 3559 yy yy_20_1;
 3560 yy yyv_EQ;
 3561 yy yy_20_2;
 3562 yy yy_21_1;
 3563 yy yy_21_2;
 3564 yy yy_21_3;
 3565 yy yy_22_1;
 3566 yy yyv_NE;
 3567 yy yy_22_2;
 3568 yy yy_23_1;
 3569 yy yy_23_2;
 3570 yy yy_23_3;
 3571 yy yy_24_1;
 3572 yy yyv_LT;
 3573 yy yy_24_2;
 3574 yy yy_25_1;
 3575 yy yy_25_2;
 3576 yy yy_25_3;
 3577 yy yy_26_1;
 3578 yy yyv_LE;
 3579 yy yy_26_2;
 3580 yy yy_27_1;
 3581 yy yy_27_2;
 3582 yy yy_27_3;
 3583 yy yy_28_1;
 3584 yy yyv_GT;
 3585 yy yy_28_2;
 3586 yy yy_29_1;
 3587 yy yy_29_2;
 3588 yy yy_29_3;
 3589 yy yy_30_1;
 3590 yy yyv_GE;
 3591 yy yy_30_2;
 3592 yy yy_31_1;
 3593 yy yy_31_2;
 3594 yy yy_31_3;
 3595 yy yy_32_1;
 3596 yy yyv_PRINT;
 3597 yy yy_32_2;
 3598 yy yy_33_1;
 3599 yy yy_33_2;
 3600 yy yy_33_3;
 3601 yy yy_34_1;
 3602 yy yyv_SKIP;
 3603 yy yy_34_2;
 3604 yy yy_35_1;
 3605 yy yy_35_2;
 3606 yy yy_35_3;
 3607 yyb = yyh;
 3608 yyh += 44; if (yyh > yyhx) yyExtend();
 3609 yy_1_1 = ((yy)"INT");
 3610 string_to_id(yy_1_1, &yy_1_2);
 3611 yyv_T_ID_INT = yy_1_2;
 3612 yy_2 = yyv_T_ID_INT;
 3613 yyglov_id_INT = yy_2;
 3614 yy_3_1 = yyv_T_ID_INT;
 3615 yy_3_2_1 = yyb + 3;
 3616 yy_3_2_1[0] = 1;
 3617 yy_3_2_2 = yyb + 4;
 3618 yy_3_2_2[0] = 2;
 3619 yy_3_2 = yyb + 0;
 3620 yy_3_2[0] = 1;
 3621 yy_3_2[1] = ((long)yy_3_2_1);
 3622 yy_3_2[2] = ((long)yy_3_2_2);
 3623 yy_3_3 = yyb + 5;
 3624 yy_3_3[0] = 2;
 3625 DefGlobalMeaning(yy_3_1, yy_3_2, yy_3_3);
 3626 yy_4_1 = ((yy)"STRING");
 3627 string_to_id(yy_4_1, &yy_4_2);
 3628 yyv_T_ID_STRING = yy_4_2;
 3629 yy_5 = yyv_T_ID_STRING;
 3630 yyglov_id_STRING = yy_5;
 3631 yy_6_1 = yyv_T_ID_STRING;
 3632 yy_6_2_1 = yyb + 9;
 3633 yy_6_2_1[0] = 1;
 3634 yy_6_2_2 = yyb + 10;
 3635 yy_6_2_2[0] = 2;
 3636 yy_6_2 = yyb + 6;
 3637 yy_6_2[0] = 1;
 3638 yy_6_2[1] = ((long)yy_6_2_1);
 3639 yy_6_2[2] = ((long)yy_6_2_2);
 3640 yy_6_3 = yyb + 11;
 3641 yy_6_3[0] = 2;
 3642 DefGlobalMeaning(yy_6_1, yy_6_2, yy_6_3);
 3643 yy_7_1 = ((yy)"POS");
 3644 string_to_id(yy_7_1, &yy_7_2);
 3645 yyv_T_ID_POS = yy_7_2;
 3646 yy_8 = yyv_T_ID_POS;
 3647 yyglov_id_POS = yy_8;
 3648 yy_9_1 = yyv_T_ID_POS;
 3649 yy_9_2_1 = yyb + 15;
 3650 yy_9_2_1[0] = 1;
 3651 yy_9_2_2 = yyb + 16;
 3652 yy_9_2_2[0] = 2;
 3653 yy_9_2 = yyb + 12;
 3654 yy_9_2[0] = 1;
 3655 yy_9_2[1] = ((long)yy_9_2_1);
 3656 yy_9_2[2] = ((long)yy_9_2_2);
 3657 yy_9_3 = yyb + 17;
 3658 yy_9_3[0] = 2;
 3659 DefGlobalMeaning(yy_9_1, yy_9_2, yy_9_3);
 3660 yy_10_1 = ((yy)"wherenext");
 3661 string_to_id(yy_10_1, &yy_10_2);
 3662 yyv_WHERENEXT = yy_10_2;
 3663 yy_11_1 = yyv_WHERENEXT;
 3664 yy_11_2 = yyb + 18;
 3665 yy_11_2[0] = 5;
 3666 yy_11_3 = yyb + 19;
 3667 yy_11_3[0] = 2;
 3668 DefGlobalMeaning(yy_11_1, yy_11_2, yy_11_3);
 3669 yy_12_1 = ((yy)"where");
 3670 string_to_id(yy_12_1, &yy_12_2);
 3671 yyv_WHERE = yy_12_2;
 3672 yy_13_1 = yyv_WHERE;
 3673 yy_13_2 = yyb + 20;
 3674 yy_13_2[0] = 5;
 3675 yy_13_3 = yyb + 21;
 3676 yy_13_3[0] = 2;
 3677 DefGlobalMeaning(yy_13_1, yy_13_2, yy_13_3);
 3678 yy_14_1 = ((yy)"let");
 3679 string_to_id(yy_14_1, &yy_14_2);
 3680 yyv_LET = yy_14_2;
 3681 yy_15_1 = yyv_LET;
 3682 yy_15_2 = yyb + 22;
 3683 yy_15_2[0] = 5;
 3684 yy_15_3 = yyb + 23;
 3685 yy_15_3[0] = 2;
 3686 DefGlobalMeaning(yy_15_1, yy_15_2, yy_15_3);
 3687 yy_16_1 = ((yy)"is");
 3688 string_to_id(yy_16_1, &yy_16_2);
 3689 yyv_IS = yy_16_2;
 3690 yy_17_1 = yyv_IS;
 3691 yy_17_2 = yyb + 24;
 3692 yy_17_2[0] = 5;
 3693 yy_17_3 = yyb + 25;
 3694 yy_17_3[0] = 2;
 3695 DefGlobalMeaning(yy_17_1, yy_17_2, yy_17_3);
 3696 yy_18_1 = ((yy)"val");
 3697 string_to_id(yy_18_1, &yy_18_2);
 3698 yyv_VAL = yy_18_2;
 3699 yy_19_1 = yyv_VAL;
 3700 yy_19_2 = yyb + 26;
 3701 yy_19_2[0] = 5;
 3702 yy_19_3 = yyb + 27;
 3703 yy_19_3[0] = 2;
 3704 DefGlobalMeaning(yy_19_1, yy_19_2, yy_19_3);
 3705 yy_20_1 = ((yy)"eq");
 3706 string_to_id(yy_20_1, &yy_20_2);
 3707 yyv_EQ = yy_20_2;
 3708 yy_21_1 = yyv_EQ;
 3709 yy_21_2 = yyb + 28;
 3710 yy_21_2[0] = 5;
 3711 yy_21_3 = yyb + 29;
 3712 yy_21_3[0] = 2;
 3713 DefGlobalMeaning(yy_21_1, yy_21_2, yy_21_3);
 3714 yy_22_1 = ((yy)"ne");
 3715 string_to_id(yy_22_1, &yy_22_2);
 3716 yyv_NE = yy_22_2;
 3717 yy_23_1 = yyv_NE;
 3718 yy_23_2 = yyb + 30;
 3719 yy_23_2[0] = 5;
 3720 yy_23_3 = yyb + 31;
 3721 yy_23_3[0] = 2;
 3722 DefGlobalMeaning(yy_23_1, yy_23_2, yy_23_3);
 3723 yy_24_1 = ((yy)"lt");
 3724 string_to_id(yy_24_1, &yy_24_2);
 3725 yyv_LT = yy_24_2;
 3726 yy_25_1 = yyv_LT;
 3727 yy_25_2 = yyb + 32;
 3728 yy_25_2[0] = 5;
 3729 yy_25_3 = yyb + 33;
 3730 yy_25_3[0] = 2;
 3731 DefGlobalMeaning(yy_25_1, yy_25_2, yy_25_3);
 3732 yy_26_1 = ((yy)"le");
 3733 string_to_id(yy_26_1, &yy_26_2);
 3734 yyv_LE = yy_26_2;
 3735 yy_27_1 = yyv_LE;
 3736 yy_27_2 = yyb + 34;
 3737 yy_27_2[0] = 5;
 3738 yy_27_3 = yyb + 35;
 3739 yy_27_3[0] = 2;
 3740 DefGlobalMeaning(yy_27_1, yy_27_2, yy_27_3);
 3741 yy_28_1 = ((yy)"gt");
 3742 string_to_id(yy_28_1, &yy_28_2);
 3743 yyv_GT = yy_28_2;
 3744 yy_29_1 = yyv_GT;
 3745 yy_29_2 = yyb + 36;
 3746 yy_29_2[0] = 5;
 3747 yy_29_3 = yyb + 37;
 3748 yy_29_3[0] = 2;
 3749 DefGlobalMeaning(yy_29_1, yy_29_2, yy_29_3);
 3750 yy_30_1 = ((yy)"ge");
 3751 string_to_id(yy_30_1, &yy_30_2);
 3752 yyv_GE = yy_30_2;
 3753 yy_31_1 = yyv_GE;
 3754 yy_31_2 = yyb + 38;
 3755 yy_31_2[0] = 5;
 3756 yy_31_3 = yyb + 39;
 3757 yy_31_3[0] = 2;
 3758 DefGlobalMeaning(yy_31_1, yy_31_2, yy_31_3);
 3759 yy_32_1 = ((yy)"print");
 3760 string_to_id(yy_32_1, &yy_32_2);
 3761 yyv_PRINT = yy_32_2;
 3762 yy_33_1 = yyv_PRINT;
 3763 yy_33_2 = yyb + 40;
 3764 yy_33_2[0] = 5;
 3765 yy_33_3 = yyb + 41;
 3766 yy_33_3[0] = 2;
 3767 DefGlobalMeaning(yy_33_1, yy_33_2, yy_33_3);
 3768 yy_34_1 = ((yy)"skip");
 3769 string_to_id(yy_34_1, &yy_34_2);
 3770 yyv_SKIP = yy_34_2;
 3771 yy_35_1 = yyv_SKIP;
 3772 yy_35_2 = yyb + 42;
 3773 yy_35_2[0] = 5;
 3774 yy_35_3 = yyb + 43;
 3775 yy_35_3[0] = 2;
 3776 DefGlobalMeaning(yy_35_1, yy_35_2, yy_35_3);
 3777 return;
 3778 }
 3779 }
 3780 MakeImportedItemsVisible_UNITLIST(yyin_1)
 3781 yy yyin_1;
 3782 {
 3783 {
 3784 yy yyb;
 3785 yy yy_0_1;
 3786 yy yyv_H;
 3787 yy yy_0_1_1;
 3788 yy yyv_T;
 3789 yy yy_0_1_2;
 3790 yy yy_1_1;
 3791 yy yy_2_1;
 3792 yy_0_1 = yyin_1;
 3793 if (yy_0_1[0] != 1) goto yyfl_179_1;
 3794 yy_0_1_1 = ((yy)yy_0_1[1]);
 3795 yy_0_1_2 = ((yy)yy_0_1[2]);
 3796 yyv_H = yy_0_1_1;
 3797 yyv_T = yy_0_1_2;
 3798 yy_1_1 = yyv_H;
 3799 MakeImportedItemsVisible_UNIT(yy_1_1);
 3800 yy_2_1 = yyv_T;
 3801 MakeImportedItemsVisible_UNITLIST(yy_2_1);
 3802 return;
 3803 yyfl_179_1 : ;
 3804 }
 3805 {
 3806 yy yyb;
 3807 yy yy_0_1;
 3808 yy_0_1 = yyin_1;
 3809 if (yy_0_1[0] != 2) goto yyfl_179_2;
 3810 return;
 3811 yyfl_179_2 : ;
 3812 }
 3813 yyErr(2,1314);
 3814 }
 3815 MakeImportedItemsVisible_UNIT(yyin_1)
 3816 yy yyin_1;
 3817 {
 3818 {
 3819 yy yyb;
 3820 yy yy_0_1;
 3821 yy yyv_Name;
 3822 yy yy_0_1_1;
 3823 yy yy_0_1_2;
 3824 yy yyv_Export;
 3825 yy yy_0_1_2_1;
 3826 yy yy_0_1_2_2;
 3827 yy yyv_Declarations;
 3828 yy yy_0_1_3;
 3829 yy yyv_Pos;
 3830 yy yy_0_1_4;
 3831 yy yy_1_1;
 3832 yy yy_1_2;
 3833 yy_0_1 = yyin_1;
 3834 if (yy_0_1[0] != 1) goto yyfl_180_1;
 3835 yy_0_1_1 = ((yy)yy_0_1[1]);
 3836 yy_0_1_2 = ((yy)yy_0_1[2]);
 3837 yy_0_1_3 = ((yy)yy_0_1[3]);
 3838 yy_0_1_4 = ((yy)yy_0_1[4]);
 3839 yyv_Name = yy_0_1_1;
 3840 if (yy_0_1_2[0] != 1) goto yyfl_180_1;
 3841 yy_0_1_2_1 = ((yy)yy_0_1_2[1]);
 3842 yy_0_1_2_2 = ((yy)yy_0_1_2[2]);
 3843 yyv_Export = yy_0_1_2_1;
 3844 yyv_Declarations = yy_0_1_3;
 3845 yyv_Pos = yy_0_1_4;
 3846 yy_1_1 = yyv_Declarations;
 3847 yy_1_2 = yyv_Export;
 3848 MakeImportedItemsVisible_DECLARATIONLIST(yy_1_1, yy_1_2);
 3849 return;
 3850 yyfl_180_1 : ;
 3851 }
 3852 yyErr(2,1322);
 3853 }
 3854 MakeImportedItemsVisible_DECLARATIONLIST(yyin_1, yyin_2)
 3855 yy yyin_1;
 3856 yy yyin_2;
 3857 {
 3858 {
 3859 yy yyb;
 3860 yy yy_0_1;
 3861 yy yyv_H;
 3862 yy yy_0_1_1;
 3863 yy yyv_T;
 3864 yy yy_0_1_2;
 3865 yy yyv_ExportList;
 3866 yy yy_0_2;
 3867 yy yy_1_1;
 3868 yy yy_1_2;
 3869 yy yy_2_1;
 3870 yy yy_2_2;
 3871 yy_0_1 = yyin_1;
 3872 yy_0_2 = yyin_2;
 3873 if (yy_0_1[0] != 1) goto yyfl_181_1;
 3874 yy_0_1_1 = ((yy)yy_0_1[1]);
 3875 yy_0_1_2 = ((yy)yy_0_1[2]);
 3876 yyv_H = yy_0_1_1;
 3877 yyv_T = yy_0_1_2;
 3878 yyv_ExportList = yy_0_2;
 3879 yy_1_1 = yyv_H;
 3880 yy_1_2 = yyv_ExportList;
 3881 MakeImportedItemsVisible_DECLARATION(yy_1_1, yy_1_2);
 3882 yy_2_1 = yyv_T;
 3883 yy_2_2 = yyv_ExportList;
 3884 MakeImportedItemsVisible_DECLARATIONLIST(yy_2_1, yy_2_2);
 3885 return;
 3886 yyfl_181_1 : ;
 3887 }
 3888 {
 3889 yy yyb;
 3890 yy yy_0_1;
 3891 yy yyv_ExportList;
 3892 yy yy_0_2;
 3893 yy_0_1 = yyin_1;
 3894 yy_0_2 = yyin_2;
 3895 if (yy_0_1[0] != 2) goto yyfl_181_2;
 3896 yyv_ExportList = yy_0_2;
 3897 return;
 3898 yyfl_181_2 : ;
 3899 }
 3900 yyErr(2,1328);
 3901 }
 3902 DefineItem(yyin_1, yyin_2)
 3903 yy yyin_1;
 3904 yy yyin_2;
 3905 {
 3906 {
 3907 yy yyb;
 3908 yy yyv_Decl;
 3909 yy yy_0_1;
 3910 yy yy_0_1_1;
 3911 yy yyv_Id;
 3912 yy yy_0_1_1_1;
 3913 yy yyv_Pos;
 3914 yy yy_0_1_1_2;
 3915 yy yyv_Assoc;
 3916 yy yy_0_1_1_3;
 3917 yy yyv_Exportable;
 3918 yy yy_0_2;
 3919 yy yy_1_1_1_1;
 3920 yy yy_1_1_1_2;
 3921 yy yy_1_1_1_2_1;
 3922 yy yyv_Class;
 3923 yy yy_1_1_1_2_2;
 3924 yy yyv_Formals;
 3925 yy yy_1_1_1_2_3;
 3926 yy yyv_Rules;
 3927 yy yy_1_1_1_2_4;
 3928 yy yy_1_1_2_1_1_1;
 3929 yy yyv_Old;
 3930 yy yy_1_1_2_1_1_2;
 3931 yy yy_1_1_2_1_2_1_1_1;
 3932 yy yy_1_1_2_1_2_1_1_2;
 3933 yy yy_1_1_2_1_2_1_2_1;
 3934 yy yy_1_1_2_1_2_1_2_2;
 3935 yy yy_1_1_2_1_2_1_2_3;
 3936 yy yy_1_1_2_1_2_1_2_4;
 3937 yy yy_1_1_2_1_3_1;
 3938 yy yy_1_1_2_1_3_2;
 3939 yy yy_1_1_2_1_3_3;
 3940 yy yy_1_1_2_1_3_4;
 3941 yy yy_1_1_3_1;
 3942 yy yy_1_1_3_2;
 3943 yy yy_1_1_3_3;
 3944 yy yy_1_2_1_1_1_1;
 3945 yy yy_1_2_1_1_1_2;
 3946 yy yy_1_2_1_1_1_2_1;
 3947 yy yyv_Functors;
 3948 yy yy_1_2_1_1_1_2_2;
 3949 yy yy_1_2_1_1_2_1;
 3950 yy yy_1_2_1_1_2_2;
 3951 yy yy_1_2_2_1_1_1;
 3952 yy yy_1_2_2_1_1_2;
 3953 yy yy_1_2_2_1_2_1;
 3954 yy yy_1_2_2_1_2_2;
 3955 yy yy_1_2_2_1_2_3;
 3956 yy yy_1_2_2_1_2_4;
 3957 yy yy_1_2_2_2_1_1;
 3958 yy yy_1_2_2_2_1_2;
 3959 yy yy_1_2_2_2_1_3;
 3960 yy_0_1 = yyin_1;
 3961 yy_0_2 = yyin_2;
 3962 yy_0_1_1 = yy_0_1;
 3963 yyv_Decl = yy_0_1;
 3964 if (yy_0_1_1[0] != 2) goto yyfl_183_1;
 3965 yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
 3966 yy_0_1_1_2 = ((yy)yy_0_1_1[2]);
 3967 yy_0_1_1_3 = ((yy)yy_0_1_1[3]);
 3968 yyv_Id = yy_0_1_1_1;
 3969 yyv_Pos = yy_0_1_1_2;
 3970 yyv_Assoc = yy_0_1_1_3;
 3971 yyv_Exportable = yy_0_2;
 3972 {
 3973 yy yysb = yyb;
 3974 yy_1_1_1_1 = yyv_Assoc;
 3975 yy_1_1_1_2 = yy_1_1_1_1;
 3976 if (yy_1_1_1_2[0] != 4) goto yyfl_183_1_1_1;
 3977 yy_1_1_1_2_1 = ((yy)yy_1_1_1_2[1]);
 3978 yy_1_1_1_2_2 = ((yy)yy_1_1_1_2[2]);
 3979 yy_1_1_1_2_3 = ((yy)yy_1_1_1_2[3]);
 3980 yy_1_1_1_2_4 = ((yy)yy_1_1_1_2[4]);
 3981 yyv_Class = yy_1_1_1_2_2;
 3982 yyv_Formals = yy_1_1_1_2_3;
 3983 yyv_Rules = yy_1_1_1_2_4;
 3984 {
 3985 yy yysb = yyb;
 3986 yy_1_1_2_1_1_1 = yyv_Id;
 3987 if (! GetGlobalMeaning(yy_1_1_2_1_1_1, &yy_1_1_2_1_1_2)) goto yyfl_183_1_1_1_2_1;
 3988 yyv_Old = yy_1_1_2_1_1_2;
 3989 {
 3990 yy yysb = yyb;
 3991 yy_1_1_2_1_2_1_1_1 = yyv_Old;
 3992 yy_1_1_2_1_2_1_1_2 = yy_1_1_2_1_2_1_1_1;
 3993 if (yy_1_1_2_1_2_1_1_2[0] != 5) goto yyfl_183_1_1_1_2_1_2_1;
 3994 yy_1_1_2_1_2_1_2_1 = ((yy)"'");
 3995 yy_1_1_2_1_2_1_2_2 = yyv_Id;
 3996 yy_1_1_2_1_2_1_2_3 = ((yy)"' is a predefined predicate");
 3997 yy_1_1_2_1_2_1_2_4 = yyv_Pos;
 3998 MESSAGE1(yy_1_1_2_1_2_1_2_1, yy_1_1_2_1_2_1_2_2, yy_1_1_2_1_2_1_2_3, yy_1_1_2_1_2_1_2_4);
 3999 goto yysl_183_1_1_1_2_1_2;
 4000 yyfl_183_1_1_1_2_1_2_1 : ;
 4001 goto yysl_183_1_1_1_2_1_2;
 4002 yysl_183_1_1_1_2_1_2 : ;
 4003 yyb = yysb;
 4004 }
 4005 yy_1_1_2_1_3_1 = ((yy)"'");
 4006 yy_1_1_2_1_3_2 = yyv_Id;
 4007 yy_1_1_2_1_3_3 = ((yy)"' already declared");
 4008 yy_1_1_2_1_3_4 = yyv_Pos;
 4009 MESSAGE1(yy_1_1_2_1_3_1, yy_1_1_2_1_3_2, yy_1_1_2_1_3_3, yy_1_1_2_1_3_4);
 4010 goto yysl_183_1_1_1_2;
 4011 yyfl_183_1_1_1_2_1 : ;
 4012 goto yysl_183_1_1_1_2;
 4013 yysl_183_1_1_1_2 : ;
 4014 yyb = yysb;
 4015 }
 4016 yy_1_1_3_1 = yyv_Id;
 4017 yy_1_1_3_2 = yyv_Assoc;
 4018 yy_1_1_3_3 = yyv_Exportable;
 4019 DefGlobalMeaning(yy_1_1_3_1, yy_1_1_3_2, yy_1_1_3_3);
 4020 goto yysl_183_1_1;
 4021 yyfl_183_1_1_1 : ;
 4022 {
 4023 yy yysb = yyb;
 4024 yy_1_2_1_1_1_1 = yyv_Assoc;
 4025 yy_1_2_1_1_1_2 = yy_1_2_1_1_1_1;
 4026 if (yy_1_2_1_1_1_2[0] != 1) goto yyfl_183_1_1_2_1_1;
 4027 yy_1_2_1_1_1_2_1 = ((yy)yy_1_2_1_1_1_2[1]);
 4028 yy_1_2_1_1_1_2_2 = ((yy)yy_1_2_1_1_1_2[2]);
 4029 yyv_Functors = yy_1_2_1_1_1_2_2;
 4030 yy_1_2_1_1_2_1 = yyv_Id;
 4031 yy_1_2_1_1_2_2 = yyv_Functors;
 4032 EnterFunctors(yy_1_2_1_1_2_1, yy_1_2_1_1_2_2);
 4033 goto yysl_183_1_1_2_1;
 4034 yyfl_183_1_1_2_1_1 : ;
 4035 goto yysl_183_1_1_2_1;
 4036 yysl_183_1_1_2_1 : ;
 4037 yyb = yysb;
 4038 }
 4039 {
 4040 yy yysb = yyb;
 4041 yy_1_2_2_1_1_1 = yyv_Id;
 4042 if (! GetGlobalMeaning(yy_1_2_2_1_1_1, &yy_1_2_2_1_1_2)) goto yyfl_183_1_1_2_2_1;
 4043 yy_1_2_2_1_2_1 = ((yy)"'");
 4044 yy_1_2_2_1_2_2 = yyv_Id;
 4045 yy_1_2_2_1_2_3 = ((yy)"' already declared");
 4046 yy_1_2_2_1_2_4 = yyv_Pos;
 4047 MESSAGE1(yy_1_2_2_1_2_1, yy_1_2_2_1_2_2, yy_1_2_2_1_2_3, yy_1_2_2_1_2_4);
 4048 goto yysl_183_1_1_2_2;
 4049 yyfl_183_1_1_2_2_1 : ;
 4050 yy_1_2_2_2_1_1 = yyv_Id;
 4051 yy_1_2_2_2_1_2 = yyv_Assoc;
 4052 yy_1_2_2_2_1_3 = yyv_Exportable;
 4053 DefGlobalMeaning(yy_1_2_2_2_1_1, yy_1_2_2_2_1_2, yy_1_2_2_2_1_3);
 4054 goto yysl_183_1_1_2_2;
 4055 yysl_183_1_1_2_2 : ;
 4056 yyb = yysb;
 4057 }
 4058 goto yysl_183_1_1;
 4059 yysl_183_1_1 : ;
 4060 yyb = yysb;
 4061 }
 4062 return;
 4063 yyfl_183_1 : ;
 4064 }
 4065 yyErr(2,1340);
 4066 }
 4067 EnterFunctors(yyin_1, yyin_2)
 4068 yy yyin_1;
 4069 yy yyin_2;
 4070 {
 4071 {
 4072 yy yyb;
 4073 yy yyv_Type;
 4074 yy yy_0_1;
 4075 yy yy_0_2;
 4076 yy yyv_Head;
 4077 yy yy_0_2_1;
 4078 yy yyv_Tail;
 4079 yy yy_0_2_2;
 4080 yy yy_1_1;
 4081 yy yy_1_2;
 4082 yy yyv_Functor;
 4083 yy yy_1_2_1;
 4084 yy yy_1_2_2;
 4085 yy yy_1_2_3;
 4086 yy yy_2_1_1_1;
 4087 yy yyv_Old;
 4088 yy yy_2_1_1_2;
 4089 yy yy_2_2_1_1;
 4090 yy yy_2_2_1_2;
 4091 yy yy_3_1;
 4092 yy yy_3_2;
 4093 yy yy_3_2_1;
 4094 yy yy_3_2_2;
 4095 yy yy_4_1;
 4096 yy yy_4_2;
 4097 yy_0_1 = yyin_1;
 4098 yy_0_2 = yyin_2;
 4099 yyv_Type = yy_0_1;
 4100 if (yy_0_2[0] != 1) goto yyfl_184_1;
 4101 yy_0_2_1 = ((yy)yy_0_2[1]);
 4102 yy_0_2_2 = ((yy)yy_0_2[2]);
 4103 yyv_Head = yy_0_2_1;
 4104 yyv_Tail = yy_0_2_2;
 4105 yyb = yyh;
 4106 yyh += 3; if (yyh > yyhx) yyExtend();
 4107 yy_1_1 = yyv_Head;
 4108 yy_1_2 = yy_1_1;
 4109 if (yy_1_2[0] != 1) goto yyfl_184_1;
 4110 yy_1_2_1 = ((yy)yy_1_2[1]);
 4111 yy_1_2_2 = ((yy)yy_1_2[2]);
 4112 yy_1_2_3 = ((yy)yy_1_2[3]);
 4113 yyv_Functor = yy_1_2_1;
 4114 {
 4115 yy yysb = yyb;
 4116 yy_2_1_1_1 = yyv_Functor;
 4117 if (! GetFunctorMeaning(yy_2_1_1_1, &yy_2_1_1_2)) goto yyfl_184_1_2_1;
 4118 yyv_Old = yy_2_1_1_2;
 4119 goto yysl_184_1_2;
 4120 yyfl_184_1_2_1 : ;
 4121 yyb = yyh;
 4122 yyh += 1; if (yyh > yyhx) yyExtend();
 4123 yy_2_2_1_1 = yyb + 0;
 4124 yy_2_2_1_1[0] = 2;
 4125 yy_2_2_1_2 = yy_2_2_1_1;
 4126 yyv_Old = yy_2_2_1_2;
 4127 goto yysl_184_1_2;
 4128 yysl_184_1_2 : ;
 4129 yyb = yysb;
 4130 }
 4131 yy_3_1 = yyv_Functor;
 4132 yy_3_2_1 = yyv_Type;
 4133 yy_3_2_2 = yyv_Old;
 4134 yy_3_2 = yyb + 0;
 4135 yy_3_2[0] = 1;
 4136 yy_3_2[1] = ((long)yy_3_2_1);
 4137 yy_3_2[2] = ((long)yy_3_2_2);
 4138 DefFunctorMeaning(yy_3_1, yy_3_2);
 4139 yy_4_1 = yyv_Type;
 4140 yy_4_2 = yyv_Tail;
 4141 EnterFunctors(yy_4_1, yy_4_2);
 4142 return;
 4143 yyfl_184_1 : ;
 4144 }
 4145 {
 4146 yy yyb;
 4147 yy yyv_Type;
 4148 yy yy_0_1;
 4149 yy yy_0_2;
 4150 yy_0_1 = yyin_1;
 4151 yy_0_2 = yyin_2;
 4152 yyv_Type = yy_0_1;
 4153 if (yy_0_2[0] != 2) goto yyfl_184_2;
 4154 return;
 4155 yyfl_184_2 : ;
 4156 }
 4157 yyErr(2,1368);
 4158 }
 4159 MakeImportedItemsVisible_DECLARATION(yyin_1, yyin_2)
 4160 yy yyin_1;
 4161 yy yyin_2;
 4162 {
 4163 {
 4164 yy yyb;
 4165 yy yyv_Decl;
 4166 yy yy_0_1;
 4167 yy yy_0_1_1;
 4168 yy yyv_Id;
 4169 yy yy_0_1_1_1;
 4170 yy yyv_P;
 4171 yy yy_0_1_1_2;
 4172 yy yyv_Assoc;
 4173 yy yy_0_1_1_3;
 4174 yy yyv_ExportList;
 4175 yy yy_0_2;
 4176 yy yy_1_1_1_1;
 4177 yy yy_1_1_1_2;
 4178 yy yy_1_1_2_1;
 4179 yy yy_1_1_2_2;
 4180 yy yyv_L;
 4181 yy yy_1_1_3;
 4182 yy yy_1_1_4;
 4183 yy yy_1_1_4_1;
 4184 yy yy_1_1_4_2;
 4185 yy_0_1 = yyin_1;
 4186 yy_0_2 = yyin_2;
 4187 yy_0_1_1 = yy_0_1;
 4188 yyv_Decl = yy_0_1;
 4189 if (yy_0_1_1[0] != 2) goto yyfl_185_1;
 4190 yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
 4191 yy_0_1_1_2 = ((yy)yy_0_1_1[2]);
 4192 yy_0_1_1_3 = ((yy)yy_0_1_1[3]);
 4193 yyv_Id = yy_0_1_1_1;
 4194 yyv_P = yy_0_1_1_2;
 4195 yyv_Assoc = yy_0_1_1_3;
 4196 yyv_ExportList = yy_0_2;
 4197 {
 4198 yy yysb = yyb;
 4199 yyb = yyh;
 4200 yyh += 4; if (yyh > yyhx) yyExtend();
 4201 yy_1_1_1_1 = yyv_ExportList;
 4202 yy_1_1_1_2 = yyv_Id;
 4203 if (! IsInList(yy_1_1_1_1, yy_1_1_1_2)) goto yyfl_185_1_1_1;
 4204 yy_1_1_2_1 = yyv_Decl;
 4205 yy_1_1_2_2 = yyb + 0;
 4206 yy_1_1_2_2[0] = 2;
 4207 DefineItem(yy_1_1_2_1, yy_1_1_2_2);
 4208 yy_1_1_3 = yyglov_importedDeclarations;
 4209 if (yy_1_1_3 == (yy) yyu) yyErr(1,1387);
 4210 yyv_L = yy_1_1_3;
 4211 yy_1_1_4_1 = yyv_Decl;
 4212 yy_1_1_4_2 = yyv_L;
 4213 yy_1_1_4 = yyb + 1;
 4214 yy_1_1_4[0] = 1;
 4215 yy_1_1_4[1] = ((long)yy_1_1_4_1);
 4216 yy_1_1_4[2] = ((long)yy_1_1_4_2);
 4217 yyglov_importedDeclarations = yy_1_1_4;
 4218 goto yysl_185_1_1;
 4219 yyfl_185_1_1_1 : ;
 4220 goto yysl_185_1_1;
 4221 yysl_185_1_1 : ;
 4222 yyb = yysb;
 4223 }
 4224 return;
 4225 yyfl_185_1 : ;
 4226 }
 4227 {
 4228 yy yyb;
 4229 yy yy_0_1;
 4230 yy yy_0_1_1;
 4231 yy yy_0_1_2;
 4232 yy yy_0_2;
 4233 yy_0_1 = yyin_1;
 4234 yy_0_2 = yyin_2;
 4235 if (yy_0_1[0] != 1) goto yyfl_185_2;
 4236 yy_0_1_1 = ((yy)yy_0_1[1]);
 4237 yy_0_1_2 = ((yy)yy_0_1[2]);
 4238 return;
 4239 yyfl_185_2 : ;
 4240 }
 4241 yyErr(2,1380);
 4242 }
 4243 MakeGlobalItemsVisible(yyin_1)
 4244 yy yyin_1;
 4245 {
 4246 {
 4247 yy yyb;
 4248 yy yy_0_1;
 4249 yy yyv_Name;
 4250 yy yy_0_1_1;
 4251 yy yyv_Import;
 4252 yy yy_0_1_2;
 4253 yy yyv_Declarations;
 4254 yy yy_0_1_3;
 4255 yy yyv_P;
 4256 yy yy_0_1_4;
 4257 yy yy_1_1;
 4258 yy_0_1 = yyin_1;
 4259 if (yy_0_1[0] != 1) goto yyfl_186_1;
 4260 yy_0_1_1 = ((yy)yy_0_1[1]);
 4261 yy_0_1_2 = ((yy)yy_0_1[2]);
 4262 yy_0_1_3 = ((yy)yy_0_1[3]);
 4263 yy_0_1_4 = ((yy)yy_0_1[4]);
 4264 yyv_Name = yy_0_1_1;
 4265 yyv_Import = yy_0_1_2;
 4266 yyv_Declarations = yy_0_1_3;
 4267 yyv_P = yy_0_1_4;
 4268 yy_1_1 = yyv_Declarations;
 4269 MakeGlobalItemsVisible_DECLARATIONLIST(yy_1_1);
 4270 return;
 4271 yyfl_186_1 : ;
 4272 }
 4273 yyErr(2,1397);
 4274 }
 4275 MakeGlobalItemsVisible_DECLARATIONLIST(yyin_1)
 4276 yy yyin_1;
 4277 {
 4278 {
 4279 yy yyb;
 4280 yy yy_0_1;
 4281 yy yyv_H;
 4282 yy yy_0_1_1;
 4283 yy yyv_T;
 4284 yy yy_0_1_2;
 4285 yy yy_1_1;
 4286 yy yy_2_1;
 4287 yy_0_1 = yyin_1;
 4288 if (yy_0_1[0] != 1) goto yyfl_187_1;
 4289 yy_0_1_1 = ((yy)yy_0_1[1]);
 4290 yy_0_1_2 = ((yy)yy_0_1[2]);
 4291 yyv_H = yy_0_1_1;
 4292 yyv_T = yy_0_1_2;
 4293 yy_1_1 = yyv_H;
 4294 MakeGlobalItemsVisible_DECLARATION(yy_1_1);
 4295 yy_2_1 = yyv_T;
 4296 MakeGlobalItemsVisible_DECLARATIONLIST(yy_2_1);
 4297 return;
 4298 yyfl_187_1 : ;
 4299 }
 4300 {
 4301 yy yyb;
 4302 yy yy_0_1;
 4303 yy_0_1 = yyin_1;
 4304 if (yy_0_1[0] != 2) goto yyfl_187_2;
 4305 return;
 4306 yyfl_187_2 : ;
 4307 }
 4308 yyErr(2,1403);
 4309 }
 4310 MakeGlobalItemsVisible_DECLARATION(yyin_1)
 4311 yy yyin_1;
 4312 {
 4313 {
 4314 yy yyb;
 4315 yy yyv_Decl;
 4316 yy yy_0_1;
 4317 yy yy_0_1_1;
 4318 yy yyv_Id;
 4319 yy yy_0_1_1_1;
 4320 yy yyv_P;
 4321 yy yy_0_1_1_2;
 4322 yy yyv_Assoc;
 4323 yy yy_0_1_1_3;
 4324 yy yy_1_1;
 4325 yy yy_2_1;
 4326 yy yy_2_2;
 4327 yy_0_1 = yyin_1;
 4328 yy_0_1_1 = yy_0_1;
 4329 yyv_Decl = yy_0_1;
 4330 if (yy_0_1_1[0] != 2) goto yyfl_188_1;
 4331 yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
 4332 yy_0_1_1_2 = ((yy)yy_0_1_1[2]);
 4333 yy_0_1_1_3 = ((yy)yy_0_1_1[3]);
 4334 yyv_Id = yy_0_1_1_1;
 4335 yyv_P = yy_0_1_1_2;
 4336 yyv_Assoc = yy_0_1_1_3;
 4337 yyb = yyh;
 4338 yyh += 1; if (yyh > yyhx) yyExtend();
 4339 yy_1_1 = yyv_Assoc;
 4340 LookForGrammarSymbol(yy_1_1);
 4341 yy_2_1 = yyv_Decl;
 4342 yy_2_2 = yyb + 0;
 4343 yy_2_2[0] = 1;
 4344 DefineItem(yy_2_1, yy_2_2);
 4345 return;
 4346 yyfl_188_1 : ;
 4347 }
 4348 {
 4349 yy yyb;
 4350 yy yy_0_1;
 4351 yy yyv_P;
 4352 yy yy_0_1_1;
 4353 yy yyv_M;
 4354 yy yy_0_1_2;
 4355 yy yy_1_1_1;
 4356 yy yy_1_1_2_1;
 4357 yy yy_1_1_2_2;
 4358 yy yy_1_2_1;
 4359 yy_0_1 = yyin_1;
 4360 if (yy_0_1[0] != 1) goto yyfl_188_2;
 4361 yy_0_1_1 = ((yy)yy_0_1[1]);
 4362 yy_0_1_2 = ((yy)yy_0_1[2]);
 4363 yyv_P = yy_0_1_1;
 4364 yyv_M = yy_0_1_2;
 4365 {
 4366 yy yysb = yyb;
 4367 yy_1_1_1 = yyglov_containsRoot;
 4368 if (yy_1_1_1 == (yy) yyu) yyErr(1,1419);
 4369 if (yy_1_1_1[0] != 1) goto yyfl_188_2_1_1;
 4370 yy_1_1_2_1 = ((yy)"more than one ROOT specification");
 4371 yy_1_1_2_2 = yyv_P;
 4372 MESSAGE(yy_1_1_2_1, yy_1_1_2_2);
 4373 goto yysl_188_2_1;
 4374 yyfl_188_2_1_1 : ;
 4375 yyb = yyh;
 4376 yyh += 1; if (yyh > yyhx) yyExtend();
 4377 yy_1_2_1 = yyb + 0;
 4378 yy_1_2_1[0] = 1;
 4379 yyglov_containsRoot = yy_1_2_1;
 4380 goto yysl_188_2_1;
 4381 yysl_188_2_1 : ;
 4382 yyb = yysb;
 4383 }
 4384 return;
 4385 yyfl_188_2 : ;
 4386 }
 4387 yyErr(2,1412);
 4388 }
 4389 LookForGrammarSymbol(yyin_1)
 4390 yy yyin_1;
 4391 {
 4392 {
 4393 yy yyb;
 4394 yy yy_0_1;
 4395 yy yy_0_1_1;
 4396 yy yyv_Class;
 4397 yy yy_0_1_2;
 4398 yy yy_0_1_3;
 4399 yy yyv_In;
 4400 yy yy_0_1_3_1;
 4401 yy yyv_Out;
 4402 yy yy_0_1_3_2;
 4403 yy yyv_RL;
 4404 yy yy_0_1_4;
 4405 yy yy_1_1_1_1;
 4406 yy yy_1_1_1_2;
 4407 yy yy_1_2_1_1;
 4408 yy yy_1_2_1_2;
 4409 yy yy_2_1;
 4410 yy yy_2_2;
 4411 yy yy_3;
 4412 yy_0_1 = yyin_1;
 4413 if (yy_0_1[0] != 4) goto yyfl_189_1;
 4414 yy_0_1_1 = ((yy)yy_0_1[1]);
 4415 yy_0_1_2 = ((yy)yy_0_1[2]);
 4416 yy_0_1_3 = ((yy)yy_0_1[3]);
 4417 yy_0_1_4 = ((yy)yy_0_1[4]);
 4418 yyv_Class = yy_0_1_2;
 4419 if (yy_0_1_3[0] != 1) goto yyfl_189_1;
 4420 yy_0_1_3_1 = ((yy)yy_0_1_3[1]);
 4421 yy_0_1_3_2 = ((yy)yy_0_1_3[2]);
 4422 yyv_In = yy_0_1_3_1;
 4423 yyv_Out = yy_0_1_3_2;
 4424 yyv_RL = yy_0_1_4;
 4425 yyb = yyh;
 4426 yyh += 1; if (yyh > yyhx) yyExtend();
 4427 {
 4428 yy yysb = yyb;
 4429 yy_1_1_1_1 = yyv_Class;
 4430 yy_1_1_1_2 = yy_1_1_1_1;
 4431 if (yy_1_1_1_2[0] != 3) goto yyfl_189_1_1_1;
 4432 goto yysl_189_1_1;
 4433 yyfl_189_1_1_1 : ;
 4434 yy_1_2_1_1 = yyv_Class;
 4435 yy_1_2_1_2 = yy_1_2_1_1;
 4436 if (yy_1_2_1_2[0] != 4) goto yyfl_189_1_1_2;
 4437 goto yysl_189_1_1;
 4438 yyfl_189_1_1_2 : ;
 4439 goto yyfl_189_1;
 4440 yysl_189_1_1 : ;
 4441 yyb = yysb;
 4442 }
 4443 yy_2_1 = yyv_Out;
 4444 yy_2_2 = ((yy)0);
 4445 CountAttributes(yy_2_1, yy_2_2);
 4446 yy_3 = yyb + 0;
 4447 yy_3[0] = 1;
 4448 yyglov_containsGrammar = yy_3;
 4449 return;
 4450 yyfl_189_1 : ;
 4451 }
 4452 {
 4453 yy yyb;
 4454 yy yyv_Other;
 4455 yy yy_0_1;
 4456 yy_0_1 = yyin_1;
 4457 yyv_Other = yy_0_1;
 4458 return;
 4459 yyfl_189_2 : ;
 4460 }
 4461 yyErr(2,1426);
 4462 }
 4463 Length_ARGSPECLIST(yyin_1, yyout_1)
 4464 yy yyin_1;
 4465 yy *yyout_1;
 4466 {
 4467 {
 4468 yy yyb;
 4469 yy yy_0_1;
 4470 yy yyv_H;
 4471 yy yy_0_1_1;
 4472 yy yyv_P;
 4473 yy yy_0_1_2;
 4474 yy yyv_T;
 4475 yy yy_0_1_3;
 4476 yy yy_0_2;
 4477 yy yy_0_2_1;
 4478 yy yy_0_2_2;
 4479 yy yy_1_1;
 4480 yy yyv_N;
 4481 yy yy_1_2;
 4482 yy_0_1 = yyin_1;
 4483 if (yy_0_1[0] != 1) goto yyfl_190_1;
 4484 yy_0_1_1 = ((yy)yy_0_1[1]);
 4485 yy_0_1_2 = ((yy)yy_0_1[2]);
 4486 yy_0_1_3 = ((yy)yy_0_1[3]);
 4487 yyv_H = yy_0_1_1;
 4488 yyv_P = yy_0_1_2;
 4489 yyv_T = yy_0_1_3;
 4490 yy_1_1 = yyv_T;
 4491 Length_ARGSPECLIST(yy_1_1, &yy_1_2);
 4492 yyv_N = yy_1_2;
 4493 yy_0_2_1 = yyv_N;
 4494 yy_0_2_2 = ((yy)1);
 4495 yy_0_2 = (yy)(((long)yy_0_2_1)+((long)yy_0_2_2));
 4496 *yyout_1 = yy_0_2;
 4497 return;
 4498 yyfl_190_1 : ;
 4499 }
 4500 {
 4501 yy yyb;
 4502 yy yy_0_1;
 4503 yy yy_0_2;
 4504 yy_0_1 = yyin_1;
 4505 if (yy_0_1[0] != 2) goto yyfl_190_2;
 4506 yy_0_2 = ((yy)0);
 4507 *yyout_1 = yy_0_2;
 4508 return;
 4509 yyfl_190_2 : ;
 4510 }
 4511 yyErr(2,1436);
 4512 }
 4513 CountAttributes(yyin_1, yyin_2)
 4514 yy yyin_1;
 4515 yy yyin_2;
 4516 {
 4517 {
 4518 yy yyb;
 4519 yy yy_0_1;
 4520 yy yyv_H;
 4521 yy yy_0_1_1;
 4522 yy yyv_P;
 4523 yy yy_0_1_2;
 4524 yy yyv_T;
 4525 yy yy_0_1_3;
 4526 yy yyv_N;
 4527 yy yy_0_2;
 4528 yy yy_1_1;
 4529 yy yy_1_2;
 4530 yy yy_1_2_1;
 4531 yy yy_1_2_2;
 4532 yy_0_1 = yyin_1;
 4533 yy_0_2 = yyin_2;
 4534 if (yy_0_1[0] != 1) goto yyfl_191_1;
 4535 yy_0_1_1 = ((yy)yy_0_1[1]);
 4536 yy_0_1_2 = ((yy)yy_0_1[2]);
 4537 yy_0_1_3 = ((yy)yy_0_1[3]);
 4538 yyv_H = yy_0_1_1;
 4539 yyv_P = yy_0_1_2;
 4540 yyv_T = yy_0_1_3;
 4541 yyv_N = yy_0_2;
 4542 yy_1_1 = yyv_T;
 4543 yy_1_2_1 = yyv_N;
 4544 yy_1_2_2 = ((yy)1);
 4545 yy_1_2 = (yy)(((long)yy_1_2_1)+((long)yy_1_2_2));
 4546 CountAttributes(yy_1_1, yy_1_2);
 4547 return;
 4548 yyfl_191_1 : ;
 4549 }
 4550 {
 4551 yy yyb;
 4552 yy yy_0_1;
 4553 yy yyv_N;
 4554 yy yy_0_2;
 4555 yy yyv_Max;
 4556 yy yy_1;
 4557 yy yy_2_1_1_1;
 4558 yy yy_2_1_1_2;
 4559 yy yy_2_1_2;
 4560 yy_0_1 = yyin_1;
 4561 yy_0_2 = yyin_2;
 4562 if (yy_0_1[0] != 2) goto yyfl_191_2;
 4563 yyv_N = yy_0_2;
 4564 yy_1 = yyglov_maxAttr;
 4565 if (yy_1 == (yy) yyu) yyErr(1,1447);
 4566 yyv_Max = yy_1;
 4567 {
 4568 yy yysb = yyb;
 4569 yy_2_1_1_1 = yyv_N;
 4570 yy_2_1_1_2 = yyv_Max;
 4571 if ((long)yy_2_1_1_1 <= (long)yy_2_1_1_2) goto yyfl_191_2_2_1;
 4572 yy_2_1_2 = yyv_N;
 4573 yyglov_maxAttr = yy_2_1_2;
 4574 goto yysl_191_2_2;
 4575 yyfl_191_2_2_1 : ;
 4576 goto yysl_191_2_2;
 4577 yysl_191_2_2 : ;
 4578 yyb = yysb;
 4579 }
 4580 return;
 4581 yyfl_191_2 : ;
 4582 }
 4583 yyErr(2,1442);
 4584 }
 4585 ImportDeclarations_DECLARATIONLIST(yyin_1)
 4586 yy yyin_1;
 4587 {
 4588 {
 4589 yy yyb;
 4590 yy yy_0_1;
 4591 yy yyv_H;
 4592 yy yy_0_1_1;
 4593 yy yyv_T;
 4594 yy yy_0_1_2;
 4595 yy yy_1_1;
 4596 yy yy_2_1;
 4597 yy_0_1 = yyin_1;
 4598 if (yy_0_1[0] != 1) goto yyfl_192_1;
 4599 yy_0_1_1 = ((yy)yy_0_1[1]);
 4600 yy_0_1_2 = ((yy)yy_0_1[2]);
 4601 yyv_H = yy_0_1_1;
 4602 yyv_T = yy_0_1_2;
 4603 yy_1_1 = yyv_H;
 4604 ImportDeclarations_DECLARATION(yy_1_1);
 4605 yy_2_1 = yyv_T;
 4606 ImportDeclarations_DECLARATIONLIST(yy_2_1);
 4607 return;
 4608 yyfl_192_1 : ;
 4609 }
 4610 {
 4611 yy yyb;
 4612 yy yy_0_1;
 4613 yy_0_1 = yyin_1;
 4614 if (yy_0_1[0] != 2) goto yyfl_192_2;
 4615 return;
 4616 yyfl_192_2 : ;
 4617 }
 4618 yyErr(2,1454);
 4619 }
 4620 ImportDeclarations_DECLARATION(yyin_1)
 4621 yy yyin_1;
 4622 {
 4623 {
 4624 yy yyb;
 4625 yy yy_0_1;
 4626 yy yyv_Id;
 4627 yy yy_0_1_1;
 4628 yy yyv_P;
 4629 yy yy_0_1_2;
 4630 yy yyv_Assoc;
 4631 yy yy_0_1_3;
 4632 yy yy_1_1_1_1;
 4633 yy yy_1_1_1_2;
 4634 yy yy_1_1_1_2_1;
 4635 yy yyv_Functors;
 4636 yy yy_1_1_1_2_2;
 4637 yy yy_1_2_1_1;
 4638 yy yy_1_2_1_2;
 4639 yy yyv_Type;
 4640 yy yy_1_2_1_2_1;
 4641 yy yyv_Pos;
 4642 yy yy_1_2_1_2_2;
 4643 yy yy_1_2_2_1;
 4644 yy yy_1_2_3_1;
 4645 yy yy_1_2_4_1;
 4646 yy yy_1_3_1_1;
 4647 yy yy_1_3_1_2;
 4648 yy yyv_Fields;
 4649 yy yy_1_3_1_2_1;
 4650 yy yy_1_4_1_1;
 4651 yy yy_1_4_1_2;
 4652 yy yy_1_4_1_2_1;
 4653 yy yyv_Class;
 4654 yy yy_1_4_1_2_2;
 4655 yy yyv_Formals;
 4656 yy yy_1_4_1_2_3;
 4657 yy yyv_Rules;
 4658 yy yy_1_4_1_2_4;
 4659 yy_0_1 = yyin_1;
 4660 if (yy_0_1[0] != 2) goto yyfl_193_1;
 4661 yy_0_1_1 = ((yy)yy_0_1[1]);
 4662 yy_0_1_2 = ((yy)yy_0_1[2]);
 4663 yy_0_1_3 = ((yy)yy_0_1[3]);
 4664 yyv_Id = yy_0_1_1;
 4665 yyv_P = yy_0_1_2;
 4666 yyv_Assoc = yy_0_1_3;
 4667 {
 4668 yy yysb = yyb;
 4669 yy_1_1_1_1 = yyv_Assoc;
 4670 yy_1_1_1_2 = yy_1_1_1_1;
 4671 if (yy_1_1_1_2[0] != 1) goto yyfl_193_1_1_1;
 4672 yy_1_1_1_2_1 = ((yy)yy_1_1_1_2[1]);
 4673 yy_1_1_1_2_2 = ((yy)yy_1_1_1_2[2]);
 4674 yyv_Functors = yy_1_1_1_2_2;
 4675 goto yysl_193_1_1;
 4676 yyfl_193_1_1_1 : ;
 4677 yy_1_2_1_1 = yyv_Assoc;
 4678 yy_1_2_1_2 = yy_1_2_1_1;
 4679 if (yy_1_2_1_2[0] != 2) goto yyfl_193_1_1_2;
 4680 yy_1_2_1_2_1 = ((yy)yy_1_2_1_2[1]);
 4681 yy_1_2_1_2_2 = ((yy)yy_1_2_1_2[2]);
 4682 yyv_Type = yy_1_2_1_2_1;
 4683 yyv_Pos = yy_1_2_1_2_2;
 4684 yy_1_2_2_1 = ((yy)"extern yy ");
 4685 s(yy_1_2_2_1);
 4686 yy_1_2_3_1 = yyv_Id;
 4687 glovarid(yy_1_2_3_1);
 4688 yy_1_2_4_1 = ((yy)";");
 4689 s(yy_1_2_4_1);
 4690 nl();
 4691 goto yysl_193_1_1;
 4692 yyfl_193_1_1_2 : ;
 4693 yy_1_3_1_1 = yyv_Assoc;
 4694 yy_1_3_1_2 = yy_1_3_1_1;
 4695 if (yy_1_3_1_2[0] != 3) goto yyfl_193_1_1_3;
 4696 yy_1_3_1_2_1 = ((yy)yy_1_3_1_2[1]);
 4697 yyv_Fields = yy_1_3_1_2_1;
 4698 goto yysl_193_1_1;
 4699 yyfl_193_1_1_3 : ;
 4700 yy_1_4_1_1 = yyv_Assoc;
 4701 yy_1_4_1_2 = yy_1_4_1_1;
 4702 if (yy_1_4_1_2[0] != 4) goto yyfl_193_1_1_4;
 4703 yy_1_4_1_2_1 = ((yy)yy_1_4_1_2[1]);
 4704 yy_1_4_1_2_2 = ((yy)yy_1_4_1_2[2]);
 4705 yy_1_4_1_2_3 = ((yy)yy_1_4_1_2[3]);
 4706 yy_1_4_1_2_4 = ((yy)yy_1_4_1_2[4]);
 4707 yyv_Class = yy_1_4_1_2_2;
 4708 yyv_Formals = yy_1_4_1_2_3;
 4709 yyv_Rules = yy_1_4_1_2_4;
 4710 goto yysl_193_1_1;
 4711 yyfl_193_1_1_4 : ;
 4712 goto yyfl_193_1;
 4713 yysl_193_1_1 : ;
 4714 yyb = yysb;
 4715 }
 4716 return;
 4717 yyfl_193_1 : ;
 4718 }
 4719 yyErr(2,1462);
 4720 }
 4721 DefineTempos_RULE(yyin_1, yyout_1)
 4722 yy yyin_1;
 4723 yy *yyout_1;
 4724 {
 4725 {
 4726 yy yyb;
 4727 yy yy_0_1;
 4728 yy yyv_Lhs;
 4729 yy yy_0_1_1;
 4730 yy yyv_Rhs;
 4731 yy yy_0_1_2;
 4732 yy yy_0_1_3;
 4733 yy yy_0_2;
 4734 yy yy_1;
 4735 yy yy_3_1;
 4736 yy yy_3_2;
 4737 yy yy_3_2_1;
 4738 yy yy_3_2_2;
 4739 yy yyv_LhsSpace;
 4740 yy yy_4_1;
 4741 yy yy_5_1;
 4742 yy yy_5_2;
 4743 yy yy_5_2_1;
 4744 yy yy_5_2_2;
 4745 yy yy_5_3;
 4746 yy yyv_V;
 4747 yy yy_5_4;
 4748 yy_0_1 = yyin_1;
 4749 if (yy_0_1[0] != 1) goto yyfl_195_1;
 4750 yy_0_1_1 = ((yy)yy_0_1[1]);
 4751 yy_0_1_2 = ((yy)yy_0_1[2]);
 4752 yy_0_1_3 = ((yy)yy_0_1[3]);
 4753 yyv_Lhs = yy_0_1_1;
 4754 yyv_Rhs = yy_0_1_2;
 4755 yyb = yyh;
 4756 yyh += 10; if (yyh > yyhx) yyExtend();
 4757 yy_1 = yyb + 0;
 4758 yy_1[0] = 2;
 4759 yyglov_declaredVars = yy_1;
 4760 InitSpace();
 4761 yy_3_1 = yyv_Lhs;
 4762 yy_3_2_1 = ((yy)0);
 4763 yy_3_2_2 = yyb + 4;
 4764 yy_3_2_2[0] = 2;
 4765 yy_3_2 = yyb + 1;
 4766 yy_3_2[0] = 1;
 4767 yy_3_2[1] = ((long)yy_3_2_1);
 4768 yy_3_2[2] = ((long)yy_3_2_2);
 4769 DefineTempos_LHS(yy_3_1, yy_3_2);
 4770 GetSpace(&yy_4_1);
 4771 yyv_LhsSpace = yy_4_1;
 4772 yy_5_1 = yyv_Rhs;
 4773 yy_5_2_1 = ((yy)1);
 4774 yy_5_2_2 = yyb + 8;
 4775 yy_5_2_2[0] = 2;
 4776 yy_5_2 = yyb + 5;
 4777 yy_5_2[0] = 1;
 4778 yy_5_2[1] = ((long)yy_5_2_1);
 4779 yy_5_2[2] = ((long)yy_5_2_2);
 4780 yy_5_3 = yyb + 9;
 4781 yy_5_3[0] = 2;
 4782 DefineTempos_RHS(yy_5_1, yy_5_2, yy_5_3, &yy_5_4);
 4783 yyv_V = yy_5_4;
 4784 yy_0_2 = yyv_LhsSpace;
 4785 *yyout_1 = yy_0_2;
 4786 return;
 4787 yyfl_195_1 : ;
 4788 }
 4789 yyErr(2,1478);
 4790 }
 4791 DefineTempos_LHS(yyin_1, yyin_2)
 4792 yy yyin_1;
 4793 yy yyin_2;
 4794 {
 4795 {
 4796 yy yyb;
 4797 yy yy_0_1;
 4798 yy yyv_Predicate;
 4799 yy yy_0_1_1;
 4800 yy yyv_P;
 4801 yy yy_0_1_2;
 4802 yy yyv_InArgs;
 4803 yy yy_0_1_3;
 4804 yy yyv_OutArgs;
 4805 yy yy_0_1_4;
 4806 yy yyv_Prefix;
 4807 yy yy_0_2;
 4808 yy yy_1_1;
 4809 yy yy_1_2;
 4810 yy yy_1_2_1;
 4811 yy yy_1_2_2;
 4812 yy yy_1_3;
 4813 yy yyv_Next;
 4814 yy yy_1_4;
 4815 yy yyv_V;
 4816 yy yy_1_5;
 4817 yy yy_2_1;
 4818 yy yy_2_2;
 4819 yy yyv_Dummy;
 4820 yy yy_2_3;
 4821 yy_0_1 = yyin_1;
 4822 yy_0_2 = yyin_2;
 4823 if (yy_0_1[0] != 1) goto yyfl_196_1;
 4824 yy_0_1_1 = ((yy)yy_0_1[1]);
 4825 yy_0_1_2 = ((yy)yy_0_1[2]);
 4826 yy_0_1_3 = ((yy)yy_0_1[3]);
 4827 yy_0_1_4 = ((yy)yy_0_1[4]);
 4828 yyv_Predicate = yy_0_1_1;
 4829 yyv_P = yy_0_1_2;
 4830 yyv_InArgs = yy_0_1_3;
 4831 yyv_OutArgs = yy_0_1_4;
 4832 yyv_Prefix = yy_0_2;
 4833 yyb = yyh;
 4834 yyh += 4; if (yyh > yyhx) yyExtend();
 4835 yy_1_1 = yyv_InArgs;
 4836 yy_1_2_1 = ((yy)1);
 4837 yy_1_2_2 = yyv_Prefix;
 4838 yy_1_2 = yyb + 0;
 4839 yy_1_2[0] = 1;
 4840 yy_1_2[1] = ((long)yy_1_2_1);
 4841 yy_1_2[2] = ((long)yy_1_2_2);
 4842 yy_1_3 = yyb + 3;
 4843 yy_1_3[0] = 2;
 4844 DefineTempos_DEFARGS(yy_1_1, yy_1_2, yy_1_3, &yy_1_4, &yy_1_5);
 4845 yyv_Next = yy_1_4;
 4846 yyv_V = yy_1_5;
 4847 yy_2_1 = yyv_OutArgs;
 4848 yy_2_2 = yyv_Next;
 4849 DefineTempos_USEARGS(yy_2_1, yy_2_2, &yy_2_3);
 4850 yyv_Dummy = yy_2_3;
 4851 return;
 4852 yyfl_196_1 : ;
 4853 }
 4854 yyErr(2,1488);
 4855 }
 4856 DefineTempos_RHS(yyin_1, yyin_2, yyin_3, yyout_1)
 4857 yy yyin_1;
 4858 yy yyin_2;
 4859 yy yyin_3;
 4860 yy *yyout_1;
 4861 {
 4862 {
 4863 yy yyb;
 4864 yy yy_0_1;
 4865 yy yyv_List;
 4866 yy yy_0_1_1;
 4867 yy yyv_RefSpace;
 4868 yy yy_0_1_2;
 4869 yy yyv_TEMPO;
 4870 yy yy_0_2;
 4871 yy yyv_IDENTLIST1;
 4872 yy yy_0_3;
 4873 yy yy_0_4;
 4874 yy yyv_LhsSpace;
 4875 yy yy_1_1;
 4876 yy yy_2_1;
 4877 yy yy_2_2;
 4878 yy yy_2_3;
 4879 yy yyv_IDENTLIST2;
 4880 yy yy_2_4;
 4881 yy yyv_S;
 4882 yy yy_3_1;
 4883 yy yy_4_1;
 4884 yy yy_4_2;
 4885 yy yy_4_2_1;
 4886 yy yy_4_2_2;
 4887 yy_0_1 = yyin_1;
 4888 yy_0_2 = yyin_2;
 4889 yy_0_3 = yyin_3;
 4890 if (yy_0_1[0] != 1) goto yyfl_197_1;
 4891 yy_0_1_1 = ((yy)yy_0_1[1]);
 4892 yy_0_1_2 = ((yy)yy_0_1[2]);
 4893 yyv_List = yy_0_1_1;
 4894 yyv_RefSpace = yy_0_1_2;
 4895 yyv_TEMPO = yy_0_2;
 4896 yyv_IDENTLIST1 = yy_0_3;
 4897 GetSpace(&yy_1_1);
 4898 yyv_LhsSpace = yy_1_1;
 4899 yy_2_1 = yyv_List;
 4900 yy_2_2 = yyv_TEMPO;
 4901 yy_2_3 = yyv_IDENTLIST1;
 4902 DefineTempos_MEMBERLIST(yy_2_1, yy_2_2, yy_2_3, &yy_2_4);
 4903 yyv_IDENTLIST2 = yy_2_4;
 4904 GetSpace(&yy_3_1);
 4905 yyv_S = yy_3_1;
 4906 yy_4_1 = yyv_RefSpace;
 4907 yy_4_2_1 = yyv_S;
 4908 yy_4_2_2 = yyv_LhsSpace;
 4909 yy_4_2 = (yy)(((long)yy_4_2_1)-((long)yy_4_2_2));
 4910 SetINT(yy_4_1, yy_4_2);
 4911 yy_0_4 = yyv_IDENTLIST2;
 4912 *yyout_1 = yy_0_4;
 4913 return;
 4914 yyfl_197_1 : ;
 4915 }
 4916 yyErr(2,1494);
 4917 }
 4918 DefineTempos_MEMBERS(yyin_1, yyin_2, yyin_3, yyout_1)
 4919 yy yyin_1;
 4920 yy yyin_2;
 4921 yy yyin_3;
 4922 yy *yyout_1;
 4923 {
 4924 {
 4925 yy yyb;
 4926 yy yy_0_1;
 4927 yy yyv_List;
 4928 yy yy_0_1_1;
 4929 yy yyv_RefSpace;
 4930 yy yy_0_1_2;
 4931 yy yyv_TEMPO;
 4932 yy yy_0_2;
 4933 yy yyv_IDENTLIST1;
 4934 yy yy_0_3;
 4935 yy yy_0_4;
 4936 yy yyv_Old;
 4937 yy yy_1_1;
 4938 yy yy_2_1;
 4939 yy yy_3_1;
 4940 yy yy_3_2;
 4941 yy yy_3_3;
 4942 yy yyv_IDENTLIST2;
 4943 yy yy_3_4;
 4944 yy yyv_S;
 4945 yy yy_4_1;
 4946 yy yy_5_1;
 4947 yy yy_5_2;
 4948 yy yy_6_1;
 4949 yy_0_1 = yyin_1;
 4950 yy_0_2 = yyin_2;
 4951 yy_0_3 = yyin_3;
 4952 if (yy_0_1[0] != 1) goto yyfl_198_1;
 4953 yy_0_1_1 = ((yy)yy_0_1[1]);
 4954 yy_0_1_2 = ((yy)yy_0_1[2]);
 4955 yyv_List = yy_0_1_1;
 4956 yyv_RefSpace = yy_0_1_2;
 4957 yyv_TEMPO = yy_0_2;
 4958 yyv_IDENTLIST1 = yy_0_3;
 4959 GetSpace(&yy_1_1);
 4960 yyv_Old = yy_1_1;
 4961 yy_2_1 = ((yy)0);
 4962 PutSpace(yy_2_1);
 4963 yy_3_1 = yyv_List;
 4964 yy_3_2 = yyv_TEMPO;
 4965 yy_3_3 = yyv_IDENTLIST1;
 4966 DefineTempos_MEMBERLIST(yy_3_1, yy_3_2, yy_3_3, &yy_3_4);
 4967 yyv_IDENTLIST2 = yy_3_4;
 4968 GetSpace(&yy_4_1);
 4969 yyv_S = yy_4_1;
 4970 yy_5_1 = yyv_RefSpace;
 4971 yy_5_2 = yyv_S;
 4972 SetINT(yy_5_1, yy_5_2);
 4973 yy_6_1 = yyv_Old;
 4974 PutSpace(yy_6_1);
 4975 yy_0_4 = yyv_IDENTLIST2;
 4976 *yyout_1 = yy_0_4;
 4977 return;
 4978 yyfl_198_1 : ;
 4979 }
 4980 yyErr(2,1503);
 4981 }
 4982 DefineTempos_MEMBERLIST(yyin_1, yyin_2, yyin_3, yyout_1)
 4983 yy yyin_1;
 4984 yy yyin_2;
 4985 yy yyin_3;
 4986 yy *yyout_1;
 4987 {
 4988 {
 4989 yy yyb;
 4990 yy yy_0_1;
 4991 yy yyv_H;
 4992 yy yy_0_1_1;
 4993 yy yyv_T;
 4994 yy yy_0_1_2;
 4995 yy yy_0_2;
 4996 yy yyv_N;
 4997 yy yy_0_2_1;
 4998 yy yyv_Tl;
 4999 yy yy_0_2_2;
 5000 yy yyv_V0;
 5001 yy yy_0_3;
 5002 yy yy_0_4;
 5003 yy yy_1_1;
 5004 yy yy_1_2;
 5005 yy yy_1_2_1;
 5006 yy yy_1_2_2;
 5007 yy yy_1_3;
 5008 yy yyv_V1;
 5009 yy yy_1_4;
 5010 yy yy_2_1;
 5011 yy yy_2_2;
 5012 yy yy_2_2_1;
 5013 yy yy_2_2_1_1;
 5014 yy yy_2_2_1_2;
 5015 yy yy_2_2_2;
 5016 yy yy_2_3;
 5017 yy yyv_V2;
 5018 yy yy_2_4;
 5019 yy_0_1 = yyin_1;
 5020 yy_0_2 = yyin_2;
 5021 yy_0_3 = yyin_3;
 5022 if (yy_0_1[0] != 1) goto yyfl_199_1;
 5023 yy_0_1_1 = ((yy)yy_0_1[1]);
 5024 yy_0_1_2 = ((yy)yy_0_1[2]);
 5025 yyv_H = yy_0_1_1;
 5026 yyv_T = yy_0_1_2;
 5027 if (yy_0_2[0] != 1) goto yyfl_199_1;
 5028 yy_0_2_1 = ((yy)yy_0_2[1]);
 5029 yy_0_2_2 = ((yy)yy_0_2[2]);
 5030 yyv_N = yy_0_2_1;
 5031 yyv_Tl = yy_0_2_2;
 5032 yyv_V0 = yy_0_3;
 5033 yyb = yyh;
 5034 yyh += 6; if (yyh > yyhx) yyExtend();
 5035 yy_1_1 = yyv_H;
 5036 yy_1_2_1 = yyv_N;
 5037 yy_1_2_2 = yyv_Tl;
 5038 yy_1_2 = yyb + 0;
 5039 yy_1_2[0] = 1;
 5040 yy_1_2[1] = ((long)yy_1_2_1);
 5041 yy_1_2[2] = ((long)yy_1_2_2);
 5042 yy_1_3 = yyv_V0;
 5043 DefineTempos_MEMBER(yy_1_1, yy_1_2, yy_1_3, &yy_1_4);
 5044 yyv_V1 = yy_1_4;
 5045 yy_2_1 = yyv_T;
 5046 yy_2_2_1_1 = yyv_N;
 5047 yy_2_2_1_2 = ((yy)1);
 5048 yy_2_2_1 = (yy)(((long)yy_2_2_1_1)+((long)yy_2_2_1_2));
 5049 yy_2_2_2 = yyv_Tl;
 5050 yy_2_2 = yyb + 3;
 5051 yy_2_2[0] = 1;
 5052 yy_2_2[1] = ((long)yy_2_2_1);
 5053 yy_2_2[2] = ((long)yy_2_2_2);
 5054 yy_2_3 = yyv_V1;
 5055 DefineTempos_MEMBERLIST(yy_2_1, yy_2_2, yy_2_3, &yy_2_4);
 5056 yyv_V2 = yy_2_4;
 5057 yy_0_4 = yyv_V2;
 5058 *yyout_1 = yy_0_4;
 5059 return;
 5060 yyfl_199_1 : ;
 5061 }
 5062 {
 5063 yy yyb;
 5064 yy yy_0_1;
 5065 yy yyv_Prefix;
 5066 yy yy_0_2;
 5067 yy yyv_V;
 5068 yy yy_0_3;
 5069 yy yy_0_4;
 5070 yy_0_1 = yyin_1;
 5071 yy_0_2 = yyin_2;
 5072 yy_0_3 = yyin_3;
 5073 if (yy_0_1[0] != 2) goto yyfl_199_2;
 5074 yyv_Prefix = yy_0_2;
 5075 yyv_V = yy_0_3;
 5076 yy_0_4 = yyv_V;
 5077 *yyout_1 = yy_0_4;
 5078 return;
 5079 yyfl_199_2 : ;
 5080 }
 5081 yyErr(2,1514);
 5082 }
 5083 DefineTempos_MEMBER(yyin_1, yyin_2, yyin_3, yyout_1)
 5084 yy yyin_1;
 5085 yy yyin_2;
 5086 yy yyin_3;
 5087 yy *yyout_1;
 5088 {
 5089 {
 5090 yy yyb;
 5091 yy yy_0_1;
 5092 yy yyv_Predicate;
 5093 yy yy_0_1_1;
 5094 yy yyv_P;
 5095 yy yy_0_1_2;
 5096 yy yyv_InArgs;
 5097 yy yy_0_1_3;
 5098 yy yyv_OutArgs;
 5099 yy yy_0_1_4;
 5100 yy yyv_Offset;
 5101 yy yy_0_1_5;
 5102 yy yyv_Prefix;
 5103 yy yy_0_2;
 5104 yy yyv_V0;
 5105 yy yy_0_3;
 5106 yy yy_0_4;
 5107 yy yy_1_1_1_1;
 5108 yy yy_1_1_2_1;
 5109 yy yy_1_1_2_2;
 5110 yy yy_1_1_2_3;
 5111 yy yy_1_1_2_4;
 5112 yy yy_1_1_3_1;
 5113 yy yy_1_1_3_2;
 5114 yy yyv_List;
 5115 yy yy_1_1_3_3;
 5116 yy yy_1_1_4_1;
 5117 yy yyv_N;
 5118 yy yy_1_1_4_2;
 5119 yy yy_1_1_5_1;
 5120 yy yy_1_1_5_1_1;
 5121 yy yy_1_1_5_1_2;
 5122 yy yyv_OffsetVal;
 5123 yy yy_1_1_5_2;
 5124 yy yy_1_1_6_1;
 5125 yy yy_1_1_6_2;
 5126 yy yy_1_1_7_1_1_1;
 5127 yy yy_1_1_7_1_1_2;
 5128 yy yy_1_1_7_1_1_2_1;
 5129 yy yyv_Tempo;
 5130 yy yy_1_1_7_1_1_2_1_1;
 5131 yy yyv_Key;
 5132 yy yy_1_1_7_1_1_2_1_2;
 5133 yy yy_1_1_7_1_1_2_1_3;
 5134 yy yy_1_1_7_1_1_2_2;
 5135 yy yy_1_1_7_1_1_2_3;
 5136 yy yy_1_1_7_1_2_1;
 5137 yy yy_2_1;
 5138 yy yy_2_2;
 5139 yy yy_2_2_1;
 5140 yy yy_2_2_2;
 5141 yy yyv_Next;
 5142 yy yy_2_3;
 5143 yy yy_3_1;
 5144 yy yy_3_2;
 5145 yy yy_3_3;
 5146 yy yyv_Dummy;
 5147 yy yy_3_4;
 5148 yy yyv_V1;
 5149 yy yy_3_5;
 5150 yy_0_1 = yyin_1;
 5151 yy_0_2 = yyin_2;
 5152 yy_0_3 = yyin_3;
 5153 if (yy_0_1[0] != 7) goto yyfl_200_1;
 5154 yy_0_1_1 = ((yy)yy_0_1[1]);
 5155 yy_0_1_2 = ((yy)yy_0_1[2]);
 5156 yy_0_1_3 = ((yy)yy_0_1[3]);
 5157 yy_0_1_4 = ((yy)yy_0_1[4]);
 5158 yy_0_1_5 = ((yy)yy_0_1[5]);
 5159 yyv_Predicate = yy_0_1_1;
 5160 yyv_P = yy_0_1_2;
 5161 yyv_InArgs = yy_0_1_3;
 5162 yyv_OutArgs = yy_0_1_4;
 5163 yyv_Offset = yy_0_1_5;
 5164 yyv_Prefix = yy_0_2;
 5165 yyv_V0 = yy_0_3;
 5166 yyb = yyh;
 5167 yyh += 3; if (yyh > yyhx) yyExtend();
 5168 {
 5169 yy yysb = yyb;
 5170 yy_1_1_1_1 = yyv_Predicate;
 5171 if (! IsTable(yy_1_1_1_1)) goto yyfl_200_1_1_1;
 5172 yy_1_1_2_1 = ((yy)"'");
 5173 yy_1_1_2_2 = yyv_Predicate;
 5174 yy_1_1_2_3 = ((yy)"' cannot be used as predicate");
 5175 yy_1_1_2_4 = yyv_P;
 5176 MESSAGE1(yy_1_1_2_1, yy_1_1_2_2, yy_1_1_2_3, yy_1_1_2_4);
 5177 yy_1_1_3_1 = yyv_Predicate;
 5178 yy_1_1_3_2 = yyv_P;
 5179 GetTableFields(yy_1_1_3_1, yy_1_1_3_2, &yy_1_1_3_3);
 5180 yyv_List = yy_1_1_3_3;
 5181 yy_1_1_4_1 = yyv_List;
 5182 Length(yy_1_1_4_1, &yy_1_1_4_2);
 5183 yyv_N = yy_1_1_4_2;
 5184 yy_1_1_5_1_1 = yyv_N;
 5185 yy_1_1_5_1_2 = ((yy)1);
 5186 yy_1_1_5_1 = (yy)(((long)yy_1_1_5_1_1)+((long)yy_1_1_5_1_2));
 5187 ReserveSpace(yy_1_1_5_1, &yy_1_1_5_2);
 5188 yyv_OffsetVal = yy_1_1_5_2;
 5189 yy_1_1_6_1 = yyv_Offset;
 5190 yy_1_1_6_2 = yyv_OffsetVal;
 5191 SetINT(yy_1_1_6_1, yy_1_1_6_2);
 5192 {
 5193 yy yysb = yyb;
 5194 yy_1_1_7_1_1_1 = yyv_OutArgs;
 5195 yy_1_1_7_1_1_2 = yy_1_1_7_1_1_1;
 5196 if (yy_1_1_7_1_1_2[0] != 1) goto yyfl_200_1_1_1_7_1;
 5197 yy_1_1_7_1_1_2_1 = ((yy)yy_1_1_7_1_1_2[1]);
 5198 yy_1_1_7_1_1_2_2 = ((yy)yy_1_1_7_1_1_2[2]);
 5199 yy_1_1_7_1_1_2_3 = ((yy)yy_1_1_7_1_1_2[3]);
 5200 if (yy_1_1_7_1_1_2_1[0] != 3) goto yyfl_200_1_1_1_7_1;
 5201 yy_1_1_7_1_1_2_1_1 = ((yy)yy_1_1_7_1_1_2_1[1]);
 5202 yy_1_1_7_1_1_2_1_2 = ((yy)yy_1_1_7_1_1_2_1[2]);
 5203 yy_1_1_7_1_1_2_1_3 = ((yy)yy_1_1_7_1_1_2_1[3]);
 5204 yyv_Tempo = yy_1_1_7_1_1_2_1_1;
 5205 yyv_Key = yy_1_1_7_1_1_2_1_2;
 5206 yy_1_1_7_1_2_1 = yyv_Key;
 5207 MakeLocalVar(yy_1_1_7_1_2_1);
 5208 goto yysl_200_1_1_1_7;
 5209 yyfl_200_1_1_1_7_1 : ;
 5210 goto yysl_200_1_1_1_7;
 5211 yysl_200_1_1_1_7 : ;
 5212 yyb = yysb;
 5213 }
 5214 goto yysl_200_1_1;
 5215 yyfl_200_1_1_1 : ;
 5216 goto yysl_200_1_1;
 5217 yysl_200_1_1 : ;
 5218 yyb = yysb;
 5219 }
 5220 yy_2_1 = yyv_InArgs;
 5221 yy_2_2_1 = ((yy)1);
 5222 yy_2_2_2 = yyv_Prefix;
 5223 yy_2_2 = yyb + 0;
 5224 yy_2_2[0] = 1;
 5225 yy_2_2[1] = ((long)yy_2_2_1);
 5226 yy_2_2[2] = ((long)yy_2_2_2);
 5227 DefineTempos_USEARGS(yy_2_1, yy_2_2, &yy_2_3);
 5228 yyv_Next = yy_2_3;
 5229 yy_3_1 = yyv_OutArgs;
 5230 yy_3_2 = yyv_Next;
 5231 yy_3_3 = yyv_V0;
 5232 DefineTempos_DEFARGS(yy_3_1, yy_3_2, yy_3_3, &yy_3_4, &yy_3_5);
 5233 yyv_Dummy = yy_3_4;
 5234 yyv_V1 = yy_3_5;
 5235 yy_0_4 = yyv_V1;
 5236 *yyout_1 = yy_0_4;
 5237 return;
 5238 yyfl_200_1 : ;
 5239 }
 5240 {
 5241 yy yyb;
 5242 yy yy_0_1;
 5243 yy yyv_DefArg;
 5244 yy yy_0_1_1;
 5245 yy yyv_UseArg;
 5246 yy yy_0_1_2;
 5247 yy yyv_Pos;
 5248 yy yy_0_1_3;
 5249 yy yyv_Prefix;
 5250 yy yy_0_2;
 5251 yy yyv_V;
 5252 yy yy_0_3;
 5253 yy yy_0_4;
 5254 yy yy_1_1;
 5255 yy yy_1_2;
 5256 yy yy_1_2_1;
 5257 yy yy_1_2_2;
 5258 yy yy_1_3;
 5259 yy yyv_V2;
 5260 yy yy_1_4;
 5261 yy yy_2_1;
 5262 yy yy_2_2;
 5263 yy yy_2_2_1;
 5264 yy yy_2_2_2;
 5265 yy_0_1 = yyin_1;
 5266 yy_0_2 = yyin_2;
 5267 yy_0_3 = yyin_3;
 5268 if (yy_0_1[0] != 1) goto yyfl_200_2;
 5269 yy_0_1_1 = ((yy)yy_0_1[1]);
 5270 yy_0_1_2 = ((yy)yy_0_1[2]);
 5271 yy_0_1_3 = ((yy)yy_0_1[3]);
 5272 yyv_DefArg = yy_0_1_1;
 5273 yyv_UseArg = yy_0_1_2;
 5274 yyv_Pos = yy_0_1_3;
 5275 yyv_Prefix = yy_0_2;
 5276 yyv_V = yy_0_3;
 5277 yyb = yyh;
 5278 yyh += 6; if (yyh > yyhx) yyExtend();
 5279 yy_1_1 = yyv_DefArg;
 5280 yy_1_2_1 = ((yy)1);
 5281 yy_1_2_2 = yyv_Prefix;
 5282 yy_1_2 = yyb + 0;
 5283 yy_1_2[0] = 1;
 5284 yy_1_2[1] = ((long)yy_1_2_1);
 5285 yy_1_2[2] = ((long)yy_1_2_2);
 5286 yy_1_3 = yyv_V;
 5287 DefineTempos_DEFARG(yy_1_1, yy_1_2, yy_1_3, &yy_1_4);
 5288 yyv_V2 = yy_1_4;
 5289 yy_2_1 = yyv_UseArg;
 5290 yy_2_2_1 = ((yy)2);
 5291 yy_2_2_2 = yyv_Prefix;
 5292 yy_2_2 = yyb + 3;
 5293 yy_2_2[0] = 1;
 5294 yy_2_2[1] = ((long)yy_2_2_1);
 5295 yy_2_2[2] = ((long)yy_2_2_2);
 5296 DefineTempos_USEARG(yy_2_1, yy_2_2);
 5297 yy_0_4 = yyv_V2;
 5298 *yyout_1 = yy_0_4;
 5299 return;
 5300 yyfl_200_2 : ;
 5301 }
 5302 {
 5303 yy yyb;
 5304 yy yy_0_1;
 5305 yy yyv_Var;
 5306 yy yy_0_1_1;
 5307 yy yyv_Pos;
 5308 yy yy_0_1_2;
 5309 yy yyv_Source;
 5310 yy yy_0_1_3;
 5311 yy yyv_Prefix;
 5312 yy yy_0_2;
 5313 yy yyv_V;
 5314 yy yy_0_3;
 5315 yy yy_0_4;
 5316 yy yy_1_1;
 5317 yy yy_1_2;
 5318 yy_0_1 = yyin_1;
 5319 yy_0_2 = yyin_2;
 5320 yy_0_3 = yyin_3;
 5321 if (yy_0_1[0] != 2) goto yyfl_200_3;
 5322 yy_0_1_1 = ((yy)yy_0_1[1]);
 5323 yy_0_1_2 = ((yy)yy_0_1[2]);
 5324 yy_0_1_3 = ((yy)yy_0_1[3]);
 5325 yyv_Var = yy_0_1_1;
 5326 yyv_Pos = yy_0_1_2;
 5327 yyv_Source = yy_0_1_3;
 5328 yyv_Prefix = yy_0_2;
 5329 yyv_V = yy_0_3;
 5330 yy_1_1 = yyv_Source;
 5331 yy_1_2 = yyv_Prefix;
 5332 DefineTempos_USEARG(yy_1_1, yy_1_2);
 5333 yy_0_4 = yyv_V;
 5334 *yyout_1 = yy_0_4;
 5335 return;
 5336 yyfl_200_3 : ;
 5337 }
 5338 {
 5339 yy yyb;
 5340 yy yy_0_1;
 5341 yy yyv_Var;
 5342 yy yy_0_1_1;
 5343 yy yyv_Pos;
 5344 yy yy_0_1_2;
 5345 yy yyv_Pattern;
 5346 yy yy_0_1_3;
 5347 yy yyv_Prefix;
 5348 yy yy_0_2;
 5349 yy yyv_V;
 5350 yy yy_0_3;
 5351 yy yy_0_4;
 5352 yy yy_1_1;
 5353 yy yy_1_2;
 5354 yy yy_1_3;
 5355 yy yyv_V2;
 5356 yy yy_1_4;
 5357 yy_0_1 = yyin_1;
 5358 yy_0_2 = yyin_2;
 5359 yy_0_3 = yyin_3;
 5360 if (yy_0_1[0] != 3) goto yyfl_200_4;
 5361 yy_0_1_1 = ((yy)yy_0_1[1]);
 5362 yy_0_1_2 = ((yy)yy_0_1[2]);
 5363 yy_0_1_3 = ((yy)yy_0_1[3]);
 5364 yyv_Var = yy_0_1_1;
 5365 yyv_Pos = yy_0_1_2;
 5366 yyv_Pattern = yy_0_1_3;
 5367 yyv_Prefix = yy_0_2;
 5368 yyv_V = yy_0_3;
 5369 yy_1_1 = yyv_Pattern;
 5370 yy_1_2 = yyv_Prefix;
 5371 yy_1_3 = yyv_V;
 5372 DefineTempos_DEFARG(yy_1_1, yy_1_2, yy_1_3, &yy_1_4);
 5373 yyv_V2 = yy_1_4;
 5374 yy_0_4 = yyv_V2;
 5375 *yyout_1 = yy_0_4;
 5376 return;
 5377 yyfl_200_4 : ;
 5378 }
 5379 {
 5380 yy yyb;
 5381 yy yy_0_1;
 5382 yy yyv_Pattern;
 5383 yy yy_0_1_1;
 5384 yy yyv_Pos;
 5385 yy yy_0_1_2;
 5386 yy yyv_Prefix;
 5387 yy yy_0_2;
 5388 yy yyv_V;
 5389 yy yy_0_3;
 5390 yy yy_0_4;
 5391 yy yy_1_1;
 5392 yy yy_1_2;
 5393 yy yy_1_3;
 5394 yy yyv_V2;
 5395 yy yy_1_4;
 5396 yy_0_1 = yyin_1;
 5397 yy_0_2 = yyin_2;
 5398 yy_0_3 = yyin_3;
 5399 if (yy_0_1[0] != 9) goto yyfl_200_5;
 5400 yy_0_1_1 = ((yy)yy_0_1[1]);
 5401 yy_0_1_2 = ((yy)yy_0_1[2]);
 5402 yyv_Pattern = yy_0_1_1;
 5403 yyv_Pos = yy_0_1_2;
 5404 yyv_Prefix = yy_0_2;
 5405 yyv_V = yy_0_3;
 5406 yy_1_1 = yyv_Pattern;
 5407 yy_1_2 = yyv_Prefix;
 5408 yy_1_3 = yyv_V;
 5409 DefineTempos_DEFARG(yy_1_1, yy_1_2, yy_1_3, &yy_1_4);
 5410 yyv_V2 = yy_1_4;
 5411 yy_0_4 = yyv_V2;
 5412 *yyout_1 = yy_0_4;
 5413 return;
 5414 yyfl_200_5 : ;
 5415 }
 5416 {
 5417 yy yyb;
 5418 yy yy_0_1;
 5419 yy yyv_Key;
 5420 yy yy_0_1_1;
 5421 yy yyv_Field;
 5422 yy yy_0_1_2;
 5423 yy yyv_Val;
 5424 yy yy_0_1_3;
 5425 yy yyv_Pos;
 5426 yy yy_0_1_4;
 5427 yy yyv_Prefix;
 5428 yy yy_0_2;
 5429 yy yyv_V;
 5430 yy yy_0_3;
 5431 yy yy_0_4;
 5432 yy yy_1_1;
 5433 yy yy_1_2;
 5434 yy_0_1 = yyin_1;
 5435 yy_0_2 = yyin_2;
 5436 yy_0_3 = yyin_3;
 5437 if (yy_0_1[0] != 5) goto yyfl_200_6;
 5438 yy_0_1_1 = ((yy)yy_0_1[1]);
 5439 yy_0_1_2 = ((yy)yy_0_1[2]);
 5440 yy_0_1_3 = ((yy)yy_0_1[3]);
 5441 yy_0_1_4 = ((yy)yy_0_1[4]);
 5442 yyv_Key = yy_0_1_1;
 5443 yyv_Field = yy_0_1_2;
 5444 yyv_Val = yy_0_1_3;
 5445 yyv_Pos = yy_0_1_4;
 5446 yyv_Prefix = yy_0_2;
 5447 yyv_V = yy_0_3;
 5448 yy_1_1 = yyv_Val;
 5449 yy_1_2 = yyv_Prefix;
 5450 DefineTempos_USEARG(yy_1_1, yy_1_2);
 5451 yy_0_4 = yyv_V;
 5452 *yyout_1 = yy_0_4;
 5453 return;
 5454 yyfl_200_6 : ;
 5455 }
 5456 {
 5457 yy yyb;
 5458 yy yy_0_1;
 5459 yy yyv_Key;
 5460 yy yy_0_1_1;
 5461 yy yyv_Field;
 5462 yy yy_0_1_2;
 5463 yy yyv_Val;
 5464 yy yy_0_1_3;
 5465 yy yyv_Pos;
 5466 yy yy_0_1_4;
 5467 yy yyv_Prefix;
 5468 yy yy_0_2;
 5469 yy yyv_V;
 5470 yy yy_0_3;
 5471 yy yy_0_4;
 5472 yy yy_1_1;
 5473 yy yy_1_2;
 5474 yy yy_1_3;
 5475 yy yyv_V2;
 5476 yy yy_1_4;
 5477 yy_0_1 = yyin_1;
 5478 yy_0_2 = yyin_2;
 5479 yy_0_3 = yyin_3;
 5480 if (yy_0_1[0] != 6) goto yyfl_200_7;
 5481 yy_0_1_1 = ((yy)yy_0_1[1]);
 5482 yy_0_1_2 = ((yy)yy_0_1[2]);
 5483 yy_0_1_3 = ((yy)yy_0_1[3]);
 5484 yy_0_1_4 = ((yy)yy_0_1[4]);
 5485 yyv_Key = yy_0_1_1;
 5486 yyv_Field = yy_0_1_2;
 5487 yyv_Val = yy_0_1_3;
 5488 yyv_Pos = yy_0_1_4;
 5489 yyv_Prefix = yy_0_2;
 5490 yyv_V = yy_0_3;
 5491 yy_1_1 = yyv_Val;
 5492 yy_1_2 = yyv_Prefix;
 5493 yy_1_3 = yyv_V;
 5494 DefineTempos_DEFARG(yy_1_1, yy_1_2, yy_1_3, &yy_1_4);
 5495 yyv_V2 = yy_1_4;
 5496 yy_0_4 = yyv_V2;
 5497 *yyout_1 = yy_0_4;
 5498 return;
 5499 yyfl_200_7 : ;
 5500 }
 5501 {
 5502 yy yyb;
 5503 yy yy_0_1;
 5504 yy yyv_Type;
 5505 yy yy_0_1_1;
 5506 yy yyv_Key;
 5507 yy yy_0_1_2;
 5508 yy yyv_Pos;
 5509 yy yy_0_1_3;
 5510 yy yyv_Offset;
 5511 yy yy_0_1_4;
 5512 yy yyv_Prefix;
 5513 yy yy_0_2;
 5514 yy yyv_V;
 5515 yy yy_0_3;
 5516 yy yy_0_4;
 5517 yy yy_1_1;
 5518 yy yy_1_2;
 5519 yy yyv_List;
 5520 yy yy_1_3;
 5521 yy yy_2_1;
 5522 yy yyv_N;
 5523 yy yy_2_2;
 5524 yy yy_3_1;
 5525 yy yy_3_1_1;
 5526 yy yy_3_1_2;
 5527 yy yyv_OffsetVal;
 5528 yy yy_3_2;
 5529 yy yy_4_1;
 5530 yy yy_4_2;
 5531 yy yy_5_1;
 5532 yy_0_1 = yyin_1;
 5533 yy_0_2 = yyin_2;
 5534 yy_0_3 = yyin_3;
 5535 if (yy_0_1[0] != 4) goto yyfl_200_8;
 5536 yy_0_1_1 = ((yy)yy_0_1[1]);
 5537 yy_0_1_2 = ((yy)yy_0_1[2]);
 5538 yy_0_1_3 = ((yy)yy_0_1[3]);
 5539 yy_0_1_4 = ((yy)yy_0_1[4]);
 5540 yyv_Type = yy_0_1_1;
 5541 yyv_Key = yy_0_1_2;
 5542 yyv_Pos = yy_0_1_3;
 5543 yyv_Offset = yy_0_1_4;
 5544 yyv_Prefix = yy_0_2;
 5545 yyv_V = yy_0_3;
 5546 yy_1_1 = yyv_Type;
 5547 yy_1_2 = yyv_Pos;
 5548 GetTableFields(yy_1_1, yy_1_2, &yy_1_3);
 5549 yyv_List = yy_1_3;
 5550 yy_2_1 = yyv_List;
 5551 Length(yy_2_1, &yy_2_2);
 5552 yyv_N = yy_2_2;
 5553 yy_3_1_1 = yyv_N;
 5554 yy_3_1_2 = ((yy)1);
 5555 yy_3_1 = (yy)(((long)yy_3_1_1)+((long)yy_3_1_2));
 5556 ReserveSpace(yy_3_1, &yy_3_2);
 5557 yyv_OffsetVal = yy_3_2;
 5558 yy_4_1 = yyv_Offset;
 5559 yy_4_2 = yyv_OffsetVal;
 5560 SetINT(yy_4_1, yy_4_2);
 5561 yy_5_1 = yyv_Key;
 5562 MakeLocalVar(yy_5_1);
 5563 yy_0_4 = yyv_V;
 5564 *yyout_1 = yy_0_4;
 5565 return;
 5566 yyfl_200_8 : ;
 5567 }
 5568 {
 5569 yy yyb;
 5570 yy yy_0_1;
 5571 yy yyv_Cases;
 5572 yy yy_0_1_1;
 5573 yy yyv_P;
 5574 yy yy_0_1_2;
 5575 yy yyv_Pos;
 5576 yy yy_0_1_3;
 5577 yy yyv_Prefix;
 5578 yy yy_0_2;
 5579 yy yyv_V0;
 5580 yy yy_0_3;
 5581 yy yy_0_4;
 5582 yy yy_1_1;
 5583 yy yy_1_2;
 5584 yy yy_1_2_1;
 5585 yy yy_1_2_2;
 5586 yy yyv_V1;
 5587 yy yy_1_3;
 5588 yy yy_2;
 5589 yy yy_3_1;
 5590 yy yy_3_2;
 5591 yy yyv_V2;
 5592 yy yy_3_3;
 5593 yy_0_1 = yyin_1;
 5594 yy_0_2 = yyin_2;
 5595 yy_0_3 = yyin_3;
 5596 if (yy_0_1[0] != 10) goto yyfl_200_9;
 5597 yy_0_1_1 = ((yy)yy_0_1[1]);
 5598 yy_0_1_2 = ((yy)yy_0_1[2]);
 5599 yy_0_1_3 = ((yy)yy_0_1[3]);
 5600 yyv_Cases = yy_0_1_1;
 5601 yyv_P = yy_0_1_2;
 5602 yyv_Pos = yy_0_1_3;
 5603 yyv_Prefix = yy_0_2;
 5604 yyv_V0 = yy_0_3;
 5605 yyb = yyh;
 5606 yyh += 3; if (yyh > yyhx) yyExtend();
 5607 yy_1_1 = yyv_Cases;
 5608 yy_1_2_1 = ((yy)1);
 5609 yy_1_2_2 = yyv_Prefix;
 5610 yy_1_2 = yyb + 0;
 5611 yy_1_2[0] = 1;
 5612 yy_1_2[1] = ((long)yy_1_2_1);
 5613 yy_1_2[2] = ((long)yy_1_2_2);
 5614 DefineTempos_ALTERNATIVELIST(yy_1_1, yy_1_2, &yy_1_3);
 5615 yyv_V1 = yy_1_3;
 5616 yy_2 = yyv_V1;
 5617 yyv_P[1] = (long) yy_2;
 5618 yy_3_1 = yyv_V0;
 5619 yy_3_2 =