<template match="html:script[@type='text/record-jar']">
<variable name="lines" select="exslstr:tokenize(., '
')"/>
<html:div>
+ <if test="starts-with($lines[1], '%%') and substring-after($lines[1], '%%')!=''">
+ <comment>
+ <value-of select="substring-after($lines[1], '%%')"/>
+ </comment>
+ </if>
<for-each select="$lines[not(position()=1) and starts-with(., '%%')]">
<variable name="end" select="."/>
<variable name="start" select="preceding-sibling::*[starts-with(., '%%')][1]"/>
</for-each>
</html:dl>
</if>
+ <if test="substring-after(., '%%')!=''">
+ <comment>
+ <value-of select="substring-after(., '%%')"/>
+ </comment>
+ </if>
</for-each>
</html:div>
</template>
<import href="../lib/split.xslt"/>
<书社:id>urn:fdc:ladys.computer:20231231:Shu1She4:tsv.xslt</书社:id>
<template match="html:script[@type='text/tab-separated-values']">
- <variable name="rows" select="exslstr:tokenize(., '
')[normalize-space(.)!='' and not(starts-with(., '#'))]"/>
- <variable name="head" select="$rows[1]"/>
+ <variable name="lines" select="exslstr:tokenize(., '
')"/>
+ <variable name="head" select="$lines[normalize-space(.)!='' and not(starts-with(., '#'))][1]"/>
<variable name="headcols">
<call-template name="书社:split">
<with-param name="source" select="string($head)"/>
<with-param name="separator" select="'	'"/>
</call-template>
</variable>
- <variable name="body" select="$rows[not(position()=1)]"/>
<html:table>
+ <for-each select="$lines[starts-with(., '#') and following-sibling::*[generate-id(.)=generate-id($head)]]">
+ <comment>
+ <value-of select="substring-after(., '#')"/>
+ </comment>
+ </for-each>
<html:thead>
<html:tr>
<for-each select="exsl:node-set($headcols)/*">
</html:tr>
</html:thead>
<html:tbody>
- <for-each select="$body">
- <variable name="cols">
- <call-template name="书社:split">
- <with-param name="source" select="string(.)"/>
- <with-param name="separator" select="'	'"/>
- </call-template>
- </variable>
- <html:tr>
- <for-each select="exsl:node-set($cols)/*[count(exsl:node-set($headcols)/*)>=position()]">
- <html:td>
- <attribute name="data-tsv-header">
- <value-of select="exsl:node-set($headcols)/*[count(current()/preceding-sibling::*)+1]"/>
- </attribute>
- <value-of select="."/>
- <if test="position()=count(exsl:node-set($headcols)/*)">
- <for-each select="following-sibling::*">
- <text>	</text>
+ <for-each select="$head/following-sibling::*[normalize-space(.)!='']">
+ <choose>
+ <when test="starts-with(., '#')">
+ <comment>
+ <value-of select="substring-after(., '#')"/>
+ </comment>
+ </when>
+ <otherwise>
+ <variable name="cols">
+ <call-template name="书社:split">
+ <with-param name="source" select="string(.)"/>
+ <with-param name="separator" select="'	'"/>
+ </call-template>
+ </variable>
+ <html:tr>
+ <for-each select="exsl:node-set($cols)/*[count(exsl:node-set($headcols)/*)>=position()]">
+ <html:td>
+ <attribute name="data-tsv-header">
+ <value-of select="exsl:node-set($headcols)/*[count(current()/preceding-sibling::*)+1]"/>
+ </attribute>
<value-of select="."/>
- </for-each>
- </if>
- </html:td>
- </for-each>
- <for-each select="exsl:node-set($headcols)/*[position()>count(exsl:node-set($cols)/*)]">
- <html:td/>
- </for-each>
- </html:tr>
+ <if test="position()=count(exsl:node-set($headcols)/*)">
+ <for-each select="following-sibling::*">
+ <text>	</text>
+ <value-of select="."/>
+ </for-each>
+ </if>
+ </html:td>
+ </for-each>
+ <for-each select="exsl:node-set($headcols)/*[position()>count(exsl:node-set($cols)/*)]">
+ <html:td/>
+ </for-each>
+ </html:tr>
+ </otherwise>
+ </choose>
</for-each>
</html:tbody>
</html:table>