From 4b99030eba4e90ae170cb5c7828f2e5d9ca5a803 Mon Sep 17 00:00:00 2001
From: Bert Frees <bertfrees@gmail.com>
Date: Mon, 16 Jan 2017 14:14:21 +0100
Subject: [PATCH] [xprocspec] Support '!/'-style paths to files inside ZIPs

see issue https://github.com/daisy/xprocspec/issues/32
---
 .../content/xml/xproc/utils/load.xpl          | 23 +++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/utils/xprocspec/xprocspec/src/main/resources/content/xml/xproc/utils/load.xpl b/utils/xprocspec/xprocspec/src/main/resources/content/xml/xproc/utils/load.xpl
index d1601f7c39..94467efdaa 100644
--- a/utils/xprocspec/xprocspec/src/main/resources/content/xml/xproc/utils/load.xpl
+++ b/utils/xprocspec/xprocspec/src/main/resources/content/xml/xproc/utils/load.xpl
@@ -59,6 +59,29 @@
     <p:sink/>
 
     <p:choose>
+        <p:when test="contains($href, '!/')">
+            <pxi:message>
+                <p:input port="source">
+                    <p:inline>
+                        <doc/>
+                    </p:inline>
+                </p:input>
+                <p:with-option name="message" select="replace($href, '^([^!]+)!/(.+)$', 'loading $2 from ZIP $1')"/>
+                <p:with-option name="logfile" select="$logfile">
+                    <p:empty/>
+                </p:with-option>
+            </pxi:message>
+            <p:sink/>
+            <cx:unzip>
+                <!--
+                    note that "file" needs to be specified before "href" because otherwise $href
+                    variable in select part is affected
+                -->
+                <p:with-option name="file" select="replace($href, '^([^!]+)!/(.+)$', '$2')"/>
+                <p:with-option name="href" select="replace($href, '^([^!]+)!/(.+)$', '$1')"/>
+            </cx:unzip>
+        </p:when>
+
         <!-- Force HTML -->
         <p:when test="$method='html'">
             <pxi:html-load>