Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,52 +1,52 @@
|
|||
csv_html :-
|
||||
L = "Character,Speech
|
||||
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(L, Out, []),
|
||||
string_to_list(Str, Out),
|
||||
writeln(Str).
|
||||
csv_html(L, Out, []),
|
||||
string_to_list(Str, Out),
|
||||
writeln(Str).
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% simple HTML
|
||||
%
|
||||
csv_html(L) -->
|
||||
"<TABLE>\n",
|
||||
csv_tr(L),
|
||||
"</TABLE>".
|
||||
"<TABLE>\n",
|
||||
csv_tr(L),
|
||||
"</TABLE>".
|
||||
|
||||
csv_tr([]) --> [].
|
||||
|
||||
csv_tr(L) -->
|
||||
"<TR>\n",
|
||||
csv_td(L, S),
|
||||
"\n</TR>\n",
|
||||
csv_tr(S).
|
||||
"<TR>\n",
|
||||
csv_td(L, S),
|
||||
"\n</TR>\n",
|
||||
csv_tr(S).
|
||||
|
||||
csv_td(L, S) -->
|
||||
"<TD>",
|
||||
csv_td_in(L, S),
|
||||
"</TD>".
|
||||
"<TD>",
|
||||
csv_td_in(L, S),
|
||||
"</TD>".
|
||||
|
||||
csv_td_in([], []) --> [].
|
||||
|
||||
csv_td_in([10|L], L) --> [].
|
||||
|
||||
csv_td_in([44|L], S) -->
|
||||
"</TD><TD>",
|
||||
csv_td_in(L,S).
|
||||
"</TD><TD>",
|
||||
csv_td_in(L,S).
|
||||
|
||||
csv_td_in([60|T], S) -->
|
||||
"<",
|
||||
csv_td_in(T, S).
|
||||
"<",
|
||||
csv_td_in(T, S).
|
||||
|
||||
csv_td_in([62|T], S) -->
|
||||
">",
|
||||
csv_td_in(T, S).
|
||||
">",
|
||||
csv_td_in(T, S).
|
||||
|
||||
csv_td_in([H|T], S) -->
|
||||
[H],
|
||||
csv_td_in(T, S).
|
||||
[H],
|
||||
csv_td_in(T, S).
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
csv_html_plus :-
|
||||
L =
|
||||
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>
|
||||
|
|
@ -7,84 +7,84 @@ 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).
|
||||
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>".
|
||||
"<TABLE>\n",
|
||||
csv_head(L, R),
|
||||
csv_body(R),
|
||||
"</TABLE>".
|
||||
|
||||
|
||||
csv_head(L, R) -->
|
||||
"<THEAD>\n",
|
||||
csv_head_tr(L, R),
|
||||
"</THEAD>\n".
|
||||
"<THEAD>\n",
|
||||
csv_head_tr(L, R),
|
||||
"</THEAD>\n".
|
||||
|
||||
|
||||
csv_head_tr(L, R) -->
|
||||
"<TR>\n",
|
||||
csv_head_th(L, R),
|
||||
"\n</TR>\n".
|
||||
"<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>".
|
||||
"<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).
|
||||
"</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).
|
||||
[H],
|
||||
csv_head_th_in(T, S).
|
||||
|
||||
|
||||
csv_body(L) -->
|
||||
"<TBODY>\n",
|
||||
csv_body_tr(L),
|
||||
"</TBODY>\n".
|
||||
"<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).
|
||||
"<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>".
|
||||
"<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).
|
||||
"</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(T, S).
|
||||
|
||||
csv_body_td_in([62|T], S) -->
|
||||
">",
|
||||
csv_body_td_in(T, S).
|
||||
">",
|
||||
csv_body_td_in(T, S).
|
||||
|
||||
csv_body_td_in([H|T], S) -->
|
||||
[H],
|
||||
csv_body_td_in(T, S).
|
||||
[H],
|
||||
csv_body_td_in(T, S).
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue