Collation

Foliotation/Pagination

1°) Saisir ci-dessous (entre les balises "xml") :

<?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" exclude-result-prefixes="xs" version="2.0">  <xsl:output method="text" encoding="UTF-8" version="1.0" xmlns="http://www.tei-c.org/ns/1.0"/> <xsl:template match="/"> <xsl:variable name="pass1"> <xsl:apply-templates/> </xsl:variable> <xsl:variable name="pass2"> <xsl:for-each select="$pass1"> <xsl:apply-templates mode="pass2"/> </xsl:for-each> </xsl:variable> <xsl:variable name="pass3"> <xsl:for-each select="$pass2"> <xsl:apply-templates mode="pass3"/> </xsl:for-each> </xsl:variable> <xsl:variable name="pass4"> <xsl:for-each select="$pass3"> <xsl:apply-templates mode="pass4"/> </xsl:for-each> </xsl:variable> <xsl:for-each select="$pass4"> <xsl:apply-templates mode="pass5"/> </xsl:for-each> </xsl:template>  <xsl:template match="*"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="* | comment() | text()"/> </xsl:copy> </xsl:template> <xsl:template match="@*|processing-instruction()|comment()"> <xsl:copy/> </xsl:template>  <xsl:template match="*" mode="pass2"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass2"/> </xsl:copy> </xsl:template>  <xsl:template match="*" mode="pass3"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass3"/> </xsl:copy> </xsl:template>  <xsl:template match="*" mode="pass4"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass4"/> </xsl:copy> </xsl:template>  <xsl:template match="*" mode="pass5"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass5"/> </xsl:copy> </xsl:template>    <xsl:template match="xml"> <xml><xsl:analyze-string select="." regex="((, )?(((\d+)-(\d+))( $=(\d+)-(\d+)$)|((\d+)-(\d+))|\[(\d+)\]|\[(\d+) bl.\]|\[(\d+)-(\d+)\]|(\d+)( $=(\d+)$)|(\d+))+)"> <xsl:matching-substring> <xsl:analyze-string select="regex-group(3)" regex="((\d+)-(\d+))( $=(\d+)-(\d+)$)"> <xsl:matching-substring> <xsl:if test="matches(.,'((\d+)-(\d+))( $=(\d+)-(\d+)$)')"> <seq> <sic><debut><xsl:value-of select="regex-group(2)"/></debut><fin><xsl:value-of select="regex-group(3)"/></fin></sic> <corr><debut><xsl:value-of select="regex-group(5)"/></debut><fin><xsl:value-of select="regex-group(6)"/></fin></corr> </seq> </xsl:if> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="((\d+)-(\d+))"> <xsl:matching-substring> <seq> <num><debut><xsl:value-of select="regex-group(2)"/></debut><fin><xsl:value-of select="regex-group(3)"/></fin></num> </seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="\[(\d+)\]"> <xsl:matching-substring> <seq><nonum><xsl:value-of select="regex-group(1)"/></nonum></seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="\[(\d+) bl.\]"> <xsl:matching-substring> <seq><blanc><xsl:value-of select="regex-group(1)"/></blanc></seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="\[(\d+)-(\d+)\]"> <xsl:matching-substring> <seq><nonumplage><debut><xsl:value-of select="regex-group(1)"/></debut> <fin><xsl:value-of select="regex-group(2)"/></fin></nonumplage></seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="(\d+)( $=(\d+)$)"> <xsl:matching-substring> <seq> <sic><debut><xsl:value-of select="regex-group(1)"/></debut><fin><xsl:value-of select="regex-group(1)"/></fin></sic> <corr><debut><xsl:value-of select="regex-group(3)"/></debut><fin><xsl:value-of select="regex-group(3)"/></fin></corr> </seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="(\d+)"> <xsl:matching-substring> <seq> <num><debut><xsl:value-of select="regex-group(1)"/></debut><fin><xsl:value-of select="regex-group(1)"/></fin></num> </seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:value-of select="."/> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:value-of select="."/> </xsl:non-matching-substring> </xsl:analyze-string></xml> </xsl:template>  <xsl:template name="bouclefor"> <xsl:param name="min"> </xsl:param> <xsl:param name="max"> </xsl:param>  <corr><xsl:text> [=f.</xsl:text><xsl:value-of select="$min"></xsl:value-of><xsl:text>]</xsl:text></corr> <corr><xsl:text> [=f.</xsl:text><xsl:value-of select="$min"></xsl:value-of><xsl:text>v]</xsl:text></corr> <xsl:if test="number($min) < number($max - 1)"> <xsl:call-template name="bouclefor"> <xsl:with-param name="min"> <xsl:value-of select="$min + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="max"> <xsl:value-of select="$max"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="boucleforsic"> <xsl:param name="minsic"> </xsl:param> <xsl:param name="maxsic"> </xsl:param> <sic><xsl:text>f. </xsl:text><xsl:value-of select="$minsic"/></sic> <sic><xsl:text>f. </xsl:text><xsl:value-of select="$minsic"/><xsl:text>v</xsl:text></sic> <xsl:if test="number($minsic) < number($maxsic - 1)"> <xsl:call-template name="boucleforsic"> <xsl:with-param name="minsic"> <xsl:value-of select="$minsic + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxsic"> <xsl:value-of select="$maxsic"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="bouclefornonum"> <xsl:param name="minnonum"> </xsl:param> <xsl:param name="maxnonum"> </xsl:param>  <xsl:text>[f. </xsl:text><xsl:value-of select="$minnonum"/><xsl:text>] </xsl:text> <xsl:text>[f. </xsl:text><xsl:value-of select="$minnonum"/><xsl:text>v] </xsl:text> <xsl:if test="number($minnonum) < number($maxnonum - 1)"> <xsl:call-template name="bouclefornonum"> <xsl:with-param name="minnonum"> <xsl:value-of select="$minnonum + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxnonum"> <xsl:value-of select="$maxnonum"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="bouclefornonumplage"> <xsl:param name="minnonumplage"> </xsl:param> <xsl:param name="maxnonumplage"> </xsl:param>  <xsl:text>[f. </xsl:text><xsl:value-of select="$minnonumplage"/><xsl:text>] </xsl:text> <xsl:text>[f. </xsl:text><xsl:value-of select="$minnonumplage"/><xsl:text>v] </xsl:text> <xsl:if test="number($minnonumplage) < number($maxnonumplage - 1)"> <xsl:call-template name="bouclefornonumplage"> <xsl:with-param name="minnonumplage"> <xsl:value-of select="$minnonumplage + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxnonumplage"> <xsl:value-of select="$maxnonumplage"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="bouclefornum"> <xsl:param name="minnum"> </xsl:param> <xsl:param name="maxnum"> </xsl:param>  <xsl:text>f. </xsl:text><xsl:value-of select="$minnum"/><xsl:text> </xsl:text> <xsl:text>f. </xsl:text><xsl:value-of select="$minnum"/><xsl:text>v </xsl:text> <xsl:if test="number($minnum) < number($maxnum - 1)"> <xsl:call-template name="bouclefornum"> <xsl:with-param name="minnum"> <xsl:value-of select="$minnum + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxnum"> <xsl:value-of select="$maxnum"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="boucleforblanc"> <xsl:param name="minblanc"> </xsl:param> <xsl:param name="maxblanc"> </xsl:param>  <xsl:text>[Blanc] </xsl:text> <xsl:text>[Blanc] </xsl:text> <xsl:if test="number($minblanc) < number($maxblanc - 1)"> <xsl:call-template name="boucleforblanc"> <xsl:with-param name="minblanc"> <xsl:value-of select="$minblanc + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxblanc"> <xsl:value-of select="$maxblanc"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template>  <xsl:template match="seq/corr" mode="pass2">  <xsl:call-template name="bouclefor"> <xsl:with-param name="min"> <xsl:value-of select="child::debut"/> </xsl:with-param> <xsl:with-param name="max"><xsl:value-of select="child::fin +1"/> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq/sic" mode="pass2">  <xsl:call-template name="boucleforsic"> <xsl:with-param name="minsic"><xsl:value-of select="child::debut"/> </xsl:with-param> <xsl:with-param name="maxsic"><xsl:value-of select="child::fin +1"/> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq[child::nonum]" mode="pass2">  <xsl:call-template name="bouclefornonum"> <xsl:with-param name="minnonum">1</xsl:with-param> <xsl:with-param name="maxnonum"> <xsl:if test="child::nonum"><xsl:value-of select="child::nonum +1"/></xsl:if> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq[child::nonumplage]" mode="pass2">  <xsl:call-template name="bouclefornonumplage"> <xsl:with-param name="minnonumplage"> <xsl:choose> <xsl:when test="child::nonumplage/debut"><xsl:value-of select="child::nonumplage/debut"/></xsl:when> </xsl:choose></xsl:with-param> <xsl:with-param name="maxnonumplage"> <xsl:choose> <xsl:when test="child::nonumplage/fin"><xsl:value-of select="child::nonumplage/fin +1"/></xsl:when> </xsl:choose> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq[child::blanc]" mode="pass2">  <xsl:call-template name="boucleforblanc"> <xsl:with-param name="minblanc">1</xsl:with-param> <xsl:with-param name="maxblanc"> <xsl:if test="child::blanc"><xsl:value-of select="child::blanc +1"/></xsl:if> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq[child::num]" mode="pass2">  <xsl:call-template name="bouclefornum"> <xsl:with-param name="minnum"> <xsl:choose> <xsl:when test="child::num/debut"><xsl:value-of select="child::num/debut"/></xsl:when> </xsl:choose> </xsl:with-param> <xsl:with-param name="maxnum"> <xsl:choose> <xsl:when test="child::num/fin"><xsl:value-of select="child::num/fin +1"/></xsl:when> </xsl:choose> </xsl:with-param> </xsl:call-template> </xsl:template>  <xsl:template match="seq" mode="pass3"> <seq><xsl:for-each select="child::sic"> <sic><xsl:attribute name="n" select="position()"/><xsl:value-of select="."></xsl:value-of></sic> </xsl:for-each> <xsl:for-each select="child::corr"> <corr><xsl:attribute name="n" select="position()"/><xsl:value-of select="."></xsl:value-of></corr> </xsl:for-each></seq> </xsl:template> <xsl:template match="sic" mode="pass4"> <xsl:for-each select="."> <xsl:value-of select="."/><xsl:value-of select="following::corr[@n= current()/@n][1]"/></xsl:for-each><xsl:text> </xsl:text> </xsl:template> <xsl:template match="corr" mode="pass4"/> <xsl:template match="seq" mode="pass5"><xsl:apply-templates/></xsl:template> </xsl:stylesheet>

