Lady’s Gitweb - Shushe/blob - parsers/psj.xslt

   1 <?xml version="1.0"?>
   2 <!--
   3 SPDX-FileCopyrightText: 2026 Lady <https://www.ladys.computer/about/#lady>
   4 SPDX-License-Identifier: MPL-2.0
   5 -->
   6 <!--
   7 ⁌ ⛩📰 书社 ∷ parsers/psj.xslt
   8
   9 © 2026 Lady [@ Ladys Computer].
  10
  11 This Source Code Form is subject to the terms of the Mozilla Public License, v 2.0.
  12 If a copy of the M·P·L was not distributed with this file, You can obtain one at <https://mozilla.org/MPL/2.0/>.
  13 -->
  14 <!DOCTYPE transform [
  15         <!ENTITY xhtml 'http://www.w3.org/1999/xhtml'>
  16 ]>
  17 <!--
  18 This is an alterative to the T·S·V format which allows rows to take up
  19   multiple lines and separates columns with backslash‐escapable `|`s.
  20
  21 Roughly speaking, the syntax is as follows :—
  22
  23 - The file should begin with `%?psj`.
  24
  25 - Rows are terminated by lines which begin `%%`.
  26   Any extra content on the line following the `%%` is treated as a
  27     comment.
  28   The final row must be terminated by `%%`, just like any other row.
  29
  30 - Rows which consist only of whitespace (including newlines) are
  31     ignored.
  32
  33 - Trailing whitespace in row lines is removed.
  34
  35 - If (after trimming) a line in a row ends in an odd number of
  36     backslashes, the final one is dropped.
  37   This enables a row line to end in a space by following the space
  38     with a backslash.
  39
  40 - Newlines in the row are then removed.
  41
  42 - Rows are broken into columns via `|` characters.
  43   These can be escaped with backslashes.
  44   Backslashes can also escape themselves.
  45
  46 - Whitespace is trimmed and collapsed in each column.
  47
  48 - Empty columns at the end of each row are removed.
  49   Then, each row is expanded with empty columns to the width of the
  50     widest row.
  51
  52 - The first row is treated as a header and remaining rows as the body.
  53 -->
  54 <transform
  55         xmlns="http://www.w3.org/1999/XSL/Transform"
  56         xmlns:exsl="http://exslt.org/common"
  57         xmlns:exslmath="http://exslt.org/math"
  58         xmlns:exslset="http://exslt.org/sets"
  59         xmlns:exslstr="http://exslt.org/strings"
  60         xmlns:html="&xhtml;"
  61         xmlns:书社="urn:fdc:ladys.computer:20231231:Shu1She4"
  62         extension-element-prefixes="exsl exslmath exslset exslstr"
  63         version="1.0"
  64 >
  65         <import href="../lib/split.xslt"/>
  66         <书社:id>urn:fdc:ladys.computer:20231231:Shu1She4:psj.xslt</书社:id>
  67         <template name="书社:psj-fill-empty-cols">
  68                 <param name="header-row" select="/.."/>
  69                 <param name="cols-to-fill" select="0"/>
  70                 <if test="$cols-to-fill>0">
  71                         <element name="td" namespace="&xhtml;">
  72                                 <if test="$header-row">
  73                                         <variable name="header" select="$header-row/*[count($header-row/*)-$cols-to-fill+1]"/>
  74                                         <if test="$header">
  75                                                 <attribute name="data-psj-header">
  76                                                         <value-of select="$header"/>
  77                                                 </attribute>
  78                                         </if>
  79                                 </if>
  80                         </element>
  81                         <call-template name="书社:psj-fill-empty-cols">
  82                                 <with-param name="header-row" select="$header-row"/>
  83                                 <with-param name="cols-to-fill" select="($cols-to-fill)-1"/>
  84                         </call-template>
  85                 </if>
  86         </template>
  87         <template match="html:script[@type='text/pipe-separated-jar']">
  88                 <variable name="lines" select="exslstr:tokenize(., '&#xA;&#xD;')[not(normalize-space(.)='')]"/>
  89                 <variable name="shero" select="$lines[1][starts-with(., '%?psj')]"/>
  90                 <element name="table" namespace="&xhtml;">
  91                         <if test="$shero and $shero!='%?psj'">
  92                                 <comment>
  93                                         <value-of select="substring-after($shero, '%?psj')"/>
  94                                 </comment>
  95                         </if>
  96                         <variable name="firstline" select="$lines[$shero and position()=2 or not($shero) and position()=1]"/>
  97                         <if test="starts-with($firstline, '%%') and $firstline!='%%'">
  98                                 <comment>
  99                                         <value-of select="substring-after($firstline, '%%')"/>
 100                                 </comment>
 101                         </if>
 102                         <variable name="rows-fragment">
 103                                 <for-each select="$firstline/following-sibling::*[starts-with(., '%%')]">
 104                                         <variable name="end" select="."/>
 105                                         <variable name="start" select="(preceding-sibling::*[starts-with(., '%%')][1]|$shero)[last()]"/>
 106                                         <variable name="row-lines" select="exslset:intersection(exslset:trailing($end/preceding-sibling::*, $start), $lines)"/>
 107                                         <if test="$row-lines[normalize-space(.)!='']">
 108                                                 <variable name="row">
 109                                                         <for-each select="$row-lines">
 110                                                                 <variable name="line" select="normalize-space(.)"/>
 111                                                                 <choose>
 112                                                                         <when test="substring($line, string-length($line))='\'">
 113                                                                                 <variable name="nobackslash" select="translate($line, '\', '')"/>
 114                                                                                 <variable name="onlybackslash" select="exslstr:tokenize($line, $nobackslash)[last()]"/>
 115                                                                                 <choose>
 116                                                                                         <when test="string-length($onlybackslash) mod 2=1">
 117                                                                                                 <value-of select="substring($line, 1, string-length($line)-1)"/>
 118                                                                                         </when>
 119                                                                                         <otherwise>
 120                                                                                                 <value-of select="$line"/>
 121                                                                                         </otherwise>
 122                                                                                 </choose>
 123                                                                         </when>
 124                                                                         <otherwise>
 125                                                                                 <value-of select="$line"/>
 126                                                                         </otherwise>
 127                                                                 </choose>
 128                                                         </for-each>
 129                                                 </variable>
 130                                                 <variable name="cols-fragment">
 131                                                         <call-template name="书社:split">
 132                                                                 <with-param name="source" select="$row"/>
 133                                                                 <with-param name="separator" select="'|'"/>
 134                                                         </call-template>
 135                                                 </variable>
 136                                                 <variable name="unescaped-cols-fragment">
 137                                                         <for-each select="exsl:node-set($cols-fragment)/node()">
 138                                                                 <variable name="is-last" select="position()=last()"/>
 139                                                                 <html:span>
 140                                                                         <variable name="nodoubles-fragment">
 141                                                                                 <call-template name="书社:split">
 142                                                                                         <with-param name="source" select="string()"/>
 143                                                                                         <with-param name="separator" select="'\\'"/>
 144                                                                                 </call-template>
 145                                                                         </variable>
 146                                                                         <for-each select="exsl:node-set($nodoubles-fragment)/node()">
 147                                                                                 <choose>
 148                                                                                         <when test="position()!=last()">
 149                                                                                                 <value-of select="."/>
 150                                                                                                 <text>\</text>
 151                                                                                         </when>
 152                                                                                         <otherwise>
 153                                                                                                 <choose>
 154                                                                                                         <when test="not($is-last) and substring(., string-length(.))='\'">
 155                                                                                                                 <value-of select="substring(., 1, string-length(.)-1)"/>
 156                                                                                                                 <processing-instruction name="书社-psj-not-finished"/>
 157                                                                                                         </when>
 158                                                                                                         <otherwise>
 159                                                                                                                 <value-of select="."/>
 160                                                                                                         </otherwise>
 161                                                                                                 </choose>
 162                                                                                         </otherwise>
 163                                                                                 </choose>
 164                                                                         </for-each>
 165                                                                 </html:span>
 166                                                         </for-each>
 167                                                 </variable>
 168                                                 <variable name="unescaped-cols" select="exsl:node-set($unescaped-cols-fragment)/node()"/>
 169                                                 <variable name="start-cols" select="$unescaped-cols[not(preceding-sibling::*[position()=1 and processing-instruction()])]"/>
 170                                                 <html:tr>
 171                                                         <for-each select="$start-cols">
 172                                                                 <variable name="next" select="exslset:intersection($start-cols, following-sibling::*)[1]"/>
 173                                                                 <variable name="text">
 174                                                                         <value-of select="text()"/>
 175                                                                         <for-each select="exslset:leading(following-sibling::*, $next)">
 176                                                                                 <text>|</text>
 177                                                                                 <value-of select="text()"/>
 178                                                                         </for-each>
 179                                                                 </variable>
 180                                                                 <html:td>
 181                                                                         <value-of select="normalize-space($text)"/>
 182                                                                 </html:td>
 183                                                         </for-each>
 184                                                 </html:tr>
 185                                         </if>
 186                                         <if test="substring-after(., '%%')!=''">
 187                                                 <comment>
 188                                                         <value-of select="substring-after(., '%%')"/>
 189                                                 </comment>
 190                                         </if>
 191                                 </for-each>
 192                         </variable>
 193                         <variable name="rows" select="exsl:node-set($rows-fragment)/node()"/>
 194                         <variable name="lengths-fragment">
 195                                 <for-each select="$rows[self::*]">
 196                                         <html:span>
 197                                                 <variable name="last-col" select="*[not(following-sibling::*[.!=''])][1]"/>
 198                                                 <choose>
 199                                                         <when test="$last-col">
 200                                                                 <value-of select="1+count($last-col/preceding-sibling::*)"/>
 201                                                         </when>
 202                                                         <otherwise>
 203                                                                 <text>0</text>
 204                                                         </otherwise>
 205                                                 </choose>
 206                                         </html:span>
 207                                 </for-each>
 208                         </variable>
 209                         <variable name="length" select="exslmath:max(exsl:node-set($lengths-fragment)/*)"/>
 210                         <variable name="first-row" select="$rows[1]"/>
 211                         <for-each select="exslset:leading($rows, $first-row)">
 212                                 <copy-of select="."/>
 213                         </for-each>
 214                         <if test="$first-row">
 215                                 <element name="thead" namespace="&xhtml;">
 216                                         <element name="tr" namespace="&xhtml;">
 217                                                 <for-each select="$first-row/*">
 218                                                         <choose>
 219                                                                 <when test=".!=''">
 220                                                                         <element name="th" namespace="&xhtml;">
 221                                                                                 <attribute name="scope">
 222                                                                                         <text>col</text>
 223                                                                                 </attribute>
 224                                                                                 <value-of select="."/>
 225                                                                         </element>
 226                                                                 </when>
 227                                                                 <otherwise>
 228                                                                         <element name="td" namespace="&xhtml;"/>
 229                                                                 </otherwise>
 230                                                         </choose>
 231                                                 </for-each>
 232                                                 <call-template name="书社:psj-fill-empty-cols">
 233                                                         <with-param name="cols-to-fill" select="($length)-count($first-row/*)"/>
 234                                                 </call-template>
 235                                         </element>
 236                                 </element>
 237                         </if>
 238                         <element name="tbody" namespace="&xhtml;">
 239                                 <for-each select="$first-row/following-sibling::node()">
 240                                         <choose>
 241                                                 <when test="self::*">
 242                                                         <element name="tr" namespace="&xhtml;">
 243                                                                 <for-each select="*">
 244                                                                         <element name="td" namespace="&xhtml;">
 245                                                                                 <variable name="header" select="$first-row/*[count(current()/preceding-sibling::*)+1]"/>
 246                                                                                 <if test="$header!=''">
 247                                                                                         <attribute name="data-psj-header">
 248                                                                                                 <value-of select="$header"/>
 249                                                                                         </attribute>
 250                                                                                 </if>
 251                                                                                 <value-of select="."/>
 252                                                                         </element>
 253                                                                 </for-each>
 254                                                                 <call-template name="书社:psj-fill-empty-cols">
 255                                                                         <with-param name="header-row" select="$first-row"/>
 256                                                                         <with-param name="cols-to-fill" select="($length)-count(*)"/>
 257                                                                 </call-template>
 258                                                         </element>
 259                                                 </when>
 260                                                 <otherwise>
 261                                                         <copy-of select="."/>
 262                                                 </otherwise>
 263                                         </choose>
 264                                 </for-each>
 265                         </element>
 266                 </element>
 267         </template>
 268 </transform>