Expose Xml.uris_attrib

Author: toastal

lib/html_f.ml

@@ -70,6 +70,8 @@ struct
 
   let uri_attrib a s = Xml.uri_attrib a s
 
+  let uris_attrib a ss = Xml.uris_attrib a ss
+
   let space_sep_attrib = Xml.space_sep_attrib
 
   let comma_sep_attrib = Xml.comma_sep_attrib
@@ -858,6 +860,8 @@ struct
 
     let uri_attrib a s = Xml.uri_attrib a s
 
+    let uris_attrib a ss = Xml.uris_attrib a ss
+
     let space_sep_attrib = Xml.space_sep_attrib
 
     let comma_sep_attrib = Xml.comma_sep_attrib

lib/html_sigs.mli

@@ -1169,6 +1169,9 @@ module type T = sig
     (** Same, for URI attribute *)
     val uri_attrib : string -> uri wrap -> 'a attrib
 
+    (** Same, for a space-separated list of URI attributes *)
+    val uris_attrib : string -> uri list wrap -> 'a attrib
+
     (** Same, for a space-separated list of values *)
     val space_sep_attrib : string -> string list wrap -> 'a attrib
 

syntax/reflect/reflect.ml

@@ -174,6 +174,7 @@ let rec to_attribute_parser lang name ~loc = function
   | [[%type: shape]] ->
     [%expr variant]
 
+  | [[%type: Xml.uri list]]
   | [[%type: nmtokens]]
   | [[%type: idrefs]]
   | [[%type: charsets]]