Statistics
| Revision:

root / tmp / org.txm.oriflamms.rcp / res / txm-front-teioriflammsc-xtz.xsl @ 2398

History | View | Annotate | Download (17.2 kB)

1
<?xml version="1.0"?>
2
<xsl:stylesheet
3
	xmlns:edate="http://exslt.org/dates-and-times"
4
	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
5
	xmlns:tei="http://www.tei-c.org/ns/1.0"
6
	xmlns:me="http://www.menota.org/ns/1.0"
7
	xmlns:bfm="http://bfm.ens-lsh.fr/ns/1.0"
8
	xmlns:xd="http://www.pnp-software.com/XSLTdoc"
9
	exclude-result-prefixes="#all" version="2.0">
10

    
11
	<xsl:output method="xml" encoding="utf-8"
12
		omit-xml-declaration="no" />
13

    
14

    
15
	<xd:doc type="stylesheet">
16
		<xd:short>
17
			Cette feuille XSLT prépare les fichiers au format TEI Oriflamms
18
			(tokénisés par mot) à l'imppportation dans TXM avec le module XTZ
19
			(étape 2 "front").
20
		</xd:short>
21
		<xd:detail>
22
			This stylesheet is free software; you can redistribute it and/or
23
			modify it under the terms of the GNU Lesser General Public
24
			License as published by the Free Software Foundation; either
25
			version 3 of the License, or (at your option) any later version.
26

    
27
			This stylesheet is distributed in the hope that it will be useful,
28
			but WITHOUT ANY WARRANTY; without even the implied warranty of
29
			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
30
			Lesser General Public License for more details.
31

    
32
			You should have received a copy of GNU Lesser Public License with
33
			this stylesheet. If not, see http://www.gnu.org/licenses/lgpl.html
34
		</xd:detail>
35
		<xd:author>Alexei Lavrentiev alexei.lavrentev@ens-lyon.fr</xd:author>
36
		<xd:copyright>2016, CNRS / ICAR (Équipe CACTUS)</xd:copyright>
37
	</xd:doc>
38

    
39

    
40
	<xsl:template match="*" mode="#all">
41
		<xsl:copy>
42
			<xsl:apply-templates
43
				select="*|@*|processing-instruction()|comment()|text()"
44
				mode="#current" />
45
		</xsl:copy>
46
	</xsl:template>
47

    
48
	<xsl:template
49
		match="comment()|processing-instruction()|text()|@*">
50
		<xsl:copy>
51
			<xsl:apply-templates />
52
		</xsl:copy>
53
	</xsl:template>
54

    
55
	<xsl:template
56
		match="comment()|processing-instruction()|@*"
57
		mode="expan letters-all 
58
    letters-alignable characters-alignable">
59
		<xsl:copy>
60
			<xsl:apply-templates />
61
		</xsl:copy>
62
	</xsl:template>
63

    
64
	<xsl:variable name="filename">
65
		<xsl:analyze-string select="document-uri(.)"
66
			regex="^(.*)/([^/]+)\.xml$">
67
			<xsl:matching-substring>
68
				<xsl:value-of select="replace(regex-group(2),'-c$','')" />
69
			</xsl:matching-substring>
70
		</xsl:analyze-string>
71
	</xsl:variable>
72

    
73
	<xsl:template match="tei:facsimile" />
74

    
75
	<xsl:template match="tei:teiCorpus">
76
		<TEI xmlns="http://www.tei-c.org/ns/1.0">
77
			<text>
78
				<!-- on ajoute des attributs utiles pour la création de partitions et 
79
					de sous-corpus -->
80
				<xsl:apply-templates />
81
			</text>
82
		</TEI>
83
	</xsl:template>
84

    
85

    
86
	<xsl:template match="tei:TEI[ancestor::tei:teiCorpus]">
87
		<xsl:apply-templates />
88
	</xsl:template>
89

    
90
	<xsl:template match="tei:teiHeader">
91
		<!--<xsl:copy-of select="."/> -->
92
	</xsl:template>
93

    
94
	<xsl:template
95
		match="tei:text[not(ancestor::tei:teiCorpus)]">
96
		<xsl:element name="text"
