X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fhtml.c;h=f8ce21ce5dc97bdb49c2680c23c36287cf8c195b;hb=6fa20f2f419eac61340d9b93d5cdde01c281c9ec;hp=5aec959c740a16a69888d9f5da76ad2d56778528;hpb=a258e53c63a08b0ec48aea8f03808eb651729424;p=pspp diff --git a/src/output/html.c b/src/output/html.c index 5aec959c74..f8ce21ce5d 100644 --- a/src/output/html.c +++ b/src/output/html.c @@ -1,5 +1,6 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2009, 2010 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2009, 2010, 2011, 2012, 2013, 2014, 2017, + 2020 Free Software Foundation, Inc. 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 @@ -22,14 +23,17 @@ #include #include #include +#include #include "data/file-name.h" +#include "data/file-handle-def.h" #include "libpspp/assertion.h" #include "libpspp/cast.h" #include "libpspp/compiler.h" +#include "libpspp/i18n.h" #include "libpspp/message.h" #include "libpspp/version.h" -#include "output/cairo.h" +#include "output/cairo-chart.h" #include "output/chart-item.h" #include "output/driver-provider.h" #include "output/message-item.h" @@ -39,8 +43,8 @@ #include "output/table-item.h" #include "output/text-item.h" -#include "error.h" -#include "xalloc.h" +#include "gl/minmax.h" +#include "gl/xalloc.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -48,23 +52,26 @@ struct html_driver { struct output_driver driver; - - char *file_name; +#ifdef HAVE_CAIRO + struct cell_color fg; + struct cell_color bg; +#endif + struct file_handle *handle; char *chart_file_name; - char *command_name; FILE *file; size_t chart_cnt; - bool in_syntax; + bool bare; + bool css; + bool borders; }; static const struct output_driver_class html_driver_class; -static void html_output_table (struct html_driver *, struct table_item *); -static void escape_string (FILE *file, - const char *text, size_t length, - const char *space); +static void html_output_table (struct html_driver *, const struct table_item *); +static void escape_string (FILE *file, const char *text, + const char *space, const char *newline); static void print_title_tag (FILE *file, const char *name, const char *content); @@ -82,8 +89,93 @@ opt (struct output_driver *d, struct string_map *options, const char *key, return driver_option_get (d, options, key, default_value); } +static void +put_header (struct html_driver *html) +{ + fputs ("\n", html->file); + fprintf (html->file, "file, " lang=\"%s\"", ln); + free (ln); + fprintf (html->file, ">\n"); + fputs ("\n", html->file); + print_title_tag (html->file, "title", _("PSPP Output")); + fprintf (html->file, "\n", version); + fputs ("\n", html->file); + + if (html->css) + { + fputs ("\n", + html->file); + } + fputs ("\n", html->file); + fputs ("\n", html->file); +} + static struct output_driver * -html_create (const char *file_name, enum settings_output_devices device_type, +html_create (struct file_handle *fh, enum settings_output_devices device_type, struct string_map *o) { struct output_driver *d; @@ -91,87 +183,30 @@ html_create (const char *file_name, enum settings_output_devices device_type, html = xzalloc (sizeof *html); d = &html->driver; - output_driver_init (&html->driver, &html_driver_class, file_name, + output_driver_init (&html->driver, &html_driver_class, fh_get_file_name (fh), device_type); + html->bare = parse_boolean (opt (d, o, "bare", "false")); + html->css = parse_boolean (opt (d, o, "css", "true")); + html->borders = parse_boolean (opt (d, o, "borders", "true")); - html->file_name = xstrdup (file_name); + html->handle = fh; html->chart_file_name = parse_chart_file_name (opt (d, o, "charts", - file_name)); + fh_get_file_name (fh))); html->file = NULL; html->chart_cnt = 1; - - html->file = fn_open (html->file_name, "w"); +#ifdef HAVE_CAIRO + html->bg = parse_color (opt (d, o, "background-color", "#FFFFFFFFFFFF")); + html->fg = parse_color (opt (d, o, "foreground-color", "#000000000000")); +#endif + html->file = fn_open (html->handle, "w"); if (html->file == NULL) { - error (0, errno, _("error opening output file `%s'"), html->file_name); + msg_error (errno, _("error opening output file `%s'"), fh_get_file_name (html->handle)); goto error; } - fputs ("\n", html->file); - fputs ("\n", html->file); - fputs ("\n", html->file); - print_title_tag (html->file, "TITLE", _("PSPP Output")); - fprintf (html->file, "\n", version); - fputs ("\n", - html->file); - fputs ("\n", html->file); - fputs ("\n", - html->file); - fputs ("\n", html->file); - fputs ("file); - fputs (" LINK=\"#1f00ff\" ALINK=\"#ff0000\" VLINK=\"#9900dd\">\n", html->file); + if (!html->bare) + put_header (html); return d; @@ -187,8 +222,8 @@ print_title_tag (FILE *file, const char *name, const char *content) { if (content != NULL) { - fprintf (file, "<%s>", name); - escape_string (file, content, strlen (content), " "); + fprintf (file, "<%s>", name); + escape_string (file, content, " ", " - "); fprintf (file, "\n", name); } } @@ -200,44 +235,24 @@ html_destroy (struct output_driver *driver) if (html->file != NULL) { - if (html->in_syntax) - { - fprintf (html->file, "\n"); - html->in_syntax = false; - } - fprintf (html->file, - "\n" - "\n" - "\n"); - fn_close (html->file_name, html->file); + if (!html->bare) + fprintf (html->file, + "\n" + "\n" + "\n"); + fn_close (html->handle, html->file); } free (html->chart_file_name); - free (html->file_name); - free (html->command_name); + fh_unref (html->handle); free (html); } -static bool -is_syntax_item (const struct output_item *item) -{ - return (is_text_item (item) - && text_item_get_type (to_text_item (item)) == TEXT_ITEM_SYNTAX); -} - static void html_submit (struct output_driver *driver, const struct output_item *output_item) { struct html_driver *html = html_driver_cast (driver); - output_driver_track_current_command (output_item, &html->command_name); - - if (html->in_syntax && !is_syntax_item (output_item)) - { - fprintf (html->file, "\n"); - html->in_syntax = false; - } - if (is_table_item (output_item)) { struct table_item *table_item = to_table_item (output_item); @@ -250,11 +265,14 @@ html_submit (struct output_driver *driver, char *file_name; file_name = xr_draw_png_chart (chart_item, html->chart_file_name, - html->chart_cnt++); + html->chart_cnt++, + &html->fg, + &html->bg + ); if (file_name != NULL) { const char *title = chart_item_get_title (chart_item); - fprintf (html->file, " $\"Chart:$ ", + fprintf (html->file, " $\"chart:$ ", file_name, title ? title : _("No description")); free (file_name); } @@ -267,85 +285,54 @@ html_submit (struct output_driver *driver, switch (text_item_get_type (text_item)) { - case TEXT_ITEM_TITLE: - print_title_tag (html->file, "H1", s); - break; - - case TEXT_ITEM_SUBTITLE: - print_title_tag (html->file, "H2", s); - break; - - case TEXT_ITEM_COMMAND_OPEN: - fprintf (html->file, "

