From 801f75c92066e90f89aa651be9bd5274f45a9b4a Mon Sep 17 00:00:00 2001
From: Octavian Nadolu <octavian_nadolu@sync.ro>
Date: Tue, 13 Mar 2018 14:42:26 +0200
Subject: [PATCH 1/2] Add support for localization in Schematron based on
 diagnostics #40.

---
 .../code/iso_schematron_message_xslt2.xsl     |  27 +--
 ..._schematron_multilingual_message_xslt2.xsl | 157 ++++++++++++++++++
 .../iso_schematron_skeleton_for_saxon.xsl     |   4 +-
 trunk/schematron/code/iso_svrl_for_xslt2.xsl  |  19 ++-
 4 files changed, 189 insertions(+), 18 deletions(-)
 create mode 100644 trunk/schematron/code/iso_schematron_multilingual_message_xslt2.xsl

diff --git a/trunk/schematron/code/iso_schematron_message_xslt2.xsl b/trunk/schematron/code/iso_schematron_message_xslt2.xsl
index b3ade50..6af4be7 100644
--- a/trunk/schematron/code/iso_schematron_message_xslt2.xsl
+++ b/trunk/schematron/code/iso_schematron_message_xslt2.xsl
@@ -40,6 +40,9 @@ THE SOFTWARE.
    xmlns:axsl="http://www.w3.org/1999/XSL/TransformAlias">
 
 <xsl:import href="iso_schematron_skeleton_for_saxon.xsl"/>
+   
+<!-- Support to generate message in multiple languages -->
+<xsl:import href="iso_schematron_multilingual_message_xslt2.xsl"/>
 
 <xsl:template name="process-prolog">
    <axsl:output method="text" />
@@ -51,14 +54,18 @@ THE SOFTWARE.
 <!-- use default rule for process-assert and process-report:
      call process-message -->
 
-<xsl:template name="process-message">
-   <xsl:param name="pattern" />
-   <xsl:param name="role" />
-   <axsl:message>
-      <xsl:apply-templates mode="text"  
-      /> (<xsl:value-of select="$pattern" />
-      <xsl:if test="$role"> / <xsl:value-of select="$role" />
-      </xsl:if>)</axsl:message>
-</xsl:template>
-
+   <xsl:template name="process-message">
+      <xsl:param name="pattern" />
+      <xsl:param name="role" />
+      <xsl:param name="diagnostics" />
+      <axsl:message>
+         <xsl:call-template name="generateTextMassage">
+            <xsl:with-param name="diagnostics" select="$diagnostics"/>
+            <xsl:with-param name="currentLanguage" select="$langCode"/>
+         </xsl:call-template> 
+         
+         (<xsl:value-of select="$pattern" />
+         <xsl:if test="$role"> / <xsl:value-of select="$role" />
+         </xsl:if>)</axsl:message>
+   </xsl:template>
 </xsl:stylesheet>
