source: ISOcat/trunk/mod-ISOcat-access-data/dbx/tree-include.xml @ 2029

<?xml version="1.0" encoding="UTF-8"?>
<dbx:transparent
    xmlns:dbx="http://www.windhouwer.nl/sloot/dbx"
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
>
    
    <!-- instantiate the conceptual domain hierarchy between simple and complex DCs -->
    <dbx:stylesheet template="identity" when="$tree='true' or $tree='complex'">
        
        <xsl:key name="dc" match="dc" use="id"/>
        <xsl:key name="val" match="dc" use="value"/>
        
        <xsl:template match="dc" mode="copy">
            <xsl:copy>
                <xsl:apply-templates select="@*"/>
                <xsl:apply-templates select="node()"/>
            </xsl:copy>
        </xsl:template>
        
        <xsl:template match="value">
            <xsl:choose>
                <xsl:when test="exists(key('dc',current()))">
                    <xsl:apply-templates select="key('dc',current())" mode="copy"/>
                </xsl:when>
                <xsl:otherwise>
                    <xsl:comment>value simple DC[<xsl:value-of select="."/>] doesn't exist in this profile</xsl:comment>
                </xsl:otherwise>
            </xsl:choose>
        </xsl:template>
        
        <xsl:template match="/dcs/dc[exists(key('val',current()/id))]">
            <xsl:comment>simple DC[<xsl:value-of select="id"/>] exists as a value</xsl:comment>
        </xsl:template>
        
        <xsl:template match="dc">
            <xsl:apply-templates mode="copy" select="."/>
        </xsl:template>
 
    </dbx:stylesheet>
    
    <!-- instantiate the is-a hierarchy between simple DCs -->
    <dbx:stylesheet template="identity" when="$tree='true' or $tree='simple'">
        
        <xsl:template match="dc" mode="copy">
            <xsl:copy>
                <xsl:apply-templates select="@*"/>
                <xsl:apply-templates select="node()"/>
                <!-- copy sibling (in the same profile/DCS or value domain) sub DCs -->
                <xsl:apply-templates mode="copy" select="../dc[super=current()/id]"/>
            </xsl:copy>
        </xsl:template>
        
        <xsl:template match="super">
            <xsl:if test="empty(../dc[super=current()/id])">
                <xsl:comment>super simple DC[<xsl:value-of select="."/>] doesn't exist in this profile/DCS or value domain</xsl:comment>
            </xsl:if>
        </xsl:template>
        
        <xsl:template match="dc[exists(super) and exists(../dc[id=current()/super])]"/>
        
        <xsl:template match="dc">
            <xsl:apply-templates mode="copy" select="."/>
        </xsl:template>
        
    </dbx:stylesheet>
    
</dbx:transparent>