Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
tei2teisimple.xqm 20.4 KB
Newer Older
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
1
2
3 
xquery version "3.1";

(:~
Michelle Rodzis's avatar
Add documentation    
Michelle Rodzis committed
4
5
6
7 
 : 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
 : Text" (edited text) view on the website and the book and represent the latest 
 : layer of text.
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
8
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 
declare namespace tei="http://www.tei-c.org/ns/1.0";
declare namespace test="http://exist-db.org/xquery/xqsuite";
MRodz's avatar
Add 3.12.8. Illegible words and characters    
MRodz committed
20 
import module namespace config="http://textgrid.de/ns/SADE/config" at "../config/config.xqm";
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
21 
import module namespace console="http://exist-db.org/xquery/console";
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
22 
import module namespace fontaneSimpleHelpers="http://fontane-nb.dariah.eu/teisimplehelpers" at "teisimplehelpers.xqm";
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
23 
import module namespace functx = "http://www.functx.com";
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
24
25
26
27
28
29
30 

(:~ 
 : The main function initiates the transformation of a given notebook.
 : 
 : TODO: adapt to several input files?
 : 
 : :)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
31 
declare function fontaneSimple:main($file as xs:string) as xs:string? {
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
32
33
34
35
36
37
38 
  let $doc := 
    try {
      (doc("/db/sade-projects/textgrid/data/xml/data/" || $file))
    } catch * {
      (console:log("It was not possible to open the requested file " || $file))
    }
MRodz's avatar
Fix #23    
MRodz committed
39
40 
    let $front-covers := $doc//tei:sourceDoc/tei:surface[contains(@n, "front_cover")]
    let $back-covers := $doc//tei:sourceDoc/tei:surface[contains(@n, "back_cover")]
MRodz's avatar
Fix bugs in test setup and start TDD    
MRodz committed
41 
    let $content := $doc//tei:sourceDoc/tei:surface[not(contains(@n, "cover")
MRodz's avatar
Eliminate content reduplication    
MRodz committed
42 
        or matches(@n, "spine"))]
MRodz's avatar
Fix bugs in test setup and start TDD    
MRodz committed
43
MRodz's avatar
Add 3.12.8. Illegible words and characters    
MRodz committed
44 
    let $tei := <TEI xmlns="http://www.tei-c.org/ns/1.0">
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
45 
        {$doc//tei:teiHeader}
MRodz's avatar
Fix bugs in test setup and start TDD    
MRodz committed
46 
        <text>
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
47
48
49 
            <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
50 
        </text>
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
51 
      </TEI>
MRodz's avatar
Add 3.12.8. Illegible words and characters    
MRodz committed
52 
    return xmldb:store("/db/apps/SADE/resources/xml/", "tei-simple.xml", $tei)
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
53
54 
};
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
55 
(:~
MRodz's avatar
Add documentation    
MRodz committed
56
57
58
59
60
61
62
63 
 : Recursivly iterates the passed nodes and converts them according to the 
 : requirements for the "Edierter Text". 
 : 
 : The requirements are part of the encoding documentation, c.f.
 : https://fontane-nb.dariah.eu/doku.html.
 : 
 : @author Michelle Rodzis
 : @param $nodes
Michelle Rodzis's avatar
Add documentation    
Michelle Rodzis committed
64 
 : @return $node()* a TEI simplePrint element
MRodz's avatar
Add documentation    
MRodz committed
65 
 :)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
