Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
tei2teisimple.xqm 20.3 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
Add 3.22.20 red color and renaming of namespace    
MRodz committed
22 
import module namespace simpleHelpers="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
Add 3.22.20 red color and renaming of namespace    
MRodz committed
71 
            simpleHelpers: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
Add 3.22.20 red color and renaming of namespace    
MRodz committed
77 
                simpleHelpers: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
Add 3.22.20 red color and renaming of namespace    
MRodz committed
83 
                simpleHelpers: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
Add 3.22.20 red color and renaming of namespace    
MRodz committed
114 
                simpleHelpers: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 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
121 
            else if(simpleHelpers: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
Add 3.22.20 red color and renaming of namespace    
MRodz committed
131 
                simpleHelpers: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
Add 3.22.20 red color and renaming of namespace    
MRodz committed
142 
                simpleHelpers:make-head($node)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
143
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
144
145
146
147
148 
            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)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
149
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
150 
            else if(not($node/@type = "item")) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
151 
                fontaneSimple:transform($node/node())
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
152
153 
            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
154 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
155
156 
                }
            else if($node/@type = "item"
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
157 
            and simpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for headings    
MRodz committed
158 
                ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
159 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
160 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
161
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
162 
        case element(tei:handShift) return
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
163 
            if($node/@new) then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
164
165
166 
                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
167
168 
                else
                    ()
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
169 
            else
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
170 
                (: tei:simpleHelpers:copy-element($node)ft without @new denote the duct
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
171 
                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
172
173 
                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
174
175
176 
                else
                    ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
177
178 
        case element(tei:stamp) return
            ()
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
179
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
180
181
182
183
184 
        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
185
MRodz's avatar
Add first draft for headings    
MRodz committed
186 
            else if($node/@type = "heading") then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
187 
                simpleHelpers:make-head($node)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
188
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
189
190 
            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
191 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
192
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
193
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
                simpleHelpers:make-seg-with-rendition($node)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
198
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
199 
            else if($node/@type = "initials" or $node/@type = "monogram"
MRodz's avatar
Adapt to TEI simplePrint schema    
MRodz committed
200 
            or $node/@type = "multiphrase")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
201 
                then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
202 
                    simpleHelpers:copy-element($node)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
203
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
204
205 
            else if($node/@type = "auction_number" 
            or $node/@type = "cancel"
MRodz's avatar
Add 3.21.26 chars with unknown reason    
MRodz committed
206
207 
            or $node/@type = "abort"
            or $node/@function ="unknown")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
208
209 
                then
                    ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
210
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
211 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
212 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.19 underline    
MRodz committed
213
214 
                    
        case element(tei:hi) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
215 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
216
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
217
218 
        (: TODO if $node/@type = "highlighted" then make 
        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
219 
        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
220
221 
        case element(tei:mod) return
            if($node/@type = "highlighted"
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
222
223 
            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
224
225
226 
            else
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
227 
        case element(tei:anchor) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
228 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
229
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
230 
        case element(tei:surface) return
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
231 
            if(matches($node/@n, "cover")) then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
232
233 
                simpleHelpers:make-pb-with-type($node/@n)
            else if(simpleHelpers:is-page($node)
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
234 
            and $node/@type = "clipping") then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
235 
                (simpleHelpers:make-pb($node),
MRodz's avatar
Add 3.6 Glue and page fragments    
MRodz committed
236
237 
                (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
238 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
239
240 
                else
                    ()))
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
241
242 
            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
243 
                fontaneSimple:transform($node/node()))
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
244 
            else if($node/@type = "label" and
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
245
246
247 
            (contains($node/@subtype, "Fontane")
            or contains($node/@subtype, "Hersteller"))    
            ) then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
248 
                simpleHelpers:make-div($node)
MRodz's avatar
Adapt to TEI simplePrint schema    
MRodz committed
249
250 
            else
                ()
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
251
252
253
254 
        
        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
255 
(:            else if($node/@unit = "section") then:)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
256 
(:                simpleHelpers:make-section($node):)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
257
258 
(:            else if($node/@unit = "pararaph") then:)
(:                fontaneSimple:make-paragraph($node):)
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
259 
            else
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
260 
                simpleHelpers:copy-element($node)
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
261
262 
                    
        case element(tei:gap) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
263 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
264
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
265
266
267
268
269
270 
        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
271
272
273
274
275
276 
            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
277
278 
                element tei:ab {
                    attribute type {$node/@function},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
279 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
280 
                }
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
281
282 
            else
                ()
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
283
284
285
286
287 
        
        (: TODO: check if correct :)
        case element(tei:surplus) return
            ()
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
288
289
290
291
292
293 
        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
294 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
295 
                }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
296
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
297 
            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
298 
                (fontaneSimple:transform($node/node()),
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
299
300 
                element tei:ab {
                    attribute type {"bottom-brace"}
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
301
302 
                })
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
303
304 
            else if($node/@type = "cancel") then
                ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
305
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
306
307
308
309 
            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
310 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
311 
                }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
312
MRodz's avatar
Add 3.21.20 vertical marks    
MRodz committed
313
314 
            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
315 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.20 vertical marks    
MRodz committed
316
317
318 
                else
                    element tei:hi {
                        attribute type {"vertical-mark"},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
319 
                        fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
320 
                    }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
321
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
322
323
324
325
326
327
328
329
330
331
332
333
334
335 
            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
336 
                        fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
337
338
339 
                    }
                else 
                    ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
