Richard O'Keefe's whole float DFA

jchris · Jul 30, 2008 · 2673dc0 · 2673dc0
1 parent c754ad9
commit 2673dc0
Show file tree

Hide file tree

Showing 5 changed files with 12 additions and 6 deletions.
diff --git a/json_eep.beam b/json_eep.beam
diff --git a/json_grammar.beam b/json_grammar.beam
diff --git a/json_lex2.beam b/json_lex2.beam
diff --git a/json_lex2.erl b/json_lex2.erl
@@ -20,9 +20,12 @@
 
 strip(TokenChars,TokenLen) -> lists:sublist(TokenChars, 2, TokenLen - 2).
 
-whole_float(TokenChars) ->
+whole_float(Token_Chars) ->
-  {ok, NowFloat, 1 } = regexp:sub(TokenChars,"e",".0e"),
+       list_to_float(insert_point_zero(Token_Chars)).
-  list_to_float(NowFloat).
+
+insert_point_zero([$e|Cs]) -> ".0e" ++ Cs;
+insert_point_zero([$E|Cs]) -> ".0e" ++ Cs;
+insert_point_zero([C |Cs]) -> [C | insert_point_zero(Cs)].
 
 unescape([$\\,$\"|Cs]) -> [$\"|unescape(Cs)];
 unescape([$\\,$\\|Cs]) -> [$\\|unescape(Cs)];

diff --git a/json_lex2.xrl b/json_lex2.xrl
@@ -43,9 +43,12 @@ Erlang code.
 
 strip(TokenChars,TokenLen) -> lists:sublist(TokenChars, 2, TokenLen - 2).
 
-whole_float(TokenChars) ->
+whole_float(Token_Chars) ->
-  {ok, NowFloat, 1 } = regexp:sub(TokenChars,"e",".0e"),
+       list_to_float(insert_point_zero(Token_Chars)).
-  list_to_float(NowFloat).
+
+insert_point_zero([$e|Cs]) -> ".0e" ++ Cs;
+insert_point_zero([$E|Cs]) -> ".0e" ++ Cs;
+insert_point_zero([C |Cs]) -> [C | insert_point_zero(Cs)].
 
 unescape([$\\,$\"|Cs]) -> [$\"|unescape(Cs)];
 unescape([$\\,$\\|Cs]) -> [$\\|unescape(Cs)];