From 410f9bbd388560c325bacac8043f4419712464f8 Mon Sep 17 00:00:00 2001
From: EsGeh <SamuelGfroerer@googlemail.com>
Date: Wed, 6 Nov 2019 14:57:01 +0100
Subject: [PATCH] tei2html stylesheet: better debug output

---
 tei2html/tei2html.xsl                      |   3 +-
 tei2html/tei2html_chapter.xsl              |   6 +-
 tei2html/tei2html_chapter_utils.xsl        |   2 +-
 tei2html/tei2html_publ_frontpage_utils.xsl |   9 +-
 tei2html/utils/common.xsl                  |  25 +--
 tei2html/utils/html_rules.xsl              | 102 ++++--------
 tei2html/utils/print.xsl                   | 185 +++++++++++++++++++++
 7 files changed, 235 insertions(+), 97 deletions(-)
 create mode 100644 tei2html/utils/print.xsl

diff --git a/tei2html/tei2html.xsl b/tei2html/tei2html.xsl
index 6a0945c..3fc6219 100644
--- a/tei2html/tei2html.xsl
+++ b/tei2html/tei2html.xsl
@@ -17,6 +17,7 @@
 	<xsl:include href="tei2html_chapter_utils.xsl"/>
 	<xsl:include href="utils/html_rules.xsl"/>
 	<xsl:include href="utils/common.xsl"/>
+	<xsl:include href="utils/print.xsl"/>
 
 	<xsl:param name="output_dir" as="xs:string" select="'.'"/>
   <xsl:param name="static_dir" as="xs:string" select="'static'"/>
@@ -35,7 +36,7 @@
 	-->
 
   <xsl:template match="/">
-		<xsl:message> domain: <xsl:value-of select="$domain"/> </xsl:message>
+		<xsl:sequence select="eoa:info(concat('domain: ', $domain))"/>
 		<xsl:variable name="output_subdir" as="xs:string">
 			<xsl:value-of select="concat($output_dir, '/', $series, '/', $publication_number)"/>
 		</xsl:variable>
diff --git a/tei2html/tei2html_chapter.xsl b/tei2html/tei2html_chapter.xsl
index 9915c45..2c9a339 100644
--- a/tei2html/tei2html_chapter.xsl
+++ b/tei2html/tei2html_chapter.xsl
@@ -26,11 +26,9 @@
 	<xsl:include href="tei2html_chapter_utils.xsl"/>
 
   <xsl:template match="/">
-		<!--
-		<xsl:message> domain: <xsl:value-of select="$domain"/> </xsl:message>
-		-->
+		<xsl:sequence select="eoa:info(concat('domain: ', $domain))"/>
 		<xsl:for-each select="(//tei:div[@type='chapter'])[position() = $chapter_nr]">
-			<xsl:message>printing chapter <xsl:value-of select="$chapter_nr"/>. head: <xsl:value-of select="tei:head"/></xsl:message>
+			<xsl:sequence select="eoa:info(concat('printing chapter ', $chapter_nr, '. head: ', tei:head))"/>
 			<xsl:call-template name="render_chapter">
 				<xsl:with-param name="static_dir" select="$static_dir"/>
 				<xsl:with-param name="logo_dir" select="$logo_dir"/>
diff --git a/tei2html/tei2html_chapter_utils.xsl b/tei2html/tei2html_chapter_utils.xsl
index 6e70aef..9e15b22 100644
--- a/tei2html/tei2html_chapter_utils.xsl
+++ b/tei2html/tei2html_chapter_utils.xsl
@@ -176,7 +176,7 @@
 			</xsl:with-param>
 			<xsl:with-param name="script">
 				<xsl:if test=".//tei:formula">
