Changeset cde708 in git for Singular/grammar.cc


Ignore:
Timestamp:
Nov 18, 2010, 4:22:29 PM (13 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
08daea27a84f44a9dbd7b72264d2be8e866b559d
Parents:
f1918b91d6d726b6d1f0d01d17e824aef21d68e7
Message:
LIB, PROC, etc reorgenized

git-svn-id: file:///usr/local/Singular/svn/trunk@13660 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/grammar.cc

    rf1918b rcde708  
    528528
    529529/* Line 216 of yacc.c.  */
    530 #line 544 "grammar.cc"
     530#line 531 "grammar.cc"
    531531
    532532#ifdef short
     
    904904static const yytype_uint16 yyrline[] =
    905905{
    906        0,   370,   370,   372,   408,   409,   411,   413,   417,   422,
    907      424,   472,   473,   474,   475,   476,   477,   478,   479,   483,
    908      486,   487,   488,   489,   490,   491,   492,   493,   494,   497,
    909      504,   509,   513,   517,   521,   541,   569,   593,   599,   608,
    910      619,   625,   630,   631,   632,   636,   640,   644,   648,   652,
    911      656,   660,   664,   668,   672,   676,   680,   684,   688,   692,
    912      696,   700,   704,   708,   712,   716,   720,   724,   728,   732,
    913      736,   740,   744,   748,   766,   765,   783,   791,   800,   804,
    914      808,   812,   816,   820,   824,   828,   832,   836,   840,   844,
    915      848,   855,   862,   863,   882,   883,   895,   895,   900,   905,
    916      910,   914,   918,   934,   938,   954,   968,   989,   997,  1001,
    917     1002,  1016,  1024,  1033,  1078,  1079,  1088,  1089,  1095,  1108,
    918     1107,  1115,  1120,  1127,  1135,  1147,  1163,  1182,  1186,  1190,
    919     1195,  1199,  1203,  1207,  1211,  1215,  1220,  1226,  1232,  1238,
    920     1244,  1250,  1256,  1262,  1274,  1281,  1285,  1323,  1333,  1346,
    921     1346,  1349,  1421,  1427,  1456,  1469,  1486,  1495,  1500,  1508,
    922     1520,  1539,  1550,  1570,  1594,  1600,  1612,  1619
     906       0,   357,   357,   359,   393,   394,   396,   398,   402,   407,
     907     409,   460,   461,   462,   463,   464,   465,   466,   467,   471,
     908     474,   475,   476,   477,   478,   479,   480,   481,   482,   485,
     909     492,   497,   501,   505,   509,   515,   543,   567,   573,   582,
     910     593,   599,   604,   605,   606,   610,   614,   618,   622,   626,
     911     630,   634,   638,   642,   646,   650,   654,   658,   662,   666,
     912     670,   674,   678,   682,   686,   690,   694,   698,   702,   706,
     913     710,   714,   718,   722,   740,   739,   757,   765,   774,   778,
     914     782,   786,   790,   794,   798,   802,   806,   810,   814,   818,
     915     822,   829,   836,   837,   856,   857,   869,   869,   874,   879,
     916     884,   888,   892,   908,   912,   928,   942,   963,   971,   975,
     917     976,   990,   998,  1007,  1052,  1053,  1062,  1063,  1069,  1082,
     918    1081,  1089,  1094,  1101,  1109,  1121,  1137,  1156,  1160,  1164,
     919    1169,  1173,  1177,  1181,  1185,  1189,  1194,  1200,  1206,  1212,
     920    1218,  1224,  1230,  1236,  1248,  1255,  1259,  1297,  1307,  1320,
     921    1320,  1323,  1395,  1401,  1430,  1443,  1460,  1469,  1474,  1482,
     922    1494,  1513,  1524,  1544,  1568,  1574,  1586,  1593
    923923};
    924924#endif
     
    23722372    {
    23732373        case 3:
    2374 #line 373 "grammar.y"
     2374#line 360 "grammar.y"
    23752375    {
    23762376            if (timerv)
     
    24062406
    24072407  case 5:
    2408 #line 410 "grammar.y"
     2408#line 395 "grammar.y"
    24092409    {currentVoice->ifsw=0;;}
    24102410    break;
    24112411
    24122412  case 6:
    2413 #line 412 "grammar.y"
     2413#line 397 "grammar.y"
    24142414    { (yyvsp[(1) - (2)].lv).CleanUp(); currentVoice->ifsw=0;;}
    24152415    break;
    24162416
    24172417  case 7:
    2418 #line 414 "grammar.y"
     2418#line 399 "grammar.y"
    24192419    {
    24202420            YYACCEPT;
     
    24232423
    24242424  case 8:
    2425 #line 418 "grammar.y"
     2425#line 403 "grammar.y"
    24262426    {
    24272427            currentVoice->ifsw=0;
     
    24312431
    24322432  case 9:
    2433 #line 423 "grammar.y"
     2433#line 408 "grammar.y"
    24342434    {currentVoice->ifsw=0;;}
    24352435    break;
    24362436
    24372437  case 10:
    2438 #line 425 "grammar.y"
     2438#line 410 "grammar.y"
    24392439    {
    24402440            #ifdef SIQ
     
    24452445            if (inerror)
    24462446            {
     2447/*  bison failed here*/
    24472448              if ((inerror!=3) && ((yyvsp[(1) - (2)]).i<UMINUS) && ((yyvsp[(1) - (2)]).i>' '))
    24482449              {
     
    24532454                Print(" error at token `%s`\n",iiTwoOps((yyvsp[(1) - (2)]).i));
    24542455              }
     2456/**/
     2457
    24552458            }
    24562459            if (!errorreported) WerrorS("...parse error");
     
    24852488
    24862489  case 18:
    2487 #line 480 "grammar.y"
     2490#line 468 "grammar.y"
    24882491    {if (currentVoice!=NULL) currentVoice->ifsw=0;;}
    24892492    break;
    24902493
    24912494  case 19:
    2492 #line 483 "grammar.y"
     2495#line 471 "grammar.y"
    24932496    { omFree((ADDRESS)(yyvsp[(2) - (2)].name)); ;}
    24942497    break;
    24952498
    24962499  case 29:
    2497 #line 498 "grammar.y"
     2500#line 486 "grammar.y"
    24982501    {
    24992502            if(iiAssign(&(yyvsp[(1) - (2)].lv),&(yyvsp[(2) - (2)].lv))) YYERROR;
     
    25022505
    25032506  case 30:
    2504 #line 505 "grammar.y"
     2507#line 493 "grammar.y"
    25052508    {
    25062509            if (currRing==NULL) MYYERROR("no ring active");
     
    25102513
    25112514  case 31:
     2515#line 498 "grammar.y"
     2516    {
     2517            syMake(&(yyval.lv),(yyvsp[(1) - (1)].name));
     2518          ;}
     2519    break;
     2520
     2521  case 32:
     2522#line 502 "grammar.y"
     2523    {
     2524            if(iiExprArith2(&(yyval.lv), &(yyvsp[(1) - (3)].lv), COLONCOLON, &(yyvsp[(3) - (3)].lv))) YYERROR;
     2525          ;}
     2526    break;
     2527
     2528  case 33:
     2529#line 506 "grammar.y"
     2530    {
     2531            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'(')) YYERROR;
     2532          ;}
     2533    break;
     2534
     2535  case 34:
    25122536#line 510 "grammar.y"
    25132537    {
    2514             syMake(&(yyval.lv),(yyvsp[(1) - (1)].name));
    2515           ;}
    2516     break;
    2517 
    2518   case 32:
    2519 #line 514 "grammar.y"
    2520     {
    2521             if(iiExprArith2(&(yyval.lv), &(yyvsp[(1) - (3)].lv), COLONCOLON, &(yyvsp[(3) - (3)].lv))) YYERROR;
    2522           ;}
    2523     break;
    2524 
    2525   case 33:
    2526 #line 518 "grammar.y"
    2527     {
    2528             if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'(')) YYERROR;
    2529           ;}
    2530     break;
    2531 
    2532   case 34:
    2533 #line 522 "grammar.y"
    2534     {
    2535             if ((yyvsp[(1) - (4)].lv).rtyp==LIB_CMD)
    2536             {
    2537               if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),LIB_CMD)) YYERROR;
    2538             }
    2539             else
    2540             {
    2541               if ((yyvsp[(1) - (4)].lv).Typ()==UNKNOWN)
    2542               {
    2543                 if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (4)].lv),'(',&(yyvsp[(3) - (4)].lv))) YYERROR;
    2544               }
    2545               else
    2546               {
    2547                 (yyvsp[(1) - (4)].lv).next=(leftv)omAllocBin(sleftv_bin);
    2548                 memcpy((yyvsp[(1) - (4)].lv).next,&(yyvsp[(3) - (4)].lv),sizeof(sleftv));
    2549                 if(iiExprArithM(&(yyval.lv),&(yyvsp[(1) - (4)].lv),'(')) YYERROR;
    2550               }
    2551             }
     2538            (yyvsp[(1) - (4)].lv).next=(leftv)omAllocBin(sleftv_bin);
     2539            memcpy((yyvsp[(1) - (4)].lv).next,&(yyvsp[(3) - (4)].lv),sizeof(sleftv));
     2540            if(iiExprArithM(&(yyval.lv),&(yyvsp[(1) - (4)].lv),'(')) YYERROR;
    25522541          ;}
    25532542    break;
    25542543
    25552544  case 35:
    2556 #line 542 "grammar.y"
     2545#line 516 "grammar.y"
    25572546    {
    25582547            if (currRingHdl==NULL) MYYERROR("no ring active");
     
    25852574
    25862575  case 36:
    2587 #line 570 "grammar.y"
     2576#line 544 "grammar.y"
    25882577    {
    25892578            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    26122601
    26132602  case 37:
    2614 #line 594 "grammar.y"
     2603#line 568 "grammar.y"
    26152604    {
    26162605            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    26212610
    26222611  case 38:
    2623 #line 600 "grammar.y"
     2612#line 574 "grammar.y"
    26242613    {
    26252614            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    26302619
    26312620  case 39:
    2632 #line 609 "grammar.y"
     2621#line 583 "grammar.y"
    26332622    {
    26342623            leftv v = &(yyvsp[(1) - (3)].lv);
     
    26442633
    26452634  case 40:
    2646 #line 620 "grammar.y"
     2635#line 594 "grammar.y"
    26472636    {
    26482637            (yyval.lv) = (yyvsp[(1) - (1)].lv);
     
    26512640
    26522641  case 41:
    2653 #line 626 "grammar.y"
     2642#line 600 "grammar.y"
    26542643    {
    26552644            /*if ($1.typ == eunknown) YYERROR;*/
     
    26592648
    26602649  case 42:
    2661 #line 630 "grammar.y"
     2650#line 604 "grammar.y"
    26622651    { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
    26632652    break;
    26642653
    26652654  case 43:
     2655#line 605 "grammar.y"
     2656    { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
     2657    break;
     2658
     2659  case 44:
     2660#line 607 "grammar.y"
     2661    {
     2662            if(iiExprArith3(&(yyval.lv),'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv))) YYERROR;
     2663          ;}
     2664    break;
     2665
     2666  case 45:
     2667#line 611 "grammar.y"
     2668    {
     2669            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (4)].lv),'[',&(yyvsp[(3) - (4)].lv))) YYERROR;
     2670          ;}
     2671    break;
     2672
     2673  case 46:
     2674#line 615 "grammar.y"
     2675    {
     2676            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     2677          ;}
     2678    break;
     2679
     2680  case 47:
     2681#line 619 "grammar.y"
     2682    {
     2683            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     2684          ;}
     2685    break;
     2686
     2687  case 48:
     2688#line 623 "grammar.y"
     2689    {
     2690            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
     2691          ;}
     2692    break;
     2693
     2694  case 49:
     2695#line 627 "grammar.y"
     2696    {
     2697            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     2698          ;}
     2699    break;
     2700
     2701  case 50:
    26662702#line 631 "grammar.y"
    2667     { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
    2668     break;
    2669 
    2670   case 44:
    2671 #line 633 "grammar.y"
    2672     {
    2673             if(iiExprArith3(&(yyval.lv),'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv))) YYERROR;
    2674           ;}
    2675     break;
    2676 
    2677   case 45:
    2678 #line 637 "grammar.y"
    2679     {
    2680             if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (4)].lv),'[',&(yyvsp[(3) - (4)].lv))) YYERROR;
    2681           ;}
    2682     break;
    2683 
    2684   case 46:
    2685 #line 641 "grammar.y"
     2703    {
     2704            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     2705          ;}
     2706    break;
     2707
     2708  case 51:
     2709#line 635 "grammar.y"
     2710    {
     2711            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
     2712          ;}
     2713    break;
     2714
     2715  case 52:
     2716#line 639 "grammar.y"
    26862717    {
    26872718            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    26892720    break;
    26902721
    2691   case 47:
    2692 #line 645 "grammar.y"
     2722  case 53:
     2723#line 643 "grammar.y"
     2724    {
     2725            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
     2726          ;}
     2727    break;
     2728
     2729  case 54:
     2730#line 647 "grammar.y"
     2731    {
     2732            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     2733          ;}
     2734    break;
     2735
     2736  case 55:
     2737#line 651 "grammar.y"
     2738    {
     2739            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
     2740          ;}
     2741    break;
     2742
     2743  case 56:
     2744#line 655 "grammar.y"
     2745    {
     2746            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     2747          ;}
     2748    break;
     2749
     2750  case 57:
     2751#line 659 "grammar.y"
     2752    {
     2753            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     2754          ;}
     2755    break;
     2756
     2757  case 58:
     2758#line 663 "grammar.y"
     2759    {
     2760            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     2761          ;}
     2762    break;
     2763
     2764  case 59:
     2765#line 667 "grammar.y"
     2766    {
     2767            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
     2768          ;}
     2769    break;
     2770
     2771  case 60:
     2772#line 671 "grammar.y"
     2773    {
     2774            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     2775          ;}
     2776    break;
     2777
     2778  case 61:
     2779#line 675 "grammar.y"
     2780    {
     2781            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
     2782          ;}
     2783    break;
     2784
     2785  case 62:
     2786#line 679 "grammar.y"
     2787    {
     2788            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     2789          ;}
     2790    break;
     2791
     2792  case 63:
     2793#line 683 "grammar.y"
     2794    {
     2795            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     2796          ;}
     2797    break;
     2798
     2799  case 64:
     2800#line 687 "grammar.y"
     2801    {
     2802            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
     2803          ;}
     2804    break;
     2805
     2806  case 65:
     2807#line 691 "grammar.y"
    26932808    {
    26942809            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    26962811    break;
    26972812
    2698   case 48:
    2699 #line 649 "grammar.y"
    2700     {
    2701             if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    2702           ;}
    2703     break;
    2704 
    2705   case 49:
    2706 #line 653 "grammar.y"
    2707     {
    2708             if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    2709           ;}
    2710     break;
    2711 
    2712   case 50:
    2713 #line 657 "grammar.y"
    2714     {
    2715             if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    2716           ;}
    2717     break;
    2718 
    2719   case 51:
    2720 #line 661 "grammar.y"
    2721     {
    2722             if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    2723           ;}
    2724     break;
    2725 
    2726   case 52:
    2727 #line 665 "grammar.y"
    2728     {
    2729             if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    2730           ;}
    2731     break;
    2732 
    2733   case 53:
    2734 #line 669 "grammar.y"
    2735     {
    2736             if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    2737           ;}
    2738     break;
    2739 
    2740   case 54:
    2741 #line 673 "grammar.y"
    2742     {
    2743             if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    2744           ;}
    2745     break;
    2746 
    2747   case 55:
    2748 #line 677 "grammar.y"
    2749     {
    2750             if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    2751           ;}
    2752     break;
    2753 
    2754   case 56:
    2755 #line 681 "grammar.y"
    2756     {
    2757             if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    2758           ;}
    2759     break;
    2760 
    2761   case 57:
    2762 #line 685 "grammar.y"
    2763     {
    2764             if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    2765           ;}
    2766     break;
    2767 
    2768   case 58:
    2769 #line 689 "grammar.y"
    2770     {
    2771             if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    2772           ;}
    2773     break;
    2774 
    2775   case 59:
    2776 #line 693 "grammar.y"
    2777     {
    2778             if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    2779           ;}
    2780     break;
    2781 
    2782   case 60:
    2783 #line 697 "grammar.y"
    2784     {
    2785             if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    2786           ;}
    2787     break;
    2788 
    2789   case 61:
    2790 #line 701 "grammar.y"
    2791     {
    2792             if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    2793           ;}
    2794     break;
    2795 
    2796   case 62:
    2797 #line 705 "grammar.y"
    2798     {
    2799             if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    2800           ;}
    2801     break;
    2802 
    2803   case 63:
    2804 #line 709 "grammar.y"
    2805     {
    2806             if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    2807           ;}
    2808     break;
    2809 
    2810   case 64:
    2811 #line 713 "grammar.y"
    2812     {
    2813             if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    2814           ;}
    2815     break;
    2816 
    2817   case 65:
    2818 #line 717 "grammar.y"
    2819     {
    2820             if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    2821           ;}
    2822     break;
    2823 
    28242813  case 66:
    2825 #line 721 "grammar.y"
     2814#line 695 "grammar.y"
    28262815    {
    28272816            if(iiExprArith3(&(yyval.lv),MATRIX_CMD,&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28302819
    28312820  case 67:
    2832 #line 725 "grammar.y"
     2821#line 699 "grammar.y"
    28332822    {
    28342823            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),MATRIX_CMD)) YYERROR;
     
    28372826
    28382827  case 68:
    2839 #line 729 "grammar.y"
     2828#line 703 "grammar.y"
    28402829    {
    28412830            if(iiExprArith3(&(yyval.lv),INTMAT_CMD,&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28442833
    28452834  case 69:
    2846 #line 733 "grammar.y"
     2835#line 707 "grammar.y"
    28472836    {
    28482837            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),INTMAT_CMD)) YYERROR;
     
    28512840
    28522841  case 70:
    2853 #line 737 "grammar.y"
     2842#line 711 "grammar.y"
    28542843    {
    28552844            if(iiExprArith3(&(yyval.lv),RING_CMD,&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28582847
    28592848  case 71:
    2860 #line 741 "grammar.y"
     2849#line 715 "grammar.y"
    28612850    {
    28622851            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),RING_CMD)) YYERROR;
     
    28652854
    28662855  case 72:
    2867 #line 745 "grammar.y"
     2856#line 719 "grammar.y"
    28682857    {
    28692858            (yyval.lv)=(yyvsp[(2) - (3)].lv);
     
    28722861
    28732862  case 73:
    2874 #line 749 "grammar.y"
     2863#line 723 "grammar.y"
    28752864    {
    28762865            #ifdef SIQ
     
    28922881
    28932882  case 74:
    2894 #line 766 "grammar.y"
     2883#line 740 "grammar.y"
    28952884    {
    28962885            #ifdef SIQ
     
    29012890
    29022891  case 75:
    2903 #line 772 "grammar.y"
     2892#line 746 "grammar.y"
    29042893    {
    29052894            #ifdef SIQ
     
    29142903
    29152904  case 76:
    2916 #line 784 "grammar.y"
     2905#line 758 "grammar.y"
    29172906    {
    29182907            #ifdef SIQ
     
    29232912
    29242913  case 77:
    2925 #line 792 "grammar.y"
     2914#line 766 "grammar.y"
    29262915    {
    29272916            #ifdef SIQ
     
    29322921
    29332922  case 78:
    2934 #line 801 "grammar.y"
     2923#line 775 "grammar.y"
    29352924    {
    29362925            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (2)].lv),PLUSPLUS)) YYERROR;
     
    29392928
    29402929  case 79:
    2941 #line 805 "grammar.y"
     2930#line 779 "grammar.y"
    29422931    {
    29432932            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (2)].lv),MINUSMINUS)) YYERROR;
     
    29462935
    29472936  case 80:
    2948 #line 809 "grammar.y"
     2937#line 783 "grammar.y"
    29492938    {
    29502939            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'+',&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    29532942
    29542943  case 81:
    2955 #line 813 "grammar.y"
     2944#line 787 "grammar.y"
    29562945    {
    29572946            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'-',&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    29602949
    29612950  case 82:
    2962 #line 817 "grammar.y"
     2951#line 791 "grammar.y"
    29632952    {
    29642953            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    29672956
    29682957  case 83:
    2969 #line 821 "grammar.y"
     2958#line 795 "grammar.y"
    29702959    {
    29712960            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'^',&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    29742963
    29752964  case 84:
    2976 #line 825 "grammar.y"
     2965#line 799 "grammar.y"
    29772966    {
    29782967            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    29812970
    29822971  case 85:
    2983 #line 829 "grammar.y"
     2972#line 803 "grammar.y"
    29842973    {
    29852974            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    29882977
    29892978  case 86:
    2990 #line 833 "grammar.y"
     2979#line 807 "grammar.y"
    29912980    {
    29922981            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),NOTEQUAL,&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    29952984
    29962985  case 87:
    2997 #line 837 "grammar.y"
     2986#line 811 "grammar.y"
    29982987    {
    29992988            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),EQUAL_EQUAL,&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    30022991
    30032992  case 88:
    3004 #line 841 "grammar.y"
     2993#line 815 "grammar.y"
    30052994    {
    30062995            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),DOTDOT,&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    30092998
    30102999  case 89:
    3011 #line 845 "grammar.y"
     3000#line 819 "grammar.y"
    30123001    {
    30133002            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),':',&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    30163005
    30173006  case 90:
    3018 #line 849 "grammar.y"
     3007#line 823 "grammar.y"
    30193008    {
    30203009            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    30263015
    30273016  case 91:
    3028 #line 856 "grammar.y"
     3017#line 830 "grammar.y"
    30293018    {
    30303019            if(iiExprArith1(&(yyval.lv),&(yyvsp[(2) - (2)].lv),'-')) YYERROR;
     
    30333022
    30343023  case 92:
    3035 #line 862 "grammar.y"
     3024#line 836 "grammar.y"
    30363025    { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
    30373026    break;
    30383027
    30393028  case 93:
    3040 #line 864 "grammar.y"
     3029#line 838 "grammar.y"
    30413030    {
    30423031            if ((yyvsp[(1) - (2)].lv).rtyp==0)
     
    30563045
    30573046  case 95:
    3058 #line 884 "grammar.y"
     3047#line 858 "grammar.y"
    30593048    {
    30603049            if ((yyvsp[(2) - (3)].lv).Typ()!=STRING_CMD)
     
    30683057
    30693058  case 98:
    3070 #line 901 "grammar.y"
     3059#line 875 "grammar.y"
    30713060    {
    30723061            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
     
    30763065
    30773066  case 99:
    3078 #line 906 "grammar.y"
     3067#line 880 "grammar.y"
    30793068    {
    30803069            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
     
    30843073
    30853074  case 100:
    3086 #line 911 "grammar.y"
     3075#line 885 "grammar.y"
    30873076    {
    30883077            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
     
    30913080
    30923081  case 101:
    3093 #line 915 "grammar.y"
     3082#line 889 "grammar.y"
    30943083    {
    30953084            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
     
    30983087
    30993088  case 102:
    3100 #line 919 "grammar.y"
     3089#line 893 "grammar.y"
    31013090    {
    31023091            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),myynest,(yyvsp[(1) - (8)].i),&(currRing->idroot), TRUE)) YYERROR;
     
    31173106
    31183107  case 103:
    3119 #line 935 "grammar.y"
     3108#line 909 "grammar.y"
    31203109    {
    31213110            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
     
    31243113
    31253114  case 104:
    3126 #line 939 "grammar.y"
     3115#line 913 "grammar.y"
    31273116    {
    31283117            int r; TESTSETINT((yyvsp[(4) - (8)].lv),r);
     
    31433132
    31443133  case 105:
    3145 #line 955 "grammar.y"
     3134#line 929 "grammar.y"
    31463135    {
    31473136            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
     
    31603149
    31613150  case 106:
    3162 #line 969 "grammar.y"
     3151#line 943 "grammar.y"
    31633152    {
    31643153            int t=(yyvsp[(1) - (3)].lv).Typ();
     
    31843173
    31853174  case 107:
    3186 #line 990 "grammar.y"
     3175#line 964 "grammar.y"
    31873176    {
    31883177            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
     
    31923181
    31933182  case 110:
    3194 #line 1003 "grammar.y"
     3183#line 977 "grammar.y"
    31953184    {
    31963185            leftv v = &(yyvsp[(2) - (5)].lv);
     
    32063195
    32073196  case 111:
    3208 #line 1017 "grammar.y"
     3197#line 991 "grammar.y"
    32093198    {
    32103199          // let rInit take care of any errors
     
    32143203
    32153204  case 112:
    3216 #line 1025 "grammar.y"
     3205#line 999 "grammar.y"
    32173206    {
    32183207            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    32263215
    32273216  case 113:
    3228 #line 1034 "grammar.y"
     3217#line 1008 "grammar.y"
    32293218    {
    32303219            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    32713260
    32723261  case 115:
    3273 #line 1080 "grammar.y"
     3262#line 1054 "grammar.y"
    32743263    {
    32753264            (yyval.lv) = (yyvsp[(1) - (3)].lv);
     
    32803269
    32813270  case 117:
    3282 #line 1090 "grammar.y"
     3271#line 1064 "grammar.y"
    32833272    {
    32843273            (yyval.lv) = (yyvsp[(2) - (3)].lv);
     
    32873276
    32883277  case 118:
    3289 #line 1096 "grammar.y"
     3278#line 1070 "grammar.y"
    32903279    {
    32913280            expected_parms = TRUE;
     
    32943283
    32953284  case 119:
    3296 #line 1108 "grammar.y"
     3285#line 1082 "grammar.y"
    32973286    { if ((yyvsp[(1) - (2)].i) != '<') YYERROR;
    32983287            if((feFilePending=feFopen((yyvsp[(2) - (2)].name),"r",NULL,TRUE))==NULL) YYERROR; ;}
     
    33003289
    33013290  case 120:
    3302 #line 1111 "grammar.y"
     3291#line 1085 "grammar.y"
    33033292    { newFile((yyvsp[(2) - (4)].name),feFilePending); ;}
    33043293    break;
    33053294
    33063295  case 121:
    3307 #line 1116 "grammar.y"
     3296#line 1090 "grammar.y"
    33083297    {
    33093298            feHelp((yyvsp[(2) - (3)].name));
     
    33133302
    33143303  case 122:
    3315 #line 1121 "grammar.y"
     3304#line 1095 "grammar.y"
    33163305    {
    33173306            feHelp(NULL);
     
    33203309
    33213310  case 123:
    3322 #line 1128 "grammar.y"
     3311#line 1102 "grammar.y"
    33233312    {
    33243313            singular_example((yyvsp[(2) - (3)].name));
     
    33283317
    33293318  case 124:
    3330 #line 1136 "grammar.y"
     3319#line 1110 "grammar.y"
    33313320    {
    33323321          if (basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
     
    33403329
    33413330  case 125:
    3342 #line 1148 "grammar.y"
     3331#line 1122 "grammar.y"
    33433332    {
    33443333          leftv v=&(yyvsp[(2) - (2)].lv);
     
    33593348
    33603349  case 126:
    3361 #line 1164 "grammar.y"
     3350#line 1138 "grammar.y"
    33623351    {
    33633352          leftv v=&(yyvsp[(3) - (3)].lv);
     
    33783367
    33793368  case 127:
    3380 #line 1183 "grammar.y"
     3369#line 1157 "grammar.y"
    33813370    {
    33823371            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
     
    33853374
    33863375  case 128:
    3387 #line 1187 "grammar.y"
     3376#line 1161 "grammar.y"
    33883377    {
    33893378            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
     
    33923381
    33933382  case 129:
    3394 #line 1191 "grammar.y"
     3383#line 1165 "grammar.y"
    33953384    {
    33963385            if ((yyvsp[(3) - (4)].i)==QRING_CMD) (yyvsp[(3) - (4)].i)=RING_CMD;
     
    34003389
    34013390  case 130:
    3402 #line 1196 "grammar.y"
     3391#line 1170 "grammar.y"
    34033392    {
    34043393            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
     
    34073396
    34083397  case 131:
    3409 #line 1200 "grammar.y"
     3398#line 1174 "grammar.y"
    34103399    {
    34113400            list_cmd(RING_CMD,NULL,"// ",TRUE);
     
    34143403
    34153404  case 132:
    3416 #line 1204 "grammar.y"
     3405#line 1178 "grammar.y"
    34173406    {
    34183407            list_cmd(MATRIX_CMD,NULL,"// ",TRUE);
     
    34213410
    34223411  case 133:
    3423 #line 1208 "grammar.y"
     3412#line 1182 "grammar.y"
    34243413    {
    34253414            list_cmd(INTMAT_CMD,NULL,"// ",TRUE);
     
    34283417
    34293418  case 134:
    3430 #line 1212 "grammar.y"
     3419#line 1186 "grammar.y"
    34313420    {
    34323421            list_cmd(PROC_CMD,NULL,"// ",TRUE);
     
    34353424
    34363425  case 135:
    3437 #line 1216 "grammar.y"
     3426#line 1190 "grammar.y"
    34383427    {
    34393428            list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),"// ",TRUE);
     
    34433432
    34443433  case 136:
    3445 #line 1221 "grammar.y"
     3434#line 1195 "grammar.y"
    34463435    {
    34473436            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    34523441
    34533442  case 137:
    3454 #line 1227 "grammar.y"
     3443#line 1201 "grammar.y"
    34553444    {
    34563445            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    34613450
    34623451  case 138:
    3463 #line 1233 "grammar.y"
     3452#line 1207 "grammar.y"
    34643453    {
    34653454            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    34703459
    34713460  case 139:
    3472 #line 1239 "grammar.y"
     3461#line 1213 "grammar.y"
    34733462    {
    34743463            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    34793468
    34803469  case 140:
    3481 #line 1245 "grammar.y"
     3470#line 1219 "grammar.y"
    34823471    {
    34833472            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    34883477
    34893478  case 141:
    3490 #line 1251 "grammar.y"
     3479#line 1225 "grammar.y"
    34913480    {
    34923481            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    34973486
    34983487  case 142:
    3499 #line 1257 "grammar.y"
     3488#line 1231 "grammar.y"
    35003489    {
    35013490            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    35063495
    35073496  case 143:
    3508 #line 1263 "grammar.y"
     3497#line 1237 "grammar.y"
    35093498    {
    35103499            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    35153504
    35163505  case 144:
    3517 #line 1275 "grammar.y"
     3506#line 1249 "grammar.y"
    35183507    {
    35193508            list_cmd(-1,NULL,"// ",TRUE);
     
    35223511
    35233512  case 145:
    3524 #line 1281 "grammar.y"
     3513#line 1255 "grammar.y"
    35253514    { yyInRingConstruction = TRUE; ;}
    35263515    break;
    35273516
    35283517  case 146:
    3529 #line 1290 "grammar.y"
     3518#line 1264 "grammar.y"
    35303519    {
    35313520            const char *ring_name = (yyvsp[(2) - (8)].lv).name;
     
    35643553
    35653554  case 147:
    3566 #line 1324 "grammar.y"
     3555#line 1298 "grammar.y"
    35673556    {
    35683557            const char *ring_name = (yyvsp[(2) - (2)].lv).name;
     
    35743563
    35753564  case 148:
    3576 #line 1334 "grammar.y"
     3565#line 1308 "grammar.y"
    35773566    {
    35783567            if (((yyvsp[(1) - (2)].i)!=LIB_CMD)||(iiLibCmd((yyvsp[(2) - (2)].name),TRUE,TRUE,TRUE)))
     
    35883577
    35893578  case 151:
    3590 #line 1350 "grammar.y"
     3579#line 1324 "grammar.y"
    35913580    {
    35923581            if (((yyvsp[(1) - (2)].i)==KEEPRING_CMD) && (myynest==0))
     
    36603649
    36613650  case 152:
    3662 #line 1422 "grammar.y"
     3651#line 1396 "grammar.y"
    36633652    {
    36643653            if ((yyvsp[(2) - (2)].lv).rtyp!=IDHDL) MYYERROR("identifier expected");
     
    36693658
    36703659  case 153:
    3671 #line 1428 "grammar.y"
     3660#line 1402 "grammar.y"
    36723661    {
    36733662            //Print("typ is %d, rtyp:%d\n",$1.Typ(),$1.rtyp);
     
    36953684
    36963685  case 154:
    3697 #line 1457 "grammar.y"
     3686#line 1431 "grammar.y"
    36983687    {
    36993688            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
     
    37113700
    37123701  case 155:
    3713 #line 1470 "grammar.y"
     3702#line 1444 "grammar.y"
    37143703    {
    37153704            if (currentVoice->ifsw==1)
     
    37313720
    37323721  case 156:
    3733 #line 1487 "grammar.y"
     3722#line 1461 "grammar.y"
    37343723    {
    37353724            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
     
    37433732
    37443733  case 157:
    3745 #line 1496 "grammar.y"
     3734#line 1470 "grammar.y"
    37463735    {
    37473736            if (exitBuffer(BT_break)) YYERROR;
     
    37513740
    37523741  case 158:
    3753 #line 1501 "grammar.y"
     3742#line 1475 "grammar.y"
    37543743    {
    37553744            if (contBuffer(BT_break)) YYERROR;
     
    37593748
    37603749  case 159:
    3761 #line 1509 "grammar.y"
     3750#line 1483 "grammar.y"
    37623751    {
    37633752            /* -> if(!$2) break; $3; continue;*/
     
    37713760
    37723761  case 160:
    3773 #line 1521 "grammar.y"
     3762#line 1495 "grammar.y"
    37743763    {
    37753764            /* $2 */
     
    37903779
    37913780  case 161:
    3792 #line 1540 "grammar.y"
     3781#line 1514 "grammar.y"
    37933782    {
    37943783            procinfov pi;
     
    38043793
    38053794  case 162:
    3806 #line 1551 "grammar.y"
     3795#line 1525 "grammar.y"
    38073796    {
    38083797            idhdl h = enterid((yyvsp[(1) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
     
    38273816
    38283817  case 163:
    3829 #line 1571 "grammar.y"
     3818#line 1545 "grammar.y"
    38303819    {
    38313820            omFree((ADDRESS)(yyvsp[(3) - (4)].name));
     
    38513840
    38523841  case 164:
    3853 #line 1595 "grammar.y"
     3842#line 1569 "grammar.y"
    38543843    {
    38553844            // decl. of type proc p(int i)
     
    38603849
    38613850  case 165:
    3862 #line 1601 "grammar.y"
     3851#line 1575 "grammar.y"
    38633852    {
    38643853            // decl. of type proc p(i)
     
    38723861
    38733862  case 166:
    3874 #line 1613 "grammar.y"
     3863#line 1587 "grammar.y"
    38753864    {
    38763865            if(iiRETURNEXPR==NULL) YYERROR;
     
    38823871
    38833872  case 167:
    3884 #line 1620 "grammar.y"
     3873#line 1594 "grammar.y"
    38853874    {
    38863875            if ((yyvsp[(1) - (3)].i)==RETURN)
     
    38963885
    38973886/* Line 1267 of yacc.c.  */
    3898 #line 3911 "grammar.cc"
     3887#line 3885 "grammar.cc"
    38993888      default: break;
    39003889    }
Note: See TracChangeset for help on using the changeset viewer.