Skip to content

Commit

Permalink
include an option to apply on base transformation
Browse files Browse the repository at this point in the history 
Cf. #6 #29
  • Loading branch information
@dariok
dariok committed Apr 17, 2019
1 parent 25a6ba3 commit f2ff2c5
Show file tree
Hide file tree
Showing 2 changed files with 88 additions and 103 deletions.
2 changes: 2 additions & 0 deletions convert.xql
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,6 +23,8 @@ declare option exist:serialize "method=html5 media-type=text/html";
<option value="{$file/@file}">{xs:string($file/@label)}</option>
}
</select>
<br />
<label>Apply base Word → TEI transformation? </label> <input name="base" type="checkbox" />
</fieldset>
</form>
</div>
Expand Down
189 changes: 86 additions & 103 deletions convert2.xql
View file
Original file line number Diff line number Diff line change
@@ -1,106 +1,89 @@
xquery version "3.0";
xquery version "3.0";

declare namespace tei = "http://www.tei-c.org/ns/1.0";
declare namespace mets = "http://www.loc.gov/METS/";
declare namespace xlink = "http://www.w3.org/1999/xlink";

import module namespace console = "http://exist-db.org/xquery/console";

let $filter := function ($path as xs:string, $data-type as xs:string, $param as item()*) as xs:boolean {
switch ($path)
case "word/document.xml"
case "word/comments.xml"
case "word/endnotes.xml"
case "word/footnotes.xml"
case "word/numbering.xml"
case "word/_rels/endnotes.xml.rels"
case "word/_rels/document.xml.rels"
return true()
default
return false()
}

let $entry-data := function ($path as xs:string, $data-type as xs:string, $data as item()?, $param as item()*) {
$data
}

let $title := if (ends-with(request:get-uploaded-file-name('file'), '.odt'))
then substring-before(request:get-uploaded-file-name('file'), '.odt')
else substring-before(request:get-uploaded-file-name('file'), '.docx')

let $origFileData := string(request:get-uploaded-file-data('file'))
(: unzip erwartet base64Binary, die vom Upload direkt geliefert werden :)
let $unpack := compression:unzip($origFileData, $filter, (), $entry-data, ())
let $incoming :=
<pack>{
for $item in $unpack
return $item}
</pack>

declare namespace tei = "http://www.tei-c.org/ns/1.0";
declare namespace mets = "http://www.loc.gov/METS/";
declare namespace xlink = "http://www.w3.org/1999/xlink";
let $debug := xmldb:store('/db/apps/w2tei', 'word.xml', document{$incoming})

let $base := request:get-parameter('base', '')
let $add := request:get-parameter('xslt', 'none')
let $post := request:get-parameter('firstheading', false())

let $params :=
<parameters/>

import module namespace console = "http://exist-db.org/xquery/console";

let $filter := function ($path as xs:string, $data-type as xs:string, $param as item()*) as xs:boolean {
switch ($path)
case "word/document.xml"
case "word/comments.xml"
case "word/endnotes.xml"
case "word/footnotes.xml"
case "word/numbering.xml"
case "word/_rels/endnotes.xml.rels"
case "word/_rels/document.xml.rels"
return true()
default
return false()
}

let $entry-data := function ($path as xs:string, $data-type as xs:string, $data as item()?, $param as item()*) {
$data
}

let $title := if (ends-with(request:get-uploaded-file-name('file'), '.odt'))
then substring-before(request:get-uploaded-file-name('file'), '.odt')
else substring-before(request:get-uploaded-file-name('file'), '.docx')

let $origFileData := string(request:get-uploaded-file-data('file'))
(: unzip erwartet base64Binary, die vom Upload direkt geliefert werden :)
let $unpack := compression:unzip($origFileData, $filter, (), $entry-data, ())
let $incoming :=
<pack>{
for $item in $unpack
return $item}
</pack>

let $debug := xmldb:store('/db/apps/w2tei', 'word.xml', document{$incoming})

