1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
/* Output stream for CSS styled text, producing HTML output.
Copyright (C) 2006-2007, 2015-2016 Free Software Foundation, Inc.
Written by Bruno Haible <bruno@clisp.org>, 2006.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include <config.h>
/* Specification. */
#include "html-styled-ostream.h"
#include <errno.h>
#include <fcntl.h>
#include <stdlib.h>
#include <unistd.h>
#include "html-ostream.h"
#include "binary-io.h"
#ifndef O_TEXT
# define O_TEXT 0
#endif
#include "error.h"
#include "safe-read.h"
#include "xalloc.h"
#include "gettext.h"
#define _(str) gettext (str)
struct html_styled_ostream : struct styled_ostream
{
fields:
/* The destination stream. */
ostream_t destination;
/* A HTML aware wrapper around the destination stream. */
html_ostream_t html_destination;
};
/* Implementation of ostream_t methods. */
static void
html_styled_ostream::write_mem (html_styled_ostream_t stream,
const void *data, size_t len)
{
html_ostream_write_mem (stream->html_destination, data, len);
}
static void
html_styled_ostream::flush (html_styled_ostream_t stream)
{
html_ostream_flush (stream->html_destination);
}
static void
html_styled_ostream::free (html_styled_ostream_t stream)
{
html_ostream_free (stream->html_destination);
ostream_write_str (stream->destination, "</body>\n");
ostream_write_str (stream->destination, "</html>\n");
}
/* Implementation of styled_ostream_t methods. */
static void
html_styled_ostream::begin_use_class (html_styled_ostream_t stream,
const char *classname)
{
html_ostream_begin_span (stream->html_destination, classname);
}
static void
html_styled_ostream::end_use_class (html_styled_ostream_t stream,
const char *classname)
{
html_ostream_end_span (stream->html_destination, classname);
}
/* Constructor. */
html_styled_ostream_t
html_styled_ostream_create (ostream_t destination, const char *css_filename)
{
html_styled_ostream_t stream =
XMALLOC (struct html_styled_ostream_representation);
stream->base.base.vtable = &html_styled_ostream_vtable;
stream->destination = destination;
stream->html_destination = html_ostream_create (destination);
ostream_write_str (stream->destination, "<?xml version=\"1.0\"?>\n");
/* HTML 4.01 or XHTML 1.0?
Use HTML 4.01. This is conservative. Before switching to XHTML 1.0,
verify that in the output
- all HTML element names are in lowercase,
- all empty elements are denoted like <br/> or <p></p>,
- every attribute specification is in assignment form, like
<table border="1">,
- every <a name="..."> element also has an 'id' attribute,
- special characters like < > & " are escaped in the <style> and
<script> elements. */
ostream_write_str (stream->destination,
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n");
ostream_write_str (stream->destination, "<html>\n");
ostream_write_str (stream->destination, "<head>\n");
if (css_filename != NULL)
{
ostream_write_str (stream->destination, "<style type=\"text/css\">\n"
"<!--\n");
/* Include the contents of CSS_FILENAME literally. */
{
int fd;
char buf[4096];
fd = open (css_filename, O_RDONLY | O_TEXT);
if (fd < 0)
error (EXIT_FAILURE, errno,
_("error while opening \"%s\" for reading"),
css_filename);
for (;;)
{
size_t n_read = safe_read (fd, buf, sizeof (buf));
if (n_read == SAFE_READ_ERROR)
error (EXIT_FAILURE, errno, _("error reading \"%s\""),
css_filename);
if (n_read == 0)
break;
ostream_write_mem (stream->destination, buf, n_read);
}
if (close (fd) < 0)
error (EXIT_FAILURE, errno, _("error after reading \"%s\""),
css_filename);
}
ostream_write_str (stream->destination, "-->\n"
"</style>\n");
}
ostream_write_str (stream->destination, "</head>\n");
ostream_write_str (stream->destination, "<body>\n");
return stream;
}
|
