diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-07-01 16:30:12 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-07-01 16:30:12 +0000 |
| commit | b37e53cef16bf6aded16336633c0ee1215794e5d (patch) | |
| tree | 8127896e5ea51f7a4e43ffa27f92019797e6a9f2 /stdlib/scanf.ml | |
| parent | 49ee5083e28087c6213cc71d1df3b32c65543a56 (diff) | |
PR#1675, voir aussi PR#1438
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5641 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/scanf.ml')
| -rw-r--r-- | stdlib/scanf.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/scanf.ml b/stdlib/scanf.ml index 6d0c43de6..278ef1cf4 100644 --- a/stdlib/scanf.ml +++ b/stdlib/scanf.ml @@ -659,7 +659,7 @@ let kscanf ib ef fmt f = let x = if conv = 'c' then scan_char max ib else scan_Char max ib in scan_fmt (stack f (token_char ib)) (i + 1) - | 'b' | 'd' | 'i' | 'o' | 'u' | 'x' | 'X' as conv -> + | 'd' | 'i' | 'o' | 'u' | 'x' | 'X' as conv -> let x = scan_int conv max ib in scan_fmt (stack f (token_int conv ib)) (i + 1) | 'f' | 'g' | 'G' | 'e' | 'E' | 'F' -> @@ -677,7 +677,7 @@ let kscanf ib ef fmt f = | 'S' -> let x = scan_String max ib in scan_fmt (stack f (token_string ib)) (i + 1) - | 'B' -> + | 'B' | 'b' -> let x = scan_bool max ib in scan_fmt (stack f (token_bool ib)) (i + 1) | 'l' | 'n' | 'L' as t -> @@ -686,7 +686,7 @@ let kscanf ib ef fmt f = let x = Scanning.char_count ib in scan_fmt (stack f x) i else begin match fmt.[i] with - | 'b' | 'd' | 'i' | 'o' | 'u' | 'x' | 'X' as conv -> + | 'd' | 'i' | 'o' | 'u' | 'x' | 'X' as conv -> let x = scan_int conv max ib in begin match t with | 'l' -> scan_fmt (stack f (token_int32 conv ib)) (i + 1) |