From 8b1ca4e43f23e53a9d9351c001b02d7d3d95c76e Mon Sep 17 00:00:00 2001
From: Jirka Kosek <jirka@kosek.cz>
Date: Tue, 6 Dec 2005 18:56:52 +0000
Subject: [PATCH] An attemp to fix base URIs when profiling is done and
 document is not in the current directory. This seems to work on my Windows
 machine, but I would be interested how it behaves in unix environment. URL
 handling in Java is very sensitive to such things.

---
 .../com/nwalsh/saxon/ImageIntrinsics.java     |  2 +-
 xsl/profiling/profile-mode.xsl                | 51 ++++++++++++++++++-
 xsl/profiling/profile.xsl                     |  8 ++-
 3 files changed, 58 insertions(+), 3 deletions(-)

diff --git a/xsl/extensions/saxon643/com/nwalsh/saxon/ImageIntrinsics.java b/xsl/extensions/saxon643/com/nwalsh/saxon/ImageIntrinsics.java
index 2eb069f54..9f6b9e419 100644
--- a/xsl/extensions/saxon643/com/nwalsh/saxon/ImageIntrinsics.java
+++ b/xsl/extensions/saxon643/com/nwalsh/saxon/ImageIntrinsics.java
@@ -57,7 +57,7 @@ public class ImageIntrinsics implements ImageObserver {
 
     URL imageUrl = null;
 
-    if (imageFn.startsWith("http:") || imageFn.startsWith("ftp:")) {
+    if (imageFn.startsWith("http:") || imageFn.startsWith("ftp:") || imageFn.startsWith("file:")) {
 	try {
 	    imageUrl = new URL(imageFn);
 	} catch (MalformedURLException mue) {
diff --git a/xsl/profiling/profile-mode.xsl b/xsl/profiling/profile-mode.xsl
index b006475a8..25afa0631 100644
--- a/xsl/profiling/profile-mode.xsl
+++ b/xsl/profiling/profile-mode.xsl
@@ -1,6 +1,11 @@
 <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                xmlns:saxon="http://icl.com/saxon"
+                exclude-result-prefixes="saxon"
                 version="1.0">
 
+<!-- Should be base URI for imagedata and so on fixed? -->
+<xsl:param name="profile.baseuri.fixup" select="true()"/>
+
 <!-- Copy all non-element nodes -->
 <xsl:template match="@*|text()|comment()|processing-instruction()" mode="profile">
   <xsl:copy/>
@@ -147,7 +152,51 @@
                 and $revision.ok and $revisionflag.ok and $role.ok and $security.ok
                 and $userlevel.ok and $vendor.ok and $attribute.ok">
     <xsl:copy>
-      <xsl:apply-templates select="@*|node()" mode="profile"/>
+      <xsl:copy-of select="@*"/>
+      <!-- Fix base URI of some elements -->
+      <xsl:if test="$profile.baseuri.fixup and (self::textdata or self::imagedata or self::videodata or self::audiodata or self::inlinegraphic or self::graphic)">
+	<xsl:choose>
+	  <xsl:when test="@fileref
+			  and not(contains(@fileref,':'))
+			  and not(starts-with(@fileref,'/'))
+			  and function-available('saxon:systemId')">
+	    <xsl:attribute name="xml:base">
+	      <xsl:call-template name="systemIdToBaseURI">
+		<xsl:with-param name="systemId">
+		  <xsl:choose>
+		    <!-- file: seems to confuse some processors. -->
+		    <xsl:when test="starts-with(saxon:systemId(), 'file:/') and substring(saxon:systemId(), 7, 2) != '//'">
+		      <xsl:value-of select="concat('file:///', substring-after(saxon:systemId(), 'file:/'))"/>
+		    </xsl:when>
+		    <xsl:when test="starts-with(saxon:systemId(), 'file:')">
+		      <xsl:value-of select="substring-after(saxon:systemId(),
+					    'file:')"/>
+		    </xsl:when>
+		    <xsl:otherwise>
+		      <xsl:value-of select="saxon:systemId()"/>
+		    </xsl:otherwise>
+		  </xsl:choose>
+		</xsl:with-param>
+	      </xsl:call-template>
+	    </xsl:attribute>
+	  </xsl:when>
+	  <xsl:otherwise>
+	    <xsl:attribute name="fileref">
+	      <xsl:value-of select="@fileref"/>
+	    </xsl:attribute>
+	  </xsl:otherwise>
+	</xsl:choose>
+
+	<xsl:choose>
+	  <xsl:when test="@entityref">
+	    <xsl:attribute name="xml:base">
+	      <xsl:value-of select="unparsed-entity-uri(@entityref)"/>
+	    </xsl:attribute>
+	  </xsl:when>
+	</xsl:choose>
+      </xsl:if>
+      <!-- End of base URI fixup -->
+      <xsl:apply-templates select="node()" mode="profile"/>
     </xsl:copy>
   </xsl:if>
 </xsl:template>
diff --git a/xsl/profiling/profile.xsl b/xsl/profiling/profile.xsl
index fe1def355..c4678213e 100644
--- a/xsl/profiling/profile.xsl
+++ b/xsl/profiling/profile.xsl
@@ -2,7 +2,13 @@
                 version="1.0">
 
 <!-- Include common profiling stylesheet -->
-<xsl:include href="profile-mode.xsl"/>
+<xsl:import href="profile-mode.xsl"/>
+
+<!-- This file must be included, because profile-mode is using templates from it -->
+<xsl:import href="../common/stripns.xsl"/>
+
+<!-- In the two pass processing there is no need for base URI fixup -->
+<xsl:param name="profile.baseuri.fixup" select="false()"/>
 
 <!-- Generate DocBook instance with correct DOCTYPE -->
 <xsl:output method="xml" 
-- 
2.50.1