X-Git-Url: https://git.ladys.computer/Shushe/blobdiff_plain/e4f65cee884c40d631209b5cbb711de161a2969a..2d4cbd1e2235a49728ca6ccb5a73c15fb34736d6:/lib/parser2types.xslt

diff --git a/lib/parser2types.xslt b/lib/parser2types.xslt
index ee107e4..1dfa90c 100644
--- a/lib/parser2types.xslt
+++ b/lib/parser2types.xslt
@@ -2,7 +2,7 @@
 <!--
 ⁌ ⛩️📰 书社 ∷ lib/parser2types.xslt
 
-© 2023 Lady [@ Lady’s Computer]
+© 2023–2024 Lady [@ Lady’s Computer]
 
 This Source Code Form is subject to the terms of the Mozilla Public License, v 2.0.
 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/>.
@@ -10,32 +10,46 @@ 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:xslt="http://www.w3.org/1999/XSL/Transform"
 	xmlns:书社="urn:fdc:ladys.computer:20231231:Shu1She4"
 	version="1.0"
 >
 	<template match="/">
 		<for-each select="//xslt:include">
-			<for-each select="document(@href, .)//xslt: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;-^_.+/', ''))">
-								<value-of select="$type"/>
-								<text>&#xA;</text>
-							</if>
+			<variable name="included" select="document(@href, .)"/>
+			<choose>
+				<when test="$included/*/@书社:supported-media-types">
+					<for-each select="exslstr:tokenize($included/*/@书社:supported-media-types)">
+						<if test="not(translate(., '0123456789abcdefghijklmnopqrstuvwxyz!#$&#x26;-^_.+/', ''))">
+							<value-of select="."/>
+							<text>&#xA;</text>
 						</if>
-					</if>
-				</for-each>
-			</for-each>
+					</for-each>
+				</when>
+				<otherwise>
+					<for-each select="$included//xslt: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;-^_.+/', ''))">
+										<value-of select="$type"/>
+										<text>&#xA;</text>
+									</if>
+								</if>
+							</if>
+						</for-each>
+					</for-each>
+				</otherwise>
+			</choose>
 		</for-each>
 	</template>
 	<output method="text" encoding="UTF-8"/>