file, s, strlen (s), "_"); - fprintf (html->file, "\">"); - print_title_tag (html->file, "H3", s); + case TEXT_ITEM_PAGE_TITLE: break; - case TEXT_ITEM_COMMAND_CLOSE: - fprintf (html->file, "

\n"); - break; - - case TEXT_ITEM_SUBHEAD: - print_title_tag (html->file, "H4", s); + case TEXT_ITEM_TITLE: + { + int level = MIN (5, output_get_group_level ()) + 1; + char tag[3] = { 'H', level + '1', '\0' }; + print_title_tag (html->file, tag, s); + } break; case TEXT_ITEM_SYNTAX: - if (!html->in_syntax) - { - fprintf (html->file, "

");
-              html->in_syntax = true;
-            }
-          else
-            putc ('\n', html->file);
-          escape_string (html->file, s, strlen (s), " ");
-          break;
-
-        case TEXT_ITEM_PARAGRAPH:
-          print_title_tag (html->file, "P", s);
+          fprintf (html->file, "");
+          escape_string (html->file, s, " ", "
");
+          fprintf (html->file, "\n");
           break;
 
-        case TEXT_ITEM_MONOSPACE:
-          print_title_tag (html->file, "PRE", s); /* should be  */
-          break;
-
-        case TEXT_ITEM_BLANK_LINE:
-          fputs ("
", html->file);
-          break;
-
-        case TEXT_ITEM_EJECT_PAGE:
-          /* Nothing to do. */
-          break;
-
-        case TEXT_ITEM_COMMENT:
-        case TEXT_ITEM_ECHO:
-          /* We print out syntax anyway, so nothing to do here either. */
+        case TEXT_ITEM_LOG:
+          print_title_tag (html->file, "pre", s); /* should be 
 */
           break;
         }
     }
   else if (is_message_item (output_item))
     {
       const struct message_item *message_item = to_message_item (output_item);
-      const struct msg *msg = message_item_get_msg (message_item);
-      char *s = msg_to_string (msg, html->command_name);
-      print_title_tag (html->file, "P", s);
+      char *s = msg_to_string (message_item_get_msg (message_item));
+      print_title_tag (html->file, "p", s);
       free (s);
     }
 }
 
