24 lines
806 B
OCaml
24 lines
806 B
OCaml
# #directory "+xml-light" (* or maybe "+site-lib/xml-light" *) ;;
|
|
|
|
# #load "xml-light.cma" ;;
|
|
|
|
# let data = [
|
|
("April", "Bubbly: I'm > Tam and <= Emily");
|
|
("Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\"");
|
|
("Emily", "Short & shrift");
|
|
] in
|
|
let tags =
|
|
List.map (fun (name, comment) ->
|
|
Xml.Element ("Character", [("name", name)], [(Xml.PCData comment)])
|
|
) data
|
|
in
|
|
print_endline (
|
|
Xml.to_string_fmt (Xml.Element ("CharacterRemarks", [], tags)))
|
|
;;
|
|
<CharacterRemarks>
|
|
<Character name="April">Bubbly: I'm > Tam and <= Emily</Character>
|
|
<Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
|
|
<Character name="Emily">Short & shrift</Character>
|
|
</CharacterRemarks>
|
|
- : unit = ()
|