Lady’s Gitweb - Shushe/blob - parsers/record-jar.xslt

   1 <?xml version="1.0"?>
   2 <!--
   3 SPDX-FileCopyrightText: 2024 Lady <https://www.ladys.computer/about/#lady>
   4 SPDX-License-Identifier: MPL-2.0
   5 -->
   6 <!--
   7 ⁌ ⛩️📰 书社 ∷ parsers/record-jar.xslt
   8
   9 © 2024 Lady [@ Lady’s 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 <transform
  15         xmlns="http://www.w3.org/1999/XSL/Transform"
  16         xmlns:exsl="http://exslt.org/common"
  17         xmlns:exslstr="http://exslt.org/strings"
  18         xmlns:html="http://www.w3.org/1999/xhtml"
  19         xmlns:书社="urn:fdc:ladys.computer:20231231:Shu1She4"
  20         exclude-result-prefixes="exsl exslstr"
  21         version="1.0"
  22 >
  23         <书社:id>urn:fdc:ladys.computer:20231231:Shu1She4:record-jar.xslt</书社:id>
  24         <template match="html:script[@type='text/record-jar']">
  25                 <variable name="lines" select="exslstr:tokenize(., '&#xA;')"/>
  26                 <html:div>
  27                         <for-each select="$lines[not(position()=1) and starts-with(., '%%')]">
  28                                 <variable name="end" select="."/>
  29                                 <variable name="start" select="preceding-sibling::*[starts-with(., '%%')][1]"/>
  30                                 <variable name="fields" select="($start/following-sibling::*|$lines[not($start)])[not(preceding-sibling::*[generate-id()=generate-id($end)]) and not(starts-with(., '%%'))]"/>
  31                                 <if test="$fields">
  32                                         <html:dl>
  33                                                 <for-each select="$fields">
  34                                                         <choose>
  35                                                                 <when test="starts-with(., ' ') and $fields[generate-id()=generate-id(current()/preceding-sibling::*[1])]"/>
  36                                                                 <otherwise>
  37                                                                         <variable name="next" select="following-sibling::*[not(starts-with(., ' '))]"/>
  38                                                                         <html:div>
  39                                                                                 <html:dt>
  40                                                                                         <value-of select="normalize-space(substring-before(., ':'))"/>
  41                                                                                 </html:dt>
  42                                                                                 <html:dd>
  43                                                                                         <variable name="firstline">
  44                                                                                                 <choose>
  45                                                                                                         <when test="contains(., ':')">
  46                                                                                                                 <value-of select="normalize-space(substring-after(., ':'))"/>
  47                                                                                                         </when>
  48                                                                                                         <otherwise>
  49                                                                                                                 <value-of select="normalize-space(.)"/>
  50                                                                                                         </otherwise>
  51                                                                                                 </choose>
  52                                                                                         </variable>
  53                                                                                         <choose>
  54                                                                                                 <when test="substring($firstline, string-length($firstline))='\' and following-sibling::*[position()=1 and starts-with(., ' ')]">
  55                                                                                                         <value-of select="substring($firstline, 1, string-length($firstline)-1)"/>
  56                                                                                                 </when>
  57                                                                                                 <otherwise>
  58                                                                                                         <value-of select="$firstline"/>
  59                                                                                                 </otherwise>
  60                                                                                         </choose>
  61                                                                                         <for-each select="following-sibling::*[starts-with(., ' ') and not(preceding-sibling::*[generate-id()=generate-id($next)])]">
  62                                                                                                 <variable name="nextline" select="normalize-space(.)"/>
  63                                                                                                 <choose>
  64                                                                                                         <when test="substring($nextline, string-length($nextline))='\' and following-sibling::*[position()=1 and starts-with(., ' ')]">
  65                                                                                                                 <value-of select="substring($nextline, 1, string-length($nextline)-1)"/>
  66                                                                                                         </when>
  67                                                                                                         <otherwise>
  68                                                                                                                 <value-of select="$nextline"/>
  69                                                                                                         </otherwise>
  70                                                                                                 </choose>
  71                                                                                         </for-each>
  72                                                                                 </html:dd>
  73                                                                         </html:div>
  74                                                                 </otherwise>
  75                                                         </choose>
  76                                                 </for-each>
  77                                         </html:dl>
  78                                 </if>
  79                         </for-each>
  80                 </html:div>
  81         </template>
  82 </transform>