Changeset d2fc5c5 in git


Ignore:
Timestamp:
Aug 18, 2016, 2:48:17 PM (8 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
41ca4108284bcffa9bcdb7119787136373b9b0ae
Parents:
c12c262fa453caf878bfa90e7935d683d92be8ff
Message:
removed unused test for QRING_CMD
Location:
Singular
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • Singular/attrib.cc

    rc12c262 rd2fc5c5  
    159159  {
    160160    if ((IDTYP(root)!=RING_CMD)
    161     && (IDTYP(root)!=QRING_CMD)
    162161    && (!RingDependend(IDTYP(root)))&&(RingDependend(typ)))
    163162      WerrorS("cannot set ring-dependend objects at this type");
    … …  
    176175      WerrorS("cannot set attributes of this object");
    177176    else if ((rt!=RING_CMD)
    178     && (rt!=QRING_CMD)
    179177    && (!RingDependend(rt))&&(RingDependend(typ)))
    180178      WerrorS("cannot set ring-dependend objects at this type");
    … …  
    241239BOOLEAN atATTRIB1(leftv res,leftv v)
    242240{
    243   int t;
    244241  attr *aa=(v->Attribute());
    245242  if (aa==NULL)
    … …  
    262259      haveNoAttribute=FALSE;
    263260    }
    264     if (((t=v->Typ())==RING_CMD)||(t==QRING_CMD))
     261    if (v->Typ()==RING_CMD)
    265262    {
    266263      PrintS("attr:cf_class, type int\n");
    … …  
    287284{
    288285  char *name=(char *)b->Data();
    289   int t;
     286  int t=v->Typ();
    290287  leftv at=NULL;
    291288  if (v->e!=NULL)
    … …  
    297294    if (at!=NULL) res->data=(void *)(long)(hasFlag(v,FLAG_STD)||(hasFlag(at,FLAG_STD)));
    298295  }
    299   else if ((strcmp(name,"rank")==0)&&(v->Typ()==MODUL_CMD))
     296  else if ((strcmp(name,"rank")==0)&&(/*v->Typ()*/t==MODUL_CMD))
    300297  {
    301298    res->rtyp=INT_CMD;
    … …  
    303300  }
    304301  else if ((strcmp(name,"global")==0)
    305   &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
     302  &&(/*v->Typ()*/t==RING_CMD))
    306303  {
    307304    res->rtyp=INT_CMD;
    … …  
    309306  }
    310307  else if ((strcmp(name,"maxExp")==0)
    311   &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
     308  &&(/*v->Typ()*/t==RING_CMD))
    312309  {
    313310    res->rtyp=INT_CMD;
    … …  
    315312  }
    316313  else if ((strcmp(name,"ring_cf")==0)
    317   &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
     314  &&(/*v->Typ()*/t==RING_CMD))
    318315  {
    319316    res->rtyp=INT_CMD;
    … …  
    321318  }
    322319  else if ((strcmp(name,"cf_class")==0)
    323   &&(((t=v->Typ())==RING_CMD)||(t==CRING_CMD)))
     320  &&(/*v->Typ()*/t==RING_CMD))
    324321  {
    325322    res->rtyp=INT_CMD;
    … …  
    337334#ifdef HAVE_SHIFTBBA
    338335  else if ((strcmp(name,"isLPring")==0)
    339   &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
     336  &&(/*v->Typ()*/t==RING_CMD))
    340337  {
    341338    res->rtyp=INT_CMD;
    … …  
    369366{
    370367  idhdl h=(idhdl)v->data;
    371   int t;
    372368  if (v->e!=NULL)
    373369  {
    … …  
    377373  }
    378374  else if (v->rtyp!=IDHDL) h=NULL;
     375  int t=v->Typ();
    379376
    380377  char *name=(char *)b->Data();
    … …  
    415412    }
    416413  }
    417   else if ((strcmp(name,"rank")==0)&&(v->Typ()==MODUL_CMD))
     414  else if ((strcmp(name,"rank")==0)&&(/*v->Typ()*/t==MODUL_CMD))
    418415  {
    419416    if (c->Typ()!=INT_CMD)
    … …  
    430427    || (strcmp(name,"ring_cf")==0)
    431428    || (strcmp(name,"maxExp")==0))
    432   &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
     429  &&(/*v->Typ()*/t==RING_CMD))
    433430  {
    434431    Werror("can not set attribute `%s`",name);
    … …  
    437434#ifdef HAVE_SHIFTBBA
    438435  else if ((strcmp(name,"isLPring")==0)
    439   &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
     436  &&(/*v->Typ()*/t==RING_CMD))
    440437  {
    441438    if (c->Typ()==INT_CMD)

  • Singular/grammar.cc

    rc12c262 rd2fc5c5  
    126126  {
    127127    if ((IDTYP(r)==PACKAGE_CMD)
    128     || (IDTYP(r)==RING_CMD)
    129     || (IDTYP(r)==QRING_CMD))
     128    || (IDTYP(r)==RING_CMD))
    130129    {
    131130      h=IDPACKAGE(r)->idroot->get(nn,myynest);
    … …  
    239238
    240239/* Line 189 of yacc.c  */
    241 #line 242 "grammar.cc"
     240#line 241 "grammar.cc"
    242241
    243242/* Enabling traces.  */
    … …  
    365364
    366365/* Line 264 of yacc.c  */
    367 #line 368 "grammar.cc"
     366#line 367 "grammar.cc"
    368367
    369368#ifdef short
    … …  
    742741static const yytype_uint16 yyrline[] =
    743742{
    744        0,   317,   317,   319,   353,   354,   356,   358,   362,   367,
    745      369,   420,   421,   422,   423,   424,   425,   426,   427,   431,
    746      434,   435,   436,   437,   438,   439,   440,   441,   442,   445,
    747      452,   457,   461,   465,   469,   473,   486,   514,   538,   544,
    748      550,   554,   558,   562,   566,   570,   574,   578,   582,   586,
    749      590,   594,   598,   602,   606,   610,   614,   618,   622,   626,
    750      630,   636,   640,   644,   648,   652,   659,   670,   676,   681,
    751      682,   683,   687,   691,   695,   699,   703,   707,   711,   715,
    752      719,   736,   743,   742,   760,   768,   776,   785,   789,   793,
    753      797,   801,   805,   809,   813,   817,   821,   825,   829,   833,
    754      845,   852,   853,   872,   873,   885,   890,   895,   899,   903,
    755      939,   965,   986,   994,   998,   999,  1013,  1021,  1030,  1075,
    756     1076,  1085,  1086,  1092,  1099,  1101,  1103,  1113,  1112,  1120,
    757     1125,  1132,  1140,  1152,  1168,  1187,  1191,  1195,  1200,  1204,
    758     1208,  1212,  1216,  1221,  1227,  1233,  1239,  1245,  1251,  1257,
    759     1269,  1276,  1280,  1317,  1324,  1329,  1346,  1352,  1352,  1355,
    760     1423,  1427,  1456,  1469,  1486,  1495,  1500,  1508,  1520,  1539,
    761     1549,  1568,  1591,  1597,  1609,  1615
     743       0,   316,   316,   318,   352,   353,   355,   357,   361,   366,
     744     368,   419,   420,   421,   422,   423,   424,   425,   426,   430,
     745     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
    762761};
    763762#endif
    … …  
    23612360
    23622361/* Line 1464 of yacc.c  */
    2363 #line 320 "grammar.y"
     2362#line 319 "grammar.y"
    23642363    {
    23652364            if (timerv)
    … …  
    23972396
    23982397/* Line 1464 of yacc.c  */
    2399 #line 355 "grammar.y"
     2398#line 354 "grammar.y"
    24002399    {currentVoice->ifsw=0;;}
    24012400    break;
    … …  
    24042403
    24052404/* Line 1464 of yacc.c  */
    2406 #line 357 "grammar.y"
     2405#line 356 "grammar.y"
    24072406    { (yyvsp[(1) - (2)].lv).CleanUp(); currentVoice->ifsw=0;;}
    24082407    break;
    … …  
    24112410
    24122411/* Line 1464 of yacc.c  */
    2413 #line 359 "grammar.y"
     2412#line 358 "grammar.y"
    24142413    {
    24152414            YYACCEPT;
    … …  
    24202419
    24212420/* Line 1464 of yacc.c  */
    2422 #line 363 "grammar.y"
     2421#line 362 "grammar.y"
    24232422    {
    24242423            currentVoice->ifsw=0;
    … …  
    24302429
    24312430/* Line 1464 of yacc.c  */
    2432 #line 368 "grammar.y"
     2431#line 367 "grammar.y"
    24332432    {currentVoice->ifsw=0;;}
    24342433    break;
    … …  
    24372436
    24382437/* Line 1464 of yacc.c  */
    2439 #line 370 "grammar.y"
     2438#line 369 "grammar.y"
    24402439    {
    24412440            #ifdef SIQ
    … …  
    24912490
    24922491/* Line 1464 of yacc.c  */
    2493 #line 428 "grammar.y"
     2492#line 427 "grammar.y"
    24942493    {if (currentVoice!=NULL) currentVoice->ifsw=0;;}
    24952494    break;
    … …  
    24982497
    24992498/* Line 1464 of yacc.c  */
    2500 #line 431 "grammar.y"
     2499#line 430 "grammar.y"
    25012500    { omFree((ADDRESS)(yyvsp[(2) - (2)].name)); ;}
    25022501    break;
    … …  
    25052504
    25062505/* Line 1464 of yacc.c  */
    2507 #line 446 "grammar.y"
     2506#line 445 "grammar.y"
    25082507    {
    25092508            if(iiAssign(&(yyvsp[(1) - (2)].lv),&(yyvsp[(2) - (2)].lv))) YYERROR;
    … …  
    25142513
    25152514/* Line 1464 of yacc.c  */
    2516 #line 453 "grammar.y"
     2515#line 452 "grammar.y"
    25172516    {
    25182517            if (currRing==NULL) MYYERROR("no ring active");
    … …  
    25242523
    25252524/* Line 1464 of yacc.c  */
    2526 #line 458 "grammar.y"
     2525#line 457 "grammar.y"
    25272526    {
    25282527            syMake(&(yyval.lv),(yyvsp[(1) - (1)].name));
    … …  
    25332532
    25342533/* Line 1464 of yacc.c  */
    2535 #line 462 "grammar.y"
     2534#line 461 "grammar.y"
    25362535    {
    25372536            if(iiExprArith2(&(yyval.lv), &(yyvsp[(1) - (3)].lv), COLONCOLON, &(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    25422541
    25432542/* Line 1464 of yacc.c  */
    2544 #line 466 "grammar.y"
     2543#line 465 "grammar.y"
    25452544    {
    25462545            if(iiExprArith2(&(yyval.lv), &(yyvsp[(1) - (3)].lv), '.', &(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    25512550
    25522551/* Line 1464 of yacc.c  */
    2553 #line 470 "grammar.y"
     2552#line 469 "grammar.y"
    25542553    {
    25552554            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'(')) YYERROR;
    … …  
    25602559
    25612560/* Line 1464 of yacc.c  */
    2562 #line 474 "grammar.y"
     2561#line 473 "grammar.y"
    25632562    {
    25642563            if ((yyvsp[(1) - (4)].lv).rtyp==UNKNOWN)
    … …  
    25782577
    25792578/* Line 1464 of yacc.c  */
    2580 #line 487 "grammar.y"
     2579#line 486 "grammar.y"
    25812580    {
    25822581            if (currRingHdl==NULL) MYYERROR("no ring active");
    … …  
    26112610
    26122611/* Line 1464 of yacc.c  */
    2613 #line 515 "grammar.y"
     2612#line 514 "grammar.y"
    26142613    {
    26152614            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    26402639
    26412640/* Line 1464 of yacc.c  */
    2642 #line 539 "grammar.y"
     2641#line 538 "grammar.y"
    26432642    {
    26442643            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    26512650
    26522651/* Line 1464 of yacc.c  */
    2653 #line 545 "grammar.y"
     2652#line 544 "grammar.y"
    26542653    {
    26552654            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    26622661
    26632662/* Line 1464 of yacc.c  */
    2664 #line 551 "grammar.y"
     2663#line 550 "grammar.y"
    26652664    {
    26662665            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    26712670
    26722671/* Line 1464 of yacc.c  */
    2673 #line 555 "grammar.y"
     2672#line 554 "grammar.y"
    26742673    {
    26752674            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    26802679
    26812680/* Line 1464 of yacc.c  */
    2682 #line 559 "grammar.y"
     2681#line 558 "grammar.y"
    26832682    {
    26842683            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    26892688
    26902689/* Line 1464 of yacc.c  */
    2691 #line 563 "grammar.y"
     2690#line 562 "grammar.y"
    26922691    {
    26932692            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    … …  
    26982697
    26992698/* Line 1464 of yacc.c  */
    2700 #line 567 "grammar.y"
     2699#line 566 "grammar.y"
    27012700    {
    27022701            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27072706
    27082707/* Line 1464 of yacc.c  */
    2709 #line 571 "grammar.y"
     2708#line 570 "grammar.y"
    27102709    {
    27112710            if(iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27162715
    27172716/* Line 1464 of yacc.c  */
    2718 #line 575 "grammar.y"
     2717#line 574 "grammar.y"
    27192718    {
    27202719            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    … …  
    27252724
    27262725/* Line 1464 of yacc.c  */
    2727 #line 579 "grammar.y"
     2726#line 578 "grammar.y"
    27282727    {
    27292728            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27342733
    27352734/* Line 1464 of yacc.c  */
    2736 #line 583 "grammar.y"
     2735#line 582 "grammar.y"
    27372736    {
    27382737            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27432742
    27442743/* Line 1464 of yacc.c  */
    2745 #line 587 "grammar.y"
     2744#line 586 "grammar.y"
    27462745    {
    27472746            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27522751
    27532752/* Line 1464 of yacc.c  */
    2754 #line 591 "grammar.y"
     2753#line 590 "grammar.y"
    27552754    {
    27562755            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    27612760
    27622761/* Line 1464 of yacc.c  */
    2763 #line 595 "grammar.y"
     2762#line 594 "grammar.y"
    27642763    {
    27652764            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    … …  
    27702769
    27712770/* Line 1464 of yacc.c  */
    2772 #line 599 "grammar.y"
     2771#line 598 "grammar.y"
    27732772    {
    27742773            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    … …  
    27792778
    27802779/* Line 1464 of yacc.c  */
    2781 #line 603 "grammar.y"
     2780#line 602 "grammar.y"
    27822781    {
    27832782            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    … …  
    27882787
    27892788/* Line 1464 of yacc.c  */
    2790 #line 607 "grammar.y"
     2789#line 606 "grammar.y"
    27912790    {
    27922791            if(iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),TRUE)) YYERROR;
    … …  
    27972796
    27982797/* Line 1464 of yacc.c  */
    2799 #line 611 "grammar.y"
     2798#line 610 "grammar.y"
    28002799    {
    28012800            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28062805
    28072806/* Line 1464 of yacc.c  */
    2808 #line 615 "grammar.y"
     2807#line 614 "grammar.y"
    28092808    {
    28102809            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28152814
    28162815/* Line 1464 of yacc.c  */
    2817 #line 619 "grammar.y"
     2816#line 618 "grammar.y"
    28182817    {
    28192818            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28242823
    28252824/* Line 1464 of yacc.c  */
    2826 #line 623 "grammar.y"
     2825#line 622 "grammar.y"
    28272826    {
    28282827            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28332832
    28342833/* Line 1464 of yacc.c  */
    2835 #line 627 "grammar.y"
     2834#line 626 "grammar.y"
    28362835    {
    28372836            if(iiExprArithM(&(yyval.lv),NULL,(yyvsp[(1) - (3)].i))) YYERROR;
    … …  
    28422841
    28432842/* Line 1464 of yacc.c  */
    2844 #line 631 "grammar.y"
     2843#line 630 "grammar.y"
    28452844    {
    28462845            int b=iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i)); // handle branchTo
    … …  
    28532852
    28542853/* Line 1464 of yacc.c  */
    2855 #line 637 "grammar.y"
     2854#line 636 "grammar.y"
    28562855    {
    28572856            if(iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28622861
    28632862/* Line 1464 of yacc.c  */
    2864 #line 641 "grammar.y"
     2863#line 640 "grammar.y"
    28652864    {
    28662865            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i))) YYERROR;
    … …  
    28712870
    28722871/* Line 1464 of yacc.c  */
    2873 #line 645 "grammar.y"
     2872#line 644 "grammar.y"
    28742873    {
    28752874            if(iiExprArith3(&(yyval.lv),RING_CMD,&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv))) YYERROR;
    … …  
    28802879
    28812880/* Line 1464 of yacc.c  */
    2882 #line 649 "grammar.y"
     2881#line 648 "grammar.y"
    28832882    {
    28842883            if(iiExprArith1(&(yyval.lv),&(yyvsp[(3) - (4)].lv),RING_CMD)) YYERROR;
    … …  
    28892888
    28902889/* Line 1464 of yacc.c  */
    2891 #line 653 "grammar.y"
     2890#line 652 "grammar.y"
    28922891    {
    28932892            if (iiARROW(&(yyval.lv),(yyvsp[(1) - (3)].name),(yyvsp[(3) - (3)].name))) YYERROR;
    … …  
    28982897
    28992898/* Line 1464 of yacc.c  */
    2900 #line 660 "grammar.y"
     2899#line 659 "grammar.y"
    29012900    {
    29022901            leftv v = &(yyvsp[(1) - (3)].lv);
    … …  
    29142913
    29152914/* Line 1464 of yacc.c  */
    2916 #line 671 "grammar.y"
     2915#line 670 "grammar.y"
    29172916    {
    29182917            (yyval.lv) = (yyvsp[(1) - (1)].lv);
    … …  
    29232922
    29242923/* Line 1464 of yacc.c  */
    2925 #line 677 "grammar.y"
     2924#line 676 "grammar.y"
    29262925    {
    29272926            /*if ($1.typ == eunknown) YYERROR;*/
    … …  
    29332932
    29342933/* 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  */
    29352941#line 681 "grammar.y"
    2936     { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
    2937     break;
    2938 
    2939   case 70:
    2940 
    2941 /* Line 1464 of yacc.c  */
    2942 #line 682 "grammar.y"
    29432942    { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
    29442943    break;
    … …  
    29472946
    29482947/* Line 1464 of yacc.c  */
    2949 #line 684 "grammar.y"
     2948#line 683 "grammar.y"
    29502949    {
    29512950            if(iiExprArith3(&(yyval.lv),'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv))) YYERROR;
    … …  
    29562955
    29572956/* Line 1464 of yacc.c  */
    2958 #line 688 "grammar.y"
     2957#line 687 "grammar.y"
    29592958    {
    29602959            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (4)].lv),'[',&(yyvsp[(3) - (4)].lv))) YYERROR;
    … …  
    29652964
    29662965/* Line 1464 of yacc.c  */
    2967 #line 692 "grammar.y"
     2966#line 691 "grammar.y"
    29682967    {
    29692968            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    29742973
    29752974/* Line 1464 of yacc.c  */
    2976 #line 696 "grammar.y"
     2975#line 695 "grammar.y"
    29772976    {
    29782977            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    29832982
    29842983/* Line 1464 of yacc.c  */
    2985 #line 700 "grammar.y"
     2984#line 699 "grammar.y"
    29862985    {
    29872986            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    29922991
    29932992/* Line 1464 of yacc.c  */
    2994 #line 704 "grammar.y"
     2993#line 703 "grammar.y"
    29952994    {
    29962995            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    30013000
    30023001/* Line 1464 of yacc.c  */
    3003 #line 708 "grammar.y"
     3002#line 707 "grammar.y"
    30043003    {
    30053004            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i), NULL)) YYERROR;
    … …  
    30103009
    30113010/* Line 1464 of yacc.c  */
    3012 #line 712 "grammar.y"
     3011#line 711 "grammar.y"
    30133012    {
    30143013            if (iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), 0, &(yyvsp[(5) - (6)].lv))) YYERROR;
    … …  
    30193018
    30203019/* Line 1464 of yacc.c  */
    3021 #line 716 "grammar.y"
     3020#line 715 "grammar.y"
    30223021    {
    30233022            (yyval.lv)=(yyvsp[(2) - (3)].lv);
    … …  
    30283027
    30293028/* Line 1464 of yacc.c  */
    3030 #line 720 "grammar.y"
     3029#line 719 "grammar.y"
    30313030    {
    30323031            #ifdef SIQ
    … …  
    30503049
    30513050/* Line 1464 of yacc.c  */
    3052 #line 737 "grammar.y"
     3051#line 736 "grammar.y"
    30533052    {
    30543053            iiTestAssume(&(yyvsp[(2) - (5)].lv),&(yyvsp[(4) - (5)].lv));
    … …  
    30613060
    30623061/* Line 1464 of yacc.c  */
    3063 #line 743 "grammar.y"
     3062#line 742 "grammar.y"
    30643063    {
    30653064            #ifdef SIQ
    … …  
    30723071
    30733072/* Line 1464 of yacc.c  */
    3074 #line 749 "grammar.y"
     3073#line 748 "grammar.y"
    30753074    {
    30763075            #ifdef SIQ
    … …  
    30873086
    30883087/* Line 1464 of yacc.c  */
    3089 #line 761 "grammar.y"
     3088#line 760 "grammar.y"
    30903089    {
    30913090            #ifdef SIQ
    … …  
    30983097
    30993098/* Line 1464 of yacc.c  */
    3100 #line 769 "grammar.y"
     3099#line 768 "grammar.y"
    31013100    {
    31023101            #ifdef SIQ
    … …  
    31093108
    31103109/* Line 1464 of yacc.c  */
    3111 #line 777 "grammar.y"
     3110#line 776 "grammar.y"
    31123111    {
    31133112            #ifdef SIQ
    … …  
    31203119
    31213120/* Line 1464 of yacc.c  */
    3122 #line 786 "grammar.y"
     3121#line 785 "grammar.y"
    31233122    {
    31243123            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (2)].lv),PLUSPLUS)) YYERROR;
    … …  
    31293128
    31303129/* Line 1464 of yacc.c  */
    3131 #line 790 "grammar.y"
     3130#line 789 "grammar.y"
    31323131    {
    31333132            if(iiExprArith1(&(yyval.lv),&(yyvsp[(1) - (2)].lv),MINUSMINUS)) YYERROR;
    … …  
    31383137
    31393138/* Line 1464 of yacc.c  */
    3140 #line 794 "grammar.y"
     3139#line 793 "grammar.y"
    31413140    {
    31423141            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'+',&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31473146
    31483147/* Line 1464 of yacc.c  */
    3149 #line 798 "grammar.y"
     3148#line 797 "grammar.y"
    31503149    {
    31513150            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'-',&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31563155
    31573156/* Line 1464 of yacc.c  */
    3158 #line 802 "grammar.y"
     3157#line 801 "grammar.y"
    31593158    {
    31603159            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31653164
    31663165/* Line 1464 of yacc.c  */
    3167 #line 806 "grammar.y"
     3166#line 805 "grammar.y"
    31683167    {
    31693168            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),'^',&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31743173
    31753174/* Line 1464 of yacc.c  */
    3176 #line 810 "grammar.y"
     3175#line 809 "grammar.y"
    31773176    {
    31783177            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31833182
    31843183/* Line 1464 of yacc.c  */
    3185 #line 814 "grammar.y"
     3184#line 813 "grammar.y"
    31863185    {
    31873186            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    31923191
    31933192/* Line 1464 of yacc.c  */
    3194 #line 818 "grammar.y"
     3193#line 817 "grammar.y"
    31953194    {
    31963195            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),NOTEQUAL,&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    32013200
    32023201/* Line 1464 of yacc.c  */
    3203 #line 822 "grammar.y"
     3202#line 821 "grammar.y"
    32043203    {
    32053204            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),EQUAL_EQUAL,&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    32103209
    32113210/* Line 1464 of yacc.c  */
    3212 #line 826 "grammar.y"
     3211#line 825 "grammar.y"
    32133212    {
    32143213            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),DOTDOT,&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    32193218
    32203219/* Line 1464 of yacc.c  */
    3221 #line 830 "grammar.y"
     3220#line 829 "grammar.y"
    32223221    {
    32233222            if(iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),':',&(yyvsp[(3) - (3)].lv))) YYERROR;
    … …  
    32283227
    32293228/* Line 1464 of yacc.c  */
    3230 #line 834 "grammar.y"
     3229#line 833 "grammar.y"
    32313230    {
    32323231            if (siq>0)
    … …  
    32453244
    32463245/* Line 1464 of yacc.c  */
    3247 #line 846 "grammar.y"
     3246#line 845 "grammar.y"
    32483247    {
    32493248            if(iiExprArith1(&(yyval.lv),&(yyvsp[(2) - (2)].lv),'-')) YYERROR;
    … …  
    32543253
    32553254/* Line 1464 of yacc.c  */
    3256 #line 852 "grammar.y"
     3255#line 851 "grammar.y"
    32573256    { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
    32583257    break;
    … …  
    32613260
    32623261/* Line 1464 of yacc.c  */
    3263 #line 854 "grammar.y"
     3262#line 853 "grammar.y"
    32643263    {
    32653264            if ((yyvsp[(1) - (2)].lv).rtyp==0)
    … …  
    32813280
    32823281/* Line 1464 of yacc.c  */
    3283 #line 874 "grammar.y"
     3282#line 873 "grammar.y"
    32843283    {
    32853284            if ((yyvsp[(2) - (3)].lv).Typ()!=STRING_CMD)
    … …  
    32953294
    32963295/* Line 1464 of yacc.c  */
    3297 #line 886 "grammar.y"
     3296#line 885 "grammar.y"
    32983297    {
    32993298            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    33053304
    33063305/* Line 1464 of yacc.c  */
    3307 #line 891 "grammar.y"
     3306#line 890 "grammar.y"
    33083307    {
    33093308            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    33153314
    33163315/* Line 1464 of yacc.c  */
    3317 #line 896 "grammar.y"
     3316#line 895 "grammar.y"
    33183317    {
    33193318            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
    … …  
    33243323
    33253324/* Line 1464 of yacc.c  */
    3326 #line 900 "grammar.y"
     3325#line 899 "grammar.y"
    33273326    {
    33283327            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&(currRing->idroot), TRUE)) YYERROR;
    … …  
    33333332
    33343333/* Line 1464 of yacc.c  */
    3335 #line 904 "grammar.y"
     3334#line 903 "grammar.y"
    33363335    {
    33373336            int r; TESTSETINT((yyvsp[(4) - (8)].lv),r);
    … …  
    33743373
    33753374/* Line 1464 of yacc.c  */
    3376 #line 940 "grammar.y"
     3375#line 939 "grammar.y"
    33773376    {
    33783377            if ((yyvsp[(1) - (2)].i) == MATRIX_CMD)
    … …  
    34053404
    34063405/* Line 1464 of yacc.c  */
    3407 #line 966 "grammar.y"
     3406#line 965 "grammar.y"
    34083407    {
    34093408            int t=(yyvsp[(1) - (3)].lv).Typ();
    … …  
    34313430
    34323431/* Line 1464 of yacc.c  */
    3433 #line 987 "grammar.y"
     3432#line 986 "grammar.y"
    34343433    {
    34353434            if (iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
    … …  
    34413440
    34423441/* Line 1464 of yacc.c  */
    3443 #line 1000 "grammar.y"
     3442#line 999 "grammar.y"
    34443443    {
    34453444            leftv v = &(yyvsp[(2) - (5)].lv);
    … …  
    34573456
    34583457/* Line 1464 of yacc.c  */
    3459 #line 1014 "grammar.y"
     3458#line 1013 "grammar.y"
    34603459    {
    34613460          // let rInit take care of any errors
    … …  
    34673466
    34683467/* Line 1464 of yacc.c  */
    3469 #line 1022 "grammar.y"
     3468#line 1021 "grammar.y"
    34703469    {
    34713470            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    34813480
    34823481/* Line 1464 of yacc.c  */
    3483 #line 1031 "grammar.y"
     3482#line 1030 "grammar.y"
    34843483    {
    34853484            memset(&(yyval.lv),0,sizeof((yyval.lv)));
    … …  
    35283527
    35293528/* Line 1464 of yacc.c  */
    3530 #line 1077 "grammar.y"
     3529#line 1076 "grammar.y"
    35313530    {
    35323531            (yyval.lv) = (yyvsp[(1) - (3)].lv);
    … …  
    35393538
    35403539/* Line 1464 of yacc.c  */
    3541 #line 1087 "grammar.y"
     3540#line 1086 "grammar.y"
    35423541    {
    35433542            (yyval.lv) = (yyvsp[(2) - (3)].lv);
    … …  
    35483547
    35493548/* Line 1464 of yacc.c  */
    3550 #line 1093 "grammar.y"
     3549#line 1092 "grammar.y"
    35513550    {
    35523551            expected_parms = TRUE;
    … …  
    35573556
    35583557/* Line 1464 of yacc.c  */
    3559 #line 1100 "grammar.y"
     3558#line 1099 "grammar.y"
    35603559    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35613560    break;
    … …  
    35643563
    35653564/* Line 1464 of yacc.c  */
    3566 #line 1102 "grammar.y"
     3565#line 1101 "grammar.y"
    35673566    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35683567    break;
    … …  
    35713570
    35723571/* Line 1464 of yacc.c  */
    3573 #line 1104 "grammar.y"
     3572#line 1103 "grammar.y"
    35743573    { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
    35753574    break;
    … …  
    35783577
    35793578/* Line 1464 of yacc.c  */
    3580 #line 1113 "grammar.y"
     3579#line 1112 "grammar.y"
    35813580    { if ((yyvsp[(1) - (2)].i) != '<') YYERROR;
    35823581            if((feFilePending=feFopen((yyvsp[(2) - (2)].name),"r",NULL,TRUE))==NULL) YYERROR; ;}
    … …  
    35863585
    35873586/* Line 1464 of yacc.c  */
    3588 #line 1116 "grammar.y"
     3587#line 1115 "grammar.y"
    35893588    { newFile((yyvsp[(2) - (4)].name),feFilePending); ;}
    35903589    break;
    … …  
    35933592
    35943593/* Line 1464 of yacc.c  */
    3595 #line 1121 "grammar.y"
     3594#line 1120 "grammar.y"
    35963595    {
    35973596            feHelp((yyvsp[(2) - (3)].name));
    … …  
    36033602
    36043603/* Line 1464 of yacc.c  */
    3605 #line 1126 "grammar.y"
     3604#line 1125 "grammar.y"
    36063605    {
    36073606            feHelp(NULL);
    … …  
    36123611
    36133612/* Line 1464 of yacc.c  */
    3614 #line 1133 "grammar.y"
     3613#line 1132 "grammar.y"
    36153614    {
    36163615            singular_example((yyvsp[(2) - (3)].name));
    … …  
    36223621
    36233622/* Line 1464 of yacc.c  */
    3624 #line 1141 "grammar.y"
     3623#line 1140 "grammar.y"
    36253624    {
    36263625          if (basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
    … …  
    36363635
    36373636/* Line 1464 of yacc.c  */
    3638 #line 1153 "grammar.y"
     3637#line 1152 "grammar.y"
    36393638    {
    36403639          leftv v=&(yyvsp[(2) - (2)].lv);
    … …  
    36573656
    36583657/* Line 1464 of yacc.c  */
    3659 #line 1169 "grammar.y"
     3658#line 1168 "grammar.y"
    36603659    {
    36613660          leftv v=&(yyvsp[(3) - (3)].lv);
    … …  
    36783677
    36793678/* Line 1464 of yacc.c  */
    3680 #line 1188 "grammar.y"
     3679#line 1187 "grammar.y"
    36813680    {
    36823681            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    36873686
    36883687/* Line 1464 of yacc.c  */
    3689 #line 1192 "grammar.y"
     3688#line 1191 "grammar.y"
    36903689    {
    36913690            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    36963695
    36973696/* Line 1464 of yacc.c  */
    3698 #line 1196 "grammar.y"
     3697#line 1195 "grammar.y"
    36993698    {
    37003699            if ((yyvsp[(3) - (4)].i)==QRING_CMD) (yyvsp[(3) - (4)].i)=RING_CMD;
    … …  
    37063705
    37073706/* Line 1464 of yacc.c  */
    3708 #line 1201 "grammar.y"
     3707#line 1200 "grammar.y"
    37093708    {
    37103709            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    37153714
    37163715/* Line 1464 of yacc.c  */
    3717 #line 1205 "grammar.y"
     3716#line 1204 "grammar.y"
    37183717    {
    37193718            list_cmd(RING_CMD,NULL,"// ",TRUE);
    … …  
    37243723
    37253724/* Line 1464 of yacc.c  */
    3726 #line 1209 "grammar.y"
     3725#line 1208 "grammar.y"
    37273726    {
    37283727            list_cmd((yyvsp[(3) - (4)].i),NULL,"// ",TRUE);
    … …  
    37333732
    37343733/* Line 1464 of yacc.c  */
    3735 #line 1213 "grammar.y"
     3734#line 1212 "grammar.y"
    37363735    {
    37373736            list_cmd(PROC_CMD,NULL,"// ",TRUE);
    … …  
    37423741
    37433742/* Line 1464 of yacc.c  */
    3744 #line 1217 "grammar.y"
     3743#line 1216 "grammar.y"
    37453744    {
    37463745            list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),"// ",TRUE);
    … …  
    37523751
    37533752/* Line 1464 of yacc.c  */
    3754 #line 1222 "grammar.y"
     3753#line 1221 "grammar.y"
    37553754    {
    37563755            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    37633762
    37643763/* Line 1464 of yacc.c  */
    3765 #line 1228 "grammar.y"
     3764#line 1227 "grammar.y"
    37663765    {
    37673766            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    37743773
    37753774/* Line 1464 of yacc.c  */
    3776 #line 1234 "grammar.y"
     3775#line 1233 "grammar.y"
    37773776    {
    37783777            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    37853784
    37863785/* Line 1464 of yacc.c  */
    3787 #line 1240 "grammar.y"
     3786#line 1239 "grammar.y"
    37883787    {
    37893788            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    37963795
    37973796/* Line 1464 of yacc.c  */
    3798 #line 1246 "grammar.y"
     3797#line 1245 "grammar.y"
    37993798    {
    38003799            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38073806
    38083807/* Line 1464 of yacc.c  */
    3809 #line 1252 "grammar.y"
     3808#line 1251 "grammar.y"
    38103809    {
    38113810            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38183817
    38193818/* Line 1464 of yacc.c  */
    3820 #line 1258 "grammar.y"
     3819#line 1257 "grammar.y"
    38213820    {
    38223821            if((yyvsp[(3) - (6)].lv).Typ() == PACKAGE_CMD)
    … …  
    38293828
    38303829/* Line 1464 of yacc.c  */
    3831 #line 1270 "grammar.y"
     3830#line 1269 "grammar.y"
    38323831    {
    38333832            list_cmd(-1,NULL,"// ",TRUE);
    … …  
    38383837
    38393838/* Line 1464 of yacc.c  */
    3840 #line 1276 "grammar.y"
     3839#line 1275 "grammar.y"
    38413840    { yyInRingConstruction = TRUE; ;}
    38423841    break;
    … …  
    38453844
    38463845/* Line 1464 of yacc.c  */
    3847 #line 1285 "grammar.y"
     3846#line 1284 "grammar.y"
    38483847    {
    38493848            const char *ring_name = (yyvsp[(2) - (8)].lv).name;
    … …  
    38833882
    38843883/* Line 1464 of yacc.c  */
    3885 #line 1318 "grammar.y"
     3884#line 1317 "grammar.y"
    38863885    {
    38873886            const char *ring_name = (yyvsp[(2) - (2)].lv).name;
    … …  
    38953894
    38963895/* Line 1464 of yacc.c  */
    3897 #line 1325 "grammar.y"
     3896#line 1324 "grammar.y"
    38983897    {
    38993898            yyInRingConstruction = FALSE;
    … …  
    39053904
    39063905/* Line 1464 of yacc.c  */
    3907 #line 1330 "grammar.y"
     3906#line 1329 "grammar.y"
    39083907    {
    39093908          #ifdef SINGULAR_4_1
    … …  
    39243923
    39253924/* Line 1464 of yacc.c  */
    3926 #line 1347 "grammar.y"
     3925#line 1346 "grammar.y"
    39273926    {
    39283927            if (((yyvsp[(1) - (2)].i)!=LIB_CMD)||(jjLOAD((yyvsp[(2) - (2)].name),TRUE))) YYERROR;
    … …  
    39333932
    39343933/* Line 1464 of yacc.c  */
    3935 #line 1356 "grammar.y"
     3934#line 1355 "grammar.y"
    39363935    {
    39373936            if (((yyvsp[(1) - (2)].i)==KEEPRING_CMD) && (myynest==0))
    39383937               MYYERROR("only inside a proc allowed");
    39393938            const char * n=(yyvsp[(2) - (2)].lv).Name();
    3940             if ((((yyvsp[(2) - (2)].lv).Typ()==RING_CMD)||((yyvsp[(2) - (2)].lv).Typ()==QRING_CMD))
     3939            if (((yyvsp[(2) - (2)].lv).Typ()==RING_CMD)
    39413940            && ((yyvsp[(2) - (2)].lv).rtyp==IDHDL))
    39423941            {
    … …  
    40034002
    40044003/* Line 1464 of yacc.c  */
    4005 #line 1424 "grammar.y"
     4004#line 1423 "grammar.y"
    40064005    {
    40074006            type_cmd(&((yyvsp[(2) - (2)].lv)));
    … …  
    40124011
    40134012/* Line 1464 of yacc.c  */
    4014 #line 1428 "grammar.y"
     4013#line 1427 "grammar.y"
    40154014    {
    40164015            //Print("typ is %d, rtyp:%d\n",$1.Typ(),$1.rtyp);
    … …  
    40404039
    40414040/* Line 1464 of yacc.c  */
    4042 #line 1457 "grammar.y"
     4041#line 1456 "grammar.y"
    40434042    {
    40444043            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
    … …  
    40584057
    40594058/* Line 1464 of yacc.c  */
    4060 #line 1470 "grammar.y"
     4059#line 1469 "grammar.y"
    40614060    {
    40624061            if (currentVoice->ifsw==1)
    … …  
    40804079
    40814080/* Line 1464 of yacc.c  */
    4082 #line 1487 "grammar.y"
     4081#line 1486 "grammar.y"
    40834082    {
    40844083            int i; TESTSETINT((yyvsp[(3) - (5)].lv),i);
    … …  
    40944093
    40954094/* Line 1464 of yacc.c  */
    4096 #line 1496 "grammar.y"
     4095#line 1495 "grammar.y"
    40974096    {
    40984097            if (exitBuffer(BT_break)) YYERROR;
    … …  
    41044103
    41054104/* Line 1464 of yacc.c  */
    4106 #line 1501 "grammar.y"
     4105#line 1500 "grammar.y"
    41074106    {
    41084107            if (contBuffer(BT_break)) YYERROR;
    … …  
    41144113
    41154114/* Line 1464 of yacc.c  */
    4116 #line 1509 "grammar.y"
     4115#line 1508 "grammar.y"
    41174116    {
    41184117            /* -> if(!$2) break; $3; continue;*/
    … …  
    41284127
    41294128/* Line 1464 of yacc.c  */
    4130 #line 1521 "grammar.y"
     4129#line 1520 "grammar.y"
    41314130    {
    41324131            /* $2 */
    … …  
    41494148
    41504149/* Line 1464 of yacc.c  */
    4151 #line 1540 "grammar.y"
     4150#line 1539 "grammar.y"
    41524151    {
    41534152            idhdl h = enterid((yyvsp[(2) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
    … …  
    41644163
    41654164/* Line 1464 of yacc.c  */
    4166 #line 1550 "grammar.y"
     4165#line 1549 "grammar.y"
    41674166    {
    41684167            idhdl h = enterid((yyvsp[(1) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
    … …  
    41884187
    41894188/* Line 1464 of yacc.c  */
    4190 #line 1569 "grammar.y"
     4189#line 1568 "grammar.y"
    41914190    {
    41924191            omFree((ADDRESS)(yyvsp[(3) - (4)].name));
    … …  
    42134212
    42144213/* Line 1464 of yacc.c  */
    4215 #line 1592 "grammar.y"
     4214#line 1591 "grammar.y"
    42164215    {
    42174216            // decl. of type proc p(int i)
    … …  
    42244223
    42254224/* Line 1464 of yacc.c  */
    4226 #line 1598 "grammar.y"
     4225#line 1597 "grammar.y"
    42274226    {
    42284227            // decl. of type proc p(i)
    … …  
    42384237
    42394238/* Line 1464 of yacc.c  */
    4240 #line 1610 "grammar.y"
     4239#line 1609 "grammar.y"
    42414240    {
    42424241            iiRETURNEXPR.Copy(&(yyvsp[(3) - (4)].lv));
    … …  
    42494248
    42504249/* Line 1464 of yacc.c  */
    4251 #line 1616 "grammar.y"
     4250#line 1615 "grammar.y"
    42524251    {
    42534252            if ((yyvsp[(1) - (3)].i)==RETURN)
    … …  
    42634262
    42644263/* Line 1464 of yacc.c  */
    4265 #line 4264 "grammar.cc"
     4264#line 4263 "grammar.cc"
    42664265      default: break;
    42674266    }

  • Singular/grammar.y

    rc12c262 rd2fc5c5  
    6262  {
    6363    if ((IDTYP(r)==PACKAGE_CMD)
    64     || (IDTYP(r)==RING_CMD)
    65     || (IDTYP(r)==QRING_CMD))
     64    || (IDTYP(r)==RING_CMD))
    6665    {
    6766      h=IDPACKAGE(r)->idroot->get(nn,myynest);
    … …  
    13581357               MYYERROR("only inside a proc allowed");
    13591358            const char * n=$2.Name();
    1360             if ((($2.Typ()==RING_CMD)||($2.Typ()==QRING_CMD))
     1359            if (($2.Typ()==RING_CMD)
    13611360            && ($2.rtyp==IDHDL))
    13621361            {

  • Singular/iparith.cc

    rc12c262 rd2fc5c5  
    51785178  if (rIsPluralRing(r))
    51795179  {
    5180     //    ideal   i;
    5181 //     if (a->rtyp == QRING_CMD)
    5182 //     {
    5183 //       i = r->qideal;
    5184 //       r->qideal = NULL;
    5185 //     }
    51865180    ring s = rEnvelope(r);
    5187 //     if (a->rtyp == QRING_CMD)
    5188 //     {
    5189 //       ideal is  = idOppose(r,i); /* twostd? */
    5190 //       is        = idAdd(is,i);
    5191 //       s->qideal = i;
    5192 //     }
    51935181    res->data = s;
    51945182  }
    … …  
    52255213    case PROC_CMD:
    52265214    case RING_CMD:
    5227     case QRING_CMD:
     5215    //case QRING_CMD:
    52285216    case INTMAT_CMD:
    52295217    case BIGINTMAT_CMD:
    … …  
    69976985  if ((perm_var_l->Typ()!=INTVEC_CMD)
    69986986  ||((perm_par_l!=NULL)&&(perm_par_l->Typ()!=INTVEC_CMD))
    6999   ||((u->Typ()!=RING_CMD)&&(u->Typ()!=QRING_CMD)))
     6987  ||(u->Typ()!=RING_CMD))
    70006988  {
    70016989    WerrorS("fetch(<ring>,<name>[,<intvec>[,<intvec>])");
    … …  
    75297517        return TRUE;
    75307518      }
    7531       if ((rt==RING_CMD)||(rt==QRING_CMD))
     7519      if (rt==RING_CMD)
    75327520      {
    75337521        L->m[i].rtyp=rt;  L->m[i].data=h->Data();

  • Singular/ipassign.cc

    rc12c262 rd2fc5c5  
    11001100    if (TEST_V_ALLWARN
    11011101    && (rt!=RING_CMD)
    1102     && (rt!=QRING_CMD)
    11031102    && (l->name!=NULL)
    11041103    && (l->e==NULL)
    … …  
    11331132  if (l->rtyp==IDHDL)
    11341133  {
    1135     if ((lt!=QRING_CMD)&&(lt!=RING_CMD))
     1134    if (lt!=RING_CMD)
    11361135      ld=(leftv)l->data;
    11371136  }
    … …  
    14091408      goto err;
    14101409    }
    1411     //if ((rt==RING_CMD)||(rt==QRING_CMD))
     1410    //if (rt==RING_CMD)
    14121411    //{
    14131412    //  L->m[i].rtyp=rt;
    … …  
    19711970    {
    19721971      // first element in the list sl (r) must be a ring
    1973       if (((rt == RING_CMD)||(rt == QRING_CMD))&&(r->e==NULL))
     1972      if ((rt == RING_CMD)&&(r->e==NULL))
    19741973      {
    19751974        omFree((ADDRESS)IDMAP((idhdl)l->data)->preimage);

  • Singular/ipid.cc

    rc12c262 rd2fc5c5  
    373373{
    374374  int t=IDTYP(h);
    375   if (((BEGIN_RING<t) && (t<END_RING) && (t!=QRING_CMD))
     375  if (((BEGIN_RING<t) && (t<END_RING))
    376376  || ((t==LIST_CMD) && (lRingDependend((lists)IDDATA(h)))))
    377377    killhdl2(h,&currRing->idroot,currRing);
    … …  
    450450    iiCheckPack(currPack);
    451451  }
    452   else if ((IDTYP(h)==RING_CMD)||(IDTYP(h)==QRING_CMD))
     452  else if (IDTYP(h)==RING_CMD)
    453453    rKill(h);
    454454  else if (IDDATA(h)!=NULL)
    … …  
    606606  if ((currRing!=NULL)&&(tomove!=NULL))
    607607  {
    608     if (((QRING_CMD!=IDTYP(tomove)) && RingDependend(IDTYP(tomove)))
     608    if (RingDependend(IDTYP(tomove))
    609609    || ((IDTYP(tomove)==LIST_CMD) && (lRingDependend(IDLIST(tomove)))))
    610610    {

  • Singular/ipprint.cc

    rc12c262 rd2fc5c5  
    55* ABSTRACT: interpreter: printing
    66*/
    7 
    8 
    9 
    107
    118#include <kernel/mod2.h>
    … …  
    296293
    297294      case RING_CMD:
    298       case QRING_CMD:
    299295        bo=ipPrint_RING(u);
    300296        break;

  • Singular/ipshell.cc

    rc12c262 rd2fc5c5  
    215215    case LIST_CMD: Print(", size: %d",IDLIST(h)->nr+1);
    216216                   break;
    217     case QRING_CMD:
    218217    case RING_CMD:
    219218                   if ((IDRING(h)==currRing) && (currRingHdl!=h))
    … …  
    267266    case PROC_CMD:
    268267    case RING_CMD:
    269     case IDEAL_CMD:
    270     case QRING_CMD: PrintLn(); break;
     268    case IDEAL_CMD: PrintLn(); break;
    271269
    272270    //case INT_CMD:
    … …  
    339337      h=IDNEXT(h);
    340338    }
    341     else if ((IDTYP(h)==RING_CMD)
    342     ||(IDTYP(h)==QRING_CMD))
     339    else if (IDTYP(h)==RING_CMD)
    343340    {
    344341      if ((IDRING(h)!=NULL) && (IDRING(h)->idroot!=NULL))
    … …  
    366363    leftv h=&(L->m[n]);
    367364    void *d=h->data;
    368     if (((h->rtyp==RING_CMD) || (h->rtyp==QRING_CMD))
     365    if ((h->rtyp==RING_CMD)
    369366    && (((ring)d)->idroot!=NULL))
    370367    {
    … …  
    390387  {
    391388    int t=iiRETURNEXPR.Typ();
    392     if ((/*iiRETURNEXPR.Typ()*/ t==RING_CMD)
    393     || (/*iiRETURNEXPR.Typ()*/ t==QRING_CMD))
     389    if (/*iiRETURNEXPR.Typ()*/ t==RING_CMD)
    394390    {
    395391      leftv h=&iiRETURNEXPR;
    … …  
    441437        if (IDTYP(h)==ALIAS_CMD) PrintS("A");
    442438        if ((IDTYP(h)==RING_CMD)
    443             || (IDTYP(h)==QRING_CMD)
    444439            //|| (IDTYP(h)==PACKE_CMD)
    445440        )
    … …  
    488483    #ifdef SINGULAR_4_1
    489484    || ((IDTYP(h)==CRING_CMD) && (typ==RING_CMD))
    490     #else
    491     || ((IDTYP(h)==QRING_CMD) && (typ==RING_CMD))
    492485    #endif
    493486    )
    494487    {
    495488      list1(prefix,h,start==currRingHdl, fullname);
    496       if (((IDTYP(h)==RING_CMD)||(IDTYP(h)==QRING_CMD))
     489      if ((IDTYP(h)==RING_CMD)
    497490        && (really_all || (all && (h==currRingHdl)))
    498491        && ((IDLEV(h)==0)||(IDLEV(h)==myynest)))
    … …  
    623616  r=IDROOT->get(theMap->preimage,myynest);
    624617  if ((currPack!=basePack)
    625   &&((r==NULL) || ((r->typ != RING_CMD) && (r->typ != QRING_CMD))))
     618  &&((r==NULL) || ((r->typ != RING_CMD) )))
    626619    r=basePack->idroot->get(theMap->preimage,myynest);
    627620  if ((r==NULL) && (currRingHdl!=NULL)
    … …  
    630623    r=currRingHdl;
    631624  }
    632   if ((r!=NULL) && ((r->typ == RING_CMD) || (r->typ== QRING_CMD)))
     625  if ((r!=NULL) && (r->typ == RING_CMD))
    633626  {
    634627    ring src_ring=IDRING(r);
    … …  
    13141307      if (IDTYP(h)==v->Typ())
    13151308      {
    1316         if (((IDTYP(h)==RING_CMD)||(IDTYP(h)==QRING_CMD))
     1309        if ((IDTYP(h)==RING_CMD)
    13171310        && (v->Data()==IDDATA(h)))
    13181311        {
    … …  
    57765769    cf = nInitChar(n_transExt, &extParam);
    57775770  }
    5778   else if ((pn->Typ()==QRING_CMD) && (P == 1)) // same for qrings - which should be fields!?
    5779   {
    5780     AlgExtInfo extParam;
    5781     extParam.r = (ring)pn->Data();
    5782 
    5783     cf = nInitChar(n_algExt, &extParam);   // Q[a]/<minideal>
    5784   }
     5771  //else if ((pn->Typ()==QRING_CMD) && (P == 1)) // same for qrings - which should be fields!?
     5772  //{
     5773  //  AlgExtInfo extParam;
     5774  //  extParam.r = (ring)pn->Data();
     5775
     5776  //  cf = nInitChar(n_algExt, &extParam);   // Q[a]/<minideal>
     5777  //}
    57855778  else
    57865779  {
    … …  
    61316124  while (h!=NULL)
    61326125  {
    6133     if (((IDTYP(h)==RING_CMD)||(IDTYP(h)==QRING_CMD))
     6126    if ((IDTYP(h)==RING_CMD)
    61346127    && (h!=n)
    61356128    && (IDRING(h)==r)
    … …  
    64096402BOOLEAN iiAssignCR(leftv r, leftv arg)
    64106403{
     6404  char* ring_name=omStrDup((char*)r->Name());
    64116405  int t=arg->Typ();
    6412   char* ring_name=omStrDup((char*)r->Name());
    6413   if ((t==RING_CMD) ||(t==QRING_CMD))
     6406  if (t==RING_CMD)
    64146407  {
    64156408    sleftv tmp;

  • Singular/links/asciiLink.cc

    rc12c262 rd2fc5c5  
    248248  // need to set the ring before writing it, otherwise we get in
    249249  // trouble with minpoly
    250   if (IDTYP(h) == RING_CMD || IDTYP(h) == QRING_CMD)
     250  if (IDTYP(h) == RING_CMD)
    251251    rSetHdl(h);
    252252
    253253  if (DumpAsciiIdhdl(fd, h,list_of_libs)) return TRUE;
    254254
    255   if (IDTYP(h) == RING_CMD || IDTYP(h) == QRING_CMD)
     255  if (IDTYP(h) == RING_CMD)
    256256    return DumpAscii(fd, IDRING(h)->idroot,list_of_libs);
    257257  else
    … …  
    264264  if (DumpAsciiMaps(fd, IDNEXT(h), rhdl)) return TRUE;
    265265
    266   if (IDTYP(h) == RING_CMD || IDTYP(h) == QRING_CMD)
     266  if (IDTYP(h) == RING_CMD)
    267267    return DumpAsciiMaps(fd, IDRING(h)->idroot, h);
    268268  else if (IDTYP(h) == MAP_CMD)
    … …  
    524524    omFree(rhs);
    525525
    526     if ((type_id == RING_CMD || type_id == QRING_CMD) &&
     526    if ((type_id == RING_CMD) &&
    527527        IDRING(h)->cf->type==n_algExt)
    528528    {

  • Singular/links/ssiLink.cc

    rc12c262 rd2fc5c5  
    14481448                          ssiWriteNumber(d,(number)dd);
    14491449                        break;
    1450           case QRING_CMD:
    14511450          case RING_CMD:fputs("5 ",d->f_write);
    14521451                        ssiWriteRing(d,(ring)dd);
    … …  
    20222021  }
    20232022
    2024   // handle qrings separately
    2025   //if (type_id == QRING_CMD)
    2026   //  return DumpSsiQringQring(l, h);
    2027 
    20282023  // put type and name
    20292024  //Print("generic dump:%s,%s\n",IDID(h),Tok2Cmdname(IDTYP(h)));
    … …  
    20462041  // need to set the ring before writing it, otherwise we get in
    20472042  // trouble with minpoly
    2048   if (IDTYP(h) == RING_CMD || IDTYP(h) == QRING_CMD)
     2043  if (IDTYP(h) == RING_CMD)
    20492044    rSetHdl(h);
    20502045
    … …  
    20532048  // do not dump ssi internal rings: ssiRing*
    20542049  // but dump objects of all other rings
    2055   if ((IDTYP(h) == RING_CMD || IDTYP(h) == QRING_CMD)
     2050  if ((IDTYP(h) == RING_CMD)
    20562051  && (strncmp(IDID(h),"ssiRing",7)!=0))
    20572052    return ssiDumpIter(l, IDRING(h)->idroot);

  • Singular/lists.cc

    rc12c262 rd2fc5c5  
    203203  while (i<=L->nr)
    204204  {
    205     if ((L->m[i].rtyp!=QRING_CMD)
    206     && (BEGIN_RING<L->m[i].rtyp)
     205    if ((BEGIN_RING<L->m[i].rtyp)
    207206    && (L->m[i].rtyp<END_RING))
    208207      return TRUE;

  • Singular/misc_ip.cc

    rc12c262 rd2fc5c5  
    970970          Print("::%s, typ %s level %d data %lx",
    971971                 IDID(hh),Tok2Cmdname(IDTYP(hh)),IDLEV(hh),(long)IDDATA(hh));
    972           if ((IDTYP(hh)==RING_CMD)
    973           || (IDTYP(hh)==QRING_CMD))
     972          if (IDTYP(hh)==RING_CMD)
    974973            Print(" ref: %d\n",IDRING(hh)->ref);
    975974          else
    … …  
    986985        else
    987986        if ((IDTYP(hh)==RING_CMD)
    988         || (IDTYP(hh)==QRING_CMD)
    989987        || (IDTYP(hh)==PACKAGE_CMD))
    990988        {
    … …  
    996994            {
    997995              if ((IDDATA(h2)==(void *)currRing)
    998               && ((IDTYP(h2)==RING_CMD)||(IDTYP(h2)==QRING_CMD)))
     996              && (IDTYP(h2)==RING_CMD))
    999997                PrintS("(R)");
    1000998              else if (IDDATA(h2)==(void *)currPack) PrintS("(P)");

  • Singular/subexpr.cc

    rc12c262 rd2fc5c5  
    134134          break;
    135135        case RING_CMD:
    136         case QRING_CMD:
    137136        {
    138137          PrintNSpaces(spaces);
    … …  
    393392{
    394393  int rt=Typ();
    395   if(::RingDependend(rt) && (rt!=QRING_CMD))
     394  if(::RingDependend(rt))
    396395    return TRUE;
    397396  if (rt==LIST_CMD)
    … …  
    449448      return (void *)slCopy((si_link) d);
    450449    case RING_CMD:
    451     case QRING_CMD:
    452450      {
    453451        ring r=(ring)d;
    … …  
    567565    }
    568566    case RING_CMD:
    569     case QRING_CMD:
    570567    {
    571568      ring R=(ring)d;
    … …  
    905902
    906903        case RING_CMD:
    907         case QRING_CMD:
    908904          s  = rString((ring)d);
    909905
Note: See TracChangeset for help on using the changeset viewer.