X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fhtml.c;h=ecaf729dd74e4377142dc7f40ec6669ce8df0379;hb=db9a44802bb9fde4d4acd1b11572493b82193ab0;hp=c1613c4fea24d5668322540f9e2087e2763b90b5;hpb=e804300543c1c37393cb6d777e8a2f05686ff2cb;p=pspp diff --git a/src/output/html.c b/src/output/html.c index c1613c4fea..ecaf729dd7 100644 --- a/src/output/html.c +++ b/src/output/html.c @@ -41,6 +41,8 @@ #include "output/message-item.h" #include "output/options.h" #include "output/output-item-provider.h" +#include "output/pivot-output.h" +#include "output/pivot-table.h" #include "output/table-provider.h" #include "output/table-item.h" #include "output/text-item.h" @@ -51,6 +53,10 @@ #include "gettext.h" #define _(msgid) gettext (msgid) +/* This file uses TABLE_HORZ and TABLE_VERT enough to warrant abbreviating. */ +#define H TABLE_HORZ +#define V TABLE_VERT + struct html_driver { struct output_driver driver; @@ -154,11 +160,10 @@ put_header (struct html_driver *html) " border-collapse: collapse;\n" " margin-bottom: 1em\n" "}\n" - "th { background: #dddddd; font-weight: normal; font-style: oblique }\n" "caption {\n" " text-align: left\n" "}\n" - + "th { font-weight: normal }\n" "a:link {\n" " color: #1f00ff;\n" "}\n" @@ -305,7 +310,9 @@ html_submit (struct output_driver *driver, break; case TEXT_ITEM_LOG: - print_title_tag (html->file, "pre", s); /* should be