97
			namespace="http://www.tei-c.org/ns/1.0">
98
			<!-- on ajoute des attributs utiles pour la création de partitions et 
99
				de sous-corpus -->
100
			<xsl:apply-templates select="@*" />
101
			<xsl:apply-templates />
102
		</xsl:element>
103
	</xsl:template>
104

    
105
	<xsl:template match="tei:text[ancestor::tei:teiCorpus]">
106
		<div type="text" id="{$filename}-{count(preceding::tei:text) + 1}"
107
			xmlns="http://www.tei-c.org/ns/1.0">
108
			<xsl:apply-templates select="@*|node()" />
109
		</div>
110
	</xsl:template>
111

    
112
	<xsl:template match="tei:milestone[@unit='surface']">
113
		<pb xmlns="http://www.tei-c.org/ns/1.0"
114
			n="{following::tei:pb[1]/@n}" facs="{@facs}" xml:id="{@xml:id}" />
115
	</xsl:template>
116

    
117
	<xsl:template match="tei:pb">
118
		<milestone unit="ms-page"
119
			xmlns="http://www.tei-c.org/ns/1.0">
120
			<xsl:apply-templates select="@*" />
121
		</milestone>
122
	</xsl:template>
123

    
124
	<xsl:template match="tei:w[not(tei:seg[@type='wp'])]">
125
		<xsl:element name="w"
126
			namespace="http://www.tei-c.org/ns/1.0">
127
			<xsl:apply-templates select="@*" />
128
			<xsl:attribute name="expan"><xsl:apply-templates
129
				mode="expan" select="descendant::tei:c" /></xsl:attribute>
130
			<xsl:attribute name="letters-all"><xsl:apply-templates
131
				mode="letters-all" select="descendant::tei:c" /></xsl:attribute>
132
			<xsl:attribute name="letters-alignable"><xsl:apply-templates
133
				mode="letters-alignable" select="descendant::tei:c" /></xsl:attribute>
134
			<xsl:attribute name="characters"><xsl:apply-templates
135
				mode="characters-alignable" select="descendant::tei:c" /></xsl:attribute>
136
			<xsl:attribute name="abbr-n">
137
      <xsl:choose>
138
        <xsl:when test="descendant::tei:abbr">
139
          <xsl:value-of
140
				select="count(descendant::tei:abbr)" />
141
        </xsl:when>
142
        <xsl:when test="descendant::tei:expan">
143
          <xsl:value-of
144
				select="count(descendant::tei:expan)" />
145
        </xsl:when>
146
        <xsl:when test="descendant::tei:ex">
147
          <xsl:value-of select="count(descendant::tei:ex)" />
148
        </xsl:when>
149
        <xsl:otherwise>0</xsl:otherwise>
150
      </xsl:choose>
151
    </xsl:attribute>
152
			<xsl:attribute name="ref"><xsl:value-of
153
				select="concat($filename,', f. ',preceding::tei:pb[1]/@n,', col. ',preceding::tei:cb[1]/@n,', l. ',preceding::tei:lb[1]/@n)" /></xsl:attribute>
154
			<xsl:apply-templates />
155
		</xsl:element>
156
	</xsl:template>
157

    
158
	<xsl:template match="tei:w[tei:seg[@type='wp']]">
159
		<xsl:element name="w-lb"
160
			namespace="http://www.tei-c.org/ns/1.0">
161
			<xsl:apply-templates select="@*" />
162
			<xsl:attribute name="expan"><xsl:apply-templates
163
				mode="expan" select="descendant::tei:c" /></xsl:attribute>
164
			<xsl:attribute name="letters-all"><xsl:apply-templates
165
				mode="letters-all" select="descendant::tei:c" /></xsl:attribute>
166
			<xsl:attribute name="letters-alignable"><xsl:apply-templates
167
				mode="letters-alignable" select="descendant::tei:c" /></xsl:attribute>
168
			<xsl:attribute name="characters"><xsl:apply-templates
169
				mode="characters-alignable" select="descendant::tei:c" /></xsl:attribute>
170
			<xsl:attribute name="abbr-n">
171
        <xsl:choose>
172
          <xsl:when test="descendant::tei:abbr">
173
            <xsl:value-of
