Changeset f4f403 in git


Ignore:
Timestamp:
Dec 19, 2013, 5:57:50 PM (9 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
7280036259d95d6c7793c260fbf5358e2c3f17c2
Parents:
b1645e52df1f9ba737d354f5a3f4bebff0aac7cd
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-12-19 17:57:50+01:00
git-committer:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-12-19 17:58:44+01:00
Message:
fix: quote(not something)
Location:
Singular
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • Singular/grammar.cc

    rb1645e rf4f403  
    805805     727,   731,   735,   739,   743,   747,   751,   755,   759,   763,
    806806     780,   787,   786,   804,   812,   820,   829,   833,   837,   841,
    807      845,   849,   853,   857,   861,   865,   869,   873,   877,   884,
    808      891,   892,   911,   912,   924,   929,   934,   938,   942,   982,
    809     1008,  1029,  1037,  1041,  1042,  1056,  1064,  1073,  1118,  1119,
    810     1128,  1129,  1135,  1142,  1144,  1146,  1156,  1155,  1163,  1168,
    811     1175,  1183,  1195,  1211,  1230,  1234,  1238,  1243,  1247,  1251,
    812     1255,  1259,  1264,  1270,  1276,  1282,  1288,  1294,  1300,  1312,
    813     1319,  1323,  1360,  1370,  1376,  1376,  1379,  1451,  1455,  1484,
    814     1497,  1514,  1523,  1528,  1536,  1548,  1567,  1577,  1596,  1619,
    815     1625,  1637,  1643
     807     845,   849,   853,   857,   861,   865,   869,   873,   877,   889,
     808     896,   897,   916,   917,   929,   934,   939,   943,   947,   987,
     809    1013,  1034,  1042,  1046,  1047,  1061,  1069,  1078,  1123,  1124,
     810    1133,  1134,  1140,  1147,  1149,  1151,  1161,  1160,  1168,  1173,
     811    1180,  1188,  1200,  1216,  1235,  1239,  1243,  1248,  1252,  1256,
     812    1260,  1264,  1269,  1275,  1281,  1287,  1293,  1299,  1305,  1317,
     813    1324,  1328,  1365,  1375,  1381,  1381,  1384,  1456,  1460,  1489,
     814    1502,  1519,  1528,  1533,  1541,  1553,  1572,  1582,  1601,  1624,
     815    1630,  1642,  1648
    816816};
    817817#endif
    … …  
    32893289#line 878 "grammar.y"
    32903290    {
    3291             memset(&(yyval.lv),0,sizeof((yyval.lv)));
    3292             int i; TESTSETINT((yyvsp[(2) - (2)].lv),i);
    3293             (yyval.lv).rtyp  = INT_CMD;
    3294             (yyval.lv).data = (void *)(long)(i == 0 ? 1 : 0);
     3291            if (siq>0)
     3292            { if (iiExprArith1(&(yyval.lv),&(yyvsp[(2) - (2)].lv),NOT)) YYERROR; }
     3293            else
     3294            {
     3295              memset(&(yyval.lv),0,sizeof((yyval.lv)));
     3296              int i; TESTSETINT((yyvsp[(2) - (2)].lv),i);
     3297              (yyval.lv).rtyp  = INT_CMD;
     3298              (yyval.lv).data = (void *)(long)(i == 0 ? 1 : 0);
     3299            }
    32953300          ;}
    32963301    break;
    … …  
    32993304
    33003305/* Line 1464 of yacc.c  */
    3301 #line 885 "grammar.y"
     3306#line 890 "grammar.y"
    33023307    {
    33033308            if(iiExprArith1(&(yyval.lv),&(yyvsp[(2) - (2)].lv),'-')) YYERROR;
    … …  
    33083313
    33093314/* Line 1464 of yacc.c  */
    3310 #line 891 "grammar.y"
     3315#line 896 "grammar.y"
    33113316    { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
    33123317    break;
    … …  
    33153320
    33163321/* Line 1464 of yacc.c  */
    3317 #line 893 "grammar.y"
     3322#line 898 "grammar.y"
    33183323    {
    33193324            if ((yyvsp[(1) - (2)].lv).rtyp==0)
    … …  
    33353340
    33363341/* Line 1464 of yacc.c  */
    3337 #line 913 "grammar.y"
     3342#line 918 "grammar.y"
    33383343    {
    33393344            if ((yyvsp[(2) - (3)].lv).Typ()!=STRING_CMD)
    … …  
    33493354
    33503355/* Line 1464 of yacc.c  */
    3351 #line 925 "grammar.y"
     3356#line 930 "grammar.y"
    33523357    {
    33533358            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    33593364
    33603365/* Line 1464 of yacc.c  */
    3361 #line 930 "grammar.y"
     3366#line 935 "grammar.y"
    33623367    {
    33633368            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    33693374
    33703375/* Line 1464 of yacc.c  */
    3371 #line 935 "grammar.y"
     3376#line 940 "grammar.y"
    33723377    {
    33733378            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
    … …  
    33783383
    33793384/* Line 1464 of yacc.c  */
    3380 #line 939 "grammar.y"
     3385#line 944 "grammar.y"
    33813386    {
    33823387            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
    … …  
    33873392
    33883393/* Line 1464 of yacc.c  */
    3389 #line 943 "grammar.y"
     3394#line 948 "grammar.y"
    33903395    {
    33913396            int r; TESTSETINT((yyvsp[(4) - (8)].lv),r);
    … …  
    34323437
    34333438/* Line 1464 of yacc.c  */
    3434 #line 983 "grammar.y"
     3439#line 988 "grammar.y"
    34353440    {
    34363441            if ((yyvsp[(1) - (2)].i) == MATRIX_CMD)
    … …  
    34633468
    34643469/* Line 1464 of yacc.c  */
    3465 #line 1009 "grammar.y"
     3470#line 1014 "grammar.y"
    34663471    {
    34673472            int t=(yyvsp[(1) - (3)].lv).Typ();
    … …  
    34893494
    34903495/* Line 1464 of yacc.c  */
    3491 #line 1030 "grammar.y"
     3496#line 1035 "grammar.y"
    34923497    {
    34933498            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    34993504
    35003505/* Line 1464 of yacc.c  */
    3501 #line 1043 "grammar.y"
     3506#line 1048 "grammar.y"
    35023507    {
    35033508            leftv v = &(yyvsp[(2) - (5)].lv);
    … …  
    35153520
    35163521/* Line 1464 of yacc.c  */
    3517 #line 1057 "grammar.y"
     3522#line 1062 "grammar.y"
    35183523    {
    35193524          // let rInit take care of any errors
    … …  
    35253530
    35263531/* Line 1464 of yacc.c  */
    3527 #line 1065 "grammar.y"
     3532#line 1070 "grammar.y"
    35283533    {
    35293534            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    35393544
    35403545/* Line 1464 of yacc.c  */
    3541 #line 1074 "grammar.y"
     3546#line 1079 "grammar.y"
    35423547    {
    35433548            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    35863591
    35873592/* Line 1464 of yacc.c  */
    3588 #line 1120 "grammar.y"
     3593#line 1125 "grammar.y"
    35893594    {
    35903595            (yyval.lv) = (yyvsp[(1) - (3)].lv);
    … …  
    35973602
    35983603/* Line 1464 of yacc.c  */
    3599 #line 1130 "grammar.y"
     3604#line 1135 "grammar.y"
    36003605    {
    36013606            (yyval.lv) = (yyvsp[(2) - (3)].lv);
    … …  
    36063611
    36073612/* Line 1464 of yacc.c  */
    3608 #line 1136 "grammar.y"
     3613#line 1141 "grammar.y"
    36093614    {
    36103615            expected_parms = TRUE;
    … …  
    36153620
    36163621/* Line 1464 of yacc.c  */
    3617 #line 1143 "grammar.y"
     3622#line 1148 "grammar.y"
    36183623    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    36193624    break;
    … …  
    36223627
    36233628/* Line 1464 of yacc.c  */
    3624 #line 1145 "grammar.y"
     3629#line 1150 "grammar.y"
    36253630    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    36263631    break;
    … …  
    36293634
    36303635/* Line 1464 of yacc.c  */
    3631 #line 1147 "grammar.y"
     3636#line 1152 "grammar.y"
    36323637    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    36333638    break;
    … …  
    36363641
    36373642/* Line 1464 of yacc.c  */
    3638 #line 1156 "grammar.y"
     3643#line 1161 "grammar.y"
    36393644    { if ((yyvsp[(1) - (2)].i) != '<') YYERROR;
    36403645            if((feFilePending=feFopen((yyvsp[(2) - (2)].name),"r",NULL,TRUE))==NULL) YYERROR; ;}
    … …  
    36443649
    36453650/* Line 1464 of yacc.c  */
    3646 #line 1159 "grammar.y"
     3651#line 1164 "grammar.y"
    36473652    { newFile((yyvsp[(2) - (4)].name),feFilePending); ;}
    36483653    break;
    … …  
    36513656
    36523657/* Line 1464 of yacc.c  */
    3653 #line 1164 "grammar.y"
     3658#line 1169 "grammar.y"
    36543659    {
    36553660            feHelp((yyvsp[(2) - (3)].name));
    … …  
    36613666
    36623667/* Line 1464 of yacc.c  */
    3663 #line 1169 "grammar.y"
     3668#line 1174 "grammar.y"
    36643669    {
    36653670            feHelp(NULL);
    … …  
    36703675
    36713676/* Line 1464 of yacc.c  */
    3672 #line 1176 "grammar.y"
     3677#line 1181 "grammar.y"
    36733678    {
    36743679            singular_example((yyvsp[(2) - (3)].name));
    … …  
    36803685
    36813686/* Line 1464 of yacc.c  */
    3682 #line 1184 "grammar.y"
     3687#line 1189 "grammar.y"
    36833688    {
    36843689          if (basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
    … …  
    36943699
    36953700/* Line 1464 of yacc.c  */
    3696 #line 1196 "grammar.y"
     3701#line 1201 "grammar.y"
    36973702    {
    36983703          leftv v=&(yyvsp[(2) - (2)].lv);
    … …  
    37153720
    37163721/* Line 1464 of yacc.c  */
    3717 #line 1212 "grammar.y"
     3722#line 1217 "grammar.y"
    37183723    {
    37193724          leftv v=&(yyvsp[(3) - (3)].lv);
    … …  
    37363741
    37373742/* Line 1464 of yacc.c  */
    3738 #line 1231 "grammar.y"
     3743#line 1236 "grammar.y"
    37393744    {
    37403745            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    37453750
    37463751/* Line 1464 of yacc.c  */
    3747 #line 1235 "grammar.y"
     3752#line 1240 "grammar.y"
    37483753    {
    37493754            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    37543759
    37553760/* Line 1464 of yacc.c  */
    3756 #line 1239 "grammar.y"
     3761#line 1244 "grammar.y"
    37573762    {
    37583763            if ((yyvsp[(3) - (4)].i)==QRING_CMD) (yyvsp[(3) - (4)].i)=RING_CMD;
    … …  
    37643769
    37653770/* Line 1464 of yacc.c  */
    3766 #line 1244 "grammar.y"
     3771#line 1249 "grammar.y"
    37673772    {
    37683773            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    37733778
    37743779/* Line 1464 of yacc.c  */
    3775 #line 1248 "grammar.y"
     3780#line 1253 "grammar.y"
    37763781    {
    37773782            list_cmd(RING_CMD,NULL,"// ",TRUE);
    … …  
    37823787
    37833788/* Line 1464 of yacc.c  */
    3784 #line 1252 "grammar.y"
     3789#line 1257 "grammar.y"
    37853790    {
    37863791            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    37913796
    37923797/* Line 1464 of yacc.c  */
    3793 #line 1256 "grammar.y"
     3798#line 1261 "grammar.y"
    37943799    {
    37953800            list_cmd(PROC_CMD,NULL,"// ",TRUE);
    … …  
    38003805
    38013806/* Line 1464 of yacc.c  */
    3802 #line 1260 "grammar.y"
     3807#line 1265 "grammar.y"
    38033808    {
    38043809            list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),"// ",TRUE);
    … …  
    38103815
    38113816/* Line 1464 of yacc.c  */
    3812 #line 1265 "grammar.y"
     3817#line 1270 "grammar.y"
    38133818    {
    38143819            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38213826
    38223827/* Line 1464 of yacc.c  */
    3823 #line 1271 "grammar.y"
     3828#line 1276 "grammar.y"
    38243829    {
    38253830            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38323837
    38333838/* Line 1464 of yacc.c  */
    3834 #line 1277 "grammar.y"
     3839#line 1282 "grammar.y"
    38353840    {
    38363841            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38433848
    38443849/* Line 1464 of yacc.c  */
    3845 #line 1283 "grammar.y"
     3850#line 1288 "grammar.y"
    38463851    {
    38473852            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38543859
    38553860/* Line 1464 of yacc.c  */
    3856 #line 1289 "grammar.y"
     3861#line 1294 "grammar.y"
    38573862    {
    38583863            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38653870
    38663871/* Line 1464 of yacc.c  */
    3867 #line 1295 "grammar.y"
     3872#line 1300 "grammar.y"
    38683873    {
    38693874            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38763881
    38773882/* Line 1464 of yacc.c  */
    3878 #line 1301 "grammar.y"
     3883#line 1306 "grammar.y"
    38793884    {
    38803885            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38873892
    38883893/* Line 1464 of yacc.c  */
    3889 #line 1313 "grammar.y"
     3894#line 1318 "grammar.y"
    38903895    {
    38913896            list_cmd(-1,NULL,"// ",TRUE);
    … …  
    38963901
    38973902/* Line 1464 of yacc.c  */
    3898 #line 1319 "grammar.y"
     3903#line 1324 "grammar.y"
    38993904    { yyInRingConstruction = TRUE; ;}
    39003905    break;
    … …  
    39033908
    39043909/* Line 1464 of yacc.c  */
    3905 #line 1328 "grammar.y"
     3910#line 1333 "grammar.y"
    39063911    {
    39073912            const char *ring_name = (yyvsp[(2) - (8)].lv).name;
    … …  
    39413946
    39423947/* Line 1464 of yacc.c  */
    3943 #line 1361 "grammar.y"
     3948#line 1366 "grammar.y"
    39443949    {
    39453950            const char *ring_name = (yyvsp[(2) - (2)].lv).name;
    … …  
    39533958
    39543959/* Line 1464 of yacc.c  */
    3955 #line 1371 "grammar.y"
     3960#line 1376 "grammar.y"
    39563961    {
    39573962            if (((yyvsp[(1) - (2)].i)!=LIB_CMD)||(jjLOAD((yyvsp[(2) - (2)].name),TRUE))) YYERROR;
    … …  
    39623967
    39633968/* Line 1464 of yacc.c  */
    3964 #line 1380 "grammar.y"
     3969#line 1385 "grammar.y"
    39653970    {
    39663971            if (((yyvsp[(1) - (2)].i)==KEEPRING_CMD) && (myynest==0))
    … …  
    40364041
    40374042/* Line 1464 of yacc.c  */
    4038 #line 1452 "grammar.y"
     4043#line 1457 "grammar.y"
    40394044    {
    40404045            type_cmd(&((yyvsp[(2) - (2)].lv)));
    … …  
    40454050
    40464051/* Line 1464 of yacc.c  */
    4047 #line 1456 "grammar.y"
     4052#line 1461 "grammar.y"
    40484053    {
    40494054            //Print("typ is %d, rtyp:%d\n",$1.Typ(),$1.rtyp);
    … …  
    40734078
    40744079/* Line 1464 of yacc.c  */
    4075 #line 1485 "grammar.y"
     4080#line 1490 "grammar.y"
    40764081    {
    40774082            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
    … …  
    40914096
    40924097/* Line 1464 of yacc.c  */
    4093 #line 1498 "grammar.y"
     4098#line 1503 "grammar.y"
    40944099    {
    40954100            if (currentVoice->ifsw==1)
    … …  
    41134118
    41144119/* Line 1464 of yacc.c  */
    4115 #line 1515 "grammar.y"
     4120#line 1520 "grammar.y"
    41164121    {
    41174122            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
    … …  
    41274132
    41284133/* Line 1464 of yacc.c  */
    4129 #line 1524 "grammar.y"
     4134#line 1529 "grammar.y"
    41304135    {
    41314136            if (exitBuffer(BT_break)) YYERROR;
    … …  
    41374142
    41384143/* Line 1464 of yacc.c  */
    4139 #line 1529 "grammar.y"
     4144#line 1534 "grammar.y"
    41404145    {
    41414146            if (contBuffer(BT_break)) YYERROR;
    … …  
    41474152
    41484153/* Line 1464 of yacc.c  */
    4149 #line 1537 "grammar.y"
     4154#line 1542 "grammar.y"
    41504155    {
    41514156            /* -> if(!$2) break; $3; continue;*/
    … …  
    41614166
    41624167/* Line 1464 of yacc.c  */
    4163 #line 1549 "grammar.y"
     4168#line 1554 "grammar.y"
    41644169    {
    41654170            /* $2 */
    … …  
    41824187
    41834188/* Line 1464 of yacc.c  */
    4184 #line 1568 "grammar.y"
     4189#line 1573 "grammar.y"
    41854190    {
    41864191            idhdl h = enterid((yyvsp[(2) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
    … …  
    41974202
    41984203/* Line 1464 of yacc.c  */
    4199 #line 1578 "grammar.y"
     4204#line 1583 "grammar.y"
    42004205    {
    42014206            idhdl h = enterid((yyvsp[(1) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
    … …  
    42214226
    42224227/* Line 1464 of yacc.c  */
    4223 #line 1597 "grammar.y"
     4228#line 1602 "grammar.y"
    42244229    {
    42254230            omFree((ADDRESS)(yyvsp[(3) - (4)].name));
    … …  
    42464251
    42474252/* Line 1464 of yacc.c  */
    4248 #line 1620 "grammar.y"
     4253#line 1625 "grammar.y"
    42494254    {
    42504255            // decl. of type proc p(int i)
    … …  
    42574262
    42584263/* Line 1464 of yacc.c  */
    4259 #line 1626 "grammar.y"
     4264#line 1631 "grammar.y"
    42604265    {
    42614266            // decl. of type proc p(i)
    … …  
    42714276
    42724277/* Line 1464 of yacc.c  */
    4273 #line 1638 "grammar.y"
     4278#line 1643 "grammar.y"
    42744279    {
    42754280            iiRETURNEXPR.Copy(&(yyvsp[(3) - (4)].lv));
    … …  
    42824287
    42834288/* Line 1464 of yacc.c  */
    4284 #line 1644 "grammar.y"
     4289#line 1649 "grammar.y"
    42854290    {
    42864291            if ((yyvsp[(1) - (3)].i)==RETURN)
    … …  
    42964301
    42974302/* Line 1464 of yacc.c  */
    4298 #line 4297 "grammar.cc"
     4303#line 4302 "grammar.cc"
    42994304      default: break;
    43004305    }

  • Singular/grammar.y

    rb1645e rf4f403  
    877877        | NOT expr
    878878          {
    879             memset(&$$,0,sizeof($$));
    880             int i; TESTSETINT($2,i);
    881             $$.rtyp  = INT_CMD;
    882             $$.data = (void *)(long)(i == 0 ? 1 : 0);
     879            if (siq>0)
     880            { if (iiExprArith1(&$$,&$2,NOT)) YYERROR; }
     881            else
     882            {
     883              memset(&$$,0,sizeof($$));
     884              int i; TESTSETINT($2,i);
     885              $$.rtyp  = INT_CMD;
     886              $$.data = (void *)(long)(i == 0 ? 1 : 0);
     887            }
    883888          }
    884889        | '-' expr %prec UMINUS

  • Singular/iparith.cc

    rb1645e rf4f403  
    46024602{
    46034603  res->data=ipNameListLev((IDROOT),(int)(long)v->Data());
     4604  return FALSE;
     4605}
     4606static BOOLEAN jjNOT(leftv res, leftv v)
     4607{
     4608  res->data=(char*)(long)((long)v->Data()==0 ? 1 : 0);
    46044609  return FALSE;
    46054610}

  • Singular/table.h

    rb1645e rf4f403  
    176176,{D(jjNAMES),      NAMES_CMD,       LIST_CMD,       RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    177177,{D(jjNAMES),      NAMES_CMD,       LIST_CMD,       QRING_CMD     , ALLOW_PLURAL |ALLOW_RING}
     178,{D(jjNOT),        NOT,             INT_CMD,        INT_CMD       , ALLOW_PLURAL |ALLOW_RING}
    178179,{D(jjDUMMY),      NUMBER_CMD,      NUMBER_CMD,     NUMBER_CMD    , ALLOW_PLURAL |ALLOW_RING}
    179180,{D(jjP2N),        NUMBER_CMD,      NUMBER_CMD,     POLY_CMD      , ALLOW_PLURAL |ALLOW_RING}
Note: See TracChangeset for help on using the changeset viewer.