/usr/lib/ocaml/gettext/gettext.mli is in libgettext-ocaml-dev 0.3.5-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 | (**************************************************************************)
(* ocaml-gettext: a library to translate messages *)
(* *)
(* Copyright (C) 2003-2008 Sylvain Le Gall <sylvain@le-gall.net> *)
(* *)
(* This library is free software; you can redistribute it and/or *)
(* modify it under the terms of the GNU Lesser General Public *)
(* License as published by the Free Software Foundation; either *)
(* version 2.1 of the License, or (at your option) any later version; *)
(* with the OCaml static compilation exception. *)
(* *)
(* This library is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* Lesser General Public License for more details. *)
(* *)
(* You should have received a copy of the GNU Lesser General Public *)
(* License along with this library; if not, write to the Free Software *)
(* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 *)
(* USA *)
(**************************************************************************)
(**
Modules to use in libraries and programs.
@author Sylvain Le Gall
*)
(**
This module defines all the function required to use gettext. The primary
design is to use applicative function. The "side effect" of such a choice is
that you must defines, before using any function, all the text domains,
codeset et al. When building a library, you should give access to
[Library.init] (by defining a [gettext_init = YouLibrary.init]). This is
required to enable string translation in the library and programs that uses
the library. The only function missing here is the [realize] function. This
function is defined in a real implementation library :
{ul
{- {!GettextDummy}}
{- {!GettextCamomile}}
{- {!GettextStub}}
}
*)
(** {1 Exception} *)
(** Return the string representation of a ocaml-gettext exception.
*)
val string_of_exception: exn -> string
;;
(** {1 High level interfaces} *)
(** Value of the dependencies for the initialization of the library
Gettext (for translating exception and help message)
*)
val init: GettextTypes.dependencies
;;
(** Module to handle typical library requirement *)
module Library :
functor (Init: GettextTypes.INIT_TYPE) ->
sig
(** Definition of all variables required by ocaml-gettext to use this module
(includes all the dependencies of the library, as defined in
{!GettextTypes.Init}).
*)
val init: GettextTypes.dependencies
(** Translate a singular string.
*)
val s_: string -> string
(** Translate a [Printf] singular argument.
*)
val f_: ('a, 'b, 'c, 'c, 'c, 'd) format6 ->
('a, 'b, 'c, 'c, 'c, 'd) format6
(** Translate a plural string.
*)
val sn_: string -> string -> int -> string
(** Translate a [Printf] plural argument.
*)
val fn_: ('a, 'b, 'c, 'c, 'c, 'd) format6 ->
('a, 'b, 'c, 'c, 'c, 'd) format6 ->
int ->
('a, 'b, 'c, 'c, 'c, 'd) format6
end
;;
(** Module to handle typical program requirement *)
module Program :
functor (Init: GettextTypes.INIT_TYPE) ->
functor (Realize: GettextTypes.REALIZE_TYPE) ->
sig
(** The first element is a [Arg] argument list. The second element
contains some information about the gettext library (version,
build date and author).
*)
val init: (Arg.key * Arg.spec * Arg.doc) list * string
(** Seed {Library.s_}
*)
val s_: string -> string
(** Seed {Library.f_}
*)
val f_: ('a, 'b, 'c, 'c, 'c, 'd) format6 ->
('a, 'b, 'c, 'c, 'c, 'd) format6
(** Seed {Library.sn_}
*)
val sn_: string -> string -> int -> string
(** Seed {Library.fn_}
*)
val fn_: ('a, 'b, 'c, 'c, 'c, 'd) format6 ->
('a, 'b, 'c, 'c, 'c, 'd) format6 ->
int ->
('a, 'b, 'c, 'c, 'c, 'd) format6
end
;;
|