Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
tei2teisimple.xqm 33.5 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
Add first draft for info ingest from indices    
MRodz committed
21 
import module namespace index-info="http://fontane-nb.dariah.eu/index-info" at "index-info.xqm";
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
22
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
23 
(:~
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
24 
 : The main function initiates the transformation of a given notebook.
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
25 
 :
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
26 
 : TODO: adapt to several input files?
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
27 
 :
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
28 
 : :)
MRodz's avatar
Restructure runner    
MRodz committed
29 
declare function fontaneSimple:main($file as xs:string) as node()? {
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
30 
  let $doc :=
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
31 
    try {
MRodz's avatar
Add 3.8.1 and 3.8.2.1 line counting and paragraphs    
MRodz committed
32 
      (doc("/db/sade-projects/textgrid/data/xml/data/" || $file))
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
33
34
35 
    } catch * {
      (console:log("It was not possible to open the requested file " || $file))
    }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
36
MRodz's avatar
Fix #23    
MRodz committed
37
38 
    let $front-covers := $doc//tei:sourceDoc/tei:surface[contains(@n, "front_cover")]
    let $back-covers := $doc//tei:sourceDoc/tei:surface[contains(@n, "back_cover")]
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
39 
    let $content := $doc//tei:sourceDoc/tei:surface[not(contains(@n, "cover")
MRodz's avatar
Eliminate content reduplication    
MRodz committed
40 
        or matches(@n, "spine"))]
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
41
MRodz's avatar
Add 3.12.8. Illegible words and characters    
MRodz committed
42 
    let $tei := <TEI xmlns="http://www.tei-c.org/ns/1.0">
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
43 
        {$doc//tei:teiHeader}
MRodz's avatar
Fix bugs in test setup and start TDD    
MRodz committed
44 
        <text>
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
45
46
47 
            <front>{fontaneSimple:transform($front-covers)}</front>
            <body>{fontaneSimple:transform($content)}</body>
            <back>{fontaneSimple:transform($back-covers)}</back>
MRodz's avatar
Fix bugs in test setup and start TDD    
MRodz committed
48 
        </text>
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
49 
      </TEI>
MRodz's avatar
Add first draft for making tei:div[@type = section] and tei:p    
MRodz committed
50 
     let $store := xmldb:store("/db/apps/SADE/resources/xml/", "tei-simple-pre.xml", $tei)
MRodz's avatar
Restructure runner    
MRodz committed
51 
    return $tei
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
52
53 
};
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
54 
(:~
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
55
56
57
58
59
60
61
62
63 
 : 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
64 
 : @author Michelle Rodzis
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
65 
 : @param $nodes the elements of the book covers and the book content
Michelle Rodzis's avatar
Add documentation    
Michelle Rodzis committed
66 
 : @return $node()* a TEI simplePrint element
MRodz's avatar
Add documentation    
MRodz committed
67 
 :)
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
68 
declare function fontaneSimple:transform($nodes as node()*) as node()* {
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
69
70
71 
    for $node in $nodes
      return
        typeswitch ($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
72 
        case text() return
MRodz's avatar
Add restriction for text()    
MRodz committed
73
74
75
76
77
78
79 
            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
80
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
81
82
83 
        case element(tei:lb) return
            if($node[@break = "keepHyphen"]) then
                ()
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
84
85 
            else if($node[@break = "no"]) then
                fontaneSimple:mark-intervention($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
86 
            else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
87 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
88
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
89
90
91
92 
        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
93 
                fontaneSimple:copy-element($node)
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
94 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
95 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
96
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
97
98 
        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
99 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
100 
            else if($node/descendant::tei:restore) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
101 
                fontaneSimple:transform($node/descendant::tei:restore)
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
102 
            else
MRodz's avatar
Add elements    
MRodz committed
103 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
104
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
105
106
107
108
109 
        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
110 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
111
MRodz's avatar
Add 3.21.12 writing over text    
MRodz committed
112
113
114 
        case element(tei:retrace) return
            if($node/@rend) then
                element tei:seg {
Michelle Rodzis's avatar
Tidy up tei:seg/@style    
Michelle Rodzis committed
115 
                    attribute rendition {$node/@rend},
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
116 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Add 3.21.12 writing over text    
MRodz committed
117
118 
                }
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
119 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
120
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
121 
        case element(tei:add) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
122 
            if($node/@type = "edited_text"
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
123 
            or $node/child::tei:seg[@type = "multiphrase"]) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
124 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
125
126
127
128 
(:                :)
(:            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
129
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
130
131
132
133
134 
            
            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
135 
                fontaneSimple:mark-intervention($node)
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
136
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
137 
            else if($node/@cause ="catchword") then
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
138 
                ()
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
139
MRodz's avatar
Add first draft for correction marks    
MRodz committed
140 
            else if($node/@rend ="|") then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
141 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
142
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
143 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
144 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
145
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
146 
            else if(simpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
147
148 
                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
149
150 
                    (fontaneSimple:transform($corresp/node()),
                    fontaneSimple:transform($node/node()))
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
151
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
152 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
153 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
154
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
155
156 
        case element(tei:addSpan) return
            if($node/@type = "edited_text") then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
157 
                fontaneSimple:copy-element($node)
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
158 
            else
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
159
160 
                ()
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
161
162 
        case element(tei:fw) return
            ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
163
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
164 
        case element(tei:line) return
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
165 
            if($node/@type = "heading") then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
166 
                fontaneSimple:make-head($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
167
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
168 
            else if(simpleHelpers:has-valid-style($node)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
169 
            or matches($node/@rendition, "black_letter")
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
170 
            or matches($node/@rendition, "roman")) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
171 
                fontaneSimple:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
172
173 
                
            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
174 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
175 
                simpleHelpers:trim-last-char($node))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
176
177 
                
            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
178 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
179 
                simpleHelpers:trim-first-char($node))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
180
181 
                
            else if($node/@type = "verse") then
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
182
183
184
185
186
187
188
189
190
191
192
193
194 
                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
195 
                else
MRodz's avatar
Add 3.8.2.2 verses and dialogues    
MRodz committed
196
197
198
199
200
201
202
203
204
205
206
207
208 
                    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
209
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
210
211
212 
            (: 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
213 
            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
214 
                (simpleHelpers:start-line($node),
Michelle Rodzis's avatar
Add first draft for 3.8 line numbering    
Michelle Rodzis committed
215 
                fontaneSimple:transform($node/node()))
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
216
MRodz's avatar
Fix bug in lists (50fe0366)    
MRodz committed
217 
            else if($node/@type = "item") then
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
218 
                element tei:item {
MRodz's avatar
Fix bug in lists (50fe0366)    
MRodz committed
219 
                    $node/(@* except (@rend, @type, @style)),
Michelle Rodzis's avatar
Change @rend to @rendition    
Michelle Rodzis committed
220
221
222
223 
                    if($node/@rend) then
                        attribute rendition {$node/@rend}
                    else
                        (),
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
224 
                    fontaneSimple:transform($node/node())
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz 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 
        case element(tei:stamp) return
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
235
236
237
238 
            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
239
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
240 
        case element(tei:seg) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
241 
            if(count($node/*) = 1 and
Michelle Rodzis's avatar
Add 3.20 attachments    
Michelle Rodzis committed
242
243
244 
            (($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
245
246 
                then
                    ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
247
MRodz's avatar
Add first draft for headings    
MRodz committed
248 
            else if($node/@type = "heading") then
MRodz's avatar
Refactor headings    
MRodz committed
249 
                fontaneSimple:make-head($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
250
251 

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

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

            else if($node/@type = "auction_number"
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
268 
            or $node/@type = "cancel"
MRodz's avatar
Add 3.21.26 chars with unknown reason    
MRodz committed
269
270 
            or $node/@type = "abort"
            or $node/@function ="unknown")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
271
272 
                then
                    ()
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
273
274
275 
                    
            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
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297 
                
            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
298
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
299 
            else
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
300 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
301
MRodz's avatar
Add first draft for 3.21.19 underline    
MRodz committed
302 
        case element(tei:hi) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
303 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
304
305 

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

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

(:~
 : 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())}{
Michelle Rodzis's avatar
Change @rend to @rendition    
Michelle Rodzis committed
686
687
688
689
690 
        $node/(@* except @rend),
        if($node/@rend) then
            attribute rendition {$node/@rend}
        else
            (),
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
691
692
693
694
695
696
697
698
699
700
701
702
703
704 
        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
MRodz's avatar
Refactor headings    
MRodz committed
705 
            attribute style {simpleHelpers:get-font-size($node)}
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
706 
        else
MRodz's avatar
Refactor headings    
MRodz committed
707 
            attribute style {"default"}
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
708 
        ),
MRodz's avatar
Refactor headings    
MRodz committed
709 
        attribute type {"former-" || $node/name()},
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
710
711
712
713 
        $node/@subtype,
        (if($node/@rendition) then
            $node/@rendition
        else
MRodz's avatar
Add 3.8.2.3 headings    
MRodz committed
714
715
716
717
718 
            ()),         
        (if($node/@rend) then
            $node/@rend
        else
            ()),
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
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 
        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
750
751
752
753 
        (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
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
798
799
800
801
802
803
804
805
806
807
808
809 
        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
810
811
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
812 
declare function fontaneSimple:mark-intervention($node as element(*))
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
813
814 
as element(tei:seg) {
    element tei:seg {
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
815
816
817
818
819
820 
        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
821
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
822 
        <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
823
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
824
825
826
827 
        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
828
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858 
        <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
859 
    }
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
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874 
};

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
Enhance draft for index information    
MRodz committed
875
876
877
878
879
880
881
882
883
884 
};

declare function fontaneSimple:make-index-attributes($node as element(tei:rs), 
$index-type as xs:string) as attribute()* {
    let $refs := tokenize($node/@ref, " ")
    let $no-of-refs := count($refs)
    return
        for $iii in 1 to $no-of-refs
        let $ref := $refs[$iii]
        return
MRodz's avatar
Generic approach for info retrieval from indices    
MRodz committed
885
886 
            (attribute {"regular-name-" || $iii} {index-info:get-info-about($index-type, $ref, "regular-name")},
            attribute {"occs-" || $iii} {index-info:get-info-about($index-type, $ref, "occs-in-nbs")},
MRodz's avatar
Enhance draft for index information    
MRodz committed
887
888 
            switch ($index-type)
                case "eve" return
MRodz's avatar
Generic approach for info retrieval from indices    
MRodz committed
889 
                    attribute {"place-" || $iii} {index-info:get-info-about($index-type, $ref, "place")}
MRodz's avatar
Enhance draft for index information    
MRodz committed
890
891
892 
                case "org" return 
                    ()
                case "plc" return
MRodz's avatar
Generic approach for info retrieval from indices    
MRodz committed
893 
                    attribute {"subref-of-" || $iii} {index-info:get-info-about($index-type, $ref, "subref-of")}
MRodz's avatar
Enhance draft for index information    
MRodz committed
894 
                case "psn" return
MRodz's avatar
Generic approach for info retrieval from indices    
MRodz committed
895
896
897 
                    (attribute {"birth-" || $iii} {index-info:get-info-about($index-type, $ref, "birth")},
                    attribute {"death-" || $iii} {index-info:get-info-about($index-type, $ref, "death")},
                    attribute {"occupation-" || $iii} {index-info:get-info-about($index-type, $ref, "occupation")})
MRodz's avatar
Enhance draft for index information    
MRodz committed
898
899
900
901 
                case "wrk" return 
                    ()
                default return 
                    ())
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
902 
};