Table of Contents
You want to 'gettextify' your program, adding 's_' and 'f_' annotations throughout. However now your program has an additional dependency, ocaml-gettext. You can make ocaml-gettext optional by creating a set of dummy functions which do nothing:
Example A.1. prog_gettext.ml
(* This file is generated automatically by ./configure. *)
module Gettext =
struct
external s_ : string -> string = "%identity"
external f_ : ('a -> 'b, 'c, 'd) format -> ('a -> 'b, 'c, 'd) format = "%identity"
let sn_ : string -> string -> int -> string =
fun s p n ->
if n = 1 then s else p
let fn_ : ('a -> 'b, 'c, 'd) format -> ('a -> 'b, 'c, 'd) format -> int -> ('a -> 'b, 'c, 'd) format =
fun s p n ->
if n = 1 then s else p
end
You have to arrange for your configure script to place the above content or the real ProgramGettext module into 'prog_gettext.ml', depending on whether it detects that ocaml-gettext is installed (eg. using 'ocamlfind query gettext' or some other method).