Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
tei2teisimple.xqm 26.6 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
411 
                }
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
412
413 
            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
414 
                    (if($node/@style
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
415
416
417
418
419 
                    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
420 
                    fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
421
422 
                }
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
423 
            else if(simpleHelpers:has-valid-style($node)
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
424 
            or matches($node/@rendition, "black_letter")
MRodz's avatar
Undo some whitespace changes of f0e02318 and aa9716da    
MRodz committed
425 
            or matches($node/@rendition, "roman")) then
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
426 
                fontaneSimple:make-seg-with-rendition($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
427
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
428 
            else if(not($node/@xml:id)) then
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
429 
                fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
430
MRodz's avatar
Add 3.22.20 red color and renaming of namespace    
MRodz committed
431 
            else if($node/@xml:id and simpleHelpers:is-transposed($node)) then
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
432 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
433
MRodz's avatar
Add 3.21.11 deletions    
MRodz committed
434 
            else
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.21.10.2.1.2.3 genealogy    
MRodz committed
437 
        case element(tei:figure) return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
438 
            if(count($node/child::*) = 1 and $node/child::tei:figDesc) then
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
439 
                (: 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
440
441
442
443 
                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
444 
(:                        fontaneSimple:transform($node/node()):)
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
445
446
447
448
449
450 
(:                    }:)
(:                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
451
452
453 
                                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
454 
                                    attribute type {"long-end-line"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
455 
                                case "horizontale einfache Schlusslinie (gewellt)" return
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
456 
                                    attribute type {"long-end-line-wavy"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
457 
                                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
458 
                                    attribute type {"bottom-brace-short"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
459
460 
                                default return
                                    attribute type {"end-line"}
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
461
462 
                        }
                else if(matches($node/descendant::tei:ref, "Absatzlinie")
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
463
464 
                (: 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
465
466
467
468
469
470
471
472
473
474 
                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
475
476 
                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
477
478 
                        $node/@*,
                        fontaneSimple:transform($nodes/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
479 
                    }
MRodz's avatar
Update genealogy and add 3.21.10.2.2. horizontal lines    
MRodz committed
480 
                else
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
481
482 
                    ()
            else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
483 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
484
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
485 
        case element(tei:note) return
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
486 
            if($node/@type = "authorial"
MRodz's avatar
Add 3.21.27 footnote marks and footnotes    
MRodz committed
487 
            and not($node/@subtype = "footnote")) then
MRodz's avatar
Add 3.21.23 authorial notes    
MRodz committed
488 
                ()
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
489 
            else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
490 
                fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
491
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
492
493
494
495
496
497 
        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
498 
                fontaneSimple:transform($node/node())
MRodz's avatar
Add first draft for 3.7 sketches    
MRodz committed
499 
            }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
500
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
501 
        case element(tei:figDesc) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
502 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
503
MRodz's avatar
Add 3.21.10.2.1.2.3 genealogy    
MRodz committed
504 
        case element(tei:ref) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
505 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
506
MRodz's avatar
Add 3.21.20 abbreviations    
MRodz committed
507 
        case element(tei:space) 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.20 abbreviations    
MRodz committed
510 
        case element(tei:choice) 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:abbr) 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:expan) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
517 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
518
519
520
521
522
523 
            
        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
524
MRodz's avatar
Add first draft for headings    
MRodz committed
525 
        case element(tei:rs) return
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
526 
            fontaneSimple:copy-element($node)
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
527
MRodz's avatar
Add first draft for headings    
MRodz committed
528 
        case element(tei:date) return
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
529 
            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
530
531 
                (if($node/@when-iso) then
                    attribute when {$node/@when-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
532
533 
                else
                    ()),
MRodz's avatar
Tidy up attributes and make tei:div creation generic    
MRodz committed
534
535 
                (if($node/@from-iso) then
                    attribute from {$node/@from-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
536
537 
                else
                    ()),
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
538
539 
                (if($node/@to-iso) then
                    attribute to {$node/@to-iso}
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
540 
                else
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
541 
                    ()),
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
542
543 
                (if($node/@notAfter-iso) then
                    attribute notAfter {$node/@notAfter-iso}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
544 
                else
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
545 
                    ()),
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
546 
                $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
547 
                fontaneSimple:transform($node/node())
MRodz's avatar
Change attribute in order to be compliant with TEI simplePrint    
MRodz committed
548 
            }
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
549
MRodz's avatar
Add first draft for 3.21.14 transpositions    
MRodz committed
550 
        case element(tei:ptr) return
Michelle Rodzis's avatar
Add 3.26.1 dates    
Michelle Rodzis committed
551 
            text{"test"}
Michelle Rodzis's avatar
Tidy up and add documentation    
Michelle Rodzis committed
552
MRodz's avatar
Start conversion to TEISimple  
MRodz committed
553 
        default return
MRodz's avatar
Move helper function to separate module and rename transformation module    
MRodz committed
554 
            fontaneSimple:transform($node/node())
Michelle Rodzis's avatar
Add first draft for serializing only valid text    
Michelle Rodzis committed
555 
};
MRodz's avatar
Restructure helper module to reduce complexity    
MRodz committed
556
557
558
559
560
561
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 

(:~
 : 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
621
622
623
624 
        (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
625
626
627
628
629
630
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 
        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
681
682
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
683 
declare function fontaneSimple:mark-intervention($node as element(*))
MRodz's avatar
Add first draft for 3.2 text interventions    
MRodz committed
684
685 
as element(tei:seg) {
    element tei:seg {
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
686
687
688
689
690
691 
        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
692
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
693 
        <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
694
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
695
696
697
698 
        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
699
Michelle Rodzis's avatar
Finalize 3.2. textual interventions    
Michelle Rodzis committed
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729 
        <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
730
731 
    }
};