90 lines
1.8 KiB
Prolog
90 lines
1.8 KiB
Prolog
csv_html_plus :-
|
|
L =
|
|
"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!",
|
|
|
|
csv_html_plus(L, Out1, []),
|
|
string_to_list(Str1, Out1),
|
|
writeln(Str1).
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
% HTML +
|
|
%
|
|
csv_html_plus(L) -->
|
|
"<TABLE>\n",
|
|
csv_head(L, R),
|
|
csv_body(R),
|
|
"</TABLE>".
|
|
|
|
|
|
csv_head(L, R) -->
|
|
"<THEAD>\n",
|
|
csv_head_tr(L, R),
|
|
"</THEAD>\n".
|
|
|
|
|
|
csv_head_tr(L, R) -->
|
|
"<TR>\n",
|
|
csv_head_th(L, R),
|
|
"\n</TR>\n".
|
|
|
|
|
|
csv_head_th(L, S) -->
|
|
"<TH style='color:#000; background:#FF0;'>",
|
|
csv_head_th_in(L, S),
|
|
"</TH>".
|
|
|
|
csv_head_th_in([], []) --> [].
|
|
|
|
csv_head_th_in([10|L], L) --> [].
|
|
|
|
csv_head_th_in([44|L], S) -->
|
|
"</TH><TH style='color:#000; background:#FF0;'>",
|
|
csv_head_th_in(L,S).
|
|
|
|
csv_head_th_in([H|T], S) -->
|
|
[H],
|
|
csv_head_th_in(T, S).
|
|
|
|
|
|
csv_body(L) -->
|
|
"<TBODY>\n",
|
|
csv_body_tr(L),
|
|
"</TBODY>\n".
|
|
|
|
csv_body_tr([]) --> [].
|
|
|
|
csv_body_tr(L) -->
|
|
"<TR>\n",
|
|
csv_body_td(L, S),
|
|
"\n</TR>\n",
|
|
csv_body_tr(S).
|
|
|
|
csv_body_td(L, S) -->
|
|
"<TD style='color:#000; background:#8FF; border:1px #000 solid; padding:0.6em;'>",
|
|
csv_body_td_in(L, S),
|
|
"</TD>".
|
|
|
|
csv_body_td_in([], []) --> [].
|
|
|
|
csv_body_td_in([10|L], L) --> [].
|
|
|
|
csv_body_td_in([44|L], S) -->
|
|
"</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) -->
|
|
[H],
|
|
csv_body_td_in(T, S).
|