*/ + fprintf (html->file, "

"); + escape_string (html->file, s, " ", "
"); + fprintf (html->file, "

\n"); break; } } @@ -313,7 +320,9 @@ html_submit (struct output_driver *driver, { const struct message_item *message_item = to_message_item (output_item); char *s = msg_to_string (message_item_get_msg (message_item)); - print_title_tag (html->file, "p", s); + fprintf (html->file, "

"); + escape_string (html->file, s, " ", "
"); + fprintf (html->file, "

\n"); free (s); } } @@ -357,18 +366,6 @@ escape_string (FILE *file, const char *text, } } -static void -escape_tag (FILE *file, const char *tag, - const char *text, const char *space, const char *newline) -{ - if (!text || !*text) - return; - - fprintf (file, "<%s>", tag); - escape_string (file, text, space, newline); - fprintf (file, "", tag); -} - static const char * border_to_css (int border) { @@ -404,276 +401,316 @@ struct css_style int n_styles; }; -static struct css_style * -style_start (FILE *file) +static void +style_start (struct css_style *cs, FILE *file) { - struct css_style *cs = XMALLOC (struct css_style); - cs->file = file; - cs->n_styles = 0; - fputs (" style=\"", file); - return cs; + *cs = (struct css_style) { + .file = file, + .n_styles = 0, + }; } static void style_end (struct css_style *cs) { - fputs ("\"", cs->file); - free (cs); + if (cs->n_styles > 0) + fputs ("'", cs->file); +} + +static void +next_style (struct css_style *st) +{ + bool first = !st->n_styles++; + fputs (first ? " style='" : "; ", st->file); } static void put_style (struct css_style *st, const char *name, const char *value) { - if (st->n_styles++ > 0) - fputs ("; ", st->file); + next_style (st); fprintf (st->file, "%s: %s", name, value); } -static void -put_border (struct css_style *st, int style, const char *border_name) +static bool +format_color (const struct cell_color color, + const struct cell_color default_color, + char *buf, size_t bufsize) { - const char *css = border_to_css (style); - if (css) + bool retval = !cell_color_equal (&color, &default_color); + if (retval) { - if (st->n_styles++ > 0) - fputs ("; ", st->file); - fprintf (st->file, "border-%s: %s", border_name, css); + if (color.alpha == 255) + snprintf (buf, bufsize, "#%02x%02x%02x", color.r, color.g, color.b); + else + snprintf (buf, bufsize, "rgba(%d, %d, %d, %.3f)", + color.r, color.g, color.b, color.alpha / 255.0); } + return retval; } static void -put_tfoot (struct html_driver *html, const struct table *t, bool *tfoot) +put_border (const struct table *table, const struct table_cell *cell, + struct css_style *style, + enum table_axis axis, int h, int v, + const char *border_name) { - if (!*tfoot) + struct cell_color color; + const char *css = border_to_css ( + table_get_rule (table, axis, cell->d[H][h], cell->d[V][v], &color)); + if (css) { - fputs ("\n", html->file); - fputs ("\n", html->file); - fprintf (html->file, "\n", table_nc (t)); - *tfoot = true; + next_style (style); + fprintf (style->file, "border-%s: %s", border_name, css); + + char buf[32]; + if (format_color (color, (struct cell_color) CELL_COLOR_BLACK, + buf, sizeof buf)) + fprintf (style->file, " %s", buf); } - else - fputs ("\n
", html->file); } static void -html_put_footnote_markers (struct html_driver *html, - const struct footnote **footnotes, - size_t n_footnotes) +html_put_table_cell (struct html_driver *html, const struct pivot_table *pt, + const struct table_cell *cell, + const char *tag, const struct table *t) { - if (n_footnotes > 0) + fprintf (html->file, "<%s", tag); + + struct css_style style; + style_start (&style, html->file); + + struct string body = DS_EMPTY_INITIALIZER; + bool numeric = pivot_value_format_body (cell->value, pt, &body); + + enum table_halign halign = table_halign_interpret (cell->cell_style->halign, + numeric); + + switch (halign) + { + case TABLE_HALIGN_RIGHT: + put_style (&style, "text-align", "right"); + break; + case TABLE_HALIGN_CENTER: + put_style (&style, "text-align", "center"); + break; + default: + /* Do nothing */ + break; + } + + if (cell->options & TAB_ROTATE) + put_style (&style, "writing-mode", "sideways-lr"); + + if (cell->cell_style->valign != TABLE_VALIGN_TOP) + { + put_style (&style, "vertical-align", + (cell->cell_style->valign == TABLE_VALIGN_BOTTOM + ? "bottom" : "middle")); + } + + const struct font_style *fs = cell->font_style; + char bgcolor[32]; + if (format_color (fs->bg[cell->d[V][0] % 2], + (struct cell_color) CELL_COLOR_WHITE, + bgcolor, sizeof bgcolor)) + put_style (&style, "background", bgcolor); + + char fgcolor[32]; + if (format_color (fs->fg[cell->d[V][0] % 2], + (struct cell_color) CELL_COLOR_BLACK, + fgcolor, sizeof fgcolor)) + put_style (&style, "color", fgcolor); + + if (fs->typeface) + { + put_style (&style, "font-family", "\""); + escape_string (html->file, fs->typeface, " ", "\n"); + putc ('"', html->file); + } + if (fs->bold) + put_style (&style, "font-weight", "bold"); + if (fs->italic) + put_style (&style, "font-style", "italic"); + if (fs->underline) + put_style (&style, "text-decoration", "underline"); + if (fs->size) + { + char buf[32]; + snprintf (buf, sizeof buf, "%dpt", fs->size); + put_style (&style, "font-size", buf); + } + + if (t && html->borders) + { + put_border (t, cell, &style, V, 0, 0, "top"); + put_border (t, cell, &style, H, 0, 0, "left"); + + if (cell->d[V][1] == t->n[V]) + put_border (t, cell, &style, V, 0, 1, "bottom"); + if (cell->d[H][1] == t->n[H]) + put_border (t, cell, &style, H, 1, 0, "right"); + } + style_end (&style); + + int colspan = table_cell_colspan (cell); + if (colspan > 1) + fprintf (html->file, " colspan=\"%d\"", colspan); + + int rowspan = table_cell_rowspan (cell); + if (rowspan > 1) + fprintf (html->file, " rowspan=\"%d\"", rowspan); + + putc ('>', html->file); + + const char *s = ds_cstr (&body); + s += strspn (s, CC_SPACES); + escape_string (html->file, s, " ", "
"); + ds_destroy (&body); + + if (cell->value->n_subscripts) + { + fputs ("", html->file); + for (size_t i = 0; i < cell->value->n_subscripts; i++) + { + if (i) + putc (',', html->file); + escape_string (html->file, cell->value->subscripts[i], + " ", "
"); + } + fputs ("
", html->file); + } + if (cell->value->n_footnotes > 0) { fputs ("", html->file); - for (size_t i = 0; i < n_footnotes; i++) + for (size_t i = 0; i < cell->value->n_footnotes; i++) { - const struct footnote *f = footnotes[i]; - if (i > 0) putc (',', html->file); - escape_string (html->file, f->marker, " ", "
"); + + size_t idx = cell->value->footnote_indexes[i]; + const struct pivot_footnote *f = pt->footnotes[idx]; + char *marker = pivot_value_to_string (f->marker, pt); + escape_string (html->file, marker, " ", "
"); + free (marker); } fputs ("
", html->file); } -} -static void -html_put_table_item_text (struct html_driver *html, - const struct table_item_text *text) -{ - escape_string (html->file, text->content, " ", "
"); - html_put_footnote_markers (html, text->footnotes, text->n_footnotes); -} - -static void -html_put_table_item_layers (struct html_driver *html, - const struct table_item_layers *layers) -{ - for (size_t i = 0; i < layers->n_layers; i++) - { - if (i) - fputs ("
\n", html->file); - - const struct table_item_layer *layer = &layers->layers[i]; - escape_string (html->file, layer->content, " ", "
"); - html_put_footnote_markers (html, layer->footnotes, layer->n_footnotes); - } + /* output or . */ + fprintf (html->file, "\n", tag); } static void -html_output_table (struct html_driver *html, const struct table_item *item) +html_output_table_layer (struct html_driver *html, const struct pivot_table *pt, + const size_t *layer_indexes) { - const struct table *t = table_item_get_table (item); - bool tfoot = false; - int y; + struct table *title, *layers, *body, *caption, *footnotes; + pivot_output (pt, layer_indexes, true, &title, &layers, &body, + &caption, &footnotes, NULL, NULL); fputs ("file); - if (item->notes) + if (pt->notes) { fputs (" title=\"", html->file); - escape_string (html->file, item->notes, " ", "\n"); + escape_string (html->file, pt->notes, " ", "\n"); putc ('"', html->file); } fputs (">\n", html->file); - const struct table_item_text *caption = table_item_get_caption (item); - if (caption) + if (title) { - put_tfoot (html, t, &tfoot); - html_put_table_item_text (html, caption); + struct table_cell cell; + table_get_cell (title, 0, 0, &cell); + html_put_table_cell (html, pt, &cell, "caption", NULL); } - const struct footnote **f; - size_t n_footnotes = table_collect_footnotes (item, &f); - for (size_t i = 0; i < n_footnotes; i++) + if (layers) { - put_tfoot (html, t, &tfoot); - escape_tag (html->file, "sup", f[i]->marker, " ", "
"); - escape_string (html->file, f[i]->content, " ", "
"); - } - free (f); - if (tfoot) - { - fputs ("\n", html->file); - fputs ("\n", html->file); - fputs ("\n", html->file); - } + fputs ("\n", html->file); + for (size_t y = 0; y < layers->n[V]; y++) + { + fputs ("\n", html->file); - const struct table_item_text *title = table_item_get_title (item); - const struct table_item_layers *layers = table_item_get_layers (item); - if (title || layers) - { - fputs ("", html->file); - if (title) - html_put_table_item_text (html, title); - if (title && layers) - fputs ("
\n", html->file); - if (layers) - html_put_table_item_layers (html, layers); - fputs ("\n", html->file); + struct table_cell cell; + table_get_cell (layers, 0, y, &cell); + cell.d[H][1] = body->n[H]; + html_put_table_cell (html, pt, &cell, "td", NULL); + + fputs ("\n", html->file); + } + fputs ("\n", html->file); } fputs ("\n", html->file); - - for (y = 0; y < table_nr (t); y++) + for (int y = 0; y < body->n[V]; y++) { - int x; - fputs ("\n", html->file); - for (x = 0; x < table_nc (t);) + for (int x = 0; x < body->n[H]; ) { struct table_cell cell; - const char *tag; - - table_get_cell (t, x, y, &cell); - if (x != cell.d[TABLE_HORZ][0] || y != cell.d[TABLE_VERT][0]) - goto next_1; - - /* output or tag. */ - bool is_header = (y < table_ht (t) - || y >= table_nr (t) - table_hb (t) - || x < table_hl (t) - || x >= table_nc (t) - table_hr (t)); - tag = is_header ? "th" : "td"; - fprintf (html->file, "<%s", tag); - - struct css_style *style = style_start (html->file); - enum table_halign halign = table_halign_interpret ( - cell.style->cell_style.halign, cell.options & TAB_NUMERIC); - - switch (halign) + table_get_cell (body, x, y, &cell); + if (x == cell.d[TABLE_HORZ][0] && y == cell.d[TABLE_VERT][0]) { - case TABLE_HALIGN_RIGHT: - put_style (style, "text-align", "right"); - break; - case TABLE_HALIGN_CENTER: - put_style (style, "text-align", "center"); - break; - default: - /* Do nothing */ - break; + bool is_header = (y < body->h[V][0] + || y >= body->n[V] - body->h[V][1] + || x < body->h[H][0] + || x >= body->n[H] - body->h[H][1]); + const char *tag = is_header ? "th" : "td"; + html_put_table_cell (html, pt, &cell, tag, body); } - if (cell.style->cell_style.valign != TABLE_VALIGN_TOP) - { - put_style (style, "vertical-align", - (cell.style->cell_style.valign == TABLE_VALIGN_BOTTOM - ? "bottom" : "middle")); - } + x = cell.d[TABLE_HORZ][1]; + } + fputs ("\n", html->file); + } + fputs ("\n", html->file); - int colspan = table_cell_colspan (&cell); - int rowspan = table_cell_rowspan (&cell); - - if (html->borders) - { - /* Cell borders. */ - struct cell_color color; - - int top = table_get_rule (t, TABLE_VERT, x, y, &color); - put_border (style, top, "top"); - - if (y + rowspan == table_nr (t)) - { - int bottom = table_get_rule (t, TABLE_VERT, x, y + rowspan, - &color); - put_border (style, bottom, "bottom"); - } - - int left = table_get_rule (t, TABLE_HORZ, x, y, &color); - put_border (style, left, "left"); - - if (x + colspan == table_nc (t)) - { - int right = table_get_rule (t, TABLE_HORZ, x + colspan, y, - &color); - put_border (style, right, "right"); - } - } - style_end (style); - - if (colspan > 1) - fprintf (html->file, " colspan=\"%d\"", colspan); - - if (rowspan > 1) - fprintf (html->file, " rowspan=\"%d\"", rowspan); - - putc ('>', html->file); - - /* Output cell contents. */ - const char *s = cell.text; - if (cell.options & TAB_FIX) - escape_tag (html->file, "tt", s, " ", "
"); - else - { - s += strspn (s, CC_SPACES); - escape_string (html->file, s, " ", "
"); - } + if (caption || footnotes) + { + fprintf (html->file, "\n"); - if (cell.n_subscripts) - { - fputs ("", html->file); - for (size_t i = 0; i < cell.n_subscripts; i++) - { - if (i) - putc (',', html->file); - escape_string (html->file, cell.subscripts[i], - " ", "
"); - } - fputs ("
", html->file); - } - if (cell.superscript) - escape_tag (html->file, "sup", cell.superscript, " ", "
"); - html_put_footnote_markers (html, cell.footnotes, cell.n_footnotes); + if (caption) + { + fputs ("\n", html->file); - /* output or . */ - fprintf (html->file, "\n", tag); + struct table_cell cell; + table_get_cell (caption, 0, 0, &cell); + cell.d[H][1] = body->n[H]; + html_put_table_cell (html, pt, &cell, "td", NULL); - next_1: - x = cell.d[TABLE_HORZ][1]; + fputs ("\n", html->file); } - fputs ("\n", html->file); + + if (footnotes) + for (size_t y = 0; y < footnotes->n[V]; y++) + { + fputs ("\n", html->file); + + struct table_cell cell; + table_get_cell (footnotes, 0, y, &cell); + cell.d[H][1] = body->n[H]; + html_put_table_cell (html, pt, &cell, "td", NULL); + + fputs ("\n", html->file); + } + fputs ("\n", html->file); } - fputs ("\n", html->file); fputs ("\n\n", html->file); + + table_unref (title); + table_unref (layers); + table_unref (body); + table_unref (caption); + table_unref (footnotes); +} + +static void +html_output_table (struct html_driver *html, const struct table_item *item) +{ + size_t *layer_indexes; + PIVOT_OUTPUT_FOR_EACH_LAYER (layer_indexes, item->pt, true) + html_output_table_layer (html, item->pt, layer_indexes); } struct output_driver_factory html_driver_factory =