xml/easyXml.ml

   1 let element name attrs children =
   2   Xml.Element (name,attrs,children)
   3
   4 let elem name children =
   5   element name [] children
   6
   7 let attr name attrs =
   8   element name attrs []
   9
  10 let pcdata x =
  11   Xml.PCData x
  12
  13
  14 let rec normalize =
  15   function
  16       Xml.Element (name,attrs,children) ->
  17         Xml.Element (name,
  18                      List.sort (fun (a,_) (b,_) -> compare a b) attrs,
  19                      List.map normalize children)
  20     | Xml.PCData _ as x ->
  21         x