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.
|
2006-10-15 14:58:28 -07:00
|
|
|
- [a]: user-defined printer. Takes two arguments and applies the
|
2005-09-26 03:12:01 -07:00
|
|
|
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].
|
2006-01-04 08:55:50 -08:00
|
|
|
- [( fmt %)]: format string substitution. Takes a format string
|
2005-09-26 03:12:01 -07:00
|
|
|
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
|
|
|
|
2006-11-06 01:12:53 -08:00
|
|
|
val ifprintf : 'a -> ('b, 'a, unit) format -> 'b
|
|
|
|
(** Same as {!Printf.fprintf}, but does not print anything.
|
|
|
|
Useful to ignore some material when conditionally printing. *)
|
|
|
|
|
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,
|
2006-11-06 01:12:53 -08:00
|
|
|
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
|
|
|
|
2006-05-04 05:52:22 -07:00
|
|
|
(** Formatted output functions with continuations. *)
|
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. *)
|
|
|
|
|
2006-05-04 05:52:22 -07:00
|
|
|
val kbprintf : (Buffer.t -> 'a) -> Buffer.t ->
|
|
|
|
('b, Buffer.t, unit, 'a) format4 -> 'b;;
|
|
|
|
(** Same as [bprintf], but instead of returning immediately,
|
|
|
|
passes the buffer to its first argument at the end of printing. *)
|
|
|
|
|
2005-07-22 05:21:02 -07:00
|
|
|
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. *)
|
2006-11-17 00:34:05 -08:00
|
|
|
|
|
|
|
module CamlinternalPr : sig
|
|
|
|
|
|
|
|
module Sformat : sig
|
|
|
|
type index;;
|
|
|
|
|
|
|
|
val index_of_int : int -> index;;
|
|
|
|
external int_of_index : index -> int = "%identity";;
|
|
|
|
external unsafe_index_of_int : int -> index = "%identity";;
|
|
|
|
|
|
|
|
val succ_index : index -> index;;
|
|
|
|
|
|
|
|
val sub : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> index -> int -> string;;
|
|
|
|
val to_string : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> string;;
|
|
|
|
external length : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> int
|
|
|
|
= "%string_length";;
|
|
|
|
external get : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> int -> char
|
|
|
|
= "%string_safe_get";;
|
|
|
|
external unsafe_to_string : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> string
|
|
|
|
= "%identity";;
|
|
|
|
external unsafe_get : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> int -> char
|
|
|
|
= "%string_unsafe_get";;
|
|
|
|
|
|
|
|
end;;
|
|
|
|
|
|
|
|
module Tformat : sig
|
|
|
|
|
|
|
|
type ac = {
|
|
|
|
mutable ac_rglr : int;
|
|
|
|
mutable ac_skip : int;
|
|
|
|
mutable ac_rdrs : int;
|
|
|
|
};;
|
|
|
|
|
|
|
|
val ac_of_format : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> ac;;
|
|
|
|
|
|
|
|
val sub_format :
|
|
|
|
(('a, 'b, 'c, 'd, 'e, 'f) format6 -> int) ->
|
|
|
|
(('a, 'b, 'c, 'd, 'e, 'f) format6 -> int -> char -> int) ->
|
|
|
|
char -> ('a, 'b, 'c, 'd, 'e, 'f) format6 -> int -> int
|
|
|
|
|
|
|
|
val summarize_format_type : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> string
|
|
|
|
|
|
|
|
val scan_format : ('a, 'b, 'c, 'd, 'e, 'f) format6 ->
|
|
|
|
'g array ->
|
|
|
|
Sformat.index ->
|
|
|
|
int ->
|
|
|
|
(Sformat.index -> string -> int -> 'h) ->
|
|
|
|
(Sformat.index -> 'i -> 'j -> int -> 'h) ->
|
|
|
|
(Sformat.index -> 'k -> int -> 'h) ->
|
|
|
|
(Sformat.index -> int -> 'h) ->
|
|
|
|
(Sformat.index -> ('l, 'm, 'n, 'o, 'p, 'q) format6 -> int -> 'h) -> 'h
|
|
|
|
|
|
|
|
val kapr :
|
|
|
|
(('a, 'b, 'c, 'd, 'e, 'f) format6 -> Obj.t array -> 'g) ->
|
|
|
|
('a, 'b, 'c, 'd, 'e, 'f) format6 -> 'g
|
|
|
|
end;;
|
|
|
|
|
|
|
|
end;;
|
|
|
|
|