1: %{
   2: 
   3: /*
   4:  * Copyright (c) 1983 Regents of the University of California.
   5:  * All rights reserved.  The Berkeley software License Agreement
   6:  * specifies the terms and conditions for redistribution.
   7:  *
   8:  *	@(#)commands.y	5.3 (Berkeley) 5/31/85
   9:  */
  10: 
  11: static char rcsid[] = "$Header: commands.y,v 1.5 84/12/26 10:38:41 linton Exp $";
  12: 
  13: /*
  14:  * Yacc grammar for debugger commands.
  15:  */
  16: 
  17: #include "defs.h"
  18: #include "symbols.h"
  19: #include "operators.h"
  20: #include "tree.h"
  21: #include "process.h"
  22: #include "source.h"
  23: #include "scanner.h"
  24: #include "keywords.h"
  25: #include "names.h"
  26: #include "lists.h"
  27: 
  28: private String curformat = "X";
  29: 
  30: %}
  31: 
  32: %term
  33:     ALIAS AND ASSIGN AT CALL CATCH CONT DEBUG DELETE DIV DOWN DUMP
  34:     EDIT FILE FUNC GRIPE HELP IF IGNORE IN LIST MOD NEXT NEXTI NIL NOT OR
  35:     PRINT PSYM QUIT RERUN RETURN RUN SET SH SKIP SOURCE STATUS STEP STEPI
  36:     STOP STOPI TRACE TRACEI UNALIAS UNSET UP USE
  37:     WHATIS WHEN WHERE WHEREIS WHICH
  38: 
  39: %term INT CHAR REAL NAME STRING
  40: %term ARROW
  41: 
  42: %right INT
  43: %binary REDIRECT
  44: %binary '<' '=' '>' '!' IN
  45: %left '+' '-' OR
  46: %left UNARYSIGN
  47: %left '*' '/' DIV MOD AND
  48: %left '\\'
  49: %left NOT '(' '[' '.' '^' ARROW
  50: 
  51: %union {
  52:     Name y_name;
  53:     Symbol y_sym;
  54:     Node y_node;
  55:     Integer y_int;
  56:     Operator y_op;
  57:     long y_long;
  58:     char y_char;
  59:     double y_real;
  60:     String y_string;
  61:     Boolean y_bool;
  62:     Cmdlist y_cmdlist;
  63:     List y_list;
  64: };
  65: 
  66: %type <y_op>        trace stop
  67: %type <y_long>      INT count signal
  68: %type <y_char>      CHAR
  69: %type <y_real>      REAL
  70: %type <y_string>    STRING redirectout filename opt_filename mode
  71: %type <y_name>      ALIAS AND ASSIGN AT CALL CATCH CONT
  72: %type <y_name>      DEBUG DELETE DIV DOWN DUMP
  73: %type <y_name>      EDIT FILE FUNC GRIPE HELP IF IGNORE IN LIST MOD
  74: %type <y_name>      NEXT NEXTI NIL NOT OR
  75: %type <y_name>      PRINT PSYM QUIT RERUN RETURN RUN SET SH SKIP SOURCE STATUS
  76: %type <y_name>      STEP STEPI STOP STOPI TRACE TRACEI
  77: %type <y_name>      UNALIAS UNSET UP USE WHATIS WHEN WHERE WHEREIS WHICH
  78: %type <y_name>      name NAME keyword
  79: %type <y_node>      opt_qual_symbol symbol
  80: %type <y_node>      command rcommand cmd step what where examine
  81: %type <y_node>      event opt_exp_list opt_cond
  82: %type <y_node>      exp_list exp term boolean_exp constant address
  83: %type <y_node>      integer_list alias_command list_command line_number
  84: %type <y_cmdlist>   actions
  85: %type <y_list>      sourcepath name_list
  86: 
  87: %%
  88: 
  89: input:
  90:     input command_nl
  91: |
  92:     /* empty */
  93: ;
  94: command_nl:
  95:     command_line '\n'
  96: |
  97:     command_line ';'
  98: {
  99:     chkalias = true;
 100: }
 101: |
 102:     '\n'
 103: ;
 104: 
 105: command_line:
 106:     command
 107: {
 108:     if ($1 != nil) {
 109:         topeval($1);
 110:     }
 111: }
 112: |
 113:     rcommand redirectout
 114: {
 115:     if ($1 != nil) {
 116:         if ($2 != nil) {
 117:         setout($2);
 118:         topeval($1);
 119:         unsetout();
 120:         } else {
 121:         topeval($1);
 122:         }
 123:     }
 124: }
 125: ;
 126: redirectout:
 127:     '>' shellmode NAME
 128: {
 129:     $$ = ident($3);
 130: }
 131: |
 132:     /* empty */
 133: {
 134:     $$ = nil;
 135: }
 136: ;
 137: 
 138: /*
 139:  * Non-redirectable commands.
 140:  */
 141: command:
 142:     alias_command
 143: {
 144:     $$ = $1;
 145: }
 146: |
 147:     ASSIGN exp '=' exp
 148: {
 149:     $$ = build(O_ASSIGN, unrval($2), $4);
 150: }
 151: |
 152:     CATCH signal
 153: {
 154:     $$ = build(O_CATCH, $2);
 155: }
 156: |
 157:     CATCH
 158: {
 159:     $$ = build(O_CATCH, 0);
 160: }
 161: |
 162:     CONT
 163: {
 164:     $$ = build(O_CONT, (long) DEFSIG);
 165: }
 166: |
 167:     CONT signal
 168: {
 169:     $$ = build(O_CONT, $2);
 170: }
 171: |
 172:     DELETE integer_list
 173: {
 174:     $$ = build(O_DELETE, $2);
 175: }
 176: |
 177:     DOWN
 178: {
 179:     $$ = build(O_DOWN, build(O_LCON, (long) 1));
 180: }
 181: |
 182:     DOWN INT
 183: {
 184:     $$ = build(O_DOWN, build(O_LCON, (long) $2));
 185: }
 186: |
 187:     EDIT shellmode opt_filename
 188: {
 189:     $$ = build(O_EDIT, $3);
 190: }
 191: |
 192:     FILE shellmode opt_filename
 193: {
 194:     $$ = build(O_CHFILE, $3);
 195: }
 196: |
 197:     FUNC
 198: {
 199:     $$ = build(O_FUNC, nil);
 200: }
 201: |
 202:     FUNC opt_qual_symbol
 203: {
 204:     $$ = build(O_FUNC, $2);
 205: }
 206: |
 207:     GRIPE
 208: {
 209:     $$ = build(O_GRIPE);
 210: }
 211: |
 212:     HELP
 213: {
 214:     $$ = build(O_HELP);
 215: }
 216: |
 217:     IGNORE signal
 218: {
 219:     $$ = build(O_IGNORE, $2);
 220: }
 221: |
 222:     IGNORE
 223: {
 224:     $$ = build(O_IGNORE, 0);
 225: }
 226: |
 227:     list_command
 228: {
 229:     $$ = $1;
 230: }
 231: |
 232:     PSYM exp
 233: {
 234:     $$ = build(O_PSYM, unrval($2));
 235: }
 236: |
 237:     QUIT
 238: {
 239:     if (not popinput()) {
 240:         quit(0);
 241:     } else {
 242:         $$ = nil;
 243:     }
 244: }
 245: |
 246:     RETURN
 247: {
 248:     $$ = build(O_RETURN, nil);
 249: }
 250: |
 251:     RETURN opt_qual_symbol
 252: {
 253:     $$ = build(O_RETURN, $2);
 254: }
 255: |
 256:     runcommand
 257: {
 258:     run();
 259:     /* NOTREACHED */
 260: }
 261: |
 262:     SET name '=' exp
 263: {
 264:     $$ = build(O_SET, build(O_NAME, $2), $4);
 265: }
 266: |
 267:     SET name
 268: {
 269:     $$ = build(O_SET, build(O_NAME, $2), nil);
 270: }
 271: |
 272:     SET
 273: {
 274:     $$ = build(O_SET, nil, nil);
 275: }
 276: |
 277:     SH
 278: {
 279:     shellline();
 280:     $$ = nil;
 281: }
 282: |
 283:     SOURCE shellmode filename
 284: {
 285:     $$ = build(O_SOURCE, $3);
 286: }
 287: |
 288:     step
 289: {
 290:     $$ = $1;
 291: }
 292: |
 293:     stop where opt_cond
 294: {
 295:     $$ = build($1, nil, $2, $3);
 296: }
 297: |
 298:     stop what opt_cond
 299: {
 300:     $$ = build($1, $2, nil, $3);
 301: }
 302: |
 303:     stop IF boolean_exp
 304: {
 305:     $$ = build($1, nil, nil, $3);
 306: }
 307: |
 308:     trace what where opt_cond
 309: {
 310:     $$ = build($1, $2, $3, $4);
 311: }
 312: |
 313:     trace where opt_cond
 314: {
 315:     $$ = build($1, nil, $2, $3);
 316: }
 317: |
 318:     trace what opt_cond
 319: {
 320:     $$ = build($1, $2, nil, $3);
 321: }
 322: |
 323:     trace opt_cond
 324: {
 325:     $$ = build($1, nil, nil, $2);
 326: }
 327: |
 328:     UNALIAS name
 329: {
 330:     $$ = build(O_UNALIAS, build(O_NAME, $2));
 331: }
 332: |
 333:     UNSET name
 334: {
 335:     $$ = build(O_UNSET, build(O_NAME, $2));
 336: }
 337: |
 338:     UP
 339: {
 340:     $$ = build(O_UP, build(O_LCON, (long) 1));
 341: }
 342: |
 343:     UP INT
 344: {
 345:     $$ = build(O_UP, build(O_LCON, (long) $2));
 346: }
 347: |
 348:     USE shellmode sourcepath
 349: {
 350:     String dir;
 351: 
 352:     $$ = nil;
 353:     if (list_size($3) == 0) {
 354:         foreach (String, dir, sourcepath)
 355:         printf("%s ", dir);
 356:         endfor
 357:         printf("\n");
 358:     } else {
 359:         foreach (String, dir, sourcepath)
 360:         list_delete(list_curitem(sourcepath), sourcepath);
 361:         endfor
 362:         sourcepath = $3;
 363:     }
 364: }
 365: |
 366:     WHATIS opt_qual_symbol
 367: {
 368:     $$ = build(O_WHATIS, $2);
 369: }
 370: |
 371:     WHEN event '{' actions '}'
 372: {
 373:     $$ = build(O_ADDEVENT, $2, $4);
 374: }
 375: |
 376:     WHEREIS name
 377: {
 378:     $$ = build(O_WHEREIS, build(O_SYM, lookup($2)));
 379: }
 380: |
 381:     WHICH symbol
 382: {
 383:     $$ = build(O_WHICH, $2);
 384: }
 385: |
 386:     '/'
 387: {
 388:     $$ = build(O_SEARCH,
 389:         build(O_LCON, (long) '/'),
 390:         build(O_SCON, strdup(scanner_linebuf))
 391:     );
 392:     gobble();
 393:     insertinput("\n");
 394: }
 395: |
 396:     '?'
 397: {
 398:     $$ = build(O_SEARCH,
 399:         build(O_LCON, (long) '?'),
 400:         build(O_SCON, strdup(scanner_linebuf))
 401:     );
 402:     gobble();
 403:     insertinput("\n");
 404: }
 405: ;
 406: signal:
 407:     INT
 408: {
 409:     $$ = $1;
 410: }
 411: |
 412:     name
 413: {
 414:     $$ = siglookup(ident($1));
 415: }
 416: ;
 417: runcommand:
 418:     run arglist
 419: |
 420:     run
 421: ;
 422: run:
 423:     RUN shellmode
 424: {
 425:     arginit();
 426:     fflush(stdout);
 427: }
 428: |
 429:     RERUN shellmode
 430: {
 431:     fflush(stdout);
 432: }
 433: ;
 434: arglist:
 435:     arglist arg
 436: |
 437:     arg
 438: ;
 439: arg:
 440:     NAME
 441: {
 442:     newarg(ident($1));
 443: }
 444: |
 445:     STRING
 446: {
 447:     newarg($1);
 448: }
 449: |
 450:     '<' NAME
 451: {
 452:     inarg(ident($2));
 453: }
 454: |
 455:     '>' NAME
 456: {
 457:     outarg(ident($2));
 458: }
 459: ;
 460: step:
 461:     STEP
 462: {
 463:     $$ = build(O_STEP, true, false);
 464: }
 465: |
 466:     STEPI
 467: {
 468:     $$ = build(O_STEP, false, false);
 469: }
 470: |
 471:     NEXT
 472: {
 473:     $$ = build(O_STEP, true, true);
 474: }
 475: |
 476:     NEXTI
 477: {
 478:     $$ = build(O_STEP, false, true);
 479: }
 480: ;
 481: shellmode:
 482:     /* empty */
 483: {
 484:     beginshellmode();
 485: }
 486: ;
 487: sourcepath:
 488:     sourcepath NAME
 489: {
 490:     $$ = $1;
 491:     list_append(list_item(ident($2)), nil, $$);
 492: }
 493: |
 494:     /* empty */
 495: {
 496:     $$ = list_alloc();
 497: }
 498: ;
 499: event:
 500:     where
 501: |
 502:     exp
 503: ;
 504: actions:
 505:     actions cmd ';'
 506: {
 507:     $$ = $1;
 508:     cmdlist_append($2, $$);
 509: }
 510: |
 511:     cmd ';'
 512: {
 513:     $$ = list_alloc();
 514:     cmdlist_append($1, $$);
 515: }
 516: ;
 517: cmd:
 518:     command
 519: |
 520:     rcommand
 521: ;
 522: 
 523: /*
 524:  * Redirectable commands.
 525:  */
 526: rcommand:
 527:     PRINT exp_list
 528: {
 529:     $$ = build(O_PRINT, $2);
 530: }
 531: |
 532:     WHERE
 533: {
 534:     $$ = build(O_WHERE);
 535: }
 536: |
 537:     examine
 538: {
 539:     $$ = $1;
 540: }
 541: |
 542:     CALL term '(' opt_exp_list ')'
 543: {
 544:     $$ = build(O_CALLPROC, $2, $4);
 545: }
 546: |
 547:     DEBUG INT
 548: {
 549:     $$ = build(O_DEBUG, $2);
 550: }
 551: |
 552:     DEBUG '-' INT
 553: {
 554:     $$ = build(O_DEBUG, -$3);
 555: }
 556: |
 557:     DUMP opt_qual_symbol
 558: {
 559:     $$ = build(O_DUMP, $2);
 560: }
 561: |
 562:     DUMP '.'
 563: {
 564:     $$ = build(O_DUMP, nil);
 565: }
 566: |
 567:     DUMP
 568: {
 569:     $$ = build(O_DUMP, build(O_SYM, curfunc));
 570: }
 571: |
 572:     STATUS
 573: {
 574:     $$ = build(O_STATUS);
 575: }
 576: ;
 577: alias_command:
 578:     ALIAS name name
 579: {
 580:     $$ = build(O_ALIAS, build(O_NAME, $2), build(O_NAME, $3));
 581: }
 582: |
 583:     ALIAS name STRING
 584: {
 585:     $$ = build(O_ALIAS, build(O_NAME, $2), build(O_SCON, $3));
 586: }
 587: |
 588:     ALIAS name '(' name_list ')' STRING
 589: {
 590:     $$ = build(O_ALIAS,
 591:         build(O_COMMA, build(O_NAME, $2), (Node) $4),
 592:         build(O_SCON, $6)
 593:     );
 594: }
 595: |
 596:     ALIAS name
 597: {
 598:     $$ = build(O_ALIAS, build(O_NAME, $2), nil);
 599: }
 600: |
 601:     ALIAS
 602: {
 603:     $$ = build(O_ALIAS, nil, nil);
 604: }
 605: ;
 606: name_list:
 607:     name_list ',' name
 608: {
 609:     $$ = $1;
 610:     list_append(list_item($3), nil, $$);
 611: }
 612: |
 613:     name
 614: {
 615:     $$ = list_alloc();
 616:     list_append(list_item($1), nil, $$);
 617: }
 618: ;
 619: trace:
 620:     TRACE
 621: {
 622:     $$ = O_TRACE;
 623: }
 624: |
 625:     TRACEI
 626: {
 627:     $$ = O_TRACEI;
 628: }
 629: ;
 630: stop:
 631:     STOP
 632: {
 633:     $$ = O_STOP;
 634: }
 635: |
 636:     STOPI
 637: {
 638:     $$ = O_STOPI;
 639: }
 640: ;
 641: what:
 642:     exp
 643: {
 644:     $$ = $1;
 645: }
 646: |
 647:     STRING ':' line_number
 648: {
 649:     $$ = build(O_QLINE, build(O_SCON, $1), $3);
 650: }
 651: ;
 652: where:
 653:     IN exp
 654: {
 655:     $$ = unrval($2);
 656: }
 657: |
 658:     AT line_number
 659: {
 660:     $$ = build(O_QLINE, build(O_SCON, strdup(cursource)), $2);
 661: }
 662: |
 663:     AT STRING ':' line_number
 664: {
 665:     $$ = build(O_QLINE, build(O_SCON, $2), $4);
 666: }
 667: ;
 668: filename:
 669:     NAME
 670: {
 671:     $$ = ident($1);
 672: }
 673: ;
 674: opt_filename:
 675:     /* empty */
 676: {
 677:     $$ = nil;
 678: }
 679: |
 680:     filename
 681: {
 682:     $$ = $1;
 683: }
 684: ;
 685: opt_exp_list:
 686:     exp_list
 687: {
 688:     $$ = $1;
 689: }
 690: |
 691:     /* empty */
 692: {
 693:     $$ = nil;
 694: }
 695: ;
 696: list_command:
 697:     LIST
 698: {
 699:     $$ = build(O_LIST,
 700:         build(O_LCON, (long) cursrcline),
 701:         build(O_LCON, (long) cursrcline + 9)
 702:     );
 703: }
 704: |
 705:     LIST line_number
 706: {
 707:     $$ = build(O_LIST, $2, $2);
 708: }
 709: |
 710:     LIST line_number ',' line_number
 711: {
 712:     $$ = build(O_LIST, $2, $4);
 713: }
 714: |
 715:     LIST opt_qual_symbol
 716: {
 717:     $$ = build(O_LIST, $2);
 718: }
 719: ;
 720: integer_list:
 721:     INT
 722: {
 723:     $$ = build(O_LCON, $1);
 724: }
 725: |
 726:     INT integer_list
 727: {
 728:     $$ = build(O_COMMA, build(O_LCON, $1), $2);
 729: }
 730: ;
 731: line_number:
 732:     INT
 733: {
 734:     $$ = build(O_LCON, $1);
 735: }
 736: |
 737:     '$'
 738: {
 739:     $$ = build(O_LCON, (long) LASTLINE);
 740: }
 741: ;
 742: examine:
 743:     address '/' count mode
 744: {
 745:     $$ = build(O_EXAMINE, $4, $1, nil, $3);
 746: }
 747: |
 748:     address ',' address '/' mode
 749: {
 750:     $$ = build(O_EXAMINE, $5, $1, $3, 0);
 751: }
 752: |
 753:     address '=' mode
 754: {
 755:     $$ = build(O_EXAMINE, $3, $1, nil, 0);
 756: }
 757: ;
 758: address:
 759:     INT
 760: {
 761:     $$ = build(O_LCON, $1);
 762: }
 763: |
 764:     '.'
 765: {
 766:     $$ = build(O_LCON, (long) prtaddr);
 767: }
 768: |
 769:     '&' term
 770: {
 771:     $$ = amper($2);
 772: }
 773: |
 774:     address '+' address
 775: {
 776:     $$ = build(O_ADD, $1, $3);
 777: }
 778: |
 779:     address '-' address
 780: {
 781:     $$ = build(O_SUB, $1, $3);
 782: }
 783: |
 784:     address '*' address
 785: {
 786:     $$ = build(O_MUL, $1, $3);
 787: }
 788: |
 789:     '*' address %prec UNARYSIGN
 790: {
 791:     $$ = build(O_INDIR, $2);
 792: }
 793: |
 794:     '-' address %prec UNARYSIGN
 795: {
 796:     $$ = build(O_NEG, $2);
 797: }
 798: |
 799:     '(' exp ')'
 800: {
 801:     $$ = $2;
 802: }
 803: ;
 804: term:
 805:     symbol
 806: {
 807:     $$ = $1;
 808: }
 809: |
 810:     term '.' name
 811: {
 812:     $$ = unrval(dot($1, $3));
 813: }
 814: |
 815:     term ARROW name
 816: {
 817:     $$ = unrval(dot($1, $3));
 818: }
 819: |
 820:     term '[' exp_list ']'
 821: {
 822:     $$ = unrval(subscript($1, $3));
 823: }
 824: ;
 825: count:
 826:     /* empty */
 827: {
 828:     $$ = 1;
 829: }
 830: |
 831:     INT
 832: {
 833:     $$ = $1;
 834: }
 835: ;
 836: mode:
 837:     name
 838: {
 839:     $$ = ident($1);
 840:     curformat = $$;
 841: }
 842: |
 843:     /* empty */
 844: {
 845:     $$ = curformat;
 846: }
 847: ;
 848: opt_cond:
 849:     /* empty */
 850: {
 851:     $$ = nil;
 852: }
 853: |
 854:     IF boolean_exp
 855: {
 856:     $$ = $2;
 857: }
 858: ;
 859: exp_list:
 860:     exp
 861: {
 862:     $$ = build(O_COMMA, $1, nil);
 863: }
 864: |
 865:     exp ',' exp_list
 866: {
 867:     $$ = build(O_COMMA, $1, $3);
 868: }
 869: ;
 870: exp:
 871:     symbol
 872: {
 873:     $$ = build(O_RVAL, $1);
 874: }
 875: |
 876:     exp '[' exp_list ']'
 877: {
 878:     $$ = subscript(unrval($1), $3);
 879: }
 880: |
 881:     exp '.' name
 882: {
 883:     $$ = dot($1, $3);
 884: }
 885: |
 886:     exp ARROW name
 887: {
 888:     $$ = dot($1, $3);
 889: }
 890: |
 891:     '*' exp %prec UNARYSIGN
 892: {
 893:     $$ = build(O_INDIR, $2);
 894: }
 895: |
 896:     exp '^' %prec UNARYSIGN
 897: {
 898:     $$ = build(O_INDIR, $1);
 899: }
 900: |
 901:     exp '\\' opt_qual_symbol
 902: {
 903:     $$ = build(O_TYPERENAME, $1, $3);
 904: }
 905: |
 906:     exp '\\' '&' opt_qual_symbol %prec '\\'
 907: {
 908:     $$ = renameptr($1, $4);
 909: }
 910: |
 911:     exp '(' opt_exp_list ')'
 912: {
 913:     $$ = build(O_CALL, unrval($1), $3);
 914: }
 915: |
 916:     constant
 917: {
 918:     $$ = $1;
 919: }
 920: |
 921:     '+' exp %prec UNARYSIGN
 922: {
 923:     $$ = $2;
 924: }
 925: |
 926:     '-' exp %prec UNARYSIGN
 927: {
 928:     $$ = build(O_NEG, $2);
 929: }
 930: |
 931:     '&' exp %prec UNARYSIGN
 932: {
 933:     $$ = amper($2);
 934: }
 935: |
 936:     exp '+' exp
 937: {
 938:     $$ = build(O_ADD, $1, $3);
 939: }
 940: |
 941:     exp '-' exp
 942: {
 943:     $$ = build(O_SUB, $1, $3);
 944: }
 945: |
 946:     exp '*' exp
 947: {
 948:     $$ = build(O_MUL, $1, $3);
 949: }
 950: |
 951:     exp '/' exp
 952: {
 953:     $$ = build(O_DIVF, $1, $3);
 954: }
 955: |
 956:     exp DIV exp
 957: {
 958:     $$ = build(O_DIV, $1, $3);
 959: }
 960: |
 961:     exp MOD exp
 962: {
 963:     $$ = build(O_MOD, $1, $3);
 964: }
 965: |
 966:     exp AND exp
 967: {
 968:     $$ = build(O_AND, $1, $3);
 969: }
 970: |
 971:     exp OR exp
 972: {
 973:     $$ = build(O_OR, $1, $3);
 974: }
 975: |
 976:     exp '<' exp
 977: {
 978:     $$ = build(O_LT, $1, $3);
 979: }
 980: |
 981:     exp '<' '=' exp
 982: {
 983:     $$ = build(O_LE, $1, $4);
 984: }
 985: |
 986:     exp '>' exp
 987: {
 988:     $$ = build(O_GT, $1, $3);
 989: }
 990: |
 991:     exp '>' '=' exp
 992: {
 993:     $$ = build(O_GE, $1, $4);
 994: }
 995: |
 996:     exp '=' exp
 997: {
 998:     $$ = build(O_EQ, $1, $3);
 999: }
