sig
  type t = GettextTypes.po_content
  val s_functions : string list Pervasives.ref
  val sn_functions : string list Pervasives.ref
  val gettext_functions : string list Pervasives.ref
  val dgettext_functions : string list Pervasives.ref
  val ngettext_functions : string list Pervasives.ref
  val dngettext_functions : string list Pervasives.ref
  val is_like : MLast.expr -> string list Pervasives.ref -> bool
  val id : 'a -> 'b -> 'a
  val ctyp : 'a -> 'b -> 'a
  val row_field : 'a -> 'b -> 'a
  val class_infos : 'a -> 'b -> 'a
  val patt : 'a -> 'b -> 'a
  val expr : GettextTypes.po_content -> MLast.expr -> GettextTypes.po_content
  val module_type : 'a -> 'b -> 'a
  val sig_item : 'a -> 'b -> 'a
  val with_constr : 'a -> 'b -> 'a
  val module_expr : 'a -> 'b -> 'a
  val str_item : 'a -> 'b -> 'a
  val type_decl : 'a -> 'b -> 'a
  val class_type : 'a -> 'b -> 'a
  val class_sig_item : 'a -> 'b -> 'a
  val class_expr : 'a -> 'b -> 'a
  val class_str_item : 'a -> 'b -> 'a
  val interf : 'a -> 'b -> 'a
  val implem : 'a -> 'b -> 'a
end