<?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" exclude-result-prefixes="xs" version="2.0">  <xsl:output method="text" encoding="UTF-8" version="1.0" xmlns="http://www.tei-c.org/ns/1.0"/> <xsl:template match="/"> <xsl:variable name="pass1"> <xsl:apply-templates/> </xsl:variable> <xsl:variable name="pass2"> <xsl:for-each select="$pass1"> <xsl:apply-templates mode="pass2"/> </xsl:for-each> </xsl:variable> <xsl:variable name="pass3"> <xsl:for-each select="$pass2"> <xsl:apply-templates mode="pass3"/> </xsl:for-each> </xsl:variable> <xsl:variable name="pass4"> <xsl:for-each select="$pass3"> <xsl:apply-templates mode="pass4"/> </xsl:for-each> </xsl:variable> <xsl:for-each select="$pass4"> <xsl:apply-templates mode="pass5"/> </xsl:for-each> </xsl:template>  <xsl:template match="*"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="* | comment() | text()"/> </xsl:copy> </xsl:template> <xsl:template match="@*|processing-instruction()|comment()"> <xsl:copy/> </xsl:template>  <xsl:template match="*" mode="pass2"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass2"/> </xsl:copy> </xsl:template>  <xsl:template match="*" mode="pass3"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass3"/> </xsl:copy> </xsl:template>  <xsl:template match="*" mode="pass4"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass4"/> </xsl:copy> </xsl:template>  <xsl:template match="*" mode="pass5"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass5"/> </xsl:copy> </xsl:template>    <xsl:template match="xml"> <xml><xsl:analyze-string select="." regex="((, )?(((\d+)-(\d+))( $=(\d+)-(\d+)$)|((\d+)-(\d+))|\[(\d+)\]|\[(\d+) bl.\]|\[(\d+)-(\d+)\]|(\d+)( $=(\d+)$)|(\d+))+)"> <xsl:matching-substring> <xsl:analyze-string select="regex-group(3)" regex="((\d+)-(\d+))( $=(\d+)-(\d+)$)"> <xsl:matching-substring> <xsl:if test="matches(.,'((\d+)-(\d+))( $=(\d+)-(\d+)$)')"> <seq> <sic><debut><xsl:value-of select="regex-group(2)"/></debut><fin><xsl:value-of select="regex-group(3)"/></fin></sic> <corr><debut><xsl:value-of select="regex-group(5)"/></debut><fin><xsl:value-of select="regex-group(6)"/></fin></corr> </seq> </xsl:if> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="((\d+)-(\d+))"> <xsl:matching-substring> <seq> <num><debut><xsl:value-of select="regex-group(2)"/></debut><fin><xsl:value-of select="regex-group(3)"/></fin></num> </seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="\[(\d+)\]"> <xsl:matching-substring> <seq><nonum><xsl:value-of select="regex-group(1)"/></nonum></seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="\[(\d+) bl.\]"> <xsl:matching-substring> <seq><blanc><xsl:value-of select="regex-group(1)"/></blanc></seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="\[(\d+)-(\d+)\]"> <xsl:matching-substring> <seq><nonumplage><debut><xsl:value-of select="regex-group(1)"/></debut> <fin><xsl:value-of select="regex-group(2)"/></fin></nonumplage></seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="(\d+)( $=(\d+)$)"> <xsl:matching-substring> <seq> <sic><debut><xsl:value-of select="regex-group(1)"/></debut><fin><xsl:value-of select="regex-group(1)"/></fin></sic> <corr><debut><xsl:value-of select="regex-group(3)"/></debut><fin><xsl:value-of select="regex-group(3)"/></fin></corr> </seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:analyze-string select="." regex="(\d+)"> <xsl:matching-substring> <seq> <num><debut><xsl:value-of select="regex-group(1)"/></debut><fin><xsl:value-of select="regex-group(1)"/></fin></num> </seq> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:value-of select="."/> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:value-of select="."/> </xsl:non-matching-substring> </xsl:analyze-string></xml> </xsl:template>  <xsl:template name="bouclefor"> <xsl:param name="min"> </xsl:param> <xsl:param name="max"> </xsl:param>  <corr><xsl:text> [=p.</xsl:text><xsl:value-of select="$min"></xsl:value-of><xsl:text>]</xsl:text></corr> <xsl:if test="number($min) < number($max - 1)"> <xsl:call-template name="bouclefor"> <xsl:with-param name="min"> <xsl:value-of select="$min + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="max"> <xsl:value-of select="$max"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="boucleforsic"> <xsl:param name="minsic"> </xsl:param> <xsl:param name="maxsic"> </xsl:param> <sic><xsl:text>p. </xsl:text><xsl:value-of select="$minsic"/></sic> <xsl:if test="number($minsic) < number($maxsic - 1)"> <xsl:call-template name="boucleforsic"> <xsl:with-param name="minsic"> <xsl:value-of select="$minsic + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxsic"> <xsl:value-of select="$maxsic"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="bouclefornonum"> <xsl:param name="minnonum"> </xsl:param> <xsl:param name="maxnonum"> </xsl:param>  <xsl:text>[p. </xsl:text><xsl:value-of select="$minnonum"/><xsl:text>] </xsl:text> <xsl:if test="number($minnonum) < number($maxnonum - 1)"> <xsl:call-template name="bouclefornonum"> <xsl:with-param name="minnonum"> <xsl:value-of select="$minnonum + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxnonum"> <xsl:value-of select="$maxnonum"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="bouclefornonumplage"> <xsl:param name="minnonumplage"> </xsl:param> <xsl:param name="maxnonumplage"> </xsl:param>  <xsl:text>[p. </xsl:text><xsl:value-of select="$minnonumplage"/><xsl:text>] </xsl:text> <xsl:if test="number($minnonumplage) < number($maxnonumplage - 1)"> <xsl:call-template name="bouclefornonumplage"> <xsl:with-param name="minnonumplage"> <xsl:value-of select="$minnonumplage + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxnonumplage"> <xsl:value-of select="$maxnonumplage"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="bouclefornum"> <xsl:param name="minnum"> </xsl:param> <xsl:param name="maxnum"> </xsl:param> <xsl:text>p. </xsl:text><xsl:value-of select="$minnum"/><xsl:text> </xsl:text> <xsl:if test="number($minnum) < number($maxnum - 1)"> <xsl:call-template name="bouclefornum"> <xsl:with-param name="minnum"> <xsl:value-of select="$minnum + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxnum"> <xsl:value-of select="$maxnum"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="boucleforblanc"> <xsl:param name="minblanc"> </xsl:param> <xsl:param name="maxblanc"> </xsl:param> <xsl:text>[Blanc] </xsl:text> <xsl:if test="number($minblanc) < number($maxblanc - 1)"> <xsl:call-template name="boucleforblanc"> <xsl:with-param name="minblanc"> <xsl:value-of select="$minblanc + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="maxblanc"> <xsl:value-of select="$maxblanc"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template>  <xsl:template match="seq/corr" mode="pass2">  <xsl:call-template name="bouclefor"> <xsl:with-param name="min"> <xsl:value-of select="child::debut"/> </xsl:with-param> <xsl:with-param name="max"><xsl:value-of select="child::fin +1"/> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq/sic" mode="pass2">  <xsl:call-template name="boucleforsic"> <xsl:with-param name="minsic"><xsl:value-of select="child::debut"/> </xsl:with-param> <xsl:with-param name="maxsic"><xsl:value-of select="child::fin +1"/> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq[child::nonum]" mode="pass2">  <xsl:call-template name="bouclefornonum"> <xsl:with-param name="minnonum">1</xsl:with-param> <xsl:with-param name="maxnonum"> <xsl:if test="child::nonum"><xsl:value-of select="child::nonum +1"/></xsl:if> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq[child::nonumplage]" mode="pass2">  <xsl:call-template name="bouclefornonumplage"> <xsl:with-param name="minnonumplage"> <xsl:choose> <xsl:when test="child::nonumplage/debut"><xsl:value-of select="child::nonumplage/debut"/></xsl:when> </xsl:choose></xsl:with-param> <xsl:with-param name="maxnonumplage"> <xsl:choose> <xsl:when test="child::nonumplage/fin"><xsl:value-of select="child::nonumplage/fin +1"/></xsl:when> </xsl:choose> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq[child::blanc]" mode="pass2">  <xsl:call-template name="boucleforblanc"> <xsl:with-param name="minblanc">1</xsl:with-param> <xsl:with-param name="maxblanc"> <xsl:if test="child::blanc"><xsl:value-of select="child::blanc +1"/></xsl:if> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="seq[child::num]" mode="pass2">  <xsl:call-template name="bouclefornum"> <xsl:with-param name="minnum"> <xsl:choose> <xsl:when test="child::num/debut"><xsl:value-of select="child::num/debut"/></xsl:when> </xsl:choose> </xsl:with-param> <xsl:with-param name="maxnum"> <xsl:choose> <xsl:when test="child::num/fin"><xsl:value-of select="child::num/fin +1"/></xsl:when> </xsl:choose> </xsl:with-param> </xsl:call-template> </xsl:template>  <xsl:template match="seq" mode="pass3"> <seq><xsl:for-each select="child::sic"> <sic><xsl:attribute name="n" select="position()"/><xsl:value-of select="."></xsl:value-of></sic> </xsl:for-each> <xsl:for-each select="child::corr"> <corr><xsl:attribute name="n" select="position()"/><xsl:value-of select="."></xsl:value-of></corr> </xsl:for-each></seq> </xsl:template> <xsl:template match="sic" mode="pass4"> <xsl:for-each select="."> <xsl:value-of select="."/><xsl:value-of select="following::corr[@n= current()/@n][1]"/></xsl:for-each><xsl:text> </xsl:text> </xsl:template> <xsl:template match="corr" mode="pass4"/> <xsl:template match="seq" mode="pass5"><xsl:apply-templates/></xsl:template> </xsl:stylesheet>

