CSV to HTML translation: Difference between revisions

Content deleted Content added
m →‎[[CSV to HTML translation#ALGOL 68]]: remove trainling spaces and other misc code changes
m →‎[[CSV to HTML translation#ALGOL 68]]: generalise <HEAD> procedure.
Line 128: Line 128:
);
);


PROC head = VOID: (
PROC head = (STRING title)VOID: (
FORMAT title = $"CSV to HTML translation - Extra Credit"$;
printf((
printf((
$"<HEAD>"l$,
$"<HEAD>"l$,
$"<TITLE>f(title)</TITLE>"l$,
$"<TITLE>"g"</TITLE>"l$, title,
$"<STYLE type=""text/css"">"l$,
$"<STYLE type=""text/css"">"l$,
$"TD {background-color:#ddddff; }"l$,
$"TD {background-color:#ddddff; }"l$,
Line 157: Line 156:


html;
html;
head("CSV to HTML translation - Extra Credit");
head;
body;
body;
table;
table;
Line 177: Line 176:
Output:<lang html5><HTML>
Output:<lang html5><HTML>
<HEAD>
<HEAD>
<TITLE>f(title)</TITLE>
<TITLE>CSV to HTML translation - Extra Credit</TITLE>
<STYLE type="text/css">
<STYLE type="text/css">
TD {background-color:#ddddff; }
TD {background-color:#ddddff; }