174
				select="count(descendant::tei:abbr)" />
175
          </xsl:when>
176
          <xsl:when test="descendant::tei:expan">
177
            <xsl:value-of
178
				select="count(descendant::tei:expan)" />
179
          </xsl:when>
180
          <xsl:when test="descendant::tei:ex">
181
            <xsl:value-of
182
				select="count(descendant::tei:ex)" />
183
          </xsl:when>
184
          <xsl:otherwise>0</xsl:otherwise>
185
        </xsl:choose>
186
      </xsl:attribute>
187
			<xsl:attribute name="ref"><xsl:value-of
188
				select="concat($filename,', f. ',preceding::tei:pb[1]/@n,', col. ',preceding::tei:cb[1]/@n,', l. ',preceding::tei:lb[1]/@n)" /></xsl:attribute>
189
			<xsl:apply-templates />
190
		</xsl:element>
191
	</xsl:template>
192

    
193
	<xsl:template match="tei:seg[@type='wp']">
194
		<xsl:element name="w"
195
			namespace="http://www.tei-c.org/ns/1.0">
196
			<xsl:apply-templates select="@*" />
197
			<xsl:attribute name="expan"><xsl:apply-templates
198
				mode="expan" select="descendant::tei:c" /></xsl:attribute>
199
			<xsl:attribute name="letters-all"><xsl:apply-templates
200
				mode="letters-all" select="descendant::tei:c" /></xsl:attribute>
201
			<xsl:attribute name="letters-alignable"><xsl:apply-templates
202
				mode="letters-alignable" select="descendant::tei:c" /></xsl:attribute>
203
			<xsl:attribute name="characters"><xsl:apply-templates
204
				mode="characters-alignable" select="descendant::tei:c" /></xsl:attribute>
205
			<xsl:attribute name="abbr-n">
206
        <xsl:choose>
207
          <xsl:when test="descendant::tei:abbr">
208
            <xsl:value-of
209
				select="count(descendant::tei:abbr)" />
210
          </xsl:when>
211
          <xsl:when test="descendant::tei:expan">
212
            <xsl:value-of
213
				select="count(descendant::tei:expan)" />
214
          </xsl:when>
215
          <xsl:when test="descendant::tei:ex">
216
            <xsl:value-of
217
				select="count(descendant::tei:ex)" />
218
          </xsl:when>
219
          <xsl:otherwise>0</xsl:otherwise>
220
        </xsl:choose>
221
      </xsl:attribute>
222
			<xsl:attribute name="ref"><xsl:value-of
223
				select="concat($filename,', f. ',preceding::tei:pb[1]/@n,', col. ',preceding::tei:cb[1]/@n,', l. ',preceding::tei:lb[1]/@n)" /></xsl:attribute>
224
			<xsl:apply-templates />
225
		</xsl:element>
226
	</xsl:template>
227

    
228
	<xsl:template
229
		match="tei:pc[not(child::tei:reg or @ana='ori:align-no')]">
230
		<xsl:element name="w"
231
			namespace="http://www.tei-c.org/ns/1.0">
232
			<xsl:apply-templates select="@*" />
233
			<xsl:attribute name="type">pc</xsl:attribute>
234
			<xsl:attribute name="expan"><xsl:apply-templates
235
				select="descendant::tei:c" /></xsl:attribute>
236
			<xsl:attribute name="letters-all" />
237
			<xsl:attribute name="letters-alignable" />
238
			<xsl:attribute name="characters"><xsl:apply-templates
239
				mode="characters-alignable" select="descendant::tei:c" /></xsl:attribute>
240
			<xsl:attribute name="abbr-n">
241
        <xsl:value-of select="0" />
242
      </xsl:attribute>
243
			<xsl:attribute name="ref"><xsl:value-of
244
				select="concat($filename,', f. ',preceding::tei:pb[1]/@n,', col. ',preceding::tei:cb[1]/@n,', l. ',preceding::tei:lb[1]/@n)" /></xsl:attribute>
245
			<xsl:apply-templates />
246
		</xsl:element>
247
	</xsl:template>
248

    
249
	<xsl:template
250
		match="tei:pc[child::tei:reg or @ana='ori:align-no']">
