+static void
+put_header (struct html_driver *html)
+{
+ fputs ("<!doctype html>\n", html->file);
+ fprintf (html->file, "<html");
+ char *ln = get_language ();
+ if (ln)
+ fprintf (html->file, " lang=\"%s\"", ln);
+ free (ln);
+ fprintf (html->file, ">\n");
+ fputs ("<head>\n", html->file);
+ print_title_tag (html->file, "title", _("PSPP Output"));
+ fprintf (html->file, "<meta name=\"generator\" content=\"%s\">\n", version);
+ fputs ("<meta http-equiv=\"content-type\" "
+ "content=\"text/html; charset=utf-8\">\n", html->file);
+
+ if (html->css)
+ {
+ fputs ("<style>\n"
+ "<!--\n"
+ "body {\n"
+ " background: white;\n"
+ " color: black;\n"
+ " padding: 0em 12em 0em 3em;\n"
+ " margin: 0\n"
+ "}\n"
+ "body>p {\n"
+ " margin: 0pt 0pt 0pt 0em\n"
+ "}\n"
+ "body>p + p {\n"
+ " text-indent: 1.5em;\n"
+ "}\n"
+ "h1 {\n"
+ " font-size: 150%;\n"
+ " margin-left: -1.33em\n"
+ "}\n"
+ "h2 {\n"
+ " font-size: 125%;\n"
+ " font-weight: bold;\n"
+ " margin-left: -.8em\n"
+ "}\n"
+ "h3 {\n"
+ " font-size: 100%;\n"
+ " font-weight: bold;\n"
+ " margin-left: -.5em }\n"
+ "h4 {\n"
+ " font-size: 100%;\n"
+ " margin-left: 0em\n"
+ "}\n"
+ "h1, h2, h3, h4, h5, h6 {\n"
+ " font-family: sans-serif;\n"
+ " color: blue\n"
+ "}\n"
+ "html {\n"
+ " margin: 0\n"
+ "}\n"
+ "code {\n"
+ " font-family: sans-serif\n"
+ "}\n"
+ "table {\n"
+ " border-collapse: collapse;\n"
+ " margin-bottom: 1em\n"
+ "}\n"
+ "caption {\n"
+ " text-align: left\n"
+ "}\n"
+ "th { font-weight: normal }\n"
+ "a:link {\n"
+ " color: #1f00ff;\n"
+ "}\n"
+ "a:visited {\n"
+ " color: #9900dd;\n"
+ "}\n"
+ "a:active {\n"
+ " color: red;\n"
+ "}\n"
+ "-->\n"
+ "</style>\n",
+ html->file);
+ }
+ fputs ("</head>\n", html->file);
+ fputs ("<body>\n", html->file);
+}
+