Skip to content

GitLab

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

            else if(matches($node/@style, "underline")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
234 
            and not(matches($node/@style, "vertical-align"))) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
235 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
236
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
237 
            else if(simpleHelpers:has-valid-style($node)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
238 
            or matches($node/@rendition, "black_letter")
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
239 
            or matches($node/@rendition, "roman")) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
240 
                fontaneSimple:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
241
242
243 

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

            else if($node/@type = "auction_number"
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
250 
            or $node/@type = "cancel"
MRodz's avatar
Add 3.21.26 chars with unknown reason    
MRodz committed
251
252 
            or $node/@type = "abort"
            or $node/@function ="unknown")
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
253
254 
                then
                    ()
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
255
256
257 
                    
            else if($node/parent::tei:add and $node/@copyOf) then
                fontaneSimple:mark-intervention($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
258
MRodz's avatar
Adapt to styleguide and add local:keep-element    
MRodz committed
259 
            else
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
Add first draft for 3.21.19 underline    
MRodz committed
262 
        case element(tei:hi) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
263 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
264
265 

        (: TODO if $node/@type = "highlighted" then make
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
266 
        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
267 
        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
268
269 
        case element(tei:mod) return
            if($node/@type = "highlighted"
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
270 
            and simpleHelpers:is-hand-contemporary($node/@hand)) then
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
271 
                $node
MRodz's avatar
Add first draft for 3.22.18 written additions in print    
MRodz committed
272
273 
            else
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
274
MRodz's avatar
Add first draft for 3.21.16 multiphrases. test for interlinear leads to problems.    
MRodz committed
275 
        case element(tei:anchor) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
276 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
277
278 

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

(:~
 : 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
            ()),
        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
627
628
629
630 
        (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
631
632
633
634
635
636
637
638
639
640
641
642
643
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
677
678
679
680
681
682
683
684
685
686 
        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
687
688
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
689 
declare function fontaneSimple:mark-intervention($node as element(*))
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
690
691 
as element(tei:seg) {
    element tei:seg {
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
692
693
694
695
696
697 
        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
698
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
699 
        <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
700
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
701
702
703
704 
        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
705
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735 
        <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
736
737 
    }
};