output: Add support for Pango markup of fonts and styles.

[pspp] / src / output / driver.c

diff --git a/src/output/driver.c b/src/output/driver.c
index f2d581cfe4558d5e1171b937f7f7ad72eb12bbeb..b9e4b785290d38f77cab652e26996b833a7217a7 100644 (file)
--- a/src/output/driver.c
+++ b/src/output/driver.c
@@ -21,6 +21,8 @@
 
 #include <ctype.h>
 #include <errno.h>
+#include <libxml/parser.h>
+#include <libxml/tree.h>
 #include <limits.h>
 #include <stdlib.h>
 #include <string.h>
@@ -34,6 +36,7 @@
 #include "libpspp/string-map.h"
 #include "libpspp/string-set.h"
 #include "libpspp/str.h"
+#include "output/group-item.h"
 #include "output/message-item.h"
 #include "output/output-item.h"
 #include "output/text-item.h"
@@ -50,6 +53,15 @@ struct output_engine
     struct llx_list drivers;       /* Contains "struct output_driver"s. */
     struct string deferred_syntax; /* TEXT_ITEM_SYNTAX being accumulated. */
     char *command_name;            /* Name of command being processed. */
+    char *title, *subtitle;        /* Components of page title. */
+
+    /* Output grouping stack.
+
+       TEXT_ITEM_GROUP_OPEN pushes a group on the stack and
+       TEXT_ITEM_GROUP_CLOSE pops one off. */
+    char **groups;               /* Command names of nested sections. */
+    size_t n_groups;
+    size_t allocated_groups;
   };
 
 static const struct output_driver_factory *factories[];
@@ -75,9 +87,11 @@ output_engine_push (void)
                                sizeof *engine_stack);
 
   e = &engine_stack[n_stack++];
+  memset (e, 0, sizeof *e);
   llx_init (&e->drivers);
   ds_init_empty (&e->deferred_syntax);
-  e->command_name = NULL;
+  e->title = NULL;
+  e->subtitle = NULL;
 }
 
 void
@@ -94,6 +108,11 @@ output_engine_pop (void)
     }
   ds_destroy (&e->deferred_syntax);
   free (e->command_name);
+  free (e->title);
+  free (e->subtitle);
+  for (size_t i = 0; i < e->n_groups; i++)
+    free (e->groups[i]);
+  free (e->groups);
 }
 
 void
@@ -179,33 +198,40 @@ output_submit (struct output_item *item)
 
   flush_deferred_syntax (e);
 
-  if (is_text_item (item))
+  if (is_group_open_item (item))
+    {
+      const struct group_open_item *group_open_item
+        = to_group_open_item (item);
+      if (e->n_groups >= e->allocated_groups)
+        e->groups = x2nrealloc (e->groups, &e->allocated_groups,
+                                sizeof *e->groups);
+      e->groups[e->n_groups] = (group_open_item->command_name
+                                ? xstrdup (group_open_item->command_name)
+                                : NULL);
+      e->n_groups++;
+    }
+  else if (is_group_close_item (item))
     {
-      const struct text_item *text_item = to_text_item (item);
-      const char *text = text_item_get_text (text_item);
-      enum text_item_type type = text_item_get_type (text_item);
+      assert (e->n_groups > 0);
 
-      if (type == TEXT_ITEM_COMMAND_OPEN)
-        {
-          free (e->command_name);
-          e->command_name = xstrdup (text);
-        }
-      else if (type == TEXT_ITEM_COMMAND_CLOSE)
-        {
-          free (e->command_name);
-          e->command_name = NULL;
-        }
+      size_t idx = --e->n_groups;
+      free (e->groups[idx]);
     }
-  else if (is_message_item (item))
+  output_submit__ (e, item);
+}
+
+const char *
+output_get_command_name (void)
+{
+  if (n_stack)
     {
-      struct message_item *message_item = to_message_item (item);
-      free (message_item->command_name);
-      message_item->command_name = (e->command_name
-                                    ? xstrdup (e->command_name)
-                                    : NULL);
+      struct output_engine *e = engine_stack_top ();
+      for (size_t i = e->n_groups; i-- > 0; )
+        if (e->groups[i])
+          return e->groups[i];
     }
 
-  output_submit__ (e, item);
+  return NULL;
 }
 
 /* Flushes output to screen devices, so that the user can see
@@ -225,6 +251,45 @@ output_flush (void)
         d->class->flush (d);
     }
 }
+
+static void
+output_set_title__ (struct output_engine *e, char **dst, const char *src)
+{
+  free (*dst);
+  *dst = src ? xstrdup (src) : NULL;
+
+  char *page_title
+    = (e->title && e->subtitle ? xasprintf ("%s\n%s", e->title, e->subtitle)
+       : e->title ? xstrdup (e->title)
+       : e->subtitle ? xstrdup (e->subtitle)
+       : xzalloc (1));
+  text_item_submit (text_item_create_nocopy (TEXT_ITEM_PAGE_TITLE,
+                                             page_title));
+}
+
+void
+output_set_title (const char *title)
+{
+  struct output_engine *e = engine_stack_top ();
+
+  output_set_title__ (e, &e->title, title);
+}
+
+void
+output_set_subtitle (const char *subtitle)
+{
+  struct output_engine *e = engine_stack_top ();
+
+  output_set_title__ (e, &e->subtitle, subtitle);
+}
+
+size_t
+output_get_group_level (void)
+{
+  struct output_engine *e = engine_stack_top ();
+
+  return e->n_groups;
+}
 \f
 void
 output_driver_init (struct output_driver *driver,
@@ -426,3 +491,24 @@ output_driver_parse_option (const char *option, struct string_map *options)
   char *value = xmemdup0 (equals + 1, strlen (equals + 1));
   string_map_insert_nocopy (options, key, value);
 }
+\f
+/* Extracts the actual text content from the given Pango MARKUP and returns it
+   as as a malloc()'d string. */
+char *
+output_get_text_from_markup (const char *markup)
+{
+  xmlDoc *doc = xmlReadMemory (markup, strlen (markup), "noname.xml", "UTF-8",
+                               (XML_PARSE_NOERROR | XML_PARSE_NOWARNING
+                                | XML_PARSE_NONET | XML_PARSE_NOCDATA));
+  if (!doc)
+    return xstrdup (markup);
+
+  char *content = CHAR_CAST (char *,
+                             xmlNodeGetContent (xmlDocGetRootElement (doc)));
+  if (!content)
+    content = xstrdup (markup);
+
+  xmlFreeDoc (doc);
+
+  return content;
+}