aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/CSV-to-HTML-translation/Retro/csv-to-html-translation-1.retro Normal file
View file

@ -0,0 +1,23 @@
remapping off
"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!" remapping on
keepString constant CSV
: display ( c- )
[ ', = ] [ drop "</td><td>" puts ] when
[ 10 = ] [ drop "</td></tr>\n<tr><td>" puts ] when
[ '< = ] [ drop "&lt;" puts ] when
[ '> = ] [ drop "&gt;" puts ] when
[ '& = ] [ drop "&amp;" puts ] when
putc ;
: displayHTML ( $- )
"<table>\n<tr><td>" puts
[ @ display ] ^types'STRING each@
"</td></tr>\n</table>" puts ;
CSV displayHTML

8
Task/CSV-to-HTML-translation/Retro/csv-to-html-translation-2.retro Normal file
View file

@ -0,0 +1,8 @@
<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's not the messiah; he'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'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table>