251
		<xsl:comment>
252
			<xsl:copy-of select="." />
253
		</xsl:comment>
254
	</xsl:template>
255

    
256
	<xsl:template match="tei:choice[tei:abbr]">
257
		<xsl:apply-templates select="tei:abbr" />
258
	</xsl:template>
259

    
260
	<xsl:template match="tei:choice[tei:abbr]" mode="expan">
261
		<xsl:apply-templates select="tei:expan"
262
			mode="#current" />
263
	</xsl:template>
264

    
265
	<xsl:template match="tei:choice[tei:abbr]"
266
		mode="letters-all">
267
		<xsl:apply-templates select="tei:expan"
268
			mode="#current" />
269
	</xsl:template>
270

    
271
	<xsl:template match="tei:choice[tei:abbr]"
272
		mode="letters-alignable">
273
		<xsl:apply-templates select="tei:expan"
274
			mode="#current" />
275
	</xsl:template>
276

    
277
	<xsl:template match="tei:choice[tei:abbr]"
278
		mode="characters-alignable">
279
		<xsl:apply-templates select="tei:abbr"
280
			mode="#current" />
281
	</xsl:template>
282

    
283
	<xsl:template match="tei:choice[tei:orig]" mode="#all">
284
		<xsl:apply-templates select="tei:orig"
285
			mode="#current" />
286
	</xsl:template>
287

    
288
	<xsl:template match="tei:reg" mode="#all"></xsl:template>
289

    
290
	<xsl:template match="tei:orig" mode="#all">
291
		<xsl:apply-templates mode="#current" />
292
	</xsl:template>
293

    
294
	<xsl:template match="tei:ex" mode="expan">
295
		<xsl:text>(</xsl:text>
296
		<xsl:value-of select="." />
297
		<xsl:text>)</xsl:text>
298
	</xsl:template>
299

    
300
	<xsl:template match="tei:ex" mode="letters-all">
301
		<xsl:value-of select="." />
302
	</xsl:template>
303

    
304
	<xsl:template match="tei:ex" mode="letters-alignable" />
305

    
306
	<xsl:template match="tei:ex" mode="characters-alignable">
307
		<xsl:choose>
308
			<xsl:when test="matches(.,'^\s*(cum|com|con)\s*$','i')">
309
				&#xA76F;
310
			</xsl:when>
311
			<xsl:when test="matches(.,'^\s*et\s*$','i')">
312
				&#x204A;
313
			</xsl:when>
314
			<xsl:when test="matches(.,'^\sest\s*$','i')">
315
				&#x223B;
316
			</xsl:when>
317
			<xsl:when test="matches(.,'^\s*us\s*$','i')">
318
				&#xA770;
319
			</xsl:when>
320
			<xsl:otherwise />
321
		</xsl:choose>
322
	</xsl:template>
323

    
324
	<xsl:template match="tei:supplied"></xsl:template>
325

    
326

    
327
	<xsl:template match="tei:c">
328
		<xsl:element name="c"
329
			namespace="http://www.tei-c.org/ns/1.0">
330
			<xsl:apply-templates select="@*" />
331
			<xsl:attribute name="expan">
332
      <xsl:apply-templates select="." mode="expan" />
333
    </xsl:attribute>
334
			<xsl:attribute name="letters-all">
335
      <xsl:apply-templates select="."
336
				mode="letters-all" />
337
    </xsl:attribute>
338
			<xsl:attribute name="letters-alignable">
339
      <xsl:apply-templates select="."
340
				mode="letters-alignable"></xsl:apply-templates>
341
    </xsl:attribute>
342
			<xsl:attribute name="characters">
343
      <xsl:apply-templates
344
				mode="characters-alignable" />
345
    </xsl:attribute>
346
			<xsl:attribute name="abbr-n">
347
      <xsl:choose>
348
        <xsl:when
349
				test="ancestor::tei:abbr and not(following-sibling::tei:c)">1</xsl:when>
350
        <xsl:when
351
				test="ancestor::tei:expan and not(following-sibling::tei:c)">1</xsl:when>
352
        <!--<xsl:when test="ancestor::tei:ex and not(following-sibling::tei:c)">1</xsl:when>-->
