Schematron2Dickinson.sch

<?xml version="1.0" encoding="UTF-8"?>
<schema xmlns:sch="http://purl.oclc.org/dsdl/schematron" queryBinding="xslt2"
    xmlns:sqf="http://www.schematron-quickfix.com/validator/process"
    xmlns="http://purl.oclc.org/dsdl/schematron">
    <ns uri="http://www.tei-c.org/ns/1.0" prefix="tei"/>
    
    <!-- 2016-02-19: nll: This rule is not necessary.
        <pattern>
        <rule context="tei:rdg">
            <assert test="./parent::tei:app/parent::tei:l/parent::tei:lg">
                The rdg tag must be contained within an app element, a l element, and a lg element!
            </assert>
        </rule>
    </pattern>-->
    
    <pattern>
        <rule context="tei:rdg">
            <report test="not(@wit)">
                The rdg element must have an @wit!
            </report>
        </rule>
    </pattern>
    
    <pattern>
        <rule context="tei:app">
            <assert test="count(tei:rdg) gt 1">
                There must be more than one rdg element in an app element.
            </assert>
        </rule>
    </pattern>
    
    <!-- 2016-02-19: nll: This rule is the same as the following rule without the variable.
        <pattern>
        <rule context="tei:head/tei:title[ancestor::tei:div[@type='poem']/following-sibling::tei:div]">
            <assert test="ancestor::tei:div[@type='poem']/following-sibling::tei:div//tei:title[matches(., string(number(substring(current(), 6, 2)) + 1))]">
                All poems should be in the correct counting order.
            </assert>
        </rule>
    </pattern>-->
    
    <!-- 2016-03-25: nll: We don't need this rule because all of the poems are separate.
        <pattern>
        <rule context="tei:head/tei:title[ancestor::tei:div[@type='poem']/following-sibling::tei:div]">
            <let name="number" value="string(number(substring(current(), 6, 2)) + 1)"/>
            <assert test="ancestor::tei:div[@type='poem']/following-sibling::tei:div//tei:title[matches(., $number)]">
                All poems should be in the correct counting order.
            </assert>
        </rule>
    </pattern>-->
    
    <let name="witList" value="doc('Dickinson6_listWit.xml')//@xml:id"/>
    <pattern>
        <rule context="@wit">
            <let name="tokens" value="for $i in tokenize(., '\s+') return substring-after($i, '#')"/>
            <assert test="every $token in $tokens satisfies $token = $witList or contains(., 'var')">
                <!--2016-04-08 ebb: I have just added an "or" to this assert test, so that you have an alternative that approves the presence of tokens beginnning with var. 
                    You could probably fine-tune this to try to ensure that the substring after var contains digits, and perhaps in a certain order if you think you need that.-->
                The attribute, after the hashtag (#) must match a defined @xml:id in the witList file!
            </assert>
        </rule>
    </pattern>
    
    <pattern>
        <rule context="tei:app">
            <let name="wit" value="tokenize(replace(string-join(.//@wit, ' '), '#df6', ''), '\s+')"/>
            <assert test="count($wit) eq count(distinct-values($wit))">
                There should not be any repeating witnesses in a single app element other than the possibility of #df6.
            </assert>
        </rule>
    </pattern>
    

    
</schema>