diff options
| author | krasimir <krasimir@chalmers.se> | 2010-02-08 12:59:22 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-02-08 12:59:22 +0000 |
| commit | 64da1c2021d329b12885b7bde48ee5c11ef27cf1 (patch) | |
| tree | b8b759aba859c4c07e73c2436312aa9826f49db0 /src/compiler | |
| parent | a1c70841c1b18e8dec1826478c670891d14f413d (diff) | |
allow negative integers in the grammar syntax
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Grammar/Lexer.x | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Grammar/Lexer.x b/src/compiler/GF/Grammar/Lexer.x index d6f49bbb1..b776668a3 100644 --- a/src/compiler/GF/Grammar/Lexer.x +++ b/src/compiler/GF/Grammar/Lexer.x @@ -36,8 +36,8 @@ $white+ ; \" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \" { tok (T_String . unescapeInitTail . BS.unpack) } -$d+ { tok (T_Integer . read . BS.unpack) } -$d+ \. $d+ (e (\-)? $d+)? { tok (T_Double . read . BS.unpack) } +(\-)? $d+ { tok (T_Integer . read . BS.unpack) } +(\-)? $d+ \. $d+ (e (\-)? $d+)? { tok (T_Double . read . BS.unpack) } { |