Changeset b7b08c in git for Singular/scanner.l

Timestamp:

Oct 14, 1999, 4:27:35 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

548777d246af408b77296a71c16c980b2cef5b35

Parents:

e960943ba1dcfcb333014a2aee474750e8fafe10

Message:

* us short exponent vectors in divisbility tests
* AllocSizeOf
* garbage collection
* scanner/gmp: allow .0 and 1. input of reals


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

File:

• Singular/scanner.l (modified) (4 diffs)

Singular/scanner.l

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: scanner.l,v 1.21 1999-07-20 12:29:50 Singular Exp $ */
+/* $Id: scanner.l,v 1.22 1999-10-14 14:27:29 obachman Exp $ */
 #include <stdio.h>
 #include <string.h>
@@ -73 +73 @@
 monom          {letter}+{digit}*
 rgvars         ({digit}+[/])*{digit}+{monom}+
-realnum        {digit}+"."{digit}+("e"[+-]{digit}+)?
+realnum        {digit}*"."{digit}+("e"[+-]{digit}+)?
 name           ({letter}({letter}*{digit}*_*)*|_)
 parname        #
@@ -267 +267 @@
                            return RINGVAR;
                          }
-\$                       {
+\$                        {
                            m2_end(-1);
                          }
@@ -286 +286 @@
                            return RINGVAR;
                          }
-
+[0-9]+\."e"[+-][0-9]+    { 
+                           lvalp->name = (char *)yytext;
+                           return RINGVAR;
+                         }
+[0-9]+\./[^\.]           {
+                           lvalp->name = (char *)yytext;
+                           return RINGVAR;
+                         }
+       
 ({parname}|{name})       {
                            /* {name} */