Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
tei2teisimple.xqm 19.7 KB
Newer Older
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
1
2 
xquery version "3.1";
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
3 
(:~
Michelle Rodzis's avatar
Add documentation    
Michelle Rodzis committed
4
5 
 : This modules handles the conversion of the Fontante-TEI/XML into TEI simplePrint
 : for the edited text. The resulting TEI simplePrint is the basis for the "Editerter
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
6 
 : Text" (edited text) view on the website and the book. It represents the latest
Michelle Rodzis's avatar
Add documentation    
Michelle Rodzis committed
7 
 : layer of text.
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
8 
 :
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
9
10 
 : @author Michelle Rodzis
 : @version 0.1
Michelle Rodzis's avatar
Add documentation    
Michelle Rodzis committed
11 
 : @since TODO
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
12
13 
 :)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
14 
module namespace fontaneSimple="http://fontane-nb.dariah.eu/teisimple";
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
15
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
16
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
17
18
19
20 
declare namespace tei="http://www.tei-c.org/ns/1.0";
declare namespace test="http://exist-db.org/xquery/xqsuite";

import module namespace console="http://exist-db.org/xquery/console";
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
21 
import module namespace simpleHelpers="http://fontane-nb.dariah.eu/teisimplehelpers" at "teisimplehelpers.xqm";
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
22
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
23 
(:~
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
24 
 : The main function initiates the transformation of a given notebook.
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
25 
 :
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
26 
 : TODO: adapt to several input files?
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
27 
 :
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
28 
 : :)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