340
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
341
342
343
344
345 
            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
346 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
347 
                }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
348
MRodz's avatar
Add first draft for headings    
MRodz committed
349 
            else if($node/@type = "heading") then
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
350 
                simpleHelpers:make-head($node)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
351
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
352
353 
            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
354 
                    $node/(@* except (@type, @ulx, @uly, @lrx, @lry, @rotate)),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
355 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
356 
                }
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
357
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
358
359 
            else if($node/@type = "legend") then
                element {QName("http://www.tei-c.org/ns/1.0", "div")}{
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
360
361
362
363
364
365 
                    (if($node/@style 
                    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
366 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
367
368 
                }
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
369
370
371
372
373 
            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)
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
374
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
375 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
376 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
377
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
378 
            else if($node/@xml:id and simpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
379 
                ()
MRodz's avatar
Add 3.22.1 typography in prints    
MRodz committed
380
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
381 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
382 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
383
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
384 
        case element(tei:figure) return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
385
386
387
388
389
390 
            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
391 
(:                        fontaneSimple:transform($node/node()):)
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
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
418
419
420
421 
(:                    }:)
(:                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
422
423
424
425 
                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
426 
                else
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
427
428 
                    ()
            else
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
429 
                simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
430
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
431 
        case element(tei:note) return
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
432
433 
            if($node/@type = "authorial" 
            and not($node/@subtype = "footnote")) then
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
434
435 
                ()
            else
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
436 
                simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
437
438
439
440
441
442
443 
                
        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
444 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
445 
            }
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
446
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
447 
        case element(tei:figDesc) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
448 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
449
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
450 
        case element(tei:ref) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
451 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
452
453 
        
        case element(tei:space) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
454 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
455
456 
            
        case element(tei:choice) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
457 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
458
459 
            
        case element(tei:abbr) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
460 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
461
462 
            
        case element(tei:expan) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
463 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for headings    
MRodz committed
464
465 
            
        case element(tei:rs) return
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
466 
            simpleHelpers:copy-element($node)
MRodz's avatar
Add first draft for headings    
MRodz committed
467
468 
            
        case element(tei:date) return
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
469 
            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
470
471
472 
                (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
473
474
475
476
477 
                    ()), 
                (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
478
479
480
481 
                (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
482 
                $node/(@* except (@when-iso, @to-iso, @from-iso)),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
483 
                fontaneSimple:transform($node/node())
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
484 
            }
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
485
486
487
488 
            
        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
Add 3.22.20 red color and renaming of namespace    
MRodz committed
489 
            let $stripped-target := simpleHelpers:strip-element($target)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
490 
            return fontaneSimple:transform($stripped-target)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
491
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
492 
        default return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
493 
            fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Add first draft for serializing only valid text    
Michelle Rodzis committed
494 
};