-/* Write LENGTH characters in TEXT to file F, escaping characters
-   as necessary for HTML.  Spaces are replaced by SPACE, which
-   should be " " or " ". */
+/* Write TEXT to file F, escaping characters as necessary for HTML.  Spaces are
+   replaced by SPACE, which should be " " or " " New-lines are replaced by
+   NEWLINE, which might be "
" or "\n" or something else appropriate. */
 static void
-escape_string (FILE *file,
-               const char *text, size_t length,
-               const char *space)
+escape_string (FILE *file, const char *text,
+               const char *space, const char *newline)
 {
-  while (length-- > 0)
+  for (;;)
     {
       char c = *text++;
       switch (c)
         {
+        case 0:
+          return;
+        case '\n':
+          fputs (newline, file);
+          break;
         case '&':
           fputs ("&", file);
           break;
@@ -369,128 +356,319 @@ escape_string (FILE *file,
 }
 
 static void
-put_border (FILE *file, int n_borders, int style, const char *border_name)
+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)
+{
+  switch (border)
+    {
+    case TABLE_STROKE_NONE:
+      return NULL;
+
+    case TABLE_STROKE_SOLID:
+      return "solid";
+
+    case TABLE_STROKE_DASHED:
+      return "dashed";
+
+    case TABLE_STROKE_THICK:
+      return "thick solid";
+
+    case TABLE_STROKE_THIN:
+      return "thin solid";
+
+    case TABLE_STROKE_DOUBLE:
+      return "double";
+
+    default:
+      return NULL;
+    }
+
+}
+
+struct css_style
+{
+  FILE *file;
+  int n_styles;
+};
+
+static struct css_style *
+style_start (FILE *file)
+{
+  struct css_style *cs = XMALLOC (struct css_style);
+  cs->file = file;
+  cs->n_styles = 0;
+  fputs (" style=\"", file);
+  return cs;
+}
+
+static void
+style_end (struct css_style *cs)
 {
-  fprintf (file, "%sborder-%s: %s",
-           n_borders == 0 ? " STYLE=\"" : "; ",
-           border_name,
-           style == TAL_1 ? "thin solid" : "double");
+  fputs ("\"", cs->file);
+  free (cs);
 }
 
 static void
-html_output_table (struct html_driver *html, struct table_item *item)
+put_style (struct css_style *st, const char *name, const char *value)
+{
+  if (st->n_styles++ > 0)
+    fputs ("; ", st->file);
+  fprintf (st->file, "%s: %s", name, value);
+}
+
+static void
+put_border (struct css_style *st, int style, const char *border_name)
+{
+  const char *css = border_to_css (style);
+  if (css)
+    {
+      if (st->n_styles++ > 0)
+        fputs ("; ", st->file);
+      fprintf (st->file, "border-%s: %s", border_name, css);
+    }
+}
+
+static void
+put_tfoot (struct html_driver *html, const struct table *t, bool *tfoot)
+{
+  if (!*tfoot)
+    {
+      fputs ("\n", html->file);
+      fputs ("\n", html->file);
+      fprintf (html->file, "\n", table_nc (t));
+      *tfoot = true;
+    }
+  else
+    fputs ("\n
", html->file);
+}
+
+static void
+html_put_footnote_markers (struct html_driver *html,
+                           const struct footnote **footnotes,
+                           size_t n_footnotes)
+{
+  if (n_footnotes > 0)
+    {
+      fputs ("^{", html->file);
+      for (size_t i = 0; i < n_footnotes; i++)
+        {
+          const struct footnote *f = footnotes[i];
+
+          if (i > 0)
+            putc (',', html->file);
+          escape_string (html->file, f->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);
+    }
+}
+
+static void
+html_output_table (struct html_driver *html, const struct table_item *item)
 {
   const struct table *t = table_item_get_table (item);
-  const char *caption;
-  int x, y;
+  bool tfoot = false;
+  int y;
+
+  fputs ("\n", html->file);
+
+  const struct table_item_text *caption = table_item_get_caption (item);
+  if (caption)
+    {
+      put_tfoot (html, t, &tfoot);
+      html_put_table_item_text (html, caption);
+    }
+  const struct footnote **f;
+  size_t n_footnotes = table_collect_footnotes (item, &f);
 
-  fputs ("\n", html->file);
+  for (size_t i = 0; i < n_footnotes; i++)
+    {
+      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);
+    }
 
-  caption = table_item_get_caption (item);
-  if (caption != NULL)
+  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 ("  \n", html->file);
+      fputs ("\n", html->file);
     }
 
+  fputs ("\n", html->file);
+
   for (y = 0; y < table_nr (t); y++)
     {
-      fputs ("  \n", html->file);
-      for (x = 0; x < table_nc (t); x++)
+      int x;
+
+      fputs ("\n", html->file);
+      for (x = 0; x < table_nc (t);)
         {
           struct table_cell cell;
           const char *tag;
-          bool is_header;
-          int alignment, colspan, rowspan;
-          int top, left, right, bottom, n_borders;
-          const char *s;
 
           table_get_cell (t, x, y, &cell);
           if (x != cell.d[TABLE_HORZ][0] || y != cell.d[TABLE_VERT][0])
-            continue;
+            goto next_1;
 
-          /* Output  or . */
+          /* output  or . */
           fprintf (html->file, "\n", tag);
 
-          table_cell_free (&cell);
+        next_1:
+          x = cell.d[TABLE_HORZ][1];
         }
-      fputs ("  \n", html->file);
+      fputs ("\n", html->file);
     }
 
-  fputs ("", html->file);
-      escape_string (html->file, caption, strlen (caption), " ");
-      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 ("
 or  tag. */
-          is_header = (y < table_ht (t)
+          /* 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);
-
-          alignment = cell.options & TAB_ALIGNMENT;
-          if (alignment != TAB_LEFT)
-            fprintf (html->file, " ALIGN=\"%s\"",
-                     alignment == TAB_RIGHT ? "RIGHT" : "CENTER");
-
-          colspan = table_cell_colspan (&cell);
-          if (colspan > 1)
-            fprintf (html->file, " COLSPAN=\"%d\"", colspan);
-
-          rowspan = table_cell_rowspan (&cell);
-          if (rowspan > 1)
-            fprintf (html->file, " ROWSPAN=\"%d\"", rowspan);
+          tag = is_header ? "th" : "td";
+          fprintf (html->file, "<%s", tag);
 
-          /* Cell borders. */
-          n_borders = 0;
-          
-          top = table_get_rule (t, TABLE_VERT, x, y);
-          if (top > TAL_GAP)
-            put_border (html->file, n_borders++, top, "top");
+          struct css_style *style = style_start (html->file);
+          enum table_halign halign = table_halign_interpret (
+            cell.style->cell_style.halign, cell.options & TAB_NUMERIC);
 
-          if (y == table_nr (t) - 1)
+          switch (halign)
             {
-              bottom = table_get_rule (t, TABLE_VERT, x, y + 1);
-              if (bottom > TAL_GAP)
-                put_border (html->file, n_borders++, bottom, "bottom");
+            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;
             }
 
-          left = table_get_rule (t, TABLE_HORZ, x, y);
-          if (left > TAL_GAP)
-            put_border (html->file, n_borders++, left, "left");
-
-          if (x == table_nc (t) - 1)
+          if (cell.style->cell_style.valign != TABLE_VALIGN_TOP)
             {
-              right = table_get_rule (t, TABLE_HORZ, x + 1, y);
-              if (right > TAL_GAP)
-                put_border (html->file, n_borders++, right, "right");
+              put_style (style, "vertical-align",
+                         (cell.style->cell_style.valign == TABLE_VALIGN_BOTTOM
+                          ? "bottom" : "middle"));
             }
 
-          if (n_borders > 0)
-            fputs ("\"", 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. */
-          s = cell.contents;
-          if (cell.options & TAB_EMPH)
-            fputs ("", html->file);
+          const char *s = cell.text;
           if (cell.options & TAB_FIX)
-            {
-              fputs ("", html->file);
-              escape_string (html->file, s, strlen (s), " ");
-              fputs ("", html->file);
-            }
+            escape_tag (html->file, "tt", s, " ", "
");
           else
             {
               s += strspn (s, CC_SPACES);
-              escape_string (html->file, s, strlen (s), " ");
+              escape_string (html->file, s, " ", "
");
+            }
+
+          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.options & TAB_EMPH)
-            fputs ("", html->file);
+          if (cell.superscript)
+            escape_tag (html->file, "sup", cell.superscript, " ", "
");
+          html_put_footnote_markers (html, cell.footnotes, cell.n_footnotes);
 
-          /* Output \n\n", html->file);
+  fputs ("\n", html->file);
+  fputs ("\n\n", html->file);
 }
 
-struct output_driver_factory html_driver_factory = { "html", html_create };
+struct output_driver_factory html_driver_factory =
+  { "html", "pspp.html", html_create };
 
 static const struct output_driver_class html_driver_class =
   {