Print DB_PROFILE message to the screen Add support for the yelp:cache

* src/yelp-debug.c: (yelp_debug): Print DB_PROFILE message to the
screen
* src/yelp-xslt-pager.c: (xslt_pager_process), (xslt_yelp_cache):
Add support for the yelp:cache extension element; speeds up docbook
processing for large documents (like gnumeric manual)
* stylesheets/db2html.xsl.in: Use the yelp:cache extension element in
the db.number template (overrides the one from gnome-doc-utils)

4 files changed, 136 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 1a7c0d76..25a94abe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2006-06-30  Brent Smith  <gnome@nextreality.net>
+
+	* src/yelp-debug.c: (yelp_debug): Print DB_PROFILE message to the
+	screen
+	* src/yelp-xslt-pager.c: (xslt_pager_process), (xslt_yelp_cache):
+	Add support for the yelp:cache extension element; speeds up docbook
+	processing for large documents (like gnumeric manual)
+	* stylesheets/db2html.xsl.in: Use the yelp:cache extension element in
+	the db.number template (overrides the one from gnome-doc-utils)
+
 2006-06-25  Brent Smith  <gnome@nextreality.net>
 
 	* src/yelp-toc-pager.c: (create_toc_from_index): fix the biggest
diff --git a/src/yelp-debug.c b/src/yelp-debug.c
index f82728e4..34aa56df 100644
--- a/src/yelp-debug.c
+++ b/src/yelp-debug.c
@@ -23,6 +23,7 @@
 #include <glib.h>
 #include <glib/gprintf.h>
 #include <unistd.h>
+#include <time.h>
 
 #include "yelp-debug.h"
 
@@ -160,7 +161,17 @@ void yelp_debug (const gchar *file,     guint line,
 	}
 
 	if (flags & DB_PROFILE) {
+		time_t t;
+		struct tm *tmp;
+		gchar timestamp[20];
+
+		t = time (NULL);
+		tmp = localtime(&t);
+
+		strftime (timestamp, 20, "%H:%M:%S", tmp);
 		formatted = g_strdup_vprintf (format, args);
+
+		g_fprintf (stdout, "PROFILE [%s]: %s\n", timestamp, formatted);
 		str = g_strdup_printf ("MARK: %s: %s", g_get_prgname(), formatted);
 		access (str, F_OK);
 		g_free (formatted);
diff --git a/src/yelp-xslt-pager.c b/src/yelp-xslt-pager.c
index aba64fff..0439a411 100644
--- a/src/yelp-xslt-pager.c
+++ b/src/yelp-xslt-pager.c
@@ -162,6 +162,7 @@ xslt_pager_process (YelpPager *pager)
     GError *error = NULL;
 
     debug_print (DB_FUNCTION, "entering\n");
+    debug_print (DB_PROFILE, "entering %s", __FUNCTION__);
 
     g_return_val_if_fail (pager != NULL, FALSE);
     g_return_val_if_fail (YELP_IS_XSLT_PAGER (pager), FALSE);
@@ -276,6 +277,8 @@ xslt_pager_process (YelpPager *pager)
     }
 
     g_object_unref (pager);
+    
+    debug_print (DB_PROFILE, "leaving %s", __FUNCTION__);
 
     return FALSE;
 }
