Data commit

Task/XML-Output/Wren/xml-output-1.wren

@@ -0,0 +1,31 @@
+var escapes = [
+    ["&" , "&"], // must do this one first
+    ["\"", """],
+    ["'" , "'"],
+    ["<" , "&lt;"],
+    [">" , "&gt;"]
+]
+
+var xmlEscape = Fn.new { |s|
+    for (esc in escapes) s = s.replace(esc[0], esc[1])
+    return s
+}
+
+var xmlDoc = Fn.new { |names, remarks|
+    var xml = "<CharacterRemarks>\n"
+    for (i in 0...names.count) {
+        var name = xmlEscape.call(names[i])
+        var remark = xmlEscape.call(remarks[i])
+        xml = xml + "    <Character name=\"%(name)\">%(remark)</Character>\n"
+    }
+    xml = xml + "</CharacterRemarks>"
+    System.print(xml)
+}
+
+var names = ["April", "Tam O'Shanter", "Emily"]
+var remarks = [
+    "Bubbly: I'm > Tam and <= Emily",
+    "Burns: \"When chapman billies leave the street ...\"",
+    "Short & shrift"
+]
+xmlDoc.call(names, remarks)

Task/XML-Output/Wren/xml-output-2.wren

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+    <Character name="April">Bubbly: I&apos;m &gt; Tam and &lt;= Emily</Character>
+    <Character name="Tam O&apos;Shanter">Burns: &quot;When chapman billies leave the street ...&quot;</Character>
+    <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Wren/xml-output-3.wren

@@ -0,0 +1,20 @@
+import "./xsequence" for XDocument, XElement, XAttribute
+
+var createXmlDoc = Fn.new { |names, remarks|
+    var root = XElement.new("CharacterRemarks")
+    for (i in 0...names.count) {
+        var xe = XElement.new("Character", remarks[i])
+        xe.add(XAttribute.new("name", names[i]))
+        root.add(xe)
+    }
+    return XDocument.new(root)
+}
+
+var names = ["April", "Tam O'Shanter", "Emily"]
+var remarks = [
+    "Bubbly: I'm > Tam and <= Emily",
+    "Burns: \"When chapman billies leave the street ...\"",
+    "Short & shrift"
+]
+var doc = createXmlDoc.call(names, remarks)
+System.print(doc)

Task/XML-Output/Wren/xml-output-4.wren

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="utf-8"?>