Changeset f7d268 in git


Ignore:
Timestamp:
Oct 14, 2016, 6:19:34 PM (7 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
c68b061ab1e23ef91a0d65ed417bfa3cee8006e2
Parents:
0f36a04cd7db09611bfbd30ad74c8673f5fa6b9a
Message:
Revert "chg: remove LIB as SYSVAR"

This reverts commit 0f36a04cd7db09611bfbd30ad74c8673f5fa6b9a.
to allow LIB("...");  (with parentheses)
Location:
Singular
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • Singular/grammar.cc

    r0f36a0 rf7d268  
    744744     368,   419,   420,   421,   422,   423,   424,   425,   426,   430,
    745745     433,   434,   435,   436,   437,   438,   439,   440,   441,   444,
    746      451,   456,   460,   464,   468,   472,   485,   513,   537,   550,
    747      556,   560,   564,   568,   572,   576,   580,   584,   588,   592,
    748      596,   600,   604,   608,   612,   616,   620,   624,   628,   632,
    749      636,   642,   646,   650,   654,   658,   665,   676,   682,   687,
    750      688,   689,   693,   697,   701,   705,   709,   713,   717,   721,
    751      725,   742,   749,   748,   766,   774,   782,   791,   795,   799,
    752      803,   807,   811,   815,   819,   823,   827,   831,   835,   839,
    753      851,   858,   859,   878,   879,   891,   896,   901,   905,   909,
    754      945,   971,   992,  1000,  1004,  1005,  1019,  1027,  1036,  1081,
    755     1082,  1091,  1092,  1098,  1105,  1107,  1109,  1119,  1118,  1126,
    756     1131,  1138,  1146,  1158,  1174,  1193,  1197,  1201,  1206,  1210,
    757     1214,  1218,  1222,  1227,  1233,  1239,  1245,  1251,  1257,  1263,
    758     1275,  1282,  1286,  1323,  1330,  1335,  1352,  1358,  1358,  1361,
    759     1429,  1433,  1462,  1475,  1492,  1501,  1506,  1514,  1526,  1545,
    760     1555,  1574,  1597,  1603,  1615,  1621
     746     451,   456,   460,   464,   468,   472,   485,   513,   537,   543,
     747     549,   553,   557,   561,   565,   569,   573,   577,   581,   585,
     748     589,   593,   597,   601,   605,   609,   613,   617,   621,   625,
     749     629,   635,   639,   643,   647,   651,   658,   669,   675,   680,
     750     681,   682,   686,   690,   694,   698,   702,   706,   710,   714,
     751     718,   735,   742,   741,   759,   767,   775,   784,   788,   792,
     752     796,   800,   804,   808,   812,   816,   820,   824,   828,   832,
     753     844,   851,   852,   871,   872,   884,   889,   894,   898,   902,
     754     938,   964,   985,   993,   997,   998,  1012,  1020,  1029,  1074,
     755    1075,  1084,  1085,  1091,  1098,  1100,  1102,  1112,  1111,  1119,
     756    1124,  1131,  1139,  1151,  1167,  1186,  1190,  1194,  1199,  1203,
     757    1207,  1211,  1215,  1220,  1226,  1232,  1238,  1244,  1250,  1256,
     758    1268,  1275,  1279,  1316,  1323,  1328,  1345,  1351,  1351,  1354,
     759    1422,  1426,  1455,  1468,  1485,  1494,  1499,  1507,  1519,  1538,
     760    1548,  1567,  1590,  1596,  1608,  1614
    761761};
    762762#endif
     
    26422642    {
    26432643            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    2644             if ((yyvsp[(1) - (1)].i)!=LIB_CMD)
    2645             {
    2646               (yyval.lv).rtyp = (yyvsp[(1) - (1)].i);
    2647               (yyval.lv).data = (yyval.lv).Data();
    2648             }
    2649             else
    2650             {
    2651               (yyval.lv).rtyp=NONE;
    2652             }
     2644            (yyval.lv).rtyp = (yyvsp[(1) - (1)].i);
     2645            (yyval.lv).data = (yyval.lv).Data();
    26532646          ;}
    26542647    break;
     
    26572650
    26582651/* Line 1464 of yacc.c  */
    2659 #line 551 "grammar.y"
     2652#line 544 "grammar.y"
    26602653    {
    26612654            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    26682661
    26692662/* Line 1464 of yacc.c  */
    2670 #line 557 "grammar.y"
     2663#line 550 "grammar.y"
    26712664    {
    26722665            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    26772670
    26782671/* Line 1464 of yacc.c  */
    2679 #line 561 "grammar.y"
     2672#line 554 "grammar.y"
    26802673    {
    26812674            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    26862679
    26872680/* Line 1464 of yacc.c  */
    2688 #line 565 "grammar.y"
     2681#line 558 "grammar.y"
    26892682    {
    26902683            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    26952688
    26962689/* Line 1464 of yacc.c  */
    2697 #line 569 "grammar.y"
     2690#line 562 "grammar.y"
    26982691    {
    26992692            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
     
    27042697
    27052698/* Line 1464 of yacc.c  */
    2706 #line 573 "grammar.y"
     2699#line 566 "grammar.y"
    27072700    {
    27082701            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    27132706
    27142707/* Line 1464 of yacc.c  */
    2715 #line 577 "grammar.y"
     2708#line 570 "grammar.y"
    27162709    {
    27172710            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    27222715
    27232716/* Line 1464 of yacc.c  */
    2724 #line 581 "grammar.y"
     2717#line 574 "grammar.y"
    27252718    {
    27262719            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
     
    27312724
    27322725/* Line 1464 of yacc.c  */
    2733 #line 585 "grammar.y"
     2726#line 578 "grammar.y"
    27342727    {
    27352728            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    27402733
    27412734/* Line 1464 of yacc.c  */
    2742 #line 589 "grammar.y"
     2735#line 582 "grammar.y"
    27432736    {
    27442737            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    27492742
    27502743/* Line 1464 of yacc.c  */
    2751 #line 593 "grammar.y"
     2744#line 586 "grammar.y"
    27522745    {
    27532746            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    27582751
    27592752/* Line 1464 of yacc.c  */
    2760 #line 597 "grammar.y"
     2753#line 590 "grammar.y"
    27612754    {
    27622755            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    27672760
    27682761/* Line 1464 of yacc.c  */
    2769 #line 601 "grammar.y"
     2762#line 594 "grammar.y"
    27702763    {
    27712764            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
     
    27762769
    27772770/* Line 1464 of yacc.c  */
    2778 #line 605 "grammar.y"
     2771#line 598 "grammar.y"
    27792772    {
    27802773            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
     
    27852778
    27862779/* Line 1464 of yacc.c  */
    2787 #line 609 "grammar.y"
     2780#line 602 "grammar.y"
    27882781    {
    27892782            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
     
    27942787
    27952788/* Line 1464 of yacc.c  */
    2796 #line 613 "grammar.y"
     2789#line 606 "grammar.y"
    27972790    {
    27982791            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
     
    28032796
    28042797/* Line 1464 of yacc.c  */
    2805 #line 617 "grammar.y"
     2798#line 610 "grammar.y"
    28062799    {
    28072800            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28122805
    28132806/* Line 1464 of yacc.c  */
    2814 #line 621 "grammar.y"
     2807#line 614 "grammar.y"
    28152808    {
    28162809            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28212814
    28222815/* Line 1464 of yacc.c  */
    2823 #line 625 "grammar.y"
     2816#line 618 "grammar.y"
    28242817    {
    28252818            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28302823
    28312824/* Line 1464 of yacc.c  */
    2832 #line 629 "grammar.y"
     2825#line 622 "grammar.y"
    28332826    {
    28342827            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28392832
    28402833/* Line 1464 of yacc.c  */
    2841 #line 633 "grammar.y"
     2834#line 626 "grammar.y"
    28422835    {
    28432836            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
     
    28482841
    28492842/* Line 1464 of yacc.c  */
    2850 #line 637 "grammar.y"
     2843#line 630 "grammar.y"
    28512844    {
    28522845            int b=iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i)); // handle branchTo
     
    28592852
    28602853/* Line 1464 of yacc.c  */
    2861 #line 643 "grammar.y"
     2854#line 636 "grammar.y"
    28622855    {
    28632856            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28682861
    28692862/* Line 1464 of yacc.c  */
    2870 #line 647 "grammar.y"
     2863#line 640 "grammar.y"
    28712864    {
    28722865            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
     
    28772870
    28782871/* Line 1464 of yacc.c  */
    2879 #line 651 "grammar.y"
     2872#line 644 "grammar.y"
    28802873    {
    28812874            if(iiExprArith3(&(yyval.lv),RING_CMD,&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
     
    28862879
    28872880/* Line 1464 of yacc.c  */
    2888 #line 655 "grammar.y"
     2881#line 648 "grammar.y"
    28892882    {
    28902883            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),RING_CMD)) YYERROR;
     
    28952888
    28962889/* Line 1464 of yacc.c  */
     2890#line 652 "grammar.y"
     2891    {
     2892            if (iiARROW(&(yyval.lv),(yyvsp[(1) - (3)].name),(yyvsp[(3) - (3)].name))) YYERROR;
     2893          ;}
     2894    break;
     2895
     2896  case 66:
     2897
     2898/* Line 1464 of yacc.c  */
    28972899#line 659 "grammar.y"
    2898     {
    2899             if (iiARROW(&(yyval.lv),(yyvsp[(1) - (3)].name),(yyvsp[(3) - (3)].name))) YYERROR;
    2900           ;}
    2901     break;
    2902 
    2903   case 66:
    2904 
    2905 /* Line 1464 of yacc.c  */
    2906 #line 666 "grammar.y"
    29072900    {
    29082901            leftv v = &(yyvsp[(1) - (3)].lv);
     
    29202913
    29212914/* Line 1464 of yacc.c  */
    2922 #line 677 "grammar.y"
     2915#line 670 "grammar.y"
    29232916    {
    29242917            (yyval.lv) = (yyvsp[(1) - (1)].lv);
     
    29292922
    29302923/* Line 1464 of yacc.c  */
    2931 #line 683 "grammar.y"
     2924#line 676 "grammar.y"
    29322925    {
    29332926            /*if ($1.typ == eunknown) YYERROR;*/
     
    29392932
    29402933/* Line 1464 of yacc.c  */
     2934#line 680 "grammar.y"
     2935    { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
     2936    break;
     2937
     2938  case 70:
     2939
     2940/* Line 1464 of yacc.c  */
     2941#line 681 "grammar.y"
     2942    { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
     2943    break;
     2944
     2945  case 71:
     2946
     2947/* Line 1464 of yacc.c  */
     2948#line 683 "grammar.y"
     2949    {
     2950            if(iiExprArith3(&(yyval.lv),'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv))) YYERROR;
     2951          ;}
     2952    break;
     2953
     2954  case 72:
     2955
     2956/* Line 1464 of yacc.c  */
    29412957#line 687 "grammar.y"
    2942     { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
    2943     break;
    2944 
    2945   case 70:
    2946 
    2947 /* Line 1464 of yacc.c  */
    2948 #line 688 "grammar.y"
    2949     { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
    2950     break;
    2951 
    2952   case 71:
    2953 
    2954 /* Line 1464 of yacc.c  */
    2955 #line 690 "grammar.y"
    2956     {
    2957             if(iiExprArith3(&(yyval.lv),'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv))) YYERROR;
    2958           ;}
    2959     break;
    2960 
    2961   case 72:
    2962 
    2963 /* Line 1464 of yacc.c  */
    2964 #line 694 "grammar.y"
    29652958    {
    29662959            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (4)].lv),'[',&(yyvsp[(3) - (4)].lv))) YYERROR;
     
    29712964
    29722965/* Line 1464 of yacc.c  */
    2973 #line 698 "grammar.y"
     2966#line 691 "grammar.y"
    29742967    {
    29752968            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
     
    29802973
    29812974/* Line 1464 of yacc.c  */
    2982 #line 702 "grammar.y"
     2975#line 695 "grammar.y"
    29832976    {
    29842977            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
     
    29892982
    29902983/* Line 1464 of yacc.c  */
    2991 #line 706 "grammar.y"
     2984#line 699 "grammar.y"
    29922985    {
    29932986            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
     
    29982991
    29992992/* Line 1464 of yacc.c  */
    3000 #line 710 "grammar.y"
     2993#line 703 "grammar.y"
    30012994    {
    30022995            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
     
    30073000
    30083001/* Line 1464 of yacc.c  */
    3009 #line 714 "grammar.y"
     3002#line 707 "grammar.y"
    30103003    {
    30113004            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
     
    30163009
    30173010/* Line 1464 of yacc.c  */
    3018 #line 718 "grammar.y"
     3011#line 711 "grammar.y"
    30193012    {
    30203013            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), 0, &(yyvsp[(5) - (6)].lv))) YYERROR;
     
    30253018
    30263019/* Line 1464 of yacc.c  */
    3027 #line 722 "grammar.y"
     3020#line 715 "grammar.y"
    30283021    {
    30293022            (yyval.lv)=(yyvsp[(2) - (3)].lv);
     
    30343027
    30353028/* Line 1464 of yacc.c  */
    3036 #line 726 "grammar.y"
     3029#line 719 "grammar.y"
    30373030    {
    30383031            #ifdef SIQ
     
    30563049
    30573050/* Line 1464 of yacc.c  */
    3058 #line 743 "grammar.y"
     3051#line 736 "grammar.y"
    30593052    {
    30603053            iiTestAssume(&(yyvsp[(2) - (5)].lv),&(yyvsp[(4) - (5)].lv));
     
    30673060
    30683061/* Line 1464 of yacc.c  */
    3069 #line 749 "grammar.y"
     3062#line 742 "grammar.y"
    30703063    {
    30713064            #ifdef SIQ
     
    30783071
    30793072/* Line 1464 of yacc.c  */
    3080 #line 755 "grammar.y"
     3073#line 748 "grammar.y"
    30813074    {
    30823075            #ifdef SIQ
     
    30933086
    30943087/* Line 1464 of yacc.c  */
    3095 #line 767 "grammar.y"
     3088#line 760 "grammar.y"
    30963089    {
    30973090            #ifdef SIQ
     
    31043097
    31053098/* Line 1464 of yacc.c  */
    3106 #line 775 "grammar.y"
     3099#line 768 "grammar.y"
    31073100    {
    31083101            #ifdef SIQ
     
    31153108
    31163109/* Line 1464 of yacc.c  */
    3117 #line 783 "grammar.y"
     3110#line 776 "grammar.y"
    31183111    {
    31193112            #ifdef SIQ
     
    31263119
    31273120/* Line 1464 of yacc.c  */
    3128 #line 792 "grammar.y"
     3121#line 785 "grammar.y"
    31293122    {
    31303123            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (2)].lv),PLUSPLUS)) YYERROR;
     
    31353128
    31363129/* Line 1464 of yacc.c  */
    3137 #line 796 "grammar.y"
     3130#line 789 "grammar.y"
    31383131    {
    31393132            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (2)].lv),MINUSMINUS)) YYERROR;
     
    31443137
    31453138/* Line 1464 of yacc.c  */
    3146 #line 800 "grammar.y"
     3139#line 793 "grammar.y"
    31473140    {
    31483141            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'+',&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    31533146
    31543147/* Line 1464 of yacc.c  */
    3155 #line 804 "grammar.y"
     3148#line 797 "grammar.y"
    31563149    {
    31573150            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'-',&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    31623155
    31633156/* Line 1464 of yacc.c  */
    3164 #line 808 "grammar.y"
     3157#line 801 "grammar.y"
    31653158    {
    31663159            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    31713164
    31723165/* Line 1464 of yacc.c  */
    3173 #line 812 "grammar.y"
     3166#line 805 "grammar.y"
    31743167    {
    31753168            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'^',&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    31803173
    31813174/* Line 1464 of yacc.c  */
    3182 #line 816 "grammar.y"
     3175#line 809 "grammar.y"
    31833176    {
    31843177            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    31893182
    31903183/* Line 1464 of yacc.c  */
    3191 #line 820 "grammar.y"
     3184#line 813 "grammar.y"
    31923185    {
    31933186            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    31983191
    31993192/* Line 1464 of yacc.c  */
    3200 #line 824 "grammar.y"
     3193#line 817 "grammar.y"
    32013194    {
    32023195            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),NOTEQUAL,&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    32073200
    32083201/* Line 1464 of yacc.c  */
    3209 #line 828 "grammar.y"
     3202#line 821 "grammar.y"
    32103203    {
    32113204            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),EQUAL_EQUAL,&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    32163209
    32173210/* Line 1464 of yacc.c  */
    3218 #line 832 "grammar.y"
     3211#line 825 "grammar.y"
    32193212    {
    32203213            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),DOTDOT,&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    32253218
    32263219/* Line 1464 of yacc.c  */
    3227 #line 836 "grammar.y"
     3220#line 829 "grammar.y"
    32283221    {
    32293222            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),':',&(yyvsp[(3) - (3)].lv))) YYERROR;
     
    32343227
    32353228/* Line 1464 of yacc.c  */
    3236 #line 840 "grammar.y"
     3229#line 833 "grammar.y"
    32373230    {
    32383231            if (siq>0)
     
    32513244
    32523245/* Line 1464 of yacc.c  */
    3253 #line 852 "grammar.y"
     3246#line 845 "grammar.y"
    32543247    {
    32553248            if(iiExprArith1(&(yyval.lv),&(yyvsp[(2) - (2)].lv),'-')) YYERROR;
     
    32603253
    32613254/* Line 1464 of yacc.c  */
    3262 #line 858 "grammar.y"
     3255#line 851 "grammar.y"
    32633256    { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
    32643257    break;
     
    32673260
    32683261/* Line 1464 of yacc.c  */
    3269 #line 860 "grammar.y"
     3262#line 853 "grammar.y"
    32703263    {
    32713264            if ((yyvsp[(1) - (2)].lv).rtyp==0)
     
    32873280
    32883281/* Line 1464 of yacc.c  */
    3289 #line 880 "grammar.y"
     3282#line 873 "grammar.y"
    32903283    {
    32913284            if ((yyvsp[(2) - (3)].lv).Typ()!=STRING_CMD)
     
    33013294
    33023295/* Line 1464 of yacc.c  */
    3303 #line 892 "grammar.y"
     3296#line 885 "grammar.y"
    33043297    {
    33053298            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
     
    33113304
    33123305/* Line 1464 of yacc.c  */
    3313 #line 897 "grammar.y"
     3306#line 890 "grammar.y"
    33143307    {
    33153308            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
     
    33213314
    33223315/* Line 1464 of yacc.c  */
    3323 #line 902 "grammar.y"
     3316#line 895 "grammar.y"
    33243317    {
    33253318            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
     
    33303323
    33313324/* Line 1464 of yacc.c  */
    3332 #line 906 "grammar.y"
     3325#line 899 "grammar.y"
    33333326    {
    33343327            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
     
    33393332
    33403333/* Line 1464 of yacc.c  */
    3341 #line 910 "grammar.y"
     3334#line 903 "grammar.y"
    33423335    {
    33433336            int r; TESTSETINT((yyvsp[(4) - (8)].lv),r);
     
    33803373
    33813374/* Line 1464 of yacc.c  */
    3382 #line 946 "grammar.y"
     3375#line 939 "grammar.y"
    33833376    {
    33843377            if ((yyvsp[(1) - (2)].i) == MATRIX_CMD)
     
    34113404
    34123405/* Line 1464 of yacc.c  */
    3413 #line 972 "grammar.y"
     3406#line 965 "grammar.y"
    34143407    {
    34153408            int t=(yyvsp[(1) - (3)].lv).Typ();
     
    34373430
    34383431/* Line 1464 of yacc.c  */
    3439 #line 993 "grammar.y"
     3432#line 986 "grammar.y"
    34403433    {
    34413434            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
     
    34473440
    34483441/* Line 1464 of yacc.c  */
    3449 #line 1006 "grammar.y"
     3442#line 999 "grammar.y"
    34503443    {
    34513444            leftv v = &(yyvsp[(2) - (5)].lv);
     
    34633456
    34643457/* Line 1464 of yacc.c  */
    3465 #line 1020 "grammar.y"
     3458#line 1013 "grammar.y"
    34663459    {
    34673460          // let rInit take care of any errors
     
    34733466
    34743467/* Line 1464 of yacc.c  */
    3475 #line 1028 "grammar.y"
     3468#line 1021 "grammar.y"
    34763469    {
    34773470            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    34873480
    34883481/* Line 1464 of yacc.c  */
    3489 #line 1037 "grammar.y"
     3482#line 1030 "grammar.y"
    34903483    {
    34913484            memset(&(yyval.lv),0,sizeof((yyval.lv)));
     
    35343527
    35353528/* Line 1464 of yacc.c  */
    3536 #line 1083 "grammar.y"
     3529#line 1076 "grammar.y"
    35373530    {
    35383531            (yyval.lv) = (yyvsp[(1) - (3)].lv);
     
    35453538
    35463539/* Line 1464 of yacc.c  */
    3547 #line 1093 "grammar.y"
     3540#line 1086 "grammar.y"
    35483541    {
    35493542            (yyval.lv) = (yyvsp[(2) - (3)].lv);
     
    35543547
    35553548/* Line 1464 of yacc.c  */
     3549#line 1092 "grammar.y"
     3550    {
     3551            expected_parms = TRUE;
     3552          ;}
     3553    break;
     3554
     3555  case 124:
     3556
     3557/* Line 1464 of yacc.c  */
    35563558#line 1099 "grammar.y"
    3557     {
    3558             expected_parms = TRUE;
    3559           ;}
    3560     break;
    3561 
    3562   case 124:
    3563 
    3564 /* Line 1464 of yacc.c  */
    3565 #line 1106 "grammar.y"
    35663559    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35673560    break;
     
    35703563
    35713564/* Line 1464 of yacc.c  */
    3572 #line 1108 "grammar.y"
     3565#line 1101 "grammar.y"
    35733566    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35743567    break;
     
    35773570
    35783571/* Line 1464 of yacc.c  */
    3579 #line 1110 "grammar.y"
     3572#line 1103 "grammar.y"
    35803573    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35813574    break;
     
    35843577
    35853578/* Line 1464 of yacc.c  */
    3586 #line 1119 "grammar.y"
     3579#line 1112 "grammar.y"
    35873580    { if ((yyvsp[(1) - (2)].i) != '<') YYERROR;
    35883581            if((feFilePending=feFopen((yyvsp[(2) - (2)].name),"r",NULL,TRUE))==NULL) YYERROR; ;}
     
    35923585
    35933586/* Line 1464 of yacc.c  */
    3594 #line 1122 "grammar.y"
     3587#line 1115 "grammar.y"
    35953588    { newFile((yyvsp[(2) - (4)].name),feFilePending); ;}
    35963589    break;
     
    35993592
    36003593/* Line 1464 of yacc.c  */
    3601 #line 1127 "grammar.y"
     3594#line 1120 "grammar.y"
    36023595    {
    36033596            feHelp((yyvsp[(2) - (3)].name));
     
    36093602
    36103603/* Line 1464 of yacc.c  */
     3604#line 1125 "grammar.y"
     3605    {
     3606            feHelp(NULL);
     3607          ;}
     3608    break;
     3609
     3610  case 131:
     3611
     3612/* Line 1464 of yacc.c  */
    36113613#line 1132 "grammar.y"
    3612     {
    3613             feHelp(NULL);
    3614           ;}
    3615     break;
    3616 
    3617   case 131:
    3618 
    3619 /* Line 1464 of yacc.c  */
    3620 #line 1139 "grammar.y"
    36213614    {
    36223615            singular_example((yyvsp[(2) - (3)].name));
     
    36283621
    36293622/* Line 1464 of yacc.c  */
    3630 #line 1147 "grammar.y"
     3623#line 1140 "grammar.y"
    36313624    {
    36323625          if (basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
     
    36423635
    36433636/* Line 1464 of yacc.c  */
    3644 #line 1159 "grammar.y"
     3637#line 1152 "grammar.y"
    36453638    {
    36463639          leftv v=&(yyvsp[(2) - (2)].lv);
     
    36633656
    36643657/* Line 1464 of yacc.c  */
    3665 #line 1175 "grammar.y"
     3658#line 1168 "grammar.y"
    36663659    {
    36673660          leftv v=&(yyvsp[(3) - (3)].lv);
     
    36843677
    36853678/* Line 1464 of yacc.c  */
    3686 #line 1194 "grammar.y"
     3679#line 1187 "grammar.y"
    36873680    {
    36883681            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
     
    36933686
    36943687/* Line 1464 of yacc.c  */
    3695 #line 1198 "grammar.y"
     3688#line 1191 "grammar.y"
    36963689    {
    36973690            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
     
    37023695
    37033696/* Line 1464 of yacc.c  */
    3704 #line 1202 "grammar.y"
     3697#line 1195 "grammar.y"
    37053698    {
    37063699            if ((yyvsp[(3) - (4)].i)==QRING_CMD) (yyvsp[(3) - (4)].i)=RING_CMD;
     
    37123705
    37133706/* Line 1464 of yacc.c  */
    3714 #line 1207 "grammar.y"
     3707#line 1200 "grammar.y"
    37153708    {
    37163709            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
     
    37213714
    37223715/* Line 1464 of yacc.c  */
    3723 #line 1211 "grammar.y"
     3716#line 1204 "grammar.y"
    37243717    {
    37253718            list_cmd(RING_CMD,NULL,"// ",TRUE);
     
    37303723
    37313724/* Line 1464 of yacc.c  */
    3732 #line 1215 "grammar.y"
     3725#line 1208 "grammar.y"
    37333726    {
    37343727            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
     
    37393732
    37403733/* Line 1464 of yacc.c  */
    3741 #line 1219 "grammar.y"
     3734#line 1212 "grammar.y"
    37423735    {
    37433736            list_cmd(PROC_CMD,NULL,"// ",TRUE);
     
    37483741
    37493742/* Line 1464 of yacc.c  */
    3750 #line 1223 "grammar.y"
     3743#line 1216 "grammar.y"
    37513744    {
    37523745            list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),"// ",TRUE);
     
    37583751
    37593752/* Line 1464 of yacc.c  */
    3760 #line 1228 "grammar.y"
     3753#line 1221 "grammar.y"
    37613754    {
    37623755            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    37693762
    37703763/* Line 1464 of yacc.c  */
    3771 #line 1234 "grammar.y"
     3764#line 1227 "grammar.y"
    37723765    {
    37733766            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    37803773
    37813774/* Line 1464 of yacc.c  */
    3782 #line 1240 "grammar.y"
     3775#line 1233 "grammar.y"
    37833776    {
    37843777            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    37913784
    37923785/* Line 1464 of yacc.c  */
    3793 #line 1246 "grammar.y"
     3786#line 1239 "grammar.y"
    37943787    {
    37953788            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    38023795
    38033796/* Line 1464 of yacc.c  */
    3804 #line 1252 "grammar.y"
     3797#line 1245 "grammar.y"
    38053798    {
    38063799            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    38133806
    38143807/* Line 1464 of yacc.c  */
    3815 #line 1258 "grammar.y"
     3808#line 1251 "grammar.y"
    38163809    {
    38173810            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    38243817
    38253818/* Line 1464 of yacc.c  */
    3826 #line 1264 "grammar.y"
     3819#line 1257 "grammar.y"
    38273820    {
    38283821            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
     
    38353828
    38363829/* Line 1464 of yacc.c  */
    3837 #line 1276 "grammar.y"
     3830#line 1269 "grammar.y"
    38383831    {
    38393832            list_cmd(-1,NULL,"// ",TRUE);
     
    38443837
    38453838/* Line 1464 of yacc.c  */
    3846 #line 1282 "grammar.y"
     3839#line 1275 "grammar.y"
    38473840    { yyInRingConstruction = TRUE; ;}
    38483841    break;
     
    38513844
    38523845/* Line 1464 of yacc.c  */
    3853 #line 1291 "grammar.y"
     3846#line 1284 "grammar.y"
    38543847    {
    38553848            const char *ring_name = (yyvsp[(2) - (8)].lv).name;
     
    38893882
    38903883/* Line 1464 of yacc.c  */
    3891 #line 1324 "grammar.y"
     3884#line 1317 "grammar.y"
    38923885    {
    38933886            const char *ring_name = (yyvsp[(2) - (2)].lv).name;
     
    39013894
    39023895/* Line 1464 of yacc.c  */
    3903 #line 1331 "grammar.y"
     3896#line 1324 "grammar.y"
    39043897    {
    39053898            yyInRingConstruction = FALSE;
     
    39113904
    39123905/* Line 1464 of yacc.c  */
    3913 #line 1336 "grammar.y"
    3914     {
    3915           #ifdef SINGULAR_4_1
    3916           yyInRingConstruction = FALSE;
    3917           sleftv tmp;
    3918           (yyvsp[(4) - (7)].lv).next=(leftv)omAlloc(sizeof(sleftv));
    3919           memcpy((yyvsp[(4) - (7)].lv).next,&(yyvsp[(6) - (7)].lv),sizeof(sleftv));
    3920           memset(&(yyvsp[(6) - (7)].lv),0,sizeof(sleftv));
    3921           if (iiExprArithM(&tmp,&(yyvsp[(4) - (7)].lv),'[')) YYERROR;
     3906#line 1329 "grammar.y"
     3907    {
     3908          #ifdef SINGULAR_4_1
     3909          yyInRingConstruction = FALSE;
     3910          sleftv tmp;
     3911          (yyvsp[(4) - (7)].lv).next=(leftv)omAlloc(sizeof(sleftv));
     3912          memcpy((yyvsp[(4) - (7)].lv).next,&(yyvsp[(6) - (7)].lv),sizeof(sleftv));
     3913          memset(&(yyvsp[(6) - (7)].lv),0,sizeof(sleftv));
     3914          if (iiExprArithM(&tmp,&(yyvsp[(4) - (7)].lv),'[')) YYERROR;
    39223915          if (iiAssignCR(&(yyvsp[(2) - (7)].lv),&tmp)) YYERROR;
    3923           #else
    3924           YYERROR;
    3925           #endif
    3926         ;}
     3916          #else
     3917          YYERROR;
     3918          #endif
     3919        ;}
    39273920    break;
    39283921
     
    39303923
    39313924/* Line 1464 of yacc.c  */
    3932 #line 1353 "grammar.y"
     3925#line 1346 "grammar.y"
    39333926    {
    39343927            if (((yyvsp[(1) - (2)].i)!=LIB_CMD)||(jjLOAD((yyvsp[(2) - (2)].name),TRUE))) YYERROR;
     
    39393932
    39403933/* Line 1464 of yacc.c  */
    3941 #line 1362 "grammar.y"
     3934#line 1355 "grammar.y"
    39423935    {
    39433936            if (((yyvsp[(1) - (2)].i)==KEEPRING_CMD) && (myynest==0))
     
    40094002
    40104003/* Line 1464 of yacc.c  */
    4011 #line 1430 "grammar.y"
     4004#line 1423 "grammar.y"
    40124005    {
    40134006            type_cmd(&((yyvsp[(2) - (2)].lv)));
     
    40184011
    40194012/* Line 1464 of yacc.c  */
    4020 #line 1434 "grammar.y"
     4013#line 1427 "grammar.y"
    40214014    {
    40224015            //Print("typ is %d, rtyp:%d\n",$1.Typ(),$1.rtyp);
     
    40464039
    40474040/* Line 1464 of yacc.c  */
    4048 #line 1463 "grammar.y"
     4041#line 1456 "grammar.y"
    40494042    {
    40504043            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
     
    40644057
    40654058/* Line 1464 of yacc.c  */
    4066 #line 1476 "grammar.y"
     4059#line 1469 "grammar.y"
    40674060    {
    40684061            if (currentVoice->ifsw==1)
     
    40864079
    40874080/* Line 1464 of yacc.c  */
    4088 #line 1493 "grammar.y"
     4081#line 1486 "grammar.y"
    40894082    {
    40904083            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
     
    41004093
    41014094/* Line 1464 of yacc.c  */
    4102 #line 1502 "grammar.y"
     4095#line 1495 "grammar.y"
    41034096    {
    41044097            if (exitBuffer(BT_break)) YYERROR;
     
    41104103
    41114104/* Line 1464 of yacc.c  */
    4112 #line 1507 "grammar.y"
     4105#line 1500 "grammar.y"
    41134106    {
    41144107            if (contBuffer(BT_break)) YYERROR;
     
    41204113
    41214114/* Line 1464 of yacc.c  */
    4122 #line 1515 "grammar.y"
     4115#line 1508 "grammar.y"
    41234116    {
    41244117            /* -> if(!$2) break; $3; continue;*/
     
    41344127
    41354128/* Line 1464 of yacc.c  */
    4136 #line 1527 "grammar.y"
     4129#line 1520 "grammar.y"
    41374130    {
    41384131            /* $2 */
     
    41554148
    41564149/* Line 1464 of yacc.c  */
    4157 #line 1546 "grammar.y"
     4150#line 1539 "grammar.y"
    41584151    {
    41594152            idhdl h = enterid((yyvsp[(2) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
     
    41704163
    41714164/* Line 1464 of yacc.c  */
    4172 #line 1556 "grammar.y"
     4165#line 1549 "grammar.y"
    41734166    {
    41744167            idhdl h = enterid((yyvsp[(1) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
     
    41944187
    41954188/* Line 1464 of yacc.c  */
    4196 #line 1575 "grammar.y"
     4189#line 1568 "grammar.y"
    41974190    {
    41984191            omFree((ADDRESS)(yyvsp[(3) - (4)].name));
     
    42194212
    42204213/* Line 1464 of yacc.c  */
    4221 #line 1598 "grammar.y"
     4214#line 1591 "grammar.y"
    42224215    {
    42234216            // decl. of type proc p(int i)
     
    42304223
    42314224/* Line 1464 of yacc.c  */
    4232 #line 1604 "grammar.y"
     4225#line 1597 "grammar.y"
    42334226    {
    42344227            // decl. of type proc p(i)
     
    42444237
    42454238/* Line 1464 of yacc.c  */
    4246 #line 1616 "grammar.y"
     4239#line 1609 "grammar.y"
    42474240    {
    42484241            iiRETURNEXPR.Copy(&(yyvsp[(3) - (4)].lv));
     
    42554248
    42564249/* Line 1464 of yacc.c  */
    4257 #line 1622 "grammar.y"
     4250#line 1615 "grammar.y"
    42584251    {
    42594252            if ((yyvsp[(1) - (3)].i)==RETURN)
     
    42694262
    42704263/* Line 1464 of yacc.c  */
    4271 #line 4270 "grammar.cc"
     4264#line 4263 "grammar.cc"
    42724265      default: break;
    42734266    }
  • Singular/grammar.y

    r0f36a0 rf7d268  
    538538          {
    539539            memset(&$$,0,sizeof($$));
    540             if ($1!=LIB_CMD)
    541             {
    542               $$.rtyp = $1;
    543               $$.data = $$.Data();
    544             }
    545             else
    546             {
    547               $$.rtyp=NONE;
    548             }
     540            $$.rtyp = $1;
     541            $$.data = $$.Data();
    549542          }
    550543        | stringexpr
     
    13331326            if (iiAssignCR(&$2,&$4)) YYERROR;
    13341327          }
    1335         | ringcmd1 elemexpr cmdeq elemexpr '[' exprlist ']'
    1336         {
    1337           #ifdef SINGULAR_4_1
    1338           yyInRingConstruction = FALSE;
    1339           sleftv tmp;
    1340           $4.next=(leftv)omAlloc(sizeof(sleftv));
    1341           memcpy($4.next,&$6,sizeof(sleftv));
    1342           memset(&$6,0,sizeof(sleftv));
    1343           if (iiExprArithM(&tmp,&$4,'[')) YYERROR;
     1328        | ringcmd1 elemexpr cmdeq elemexpr '[' exprlist ']'
     1329        {
     1330          #ifdef SINGULAR_4_1
     1331          yyInRingConstruction = FALSE;
     1332          sleftv tmp;
     1333          $4.next=(leftv)omAlloc(sizeof(sleftv));
     1334          memcpy($4.next,&$6,sizeof(sleftv));
     1335          memset(&$6,0,sizeof(sleftv));
     1336          if (iiExprArithM(&tmp,&$4,'[')) YYERROR;
    13441337          if (iiAssignCR(&$2,&tmp)) YYERROR;
    1345           #else
    1346           YYERROR;
    1347           #endif
    1348         }
     1338          #else
     1339          YYERROR;
     1340          #endif
     1341        }
    13491342        ;
    13501343
  • Singular/subexpr.cc

    r0f36a0 rf7d268  
    368368        case VNOETHER:
    369369        case VMINPOLY:
     370        case LIB_CMD:
    370371        case 0:
    371372          //attribute=NULL; // will be done by Init() at the end
     
    644645    case VNOETHER:
    645646    case VMINPOLY:
     647    case LIB_CMD:
    646648    case 0: /* type in error case */
    647649      break; /* error recovery: do nothing */
     
    738740//{
    739741  //if ((rtyp!=IDHDL)&&(e==NULL)
    740   //&&(rtyp!=VNOETHER)&&(rtyp!=VMINPOLY))
     742  //&&(rtyp!=VNOETHER)&&(rtyp!=LIB_CMD)&&(rtyp!=VMINPOLY))
    741743  //{
    742744  //  void *x=data;
Note: See TracChangeset for help on using the changeset viewer.