Mercurial > octave-nkf

diff src/lex.l @ 620:8e4e7e5f307e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-08-16 04:36:32 by jwe]
author jwe
date Tue, 16 Aug 1994 04:36:32 +0000
parents 60f885cd0d87
children 739d16c30481
line wrap: on
line diff
--- a/src/lex.l	Mon Aug 15 04:54:33 1994 +0000
+++ b/src/lex.l	Tue Aug 16 04:36:32 1994 +0000
@@ -414,8 +414,7 @@
 			    TOK_RETURN (']');
 			}
 
-{D}+{EXPON}?{Im}	|
-{D}+\.{D}*{EXPON}?{Im}	|
+{D}+\.?{D}*{EXPON}?{Im}	|
 \.{D}+{EXPON}?{Im}	{
 			  double value;
 			  int nread = sscanf (yytext, "%lf", &value);
@@ -434,8 +433,8 @@
 			  return IMAG_NUM;
 			}
 
-{D}+{EXPON}?		|
-{D}+\.{D}*{EXPON}?	|
+{D}+/\.[\*/\\^']	|
+{D}+\.?{D}*{EXPON}?	|
 \.{D}+{EXPON}?		|
 			{
 			  double value;