353
        <xsl:otherwise>0</xsl:otherwise>
354
      </xsl:choose>
355
    </xsl:attribute>
356
			<xsl:attribute name="ref"><xsl:value-of
357
				select="concat($filename,', f. ',preceding::tei:pb[1]/@n,', col. ',preceding::tei:cb[1]/@n,', l. ',preceding::tei:lb[1]/@n)" /></xsl:attribute>
358
			<xsl:apply-templates />
359
		</xsl:element>
360
	</xsl:template>
361

    
362
	<xsl:template match="tei:c" mode="expan">
363
		<xsl:if
364
			test="not(@type='am') and not(ancestor::tei:abbr[parent::tei:choice/tei:expan[not(tei:ex)]])">
365
			<xsl:apply-templates mode="letters-alignable" />
366
		</xsl:if>
367
		<xsl:choose>
368
			<xsl:when
369
				test="not(following-sibling::tei:c) and ancestor::tei:abbr[parent::tei:choice/tei:expan/tei:ex]">
370
				<xsl:text>(</xsl:text>
371
				<xsl:value-of
372
					select="ancestor::tei:choice/tei:expan/tei:ex" />
373
				<xsl:text>)</xsl:text>
374
			</xsl:when>
375
			<xsl:when
376
				test="not(following-sibling::tei:c) and ancestor::tei:abbr[parent::tei:choice/tei:expan[not(tei:ex)]]">
377
				<xsl:text>(</xsl:text>
378
				<xsl:value-of select="ancestor::tei:choice/tei:expan" />
379
				<xsl:text>)</xsl:text>
380
			</xsl:when>
381
			<xsl:when
382
				test="not(following-sibling::tei:c) and following-sibling::*[1][self::tei:choice[tei:abbr[not(child::node())]]]">
383
				<xsl:text>(</xsl:text>
384
				<xsl:value-of
385
					select="following-sibling::tei:choice[1]//tei:ex" />
386
				<xsl:text>)</xsl:text>
387
			</xsl:when>
388
			<xsl:otherwise />
389
		</xsl:choose>
390
	</xsl:template>
391

    
392
	<xsl:template match="tei:c" mode="letters-all">
393
		<xsl:if
394
			test="not(@type='am') and not(ancestor::tei:abbr[parent::tei:choice/tei:expan[not(tei:ex)]])">
395
			<xsl:apply-templates mode="letters-alignable" />
396
		</xsl:if>
397
		<xsl:choose>
398
			<xsl:when
399
				test="not(following-sibling::tei:c) and ancestor::tei:abbr[parent::tei:choice/tei:expan/tei:ex]">
400
				<xsl:value-of
401
					select="ancestor::tei:choice/tei:expan/tei:ex" />
402
			</xsl:when>
403
			<xsl:when
404
				test="not(following-sibling::tei:c) and ancestor::tei:abbr[parent::tei:choice/tei:expan[not(tei:ex)]]">
405
				<xsl:value-of select="ancestor::tei:choice/tei:expan" />
406
			</xsl:when>
407
			<xsl:when
408
				test="not(following-sibling::tei:c) and following-sibling::*[1][self::tei:choice[tei:abbr[not(child::node())]]]">
409
				<xsl:value-of
410
					select="following-sibling::tei:choice[1]//tei:ex" />
411
			</xsl:when>
412
			<xsl:otherwise />
413
		</xsl:choose>
414
	</xsl:template>
415

    
416
	<xsl:template match="tei:c" mode="letters-alignable">
417
		<xsl:choose>
418
			<xsl:when
419
				test="@type='am' and not(ancestor::tei:abbr[parent::tei:choice/tei:expan[not(tei:ex)]])" />
420
			<xsl:otherwise>
421
				<xsl:apply-templates mode="letters-alignable" />
422
			</xsl:otherwise>
423
		</xsl:choose>
424
	</xsl:template>
425

    
426
	<xsl:template match="tei:c" mode="characters-alignable">
427
		<xsl:apply-templates mode="characters-alignable" />
428
	</xsl:template>
429

    
430
	<xsl:template match="tei:g[@type='am']"
431
		mode="letters-alignable letters-all"></xsl:template>
