From: Lady <redacted>
Date: Mon, 1 Jan 2024 22:18:49 +0000 (-0500)
Subject: Provide a mechanism to override parser media types
X-Git-Tag: 0.2.0~1
X-Git-Url: https://git.ladys.computer/Shushe/commitdiff_plain/51a6b89322b4148793c40398443029bceac8a315

Provide a mechanism to override parser media types

If `@书社:supported-media-types` is present on the root element of a
parser, the normal media type detection is disabled and the value of
the attribute is used instead.
---

diff --git a/README.markdown b/README.markdown
index f2cfdd9..6870c4d 100644
--- a/README.markdown
+++ b/README.markdown
@@ -244,6 +244,9 @@ For example, the trivial `text/plain` parser is defined as follows :⁠—
   the set of allowed plaintext file types.
 Multiple such `<xslt:template>` elements may be provided in a single
   parser, for example if the parser supports multiple media types.
+Alternatively, you can set the `@书社:supported-media-types` attribute
+  on the root element of the parser to override media type support
+  detection.
 
 It is **strongly recommended** that all templates in parsers other than
   those described above be namespaced (by `@name` or `@mode`), to avoid
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"/>