Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
tei2teisimple.xqm 31.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
16 

declare namespace tei="http://www.tei-c.org/ns/1.0";
MRodz's avatar
Restructure runner    
MRodz committed
17 
declare namespace test="http://exist-db.org/xquery/xqsuite";
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
18
19 

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
20 
import module namespace simpleHelpers="http://fontane-nb.dariah.eu/teisimplehelpers" at "teisimplehelpers.xqm";
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
21
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
22 
(:~
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
23 
 : The main function initiates the transformation of a given notebook.
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
24 
 :
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
25 
 : TODO: adapt to several input files?
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
26 
 :
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
27 
 : :)
MRodz's avatar
Restructure runner    
MRodz committed
28 
declare function fontaneSimple:main($file as xs:string) as node()? {
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
29 
  let $doc :=
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
30 
    try {
MRodz's avatar
Add 3.8.1 and 3.8.2.1 line counting and paragraphs    
MRodz committed
31 
      (doc("/db/sade-projects/textgrid/data/xml/data/" || $file))
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
32
33
34 
    } 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
35
MRodz's avatar
Fix #23    
MRodz committed
36
37 
    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
38 
    let $content := $doc//tei:sourceDoc/tei:surface[not(contains(@n, "cover")
MRodz's avatar
Eliminate content reduplication    
MRodz committed
39 
        or matches(@n, "spine"))]
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
40
MRodz's avatar
Add 3.12.8. Illegible words and characters    
MRodz committed
41 
    let $tei := <TEI xmlns="http://www.tei-c.org/ns/1.0">
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
42 
        {$doc//tei:teiHeader}
MRodz's avatar
Fix bugs in test setup and start TDD    
MRodz committed
43 
        <text>
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
44
45
46 
            <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
47 
        </text>
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
48 
      </TEI>
MRodz's avatar
Add first draft for making tei:div[@type = section] and tei:p    
MRodz committed
49 
     let $store := xmldb:store("/db/apps/SADE/resources/xml/", "tei-simple-pre.xml", $tei)
MRodz's avatar
Restructure runner    
MRodz committed
50 
    return $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 restriction for text()    
MRodz committed
72
73
74
75
76
77
78 
            if($node/ancestor::tei:line
            or $node/ancestor::tei:figDesc
            or $node/ancestor::tei:desc[@type = "edited_text"]
            or $node/ancestor::tei:note[@type = "editorial"]) then
                simpleHelpers:prepare-text($node)
            else
                ()
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 
        case element(tei:lb) return
            if($node[@break = "keepHyphen"]) then
                ()
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
83
84 
            else if($node[@break = "no"]) then
                fontaneSimple:mark-intervention($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
85 
            else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
86 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
87
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
88
89
90
91 
        case element(tei:g) return
            if($node[@ref = "#vds"]) then
                ()
            else if($node/@ref ="#rth" or $node/@ref ="#hb") then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
92 
                fontaneSimple:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
93 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
94 
                fontaneSimple:transform($node/node())
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 
        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
98 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
99 
            else if($node/descendant::tei:restore) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
100 
                fontaneSimple:transform($node/descendant::tei:restore)
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
101 
            else
MRodz's avatar
Add elements    
MRodz committed
102 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
103
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
104
105
106
107
108 
        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
109 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
110
MRodz's avatar
Add 3.21.12 writing over text    
MRodz committed
111
112
113 
        case element(tei:retrace) return
            if($node/@rend) then
                element tei:seg {
Michelle Rodzis's avatar
Tidy up tei:seg/@style    
Michelle Rodzis committed
114 
                    attribute rendition {$node/@rend},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
115 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.12 writing over text    
MRodz committed
116
117 
                }
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
118 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
119
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
120 
        case element(tei:add) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
121 
            if($node/@type = "edited_text"
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
122 
            or $node/child::tei:seg[@type = "multiphrase"]) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
123 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
124
125
126
127 
(:                :)
(:            else if($node[matches(@copyOf, $node/preceding::tei:seg/@xml:id):)
(:                and not(@cause = "unclear")]) then:)
(:                fontaneSimple:mark-intervention($node):)
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
128
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
129
130
131
132
133 
            
            else if($node/@cause = "unclear") then
                ()
                
            else if($node[matches(@copyOf, $node/preceding::tei:seg/@xml:id)]) then
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
134 
                fontaneSimple:mark-intervention($node)
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
135
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
136 
            else if($node/@cause ="catchword") then
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
137 
                ()
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
138
MRodz's avatar
Add first draft for correction marks    
MRodz committed
139 
            else if($node/@rend ="|") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
140 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
141
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
142 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
143 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
144
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
145 
            else if(simpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
146
147 
                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
148
149 
                    (fontaneSimple:transform($corresp/node()),
                    fontaneSimple:transform($node/node()))
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
150
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
151 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
152 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
153
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
154
155 
        case element(tei:addSpan) return
            if($node/@type = "edited_text") then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
156 
                fontaneSimple:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
157 
            else
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
158
159 
                ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
160
161 
        case element(tei:fw) return
            ()
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:line) return
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
164 
            if($node/@type = "heading") then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
165 
                fontaneSimple:make-head($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
166
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
167 
            else if(simpleHelpers:has-valid-style($node)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
168 
            or matches($node/@rendition, "black_letter")
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
169 
            or matches($node/@rendition, "roman")) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
170 
                fontaneSimple:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
171
172 
                
            else if($node/following::*[1][self::tei:lb[@break = "no"]]) then
MRodz's avatar
Add 3.8.1 and 3.8.2.1 line counting and paragraphs    
MRodz committed
173 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
174 
                simpleHelpers:trim-last-char($node))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
175
176 
                
            else if ($node/preceding::*[1][self::tei:lb[@break = "no"]]) then
MRodz's avatar
Add 3.8.1 and 3.8.2.1 line counting and paragraphs    
MRodz committed
177 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
178 
                simpleHelpers:trim-first-char($node))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
179
180 
                
            else if($node/@type = "verse") then
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
181
182
183
184
185
186
187
188
189
190
191
192
193 
                if(not($node/@next)) then
                    (if(not($node/preceding-sibling::tei:line[@type = "verse"])) then
                        fontaneSimple:mark-linegroup-beginning()
                    else
                        (),
                    element tei:l {
                            fontaneSimple:transform($node/node())
                        },
                    if(not($node/following-sibling::tei:line[@type = "verse"])) then
                        fontaneSimple:mark-linegroup-end()
                    else
                        ())  
                (: 3.8.2.2.1.3 Vers mit anderer Beschriftung in einer Zeile :)
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
194 
                else
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
195
196
197
198
199
200
201
202
203
204
205
206
207 
                    let $corresp := $node/following::tei:seg[@type = "verse" 
                        and matches($node/@next, @xml:id)]
                    return
                        (fontaneSimple:mark-linegroup-beginning(),
                        element tei:l {
                            fontaneSimple:transform($node/node()),
                            simpleHelpers:start-line($node),
                            fontaneSimple:transform($corresp/node())
                        },
                        fontaneSimple:mark-linegroup-end())
                    
            else if($node/parent::tei:zone[@type = "verse"]/child::*[1] = $node) then
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
208
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
209
210
211 
            (: with opting for a tei:milestone we try to meet the project's
            requirements on the one hand while avoiding to run into hierarchical
            problems in the further processing on the other hand:)
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
212 
            else if(not($node/@type = "item")) then
MRodz's avatar
Add 3.8.1 and 3.8.2.1 line counting and paragraphs    
MRodz committed
213 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
214 
                fontaneSimple:transform($node/node()))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
