xtmpl 0.10 · OCaml Package

exception No_change

type name = string * string

module Name_ord : sig ... end

module Name_map : sig ... end

module Name_set : sig ... end

type 'a env

and !'a callback = 'a -> 'a env -> attributes -> tree list -> 'a * tree list

and tree =

and attributes = tree list Name_map.t

val merge_cdata : tree -> tree

val merge_cdata_list : tree list -> tree list

type rewrite_stack = (name * attributes * tree list) list

exception Loop of rewrite_stack

val string_of_stack : rewrite_stack -> string

val atts_empty : attributes

val atts_of_list : ?atts:attributes -> (name * tree list) list -> attributes

val atts_one : ?atts:attributes -> name -> tree list -> attributes

val atts_remove : name -> attributes -> attributes

val atts_replace : name -> tree list -> attributes -> attributes

val get_arg : attributes -> name -> tree list option

val get_arg_cdata : attributes -> name -> string option

val opt_arg : attributes -> ?def:tree list -> name -> tree list

val opt_arg_cdata : attributes -> ?def:string -> name -> string

val string_of_args : attributes -> string

val env_empty : unit -> 'a env

val env_add : ?prefix:string -> string -> 'a callback -> 'a env -> 'a env

val env_get : name -> 'a env -> 'a callback option

val string_of_env : 'a env -> string

val env_add_att : ?prefix:string -> string -> tree list -> 'a env -> 'a env

val env_of_list : ?env:'a env -> (name * 'a callback) list -> 'a env

val tag_main : string

val tag_env : string

val att_defer : string

val att_escamp : string

val att_protect : string

val string_of_xml : ?xml_atts:bool -> tree -> string

val string_of_xmls : ?xml_atts:bool -> tree list -> string

val string_of_xml_atts : ?xml_atts:bool -> attributes -> (name * string) list

val xml_of_string : ?add_main:bool -> string -> tree

val xmls_of_atts : (name * string) list -> attributes

val xml_of_file : string -> tree

val apply_to_string : 'a -> 'a env -> string -> 'a * tree list

val apply_to_file : 'a -> 'a env -> string -> 'a * tree list

val apply_to_xmls : 'a -> 'a env -> tree list -> 'a * tree list

val apply_into_file : 
  'a ->
  ?head:string ->
  'a env ->
  infile:string ->
  outfile:string ->
  'a

val apply_string_into_file : 
  'a ->
  ?head:string ->
  'a env ->
  outfile:string ->
  string ->
  'a

package xtmpl