sig
  type u
  val create :
    GettextTypes.t ->
    GettextTypes.filename ->
    (string -> string) -> GettextTranslate.TRANSLATE_TYPE.u
  val translate :
    GettextTranslate.TRANSLATE_TYPE.u ->
    bool -> string -> (string * int) option -> string
end