hyper/02_glyph_prop_to_g.xsl at master · ditah-at/hyper · GitHub

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
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:xs="http://www.w3.org/2001/XMLSchema"
    xmlns:t="http://www.tei-c.org/ns/1.0" xmlns:functx="http://www.functx.com" xmlns="http://www.tei-c.org/ns/1.0"
    exclude-result-prefixes="t xs xsl functx" version="2.0">
    <!-- xmlns="http://www.tei-c.org/ns/1.0"-->

    <xsl:variable name="charDecl" select="document('characterDecl.xml')/t:TEI/t:teiHeader/t:encodingDesc/t:charDecl"/>

    <xsl:function name="functx:escape-for-regex" as="xs:string"
        xmlns:functx="http://www.functx.com">
        <xsl:param name="arg" as="xs:string?"/>

        <xsl:sequence select="
            replace($arg,'(\.|\[|\]|\\|\||\-|\^|\$|\?|\*|\+|\{|\}|\(|\))','\\$1')"/>

    </xsl:function>

    <xsl:template match="* | @* | text()">

        <!-- Alles kopieren -->
        <xsl:copy>
            <xsl:apply-templates select="* | @* | text()"/>
        </xsl:copy>

    </xsl:template>


    <!-- Variable wird mit string-join() und dem 'oder' für die regex-Syntax vorbereitet  -->
    <!-- Glyphe außerhalb von abbr schreiben -->

    <xsl:template match="t:TEI/t:text//text()">
                <xsl:variable name="search-string" select="$charDecl//t:glyph/t:mapping[@type = 'transcription']"/>
                <xsl:variable name="glyph_id" select="$search-string/parent::t:glyph/@xml:id"/>
                <xsl:variable name="replace-regex" as="xs:string" select="string-join($search-string, '|')"/>


                <xsl:analyze-string select="." regex="{$replace-regex}">
                    <xsl:matching-substring>
                        <xsl:variable name="transcription" as="xs:string" select="functx:escape-for-regex(.)"/>
                        <xsl:variable name="glyph_id" as="xs:string"
                            select="$search-string[. = $transcription]/parent::t:glyph/@xml:id"/>
                        <xsl:variable name="normalized" as="xs:string"
                            select="$search-string[. = $transcription]/preceding-sibling::t:mapping[@type = 'normalized']"/>
                        <g ref="#{$glyph_id}">
                            <xsl:value-of select="$normalized"/>
                        </g>
                    </xsl:matching-substring>
                    <xsl:non-matching-substring>
                        <xsl:value-of select="."/>
                    </xsl:non-matching-substring>
                </xsl:analyze-string>


    </xsl:template>


</xsl:stylesheet>