CSV to HTML translation: Difference between revisions

Line 773:

"</TD><TD>",

csv_td_in(L,S).

csv_td_in([60|T], S) -->

"<",

csv_td_in(T, S).

csv_td_in([62|T], S) -->

">",

csv_td_in(T, S).

csv_td_in([H|T], S) -->

Line 788:

Line 796:

</TR>

<TR>

<TD>Brians mother</TD><TD><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></TD>

<TD>Brians mother</TD><TD><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!></angry></TD>

</TR>

<TR>

Line 802:

Line 810:

</pre>

===Extra credit solution===

{{incorrect|Prolog|No escaping of '<' in '<angry' and '</angry'.}}|

<lang Prolog>csv_html_plus :-

L =

Line 881:

Line 888:

"</TD><TD style='color:#000; background:#8FF; border:1px #000 solid; padding:0.6em;'>",

csv_body_td_in(L,S).

csv_body_td_in([60|T], S) -->

"<",

csv_body_td_in(T, S).

csv_body_td_in([62|T], S) -->

">",

csv_body_td_in(T, S).

csv_body_td_in([H|T], S) -->

Line 898:

Line 913:

</TR>

<TR>

<TD style='color:#000; background:#8FF; border:1px #000 solid; padding:0.6em;'>Brians mother</TD><TD style='color:#000; background:#8FF; border:1px #000 solid; padding:0.6em;'><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></TD>

<TD style='color:#000; background:#8FF; border:1px #000 solid; padding:0.6em;'>Brians mother</TD><TD style='color:#000; background:#8FF; border:1px #000 solid; padding:0.6em;'><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!></angry></TD>

</TR>

<TR>

Line 915:

Line 930:

===HTML outputs rendered in firefox browser===

[[File:Prolog_csv_to_html.png|frame||none]]

=={{header|Python}}==