all tasks

Task/XML-Output/Rascal/xml-output-1.rascal

@@ -0,0 +1,16 @@
+import Prelude;
+import lang::xml::DOM;
+
+list[str] charnames = ["April", "Tam O\'Shanter", "Emily"];
+list[str] remarks = ["Bubbly: I\'m \> Tam and \<= Emily", "Burns: \"When chapman billies leave the street ...\"", "Short & shrift"];
+
+public void xmloutput(list[str] n,list[str] r){
+	if(size(n) != size(r)){
+		throw "n and r should be of the same size";
+                }
+	else{
+		characters = [element(none(),"Character",[attribute(none(),"name",n[i]), charData(r[i])]),charData("\n")| i <- [0..size(n)-1]];
+		x = document(element(none(),"CharacterRemarks",characters));
+		return println(xmlPretty(x));
+                }
+}