Module Liquidsoap_lang.Builtins_xml

type xml = [
  1. | `Text of string
  2. | `Element of string * (string * string) list * xml list
]
val unavailable : string -> 'a -> 'b
val xml_parser : (string -> xml) Stdlib.Atomic.t
val xml_printer : (compact:bool -> xml -> string) Stdlib.Atomic.t
val xml_text_content : [> `Element of 'a * 'b * [> `Text of 'c ] list | `Text of 'c ] -> 'c option
val is_nullable : Liquidsoap_lang_types.Type.t -> bool
val xml_element_name : [< `Element of string * 'a * 'b | `Text of 'c ] -> string
val xml_params : [< `Element of 'a * 'b list * 'c | `Text of 'd ] -> 'b list
val xml_children : [< `Element of 'a * 'b * 'c list | `Text of 'd ] -> 'c list
val parse_ground_meths : typ_meths:Liquidsoap_lang_types.Type.meth list -> ([ `Element of string * (string * string) list * 'a list | `Text of string ] as 'a) -> (string * Lang.value) list
val value_of_typed_xml : ty:Liquidsoap_lang_types.Type.t -> ([ `Element of string * (string * string) list * 'a list | `Text of string ] as 'a) -> Lang.value
val parse_xml_record : typ_meths:Liquidsoap_lang_types.Type.meth list -> ([ `Element of string * (string * string) list * 'a list | `Text of string ] as 'a) -> Lang.value
val parse_xml_params : ty:Liquidsoap_lang_types.Type.t -> (string * string) list -> Lang.value
val parse_param_value : ty:Liquidsoap_lang_types.Type.t -> string -> Lang.value
val parse_xml_props : typ_meths:Liquidsoap_lang_types.Type.meth list -> ([ `Element of string * (string * string) list * 'a list | `Text of string ] as 'a) -> Lang.value
val parse_untyped_xml : ([ `Element of string * (string * string) list * 'a list | `Text of string ] as 'a) -> Lang.value
val string_of_ground : Liquidsoap_lang_values.Value.t -> string
val params_of_xml_params : Lang.value -> (string * string) list
val params_of_optional_params : Lang.value option -> (string * string) list
val xml_of_value : Liquidsoap_lang_values.Value.t -> [> `Element of string * (string * string) list * 'a list | `Text of string ] as 'a
val xml_of_node : ?xml_text:string -> name:string -> (string * Liquidsoap_lang_values.Value.t) list -> [> `Element of string * (string * string) list * 'a list | `Text of string ] as 'a