Changeset 0f36a0 in git


Ignore:
Timestamp:
Oct 14, 2016, 6:12:29 PM (8 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
f7d2680c8d3a52d37e1d51132296b4c203a22640
Parents:
f705f9099a0e00a1f7d5aa9ee177f1bf6ce3f19b
Message:
chg: remove LIB as SYSVAR
Location:
Singular
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Singular/grammar.cc

    rf705f9 r0f36a0  
    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,   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
     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
    761761};
    762762#endif
    … …  
    26422642    {
    26432643            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    2644             (yyval.lv).rtyp = (yyvsp[(1) - (1)].i);
    2645             (yyval.lv).data = (yyval.lv).Data();
     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            }
    26462653          ;}
    26472654    break;
    … …  
    26502657
    26512658/* Line 1464 of yacc.c  */
    2652 #line 544 "grammar.y"
     2659#line 551 "grammar.y"
    26532660    {
    26542661            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    26612668
    26622669/* Line 1464 of yacc.c  */
    2663 #line 550 "grammar.y"
     2670#line 557 "grammar.y"
    26642671    {
    26652672            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    26702677
    26712678/* Line 1464 of yacc.c  */
    2672 #line 554 "grammar.y"
     2679#line 561 "grammar.y"
    26732680    {
    26742681            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    26792686
    26802687/* Line 1464 of yacc.c  */
    2681 #line 558 "grammar.y"
     2688#line 565 "grammar.y"
    26822689    {
    26832690            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    26882695
    26892696/* Line 1464 of yacc.c  */
    2690 #line 562 "grammar.y"
     2697#line 569 "grammar.y"
    26912698    {
    26922699            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    … …  
    26972704
    26982705/* Line 1464 of yacc.c  */
    2699 #line 566 "grammar.y"
     2706#line 573 "grammar.y"
    27002707    {
    27012708            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27062713
    27072714/* Line 1464 of yacc.c  */
    2708 #line 570 "grammar.y"
     2715#line 577 "grammar.y"
    27092716    {
    27102717            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27152722
    27162723/* Line 1464 of yacc.c  */
    2717 #line 574 "grammar.y"
     2724#line 581 "grammar.y"
    27182725    {
    27192726            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    … …  
    27242731
    27252732/* Line 1464 of yacc.c  */
    2726 #line 578 "grammar.y"
     2733#line 585 "grammar.y"
    27272734    {
    27282735            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27332740
    27342741/* Line 1464 of yacc.c  */
    2735 #line 582 "grammar.y"
     2742#line 589 "grammar.y"
    27362743    {
    27372744            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27422749
    27432750/* Line 1464 of yacc.c  */
    2744 #line 586 "grammar.y"
     2751#line 593 "grammar.y"
    27452752    {
    27462753            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27512758
    27522759/* Line 1464 of yacc.c  */
    2753 #line 590 "grammar.y"
     2760#line 597 "grammar.y"
    27542761    {
    27552762            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27602767
    27612768/* Line 1464 of yacc.c  */
    2762 #line 594 "grammar.y"
     2769#line 601 "grammar.y"
    27632770    {
    27642771            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    … …  
    27692776
    27702777/* Line 1464 of yacc.c  */
    2771 #line 598 "grammar.y"
     2778#line 605 "grammar.y"
    27722779    {
    27732780            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    … …  
    27782785
    27792786/* Line 1464 of yacc.c  */
    2780 #line 602 "grammar.y"
     2787#line 609 "grammar.y"
    27812788    {
    27822789            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    … …  
    27872794
    27882795/* Line 1464 of yacc.c  */
    2789 #line 606 "grammar.y"
     2796#line 613 "grammar.y"
    27902797    {
    27912798            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    … …  
    27962803
    27972804/* Line 1464 of yacc.c  */
    2798 #line 610 "grammar.y"
     2805#line 617 "grammar.y"
    27992806    {
    28002807            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28052812
    28062813/* Line 1464 of yacc.c  */
    2807 #line 614 "grammar.y"
     2814#line 621 "grammar.y"
    28082815    {
    28092816            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28142821
    28152822/* Line 1464 of yacc.c  */
    2816 #line 618 "grammar.y"
     2823#line 625 "grammar.y"
    28172824    {
    28182825            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28232830
    28242831/* Line 1464 of yacc.c  */
    2825 #line 622 "grammar.y"
     2832#line 629 "grammar.y"
    28262833    {
    28272834            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28322839
    28332840/* Line 1464 of yacc.c  */
    2834 #line 626 "grammar.y"
     2841#line 633 "grammar.y"
    28352842    {
    28362843            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    … …  
    28412848
    28422849/* Line 1464 of yacc.c  */
    2843 #line 630 "grammar.y"
     2850#line 637 "grammar.y"
    28442851    {
    28452852            int b=iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i)); // handle branchTo
    … …  
    28522859
    28532860/* Line 1464 of yacc.c  */
    2854 #line 636 "grammar.y"
     2861#line 643 "grammar.y"
    28552862    {
    28562863            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28612868
    28622869/* Line 1464 of yacc.c  */
    2863 #line 640 "grammar.y"
     2870#line 647 "grammar.y"
    28642871    {
    28652872            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    28702877
    28712878/* Line 1464 of yacc.c  */
    2872 #line 644 "grammar.y"
     2879#line 651 "grammar.y"
    28732880    {
    28742881            if(iiExprArith3(&(yyval.lv),RING_CMD,&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28792886
    28802887/* Line 1464 of yacc.c  */
    2881 #line 648 "grammar.y"
     2888#line 655 "grammar.y"
    28822889    {
    28832890            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),RING_CMD)) YYERROR;
    … …  
    28882895
    28892896/* Line 1464 of yacc.c  */
    2890 #line 652 "grammar.y"
     2897#line 659 "grammar.y"
    28912898    {
    28922899            if (iiARROW(&(yyval.lv),(yyvsp[(1) - (3)].name),(yyvsp[(3) - (3)].name))) YYERROR;
    … …  
    28972904
    28982905/* Line 1464 of yacc.c  */
    2899 #line 659 "grammar.y"
     2906#line 666 "grammar.y"
    29002907    {
    29012908            leftv v = &(yyvsp[(1) - (3)].lv);
    … …  
    29132920
    29142921/* Line 1464 of yacc.c  */
    2915 #line 670 "grammar.y"
     2922#line 677 "grammar.y"
    29162923    {
    29172924            (yyval.lv) = (yyvsp[(1) - (1)].lv);
    … …  
    29222929
    29232930/* Line 1464 of yacc.c  */
    2924 #line 676 "grammar.y"
     2931#line 683 "grammar.y"
    29252932    {
    29262933            /*if ($1.typ == eunknown) YYERROR;*/
    … …  
    29322939
    29332940/* Line 1464 of yacc.c  */
    2934 #line 680 "grammar.y"
     2941#line 687 "grammar.y"
    29352942    { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
    29362943    break;
    … …  
    29392946
    29402947/* Line 1464 of yacc.c  */
    2941 #line 681 "grammar.y"
     2948#line 688 "grammar.y"
    29422949    { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
    29432950    break;
    … …  
    29462953
    29472954/* Line 1464 of yacc.c  */
    2948 #line 683 "grammar.y"
     2955#line 690 "grammar.y"
    29492956    {
    29502957            if(iiExprArith3(&(yyval.lv),'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv))) YYERROR;
    … …  
    29552962
    29562963/* Line 1464 of yacc.c  */
    2957 #line 687 "grammar.y"
     2964#line 694 "grammar.y"
    29582965    {
    29592966            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (4)].lv),'[',&(yyvsp[(3) - (4)].lv))) YYERROR;
    … …  
    29642971
    29652972/* Line 1464 of yacc.c  */
    2966 #line 691 "grammar.y"
     2973#line 698 "grammar.y"
    29672974    {
    29682975            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    29732980
    29742981/* Line 1464 of yacc.c  */
    2975 #line 695 "grammar.y"
     2982#line 702 "grammar.y"
    29762983    {
    29772984            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    29822989
    29832990/* Line 1464 of yacc.c  */
    2984 #line 699 "grammar.y"
     2991#line 706 "grammar.y"
    29852992    {
    29862993            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    29912998
    29922999/* Line 1464 of yacc.c  */
    2993 #line 703 "grammar.y"
     3000#line 710 "grammar.y"
    29943001    {
    29953002            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    30003007
    30013008/* Line 1464 of yacc.c  */
    3002 #line 707 "grammar.y"
     3009#line 714 "grammar.y"
    30033010    {
    30043011            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    30093016
    30103017/* Line 1464 of yacc.c  */
    3011 #line 711 "grammar.y"
     3018#line 718 "grammar.y"
    30123019    {
    30133020            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), 0, &(yyvsp[(5) - (6)].lv))) YYERROR;
    … …  
    30183025
    30193026/* Line 1464 of yacc.c  */
    3020 #line 715 "grammar.y"
     3027#line 722 "grammar.y"
    30213028    {
    30223029            (yyval.lv)=(yyvsp[(2) - (3)].lv);
    … …  
    30273034
    30283035/* Line 1464 of yacc.c  */
    3029 #line 719 "grammar.y"
     3036#line 726 "grammar.y"
    30303037    {
    30313038            #ifdef SIQ
    … …  
    30493056
    30503057/* Line 1464 of yacc.c  */
    3051 #line 736 "grammar.y"
     3058#line 743 "grammar.y"
    30523059    {
    30533060            iiTestAssume(&(yyvsp[(2) - (5)].lv),&(yyvsp[(4) - (5)].lv));
    … …  
    30603067
    30613068/* Line 1464 of yacc.c  */
    3062 #line 742 "grammar.y"
     3069#line 749 "grammar.y"
    30633070    {
    30643071            #ifdef SIQ
    … …  
    30713078
    30723079/* Line 1464 of yacc.c  */
    3073 #line 748 "grammar.y"
     3080#line 755 "grammar.y"
    30743081    {
    30753082            #ifdef SIQ
    … …  
    30863093
    30873094/* Line 1464 of yacc.c  */
    3088 #line 760 "grammar.y"
     3095#line 767 "grammar.y"
    30893096    {
    30903097            #ifdef SIQ
    … …  
    30973104
    30983105/* Line 1464 of yacc.c  */
    3099 #line 768 "grammar.y"
     3106#line 775 "grammar.y"
    31003107    {
    31013108            #ifdef SIQ
    … …  
    31083115
    31093116/* Line 1464 of yacc.c  */
    3110 #line 776 "grammar.y"
     3117#line 783 "grammar.y"
    31113118    {
    31123119            #ifdef SIQ
    … …  
    31193126
    31203127/* Line 1464 of yacc.c  */
    3121 #line 785 "grammar.y"
     3128#line 792 "grammar.y"
    31223129    {
    31233130            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (2)].lv),PLUSPLUS)) YYERROR;
    … …  
    31283135
    31293136/* Line 1464 of yacc.c  */
    3130 #line 789 "grammar.y"
     3137#line 796 "grammar.y"
    31313138    {
    31323139            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (2)].lv),MINUSMINUS)) YYERROR;
    … …  
    31373144
    31383145/* Line 1464 of yacc.c  */
    3139 #line 793 "grammar.y"
     3146#line 800 "grammar.y"
    31403147    {
    31413148            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'+',&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31463153
    31473154/* Line 1464 of yacc.c  */
    3148 #line 797 "grammar.y"
     3155#line 804 "grammar.y"
    31493156    {
    31503157            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'-',&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31553162
    31563163/* Line 1464 of yacc.c  */
    3157 #line 801 "grammar.y"
     3164#line 808 "grammar.y"
    31583165    {
    31593166            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31643171
    31653172/* Line 1464 of yacc.c  */
    3166 #line 805 "grammar.y"
     3173#line 812 "grammar.y"
    31673174    {
    31683175            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'^',&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31733180
    31743181/* Line 1464 of yacc.c  */
    3175 #line 809 "grammar.y"
     3182#line 816 "grammar.y"
    31763183    {
    31773184            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31823189
    31833190/* Line 1464 of yacc.c  */
    3184 #line 813 "grammar.y"
     3191#line 820 "grammar.y"
    31853192    {
    31863193            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31913198
    31923199/* Line 1464 of yacc.c  */
    3193 #line 817 "grammar.y"
     3200#line 824 "grammar.y"
    31943201    {
    31953202            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),NOTEQUAL,&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    32003207
    32013208/* Line 1464 of yacc.c  */
    3202 #line 821 "grammar.y"
     3209#line 828 "grammar.y"
    32033210    {
    32043211            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),EQUAL_EQUAL,&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    32093216
    32103217/* Line 1464 of yacc.c  */
    3211 #line 825 "grammar.y"
     3218#line 832 "grammar.y"
    32123219    {
    32133220            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),DOTDOT,&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    32183225
    32193226/* Line 1464 of yacc.c  */
    3220 #line 829 "grammar.y"
     3227#line 836 "grammar.y"
    32213228    {
    32223229            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),':',&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    32273234
    32283235/* Line 1464 of yacc.c  */
    3229 #line 833 "grammar.y"
     3236#line 840 "grammar.y"
    32303237    {
    32313238            if (siq>0)
    … …  
    32443251
    32453252/* Line 1464 of yacc.c  */
    3246 #line 845 "grammar.y"
     3253#line 852 "grammar.y"
    32473254    {
    32483255            if(iiExprArith1(&(yyval.lv),&(yyvsp[(2) - (2)].lv),'-')) YYERROR;
    … …  
    32533260
    32543261/* Line 1464 of yacc.c  */
    3255 #line 851 "grammar.y"
     3262#line 858 "grammar.y"
    32563263    { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
    32573264    break;
    … …  
    32603267
    32613268/* Line 1464 of yacc.c  */
    3262 #line 853 "grammar.y"
     3269#line 860 "grammar.y"
    32633270    {
    32643271            if ((yyvsp[(1) - (2)].lv).rtyp==0)
    … …  
    32803287
    32813288/* Line 1464 of yacc.c  */
    3282 #line 873 "grammar.y"
     3289#line 880 "grammar.y"
    32833290    {
    32843291            if ((yyvsp[(2) - (3)].lv).Typ()!=STRING_CMD)
    … …  
    32943301
    32953302/* Line 1464 of yacc.c  */
    3296 #line 885 "grammar.y"
     3303#line 892 "grammar.y"
    32973304    {
    32983305            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    33043311
    33053312/* Line 1464 of yacc.c  */
    3306 #line 890 "grammar.y"
     3313#line 897 "grammar.y"
    33073314    {
    33083315            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    33143321
    33153322/* Line 1464 of yacc.c  */
    3316 #line 895 "grammar.y"
     3323#line 902 "grammar.y"
    33173324    {
    33183325            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
    … …  
    33233330
    33243331/* Line 1464 of yacc.c  */
    3325 #line 899 "grammar.y"
     3332#line 906 "grammar.y"
    33263333    {
    33273334            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
    … …  
    33323339
    33333340/* Line 1464 of yacc.c  */
    3334 #line 903 "grammar.y"
     3341#line 910 "grammar.y"
    33353342    {
    33363343            int r; TESTSETINT((yyvsp[(4) - (8)].lv),r);
    … …  
    33733380
    33743381/* Line 1464 of yacc.c  */
    3375 #line 939 "grammar.y"
     3382#line 946 "grammar.y"
    33763383    {
    33773384            if ((yyvsp[(1) - (2)].i) == MATRIX_CMD)
    … …  
    34043411
    34053412/* Line 1464 of yacc.c  */
    3406 #line 965 "grammar.y"
     3413#line 972 "grammar.y"
    34073414    {
    34083415            int t=(yyvsp[(1) - (3)].lv).Typ();
    … …  
    34303437
    34313438/* Line 1464 of yacc.c  */
    3432 #line 986 "grammar.y"
     3439#line 993 "grammar.y"
    34333440    {
    34343441            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    34403447
    34413448/* Line 1464 of yacc.c  */
    3442 #line 999 "grammar.y"
     3449#line 1006 "grammar.y"
    34433450    {
    34443451            leftv v = &(yyvsp[(2) - (5)].lv);
    … …  
    34563463
    34573464/* Line 1464 of yacc.c  */
    3458 #line 1013 "grammar.y"
     3465#line 1020 "grammar.y"
    34593466    {
    34603467          // let rInit take care of any errors
    … …  
    34663473
    34673474/* Line 1464 of yacc.c  */
    3468 #line 1021 "grammar.y"
     3475#line 1028 "grammar.y"
    34693476    {
    34703477            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    34803487
    34813488/* Line 1464 of yacc.c  */
    3482 #line 1030 "grammar.y"
     3489#line 1037 "grammar.y"
    34833490    {
    34843491            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    35273534
    35283535/* Line 1464 of yacc.c  */
    3529 #line 1076 "grammar.y"
     3536#line 1083 "grammar.y"
    35303537    {
    35313538            (yyval.lv) = (yyvsp[(1) - (3)].lv);
    … …  
    35383545
    35393546/* Line 1464 of yacc.c  */
    3540 #line 1086 "grammar.y"
     3547#line 1093 "grammar.y"
    35413548    {
    35423549            (yyval.lv) = (yyvsp[(2) - (3)].lv);
    … …  
    35473554
    35483555/* Line 1464 of yacc.c  */
    3549 #line 1092 "grammar.y"
     3556#line 1099 "grammar.y"
    35503557    {
    35513558            expected_parms = TRUE;
    … …  
    35563563
    35573564/* Line 1464 of yacc.c  */
    3558 #line 1099 "grammar.y"
     3565#line 1106 "grammar.y"
    35593566    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35603567    break;
    … …  
    35633570
    35643571/* Line 1464 of yacc.c  */
    3565 #line 1101 "grammar.y"
     3572#line 1108 "grammar.y"
    35663573    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35673574    break;
    … …  
    35703577
    35713578/* Line 1464 of yacc.c  */
    3572 #line 1103 "grammar.y"
     3579#line 1110 "grammar.y"
    35733580    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35743581    break;
    … …  
    35773584
    35783585/* Line 1464 of yacc.c  */
    3579 #line 1112 "grammar.y"
     3586#line 1119 "grammar.y"
    35803587    { if ((yyvsp[(1) - (2)].i) != '<') YYERROR;
    35813588            if((feFilePending=feFopen((yyvsp[(2) - (2)].name),"r",NULL,TRUE))==NULL) YYERROR; ;}
    … …  
    35853592
    35863593/* Line 1464 of yacc.c  */
    3587 #line 1115 "grammar.y"
     3594#line 1122 "grammar.y"
    35883595    { newFile((yyvsp[(2) - (4)].name),feFilePending); ;}
    35893596    break;
    … …  
    35923599
    35933600/* Line 1464 of yacc.c  */
    3594 #line 1120 "grammar.y"
     3601#line 1127 "grammar.y"
    35953602    {
    35963603            feHelp((yyvsp[(2) - (3)].name));
    … …  
    36023609
    36033610/* Line 1464 of yacc.c  */
    3604 #line 1125 "grammar.y"
     3611#line 1132 "grammar.y"
    36053612    {
    36063613            feHelp(NULL);
    … …  
    36113618
    36123619/* Line 1464 of yacc.c  */
    3613 #line 1132 "grammar.y"
     3620#line 1139 "grammar.y"
    36143621    {
    36153622            singular_example((yyvsp[(2) - (3)].name));
    … …  
    36213628
    36223629/* Line 1464 of yacc.c  */
    3623 #line 1140 "grammar.y"
     3630#line 1147 "grammar.y"
    36243631    {
    36253632          if (basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
    … …  
    36353642
    36363643/* Line 1464 of yacc.c  */
    3637 #line 1152 "grammar.y"
     3644#line 1159 "grammar.y"
    36383645    {
    36393646          leftv v=&(yyvsp[(2) - (2)].lv);
    … …  
    36563663
    36573664/* Line 1464 of yacc.c  */
    3658 #line 1168 "grammar.y"
     3665#line 1175 "grammar.y"
    36593666    {
    36603667          leftv v=&(yyvsp[(3) - (3)].lv);
    … …  
    36773684
    36783685/* Line 1464 of yacc.c  */
    3679 #line 1187 "grammar.y"
     3686#line 1194 "grammar.y"
    36803687    {
    36813688            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    36863693
    36873694/* Line 1464 of yacc.c  */
    3688 #line 1191 "grammar.y"
     3695#line 1198 "grammar.y"
    36893696    {
    36903697            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    36953702
    36963703/* Line 1464 of yacc.c  */
    3697 #line 1195 "grammar.y"
     3704#line 1202 "grammar.y"
    36983705    {
    36993706            if ((yyvsp[(3) - (4)].i)==QRING_CMD) (yyvsp[(3) - (4)].i)=RING_CMD;
    … …  
    37053712
    37063713/* Line 1464 of yacc.c  */
    3707 #line 1200 "grammar.y"
     3714#line 1207 "grammar.y"
    37083715    {
    37093716            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    37143721
    37153722/* Line 1464 of yacc.c  */
    3716 #line 1204 "grammar.y"
     3723#line 1211 "grammar.y"
    37173724    {
    37183725            list_cmd(RING_CMD,NULL,"// ",TRUE);
    … …  
    37233730
    37243731/* Line 1464 of yacc.c  */
    3725 #line 1208 "grammar.y"
     3732#line 1215 "grammar.y"
    37263733    {
    37273734            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    37323739
    37333740/* Line 1464 of yacc.c  */
    3734 #line 1212 "grammar.y"
     3741#line 1219 "grammar.y"
    37353742    {
    37363743            list_cmd(PROC_CMD,NULL,"// ",TRUE);
    … …  
    37413748
    37423749/* Line 1464 of yacc.c  */
    3743 #line 1216 "grammar.y"
     3750#line 1223 "grammar.y"
    37443751    {
    37453752            list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),"// ",TRUE);
    … …  
    37513758
    37523759/* Line 1464 of yacc.c  */
    3753 #line 1221 "grammar.y"
     3760#line 1228 "grammar.y"
    37543761    {
    37553762            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    37623769
    37633770/* Line 1464 of yacc.c  */
    3764 #line 1227 "grammar.y"
     3771#line 1234 "grammar.y"
    37653772    {
    37663773            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    37733780
    37743781/* Line 1464 of yacc.c  */
    3775 #line 1233 "grammar.y"
     3782#line 1240 "grammar.y"
    37763783    {
    37773784            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    37843791
    37853792/* Line 1464 of yacc.c  */
    3786 #line 1239 "grammar.y"
     3793#line 1246 "grammar.y"
    37873794    {
    37883795            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    37953802
    37963803/* Line 1464 of yacc.c  */
    3797 #line 1245 "grammar.y"
     3804#line 1252 "grammar.y"
    37983805    {
    37993806            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38063813
    38073814/* Line 1464 of yacc.c  */
    3808 #line 1251 "grammar.y"
     3815#line 1258 "grammar.y"
    38093816    {
    38103817            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38173824
    38183825/* Line 1464 of yacc.c  */
    3819 #line 1257 "grammar.y"
     3826#line 1264 "grammar.y"
    38203827    {
    38213828            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38283835
    38293836/* Line 1464 of yacc.c  */
    3830 #line 1269 "grammar.y"
     3837#line 1276 "grammar.y"
    38313838    {
    38323839            list_cmd(-1,NULL,"// ",TRUE);
    … …  
    38373844
    38383845/* Line 1464 of yacc.c  */
    3839 #line 1275 "grammar.y"
     3846#line 1282 "grammar.y"
    38403847    { yyInRingConstruction = TRUE; ;}
    38413848    break;
    … …  
    38443851
    38453852/* Line 1464 of yacc.c  */
    3846 #line 1284 "grammar.y"
     3853#line 1291 "grammar.y"
    38473854    {
    38483855            const char *ring_name = (yyvsp[(2) - (8)].lv).name;
    … …  
    38823889
    38833890/* Line 1464 of yacc.c  */
    3884 #line 1317 "grammar.y"
     3891#line 1324 "grammar.y"
    38853892    {
    38863893            const char *ring_name = (yyvsp[(2) - (2)].lv).name;
    … …  
    38943901
    38953902/* Line 1464 of yacc.c  */
    3896 #line 1324 "grammar.y"
     3903#line 1331 "grammar.y"
    38973904    {
    38983905            yyInRingConstruction = FALSE;
    … …  
    39043911
    39053912/* Line 1464 of yacc.c  */
    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;
     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;
    39153922          if (iiAssignCR(&(yyvsp[(2) - (7)].lv),&tmp)) YYERROR;
    3916           #else
    3917           YYERROR;
    3918           #endif
    3919         ;}
     3923          #else
     3924          YYERROR;
     3925          #endif
     3926        ;}
    39203927    break;
    39213928
    … …  
    39233930
    39243931/* Line 1464 of yacc.c  */
    3925 #line 1346 "grammar.y"
     3932#line 1353 "grammar.y"
    39263933    {
    39273934            if (((yyvsp[(1) - (2)].i)!=LIB_CMD)||(jjLOAD((yyvsp[(2) - (2)].name),TRUE))) YYERROR;
    … …  
    39323939
    39333940/* Line 1464 of yacc.c  */
    3934 #line 1355 "grammar.y"
     3941#line 1362 "grammar.y"
    39353942    {
    39363943            if (((yyvsp[(1) - (2)].i)==KEEPRING_CMD) && (myynest==0))
    … …  
    40024009
    40034010/* Line 1464 of yacc.c  */
    4004 #line 1423 "grammar.y"
     4011#line 1430 "grammar.y"
    40054012    {
    40064013            type_cmd(&((yyvsp[(2) - (2)].lv)));
    … …  
    40114018
    40124019/* Line 1464 of yacc.c  */
    4013 #line 1427 "grammar.y"
     4020#line 1434 "grammar.y"
    40144021    {
    40154022            //Print("typ is %d, rtyp:%d\n",$1.Typ(),$1.rtyp);
    … …  
    40394046
    40404047/* Line 1464 of yacc.c  */
    4041 #line 1456 "grammar.y"
     4048#line 1463 "grammar.y"
    40424049    {
    40434050            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
    … …  
    40574064
    40584065/* Line 1464 of yacc.c  */
    4059 #line 1469 "grammar.y"
     4066#line 1476 "grammar.y"
    40604067    {
    40614068            if (currentVoice->ifsw==1)
    … …  
    40794086
    40804087/* Line 1464 of yacc.c  */
    4081 #line 1486 "grammar.y"
     4088#line 1493 "grammar.y"
    40824089    {
    40834090            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
    … …  
    40934100
    40944101/* Line 1464 of yacc.c  */
    4095 #line 1495 "grammar.y"
     4102#line 1502 "grammar.y"
    40964103    {
    40974104            if (exitBuffer(BT_break)) YYERROR;
    … …  
    41034110
    41044111/* Line 1464 of yacc.c  */
    4105 #line 1500 "grammar.y"
     4112#line 1507 "grammar.y"
    41064113    {
    41074114            if (contBuffer(BT_break)) YYERROR;
    … …  
    41134120
    41144121/* Line 1464 of yacc.c  */
    4115 #line 1508 "grammar.y"
     4122#line 1515 "grammar.y"
    41164123    {
    41174124            /* -> if(!$2) break; $3; continue;*/
    … …  
    41274134
    41284135/* Line 1464 of yacc.c  */
    4129 #line 1520 "grammar.y"
     4136#line 1527 "grammar.y"
    41304137    {
    41314138            /* $2 */
    … …  
    41484155
    41494156/* Line 1464 of yacc.c  */
    4150 #line 1539 "grammar.y"
     4157#line 1546 "grammar.y"
    41514158    {
    41524159            idhdl h = enterid((yyvsp[(2) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
    … …  
    41634170
    41644171/* Line 1464 of yacc.c  */
    4165 #line 1549 "grammar.y"
     4172#line 1556 "grammar.y"
    41664173    {
    41674174            idhdl h = enterid((yyvsp[(1) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
    … …  
    41874194
    41884195/* Line 1464 of yacc.c  */
    4189 #line 1568 "grammar.y"
     4196#line 1575 "grammar.y"
    41904197    {
    41914198            omFree((ADDRESS)(yyvsp[(3) - (4)].name));
    … …  
    42124219
    42134220/* Line 1464 of yacc.c  */
    4214 #line 1591 "grammar.y"
     4221#line 1598 "grammar.y"
    42154222    {
    42164223            // decl. of type proc p(int i)
    … …  
    42234230
    42244231/* Line 1464 of yacc.c  */
    4225 #line 1597 "grammar.y"
     4232#line 1604 "grammar.y"
    42264233    {
    42274234            // decl. of type proc p(i)
    … …  
    42374244
    42384245/* Line 1464 of yacc.c  */
    4239 #line 1609 "grammar.y"
     4246#line 1616 "grammar.y"
    42404247    {
    42414248            iiRETURNEXPR.Copy(&(yyvsp[(3) - (4)].lv));
    … …  
    42484255
    42494256/* Line 1464 of yacc.c  */
    4250 #line 1615 "grammar.y"
     4257#line 1622 "grammar.y"
    42514258    {
    42524259            if ((yyvsp[(1) - (3)].i)==RETURN)
    … …  
    42624269
    42634270/* Line 1464 of yacc.c  */
    4264 #line 4263 "grammar.cc"
     4271#line 4270 "grammar.cc"
    42654272      default: break;
    42664273    }

  • Singular/grammar.y

    rf705f9 r0f36a0  
    538538          {
    539539            memset(&$$,0,sizeof($$));
    540             $$.rtyp = $1;
    541             $$.data = $$.Data();
     540            if ($1!=LIB_CMD)
     541            {
     542              $$.rtyp = $1;
     543              $$.data = $$.Data();
     544            }
     545            else
     546            {
     547              $$.rtyp=NONE;
     548            }
    542549          }
    543550        | stringexpr
    … …  
    13261333            if (iiAssignCR(&$2,&$4)) YYERROR;
    13271334          }
    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;
     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;
    13371344          if (iiAssignCR(&$2,&tmp)) YYERROR;
    1338           #else
    1339           YYERROR;
    1340           #endif
    1341         }
     1345          #else
     1346          YYERROR;
     1347          #endif
     1348        }
    13421349        ;
    13431350

  • Singular/subexpr.cc

    rf705f9 r0f36a0  
    368368        case VNOETHER:
    369369        case VMINPOLY:
    370         case LIB_CMD:
    371370        case 0:
    372371          //attribute=NULL; // will be done by Init() at the end
    … …  
    645644    case VNOETHER:
    646645    case VMINPOLY:
    647     case LIB_CMD:
    648646    case 0: /* type in error case */
    649647      break; /* error recovery: do nothing */
    … …  
    740738//{
    741739  //if ((rtyp!=IDHDL)&&(e==NULL)
    742   //&&(rtyp!=VNOETHER)&&(rtyp!=LIB_CMD)&&(rtyp!=VMINPOLY))
     740  //&&(rtyp!=VNOETHER)&&(rtyp!=VMINPOLY))
    743741  //{
    744742  //  void *x=data;
Note: See TracChangeset for help on using the changeset viewer.