cvsuser 04/05/07 11:43:40
Modified: imcc imcc.l
t/op number.t
Log:
dot digit lexer fix by Dan
Revision Changes Path
1.98 +1 -1 parrot/imcc/imcc.l
Index: imcc.l
===================================================================
RCS file: /cvs/public/parrot/imcc/imcc.l,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -w -r1.97 -r1.98
--- imcc.l 23 Apr 2004 09:20:30 -0000 1.97
+++ imcc.l 7 May 2004 18:43:34 -0000 1.98
@@ -84,7 +84,7 @@
BIN 0b[01]+
DOT [.]
SIGN [-+]
-FLOATNUM {SIGN}?{DIGITS}{DOT}{DIGIT}*([eE]{SIGN}?{DIGITS})?
+FLOATNUM {SIGN}?({DIGITS}{DOT}{DIGIT}*|{DOT}{DIGITS})([eE]{SIGN}?{DIGITS})?
LETTERDIGIT [a-zA-Z0-9_]
LABELLETTERDIGIT ([EMAIL PROTECTED]|"::")
ID {LETTER}{LABELLETTERDIGIT}*
1.35 +11 -2 parrot/t/op/number.t
Index: number.t
===================================================================
RCS file: /cvs/public/parrot/t/op/number.t,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -w -r1.34 -r1.35
--- number.t 8 Mar 2004 00:19:58 -0000 1.34
+++ number.t 7 May 2004 18:43:39 -0000 1.35
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: number.t,v 1.34 2004/03/08 00:19:58 chromatic Exp $
+# $Id: number.t,v 1.35 2004/05/07 18:43:39 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 38;
+use Parrot::Test tests => 39;
use Test::More;
output_is(<<CODE, <<OUTPUT, "set_n_nc");
@@ -1065,6 +1065,15 @@
CODE
12.500000
0.000000
+OUTPUT
+
+output_is(<<'CODE', <<OUTPUT, ".dig parsing");
+ set N0, .5
+ print N0
+ print "\n"
+ end
+CODE
+0.500000
OUTPUT
1;
