src/utils/cdk/printf2.mli

   1 (* Copyright 2001, 2002 b8_bavard, b8_fee_carabine, INRIA *)
   2 (*
   3     This file is part of mldonkey.
   4
   5     mldonkey is free software; you can redistribute it and/or modify
   6     it under the terms of the GNU General Public License as published by
   7     the Free Software Foundation; either version 2 of the License, or
   8     (at your option) any later version.
   9
  10     mldonkey is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13     GNU General Public License for more details.
  14
  15     You should have received a copy of the GNU General Public License
  16     along with mldonkey; if not, write to the Free Software
  17     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18 *)
  19
  20 open Autoconf
  21
  22 val syslog_oc : Syslog.t option ref
  23
  24 val lprintf_original_output : out_channel option ref
  25 val keep_console_output : unit -> bool
  26
  27 val log_time : unit -> string
  28 val cprintf : (string -> unit) -> ('a, unit, unit) format -> 'a
  29 (** [cprintf k format arguments] is the same as [printf format arguments],
  30     except that the resulting string is passed as argument to [k]; the
  31     result of [k] is then returned as the result of [cprintf]. *)
  32
  33 val lprintf :  ('a, unit, unit) format -> 'a
  34 val lprintf2 :  string -> ('a, unit, unit) format -> 'a
  35 val lprintf_nl :  ('a, unit, unit) format -> 'a
  36 val lprintf_nl2 : string -> ('a, unit, unit) format -> 'a
  37 val lprint_newline : unit -> unit
  38 val lprint_char : char -> unit
  39 val lprint_string : string -> unit
  40 val lprint_int : int -> unit
  41 val lprintf_max_size : int ref
  42
  43 val detach : unit -> unit
  44 val log_to_file : out_channel -> unit
  45 val log_to_buffer : Buffer.t -> unit
  46 val close_log : unit -> unit
  47
  48 type sort_kind = Num (* numeric, parse size suffixes (kMGT) *) | Str (* plain string *)
  49
  50 val html_mods_big_header_start : Buffer.t -> string -> string list -> unit
  51 val html_mods_big_header_end : Buffer.t -> unit
  52 val html_mods_commands : Buffer.t -> string -> string -> (string * string * string * string) list -> unit
  53 val html_mods_table_header : Buffer.t -> ?total:string -> string -> string -> (sort_kind * string * string * string) list -> unit
  54 val html_mods_table_header_colspan : Buffer.t -> ?total:string -> string -> string -> (string * string * string * string * string) list -> unit
  55 val html_mods_table_no_header : Buffer.t -> string -> string -> (string * string * string) list -> unit
  56 val html_mods_table_one_row : Buffer.t -> string -> string -> (string * string * string) list -> unit
  57 val html_mods_table_one_col : Buffer.t -> string -> string -> (string * string * string) list -> unit
  58 val html_mods_td : Buffer.t -> (string * string * string) list -> unit
  59 val html_mods_cntr_init : unit -> unit
  60 val html_mods_cntr : unit -> int
  61 val print_plural_s : int -> string