Relevé des signatures

1°) Saisir ci-dessous (entre les balises "xml") :

<?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" exclude-result-prefixes="xs" version="2.0">  <xsl:output method="text" encoding="UTF-8" version="1.0" xmlns="http://www.tei-c.org/ns/1.0"/> <xsl:template match="/"> <xsl:variable name="pass1"> <xsl:apply-templates/> </xsl:variable> <xsl:variable name="pass2"> <xsl:for-each select="$pass1"> <xsl:apply-templates mode="pass2"/> </xsl:for-each> </xsl:variable> <xsl:variable name="pass3"> <xsl:for-each select="$pass2"> <xsl:apply-templates mode="pass3"/> </xsl:for-each> </xsl:variable> <xsl:for-each select="$pass3"> <xsl:apply-templates mode="pass4"/> </xsl:for-each> </xsl:template>  <xsl:template match="*"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="* | comment() | text()"/> </xsl:copy> </xsl:template> <xsl:template match="@*|processing-instruction()|comment()"> <xsl:copy/> </xsl:template>  <xsl:template match="*" mode="pass2"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass2"/> </xsl:copy> </xsl:template>  <xsl:template match="*" mode="pass3"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass3"/> </xsl:copy> </xsl:template>  <xsl:template match="*" mode="pass4"> <xsl:copy> <xsl:apply-templates select="@*"/> <xsl:apply-templates select="*|processing-instruction()|comment()|text()" mode="pass4"/> </xsl:copy> </xsl:template>   <xsl:template match="xml"> <xml><xsl:analyze-string select="." regex="(\s?(([a-z]|[A-Z]|ã|ẽ|ĩ|õ|α|β)+-([a-z]|[A-Z]|ã|ẽ|ĩ|õ|α|β)+(\d)|\s?([a-z]|[A-Z]|ã|ẽ|ĩ|õ|α|β)+(\d))+)"> <xsl:matching-substring> <sig>  <xsl:analyze-string select="regex-group(1)" regex="\s?(([a-z]|[A-Z]|ã|ẽ|ĩ|õ|α|β)+)-(([a-z]|[A-Z]|ã|ẽ|ĩ|õ|α|β)+)(\d+)"> <xsl:matching-substring> <xsl:if test="matches(.,'\s?(([a-z]|[A-Z]|ã|ẽ|ĩ|õ|α|β)+)-(([a-z]|[A-Z]|ã|ẽ|ĩ|õ|α|β)+)(\d)')"> <cahier> <lettre><xsl:value-of select="regex-group(1)"/></lettre><xsl:text>-</xsl:text> <lettre><xsl:value-of select="regex-group(3)"/></lettre> <nb><xsl:value-of select="regex-group(5)"/></nb> </cahier> </xsl:if> </xsl:matching-substring> <xsl:non-matching-substring>  <xsl:analyze-string select="." regex="(([a-z]|[A-Z]|ã|ẽ|ĩ|õ|α|β)+)(\d+)"> <xsl:matching-substring> <cahier> <lettre><xsl:value-of select="regex-group(1)"/></lettre> <nb><xsl:value-of select="regex-group(3)"/></nb> </cahier> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:value-of select="."/> </xsl:non-matching-substring> </xsl:analyze-string> </xsl:non-matching-substring> </xsl:analyze-string> </sig> </xsl:matching-substring> <xsl:non-matching-substring> <xsl:value-of select="."/> </xsl:non-matching-substring> </xsl:analyze-string></xml> </xsl:template>  <xsl:template match="xml" mode="pass2"> <xml><xsl:apply-templates/></xml> </xsl:template>  <xsl:template match="folio|corr|sig/text()" mode="pass2"/>  <xsl:template match="cahier" mode="pass2"> <xsl:call-template name="boucle"> <xsl:with-param name="debut"><xsl:value-of select="descendant::lettre[1]"/></xsl:with-param> <xsl:with-param name="fin"><xsl:value-of select="descendant::lettre[last()]"/></xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template name="boucle" match="cahier"> <xsl:param name="debut"><xsl:value-of select="descendant::lettre[1]"/></xsl:param> <xsl:param name="fin"><xsl:value-of select="descendant::lettre[last()]"/></xsl:param>  <xsl:param name="lettres">abcdefghiklmnopqrstvxyz</xsl:param> <xsl:param name="lettres2">ABCDEFGHIKLMNOPQRSTVXYZ</xsl:param>  <xsl:variable name="majuscules">ABCDEFGHIJKLMNOPQRSTUVWXYZÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞΑΒ</xsl:variable> <xsl:variable name="minuscules">abcdefghijklmnopqrstuvwxyzàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþαβ</xsl:variable>    <cahier><lettre><xsl:value-of select="$debut"/></lettre><nb><xsl:value-of select="descendant::nb[last()]"/></nb><xsl:text> </xsl:text></cahier>  <xsl:choose> <xsl:when test="matches($debut,'^[^A-Z]$')"> <xsl:variable name="debut2" select="$debut"/> <xsl:variable name="position" select="string-length(substring-before($lettres, $debut2)) + 1"/> <xsl:variable name="suivant"> <xsl:value-of select="substring($lettres, $position +1, 1)"/> </xsl:variable> <xsl:if test="$suivant != '' and $debut2 != $fin"> <xsl:call-template name="boucle"> <xsl:with-param name="debut" select="$suivant"/> <xsl:with-param name="fin" select="$fin"/> <xsl:with-param name="lettres" select="$lettres"/> </xsl:call-template> </xsl:if> </xsl:when> <xsl:when test="matches($debut,'^[A-Z]$')"> <xsl:variable name="debut2" select="$debut"/> <xsl:variable name="position" select="string-length(substring-before($lettres2, $debut2)) + 1"/> <xsl:variable name="suivant"> <xsl:value-of select="substring($lettres2, $position +1, 1)"/> </xsl:variable> <xsl:if test="$suivant != '' and $debut2 != $fin"> <xsl:call-template name="boucle"> <xsl:with-param name="debut" select="$suivant"/> <xsl:with-param name="fin" select="$fin"/> <xsl:with-param name="lettres" select="$lettres2"/> </xsl:call-template> </xsl:if> </xsl:when> <xsl:when test="matches($debut,'^..$')"> <xsl:variable name="debut2" select="substring($debut,1,1)"/> <xsl:variable name="fin2" select="substring($fin,1,1)"/> <xsl:variable name="positionfin" select="string-length(substring-before($lettres2, $fin2)) + 1"></xsl:variable> <xsl:variable name="position" select="string-length(substring-before($lettres2, $debut2)) + 1"/> <xsl:variable name="suivant"> <xsl:choose><xsl:when test="matches(lettre[1],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[last()],'[abcdefghijklmnopqrstuvwxyzàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþαβ]')"><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:when> <xsl:otherwise><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:if test="$suivant != '' and $debut2 != $fin2"> <xsl:call-template name="boucle"> <xsl:with-param name="debut" select="$suivant"/> <xsl:with-param name="fin" select="$fin2"/> <xsl:with-param name="lettres" select="$lettres2"/> </xsl:call-template> </xsl:if> </xsl:when> <xsl:when test="matches($debut,'^...$')"> <xsl:variable name="debut2" select="substring($debut,1,1)"/> <xsl:variable name="position" select="string-length(substring-before($lettres2, $debut2)) + 1"/> <xsl:variable name="fin2" select="substring($fin,1,1)"/> <xsl:variable name="suivant"> <xsl:choose><xsl:when test="matches(lettre[1],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[2],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[last()],'[a-z]')"><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:when> <xsl:otherwise><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:if test="$suivant != '' and $debut2 != $fin2"> <xsl:call-template name="boucle"> <xsl:with-param name="debut" select="$suivant"/> <xsl:with-param name="fin" select="$fin2"/> <xsl:with-param name="lettres" select="$lettres2"/> </xsl:call-template> </xsl:if> </xsl:when> <xsl:when test="matches($debut,'^....$')"> <xsl:variable name="debut2" select="substring($debut,1,1)"/> <xsl:variable name="position" select="string-length(substring-before($lettres2, $debut2)) + 1"/> <xsl:variable name="fin2" select="substring($fin,1,1)"/> <xsl:variable name="suivant"> <xsl:choose><xsl:when test="matches(lettre[1],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[2],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[3],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[last()],'[a-z]')"><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:when> <xsl:otherwise><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:if test="$suivant != '' and $debut2 != $fin2"> <xsl:call-template name="boucle"> <xsl:with-param name="debut" select="$suivant"/> <xsl:with-param name="fin" select="$fin2"/> <xsl:with-param name="lettres" select="$lettres2"/> </xsl:call-template> </xsl:if> </xsl:when> <xsl:when test="matches($debut,'^.....$')"> <xsl:variable name="debut2" select="substring($debut,1,1)"/> <xsl:variable name="position" select="string-length(substring-before($lettres2, $debut2)) + 1"/> <xsl:variable name="fin2" select="substring($fin,1,1)"/> <xsl:variable name="suivant"> <xsl:choose><xsl:when test="matches(lettre[1],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[2],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[3],'[a-z]')"><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:when> <xsl:otherwise><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[4],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[last()],'[A-Z]')"><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:when> <xsl:otherwise><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:if test="$suivant != '' and $debut2 != $fin2"> <xsl:call-template name="boucle"> <xsl:with-param name="debut" select="$suivant"/> <xsl:with-param name="fin" select="$fin2"/> <xsl:with-param name="lettres" select="$lettres2"/> </xsl:call-template> </xsl:if> </xsl:when> <xsl:when test="matches($debut,'^......$')"> <xsl:variable name="debut2" select="substring($debut,1,1)"/> <xsl:variable name="position" select="string-length(substring-before($lettres2, $debut2)) + 1"/> <xsl:variable name="fin2" select="substring($fin,1,1)"/> <xsl:variable name="suivant"> <xsl:choose><xsl:when test="matches(lettre[1],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[2],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[3],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[4],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[5],'[A-Z]')"><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:when> <xsl:otherwise><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:otherwise> </xsl:choose> <xsl:choose><xsl:when test="matches(lettre[last()],'[a-z]')"><xsl:value-of select="translate(substring($lettres2, $position +1, 1),$majuscules,$minuscules)"/></xsl:when> <xsl:otherwise><xsl:value-of select="substring($lettres2, $position +1, 1)"/></xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:if test="$suivant != '' and $debut2 != $fin2"> <xsl:call-template name="boucle"> <xsl:with-param name="debut" select="$suivant"/> <xsl:with-param name="fin" select="$fin2"/> <xsl:with-param name="lettres" select="$lettres2"/> </xsl:call-template> </xsl:if> </xsl:when> </xsl:choose> </xsl:template>  <xsl:template match="folio|corr|sig/text()" mode="pass3"/> <xsl:template name="bouclefor"> <xsl:param name="min"></xsl:param> <xsl:param name="max"></xsl:param> <xsl:text> </xsl:text><xsl:value-of select="descendant::lettre"/><xsl:value-of select="$min"/><xsl:text> </xsl:text> <xsl:text></xsl:text><xsl:value-of select="descendant::lettre"/><xsl:value-of select="$min"/><xsl:text>v</xsl:text> <xsl:if test="number($min) < number($max - 1)"> <xsl:call-template name="bouclefor"> <xsl:with-param name="min"> <xsl:value-of select="$min + 1"></xsl:value-of> </xsl:with-param> <xsl:with-param name="max"> <xsl:value-of select="$max"></xsl:value-of> </xsl:with-param> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template match="cahier" mode="pass3"> <xsl:call-template name="bouclefor"> <xsl:with-param name="min">1</xsl:with-param> <xsl:with-param name="max"> <xsl:value-of select="descendant::nb +1"/> </xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template match="sig" mode="pass4"><xsl:apply-templates/></xsl:template> </xsl:stylesheet>