66 
declare function fontaneSimple:transform($nodes as node()*) as node()* {
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
67
68
69 
    for $node in $nodes
      return
        typeswitch ($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
70 
        case text() return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
71 
            fontaneSimpleHelpers:prepare-text($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
72
73
74
75
76 
        
        case element(tei:lb) return
            if($node[@break = "keepHyphen"]) then
                ()
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
77 
                fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
78
79
80
81
82 
                
        case element(tei:g) return
            if($node[@ref = "#vds"]) then
                ()
            else if($node/@ref ="#rth" or $node/@ref ="#hb") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
83 
                fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
84 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
85 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
86
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
87
88 
        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
89 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
90 
            else if($node/descendant::tei:restore) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
91 
                fontaneSimple:transform($node/descendant::tei:restore)
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
92 
            else
MRodz's avatar
Add elements    
MRodz committed
93 
                ()
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
94
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
95
96
97
98
99 
        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
100 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
101
MRodz's avatar
Add 3.21.12 writing over text    
MRodz committed
102
103
104 
        case element(tei:retrace) return
            if($node/@rend) then
                element tei:seg {
Michelle Rodzis's avatar
Tidy up tei:seg/@style    
Michelle Rodzis committed
105 
                    attribute rendition {$node/@rend},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
106 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.12 writing over text    
MRodz committed
107
108 
                }
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
109 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
110
111 
                
        case element(tei:add) return
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
112
113 
            if($node/@type = "edited_text" 
            or $node/child::tei:seg[@type = "multiphrase"]) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
114 
                fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
115
116 
            else if($node/@cause ="catchword" or $node/@cause ="unclear") then
                ()
MRodz's avatar
Add first draft for correction marks    
MRodz committed
117 
            else if($node/@rend ="|") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
118 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
119 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
120
121 
                fontaneSimple:transform($node/node())
            else if(fontaneSimpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
122
123 
                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
124
125 
                    (fontaneSimple:transform($corresp/node()),
                    fontaneSimple:transform($node/node()))
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
126 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
127 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
128
129
130 
                
        case element(tei:addSpan) return
            if($node/@type = "edited_text") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
131 
                fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
132
133
134 
            else
                ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
135
136 
        case element(tei:fw) return
            ()
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
137
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
138
139
140 
        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
141 
            else if($node/@type = "heading") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
142 
                fontaneSimpleHelpers:make-head($node)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
143
144
145
146
147 
                
            else if(matches($node/@rendition, "black_letter")
            or matches($node/@rendition, "roman")) then
                fontaneSimpleHelpers:make-seg-with-rendition($node)
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
148 
            else if(not($node/@type = "item")) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
149 
                fontaneSimple:transform($node/node())
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
150
151 
            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
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"
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
155 
            and fontaneSimpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for headings    
MRodz committed
156 
                ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
157 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
158 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
159
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
160 
        case element(tei:handShift) return
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
161 
            if($node/@new) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
162
163
164 
                if(fontaneSimpleHelpers:is-hand-valid($node)
                and not(fontaneSimpleHelpers:is-prev-valid-hand-same($node))) then
                    fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
165
166 
                else
                    ()
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
167 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
168 
                (: tei:fontaneSimpleHelpers:copy-element($node)ft without @new denote the duct
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
169 
                of the current writer or a change of writing medium :)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
170
171 
                if(fontaneSimpleHelpers:is-hand-valid($node/preceding::tei:handShift[@new][1])) then
                    fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
172
173
174 
                else
                    ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
175
176 
        case element(tei:stamp) return
            ()
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
177
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
178
179
180
181
182 
        case element(tei:seg) return
            if(count($node/*) = 1 and 
            ($node/child::tei:stamp or $node/child::tei:metamark[@function = "caret"]))
                then
                    ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
183
MRodz's avatar
Add first draft for headings    
MRodz committed
184 
            else if($node/@type = "heading") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
185 
                fontaneSimpleHelpers:make-head($node)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
186
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
187
188 
            else if(matches($node/@style, "underline") 
            and not(matches($node/@style, "vertical-align"))) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
189 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
190
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
191 
            else if($node/@style and fontaneSimpleHelpers:has-valid-text($node)) then
MRodz's avatar
Adapt to TEI simplePrint schema    
MRodz committed
192 
                element{QName("http://www.tei-c.org/ns/1.0", $node/name())}{
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
193 
                    attribute rendition {fontaneSimpleHelpers:filter-rendition($node/@style)},
MRodz's avatar
Adapt to TEI simplePrint schema    
MRodz committed
194 
                    $node/(@* except @style),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
195 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
196
197 
                }
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
198 
            else if($node/@type = "initials" or $node/@type = "monogram"
MRodz's avatar
Adapt to TEI simplePrint schema    
MRodz committed
199 
            or $node/@type = "multiphrase")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
200 
                then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
201 
                    fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
202
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
203
204 
            else if($node/@type = "auction_number" 
            or $node/@type = "cancel"
MRodz's avatar
Add 3.21.26 chars with unknown reason    
MRodz committed
205
206 
            or $node/@type = "abort"
            or $node/@function ="unknown")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
207
208 
                then
                    ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
209
210
211
212
213 
                    
            else if(matches($node/@rendition, "black_letter")
            or matches($node/@rendition, "roman")) then
                fontaneSimpleHelpers:make-seg-with-rendition($node)
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())
MRodz's avatar
Add first draft for 3.21.19 underline    
MRodz committed
216
217 
                    
        case element(tei:hi) return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
218 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
219
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
220
221
222
223
224
225
226
227
228
229 
        (: TODO if $node/@type = "highlighted" then make 
        a hi[@type = "vertical-mark"] in the second stage of creating the
        simple format. use fontaneSimpleHelpers:get-xml-chunk($node) for this.:)
        case element(tei:mod) return
            if($node/@type = "highlighted"
            and fontaneSimpleHelpers:is-hand-contemporary($node/@hand)) then
                fontaneSimpleHelpers:copy-element($node)
            else
                fontaneSimple:transform($node/node())
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
Move helper function to separate module and rename transformation module    
MRodz committed
231 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
232
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
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
Move helper function to separate module and rename transformation module    
MRodz committed
235
236 
                fontaneSimpleHelpers:make-pb-with-type($node/@n)
            else if(fontaneSimpleHelpers:is-page($node)
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
237 
            and $node/@type = "clipping") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
238 
                (fontaneSimpleHelpers: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
Move helper function to separate module and rename transformation module    
MRodz committed
244
245
246 
            else if(fontaneSimpleHelpers:is-page($node)) then
                (fontaneSimpleHelpers:make-pb($node),
                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
249
250 
            (contains($node/@subtype, "Fontane")
            or contains($node/@subtype, "Hersteller"))    
            ) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
251 
                fontaneSimpleHelpers:make-div($node)
MRodz's avatar
Adapt to TEI simplePrint schema    
MRodz committed
252
253 
            else
                ()
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
254
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.1 typography in prints    
MRodz committed
259 
(:                fontaneSimpleHelpers: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
Move helper function to separate module and rename transformation module    
MRodz committed
263 
                fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
264
265 
                    
        case element(tei:gap) return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
266 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
267
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
268
269
270
271
272
273 
        case element(tei:metamark) return
            if($node/@function = "integrate" 
            or $node/@function = "authorial_note") then
                element tei:ab {
                    $node/@*
                }
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
274
275
276
277
278
279 
            else if($node/@function = "placeholder" 
            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())
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
283 
                }
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
284
285 
            else
                ()
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
286
287
288
289
290 
        
        (: TODO: check if correct :)
        case element(tei:surplus) return
            ()
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
291
292
293
294
295
296 
        case element(tei:zone) return
            if(matches($node/@style, "border-style:solid") 
            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 
                }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz 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"}
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
304
305 
                })
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
306
307 
            else if($node/@type = "cancel") then
                ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz 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 
                }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz 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 
                    }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
324
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
325
326
327
328
329
330
331
332
333
334
335
336
337
338 
            else if($node/@type = "illustration") then
                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
                                attribute rendition {"margin-left:" || $node/@ulx 
                                || "cm; " || "margin-top:" || $node/@uly || "cm"}
                            else
                                ()
                            )
                        ),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
339 
                        fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
340
341
342 
                    }
                else 
                    ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
343
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
344
345
346
347
348 
            else if($node/parent::tei:zone/@type = "illustration") then
                element {QName("http://www.tei-c.org/ns/1.0", "seg")}{
                    attribute type {"caption"},
                    attribute rendition {"margin-left:" || $node/@ulx || "cm; " 
                        || "margin-top:" || $node/@uly || "cm"},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
349 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
350 
                }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
351
MRodz's avatar
Add first draft for headings    
MRodz committed
352 
            else if($node/@type = "heading") then
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
353
354 
                fontaneSimpleHelpers:make-head($node)
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
355
356 
            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
357 
                    $node/(@* except (@type, @ulx, @uly, @lrx, @lry, @rotate)),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
358 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
359 
                }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
360
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
361
362
363 
            else if($node/@type = "legend") then
                element {QName("http://www.tei-c.org/ns/1.0", "div")}{
                    $node/@*,
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
364 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
365
366
367
368
369
370 
                }    
            
            else if(matches($node/@rendition, "black_letter")
            or matches($node/@rendition, "roman")) then
                fontaneSimpleHelpers:make-seg-with-rendition($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
371 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
372 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
373
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
374 
            else if($node/@xml:id and fontaneSimpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
375 
                ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
376
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
377 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
378 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
379
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
380 
        case element(tei:figure) return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
381
382
383
384
385
386 
            if(count($node/child::*) = 1 and $node/child::tei:figDesc) then
                (: genealogy lines probably shouldn't be displayed, but I still have to 
                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
387 
(:                        fontaneSimple:transform($node/node()):)
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417 
(:                    }:)
(:                else if(matches($node/descendant::tei:ref, "Schlusslinie")):)
                if(matches($node/descendant::tei:ref, "Schlusslinie"))
                    then
                        element tei:ab {
                            switch ($node/descendant::tei:ref)
                                case "horizontale einfache Schlusslinie" return 
                                    attribute type {"long-end-line"}                                    
                                case "Schlusslinie; horizontale Halbschleife von links oben nach rechts" return 
                                    attribute type {"long-end-line"}
                                case "horizontale einfache Schlusslinie (gewellt)" return 
                                    attribute type {"long-end-line-wavy"}
                                case "Schlusslinien; horizontale Schleife von links oben nach rechts unten" return 
                                    attribute type {"bottom-brace-short"}
                                default return 
                                    attribute type {"end-line"}  
                        }
                else if(matches($node/descendant::tei:ref, "Absatzlinie")
                (: in case of double paragraph lines the single lines are 
                encoded with "oberer" resp. "unterer Teil", but we only 
                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
418
419
420
421 
                else if($node/parent::tei:zone[@type = "illustration"]) then
                    element {QName("http://www.tei-c.org/ns/1.0", $node/name())}{
                        $node/@*
                    }
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
422 
                else
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
423
424 
                    ()
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
425 
                fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
426
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
427 
        case element(tei:note) return
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
428
429 
            if($node/@type = "authorial" 
            and not($node/@subtype = "footnote")) then
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
430
431 
                ()
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
432 
                fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
433
434
435
436
437
438
439 
                
        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
440 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
441 
            }
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
442
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
443 
        case element(tei:figDesc) return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
444 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
445
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
446 
        case element(tei:ref) return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
447 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
448
449 
        
        case element(tei:space) return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
450 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
451
452 
            
        case element(tei:choice) return
MRodz's avatar
Revert chances made at 69b558db    
MRodz committed
453 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
454
455 
            
        case element(tei:abbr) return
MRodz's avatar
Revert chances made at 69b558db    
MRodz committed
456 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
457
458 
            
        case element(tei:expan) return
MRodz's avatar
Revert chances made at 69b558db    
MRodz committed
459 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for headings    
MRodz committed
460
461 
            
        case element(tei:rs) return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
462 
            fontaneSimpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for headings    
MRodz committed
463
464 
            
        case element(tei:date) return
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
465 
            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
466
467
468 
                (if($node/@when-iso) then
                    attribute when {$node/@when-iso}
                else
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
469
470
471
472
473 
                    ()), 
                (if($node/@from-iso) then
                    attribute from {$node/@from-iso}
                else 
                    ()),
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
474
475
476
477 
                (if($node/@to-iso) then
                    attribute to {$node/@to-iso}
                else 
                    ()),
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
478 
                $node/(@* except (@when-iso, @to-iso, @from-iso)),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
479 
                fontaneSimple:transform($node/node())
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
480 
            }
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
481
482
483
484 
            
        case element(tei:ptr) return
            let $target-id := substring-after($node/@target, "#")
            let $target := $node/ancestor::tei:TEI//*[matches(@xml:id, $target-id)]
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
485
486 
            let $stripped-target := fontaneSimpleHelpers:strip-element($target)
            return fontaneSimple:transform($stripped-target)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
487
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
488 
        default return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
489 
            fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Add first draft for serializing only valid text    
Michelle Rodzis committed
490 
};