X-Git-Url: https://git.ladys.computer/Shushe/blobdiff_plain/3a299f48959110fd4f621d75378129d96e4ad631..8b898cc1e883b2a5b3662a5c6b6913d5d0e7236d:/lib/metadata2dependencies.xslt?ds=inline

diff --git a/lib/metadata2dependencies.xslt b/lib/metadata2dependencies.xslt
new file mode 100644
index 0000000..663674b
--- /dev/null
+++ b/lib/metadata2dependencies.xslt
@@ -0,0 +1,120 @@
+<?xml version="1.0"?>
+<!--
+SPDX-FileCopyrightText: 2023, 2024 Lady <https://www.ladys.computer/about/#lady>
+SPDX-License-Identifier: MPL-2.0
+-->
+<!--
+⁌ ⛩️📰 书社 ∷ lib/metadata2dependencies.xslt
+
+© 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/>.
+-->
+<transform
+	xmlns="http://www.w3.org/1999/XSL/Transform"
+	xmlns:dct="http://purl.org/dc/terms/"
+	xmlns:exsl="http://exslt.org/common"
+	xmlns:nie="http://www.semanticdesktop.org/ontologies/2007/01/19/nie#"
+	xmlns:nfo="http://www.semanticdesktop.org/ontologies/2007/03/22/nfo#"
+	xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+	xmlns:xlink="http://www.w3.org/1999/xlink"
+	xmlns:书社="urn:fdc:ladys.computer:20231231:Shu1She4"
+	version="1.0"
+>
+	<variable name="files" select="/rdf:RDF/nfo:LocalFileDataObject"/>
+	<template name="书社:process-dependencies">
+		<param name="processed"/>
+		<param name="unprocessed"/>
+		<variable name="queue">
+			<copy-of select="exsl:node-set($unprocessed)/书社:dependency-root"/>
+			<for-each select="exsl:node-set($unprocessed)/书社:dependency">
+				<if test="not((exsl:node-set($processed)/书社:*|preceding-sibling::书社:*|following-sibling::书社:recursive-dependency)[string()=string(current())])">
+					<copy-of select="."/>
+				</if>
+			</for-each>
+		</variable>
+		<variable name="old">
+			<copy-of select="exsl:node-set($processed)/书社:dependency-root"/>
+			<copy-of select="exsl:node-set($processed)/书社:recursive-dependency"/>
+			<for-each select="exsl:node-set($unprocessed)/书社:recursive-dependency">
+				<if test="not((exsl:node-set($processed)/书社:recursive-dependency|preceding-sibling::书社:recursive-dependency)[string()=string(current())])">
+					<copy-of select="."/>
+				</if>
+			</for-each>
+			<for-each select="exsl:node-set($processed)/书社:dependency">
+				<if test="not(exsl:node-set($unprocessed)/书社:recursive-dependency[string()=string(current())])">
+					<copy-of select="."/>
+				</if>
+			</for-each>
+			<copy-of select="$queue"/>
+		</variable>
+		<variable name="new">
+			<for-each select="exsl:node-set($queue)/书社:*">
+				<for-each select="$files[@rdf:about=string(current()) and nie:interpretedAs/nfo:PlainTextDocument and dct:hasFormat/*/nie:interpretedAs/*[@nie:mimeType='application/xml']]">
+					<variable name="parent" select="@rdf:about"/>
+					<for-each select="document(dct:hasFormat/*[nie:interpretedAs/*[@nie:mimeType='application/xml']]/@nfo:fileUrl[1])//书社:link[@xlink:show='embed']">
+						<if test="exsl:node-set($old)/书社:dependency-root[string()=string(current()/@xlink:href)]">
+							<书社:recursive-dependency>
+								<value-of select="$parent"/>
+							</书社:recursive-dependency>
+						</if>
+						<if test="$files/@rdf:about[string()=string(current()/@xlink:href)]">
+							<书社:dependency>
+								<value-of select="@xlink:href"/>
+							</书社:dependency>
+						</if>
+					</for-each>
+				</for-each>
+			</for-each>
+		</variable>
+		<choose>
+			<when test="exsl:node-set($new)/书社:dependency">
+				<call-template name="书社:process-dependencies">
+					<with-param name="processed">
+						<copy-of select="$old"/>
+					</with-param>
+					<with-param name="unprocessed">
+						<copy-of select="$new"/>
+					</with-param>
+				</call-template>
+			</when>
+			<otherwise>
+				<copy-of select="$old"/>
+			</otherwise>
+		</choose>
+	</template>
+	<template match="nfo:LocalFileDataObject" mode="书社:dependencies">
+		<if test="nie:interpretedAs/nfo:PlainTextDocument">
+			<call-template name="书社:process-dependencies">
+				<with-param name="unprocessed">
+					<书社:dependency-root>
+						<value-of select="@rdf:about"/>
+					</书社:dependency-root>
+				</with-param>
+			</call-template>
+		</if>
+	</template>
+	<template match="/">
+		<for-each select="$files[nie:interpretedAs/nfo:PlainTextDocument]">
+			<variable name="parent" select="@rdf:about"/>
+			<variable name="dependencies">
+				<apply-templates select="." mode="书社:dependencies"/>
+			</variable>
+			<value-of select="@rdf:about"/>
+			<text>&#xA;</text>
+			<for-each select="exsl:node-set($dependencies)/书社:recursive-dependency">
+				<text>&#x9;</text>
+				<text>-</text>
+				<value-of select="."/>
+				<text>&#xA;</text>
+			</for-each>
+			<for-each select="exsl:node-set($dependencies)/书社:dependency">
+				<text>&#x9;</text>
+				<value-of select="."/>
+				<text>&#xA;</text>
+			</for-each>
+		</for-each>
+	</template>
+	<output method="text" encoding="UTF-8"/>
+</transform>