|
100
|
1 <?xml version='1.0'?>
|
|
|
2 <!DOCTYPE doc SYSTEM "../../../../lib/xml/xsl.dtd" >
|
|
|
3 <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="2.0" exclude-result-prefixes="x" xmlns:x="http://www.w3.org/1999/xhtml" xmlns="http://www.w3.org/1999/xhtml">
|
|
|
4
|
|
|
5 <!-- Merge wrapped latin and prepped english to produce two-column
|
|
|
6 bilingual for a single Summa Question -->
|
|
|
7 <xsl:param name="lfs">xyzzy</xsl:param><!-- names of latin files -->
|
|
|
8 <xsl:variable name="latin" select="for $lf in tokenize($lfs,';') return document($lf,/)/*"/>
|
|
|
9 <xsl:key name="lq" match="x:div[@class='q']" use="@id"/>
|
|
|
10 <xsl:variable name="di" select="/x:div/@id"/>
|
|
|
11 <xsl:variable name="qi" select="concat('q',substring-after($di,'_Q'))"/>
|
|
|
12 <xsl:variable name="la" select="for $ld in $latin return key('lq',$qi,$ld)"/>
|
|
|
13
|
|
|
14 <xsl:template match="/">
|
|
|
15 <xsl:message>
|
|
|
16 <xsl:text>English|Latin|latin count </xsl:text>
|
|
|
17 <xsl:value-of select="$di"/>|<xsl:value-of select="$qi"/>|<xsl:value-of select="count($la)"/>
|
|
|
18 </xsl:message>
|
|
|
19 <xsl:apply-templates/>
|
|
|
20 </xsl:template>
|
|
|
21
|
|
|
22 <xsl:template match="node()|@*">
|
|
|
23 <xsl:copy>
|
|
|
24 <xsl:apply-templates select="node()|@*"/>
|
|
|
25 </xsl:copy>
|
|
|
26 </xsl:template>
|
|
|
27
|
|
|
28 <xsl:template match="x:div[@class='div4' and not(@id)]">
|
|
|
29 <!-- Wrap a prooemium -->
|
|
|
30 <xsl:copy>
|
|
|
31 <xsl:call-template name="doBi">
|
|
|
32 <xsl:with-param select="@*|node()" name="english"/>
|
|
|
33 <xsl:with-param select="$la/x:div[@class='p']/x:p" name="latin"/>
|
|
|
34 </xsl:call-template>
|
|
|
35 </xsl:copy>
|
|
|
36 </xsl:template>
|
|
|
37
|
|
|
38 <xsl:template match="x:div[@class='div4' and @id]">
|
|
|
39 <!-- Wraps a single article within a question -->
|
|
|
40 <xsl:variable name="n" select="count(preceding-sibling::x:div[@id])+1"/>
|
|
|
41 <xsl:variable name="ld" select="$la/x:div[@class='a'][position()=$n]"/>
|
|
|
42 <xsl:variable name="lp" select="$ld/*[self::x:p or self::x:div]"/>
|
|
|
43 <xsl:message><xsl:value-of select="@id"/>,<xsl:value-of select="$n"/>,<xsl:value-of select="x:h4"/>,<xsl:value-of select="count(x:p)"/>,<xsl:value-of select="$ld/x:h3"/>,<xsl:value-of select="count($lp)"/></xsl:message>
|
|
|
44 <xsl:choose>
|
|
|
45 <xsl:when test="count(x:p)=count($lp)">
|
|
|
46 <xsl:copy>
|
|
|
47 <xsl:apply-templates select="@*|x:h4"/>
|
|
|
48 <xsl:for-each select="x:p">
|
|
|
49 <xsl:variable name="i" select="position()"/>
|
|
|
50 <xsl:call-template name="doBi">
|
|
|
51 <xsl:with-param select="." name="english"/>
|
|
|
52 <xsl:with-param select="$lp[position()=$i]" name="latin"/>
|
|
|
53 </xsl:call-template>
|
|
|
54 </xsl:for-each>
|
|
|
55 </xsl:copy>
|
|
|
56 </xsl:when>
|
|
|
57 <xsl:otherwise>
|
|
|
58 <xsl:message>Can't merge article <xsl:value-of select="@id"/>, <xsl:value-of select="count(x:p)"/>!=<xsl:value-of select="count($lp)"/></xsl:message>
|
|
|
59 <!-- Try to split on keywords in English -->
|
|
|
60 <xsl:variable name="pb" select="count(x:p/x:b[starts-with(.,'Objection') or (.='On the contrary,') or (.='I answer that,') or starts-with(.,'Reply to ')])"/>
|
|
|
61 <xsl:choose>
|
|
|
62 <xsl:when test="$pb=count($lp)">
|
|
|
63 <xsl:copy>
|
|
|
64 <xsl:apply-templates select="@*|x:h4"/>
|
|
|
65 <xsl:for-each-group select="x:p" group-starting-with="x:p[x:b[starts-with(.,'Objection') or (.='On the contrary,') or (.='I answer that,') or starts-with(.,'Reply to ')]]">
|
|
|
66 <xsl:variable name="i" select="position()"/>
|
|
|
67 <xsl:call-template name="doBi">
|
|
|
68 <xsl:with-param select="current-group()" name="english"/>
|
|
|
69 <xsl:with-param select="$lp[position()=$i]" name="latin"/>
|
|
|
70 </xsl:call-template>
|
|
|
71 </xsl:for-each-group>
|
|
|
72 </xsl:copy>
|
|
|
73 </xsl:when>
|
|
|
74 <xsl:otherwise>
|
|
109
|
75 <xsl:message>Still can't merge article <xsl:value-of select="@id"/>,
|
|
|
76 <xsl:value-of select="$pb"/> out of <xsl:value-of select="count(x:p/x:b)"/>!=<xsl:value-of select="count($lp)"/></xsl:message>
|
|
100
|
77 </xsl:otherwise>
|
|
|
78 </xsl:choose>
|
|
|
79 </xsl:otherwise>
|
|
|
80 </xsl:choose>
|
|
|
81 </xsl:template>
|
|
|
82
|
|
|
83 <xsl:template name="doBi">
|
|
|
84 <xsl:param name="english"/>
|
|
|
85 <xsl:param name="latin"/>
|
|
|
86 <div class="bilingual">
|
|
|
87 <xsl:choose>
|
|
|
88 <xsl:when test="count($english)=1">
|
|
|
89 <xsl:for-each select="$english">
|
|
|
90 <xsl:copy>
|
|
|
91 <xsl:attribute name="class">english</xsl:attribute>
|
|
|
92 <xsl:apply-templates select="@*[not(local-name()='class')]|node()"/>
|
|
|
93 </xsl:copy>
|
|
|
94 </xsl:for-each>
|
|
|
95 </xsl:when>
|
|
|
96 <xsl:otherwise>
|
|
|
97 <div class="english">
|
|
|
98 <xsl:apply-templates select="$english"/>
|
|
|
99 </div>
|
|
|
100 </xsl:otherwise>
|
|
|
101 </xsl:choose>
|
|
|
102 <xsl:for-each select="$latin">
|
|
|
103 <xsl:copy>
|
|
|
104 <xsl:attribute name="class">latin</xsl:attribute>
|
|
|
105 <xsl:apply-templates select="@*[not(local-name()='class')]|node()"/>
|
|
|
106 </xsl:copy>
|
|
|
107 </xsl:for-each>
|
|
|
108 </div>
|
|
|
109 </xsl:template>
|
|
|
110 </xsl:stylesheet>
|
