Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
tei2teisimple.xqm 30.3 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
164
165 
        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
166 
            else if($node/@type = "heading") then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
167 
                fontaneSimple:make-head($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
168
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
169 
            else if(simpleHelpers:has-valid-style($node)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
170 
            or matches($node/@rendition, "black_letter")
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
171 
            or matches($node/@rendition, "roman")) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
172 
                fontaneSimple:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
173
174 
                
            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
175 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
176 
                simpleHelpers:trim-last-char($node))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
177
178 
                
            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
179 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
180 
                simpleHelpers:trim-first-char($node))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
181
182 
                
            else if($node/@type = "verse") then
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
183
184
185
186
187
188
189
190
191
192
193
194
195 
                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
196 
                else
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
197
198
199
200
201
202
203
204
205
206
207
208
209 
                    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
210
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
211
212
213 
            (: 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
214 
            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
215 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
216 
                fontaneSimple:transform($node/node()))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
217
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
218
219 
            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
220 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
221 
                }
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
222
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
223 
            else if($node/@type = "item"
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
224 
            and simpleHelpers:is-transposed($node)) then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
225 
                ()
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
226
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
227 
            else
MRodz's avatar
Add 3.8.1 and 3.8.2.1 line counting and paragraphs    
MRodz committed
228 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
229 
                fontaneSimple:transform($node/node()))
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
230
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
231 
        case element(tei:handShift) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
232 
            fontaneSimple:enhance-handshift($node)
MRodz's avatar
Add first draft for eliminating double tei:handshift entries    
MRodz committed
233
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
234
235 
        case element(tei:stamp) return
            ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
236
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
237 
        case element(tei:seg) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
238 
            if(count($node/*) = 1 and
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
239 
            ($node/tei:stamp or $node/tei:metamark[@function = "caret"]))
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
240
241 
                then
                    ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
242
MRodz's avatar
Add first draft for headings    
MRodz committed
243 
            else if($node/@type = "heading") then
MRodz's avatar
Add 3.8.2.3 headings    
MRodz committed
244
245
246
247
248
249
250
251
252
253
254
255
256 
                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
257
258 

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

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

            else if($node/@type = "auction_number"
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
275 
            or $node/@type = "cancel"
MRodz's avatar
Add 3.21.26 chars with unknown reason    
MRodz committed
276
277 
            or $node/@type = "abort"
            or $node/@function ="unknown")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
278
279 
                then
                    ()
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
280
281
282 
                    
            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
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305 
                
            else if($node/@type = "verse" and $node/@prev) then
                ()
                
            else if($node/@type = "said") then
                if($node/@next) then
(:                    let $corresp := console:log($node/following::*[matches($node/@next, @xml:id)]):)
                    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
306
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
307 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
308 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
309
MRodz's avatar
Add first draft for 3.21.19 underline    
MRodz committed
310 
        case element(tei:hi) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
311 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
312
313 

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

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

(:~
 : 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
677
678
679
680
681 
            ()),         
        (if($node/@rend) then
            $node/@rend
        else
            ()),
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712 
        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
713
714
715
716 
        (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
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
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 
        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
773
774
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
775 
declare function fontaneSimple:mark-intervention($node as element(*))
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
776
777 
as element(tei:seg) {
    element tei:seg {
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
778
779
780
781
782
783 
        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
784
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
785 
        <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
786
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
787
788
789
790 
        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
791
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821 
        <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
822
823 
    }
};