215
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
216
217 
            else if($node/@type = "item" and not($node/@xml:id)) then
                element tei:item {
MRodz's avatar
Extend first draft for 3.8.2.4. lists and add first draft for 3.8.2.5 table of contents    
MRodz committed
218 
                    $node/@rend,
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
219 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
220 
                }
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
221
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
222 
            else if($node/@type = "item"
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
223 
            and simpleHelpers:is-transposed($node)) then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
224 
                ()
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
225
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
226 
            else
MRodz's avatar
Add 3.8.1 and 3.8.2.1 line counting and paragraphs    
MRodz committed
227 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
228 
                fontaneSimple:transform($node/node()))
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
229
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
230 
        case element(tei:handShift) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
231 
            fontaneSimple:enhance-handshift($node)
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
232
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
233 
        case element(tei:stamp) return
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
234
235
236
237 
            if($node/ancestor::tei:surface[matches(@n, "Beilage")]) then
                fontaneSimple:copy-element($node)
            else
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
238
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
239 
        case element(tei:seg) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
240 
            if(count($node/*) = 1 and
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
241
242
243 
            (($node/tei:stamp 
                and not($node/ancestor::tei:surface[matches(@n, "Beilage")]))
            or $node/tei:metamark[@function = "caret"]))
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
244
245 
                then
                    ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
246
MRodz's avatar
Add first draft for headings    
MRodz committed
247 
            else if($node/@type = "heading") then
MRodz's avatar
Add 3.8.2.3 headings    
MRodz committed
248
249
250
251
252
253
254
255
256
257
258
259
260 
                element tei:seg {
                    $node/@type,
                    $node/@subtype,
                    (if($node/@rendition) then
                        $node/@rendition
                    else
                        ()),         
                    (if($node/@rend) then
                        $node/@rend
                    else
                        ()),        
                    fontaneSimple:transform($node/node())
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
261
262 

            else if(matches($node/@style, "underline")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
263 
            and not(matches($node/@style, "vertical-align"))) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
264 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
265
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
266 
            else if(simpleHelpers:has-valid-style($node)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
267 
            or matches($node/@rendition, "black_letter")
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
268 
            or matches($node/@rendition, "roman")) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
269 
                fontaneSimple:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
270
271
272 

            else if($node/@type = "initials"
            or $node/@type = "monogram"
MRodz's avatar
Add 3.18 languages    
MRodz committed
273
274 
            or $node/@type = "multiphrase"
            or $node/@xml:lang)
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
275 
                then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
276 
                    fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
277
278 

            else if($node/@type = "auction_number"
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
279 
            or $node/@type = "cancel"
MRodz's avatar
Add 3.21.26 chars with unknown reason    
MRodz committed
280
281 
            or $node/@type = "abort"
            or $node/@function ="unknown")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
282
283 
                then
                    ()
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
284
285
286 
                    
            else if($node/parent::tei:add and $node/@copyOf) then
                fontaneSimple:mark-intervention($node)
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308 
                
            else if($node/@type = "verse" and $node/@prev) then
                ()
                
            else if($node/@type = "said") then
                if($node/@next) then
                    let $next := replace($node/@next, "#", "")
                    let $corresp := $node/following::*[@xml:id = $next]
                    return
                        (element tei:seg {
                            $node/@type,
                            fontaneSimple:transform($node/node()),
                            fontaneSimple:transform($corresp/node())
                        },
                        element tei:lb {
                            attribute type {"edited_text"}
                        })
                else
                    element tei:seg {
                        $node/@type,
                        fontaneSimple:transform($node/node())
                    }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
309
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
310 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
311 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
312
MRodz's avatar
Add first draft for 3.21.19 underline    
MRodz committed
313 
        case element(tei:hi) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
314 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
315
316 

        (: TODO if $node/@type = "highlighted" then make
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
317 
        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
318 
        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
319
320 
        case element(tei:mod) return
            if($node/@type = "highlighted"
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
321 
            and simpleHelpers:is-hand-contemporary($node/@hand)) then
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
322 
                $node
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
323
324 
            else
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
325
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
326 
        case element(tei:anchor) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
327 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
328
329 

        case element(tei:surface) return
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
330 
            if(matches($node/@n, "cover")) then
Michelle Rodzis's avatar
Fix bug in covers    
Michelle Rodzis committed
331
332 
                (fontaneSimple:make-pb-with-type($node/@n),
                fontaneSimple:transform($node/node()))
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
333
334
335
336
337
338
339
340
341
342
343
344
345 
                
            else if(matches($node/@n, "Beilage")) then
                element tei:div {
                    $node/@*,
                    fontaneSimple:transform($node/node())
                }
                
            else if($node/@type = "pocket") then
                (fontaneSimple:make-pb($node),
                element tei:div {
                    $node/(@* except (@n, @ulx, @uly, @lry, @lrx)),
                    fontaneSimple:transform($node/node())
                })
Michelle Rodzis's avatar
Fix bug in covers    
Michelle Rodzis committed
346
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
347 
            else if(simpleHelpers:is-page($node)
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
348 
            and $node/@type = "clipping") then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
349 
                (fontaneSimple:make-pb($node),
MRodz's avatar
Add 3.6 Glue and page fragments    
MRodz committed
350
351 
                (if(not($node/@subtype = "Kalenderblatt"
                or $node/@subtype = "Zeitungsausschnitt_Fragment")) then
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
352
353
354
355 
                    element tei:div {
                        $node/(@* except (@n, @ulx, @uly, @lry, @lrx)),
                        fontaneSimple:transform($node/node())
                    }
MRodz's avatar
Add 3.5 glued pages    
MRodz committed
356
357 
                else
                    ()))
Michelle Rodzis's avatar
Fix bug in covers    
Michelle Rodzis committed
358
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
359 
            else if(simpleHelpers:is-page($node)) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
360 
                (fontaneSimple:make-pb($node),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
361 
                fontaneSimple:transform($node/node()))
Michelle Rodzis's avatar
Fix bug in covers    
Michelle Rodzis committed
362
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
363 
            else if($node/@type = "label" and
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
364 
            (contains($node/@subtype, "Fontane")
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
365 
            or contains($node/@subtype, "Hersteller"))
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
366 
            ) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
367 
                fontaneSimple:make-div($node)
Michelle Rodzis's avatar
Fix bug in covers    
Michelle Rodzis committed
368
MRodz's avatar
Adapt to TEI simplePrint schema    
MRodz committed
369
370 
            else
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
371
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
372
373
374 
        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
375 
(:            else if($node/@unit = "section") then:)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
376 
(:                simpleHelpers:make-section($node):)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
377
378 
(:            else if($node/@unit = "pararaph") then:)
(:                fontaneSimple:make-paragraph($node):)
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
379 
            else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
380 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
381
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
382 
        case element(tei:gap) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
383 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
384
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
385 
        case element(tei:metamark) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
386 
            if($node/@function = "integrate"
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
387
388
389
390 
            or $node/@function = "authorial_note") then
                element tei:ab {
                    $node/@*
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
391 
            else if($node/@function = "placeholder"
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
392
393
394
395
396 
            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
397
398 
                element tei:ab {
                    attribute type {$node/@function},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
399 
                    fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
400 
                }
MRodz's avatar
Add 3.21.10.2.1.2.2. boundary markers and lines    
MRodz committed
401
402 
            else
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
403
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
404 
        case element(tei:surplus) return
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
405 
            fontaneSimple:mark-intervention($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
406
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
407 
        case element(tei:zone) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
408 
            if(matches($node/@style, "border-style:solid")
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
409
410
411
412 
            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
413 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
414 
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
415
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
416 
            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
417 
                (fontaneSimple:transform($node/node()),
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
418
419 
                element tei:ab {
                    attribute type {"bottom-brace"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
420
421 
                })
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
422
423 
            else if($node/@type = "cancel") then
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
424
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
425
426
427
428 
            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
429 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
430 
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
431
MRodz's avatar
Add 3.21.20 vertical marks    
MRodz committed
432
433 
            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
434 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.20 vertical marks    
MRodz committed
435
436
437 
                else
                    element tei:hi {
                        attribute type {"vertical-mark"},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
438 
                        fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
439 
                    }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
440
MRodz's avatar
Add first draft for 3.22.22 printed illustrations    
MRodz committed
441
442 
            else if($node/@type = "illustration"
            or $node/@type = "printed_illustration") then
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
443
444
445
446
447
448
449 
                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
450 
                                attribute rendition {"margin-left:" || $node/@ulx
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
451
452
453
454
455 
                                || "cm; " || "margin-top:" || $node/@uly || "cm"}
                            else
                                ()
                            )
                        ),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
456 
                        fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
457 
                    }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
458 
                else
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
459 
                    ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
460
MRodz's avatar
Add first draft for 3.22.22 printed illustrations    
MRodz committed
461
462 
            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
463
464 
                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
465 
                    attribute rendition {"margin-left:" || $node/@ulx || "cm; "
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
466 
                        || "margin-top:" || $node/@uly || "cm"},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
467 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
468 
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
469
MRodz's avatar
Add first draft for headings    
MRodz committed
470 
            else if($node/@type = "heading") then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
471 
                fontaneSimple:make-head($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
472
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
473 
            else if($node/@type = "list" or $node/@type = "item") then
MRodz's avatar
Extend first draft for 3.8.2.4. lists and add first draft for 3.8.2.5 table of contents    
MRodz committed
474
475 
                element {QName("http://www.tei-c.org/ns/1.0", $node/@type)} {
                    $node/(@xml:id, @rend, @rendition, @subtype, @prev, @next),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
476 
                    fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
477 
                }
Michelle Rodzis's avatar
Fix bug in tei:zone    
Michelle Rodzis committed
478
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500 
            else if($node/@type = "dialogue") then
                element tei:div {
                    $node/@type,
                    fontaneSimple:transform($node/node())
                }
                
            else if($node/@type = "verse") then
                (fontaneSimple:mark-linegroup-beginning(),
                element tei:l {
                    fontaneSimple:transform($node/node())
                },
                fontaneSimple:mark-linegroup-end())
                
            else if($node/@type = "said" and $node/@prev) then
                ()
                
            else if($node/@type = "said") then
                element tei:seg {
                    $node/@type,
                    fontaneSimple:transform($node/node())
                }
Michelle Rodzis's avatar
Fix bug in tei:zone    
Michelle Rodzis committed
501
502 
            else if($node/@type = "toc") then
                element tei:list {
MRodz's avatar
Extend first draft for 3.8.2.4. lists and add first draft for 3.8.2.5 table of contents    
MRodz committed
503 
                    $node/(@type, @subtype),
Michelle Rodzis's avatar
Fix bug in tei:zone    
Michelle Rodzis committed
504
505 
                    fontaneSimple:transform($node/node())
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
506
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
507
508 
            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
509 
                    (if($node/@style
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
510
511
512
513
514 
                    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
515 
                    fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
516 
                }
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
517
518
519
520
521
522 
                
            else if($node/@type = "additional") then
                element tei:ab {
                    $node/(@* except (@ulx, @uly, @lry, @lrx)),
                    fontaneSimple:transform($node/node())
                }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
523
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
524 
            else if(simpleHelpers:has-valid-style($node)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
525 
            or matches($node/@rendition, "black_letter")
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
526 
            or matches($node/@rendition, "roman")) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
527 
                fontaneSimple:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
528
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
529 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
530 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
531
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
532 
            else if($node/@xml:id and simpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
533 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
534
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
535 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
536 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
537
538
539
540
541
542
543
544
545
546
547
548 
                
        case element(tei:said) return
            (element tei:seg {
                attribute type {"said"},
                fontaneSimple:transform($node/node())
            },
            if($node/ancestor::tei:zone[@type = "dialogue"]/descendant::tei:said[position() != last()] = $node) then
                element tei:lb {
                        attribute type {"edited_text"}
                }
            else
                ())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
549
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
550 
        case element(tei:figure) return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
551 
            if(count($node/child::*) = 1 and $node/child::tei:figDesc) then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
552 
                (: 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
553
554
555
556 
                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
557 
(:                        fontaneSimple:transform($node/node()):)
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
558
559
560
561
562
563 
(:                    }:)
(:                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
564
565
566 
                                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
567 
                                    attribute type {"long-end-line"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
568 
                                case "horizontale einfache Schlusslinie (gewellt)" return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
569 
                                    attribute type {"long-end-line-wavy"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
570 
                                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
571 
                                    attribute type {"bottom-brace-short"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
572
573 
                                default return
                                    attribute type {"end-line"}
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
574
575 
                        }
                else if(matches($node/descendant::tei:ref, "Absatzlinie")
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
576
577 
                (: 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
578
579
580
581
582
583
584
585
586
587 
                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
588
589 
                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
590
591 
                        $node/@*,
                        fontaneSimple:transform($nodes/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
592 
                    }
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
593 
                else
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
594
595 
                    ()
            else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
596 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
597
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
598 
        case element(tei:note) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
599 
            if($node/@type = "authorial"
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
600 
            and not($node/@subtype = "footnote")) then
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
601 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
602 
            else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
603 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
604
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
605
606
607
608
609
610 
        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
611 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
612 
            }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
613
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
614 
        case element(tei:figDesc) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
615 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
616
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
617 
        case element(tei:ref) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
618 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
619
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
620 
        case element(tei:space) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
621 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
622
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
623 
        case element(tei:choice) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
624 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
625
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
626 
        case element(tei:abbr) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
627 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
628
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
629 
        case element(tei:expan) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
630 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
631
632
633
634
635
636 
            
        case element(tei:sic) return
            fontaneSimple:copy-element($node)     
            
        case element(tei:corr) return
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
637
MRodz's avatar
Add first draft for headings    
MRodz committed
638 
        case element(tei:rs) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
639 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
640
MRodz's avatar
Add first draft for headings    
MRodz committed
641 
        case element(tei:date) return
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
642 
            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
643
644 
                (if($node/@when-iso) then
                    attribute when {$node/@when-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
645
646 
                else
                    ()),
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
647
648 
                (if($node/@from-iso) then
                    attribute from {$node/@from-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
649
650 
                else
                    ()),
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
651
652 
                (if($node/@to-iso) then
                    attribute to {$node/@to-iso}
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
653 
                else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
654 
                    ()),
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
655
656 
                (if($node/@notAfter-iso) then
                    attribute notAfter {$node/@notAfter-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
657 
                else
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
658 
                    ()),
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
659 
                $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
660 
                fontaneSimple:transform($node/node())
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
661 
            }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
662
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
663 
        case element(tei:ptr) return
MRodz's avatar
Add 3.8.1 and 3.8.2.1 line counting and paragraphs    
MRodz committed
664 
            ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
665
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
666 
        default return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
667 
            fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Add first draft for serializing only valid text    
Michelle Rodzis committed
668 
};
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701 

(:~
 : Takes a given element over as is since it is compliant to TEI simplePrint.
 :
 : @author Michelle Rodzis
 : @param $node the current text node
 : @return node() a copy of the current node
 :)
declare function fontaneSimple:copy-element($node as node()) as node() {
    element {QName("http://www.tei-c.org/ns/1.0", $node/name())}{
        $node/@*,
        fontaneSimple:transform($node/node())
    }
};

(:~
 : Creates a tei:head with an @rendition and a font-size, if available.
 :
 : @author Michelle Rodzis
 : @param $node the current tei:line, tei:zone or tei:seg node
 : @return element(tei:head)
 : :)
declare function fontaneSimple:make-head($node as node()) as element(tei:head) {
    element tei:head {
        (if($node/descendant::tei:seg[matches(@style, "font-size")]) then
            attribute type {simpleHelpers:get-font-size($node)}
        else
            attribute type {"default"}
        ),
        $node/@subtype,
        (if($node/@rendition) then
            $node/@rendition
        else
MRodz's avatar
Add 3.8.2.3 headings    
MRodz committed
702
703
704
705
706 
            ()),         
        (if($node/@rend) then
            $node/@rend
        else
            ()),
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737 
        fontaneSimple:transform($node/node())
    }
};

(:~
 : Creates a tei:div.
 :
 : @author Michelle Rodzis
 : @param $node the current tei:surface node
 : @return element(tei:div)
 : :)
declare function fontaneSimple:make-div($node as element(tei:surface))
as element(tei:div) {
    element tei:div{
        $node/(@* except (@facs, @n, @attachment, @subtype, @ulx, @uly, @lrx, @lry, @points)),
        fontaneSimple:transform($node/node())
    }
};

(:~
 : Creates a new tei:seg with all relevant rendition information.
 :
 : @author Michelle Rodzis
 : @param $node the current tei:zone, tei:line, or tei:seg element
 : @return element(tei:seg)
 :)
declare function fontaneSimple:make-seg-with-rendition($node as element(*))
as element(tei:seg) {
    element tei:seg {
        attribute rendition {simpleHelpers:filter-rendition($node)},
        $node/(@* except (@style, @rendition)),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
738
739
740
741 
        (if($node[self::tei:line or self::tei:zone]) then
            attribute unit {$node/name()}
        else
            ()),
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797 
        fontaneSimple:transform($node/node())
    }
};


(:~
 : Creates a tei:pb.
 :
 : @author Michelle Rodzis
 : @param $node the current tei:surface node
 : @return element(tei:pb)
 :)
declare function fontaneSimple:make-pb($node as element(tei:surface))
as element(tei:pb) {
    element {QName("http://www.tei-c.org/ns/1.0", "pb")}{
        $node/@n
    }
};


(:~
 : Creates a tei:pb with a type instead of a @n representing the pagination.
 : This function is mainly used to separate the inner and outer book covers from
 : each other.
 :
 : @author Michelle Rodzis
 : @param $node the current tei:surface node
 : @return element(tei:pb)
 :)
declare function fontaneSimple:make-pb-with-type($type as xs:string)
as element(tei:pb) {
    element {QName("http://www.tei-c.org/ns/1.0", "pb")}{
        attribute type {$type}
    }
};

declare function fontaneSimple:enhance-handshift($node as element(tei:handShift))
as element(tei:handShift) {
    let $prev-hand := $node/preceding::tei:handShift[@new][1]
    return
        element tei:handShift {
            $node/@*,
            if(not($node/@new)) then
                attribute new {$prev-hand/@new}
            else
                (),
            if(not($node/@script)) then
                attribute script {""}
            else
                (),
            if(not($node/@medium)) then
                attribute medium {""}
            else
                ()
        }
};
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
798
799
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
800 
declare function fontaneSimple:mark-intervention($node as element(*))
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
801
802 
as element(tei:seg) {
    element tei:seg {
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
803
804
805
806
807
808 
        if($node[self::tei:lb]) then
            attribute type {"missing-hyphen"}
        else if($node[self::tei:surplus]) then
            attribute type {"surplus"}
        else
            attribute type {"reduplication"},
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
809
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
810 
        <tei:hi xmlns="http://www.tei-c.org/ns/1.0">‹</tei:hi>,
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
811
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
812
813
814
815 
        if($node[self::tei:lb]) then
            simpleHelpers:find-chars($node)
        else
            fontaneSimple:transform($node/node()),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
816
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846 
        <tei:hi xmlns="http://www.tei-c.org/ns/1.0">›</tei:hi>
    }
};


declare function fontaneSimple:mark-missing-hyphen($node as element(tei:lb)) as
element(tei:seg) {
    element tei:seg {
        attribute type {"missing-hyphen"},
        <tei:hi xmlns="http://www.tei-c.org/ns/1.0">‹</tei:hi>,
        simpleHelpers:find-chars($node),
        <tei:hi xmlns="http://www.tei-c.org/ns/1.0">›</tei:hi>
    }
};


(:~ In this first serialization step the beginning and end of line groups are 
 : simply marked with milestones, which are expanded to a full tei:lg in the 
 : second serialization step. :)
declare function fontaneSimple:mark-linegroup-beginning() as
element(tei:milestone) {
    element tei:milestone {
        attribute unit {"start-lg"}
    }
};

declare function fontaneSimple:mark-linegroup-end() as
element(tei:milestone) {
    element tei:milestone {
        attribute unit {"end-lg"}
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
847 
    }
MRodz's avatar
Extend first draft for 3.8.2.4. lists and add first draft for 3.8.2.5 table of contents    
MRodz committed
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862 
};

declare function fontaneSimple:has-pb-inbetween($node as node(), 
$corresp as node()*) as xs:boolean {
    if($node/following::tei:surface[. << $corresp]) then
        true()
    else
        false()
};

declare function fontaneSimple:separates-corresp-nodes($node as element(tei:surface)) 
as xs:boolean {
    some $prev in $node/preceding::*[@next]
    satisfies contains($prev/@next, $node/descendant::*/@xml:id)
        or contains($prev/@next, $node/following::*/@xml:id)
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
863 
};