From cfed49dc3fa325f647dd0f4f6137f02a3510ec79 Mon Sep 17 00:00:00 2001
From: kthoden <kthoden@mpiwg-berlin.mpg.de>
Date: Tue, 8 Dec 2020 14:26:00 +0100
Subject: [PATCH] Add common functions

---
 xxe/eoa/xsl/common/functions.xsl | 37 ++++++++++++++++++++++++++++++++
 xxe/eoa/xsl/tei2eoatex.xsl       |  2 +-
 2 files changed, 38 insertions(+), 1 deletion(-)
 create mode 100644 xxe/eoa/xsl/common/functions.xsl

diff --git a/xxe/eoa/xsl/common/functions.xsl b/xxe/eoa/xsl/common/functions.xsl
new file mode 100644
index 0000000..68194f8
--- /dev/null
+++ b/xxe/eoa/xsl/common/functions.xsl
@@ -0,0 +1,37 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                xmlns:tei="http://www.tei-c.org/ns/1.0"
+                xmlns:xs="http://www.w3.org/2001/XMLSchema"
+                xmlns:xlink="http://www.w3.org/1999/xlink"
+                xmlns:eoa="http://www.edition-open-access.de/ns"
+                exclude-result-prefixes="xs tei"
+                version="2.0">
+
+  <xsl:function name="eoa:texcomment">
+    <xsl:param name="message" as="xs:string"/>
+    <xsl:text>&#x2E0E;&#x2E0E; </xsl:text>
+    <xsl:value-of select="$message"/>
+    <xsl:text>&#x000a;</xsl:text>
+  </xsl:function>
+
+  <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 = 0 and $verbosity >= 3">
+        <xsl:message>[DEBUG]: <xsl:value-of select="$message"/> <xsl:value-of select="$node"/></xsl:message>
+      </xsl:when>
+      <xsl:when test="$level = 1 and $verbosity >= 2">
+        <xsl:message>[INFO]: <xsl:value-of select="$message"/> <xsl:value-of select="$node"/></xsl:message>
+      </xsl:when>
+      <xsl:when test="$level = 2 and $verbosity >= 1">
+        <xsl:message>[WARNING]: <xsl:value-of select="$message"/> <xsl:value-of select="$node"/></xsl:message>
+      </xsl:when>
+      <xsl:when test="$level = 3">
+        <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/xxe/eoa/xsl/tei2eoatex.xsl b/xxe/eoa/xsl/tei2eoatex.xsl
index 7f54af4..d6f5df9 100644
--- a/xxe/eoa/xsl/tei2eoatex.xsl
+++ b/xxe/eoa/xsl/tei2eoatex.xsl
@@ -20,7 +20,7 @@
 
   <xsl:include href="tei2eoatex/eoatex_contributors.xsl"/>
   <xsl:include href="tei2eoatex/eoatex_frontmatter.xsl"/>
-  <xsl:include href="tei2eoatex/eoatex_functions.xsl"/>
+  <xsl:include href="common/functions.xsl"/>
   <xsl:include href="tei2eoatex/eoatex_persons.xsl"/>
   <xsl:include href="tei2eoatex/eoatex_processinginstructions.xsl"/>
   <xsl:include href="tei2eoatex/eoatex_textparts.xsl"/>