blob: 9c5b1c961bd9bfc3b4ad8a6f097746965e59dbdb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
|