-					<xsl:message>putting in mathjax</xsl:message>
+					<xsl:sequence select="eoa:info('adding mathjax...')"/>
 					<script type="text/x-mathjax-config">
 MathJax.Hub.Config({
 extensions: ["tex2jax.js"],
diff --git a/tei2html/tei2html_publ_frontpage_utils.xsl b/tei2html/tei2html_publ_frontpage_utils.xsl
index 48d5213..03694f3 100644
--- a/tei2html/tei2html_publ_frontpage_utils.xsl
+++ b/tei2html/tei2html_publ_frontpage_utils.xsl
@@ -499,14 +499,14 @@
         </xsl:for-each>
       </xsl:when>
       <xsl:otherwise>
-        <xsl:value-of select="eoa:debug(3, 'No book author. Exiting.', '')"/>
+        <xsl:sequence select="eoa:error('No book author.')"/>
       </xsl:otherwise>
     </xsl:choose>
   </xsl:template>
 
   <xsl:template name="create_index">
     <xsl:param name="indextype"/>
-		<xsl:message>creating index...</xsl:message>
+		<xsl:sequence select="eoa:info('creating index')"/>
 		<!-- all index elements starting with the same letter: -->
 		<xsl:for-each-group select="//tei:index[lower-case(@indexName) = $indextype]" group-by="substring(if (exists(./tei:term/@sortKey)) then ./tei:term/@sortKey else ./tei:term/text(),1,1)">
 			<xsl:sort select="current-grouping-key()"/>
@@ -530,9 +530,7 @@
 								<xsl:variable name="paragraph_nr" select="index-of($chapter//tei:p/tei:index/generate-id(), generate-id(.))"/>
 								<xsl:variable name="local_uri" select="concat($series, '/', $publication_number, '/', $chapter_nr , '/index.html#', $paragraph_nr)"/>
 								<xsl:variable name="global_uri" select="concat($domain, '/', $local_uri)"/>
-								<xsl:message>
-									<xsl:value-of select="concat(current-grouping-key(), ': ', $global_uri)"/>
-								</xsl:message>
+								<xsl:sequence select="eoa:info(concat(current-grouping-key(), ': ', $global_uri))"/>
 								<li>
 									<a href="{$global_uri}"> <xsl:value-of select="position()"/></a>
 								</li>
@@ -550,6 +548,7 @@
         </xsl:message>
     -->
     </xsl:for-each-group>
+		<xsl:sequence select="eoa:info('finished creating index')"/>
   </xsl:template>
 
 </xsl:stylesheet>
diff --git a/tei2html/utils/common.xsl b/tei2html/utils/common.xsl
index ce60235..a3fc19b 100644
--- a/tei2html/utils/common.xsl
+++ b/tei2html/utils/common.xsl
@@ -13,7 +13,11 @@
 		indent="yes"
 	/>
 
+	<xsl:variable name="apos" as="xs:string">'</xsl:variable>
+
+	<!--
   <xsl:param name="verbosity" as="xs:integer" required="no" select="0"/>
+	-->
 
   <xsl:template name="website_meta_tags">
     <xsl:param name="citation_title"/>
@@ -209,7 +213,7 @@
         </xsl:for-each>
       </xsl:when>
       <xsl:otherwise>
-        <xsl:value-of select="eoa:debug(3, 'No book author. Exiting.', '')"/>
+        <xsl:value-of select="eoa:error('No book author!')"/>
       </xsl:otherwise>
     </xsl:choose>
   </xsl:template>
@@ -248,26 +252,9 @@
         </xsl:for-each>
       </xsl:when>
       <xsl:otherwise>
-        <xsl:value-of select="eoa:debug(1, 'No chapter author: ', node())"/>
+        <xsl:value-of select="eoa:error('No chapter author: ', node())"/>
       </xsl:otherwise>
     </xsl:choose>
   </xsl:template>
 
-  <xsl:function name="eoa:debug">
-    <xsl:param name="level" as="xs:integer"/>
-    <xsl:param name="message" as="xs:string"/>
-    <xsl:param name="node"/>
-    <xsl:choose>
-      <xsl:when test="$level = 1 and $verbosity &gt; 0">
-        <xsl:message terminate="no">[INFO]: <xsl:value-of select="$message"/> <xsl:value-of select="$node"/></xsl:message>
-      </xsl:when>
-      <xsl:when test="$level = 2 and $verbosity &gt; 1">
-        <xsl:message terminate="no">[WARNING]: <xsl:value-of select="$message"/> <xsl:value-of select="$node"/></xsl:message>
-      </xsl:when>
-      <xsl:when test="$level = 3 and $verbosity &gt; 2">
-        <xsl:message terminate="yes">[ERROR]: <xsl:value-of select="$message"/> <xsl:value-of select="$node"/>. Exiting.</xsl:message>
-      </xsl:when>
-    </xsl:choose>
-  </xsl:function>
-
 </xsl:stylesheet>
diff --git a/tei2html/utils/html_rules.xsl b/tei2html/utils/html_rules.xsl
index 31aa3f6..de5148e 100644
--- a/tei2html/utils/html_rules.xsl
+++ b/tei2html/utils/html_rules.xsl
@@ -24,10 +24,7 @@
 
 	<!-- default rule: warning -->
 	<xsl:template mode="chapter_main" match="tei:*" priority="-100">
-		<xsl:message>WARNING: in mode 'chapter_main': no template for 
-			<xsl:value-of select="concat('', name(), ': ') "/>
-			<xsl:value-of select="./text()"/>
-		</xsl:message>
+		<xsl:sequence select="eoa:warning(concat('in mode ', $apos, 'chapter_main', $apos, ': no template for tei:', name(), '[@type=', $apos, @type, $apos, ']'))"/>
 		<!--
 		<xsl:apply-templates/>
 		-->
@@ -88,30 +85,34 @@
 
 	<!-- default rule: warning -->
 	<xsl:template mode="chapter_main_paragraphs" match="tei:*" priority="-100">
-		<xsl:message>WARNING: in mode 'chapter_main_paragraphs': no template for 
-			<xsl:value-of select="concat('', name(), ': ') "/>
-			<xsl:value-of select="./text()"/>
-		</xsl:message>
+		<xsl:sequence select="eoa:warning(concat('in mode ', $apos, 'chapter_main_paragraphs', $apos, ': no template for tei:', name(), '[@type=', $apos, @type, $apos, ']'))"/>
   </xsl:template>
 
 	<xsl:template mode="chapter_main_paragraphs" match="tei:p" as="element(div)">
+		<xsl:call-template name="render_paragraph">
+			<xsl:with-param name="css_classes" select="'publication-detail__main-paragraph'"/>
+		</xsl:call-template>
+	</xsl:template>
+
+	<xsl:template name="render_paragraph" as="element(div)">
+		<xsl:param name="css_classes" as="xs:string" select="''"/>
 		<xsl:variable name="chapter" select="ancestor::tei:div[@type = 'chapter']"/>
 		<xsl:variable name="chapter_nr" select="count($chapter/preceding-sibling::*)"/>
 		<xsl:variable name="paragraph_id" as="xs:string"><xsl:call-template name="paragraph_id"/></xsl:variable>
 		<xsl:variable name="local_uri" select="concat($series, '/', $publication_number, '/', $chapter_nr , '/index.html#', $paragraph_id)"/>
 		<xsl:variable name="global_uri" select="concat($domain, '/', $local_uri)"/>
-		<xsl:message>paragraph <xsl:value-of select="$paragraph_id"/></xsl:message>
+		<xsl:sequence select="eoa:info(concat('chapter paragraph', $paragraph_id))"/>
 		<xsl:call-template name="accordion_row">
 			<xsl:with-param name="link" select="$global_uri"/>
 			<xsl:with-param name="content" as="element()*">
-				<p id="{$paragraph_id}" class="publication-detail__main-paragraph">
+				<p id="{$paragraph_id}" class="{$css_classes}">
 					<xsl:if test="@corresp">
 						<xsl:variable name="id" as="xs:string" select="eoa:normalize_reference(@corresp)"/>
 						<xsl:variable name="theorem" select="key('theoremdecls', $id)"/>
 						<xsl:variable name="theorem_group" select="key('theorems', $id)"/>
 						<xsl:variable name="theorem_nr" select="index-of($theorem_group/generate-id(), generate-id(.))"/>
 
-						<xsl:message>( theorem nr <xsl:value-of select="$theorem_nr"/> )</xsl:message>
+						<xsl:sequence select="eoa:info(concat(' (theorem nr', $theorem_nr, ')'))"/>
 						<b>
 							<xsl:value-of select="concat( $theorem/text(), ' ', $theorem_nr, ': ')"/>
 						</b>
@@ -123,8 +124,8 @@
   </xsl:template>
 
   <xsl:template mode="chapter_main_paragraphs" match="tei:epigraph">
-    <xsl:message>epigraph</xsl:message>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
+		<xsl:sequence select="eoa:info(concat('epigraph', $paragraph_id))"/>
 		<xsl:call-template name="accordion_row">
 			<xsl:with-param name="content" as="element()*">
 				<xsl:for-each select="tei:p">
@@ -139,8 +140,8 @@
   </xsl:template>
 
   <xsl:template mode="chapter_main_paragraphs" match="tei:ab[@type = 'chapterabstract']">
-    <xsl:message>chapter abstract</xsl:message>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
+		<xsl:sequence select="eoa:info(concat('chapterabstract', $paragraph_id))"/>
 		<xsl:call-template name="accordion_row">
 			<xsl:with-param name="content" as="element()*">
 				<p id="{$paragraph_id}" class="abstract">
@@ -154,17 +155,14 @@
 
 	<!-- default rule: warning -->
 	<xsl:template mode="text_structure" match="tei:*" priority="-100">
-		<xsl:message>WARNING: in mode 'text_structure': no template for 
-			<xsl:value-of select="concat('', name(), ': ') "/>
-			<xsl:value-of select="./text()"/>
-		</xsl:message>
+		<xsl:sequence select="eoa:warning(concat('in mode ', $apos, 'text_structure', $apos, ': no template for tei:', name(), '[@type=', $apos, @type, $apos, ']'))"/>
 		<!--
 		<xsl:apply-templates/>
 		-->
   </xsl:template>
 
   <xsl:template mode="text_structure" match="tei:div[@type='section']">
-    <xsl:message>section</xsl:message>
+		<xsl:sequence select="eoa:info('section')"/>
 		<div class="accordion__item active">
 			<a class="accordion__title" href="#">
 				<xsl:call-template name="accordion_row">
@@ -204,7 +202,7 @@
   </xsl:template>
 
   <xsl:template mode="text_structure" match="tei:div[@type='subsection']">
-    <xsl:message>subsection</xsl:message>
+		<xsl:sequence select="eoa:info('subsection')"/>
 		<xsl:call-template name="accordion_row">
 			<xsl:with-param name="link" as="xs:string" select="'subsectionlink'"/>
 			<xsl:with-param name="content" as="element()*">
@@ -220,7 +218,7 @@
   </xsl:template>
 
   <xsl:template mode="text_structure" match="tei:div[@type='subsubsection']">
-    <xsl:message>subsubsection</xsl:message>
+		<xsl:sequence select="eoa:info('subsubsection')"/>
 		<xsl:call-template name="accordion_row">
 			<xsl:with-param name="link" as="xs:string" select="'subsectionlink'"/>
 			<xsl:with-param name="content" as="element()*">
@@ -246,40 +244,16 @@
   </xsl:template>
 
 	<xsl:template mode="text_structure" match="tei:body//tei:p" as="element(div)">
-		<xsl:variable name="chapter" select="ancestor::tei:div[@type = 'chapter']"/>
-		<xsl:variable name="chapter_nr" select="count($chapter/preceding-sibling::*)"/>
-		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
-		<xsl:variable name="local_uri" select="concat($series, '/', $publication_number, '/', $chapter_nr , '/index.html#', $paragraph_id)"/>
-		<xsl:variable name="global_uri" select="concat($domain, '/', $local_uri)"/>
-		<xsl:message>paragraph <xsl:value-of select="$paragraph_id"/></xsl:message>
-		<xsl:call-template name="accordion_row">
-			<xsl:with-param name="link" select="$global_uri"/>
-			<xsl:with-param name="content" as="element()*">
-				<p id="{$paragraph_id}">
-					<xsl:if test="@corresp">
-						<xsl:variable name="id" as="xs:string" select="eoa:normalize_reference(@corresp)"/>
-						<xsl:variable name="theorem" select="key('theoremdecls', $id)"/>
-						<xsl:variable name="theorem_group" select="key('theorems', $id)"/>
-						<xsl:variable name="theorem_nr" select="index-of($theorem_group/generate-id(), generate-id(.))"/>
-
-						<xsl:message>( theorem nr <xsl:value-of select="$theorem_nr"/> )</xsl:message>
-						<b>
-							<xsl:value-of select="concat( $theorem/text(), ' ', $theorem_nr, ': ')"/>
-						</b>
-					</xsl:if>
-					<xsl:apply-templates mode="html"/>
-				</p>
-			</xsl:with-param>
-		</xsl:call-template>
+		<xsl:call-template name="render_paragraph"/>
   </xsl:template>
 
   <xsl:template mode="text_structure" match="tei:ab[@type='equation']">
-    <xsl:message>block formula</xsl:message>
+		<xsl:sequence select="eoa:info('block formula')"/>
     <xsl:value-of select="concat('$', ., '$')"/>
   </xsl:template>
 
   <xsl:template mode="text_structure" match="tei:ab[@type='subequations']">
-    <xsl:message>equation array</xsl:message>
+		<xsl:sequence select="eoa:info('equation array')"/>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
 		<xsl:element name="table">
 			<xsl:for-each select="tei:formula">
@@ -293,7 +267,7 @@
   </xsl:template>
 
   <xsl:template mode="text_structure" match="tei:ab[@type='equationarray']">
-    <xsl:message>equation array</xsl:message>
+		<xsl:sequence select="eoa:info('equation array')"/>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
 		<xsl:element name="table">
 			<xsl:for-each select="tei:formula">
@@ -311,7 +285,7 @@
 
   <xsl:template mode="text_structure" match="tei:lg[@type='verse']">
 		<!-- TODO: find a way to indent the poem -->
-    <xsl:message>verse</xsl:message>
+		<xsl:sequence select="eoa:info('verse')"/>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
 		<p id="{$paragraph_id}">
 			<xsl:for-each select="tei:l">
@@ -325,7 +299,7 @@
 
   <xsl:template mode="text_structure" match="tei:quote">
 		<!-- TODO: find a way to indent the quote -->
-    <xsl:message>quote</xsl:message>
+		<xsl:sequence select="eoa:info('quote')"/>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
 		<p id="{$paragraph_id}">
 			<xsl:apply-templates mode="html"/>
@@ -333,7 +307,7 @@
   </xsl:template>
 
   <xsl:template mode="text_structure" match="tei:list[@type='ordered' or @type='unordered' or @type='gloss']">
-    <xsl:message>list</xsl:message>
+		<xsl:sequence select="eoa:info('list')"/>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
 		<xsl:variable name="element_name">
 			<xsl:choose>
@@ -341,7 +315,7 @@
 				<xsl:when test="@type = 'unordered'">ul</xsl:when>
 				<xsl:when test="@type = 'gloss'">ul</xsl:when>
 				<xsl:otherwise>
-					<xsl:message>ERROR: unknown list type!!</xsl:message>
+					<xsl:sequence select="eoa:error('unknown list type!')"/>
 				</xsl:otherwise>
 			</xsl:choose>
 		</xsl:variable>
@@ -360,7 +334,7 @@
   </xsl:template>
 
   <xsl:template mode="text_structure" match="tei:table">
-    <xsl:message>table</xsl:message>
+		<xsl:sequence select="eoa:info('table')"/>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
 		<figure id="{$paragraph_id}">
 			<xsl:element name="table">
@@ -384,7 +358,7 @@
 
   <xsl:template mode="text_structure" match="tei:figure">
 		<!-- TODO: check/fix path -->
-    <xsl:message>figure</xsl:message>
+		<xsl:sequence select="eoa:info('figure')"/>
 		<xsl:variable name="paragraph_id"><xsl:call-template name="paragraph_id"/></xsl:variable>
 		<xsl:variable name="caption">
 			<xsl:apply-templates mode="html" select="tei:head/node() | text()"/>
@@ -403,7 +377,7 @@
 
   <!--
 <xsl:template match="tei:formula">
-  <xsl:message>formula</xsl:message>
+	<xsl:sequence select="eoa:info('formula')"/>
   <xsl:choose>
     <xsl:when test="@rend='inline'">
   <xsl:message>inline</xsl:message>
@@ -431,18 +405,14 @@
 
 	<!-- default rule: warning -->
 	<xsl:template mode="html" match="tei:*" priority="-100">
-		<xsl:message>
-			<xsl:text>WARNING: in mode 'html': no template for </xsl:text>
-			<xsl:value-of select="concat('', name(), ': ') "/>
-			<xsl:value-of select="./text()"/>
-		</xsl:message>
+		<xsl:value-of select="eoa:warning(concat('in mode ', $apos, 'html', $apos, ': no template for tei:', name(), '[@type=', $apos, @type, $apos, ']'))"/>
 		<!--
 		<xsl:apply-templates/>
 		-->
   </xsl:template>
 
   <xsl:template mode="html" match="tei:hi">
-    <xsl:message>markup</xsl:message>
+		<xsl:sequence select="eoa:info('markup')"/>
     <xsl:choose>
       <xsl:when test="@rend='italic'">
         <em>
@@ -488,12 +458,12 @@
   </xsl:template>
 
   <xsl:template mode="html" match="tei:formula[@rend='inline']">
-    <xsl:message>inline formula</xsl:message>
+		<xsl:sequence select="eoa:info('inline formula')"/>
     <xsl:value-of select="concat('$', ., '$')"/>
   </xsl:template>
 
   <xsl:template mode="html" match="tei:graphic">
-    <xsl:message>inline graphic</xsl:message>
+		<xsl:sequence select="eoa:info('inline graphic')"/>
 		<img src="{@url}">(missing pic)</img>
   </xsl:template>
 
@@ -506,20 +476,18 @@
   </xsl:template>
 
   <xsl:template mode="html" match="tei:bibl">
-    <xsl:message>WARNING: bibliographic reference dummy implementation</xsl:message>
+		<xsl:sequence select="eoa:warning('bibliographic reference dummy implementation')"/>
 		(reference to bibl.)
   </xsl:template>
 
   <xsl:template mode="html" match="tei:ref">
-    <xsl:message>WARNING: internal reference dummy implementation</xsl:message>
+		<xsl:sequence select="eoa:warning('internal reference dummy implementation')"/>
 		(internal reference)
   </xsl:template>
 
 	<!-- index elements should not be printed in the text. They are invisible markers from which to generate the index-->
 	<xsl:template mode="html" match="tei:index"/>
 
-	<xsl:variable name="apos" as="xs:string">'</xsl:variable>
-
 	<xsl:template name="accordion_row">
 		<xsl:param name="link" as="xs:string?"/>
 		<xsl:param name="content" as="element()*"/>
diff --git a/tei2html/utils/print.xsl b/tei2html/utils/print.xsl
new file mode 100644
index 0000000..5cf5680
--- /dev/null
+++ b/tei2html/utils/print.xsl
@@ -0,0 +1,185 @@
+<?xml version="1.0" encoding="utf-8"?>
+
+<stylesheet version="2.0"
+	xmlns="http://www.w3.org/1999/XSL/Transform"
+	xmlns:tei="http://www.tei-c.org/ns/1.0"
+	xmlns:rng="http://relaxng.org/ns/structure/1.0"
+	xmlns:xs="http://www.w3.org/2001/XMLSchema"
+	xmlns:eoa="http://www.edition-open-access.de/ns"
+	xmlns:fcn="fcn"
+	xmlns:f="http://fxsl.sf.net/"
+	xmlns:null="null"
+	exclude-result-prefixes="tei rng f fcn xs null eoa"
+>
+
+	<!--
+	<import href="utils.xsl"/>
+	-->
+	
+	<!-- overwrite this to enable module specific debug output -->
+	<param name="debug_modules" as="xs:string*" select="()"/>
+
+	<!-- verbosity: 0: only errors, 1: warnings, 2: info, 3: debug -->
+  <param name="verbosity" as="xs:integer" required="no" select="2"/>
+
+  <function name="eoa:debug" as="xs:integer"><value-of select="0"/></function>
+  <function name="eoa:info" as="xs:integer"><value-of select="1"/></function>
+  <function name="eoa:warning" as="xs:integer"><value-of select="2"/></function>
+  <function name="eoa:error" as="xs:integer"><value-of select="3"/></function>
+
+  <function name="eoa:debug" as="element()?">
+		<param name="module" as="xs:string"/>
+    <param name="message" as="xs:string*"/>
+		<!-- TODO: This probably doesn't work if the message is
+			more than a single string -->
+		<sequence select="eoa:message(eoa:debug(), $module, $message)"/>
+  </function>
+
+  <function name="eoa:debug" as="element()?">
+		<!-- default param: <param name="module" as="xs:string"/> -->
+    <param name="message" as="xs:string*"/>
+		<!-- TODO: This probably doesn't work if the message is
+			more than a single string -->
+		<sequence select="eoa:message(eoa:debug(), $message)"/>
+  </function>
+
+  <function name="eoa:info" as="element()?">
+		<param name="module" as="xs:string"/>
+    <param name="message" as="xs:string*"/>
+		<!-- TODO: This probably doesn't work if the message is
+			more than a single string -->
+		<sequence select="eoa:message(eoa:info(), $module, $message)"/>
+  </function>
+
+  <function name="eoa:info" as="element()?">
+		<!-- default param: <param name="module" as="xs:string"/> -->
+    <param name="message" as="xs:string*"/>
+		<!-- TODO: This probably doesn't work if the message is
+			more than a single string -->
+		<sequence select="eoa:message(eoa:info(), $message)"/>
+  </function>
+
+  <function name="eoa:warning" as="element()?">
+		<param name="module" as="xs:string"/>
+    <param name="message" as="xs:string*"/>
+		<!-- TODO: This probably doesn't work if the message is
+			more than a single string -->
+		<sequence select="eoa:message(eoa:warning(), $module, $message)"/>
+  </function>
+
+  <function name="eoa:warning" as="element()?">
+		<!-- default param: <param name="module" as="xs:string"/> -->
+    <param name="message" as="xs:string*"/>
+		<!-- TODO: This probably doesn't work if the message is
+			more than a single string -->
+		<sequence select="eoa:message(eoa:warning(), $message)"/>
+  </function>
+
+  <function name="eoa:error" as="element()?">
+		<param name="module" as="xs:string"/>
+    <param name="message" as="xs:string*"/>
+		<!-- TODO: This probably doesn't work if the message is
+			more than a single string -->
+		<sequence select="eoa:message(eoa:error(), $module, $message)"/>
+  </function>
+
+  <function name="eoa:error" as="element()?">
+		<!-- default param: <param name="module" as="xs:string"/> -->
+    <param name="message" as="xs:string*"/>
+		<!-- TODO: This probably doesn't work if the message is
+			more than a single string -->
+		<sequence select="eoa:message(eoa:error(), $message)"/>
+  </function>
+
+	<!-- promise: this function never returns anything! -->
+  <function name="eoa:message" as="element()?">
+    <param name="level" as="xs:integer"/>
+		<!-- default param: <param name="module" as="xs:string"/> -->
+    <param name="message" as="xs:string*"/>
+		<call-template name="eoa:message">
+			<with-param name="level" select="$level"/>
+			<with-param name="message" select="$message"/>
+		</call-template>
+  </function>
+
+	<!-- promise: this function never returns anything! -->
+  <function name="eoa:message" as="element()?">
+    <param name="level" as="xs:integer"/>
+    <param name="module" as="xs:string"/>
+    <param name="message" as="xs:string*"/>
+		<call-template name="eoa:message">
+			<with-param name="level" select="$level"/>
+			<with-param name="module" select="$module"/>
+			<with-param name="message" select="$message"/>
+		</call-template>
+  </function>
+
+	<template name="eoa:debug" as="element()?">
+    <param name="module" as="xs:string" select="''"/>
+    <param name="message" as="xs:string*"/>
+		<call-template name="eoa:message">
+			<with-param name="level" select="eoa:debug()"/>
+			<with-param name="module" select="$module"/>
+			<with-param name="message" select="$message"/>
+		</call-template>
+	</template>
+
+	<template name="eoa:info" as="element()?">
+    <param name="module" as="xs:string" select="''"/>
+    <param name="message" as="xs:string*"/>
+		<call-template name="eoa:message">
+			<with-param name="level" select="eoa:info()"/>
+			<with-param name="module" select="$module"/>
+			<with-param name="message" select="$message"/>
+		</call-template>
+	</template>
+
+	<template name="eoa:warning" as="element()?">
+    <param name="module" as="xs:string" select="''"/>
+    <param name="message" as="xs:string*"/>
+		<call-template name="eoa:message">
+			<with-param name="level" select="eoa:warning()"/>
+			<with-param name="module" select="$module"/>
+			<with-param name="message" select="$message"/>
+		</call-template>
+	</template>
+
+	<template name="eoa:error" as="element()?">
+    <param name="module" as="xs:string" select="''"/>
+    <param name="message" as="xs:string*"/>
+		<call-template name="eoa:message">
+			<with-param name="level" select="eoa:error()"/>
+			<with-param name="module" select="$module"/>
+			<with-param name="message" select="$message"/>
+		</call-template>
+	</template>
+
+  <template name="eoa:message" as="element()?">
+    <param name="level" as="xs:integer"/>
+    <param name="module" as="xs:string" select="''"/>
+    <param name="message" as="xs:string*"/>
+    <choose>
+      <when test="$level = 0 and $verbosity >= 3 and ($module = '' or $module = $debug_modules)">
+				<for-each select="$message">
+        	<message terminate="no">[DEBUG]: <value-of select="concat($module, ': ')"/><value-of select="."/></message>
+				</for-each>
+      </when>
+      <when test="$level = 1 and $verbosity >= 2">
+				<for-each select="$message">
+        	<message terminate="no">[INFO]: <value-of select="concat($module, ': ')"/><value-of select="."/></message>
+				</for-each>
+      </when>
+      <when test="$level = 2 and $verbosity >= 1">
+				<for-each select="$message">
+        	<message terminate="no">[WARNING]: <value-of select="concat($module, ': ')"/><value-of select="."/></message>
+				</for-each>
+      </when>
+      <when test="$level = 3">
+				<for-each select="$message">
+					<message terminate="{position() = last()}">[ERROR]: <value-of select="concat($module, ': ')"/><value-of select="."/>. Exiting.</message>
+				</for-each>
+      </when>
+    </choose>
+  </template>
+
+</stylesheet>