RosettaCodeData/Task/CSV-to-HTML-translation/PicoLisp/csv-to-html-translation-3.l

10 lines
286 B
Plaintext

(load "@lib/http.l")
(in "text.csv"
(when (split (line) ",")
(<table> 'myStyle NIL (mapcar '((S) (list NIL (pack S))) @)
(prinl)
(while (split (line) ",")
(<row> NIL (ht:Prin (pack (car @))) (ht:Prin (pack (cadr @))))
(prinl) ) ) ) )