convert-transcripts.xpl

<p:declare-step xmlns:p="http://www.w3.org/ns/xproc" xmlns:c="http://www.w3.org/ns/xproc-step"
  xmlns:cx="http://xmlcalabash.com/ns/extensions" xmlns:f="http://www.faustedition.net/ns"
  xmlns:pxf="http://exproc.org/proposed/steps/file"
  xmlns:svrl="http://purl.oclc.org/dsdl/svrl"
  xmlns:l="http://xproc.org/library" type="f:convert" name="main" version="1.0">
  
  <p:option name="target" select="'../../../target/'"/>
  <p:option name="_target" select="resolve-uri($target)"/>
  <p:option name="xmlroot" select="'../../../data/xml'"></p:option>
  <p:option name="_xmlroot" select="resolve-uri($xmlroot)"/>
  
  <p:input port="source"><p:empty/></p:input>
  <p:input port="parameters" kind="parameter"/>
  <p:output port="result" primary="true" sequence="true"><p:empty/></p:output>
  <p:serialization port="result" indent="true"/>
  
  <p:import href="http://xproc.org/library/recursive-directory-list.xpl"/>
  <p:import href="http://xmlcalabash.com/extension/steps/library-1.0.xpl"/>
  
  <p:load href="http://dev.digital-humanities.de/ci/job/faust-gen-fast/lastSuccessfulBuild/artifact/target/lesetext/faust.xml"/>
  <p:store name="save-text"> <!-- does not need conversion -->
    <p:with-option name="href" select="concat($_target, '/converted/faust.xml')"/>
  </p:store>
  
  <l:recursive-directory-list name="transcript"> <!-- exclude-filter="test" --> 
    <p:with-option name="path" select="concat($_xmlroot, '/transcript')"/>
  </l:recursive-directory-list>
  
  <l:recursive-directory-list name="print"> 
    <p:with-option name="path" select="concat($_xmlroot, '/print')"/>
  </l:recursive-directory-list>
  
  <p:for-each>
    <p:iteration-source select="//c:file">
      <p:pipe port="result" step="transcript"/>
      <p:pipe port="result" step="print"/>      
    </p:iteration-source>    
    <p:variable name="filename" select="p:resolve-uri(/c:file/@name)"/>
    <p:variable name="out" select="p:resolve-uri(replace($filename, $_xmlroot, 'converted/'), $_target)"/>
    
<!--    <cx:message>
			<p:with-option name="message" select="concat($filename, ' → ', $out)"></p:with-option>
		</cx:message>
-->		
    <p:load>
      <p:with-option name="href" select="$filename"/>
    </p:load>
    
    <p:xslt name="convert">      
      <p:input port="parameters"><p:empty/></p:input>
      <p:input port="stylesheet"><p:document href="update-tei-sources.xsl"/></p:input>
    </p:xslt>
    
    <p:xslt>   
      <p:input port="parameters"><p:empty/></p:input>
      <p:input port="stylesheet"><p:document href="xml-source-issues.xsl"/></p:input>
      <p:with-param name="filename" select="$filename"/>      
    </p:xslt>
    
    <p:store>
      <p:with-option name="href" select="$out"/>
    </p:store>
    
  </p:for-each>
  
</p:declare-step>