From 106f96c498072615ed013d890e31cb21aa9e5201 Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <gerwitm@lovullo.com>
Date: Tue, 14 Apr 2015 14:16:10 -0400
Subject: [PATCH] Stupidly simple serialization

This will be improved upon in the future; it exists in the spirit of weaving
in literate programming.
---
 src/xsltexi.xsl | 74 ++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 73 insertions(+), 1 deletion(-)

diff --git a/src/xsltexi.xsl b/src/xsltexi.xsl
index c81965f..b62527f 100644
--- a/src/xsltexi.xsl
+++ b/src/xsltexi.xsl
@@ -70,12 +70,17 @@
                       $xt:nl,
                       $doc,
                       $xt:nl,
+                      '@verbatim',
+                      $xt:nl,
+                      xt:serialize( . ),
+                      $xt:nl,
+                      '@end verbatim',
+                      $xt:nl,
                       '@end deffn',
                       $xt:nl)" />
 </template>
 
 
-
 <!--
   Escape `at' symbols in matches.
 
@@ -126,6 +131,12 @@
                       $xt:nl,
                       $doc,
                       $xt:nl,
+                      '@verbatim',
+                      $xt:nl,
+                      xt:serialize( . ),
+                      $xt:nl,
+                      '@end verbatim',
+                      $xt:nl,
                       '@end deftypefn',
                       $xt:nl)" />
 </template>
@@ -200,4 +211,65 @@
           match="*|@*|text()|comment()">
 </template>
 
+
+<!--
+  Serialization templates
+
+
+  This is very basic; it will be improved upon in the future.
+-->
+
+<function name="xt:serialize" as="xs:string">
+  <param name="context" />
+
+  <variable name="result">
+    <apply-templates mode="xt:serialize"
+                     select="$context" />
+  </variable>
+
+  <value-of select="$result" separator="" />
+</function>
+
+
+<template mode="xt:serialize"
+          match="element()">
+  <text>&lt;</text>
+  <value-of select="name()" />
+
+  <apply-templates mode="xt:serialize"
+                   select="@*" />
+
+  <choose>
+    <when test="node()">
+      <text>&gt;</text>
+      <apply-templates mode="xt:serialize" />
+      <sequence select="concat('&lt;/', name(), '&gt;' )" />
+    </when>
+
+    <otherwise>
+      <text> /&gt;</text>
+    </otherwise>
+  </choose>
+</template>
+
+
+<template match="@*" mode="xt:serialize">
+  <sequence select="concat(
+                    ' ',
+                    name(),
+                    '=&quot;',
+                    normalize-space( . ),
+                    '&quot;' )" />
+</template>
+
+
+<template match="text()" mode="xt:serialize">
+  <sequence select="." />
+</template>
+
+
+<template match="comment()" mode="xt:serialize">
+  <sequence select="concat( '&lt;!--', ., '--&gt;' )" />
+</template>
+
 </stylesheet>