Data commit

Task/CSV-to-HTML-translation/Nim/csv-to-html-translation.nim

@@ -0,0 +1,23 @@
+import cgi, strutils
+
+const csvtext = """Character,Speech
+The multitude,The messiah! Show us the messiah!
+Brians mother,<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>
+The multitude,Who are you?
+Brians mother,I'm his mother; that's who!
+The multitude,Behold his mother! Behold his mother!"""
+
+proc row2tr(row: string): string =
+  result = "<tr>"
+  let cols = xmlEncode(row).split(",")
+  for col in cols:
+    result.add "<td>"&col&"</td>"
+  result.add "</tr>"
+
+proc csv2html(txt: string): string =
+  result = "<table summary=\"csv2html program output\">\n"
+  for row in txt.splitLines():
+    result.add "  <tbody>"&row2tr(row)&"</tbody>\n"
+  result.add "</table>"
+
+echo csv2html(csvtext)