diff options
Diffstat (limited to 'caux.sml')
| -rw-r--r-- | caux.sml | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/caux.sml b/caux.sml new file mode 100644 index 0000000..9c5b1c9 --- /dev/null +++ b/caux.sml @@ -0,0 +1,16 @@ +local + fun parse parse_fp repr = + let + val status = ref 0 + val result = parse_fp (repr ^ str #"\000", status) + in + (!status, result) + end + + val parse_float = _import "parse_float": string * int ref -> Real32.real; + val parse_double = + _import "parse_float": string * int ref -> Real64.real; +in + val parseFloat = parse parse_float + val parseDouble = parse parse_double +end |