Commit 15a18158 authored by mrodzis's avatar mrodzis 🌿
Browse files

Start to generalize code to more than one notebook

parent 2b384067
......@@ -8,17 +8,34 @@ xquery version "3.1";
: @version 1.0
:)
declare namespace tei="http://www.tei-c.org/ns/1.0";
declare namespace xi="http://www.w3.org/2001/XInclude";
import module namespace config="http://textgrid.de/ns/SADE/config" at "../../config/config.xqm";
import module namespace fontaneSimple="http://fontane-nb.dariah.eu/teisimple"
at "tei2teisimple.xqm";
import module namespace presort="http://fontane-nb.dariah.eu/presort" at "presort.xqm";
import module namespace tidySimple ="http://fontane-nb.dariah.eu/tidysimple" at "tidysimple.xqm";
let $test := doc("/db/sade-projects/textgrid/data/xml/data/16b00.xml")/*
return
presort:main($test)
=> fontaneSimple:main()
=> tidySimple:main()
(:declare option exist:serialize "method=xml media-type=text/xml expand-xincludes=no";:)
(::)
(:let $cases := :)
(: ("3qtcz.xml") (: case C :):)
(::)
(:return:)
(: for $case in $cases:)
(: let $doc := doc("/db/sade-projects/textgrid/data/xml/data/" || $case):)
(: let $new-filename := $doc//tei:title[1] => replace(" ", "-") || ".xml":)
(: let $create-new-file := xmldb:store($config:app-root || "/resources/xml/", $new-filename, $doc/*):)
(: :)
(: let $xincludes := $doc//xi:include:)
(: return util:log-system-out($xincludes):)
(:let $tei := fontaneSimple:main("16b00.xml"):)
(:return tidySimple:main($tei):)
\ No newline at end of file
let $test := doc("/db/sade-projects/textgrid/data/xml/data/1zzdq.xml")/*
let $uri := "1zzdp"
let $presort := presort:main($test)
return
fontaneSimple:main($presort, $uri)
=> tidySimple:main()
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment