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 f2cfdd911a8801025f26655ab083b3b47fe374b8..6870c4db24535a3dcb587699d8aa6769d3571cac 100644 (file)
--- 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 ee107e4f5dd761bf65c8e41045415e9f00739968..1dfa90c93ece6eb6ae22e2263c76c06008903b5e 100644 (file)
--- 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"/>