| /* Output stream for CSS styled text, producing HTML output. |
| Copyright (C) 2006-2007, 2019-2020 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 <https://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; |
| /* The CSS filename. */ |
| char *css_filename; |
| /* A HTML aware wrapper around the destination stream. */ |
| html_ostream_t html_destination; |
| /* The current hyperlink id. */ |
| char *hyperlink_id; |
| }; |
| |
| /* 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, ostream_flush_scope_t scope) |
| { |
| html_ostream_flush (stream->html_destination, scope); |
| } |
| |
| 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"); |
| free (stream->hyperlink_id); |
| free (stream->css_filename); |
| free (stream); |
| } |
| |
| /* 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); |
| } |
| |
| static const char * |
| html_styled_ostream::get_hyperlink_ref (html_styled_ostream_t stream) |
| { |
| return html_ostream_get_hyperlink_ref (stream->html_destination); |
| } |
| |
| static const char * |
| html_styled_ostream::get_hyperlink_id (html_styled_ostream_t stream) |
| { |
| return stream->hyperlink_id; |
| } |
| |
| static void |
| html_styled_ostream::set_hyperlink (html_styled_ostream_t stream, |
| const char *ref, const char *id) |
| { |
| char *id_copy = (id != NULL ? xstrdup (id) : NULL); |
| |
| html_ostream_set_hyperlink_ref (stream->html_destination, ref); |
| free (stream->hyperlink_id); |
| stream->hyperlink_id = id_copy; |
| } |
| |
| static void |
| html_styled_ostream::flush_to_current_style (html_styled_ostream_t stream) |
| { |
| html_ostream_flush_to_current_style (stream->html_destination); |
| } |
| |
| /* 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->css_filename = xstrdup (css_filename); |
| stream->html_destination = html_ostream_create (destination); |
| stream->hyperlink_id = NULL; |
| |
| 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; |
| } |
| |
| /* Accessors. */ |
| |
| static ostream_t |
| html_styled_ostream::get_destination (html_styled_ostream_t stream) |
| { |
| return stream->destination; |
| } |
| |
| static html_ostream_t |
| html_styled_ostream::get_html_destination (html_styled_ostream_t stream) |
| { |
| return stream->html_destination; |
| } |
| |
| static const char * |
| html_styled_ostream::get_css_filename (html_styled_ostream_t stream) |
| { |
| return stream->css_filename; |
| } |
| |
| /* Instanceof test. */ |
| |
| bool |
| is_instance_of_html_styled_ostream (ostream_t stream) |
| { |
| return IS_INSTANCE (stream, ostream, html_styled_ostream); |
| } |