X-Git-Url: https://git.ladys.computer/Shushe/blobdiff_plain/56637a1e803cab7a53a1259d1fa4b84513a1c5b1..1c02c25ab49b46225f48d51ccc52648c20c82eaf:/lib/catalog2parser.xslt

diff --git a/lib/catalog2parser.xslt b/lib/catalog2parser.xslt
index f35fbc1..ead56da 100644
--- a/lib/catalog2parser.xslt
+++ b/lib/catalog2parser.xslt
@@ -10,14 +10,63 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 <transform
 	xmlns="http://www.w3.org/1999/XSL/Transform"
 	xmlns:catalog="urn:oasis:names:tc:entity:xmlns:xml:catalog"
+	xmlns:exslstr="http://exslt.org/strings"
+	xmlns:html="http://www.w3.org/1999/xhtml"
+	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
 	xmlns:xslt="http://www.w3.org/1999/XSL/TransformAlias"
 	xmlns:书社="urn:fdc:ladys.computer:20231231:Shu1She4"
-	exclude-result-prefixes="catalog"
+	exclude-result-prefixes="catalog exslstr"
 	version="1.0"
 >
 	<namespace-alias stylesheet-prefix="xslt" result-prefix="#default"/>
 	<template match="/">
 		<xslt:transform version="1.0">
+			<xslt:variable name="书社:parsers">
+				<html:dl>
+					<for-each select="//catalog:uri">
+						<variable name="parser" select="document(@uri, .)"/>
+						<html:div>
+							<html:dt>
+								<value-of select="@name"/>
+							</html:dt>
+							<choose>
+								<when test="$parser/*/@书社:supported-media-types">
+									<for-each select="exslstr:tokenize($parser/*/@书社:supported-media-types)">
+										<if test="not(translate(., '0123456789abcdefghijklmnopqrstuvwxyz!#$&#x26;-^_.+/', ''))">
+											<html:dd>
+												<value-of select="."/>
+											</html:dd>
+										</if>
+									</for-each>
+								</when>
+								<otherwise>
+									<for-each select="$parser//xsl:template[not(@name) and not(@mode)]">
+										<variable name="match" select="@match"/>
+										<for-each select="namespace::*[local-name() and string()='http://www.w3.org/1999/xhtml']">
+											<variable name="matchstart">
+												<value-of select="local-name()"/>
+												<text>:</text>
+												<text>script[@type=</text>
+											</variable>
+											<if test="starts-with($match, $matchstart) and substring($match, string-length($match))=']' and contains($match, '/')">
+												<variable name="inner" select="substring-before(substring-after($match, $matchstart), ']')"/>
+												<if test="starts-with($inner, '&#x22;') and substring($inner, string-length($inner))='&#x22;' or starts-with($inner, &#x22;'&#x22;) and substring($inner, string-length($inner))=&#x22;'&#x22;">
+													<variable name="type" select="substring($inner, 2, string-length($inner)-2)"/>
+													<if test="not(translate($type, '0123456789abcdefghijklmnopqrstuvwxyz!#$&#x26;-^_.+/', ''))">
+														<html:dd>
+															<value-of select="$type"/>
+														</html:dd>
+													</if>
+												</if>
+											</if>
+										</for-each>
+									</for-each>
+								</otherwise>
+							</choose>
+						</html:div>
+					</for-each>
+				</html:dl>
+			</xslt:variable>
 			<for-each select="//catalog:uri">
 				<xslt:include href="{@uri}">
 					<if test="contains(@name, ':')">