Changeset 34fbd93 in git for Singular/grammar.y


Ignore:
Timestamp:
Jul 9, 1999, 4:58:30 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
6959c49751ce060112fd62dace5b8f7590c72602
Parents:
609ba11e29d4d3c44b5785da0728121bbc8e0065
Message:
* hannes: ring r=(real,20,I),x,lp; <==> ring r=(real(20),I),x,lp;
          error message for CMD_M fixed (see coef("1","2");)
	  (grammar.y iparith.cc ipshell.h scanner.l subexpr.cc)


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

Legend:

Unmodified
Added
Removed

  • Singular/grammar.y

    r609ba11 r34fbd93  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.61 1999-05-29 12:00:01 Singular Exp $ */
     4/* $Id: grammar.y,v 1.62 1999-07-09 14:58:24 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
    … …  
    5858char       my_yylinebuf[80];
    5959char *     currid;
    60 BOOLEAN    noringvars=FALSE;
     60BOOLEAN    yyInRingConstruction=FALSE;
    6161BOOLEAN    expected_parms;
    6262int        cmdtok;
    … …  
    364364            siq=0;
    365365            #endif
    366             noringvars = FALSE;
     366            yyInRingConstruction = FALSE;
    367367            currentVoice->ifsw=0;
    368368            if (inerror)
    … …  
    941941        UNKNOWN_IDENT
    942942        {
    943 #if 0         
    944           if (!($$=rOrderName($1)))
    945             YYERROR;
    946 #else
    947943          // let rInit take care of any errors
    948944          $$=rOrderName($1);
    949 #endif         
    950945        }
    951946        ;
    … …  
    13091304
    13101305ringcmd1:
    1311        RING_CMD { noringvars = TRUE; }
     1306       RING_CMD { yyInRingConstruction = TRUE; }
    13121307       ;
    13131308
    … …  
    13431338            $6.CleanUp();
    13441339            $8.CleanUp();
    1345             noringvars = FALSE;
     1340            yyInRingConstruction = FALSE;
    13461341            if (b==NULL)
    13471342            {
    … …  
    13711366            if(do_pop) namespaceroot->pop();
    13721367#endif /* HAVE_NAMESPACES */
    1373             noringvars = FALSE;
    1374           }
    1375         | DRING_CMD { noringvars = TRUE; }
     1368            yyInRingConstruction = FALSE;
     1369          }
     1370        | DRING_CMD { yyInRingConstruction = TRUE; }
    13761371          elemexpr cmdeq
    13771372          rlist     ','       /* description of coeffs */
    … …  
    14121407            rDSet();
    14131408            #endif
    1414             noringvars = FALSE;
     1409            yyInRingConstruction = FALSE;
    14151410          }
    14161411        ;
Note: See TracChangeset for help on using the changeset viewer.