1995-08-09 08:06:35 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
1996-04-30 07:53:58 -07:00
|
|
|
(* Objective Caml *)
|
1995-08-09 08:06:35 -07:00
|
|
|
(* *)
|
2005-09-20 10:18:03 -07:00
|
|
|
(* Xavier Leroy and Pierre Weis, projet Cristal, INRIA Rocquencourt *)
|
1995-08-09 08:06:35 -07:00
|
|
|
(* *)
|
1996-04-30 07:53:58 -07:00
|
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
1999-11-17 10:59:06 -08:00
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
2001-12-07 05:41:02 -08:00
|
|
|
(* under the terms of the GNU Library General Public License, with *)
|
|
|
|
(* the special exception on linking described in file ../LICENSE. *)
|
1995-08-09 08:06:35 -07:00
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
2001-10-28 06:21:27 -08:00
|
|
|
(** Formatted output functions. *)
|
1995-05-04 03:15:53 -07:00
|
|
|
|
2003-07-05 04:13:24 -07:00
|
|
|
val fprintf : out_channel -> ('a, out_channel, unit) format -> 'a
|
2001-10-26 15:38:48 -07:00
|
|
|
(** [fprintf outchan format arg1 ... argN] formats the arguments
|
2005-09-26 03:12:01 -07:00
|
|
|
[arg1] to [argN] according to the format string [format], and
|
|
|
|
outputs the resulting string on the channel [outchan].
|
|
|
|
|
2001-10-26 15:38:48 -07:00
|
|
|
The format is a character string which contains two types of
|
2005-09-26 03:12:01 -07:00
|
|
|
objects: plain characters, which are simply copied to the output
|
|
|
|
channel, and conversion specifications, each of which causes
|
|
|
|
conversion and printing of arguments.
|
|
|
|
|
|
|
|
Conversion specifications have the following form:
|
|
|
|
|
|
|
|
[% \[positional specifier\] \[flags\] \[width\] \[.precision\] type]
|
|
|
|
|
|
|
|
In short, a conversion specification consists in the [%] character,
|
|
|
|
followed by optional modifiers and a type which is made of one or
|
|
|
|
two characters. The types and their meanings are:
|
|
|
|
|
2004-10-04 13:18:17 -07:00
|
|
|
- [d], [i], [n], [l], [L], or [N]: convert an integer argument to
|
|
|
|
signed decimal.
|
2002-05-12 11:37:49 -07:00
|
|
|
- [u]: convert an integer argument to unsigned decimal.
|
2001-10-26 15:38:48 -07:00
|
|
|
- [x]: convert an integer argument to unsigned hexadecimal,
|
|
|
|
using lowercase letters.
|
|
|
|
- [X]: convert an integer argument to unsigned hexadecimal,
|
|
|
|
using uppercase letters.
|
|
|
|
- [o]: convert an integer argument to unsigned octal.
|
2002-05-12 11:37:49 -07:00
|
|
|
- [s]: insert a string argument.
|
2002-06-26 07:52:34 -07:00
|
|
|
- [S]: insert a string argument in Caml syntax (double quotes, escapes).
|
2002-05-12 11:37:49 -07:00
|
|
|
- [c]: insert a character argument.
|
2002-06-26 07:52:34 -07:00
|
|
|
- [C]: insert a character argument in Caml syntax (single quotes, escapes).
|
2001-10-26 15:38:48 -07:00
|
|
|
- [f]: convert a floating-point argument to decimal notation,
|
2002-05-12 11:37:49 -07:00
|
|
|
in the style [dddd.ddd].
|
2005-08-02 02:21:24 -07:00
|
|
|
- [F]: convert a floating-point argument to Caml syntax ([dddd.]
|
2005-09-20 10:18:03 -07:00
|
|
|
or [dddd.ddd] or [d.ddd e+-dd]).
|
2001-10-26 15:38:48 -07:00
|
|
|
- [e] or [E]: convert a floating-point argument to decimal notation,
|
2002-05-12 11:37:49 -07:00
|
|
|
in the style [d.ddd e+-dd] (mantissa and exponent).
|
2001-10-26 15:38:48 -07:00
|
|
|
- [g] or [G]: convert a floating-point argument to decimal notation,
|
2002-05-12 11:37:49 -07:00
|
|
|
in style [f] or [e], [E] (whichever is more compact).
|
2002-09-05 03:27:34 -07:00
|
|
|
- [B]: convert a boolean argument to the string [true] or [false]
|
2003-07-01 09:30:12 -07:00
|
|
|
- [b]: convert a boolean argument (for backward compatibility; do not
|
|
|
|
use in new programs).
|
2002-07-28 14:46:07 -07:00
|
|
|
- [ld], [li], [lu], [lx], [lX], [lo]: convert an [int32] argument to
|
2001-10-28 06:21:27 -08:00
|
|
|
the format specified by the second letter (decimal, hexadecimal, etc).
|
|
|
|
- [nd], [ni], [nu], [nx], [nX], [no]: convert a [nativeint] argument to
|
|
|
|
the format specified by the second letter.
|
|
|
|
- [Ld], [Li], [Lu], [Lx], [LX], [Lo]: convert an [int64] argument to
|
|
|
|
the format specified by the second letter.
|
2005-09-26 03:12:01 -07:00
|
|
|
- [a]: user-defined printer. Takes two arguments and apply the
|
|
|
|
first one to [outchan] (the current output channel) and to the
|
|
|
|
second argument. The first argument must therefore have type
|
2001-10-26 15:38:48 -07:00
|
|
|
[out_channel -> 'b -> unit] and the second ['b].
|
2005-09-26 03:12:01 -07:00
|
|
|
The output produced by the function is inserted in the output of
|
|
|
|
[fprintf] at the current point.
|
2001-10-26 15:38:48 -07:00
|
|
|
- [t]: same as [%a], but takes only one argument (with type
|
|
|
|
[out_channel -> unit]) and apply it to [outchan].
|
2005-09-26 03:12:01 -07:00
|
|
|
- [\{ fmt %\}]: convert a format string argument. The argument must
|
|
|
|
have the same type as the internal format string [fmt].
|
|
|
|
- [\( fmt %\)]: format string substitution. Takes a format string
|
|
|
|
argument and substitutes it to the internal format string [fmt]
|
|
|
|
to print following arguments. The argument must have the same
|
|
|
|
type as [fmt].
|
2003-04-28 02:44:21 -07:00
|
|
|
- [!]: take no argument and flush the output.
|
2001-10-26 15:38:48 -07:00
|
|
|
- [%]: take no argument and output one [%] character.
|
2001-10-28 06:21:27 -08:00
|
|
|
|
2005-09-26 03:12:01 -07:00
|
|
|
The optional [positional specifier] consists of an integer followed
|
|
|
|
by a [$]; the integer indicates which argument to use, the first
|
|
|
|
argument being denoted by 1.
|
|
|
|
|
|
|
|
The optional [flags] are:
|
2001-10-28 06:21:27 -08:00
|
|
|
- [-]: left-justify the output (default is right justification).
|
2002-05-25 01:37:33 -07:00
|
|
|
- [0]: for numerical conversions, pad with zeroes instead of spaces.
|
2001-10-28 06:21:27 -08:00
|
|
|
- [+]: for numerical conversions, prefix number with a [+] sign if positive.
|
|
|
|
- space: for numerical conversions, prefix number with a space if positive.
|
|
|
|
- [#]: request an alternate formatting style for numbers.
|
|
|
|
|
2005-09-26 03:12:01 -07:00
|
|
|
The optional [width] is an integer indicating the minimal
|
|
|
|
width of the result. For instance, [%6d] prints an integer,
|
|
|
|
prefixing it with spaces to fill at least 6 characters.
|
|
|
|
|
|
|
|
The optional [precision] is a dot [.] followed by an integer
|
|
|
|
indicating how many digits follow the decimal point in the [%f],
|
|
|
|
[%e], and [%E] conversions. For instance, [%.4f] prints a [float] with
|
|
|
|
4 fractional digits.
|
|
|
|
|
|
|
|
The integer in a [width] or [precision] can also be specified as
|
|
|
|
[*], in which case an extra integer argument is taken to specify
|
|
|
|
the corresponding [width] or [precision]. This integer argument
|
|
|
|
precedes immediately the argument to print, unless an optional
|
|
|
|
[positional specifier] is given to indicates which argument to
|
|
|
|
use. For instance, [%.*3$f] prints a [float] with as many fractional
|
|
|
|
digits as the value of the third argument. *)
|
1995-05-04 03:15:53 -07:00
|
|
|
|
2003-07-05 04:13:24 -07:00
|
|
|
val printf : ('a, out_channel, unit) format -> 'a
|
2001-10-26 15:38:48 -07:00
|
|
|
(** Same as {!Printf.fprintf}, but output on [stdout]. *)
|
1995-05-04 03:15:53 -07:00
|
|
|
|
2003-07-05 04:13:24 -07:00
|
|
|
val eprintf : ('a, out_channel, unit) format -> 'a
|
2001-10-26 15:38:48 -07:00
|
|
|
(** Same as {!Printf.fprintf}, but output on [stderr]. *)
|
1995-05-04 03:15:53 -07:00
|
|
|
|
2003-07-05 04:13:24 -07:00
|
|
|
val sprintf : ('a, unit, string) format -> 'a
|
2001-10-26 15:38:48 -07:00
|
|
|
(** Same as {!Printf.fprintf}, but instead of printing on an output channel,
|
|
|
|
return a string containing the result of formatting
|
|
|
|
the arguments. *)
|
1999-02-25 02:26:38 -08:00
|
|
|
|
2003-07-05 04:13:24 -07:00
|
|
|
val bprintf : Buffer.t -> ('a, Buffer.t, unit) format -> 'a
|
2001-10-26 15:38:48 -07:00
|
|
|
(** Same as {!Printf.fprintf}, but instead of printing on an output channel,
|
|
|
|
append the formatted arguments to the given extensible buffer
|
|
|
|
(see module {!Buffer}). *)
|
1999-02-25 02:26:38 -08:00
|
|
|
|
2005-07-22 05:21:02 -07:00
|
|
|
val kfprintf : (out_channel -> 'a) -> out_channel ->
|
|
|
|
('b, out_channel, unit, 'a) format4 -> 'b;;
|
|
|
|
(** Same as [fprintf], but instead of returning immediately,
|
|
|
|
passes the out channel to its first argument at the end of printing. *)
|
|
|
|
|
|
|
|
val ksprintf : (string -> 'a) -> ('b, unit, string, 'a) format4 -> 'b;;
|
|
|
|
(** Same as [sprintf] above, but instead of returning the string,
|
|
|
|
passes it to the first argument. *)
|
|
|
|
|
|
|
|
val kprintf : (string -> 'a) -> ('b, unit, string, 'a) format4 -> 'b;;
|
|
|
|
(** A deprecated synonym for [ksprintf]. *)
|
2002-03-13 06:08:10 -08:00
|
|
|
|
2001-10-30 08:52:04 -08:00
|
|
|
(**/**)
|
2001-10-28 06:21:27 -08:00
|
|
|
|
|
|
|
(* For system use only. Don't call directly. *)
|
2005-09-26 03:12:01 -07:00
|
|
|
type index;;
|
2005-09-20 10:18:03 -07:00
|
|
|
|
2005-09-26 03:12:01 -07:00
|
|
|
external index_of_int : int -> index = "%identity";;
|
2001-10-28 06:21:27 -08:00
|
|
|
|
2005-09-26 03:12:01 -07:00
|
|
|
val scan_format : string -> 'a array -> index -> int ->
|
|
|
|
(index -> string -> int -> 'b) ->
|
|
|
|
(index -> 'c -> 'd -> int -> 'b) ->
|
|
|
|
(index -> 'e -> int -> 'b) ->
|
|
|
|
(index -> int -> 'b) ->
|
|
|
|
(index -> ('h, 'i, 'j, 'k) format4 -> int -> 'b) -> 'b
|
2004-09-22 02:17:21 -07:00
|
|
|
|
2004-12-06 22:18:14 -08:00
|
|
|
val sub_format :
|
|
|
|
(string -> int) -> (string -> int -> char -> int) ->
|
|
|
|
char -> string -> int -> int
|
|
|
|
val summarize_format_type : string -> string
|
2005-09-20 10:18:03 -07:00
|
|
|
val kapr : (string -> Obj.t array -> 'a) -> string -> 'a
|