[xprocspec] Support '!/'-style paths to files inside ZIPs

see issue daisy/xprocspec#32
daisy · Feb 22, 2017 · 4b99030 · 4b99030
1 parent 7efd50b
commit 4b99030
Showing 1 changed file with 23 additions and 0 deletions.
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
@@ -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>