29 
declare function fontaneSimple:main($file as xs:string) as xs:string? {
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
30 
  let $doc :=
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
31
32
33
34
35 
    try {
      (doc("/db/sade-projects/textgrid/data/xml/data/" || $file))
    } catch * {
      (console:log("It was not possible to open the requested file " || $file))
    }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
36
MRodz's avatar
Fix #23    
MRodz committed
37
38 
    let $front-covers := $doc//tei:sourceDoc/tei:surface[contains(@n, "front_cover")]
    let $back-covers := $doc//tei:sourceDoc/tei:surface[contains(@n, "back_cover")]
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
39 
    let $content := $doc//tei:sourceDoc/tei:surface[not(contains(@n, "cover")
MRodz's avatar
Eliminate content reduplication    
MRodz committed
40 
        or matches(@n, "spine"))]
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
41
MRodz's avatar
Add 3.12.8. Illegible words and characters    
MRodz committed
42 
    let $tei := <TEI xmlns="http://www.tei-c.org/ns/1.0">
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
43 
        {$doc//tei:teiHeader}
MRodz's avatar
Fix bugs in test setup and start TDD    
MRodz committed
44 
        <text>
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
45
46
47 
            <front>{fontaneSimple:transform($front-covers)}</front>
            <body>{fontaneSimple:transform($content)}</body>
            <back>{fontaneSimple:transform($back-covers)}</back>
MRodz's avatar
Fix bugs in test setup and start TDD    
MRodz committed
48 
        </text>
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
49 
      </TEI>
MRodz's avatar
Add 3.12.8. Illegible words and characters    
MRodz committed
50 
    return xmldb:store("/db/apps/SADE/resources/xml/", "tei-simple.xml", $tei)
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
51
52 
};
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
53 
(:~
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
54
55
56
57
58
59
60
61
62 
 : Recursivly iterates the passed nodes and converts them according to the
 : requirements for the "Edierter Text". While it convers almost all of the
 : requirements stated in the encoding documentation (c.f.
 : https://fontane-nb.dariah.eu/doku.html), some parts of it are handled in a
 : second step (c.f. TODO) - especially the removal of tei:handShift duplicates
 : and the tei:milestone expansion to tei:div[@type = "section"] resp. tei:p -
 : because it is easier to perform these steps after the XML hierarchy has been
 : flattened a bit.
 :
MRodz's avatar
Add documentation    
MRodz committed
63 
 : @author Michelle Rodzis
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
64 
 : @param $nodes the elements of the book covers and the book content
Michelle Rodzis's avatar
Add documentation    
Michelle Rodzis committed
65 
 : @return $node()* a TEI simplePrint element
MRodz's avatar
Add documentation    
MRodz committed
66 
 :)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
67 
declare function fontaneSimple:transform($nodes as node()*) as node()* {
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
68
69
70 
    for $node in $nodes
      return
        typeswitch ($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
71 
        case text() return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
72 
            simpleHelpers:prepare-text($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
73
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
74
75
76
77 
        case element(tei:lb) return
            if($node[@break = "keepHyphen"]) then
                ()
            else
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
78 
                simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
79
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
80
81
82
83 
        case element(tei:g) return
            if($node[@ref = "#vds"]) then
                ()
            else if($node/@ref ="#rth" or $node/@ref ="#hb") then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
84 
                simpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
85 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
86 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
87
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
88
89 
        case element(tei:del) return
            if($node/parent::tei:restore) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
90 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
91 
            else if($node/descendant::tei:restore) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
92 
                fontaneSimple:transform($node/descendant::tei:restore)
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
93 
            else
MRodz's avatar
Add elements    
MRodz committed
94 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
95
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
96
97
98
99
100 
        case element(tei:restore) return
            if(count($node/child::*) = 1 and $node/child::tei:del
            and $node/ancestor::tei:del) then
                ()
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
101 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
102
MRodz's avatar
Add 3.21.12 writing over text    
MRodz committed
103
104
105 
        case element(tei:retrace) return
            if($node/@rend) then
                element tei:seg {
Michelle Rodzis's avatar
Tidy up tei:seg/@style    
Michelle Rodzis committed
106 
                    attribute rendition {$node/@rend},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
107 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.12 writing over text    
MRodz committed
108
109 
                }
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
110 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
111
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
112 
        case element(tei:add) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
113 
            if($node/@type = "edited_text"
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
114 
            or $node/child::tei:seg[@type = "multiphrase"]) then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
115 
                simpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
116
117 
            else if($node/@cause ="catchword" or $node/@cause ="unclear") then
                ()
MRodz's avatar
Add first draft for correction marks    
MRodz committed
118 
            else if($node/@rend ="|") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
119 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
120 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
121 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
122 
            else if(simpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
123
124 
                let $corresp := //tei:metamark[matches(@target, $node/@xml:id)]
                return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
125
126 
                    (fontaneSimple:transform($corresp/node()),
                    fontaneSimple:transform($node/node()))
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
127 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
128 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
129
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
130
131 
        case element(tei:addSpan) return
            if($node/@type = "edited_text") then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
132 
                simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
133 
            else
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
134
135 
                ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
136
137 
        case element(tei:fw) return
            ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
138
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
139
140
141 
        case element(tei:line) return
            if(count($node/*) = 1 and $node/child::tei:fw) then
                ()
MRodz's avatar
Add first draft for headings    
MRodz committed
142 
            else if($node/@type = "heading") then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
143 
                simpleHelpers:make-head($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
144
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
145
146
147
148
149 
            else if((simpleHelpers:has-valid-style($node)
            or matches($node/@rendition, "black_letter")
            or matches($node/@rendition, "roman"))
            and simpleHelpers:has-valid-text($node)) then
                simpleHelpers:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
150
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
151 
            else if(not($node/@type = "item")) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
152 
                fontaneSimple:transform($node/node())
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
153
154 
            else if($node/@type = "item" and not($node/@xml:id)) then
                element tei:item {
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
155 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
156 
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
157 
            else if($node/@type = "item"
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
158 
            and simpleHelpers:is-transposed($node)) then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
159 
                ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
160 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
161 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
162
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
163 
        case element(tei:handShift) return
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
164 
            if($node/@new) then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
165
166
167 
                if(simpleHelpers:is-hand-valid($node)
                and not(simpleHelpers:is-prev-valid-hand-same($node))) then
                    simpleHelpers:copy-element($node)
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
168
169 
                else
                    ()
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
170 
            else
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
171
172 
                (: tei:simpleHelpers:copy-element($node)ft without @new denote
                the ductus of the current writer or a change of writing medium :)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
173
174 
                if(simpleHelpers:is-hand-valid($node/preceding::tei:handShift[@new][1])) then
                    simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
175
176
177 
                else
                    ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
178
179 
        case element(tei:stamp) return
            ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
180
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
181 
        case element(tei:seg) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
182 
            if(count($node/*) = 1 and
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
183
184
185 
            ($node/child::tei:stamp or $node/child::tei:metamark[@function = "caret"]))
                then
                    ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
186
MRodz's avatar
Add first draft for headings    
MRodz committed
187 
            else if($node/@type = "heading") then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
188 
                simpleHelpers:make-head($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
189
190 

            else if(matches($node/@style, "underline")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
191 
            and not(matches($node/@style, "vertical-align"))) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
192 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
193
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
194
195
196
197 
            else if((simpleHelpers:has-valid-style($node)
            or matches($node/@rendition, "black_letter")
            or matches($node/@rendition, "roman"))
            and simpleHelpers:has-valid-text($node)) then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
198
199
200
201 
                simpleHelpers:make-seg-with-rendition($node)

            else if($node/@type = "initials"
            or $node/@type = "monogram"
MRodz's avatar
Add 3.18 languages    
MRodz committed
202
203 
            or $node/@type = "multiphrase"
            or $node/@xml:lang)
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
204 
                then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
205 
                    simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
206
207 

            else if($node/@type = "auction_number"
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
208 
            or $node/@type = "cancel"
MRodz's avatar
Add 3.21.26 chars with unknown reason    
MRodz committed
209
210 
            or $node/@type = "abort"
            or $node/@function ="unknown")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
211
212 
                then
                    ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
213
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
214 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
215 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
216
MRodz's avatar
Add first draft for 3.21.19 underline    
MRodz committed
217 
        case element(tei:hi) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
218 
            simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
219
220 

        (: TODO if $node/@type = "highlighted" then make
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
221 
        a hi[@type = "vertical-mark"] in the second stage of creating the
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
222 
        simple format. use simpleHelpers:get-xml-chunk($node) for this.:)
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
223
224 
        case element(tei:mod) return
            if($node/@type = "highlighted"
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
225
226 
            and simpleHelpers:is-hand-contemporary($node/@hand)) then
                simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
227
228 
            else
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
229
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
230 
        case element(tei:anchor) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
231 
            simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
232
233 

        case element(tei:surface) return
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
234 
            if(matches($node/@n, "cover")) then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
235
236 
                simpleHelpers:make-pb-with-type($node/@n)
            else if(simpleHelpers:is-page($node)
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
237 
            and $node/@type = "clipping") then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
238 
                (simpleHelpers:make-pb($node),
MRodz's avatar
Add 3.6 Glue and page fragments    
MRodz committed
239
240 
                (if(not($node/@subtype = "Kalenderblatt"
                or $node/@subtype = "Zeitungsausschnitt_Fragment")) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
241 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
242
243 
                else
                    ()))
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
244
245 
            else if(simpleHelpers:is-page($node)) then
                (simpleHelpers:make-pb($node),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
246 
                fontaneSimple:transform($node/node()))
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
247 
            else if($node/@type = "label" and
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
248 
            (contains($node/@subtype, "Fontane")
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
249 
            or contains($node/@subtype, "Hersteller"))
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
250 
            ) then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
251 
                simpleHelpers:make-div($node)
MRodz's avatar
Adapt to TEI simplePrint schema    
MRodz committed
252
253 
            else
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
254
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
255
256
257 
        case element(tei:milestone) return
            if($node/@unit = "illustration") then
                ()
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
258 
(:            else if($node/@unit = "section") then:)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
259 
(:                simpleHelpers:make-section($node):)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
260
261 
(:            else if($node/@unit = "pararaph") then:)
(:                fontaneSimple:make-paragraph($node):)
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
262 
            else
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
263 
                simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
264
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
265 
        case element(tei:gap) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
266 
            simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
267
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
268 
        case element(tei:metamark) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
269 
            if($node/@function = "integrate"
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
270
271
272
273 
            or $node/@function = "authorial_note") then
                element tei:ab {
                    $node/@*
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
274 
            else if($node/@function = "placeholder"
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
275
276
277
278
279 
            or $node/@function ="etc."
            or $node/@function ="caret"
            or $node/@function ="footnotes"
            or $node/@function ="ellipsis"
            or $node/@function = "paragraph") then
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
280
281 
                element tei:ab {
                    attribute type {$node/@function},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
282 
                    fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
283 
                }
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
284
285 
            else
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
286
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
287
288
289 
        (: TODO: check if correct :)
        case element(tei:surplus) return
            ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
290
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
291 
        case element(tei:zone) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
292 
            if(matches($node/@style, "border-style:solid")
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
293
294
295
296 
            and not(matches($node/@style, "border-radius"))
            and not($node/@rend = "border-style:house")) then
                element tei:div {
                    attribute type {"frame"},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
297 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
298 
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
299
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
300 
            else if(matches($node/@rend, "border-bottom-style:brace")) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
301 
                (fontaneSimple:transform($node/node()),
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
302
303 
                element tei:ab {
                    attribute type {"bottom-brace"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
304
305 
                })
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
306
307 
            else if($node/@type = "cancel") then
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
308
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
309
310
311
312 
            else if($node/@type = "marked_off") then
                element tei:seg {
                    $node/@type,
                    $node/@xml:id,
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
313 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
314 
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
315
MRodz's avatar
Add 3.21.20 vertical marks    
MRodz committed
316
317 
            else if($node/@type = "highlighted") then
                if($node/child::tei:zone[@type = "highlighted"]) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
318 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.20 vertical marks    
MRodz committed
319
320
321 
                else
                    element tei:hi {
                        attribute type {"vertical-mark"},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
322 
                        fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
323 
                    }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
324
MRodz's avatar
Add first draft for 3.22.22 printed illustrations    
MRodz committed
325
326 
            else if($node/@type = "illustration"
            or $node/@type = "printed_illustration") then
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
327
328
329
330
331
332
333 
                if(not($node//tei:figure/parent::tei:del)) then
                    element {QName("http://www.tei-c.org/ns/1.0", "ab")}{
                        (if($node/child::tei:zone[@type = "illustration"]) then
                            attribute type {"composed-sketch"}
                        else
                            (attribute type {"sketch"},
                            if($node/parent::tei:zone[@type = "illustration"]) then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
334 
                                attribute rendition {"margin-left:" || $node/@ulx
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
335
336
337
338
339 
                                || "cm; " || "margin-top:" || $node/@uly || "cm"}
                            else
                                ()
                            )
                        ),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
340 
                        fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
341 
                    }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
342 
                else
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
343 
                    ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
344
MRodz's avatar
Add first draft for 3.22.22 printed illustrations    
MRodz committed
345
346 
            else if($node/parent::tei:zone/@type = "illustration"
            or $node/parent::tei:zone/@type = "printed_illustration") then
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
347
348 
                element {QName("http://www.tei-c.org/ns/1.0", "seg")}{
                    attribute type {"caption"},
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
349 
                    attribute rendition {"margin-left:" || $node/@ulx || "cm; "
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
350 
                        || "margin-top:" || $node/@uly || "cm"},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
351 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
352 
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
353
MRodz's avatar
Add first draft for headings    
MRodz committed
354 
            else if($node/@type = "heading") then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
355
356 
                simpleHelpers:make-head($node)
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
357
358 
            else if($node/@type = "list" or $node/@type = "item") then
                element {QName("http://www.tei-c.org/ns/1.0", $node/@type)}{
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
359 
                    $node/(@* except (@type, @ulx, @uly, @lrx, @lry, @rotate)),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
360 
                    fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
361
362 
                }
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
363
364 
            else if($node/@type = "legend") then
                element {QName("http://www.tei-c.org/ns/1.0", "div")}{
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
365 
                    (if($node/@style
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
366
367
368
369
370 
                    or $node/@rendition) then
                        attribute rendition {simpleHelpers:filter-rendition($node)}
                    else
                        ()),
                    $node/(@* except (@rendition, @style)),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
371 
                    fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
372
373 
                }
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
374
375
376
377
378 
            else if((simpleHelpers:has-valid-style($node)
            or matches($node/@rendition, "black_letter")
            or matches($node/@rendition, "roman"))
            and simpleHelpers:has-valid-text($node)) then
                simpleHelpers:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
379
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
380 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
381 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
382
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
383 
            else if($node/@xml:id and simpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
384 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
385
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
386 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
387 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
388
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
389 
        case element(tei:figure) return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
390 
            if(count($node/child::*) = 1 and $node/child::tei:figDesc) then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
391 
                (: genealogy lines probably shouldn't be displayed, but I still have to
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
392
393
394
395 
                check that. in case they should be serialized, I leave the code :)
(:                if(matches($node/descendant::tei:ref, "Stammbaumverbindungslinie")) then:)
(:                    element tei:seg {:)
(:                        $node/@*,:)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
396 
(:                        fontaneSimple:transform($node/node()):)
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
397
398
399
400
401
402 
(:                    }:)
(:                else if(matches($node/descendant::tei:ref, "Schlusslinie")):)
                if(matches($node/descendant::tei:ref, "Schlusslinie"))
                    then
                        element tei:ab {
                            switch ($node/descendant::tei:ref)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
403
404
405 
                                case "horizontale einfache Schlusslinie" return
                                    attribute type {"long-end-line"}
                                case "Schlusslinie; horizontale Halbschleife von links oben nach rechts" return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
406 
                                    attribute type {"long-end-line"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
407 
                                case "horizontale einfache Schlusslinie (gewellt)" return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
408 
                                    attribute type {"long-end-line-wavy"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
409 
                                case "Schlusslinien; horizontale Schleife von links oben nach rechts unten" return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
410 
                                    attribute type {"bottom-brace-short"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
411
412 
                                default return
                                    attribute type {"end-line"}
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
413
414 
                        }
                else if(matches($node/descendant::tei:ref, "Absatzlinie")
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
415
416 
                (: in case of double paragraph lines the single lines are
                encoded with "oberer" resp. "unterer Teil", but we only
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
417
418
419
420
421
422
423
424
425
426 
                serialize the encoding for the upper line :)
                and not(matches($node/descendant::tei:ref, "unterer Teil"))
                and not(matches($node/descendant::tei:figDesc, "unsicher"))) then
                    element tei:ab {
                        if(matches($node/descendant::tei:ref, "doppelt"))
                            then
                                attribute type {"short-paragraph-line-double"}
                            else
                                attribute type {"short-paragraph-line"}
                    }
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
427
428 
                else if($node/parent::tei:zone[@type = "illustration"]) then
                    element {QName("http://www.tei-c.org/ns/1.0", $node/name())}{
Michelle Rodzis's avatar
Add 3.26.14 sketches    
Michelle Rodzis committed
429
430 
                        $node/@*,
                        fontaneSimple:transform($nodes/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
431 
                    }
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
432 
                else
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
433
434 
                    ()
            else
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
435 
                simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
436
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
437 
        case element(tei:note) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
438 
            if($node/@type = "authorial"
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
439 
            and not($node/@subtype = "footnote")) then
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
440 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
441 
            else
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
442 
                simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
443
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
444
445
446
447
448
449 
        case element(tei:certainty) return
            element {QName("http://www.tei-c.org/ns/1.0", "note")}{
                attribute type {"editorial"},
                attribute subtype {"certainty"},
                $node/@cert,
                $node/@target,
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
450 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
451 
            }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
452
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
453 
        case element(tei:figDesc) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
454 
            simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
455
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
456 
        case element(tei:ref) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
457 
            simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
458
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
459 
        case element(tei:space) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
460 
            simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
461
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
462 
        case element(tei:choice) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
463 
            simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
464
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
465 
        case element(tei:abbr) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
466 
            simpleHelpers:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
467
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
468 
        case element(tei:expan) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
469
470 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for headings    
MRodz committed
471 
        case element(tei:rs) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
472
473 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for headings    
MRodz committed
474 
        case element(tei:date) return
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
475 
            element {QName("http://www.tei-c.org/ns/1.0", $node/name())}{
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
476
477 
                (if($node/@when-iso) then
                    attribute when {$node/@when-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
478
479 
                else
                    ()),
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
480
481 
                (if($node/@from-iso) then
                    attribute from {$node/@from-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
482
483 
                else
                    ()),
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
484
485 
                (if($node/@to-iso) then
                    attribute to {$node/@to-iso}
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
486
487
488
489 
                else
                    ()),                
                (if($node/@notAfter-iso) then
                    attribute notAfter {$node/@notAfter-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
490 
                else
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
491 
                    ()),
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
492 
                $node/(@* except (@when-iso, @to-iso, @from-iso, @notAfter-iso)),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
493 
                fontaneSimple:transform($node/node())
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
494 
            }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
495
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
496 
        case element(tei:ptr) return
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
497 
            text{"test"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
498
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
499 
        default return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
500 
            fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Add first draft for serializing only valid text    
Michelle Rodzis committed
501 
};