CSV to HTML translation: Difference between revisions

<lang factor>USING: combinators csv io kernel sequences strings ;

IN: rosetta-code.csv-to-html

CONSTANT: input

: escape-chars ( seq -- seq' )

[

{

{ CHAR: & [ "&amp;" ] }

{ CHAR: ' [ "&apos;" ] }

{ CHAR: < [ "&lt;" ] }

{ CHAR: > [ "&gt;" ] }

[ 1string ]

} case

] { } map-as concat ;

: tag ( str tag -- <tag>str</tag> )

[ "<" ">" surround ] [ "</" ">" surround ] bi surround ;

: csv>table ( seq -- str )

[ [ "td" tag ] map concat "tr" tag " " prepend ] map

{ "<table>" } prepend { "</table>" } append "\n" join ;

input escape-chars string>csv csv>table print</lang>

<lang html5><table>

<tr><td>Character</td><td>Speech</td></tr>

<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>

<tr><td>Brians mother</td><td>&lt;angry&gt;Now you listen here! He&apos;s not the messiah; he&apos;s a very naughty boy! Now go away!&lt;/angry&gt;</td></tr>

<tr><td>The multitude</td><td>Who are you?</td></tr>

<tr><td>Brians mother</td><td>I&apos;m his mother; that&apos;s who!</td></tr>

<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>

</table></lang>