-
Notifications
You must be signed in to change notification settings - Fork 1
/
tei_split.xsl
234 lines (212 loc) · 8.05 KB
/
tei_split.xsl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
<?xml version="1.0" encoding="UTF-8"?>
<!--
Split a single TEI book in XML chapters.
Could be overrided for other output formats
(epub, html site, html fragments…)
BSD-3-Clause https://opensource.org/licenses/BSD-3-Clause
© 2019 Frederic.Glorieux@fictif.org & LABEX OBVIL & Optéos
© 2013 Frederic.Glorieux@fictif.org & LABEX OBVIL
© 2012 Frederic.Glorieux@fictif.org
© 2010 Frederic.Glorieux@fictif.org & École nationale des chartes
© 2007 Frederic.Glorieux@fictif.org
© 2005 ajlsm.com (Cybertheses)
XSLT 1.0, compatible browser, PHP, Python, Java…
-->
<xsl:transform version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns="http://www.tei-c.org/ns/1.0"
xmlns:tei="http://www.tei-c.org/ns/1.0"
exclude-result-prefixes="tei"
>
<xsl:import href="tei_common.xsl"/>
<xsl:output indent="yes" encoding="UTF-8" method="xml" />
<xsl:variable name="split" select="true()"/>
<xsl:key name="split" match="
tei:*[self::tei:div or self::tei:div1 or self::tei:div2][normalize-space(.) != ''][@type][
contains(@type, 'article')
or contains(@type, 'chapter')
or contains(@subtype, 'split')
or contains(@type, 'act')
or contains(@type, 'poem')
or contains(@type, 'letter')
]
| tei:group/tei:text
| tei:TEI/tei:text/tei:*/tei:*[self::tei:div or self::tei:div1 or self::tei:group or self::tei:titlePage or self::tei:castList][normalize-space(.) != '']"
use="generate-id(.)"/>
<!-- Source file name (without extension) -->
<xsl:param name="src_name"/>
<!-- Required, folder where to project the generated files -->
<xsl:param name="dst_dir">
<xsl:choose>
<xsl:when test="$src_name != ''">
<xsl:value-of select="$src_name"/>
<xsl:text>/</xsl:text>
</xsl:when>
<xsl:otherwise>html/</xsl:otherwise>
</xsl:choose>
</xsl:param>
<!-- Extension for generated files -->
<xsl:param name="_ext">.xml</xsl:param>
<!-- Process root -->
<xsl:template match="/*" name="split">
<xsl:apply-templates select="." mode="split"/>
</xsl:template>
<!-- Default, go through -->
<xsl:template match="*" mode="split">
<xsl:apply-templates mode="split"/>
</xsl:template>
<!-- Do not output text -->
<xsl:template match="text()" mode="split"/>
<!-- Sections, candidates for split -->
<xsl:template match="
tei:text| tei:group/tei:text | tei:group | tei:back | tei:body | tei:front
| tei:div | tei:div0 | tei:div1 | tei:div2 | tei:div3 | tei:div4 | tei:div5 | tei:div6 | tei:div7
" mode="split">
<xsl:param name="type"/>
<!-- take content before sections -->
<xsl:variable name="before" select="generate-id(
tei:back | tei:body | tei:front
| tei:group|tei:div|tei:div0|tei:div1|tei:div2|tei:div3|tei:div4|tei:div5|tei:div6)"/>
<xsl:variable name="blocks" select="tei:*[following-sibling::*[generate-id(.)=$before]]"/>
<xsl:choose>
<!-- there are children to split, so we should do something special with what is before (and also after)
Is it a great idea to open a file/page for such division which could contain no more than a title ?
-->
<xsl:when test="descendant::*[key('split', generate-id())]">
<!-- Get last pb ? -->
<xsl:variable name="lastpb">
<!-- if a page break just before, catch it -->
<xsl:if test="preceding-sibling::*[1][self::tei:pb]">
<xsl:apply-templates select="preceding-sibling::*[1]"/>
</xsl:if>
</xsl:variable>
<!-- TO synchronize with tei2opf.xsl -->
<xsl:choose>
<xsl:when test="$blocks[tei:*[local-name()!='head'][local-name()!='pb'][local-name()!='index']]">
<xsl:call-template name="document">
<xsl:with-param name="tei" select="$blocks"/>
<xsl:with-param name="subtoc" select="true()"/>
</xsl:call-template>
</xsl:when>
<xsl:otherwise>
<xsl:call-template name="navigation">
<xsl:with-param name="tei" select="$blocks"/>
</xsl:call-template>
</xsl:otherwise>
</xsl:choose>
<xsl:apply-templates select="
tei:back | tei:body | tei:front
| tei:div | tei:div0 | tei:div1 | tei:div2 | tei:div3 | tei:div4 | tei:div5 | tei:div6 | tei:div7
" mode="split"/>
<!-- What about content after last section ? -->
</xsl:when>
<!-- Should be a leave with no children to split -->
<xsl:otherwise>
<xsl:if test="not(key('split', generate-id()))">
<xsl:message>tei2split.xsl, split problem for: <xsl:call-template name="id"/>, <xsl:call-template name="title"/></xsl:message>
</xsl:if>
<xsl:call-template name="document">
<xsl:with-param name="tei" select="*"/>
</xsl:call-template>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<!--
Process prev/next element
-->
<xsl:template name="rel"/>
<xsl:template name="prev">
<xsl:for-each select="preceding::*[key('split', generate-id())][not(self::tei:titlePage)][1]">
<xsl:call-template name="rel">
<xsl:with-param name="rel">prev</xsl:with-param>
</xsl:call-template>
</xsl:for-each>
</xsl:template>
<xsl:template name="next">
<xsl:variable name="child" select="descendant::*[not(self::tei:titlePage)][key('split', generate-id())][1]"/>
<xsl:choose>
<xsl:when test="$child">
<xsl:for-each select="$child">
<xsl:call-template name="rel">
<xsl:with-param name="rel">next</xsl:with-param>
</xsl:call-template>
</xsl:for-each>
</xsl:when>
<xsl:otherwise>
<xsl:for-each select="following::*[not(self::tei:titlePage)][key('split', generate-id())][1]">
<xsl:call-template name="rel">
<xsl:with-param name="rel">next</xsl:with-param>
</xsl:call-template>
</xsl:for-each>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template match="*" name="prev-obsolet">
<xsl:param name="secure"/>
<xsl:choose>
<xsl:when test="not($secure)">
<xsl:apply-templates select="preceding::*[1]" mode="prev">
<xsl:with-param name="secure" select="true()"/>
</xsl:apply-templates>
</xsl:when>
<xsl:when test="descendant-or-self::*[key('split', generate-id())]">
<xsl:copy-of select="."/>
</xsl:when>
<xsl:when test="not(preceding::*[1])"/>
<xsl:otherwise>
<xsl:apply-templates select="preceding::*[1]" mode="prev">
<xsl:with-param name="secure" select="true()"/>
</xsl:apply-templates>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<!-- Metadata, one day, should do something -->
<xsl:template match="tei:teiHeader" mode="split"/>
<!-- Called for sections nodes without content (except a title) -->
<xsl:template name="navigation">
</xsl:template>
<!-- Write a document -->
<xsl:template name="document">
<!-- TEI to process -->
<xsl:param name="tei" select="."/>
<!-- Content generated -->
<xsl:param name="cont">
<xsl:call-template name="cont">
<xsl:with-param name="tei" select="$tei"/>
</xsl:call-template>
</xsl:param>
<!-- Allow id override -->
<xsl:param name="id">
<xsl:call-template name="id"/>
</xsl:param>
<xsl:param name="href">
<xsl:value-of select="$dst_dir"/>
<!-- An anchor mybe needed -->
<xsl:call-template name="href">
<xsl:with-param name="id" select="$id"/>
<!-- no base for such links -->
<xsl:with-param name="base"/>
</xsl:call-template>
</xsl:param>
<!-- Log something -->
<document>
<xsl:value-of select="$href"/>
<xsl:text> : </xsl:text>
<xsl:call-template name="idpath"/>
</document>
<xsl:document
href="{$href}"
omit-xml-declaration="yes"
encoding="UTF-8"
indent="yes"
>
<xsl:copy-of select="$cont"/>
</xsl:document>
</xsl:template>
<xsl:template name="cont">
<xsl:param name="tei" select="."/>
<div>
<xsl:copy-of select="$tei"/>
</div>
</xsl:template>
</xsl:transform>