432

    
433
	<xsl:template
434
		match="tei:g[@type='am' and matches(.,'\p{M}')]"
435
		mode="characters-alignable"></xsl:template>
436

    
437

    
438
	<!-- <xsl:template match="tei:w//text()" mode="letters-alignable characters-alignable"> 
439
		<xsl:choose> <xsl:when test="ancestor::tei:c"> <xsl:analyze-string select="." 
440
		regex="\p{{M}}"> <xsl:matching-substring/> <xsl:non-matching-substring><xsl:value-of 
441
		select="."/></xsl:non-matching-substring> </xsl:analyze-string> </xsl:when> 
442
		<xsl:otherwise/> </xsl:choose> </xsl:template> -->
443

    
444
	<xsl:template match="tei:w//text()"
445
		mode="expan letters-all">
446
		<xsl:choose>
447
			<xsl:when test="ancestor::tei:c">
448
				<xsl:value-of select="."></xsl:value-of>
449
			</xsl:when>
450
			<xsl:otherwise />
451
		</xsl:choose>
452
	</xsl:template>
453

    
454

    
455
	<xsl:template match="tei:w//text()"
456
		mode="characters-alignable">
457
		<xsl:choose>
458
			<xsl:when test="ancestor::tei:c">
459
				<xsl:analyze-string select="." regex="\p{{M}}|\s">
460
					<xsl:matching-substring />
461
					<xsl:non-matching-substring>
462
						<xsl:value-of select="." />
463
					</xsl:non-matching-substring>
464
				</xsl:analyze-string>
465
			</xsl:when>
466
			<xsl:otherwise />
467
		</xsl:choose>
468
	</xsl:template>
469

    
470
	<xsl:template match="tei:w//text()"
471
		mode="letters-alignable">
472
		<xsl:choose>
473
			<xsl:when test="ancestor::tei:c">
474
				<xsl:analyze-string select="." regex=".">
475
					<xsl:matching-substring>
476
						<xsl:choose>
477
							<xsl:when test="matches(.,'\p{M}|\s')"></xsl:when>
478
							<xsl:when
479
								test="matches(.,$alignable-abbreviation-marks)" />
480
							<xsl:when test="matches(.,$modified-letters)">
481
								<xsl:call-template name="modified-letters" />
482
							</xsl:when>
483
							<xsl:otherwise>
484
								<xsl:value-of select="." />
485
							</xsl:otherwise>
486
						</xsl:choose>
487
					</xsl:matching-substring>
488
				</xsl:analyze-string>
489
			</xsl:when>
490
			<xsl:otherwise />
491
		</xsl:choose>
492
	</xsl:template>
493

    
494
	<xsl:variable name="modified-letters">
495
		^(&#x0141;|&#x0142;|[&#xA748;-&#xA759;])$
496
	</xsl:variable>
497
	<xsl:variable name="alignable-abbreviation-marks">^(&amp;|&#x204A;|&#x2079;|&#x223B;|&#xA76F;|&#xA770;|&#xF158;|&#xF1A6;|&#xF1AC;)$
498
	</xsl:variable>
499

    
500
	<xsl:template name="modified-letters">
501
		<xsl:choose>
502
			<xsl:when test="matches(.,'&#x0141;|&#xA748;')">
503
				L
504
			</xsl:when>
505
			<xsl:when test="matches(.,'&#x0142;|&#xA749;')">
506
				l
507
			</xsl:when>
508
			<xsl:when test="matches(.,'&#xA750;|&#xA752;|&#xA754;')">
509
				P
510
			</xsl:when>
511
			<xsl:when test="matches(.,'&#xA751;|&#xA753;|&#xA755;')">
512
				p
513
			</xsl:when>
514
			<xsl:when test="matches(.,'&#xA756;|&#xA758;')">
515
				Q
516
			</xsl:when>
517
			<xsl:when test="matches(.,'&#xA757;|&#xA759;')">
518
				q
519
			</xsl:when>
520
			<xsl:otherwise>
521
				<xsl:value-of select="." />
522
			</xsl:otherwise>
523
		</xsl:choose>
524
	</xsl:template>
525

    
526
</xsl:stylesheet>