1000: |
1001:     exp '=' '=' exp
1002: {
1003:     $$ = build(O_EQ, $1, $4);
1004: }
1005: |
1006:     exp '<' '>' exp
1007: {
1008:     $$ = build(O_NE, $1, $4);
1009: }
1010: |
1011:     exp '!' '=' exp
1012: {
1013:     $$ = build(O_NE, $1, $4);
1014: }
1015: |
1016:     '(' exp ')'
1017: {
1018:     $$ = $2;
1019: }
1020: ;
1021: boolean_exp:
1022:     exp
1023: {
1024:     chkboolean($1);
1025:     $$ = $1;
1026: }
1027: ;
1028: constant:
1029:     INT
1030: {
1031:     $$ = build(O_LCON, $1);
1032: }
1033: |
1034:     CHAR
1035: {
1036:     $$ = build(O_CCON, $1);
1037: }
1038: |
1039:     REAL
1040: {
1041:     $$ = build(O_FCON, $1);
1042: }
1043: |
1044:     STRING
1045: {
1046:     $$ = build(O_SCON, $1);
1047: }
1048: ;
1049: opt_qual_symbol:
1050:     symbol
1051: {
1052:     $$ = $1;
1053: }
1054: |
1055:     opt_qual_symbol '.' name
1056: {
1057:     $$ = dot($1, $3);
1058: }
1059: ;
1060: symbol:
1061:     name
1062: {
1063:     $$ = findvar($1);
1064:     if ($$ == nil) {
1065:         $$ = build(O_SYM, which($1));
1066:     }
1067: }
1068: |
1069:     '.' name
1070: {
1071:     $$ = dot(build(O_SYM, program), $2);
1072: }
1073: ;
1074: name:
1075:     NAME
1076: {
1077:     $$ = $1;
1078: }
1079: |
1080:     keyword
1081: {
1082:     $$ = $1;
1083: }
1084: keyword:
1085:     ALIAS | AND | ASSIGN | AT | CALL | CATCH | CONT | DEBUG | DELETE | DIV |
1086:     DOWN | DUMP | EDIT | FILE | FUNC | GRIPE | HELP | IGNORE | IN | LIST |
1087:     MOD | NEXT | NEXTI | NIL | NOT | OR | PRINT | PSYM | QUIT |
1088:     RERUN | RETURN | RUN | SET | SH | SKIP | SOURCE | STATUS | STEP | STEPI |
1089:     STOP | STOPI | TRACE | TRACEI | UNALIAS | UNSET | UP | USE |
1090:     WHATIS | WHEN | WHERE | WHEREIS | WHICH
1091: ;
Last modified: 1985-05-31
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 1708
Valid CSS Valid XHTML 1.0 Strict