(: for now, we assume that we will do this in one pass - or we might later need
two specific runs anyway :)
(:let $type := if (local-name($incoming/*[1]) = 'document-content')
then 'OO'
else 'MS'
let $xslt := if ($type = 'OO')
then doc('xslt/oo2tei.xsl')
else doc('xslt/ms2tei.xsl'):)
let $add := request:get-parameter('xslt', 'none')
let $post := request:get-parameter('firstheading', false())

let $params :=
<parameters/>


(:let $firstPass :=
if ($post)
then transform:transform($incoming, $xslt, $params)
else transform:transform($incoming, $xslt, ())
let $result := if ($add != 'none')
then transform:transform($firstPass, doc($add), ())
else $firstPass:)

(:let $ret := if (count($incoming//w:pStyle[@w:val='berschrift1']) > 1)
then
let $result := transform:transform($incoming, doc($add), $params)
let $filename := $result//tei:TEI/@xml:id || '.xml'
return xmldb:store('/db/apps/word2tei/mp-data', $filename, $result)
else
for :)

(:let $result := transform:transform($incoming, doc($add), $params):)
let $attr := <attributes><attr name="http://saxon.sf.net/feature/recoveryPolicyName" value="recoverSilently" /></attributes>
let $result := try { transform:transform($incoming, doc($add), $params) }
catch * { console:log('
x:' || $add || '
p: ' || $params || '
a: ' || $attr || '
e: ' || $err:code || ': ' || $err:description || ' @ ' || $err:line-number ||':'||$err:column-number || '
c: ' || $err:value || ' in ' || $err:module || '
a: ' || $err:additional)
}

let $create := if (not(xmldb:collection-available('/db/apps/w2tei/result')))
then xmldb:create-collection('/db/apps/w2tei', 'result')
else ()
let $t2 := console:log($result)

return if (local-name($result) = 'TEI')
then
let $filename := if ($result//tei:title[@type='short'])
then $result//tei:title[@type='short'] || '.xml'
else $title || '.xml'

let $t1 := console:log("short: " || $filename)
return <p>{xmldb:store('/db/apps/w2tei/result', encode-for-uri($filename), $result)}</p>
else
let $firstPass := if ($base = 'on')
then
let $t1 := transform:transform($incoming, doc('wt0.xsl'), $params)
return transform:transform($t1, doc('wt1.xsl'), $params)
else $incoming

let $attr := <attributes><attr name="http://saxon.sf.net/feature/recoveryPolicyName" value="recoverSilently" /></attributes>
let $result := if ($add = 'none')
then $firstPass
else
try { transform:transform($firstPass, doc($add), $params) }
catch * { console:log('
x: ' || $add || '
p: ' || $params || '
a: ' || $attr || '
e: ' || $err:code || ': ' || $err:description || ' @ ' || $err:line-number ||':'||$err:column-number || '
c: ' || $err:value || ' in ' || $err:module || '
a: ' || $err:additional)
}

let $create := if (not(xmldb:collection-available('/db/apps/w2tei/result')))
then xmldb:create-collection('/db/apps/w2tei', 'result')
else ()
let $t2 := console:log($result)

return if (local-name($result) = 'TEI')
then
let $filename := if ($result//tei:title[@type='short'])
then $result//tei:title[@type='short'] || '.xml'
else $title || '.xml'

let $t1 := console:log("short: " || $filename)
return <p>{xmldb:store('/db/apps/w2tei/result', encode-for-uri($filename), $result)}</p>
else
for $el in $result//tei:TEI
for $el in $result//tei:TEI
for $el in $result//tei:TEI
let $filename := if ($el//tei:title[@type='short'])
then $el//tei:title[@type='short'] || '.xml'
else $title || '.xml'
let $t1 := console:log("short: " || $filename)
return <p>{xmldb:store('/db/apps/w2tei/result', encode-for-uri($filename), $el)}</p>
let $filename := if ($el//tei:title[@type='short'])
then $el//tei:title[@type='short'] || '.xml'
else $title || '.xml'
let $t1 := console:log("short: " || $filename)
return <p>{xmldb:store('/db/apps/w2tei/result', encode-for-uri($filename), $el)}</p>

0 comments on commit f2ff2c5

Please sign in to comment.