\ No newline at end of file
diff --git a/trunk/schematron/code/iso_schematron_multilingual_message_xslt2.xsl b/trunk/schematron/code/iso_schematron_multilingual_message_xslt2.xsl
new file mode 100644
index 0000000..6b19a11
--- /dev/null
+++ b/trunk/schematron/code/iso_schematron_multilingual_message_xslt2.xsl
@@ -0,0 +1,157 @@
+<?xml version="1.0" ?><?xar XSLT?> 
+<!-- Implementation for the Schematron XML Schema Language. 
+     Generates simple text output messages using XSLT2 engine
+-->
+<!--
+Open Source Initiative OSI - The MIT License:Licensing
+[OSI Approved License]
+
+This source code was previously available under the zlib/libpng license. 
+Attribution is polite.
+
+The MIT License
+
+Copyright (c)  2000-2010 Rick Jellife and Academia Sinica Computing Centre, Taiwan.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+-->
+
+<!-- Schematron message -->
+
+<xsl:stylesheet
+   version="2.0"
+   xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+   xmlns:axsl="http://www.w3.org/1999/XSL/TransformAlias"
+   xmlns:iso="http://purl.oclc.org/dsdl/schematron"
+   xmlns:xs="http://www.w3.org/2001/XMLSchema">
+   
+   <!-- The diagnostics elements -->  
+   <xsl:key name="diag" match="iso:diagnostic" use="@id"/>   
+   
+   <!-- Generate the message dependeng on the language 
+         - if a language code is set in the value of the $langCode parameter, the message in thet language will be presented
+         - Otherwise, all messages will be presented  
+   -->
+   <xsl:template name="generateTextMassage">
+      <xsl:param name="diagnostics"/>
+      <xsl:param name="currentLanguage" required="yes"/>
+
+      <!-- Get all localization (diagnostics) nodes. -->
+      <xsl:variable name="localizationNodes" as="item()*">
+         <xsl:if test="$diagnostics != ''">
+            <xsl:variable name="assert" select="."/>
+            <xsl:for-each select="tokenize($diagnostics, ' ')">
+               <xsl:sequence select="key('diag', current(), root($assert))"/>
+            </xsl:for-each>
+         </xsl:if>
+      </xsl:variable>
+
+      <!-- Generate the (localization) diagnostics messages for the current language-->
+      <xsl:variable name="localizationMessages" as="item()*">
+         <xsl:for-each select="$localizationNodes">
+            <xsl:call-template name="getMessage">
+               <xsl:with-param name="reqLang" select="$currentLanguage"/>
+               <xsl:with-param name="isAddId" select="false()"/>
+            </xsl:call-template>
+         </xsl:for-each>
+      </xsl:variable>
+
+      <!-- Generate the message from assert only if matches the current language -->
+      <xsl:variable name="assertMsg" as="item()*">
+         <xsl:call-template name="getMessage">
+            <xsl:with-param name="reqLang" select="$currentLanguage"/>
+         </xsl:call-template>
+      </xsl:variable>
+
+      <xsl:choose>
+         <xsl:when
+            test="not(empty($localizationMessages)) or (not(empty($assertMsg)) and $localizationNodes)">
+            <!-- Generate the message for the current language, both from the assertion and from localization nodes  -->
+            <xsl:sequence select="$assertMsg"/>
+            <xsl:sequence select="$localizationMessages"/>
+         </xsl:when>
+         <xsl:when test="$currentLanguage != 'default'">
+            <!-- If no localization (diagnostics) for a specific language-->
+            <xsl:choose>
+               <!-- Generate the assertion message for the current language-->
+               <xsl:when test="not(empty($assertMsg))">
+                  <xsl:sequence select="$assertMsg"/>
+               </xsl:when>
+               <xsl:otherwise>
+                  <!-- Generate the messages for all languages. -->
+                  <!-- Print assertion message -->
+                  <xsl:variable name="assertMsgDef">
+                     <xsl:call-template name="getMessage">
+                        <xsl:with-param name="reqLang" select="'default'"/>
+                     </xsl:call-template>
+                  </xsl:variable>
+                  <xsl:sequence select="$assertMsgDef"/>
+                  <!-- Print distinct diagnostics messages. -->
+                  <xsl:variable name="allMessages" as="item()*">
+                     <xsl:for-each select="$localizationNodes">
+                        <xsl:call-template name="getMessage">
+                           <xsl:with-param name="reqLang" select="'default'"/>
+                           <xsl:with-param name="isAddId" select="true()"/>
+                        </xsl:call-template>
+                     </xsl:for-each>
+                  </xsl:variable>
+                  <xsl:sequence select="$allMessages"/>
+               </xsl:otherwise>
+            </xsl:choose>
+         </xsl:when>
+         <xsl:otherwise>
+            <!-- Generate the assertion message, if no language match-->
+            <xsl:variable name="assertMsgDef">
+               <xsl:call-template name="getMessage">
+                  <xsl:with-param name="reqLang" select="'default'"/>
+               </xsl:call-template>
+            </xsl:variable>
+            <xsl:sequence select="$assertMsgDef"/>
+         </xsl:otherwise>
+      </xsl:choose>
+   </xsl:template>
+   
+   <!-- Function used to obtain the message from the current node -->
+   <xsl:template name="getMessage">
+      <xsl:param name="reqLang" as="xs:string" required="yes"/>
+      <xsl:param name="isAddId" as="xs:boolean" select="false()"/>
+      
+      <xsl:choose>
+         <xsl:when test="$reqLang != 'default'">
+            <!-- Get the language from the current node -->
+            <xsl:variable name="lang">
+               <xsl:variable name="currentLang" select="(ancestor-or-self::*/@xml:lang)[last()]"/>
+               <xsl:value-of select="if ($currentLang) then ($currentLang) else ('#NONE')"/>
+            </xsl:variable>
+            <!-- Generate the message from assert only if matches the current language -->
+            <xsl:if test="starts-with($lang, $reqLang)">
+               <xsl:if test="$isAddId">[#<xsl:value-of select="@id"/>]</xsl:if>
+               <xsl:apply-templates mode="text"/>
+            </xsl:if>
+         </xsl:when>
+         <xsl:otherwise>
+            <!-- Generate the message with the language in front. -->
+            <xsl:if test="$isAddId">[#<xsl:value-of select="@id"/>]</xsl:if>
+            <xsl:if test="@xml:lang">[<xsl:value-of select="@xml:lang"/>]</xsl:if>
+            <xsl:apply-templates mode="text"/>
+         </xsl:otherwise>
+      </xsl:choose>
+   </xsl:template>
+   
+</xsl:stylesheet>
\ No newline at end of file
diff --git a/trunk/schematron/code/iso_schematron_skeleton_for_saxon.xsl b/trunk/schematron/code/iso_schematron_skeleton_for_saxon.xsl
index d18f216..1daff42 100644
--- a/trunk/schematron/code/iso_schematron_skeleton_for_saxon.xsl
+++ b/trunk/schematron/code/iso_schematron_skeleton_for_saxon.xsl
@@ -1986,6 +1986,7 @@ which require a preprocess.
 		<xsl:call-template name="process-message">
 			<xsl:with-param name="pattern" select="$test"/>
 			<xsl:with-param name="role" select="$role"/>
+			<xsl:with-param name="diagnostics" select="$diagnostics"/>
 		</xsl:call-template>
 		
 		<xsl:if test=" $terminate = 'yes' or $terminate = 'true' ">
@@ -2149,7 +2150,8 @@ which require a preprocess.
 	<!-- default output action: the simplest customization is to just override this -->
 	<xsl:template name="process-message">
 		<xsl:param name="pattern" />
-            <xsl:param name="role" />
+        <xsl:param name="role" />
+		<xsl:param name="diagnostics"/>
 
 		<xsl:apply-templates mode="text"/>	
 		 <xsl:if test=" $message-newline = 'true'" >
diff --git a/trunk/schematron/code/iso_svrl_for_xslt2.xsl b/trunk/schematron/code/iso_svrl_for_xslt2.xsl
index 373270d..f7ed2d9 100644
--- a/trunk/schematron/code/iso_svrl_for_xslt2.xsl
+++ b/trunk/schematron/code/iso_svrl_for_xslt2.xsl
@@ -161,6 +161,9 @@ THE SOFTWARE.
    necessary for your system.
 -->
 <xsl:import href="iso_schematron_skeleton_for_saxon.xsl"/>
+	
+<!-- Support to generate message in multiple languages  -->
+<xsl:import href="iso_schematron_multilingual_message_xslt2.xsl"/>
  
  <!--
 <xsl:import href="iso_schematron_skeleton_for_xslt1.xsl"/>
@@ -302,8 +305,10 @@ THE SOFTWARE.
 		</xsl:if>
 		  
 		<svrl:text>
-			<xsl:apply-templates mode="text" />
-	
+			<xsl:call-template name="generateTextMassage">
+				<xsl:with-param name="diagnostics" select="$diagnostics"/>
+				<xsl:with-param name="currentLanguage" select="$langCode"/>
+			</xsl:call-template>
 		</svrl:text>
 		    <xsl:if test="$diagnose = 'yes' or $diagnose= 'true' ">
 			<!-- true/false is the new way -->
@@ -378,8 +383,10 @@ THE SOFTWARE.
 		</xsl:if>
 	 
 		<svrl:text>
-			<xsl:apply-templates mode="text" />
-
+			<xsl:call-template name="generateTextMassage">
+				<xsl:with-param name="diagnostics" select="$diagnostics"/>
+				<xsl:with-param name="currentLanguage" select="$langCode"/>
+			</xsl:call-template>
 		</svrl:text>
 			<xsl:if test="$diagnose = 'yes' or $diagnose='true' ">
 			<!-- true/false is the new way -->
@@ -405,9 +412,6 @@ THE SOFTWARE.
 		</xsl:if>
 </xsl:template>
 
-
-
-
 <xsl:template name="process-diagnostic">
 	<xsl:param name="id"/>
 	<!-- Rich parameters -->
@@ -581,6 +585,7 @@ THE SOFTWARE.
 <xsl:template name="process-message" > 
 	<xsl:param name="pattern"/>
 	<xsl:param name="role"/>
+	<xsl:param name="diagnostics"/>
 </xsl:template>
 
 

From 716ae1fb366d4258e61ba3ea2ebed5e5a60d424b Mon Sep 17 00:00:00 2001
From: Octavian Nadolu <octavian_nadolu@sync.ro>
Date: Wed, 14 Mar 2018 12:26:10 +0200
Subject: [PATCH 2/2] I added some explanatory comments to the file
 iso_schematron_multilingual_message_xslt2 file

---
 ...so_schematron_multilingual_message_xslt2.xsl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/trunk/schematron/code/iso_schematron_multilingual_message_xslt2.xsl b/trunk/schematron/code/iso_schematron_multilingual_message_xslt2.xsl
index 6b19a11..267548a 100644
--- a/trunk/schematron/code/iso_schematron_multilingual_message_xslt2.xsl
+++ b/trunk/schematron/code/iso_schematron_multilingual_message_xslt2.xsl
@@ -32,7 +32,16 @@ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 THE SOFTWARE.
 -->
 
-<!-- Schematron message -->
+<!-- 
+   Schematron multilingual messages
+   
+   Annex G of the ISO Schematron specification defines the use of multilingual Schematron as follows:
+   Diagnostics in multiple languages may be supported by using a different diagnostic element for each language, 
+   with the appropriate xml:lang language attribute, and referencing all the unique identifiers of the diagnostic 
+   elements in the diagnostics attribute of the assertion.
+   
+   The language of the messages is controlled by the $langCode global parameter.
+-->
 
 <xsl:stylesheet
    version="2.0"
@@ -44,9 +53,9 @@ THE SOFTWARE.
    <!-- The diagnostics elements -->  
    <xsl:key name="diag" match="iso:diagnostic" use="@id"/>   
    
-   <!-- Generate the message dependeng on the language 
-         - if a language code is set in the value of the $langCode parameter, the message in thet language will be presented
-         - Otherwise, all messages will be presented  
+   <!-- Generate the message depending on the language 
+         - if there are messages in the language specified by the $currentLanguage parameter, the messages in that language will be presented
+         - otherwise, all messages will be presented, prefixed with language code 
    -->
    <xsl:template name="generateTextMassage">
       <xsl:param name="diagnostics"/>