19 |
|
|
20 |
open Autoconf |
open Autoconf |
21 |
|
|
22 |
|
val log_time : unit -> string |
23 |
val cprintf : (string -> unit) -> ('a, unit, unit) format -> 'a |
val cprintf : (string -> unit) -> ('a, unit, unit) format -> 'a |
24 |
(** [cprintf k format arguments] is the same as [printf format arguments], |
(** [cprintf k format arguments] is the same as [printf format arguments], |
25 |
except that the resulting string is passed as argument to [k]; the |
except that the resulting string is passed as argument to [k]; the |
27 |
|
|
28 |
val lprintf : ('a, unit, unit) format -> 'a |
val lprintf : ('a, unit, unit) format -> 'a |
29 |
val lprintf_nl : ('a, unit, unit) format -> 'a |
val lprintf_nl : ('a, unit, unit) format -> 'a |
30 |
|
val lprintf_nl2 : ('a, unit, unit) format -> 'a |
31 |
val lprint_newline : unit -> unit |
val lprint_newline : unit -> unit |
32 |
val lprint_char : char -> unit |
val lprint_char : char -> unit |
33 |
val lprint_string : string -> unit |
val lprint_string : string -> unit |