/usr/lib/ocaml/gettext-stub/gettextStubCompat.ml 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 | (**************************************************************************)
(* 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 *)
(**************************************************************************)
(** Low level interface to gettext C library.
* @author Sylvain Le Gall
*)
type lc =
| LC_CTYPE
| LC_NUMERIC
| LC_TIME
| LC_COLLATE
| LC_MONETARY
| LC_MESSAGES
| LC_ALL
;;
(** Set the current localization for the category
*)
external setlocale : lc -> string -> string option
= "gettextStubCompat_setlocale"
;;
(** Look up MSGID in the current default message catalog for the current
* LC_MESSAGES locale. If not found, returns MSGID itself (the default text).
*)
external gettext : string -> string
= "gettextStubCompat_gettext"
;;
(** Look up MSGID in the DOMAINNAME message catalog for the current LC_MESSAGES
* locale.
*)
external dgettext : string -> string -> string
= "gettextStubCompat_dgettext"
;;
(** Look up MSGID in the DOMAINNAME message catalog for the current CATEGORY
* locale.
*)
external dcgettext : string -> string -> lc -> string
= "gettextStubCompat_dcgettext"
;;
(** Similar to `gettext' but select the plural form corresponding to the number
* N.
*)
external ngettext : string -> string -> int -> string
= "gettextStubCompat_ngettext"
;;
(** Similar to `dgettext' but select the plural form corresponding to the number
* N.
*)
external dngettext : string -> string -> string -> int -> string
= "gettextStubCompat_dngettext"
;;
(** Similar to `dcgettext' but select the plural form corresponding to the
* number N.
*)
external dcngettext : string -> string -> string -> int -> lc -> string
= "gettextStubCompat_dcngettext"
;;
(** Set the current default message catalog to DOMAINNAME.If DOMAINNAME is "",
* reset to the default of "messages".
*)
external textdomain : string -> string option
= "gettextStubCompat_textdomain"
;;
(** Get the current default message catalog to DOMAINNAME.
*)
external get_textdomain : unit -> string option
= "gettextStubCompat_get_textdomain"
;;
(** Specify that the DOMAINNAME message catalog will be foundin DIRNAME rather
* than in the system locale data base.
*)
external bindtextdomain : string -> string -> string option
= "gettextStubCompat_bindtextdomain"
;;
(** Specify the character encoding in which the messages from theDOMAINNAME
* message catalog will be returned.
*)
external bind_textdomain_codeset : string -> string -> string option
= "gettextStubCompat_bind_textdomain_codeset"
;;
|