(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Pierre Weis, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 2002 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the GNU Library General Public License, with *)
(* the special exception on linking described in file ../LICENSE. *)
(* *)
(***********************************************************************)
(* $Id$ *)
(** Formatted input functions. *)
(** {6 Scanning buffers} *)
module Scanning : sig
type scanbuf;;
(** The type of scanning buffers. A scanning buffer is the argument passed
to the scanning functions used by the [scanf] family of functions.
The scanning buffer holds the current state of the scan, plus
a function to get the next char from the input, and a token buffer
to store the string matched so far. *)
val from_string : string -> scanbuf;;
(** [Scanning.from_string s] returns a scanning buffer which reads
from the given string.
Reading starts from the first character in the string.
The end-of-input condition is set when the end of the string is reached. *)
val from_channel : in_channel -> scanbuf;;
(** [Scanning.from_channel inchan] returns a scanning buffer which reads
from the input channel [inchan], at the current reading position. *)
val from_function : (unit -> char) -> scanbuf;;
(** [Scanning.from_function f] returns a scanning buffer with
the given function as its reading method.
When scanning needs one more character, the given function is called.
When the function has no more character to provide, it must set
an end of input condition by raising the exception [End_of_file]. *)
end;;
exception Scan_failure of string;;
(** The exception that formatted input functions raise when the input
cannot be read according to the given format. *)
val bscanf :
Scanning.scanbuf -> ('a, Scanning.scanbuf, 'b) format -> 'a -> 'b;;
(** [bscanf ib format f] reads tokens from the scanning buffer [ib] according
to the format string [format], converts these tokens to values, and
applies the function [f] to these values.
The result of this application of [f] is the result of the whole construct.
Raise [Scanf.Scan_failure] if the given input does not match the format.
Raise [End_of_file] if the end of input is encountered while scanning
and the input matches the given format so far.
The format is a character string which contains three types of
objects:
- plain characters, which are simply matched with the
characters of the input,
- conversion specifications, each of which causes reading and
conversion of one argument for [f],
- scanning indications to specify boundaries of tokens and the
amount of space to skip between tokens.
Among plain characters the white space character (ASCII code 32) has a
special meaning: it matches a ``space'', that is any number of tab,
white space, newline and return. Hence, a space in the format
matches any number of white spaces in the input.
Conversion specifications consist in the [%] character, followed
by optional field width, followed by one or two conversion
characters. The conversion characters and their meanings are:
- [d]: reads an optionally signed decimal integer.
- [i]: reads an optionally signed integer
(usual input formats for hexadecimal ([0x\[d\]+] and [0X\[d+\]]),
octal ([0o\[d\]+]), and binary [0b\[d\]+] notations are understood).
- [u]: reads an unsigned decimal integer.
- [x]: reads an unsigned hexadecimal integer with lowercase letters.
- [X]: reads an unsigned hexadecimal integer with uppercase letters.
- [o]: reads an unsigned octal integer.
- [s]: reads a string argument (by default strings end with a space).
- [S]: reads a delimited string argument (delimiters and special
escaped characters follow the lexical conventions of Objective Caml).
- [c]: reads a single character.
- [C]: reads a single delimited character (delimiters and special
escaped characters follow the lexical conventions of Objective Caml).
- [f], [e], [E], [g], [G]: reads an optionally signed floating-point number
in decimal notation, in the style [dddd.ddd e/E+-dd].
- [b]: reads a boolean argument ([true] or [false]).
- [ld], [li], [lu], [lx], [lX], [lo]: reads an [int32] argument to
the format specified by the second letter (decimal, hexadecimal, etc).
- [nd], [ni], [nu], [nx], [nX], [no]: reads a [nativeint] argument to
the format specified by the second letter.
- [Ld], [Li], [Lu], [Lx], [LX], [Lo]: reads an [int64] argument to
the format specified by the second letter.
- [\[ range \]]: reads characters that matches one of the characters
mentioned in the range of characters [range] (or not mentioned in
it, if the range starts by [^]). Returns a [string] that can be
empty, if no character in the input matches the range.
- [N]: applies [f] to the number of characters read so far.
- [%]: matches one [%] character in the input.
The field widths are composed of an optional integer literal
indicating the maximal width of the token to read.
For instance, [%6d] reads an integer, having at most 6 decimal digits;
and [%4f] reads a float with 4 characters.
The scanning indications are introduced by a [@] character, followed
by any character [c], that matches a plain [c] character in the
input. If a scanning indication immediately follows a [s]
conversion specification, it specifies the boundary of the token
(that is the character immediately after the end of the token). For
instance, ["%s@\t"] reads the string preceding the next tabulation
character.
Note: the [scanf] facility is not intended for heavy duty
lexing and parsing; if you need efficient language syntactic analysis,
use the corresponding devoted libraries. *)
val fscanf : in_channel -> ('a, Scanning.scanbuf, 'b) format -> 'a -> 'b;;
(** Same as {!Scanf.bscanf}, but inputs from the channel argument. *)
val sscanf : string -> ('a, Scanning.scanbuf, 'b) format -> 'a -> 'b;;
(** Same as {!Scanf.bscanf}, but inputs from the string argument. *)
val scanf : ('a, Scanning.scanbuf, 'b) format -> 'a -> 'b;;
(** Same as {!Scanf.bscanf}, but inputs from [stdin]. *)
val kscanf :
Scanning.scanbuf -> ('a, 'b, 'c) format -> 'a ->
(Scanning.scanbuf -> exn -> 'c) -> 'c;;
(** Same as {!Scanf.bscanf}, but takes an additional function argument
[ef] that is called in case of error: if the scanning process or
some convertion fails, the scanning function aborts and applies the
scanning buffer and the exception that aborted evaluation to the error
continuation [ef]. *)