@@ -459,9 +462,114 @@ xslt_yelp_cache (xsltTransformContextPtr ctxt,
 		 xmlNodePtr              inst,
 		 xsltStylePreCompPtr     comp)
 {
+    static GHashTable *keyhash = NULL;
+    xmlXPathObjectPtr nodeexpr = NULL;
+    xsltStylesheetPtr style = NULL;
+    xmlNodePtr  nodeptr;
+    xmlNodePtr  tmpnode;
+    xmlNodePtr  tmpnode2;
+    xmlChar    *keyprop = NULL;
+    xmlChar    *nodeprop = NULL;
+    const char *old_outfile;
+    xmlDocPtr   old_output;
+    xmlNodePtr  old_insert;
+    xmlDocPtr   new_doc = NULL;
+    gchar      *key;
+    
+    if (!ctxt || !node || !inst || !comp)
+	return;
+
+    keyprop = xmlGetProp (inst, BAD_CAST "key");
+    if (!keyprop)
+	return;
+    
+    nodeprop = xmlGetProp (inst, BAD_CAST "node");
+    if (!nodeprop) {
+	xmlFree (keyprop);
+        return;
+    }
+
+    nodeexpr = xmlXPathEvalExpression (nodeprop, ctxt->xpathCtxt);
+    if (!nodeexpr)
+	goto done;
+    
+    /* if we haven't initialized the hash yet, do so */
+    if (!keyhash)
+	keyhash = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, xmlFree);
+
+    if (nodeexpr->type != XPATH_NODESET) {
+	debug_print (DB_WARN, "node attribute [%s] did not evaluate to a nodeset\n", 
+	             nodeprop);
+	goto done;
+    }
+
+    nodeptr = nodeexpr->nodesetval->nodeTab[0];
+    if (!nodeptr)
+	goto done;
+
+    debug_print (DB_DEBUG, "key=%s node=%s ptr=%p\n", 
+                 (gchar *)keyprop, (gchar *)nodeprop, (void *)nodeptr);
+
+    key = g_strdup_printf ("%s%p", keyprop, (void *)nodeptr);
+    tmpnode = g_hash_table_lookup (keyhash, key);
+    
+    if (tmpnode) {
+	debug_print (DB_DEBUG, "found cached result\n");
+        tmpnode2 = xmlDocCopyNode (tmpnode, tmpnode->doc, 1); 
+	xmlAddChild (ctxt->insert, tmpnode2);
+	g_free (key);
+	goto done;
+    }
+
+    old_outfile = ctxt->outputFile;
+    old_output  = ctxt->output;
+    old_insert  = ctxt->insert;
+    ctxt->outputFile = "test";
+    
+    style = xsltNewStylesheet ();
+    if (style == NULL) {
+	xsltTransformError (ctxt, NULL, inst, _("Out of memory"));
+	g_free (key);
+	goto done;
+    }
+
+    style->omitXmlDeclaration = TRUE;
+
+    new_doc = xmlNewDoc (BAD_CAST "1.0");
+    new_doc->charset = XML_CHAR_ENCODING_UTF8;
+    new_doc->dict = ctxt->dict;
+    xmlDictReference (new_doc->dict);
+
+    ctxt->output = new_doc;
+    ctxt->insert = (xmlNodePtr) new_doc;
+
     xsltApplyOneTemplate (ctxt, node, inst->children, NULL, NULL);
+    
+    ctxt->outputFile = old_outfile;
+    ctxt->output     = old_output;
+    ctxt->insert     = old_insert;
+
+    /* this copy of the node we put in the cache */
+    tmpnode = xmlCopyNode (new_doc->children, 1); 
+    g_hash_table_insert (keyhash, key, tmpnode);
+
+    /* this copy of the node gets attached to the result tree */
+    tmpnode2 = xmlDocCopyNode (tmpnode, tmpnode->doc, 1); 
+    xmlAddChild (ctxt->insert, tmpnode2);
 
     while (gtk_events_pending ())
 	gtk_main_iteration ();
     /* FIXME : check for cancel */
+
+done:
+    if (keyprop)
+	xmlFree (keyprop);
+    if (nodeprop)
+	xmlFree (nodeprop);
+    if (nodeexpr)
+	xmlXPathFreeObject (nodeexpr);
+    if (new_doc)
+	xmlFreeDoc (new_doc);
+    if (style)
+	xsltFreeStylesheet (style);
 }
diff --git a/stylesheets/db2html.xsl.in b/stylesheets/db2html.xsl.in
index fc14d591..4450c370 100644
--- a/stylesheets/db2html.xsl.in
+++ b/stylesheets/db2html.xsl.in
@@ -58,6 +58,13 @@
 <xsl:param name="db.chunk.index_basename" select="'__yelp_index'"/>
 <xsl:param name="db.chunk.toc_basename"   select="'__yelp_toc'"/>
 
+<xsl:template name="db.number">
+  <xsl:param name="node" select="."/>
+  <yelp:cache key="db.number" node="$node">
+    <xsl:apply-templates mode="db.number.mode" select="$node"/>
+  </yelp:cache>
+</xsl:template>
+
 <!-- == db.chunk == -->
 <xsl:template name="db.chunk">
   <xsl:param name="node" select="."/>