X-Git-Url: https://git.ladys.computer/Shushe/blobdiff_plain/c4c2cfb24adfa62c6b4cbd819b7efe80438d8d08..1ba6bb315cf3e1c7120acff6c34149acf65f0120:/lib/expandmetadata.xslt

diff --git a/lib/expandmetadata.xslt b/lib/expandmetadata.xslt
index e75fe23..423924a 100644
--- a/lib/expandmetadata.xslt
+++ b/lib/expandmetadata.xslt
@@ -1,130 +1,173 @@
 <?xml version="1.0"?>
 <!--
-SPDX-FileCopyrightText: 2023, 2024 Lady <https://www.ladys.computer/about/#lady>
+SPDX-FileCopyrightText: 2023, 2024, 2025 Lady <https://www.ladys.computer/about/#lady>
 SPDX-License-Identifier: MPL-2.0
 -->
 <!--
 ⁌ ⛩📰 书社 ∷ lib/expandmetadata.xslt
 
-© 2023–2024 Lady [@ Ladys Computer].
+© 2023–2025 Lady [@ Ladys 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:exslstr="http://exslt.org/strings"
 	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"
 	xmlns:书社vocab="urn:fdc:ladys.computer:20231231:Shu1She4:vocab:"
-	extension-element-prefixes="exsl"
+	extension-element-prefixes="exsl exslstr"
 	version="1.0"
 >
-	<variable name="builddir" select="//*[@rdf:about='about:shushe?builddir']/@nfo:fileUrl"/>
-	<variable name="files" select="/rdf:RDF/nfo:LocalFileDataObject[not(nie:interpretedAs/nfo:Folder)]"/>
-	<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]">
-					<variable name="parent" select="@rdf:about"/>
-					<variable name="subdir">
+	<variable name="builddir" select="//书社vocab:BuildDirectory/@nfo:fileUrl"/>
+	<variable name="files" select="//书社vocab:SourceFile|//书社vocab:IncludeFile"/>
+	<template name="书社:collect-dependency-paths">
+		<param name="path" select="/.."/>
+		<variable name="parent" select="string($path/*[last()])"/>
+		<variable name="children-fragment">
+			<for-each select="$files[@rdf:about=$parent and nie:interpretedAs/nfo:PlainTextDocument]">
+				<variable name="uri" select="书社vocab:hasParsedFile/@nfo:fileUrl"/>
+				<for-each select="document($uri)//书社:link[@xlink:show='embed']">
+					<variable name="identifier" select="string(@xlink:href)"/>
+					<variable name="is-dir" select="substring($identifier, string-length($identifier))='/'"/>
+					<for-each select="$files/@rdf:about[string(.)=$identifier or $is-dir and starts-with(., $identifier)]">
+						<sort select="." data-type="text" lang="zxx" case-order="upper-first"/>
 						<choose>
-							<when test="starts-with($parent, 'about:shushe?include=')">
-								<text>/includes/</text>
-							</when>
-							<when test="starts-with($parent, 'about:shushe?source=')">
-								<text>/sources/</text>
+							<when test="$path/*[string(.)=string(current())]">
+								<书社:recursive-dependency>
+									<value-of select="."/>
+								</书社:recursive-dependency>
 							</when>
+							<otherwise>
+								<书社:dependency>
+									<value-of select="."/>
+								</书社:dependency>
+							</otherwise>
 						</choose>
-					</variable>
-					<for-each select="document(concat($builddir, $subdir, @nfo:fileName), .)//书社: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>
+		<variable name="children" select="exsl:node-set($children-fragment)"/>
 		<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 test="$children/*">
+				<for-each select="$children/书社:recursive-dependency">
+					<书社:dependency-path>
+						<copy-of select="$path[string(.)=string(current())]/preceding-sibling::*"/>
+						<copy-of select="."/>
+					</书社:dependency-path>
+				</for-each>
+				<for-each select="$children/书社:dependency">
+					<variable name="path-fragment">
+						<copy-of select="$path"/>
+						<copy-of select="."/>
+					</variable>
+					<call-template name="书社:collect-dependency-paths">
+						<with-param name="path" select="exsl:node-set($path-fragment)"/>
+					</call-template>
+				</for-each>
 			</when>
 			<otherwise>
-				<copy-of select="$old"/>
+				<书社:dependency-path>
+					<copy-of select="$path"/>
+				</书社:dependency-path>
 			</otherwise>
 		</choose>
 	</template>
-	<template match="rdf:RDF/nfo:LocalFileDataObject[not(nie:interpretedAs/nfo:Folder or nie:interpretedAs/nfo:PlainTextDocument)]" priority="1">
+	<template match="nie:interpretedAs/*" priority="1">
 		<copy>
 			<apply-templates select="@*|node()"/>
-			<if test="starts-with(@rdf:about, 'about:shushe?source=')">
-				<dct:hasFormat>
-					<nfo:LocalFileDataObject dct:creator="urn:fdc:ladys.computer:20231231:Shu1She4" nfo:fileName="{substring-after(@rdf:about, 'about:shushe?source=')}"/>
-				</dct:hasFormat>
-			</if>
+			<for-each select="../../书社vocab:hasParsedFileWithMetadata">
+				<copy-of select="document(@nfo:fileUrl)/书社:parsed/书社:metadata/rdf:RDF/rdf:Description/node()"/>
+			</for-each>
+		</copy>
+	</template>
+	<template match="//书社vocab:SourceFile[not(nie:interpretedAs/nfo:PlainTextDocument)]" priority="1">
+		<copy>
+			<apply-templates select="@*"/>
+			<apply-templates select="node()"/>
+			<element name="书社vocab:destination">
+				<value-of select="@书社vocab:path"/>
+			</element>
 		</copy>
 	</template>
-	<template match="rdf:RDF/nfo:LocalFileDataObject[nie:interpretedAs/nfo:PlainTextDocument]" priority="1">
-		<variable name="parsed" select="document(concat($builddir, '/sources/', @nfo:fileName), .)"/>
-		<variable name="destination-delim" select="concat('/', $parsed/*/@书社:destination, '/')"/>
-		<variable name="destination">
+	<template match="//书社vocab:SourceFile[nie:interpretedAs/nfo:PlainTextDocument]" priority="1">
+		<variable name="parsed" select="document(书社vocab:hasParsedFile/@nfo:fileUrl)"/>
+		<variable name="provided-destinations" select="normalize-space($parsed/*/@书社:destination)"/>
+		<variable name="destinations-fragment">
+			<if test="$provided-destinations!=''">
+				<for-each select="exslstr:tokenize($provided-destinations)">
+					<element name="书社vocab:destination">
+						<value-of select="."/>
+					</element>
+				</for-each>
+			</if>
+		</variable>
+		<variable name="dependencies-fragment">
+			<apply-templates select="." mode="书社:dependencies"/>
+		</variable>
+		<variable name="dependencies" select="exsl:node-set($dependencies-fragment)"/>
+		<variable name="destinations" select="exsl:node-set($destinations-fragment)/node()"/>
+		<variable name="bad-destinations-fragment">
+			<for-each select="$destinations">
+				<variable name="destination-delim" select="concat('/', ., '/')"/>
+				<if test="contains($destination-delim, '//') or contains($destination-delim, '/./') or contains($destination-delim, '/../')">
+					<copy-of select="."/>
+				</if>
+			</for-each>
+		</variable>
+		<variable name="bad-destinations" select="exsl:node-set($bad-destinations-fragment)/node()"/>
+		<copy>
+			<apply-templates select="@*"/>
+			<apply-templates select="node()"/>
+			<for-each select="$dependencies/书社:dependency">
+				<书社vocab:hasDependencyOn rdf:resource="{.}"/>
+			</for-each>
+			<for-each select="$dependencies/书社:recursive-dependency">
+				<书社vocab:hasRecursiveDependencyOn rdf:resource="{.}"/>
+			</for-each>
 			<choose>
-				<when test="not(starts-with(@rdf:about, 'about:shushe?source='))"/>
-				<when test="not(contains($destination-delim, '//') or contains($destination-delim, '/./') or contains($destination-delim, '/../'))">
-					<value-of select="$parsed/*/@书社:destination"/>
+				<when test="not($destinations)">
+					<element name="书社vocab:destination">
+						<value-of select="@书社vocab:path"/>
+					</element>
+				</when>
+				<when test="$bad-destinations">
+					<message terminate="no">
+						<text>Bad destinations: </text>
+						<for-each select="$bad-destinations">
+							<if test="position()>1">
+								<text> </text>
+							</if>
+							<text>&lt;</text>
+							<value-of select="."/>
+							<text>></text>
+						</for-each>
+					</message>
+					<element name="书社vocab:destination">
+						<value-of select="@书社vocab:path"/>
+					</element>
 				</when>
 				<otherwise>
-					<value-of select="substring-after(@rdf:about, 'about:shushe?source=')"/>
+					<for-each select="$destinations">
+						<element name="书社vocab:destination">
+							<value-of select="."/>
+						</element>
+					</for-each>
 				</otherwise>
 			</choose>
-		</variable>
+		</copy>
+	</template>
+	<template match="//书社vocab:IncludeFile[nie:interpretedAs/nfo:PlainTextDocument]" priority="1">
 		<variable name="dependencies-fragment">
 			<apply-templates select="." mode="书社:dependencies"/>
 		</variable>
-		<variable name="dependencies" select="exsl:node-set($dependencies)"/>
+		<variable name="dependencies" select="exsl:node-set($dependencies-fragment)"/>
 		<copy>
 			<apply-templates select="@*|node()"/>
 			<for-each select="$dependencies/书社:dependency">
@@ -133,28 +176,69 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 			<for-each select="$dependencies/书社:recursive-dependency">
 				<书社vocab:hasRecursiveDependencyOn rdf:resource="{.}"/>
 			</for-each>
-			<if test="$destination!=''">
-				<dct:hasFormat>
-					<nfo:LocalFileDataObject dct:creator="urn:fdc:ladys.computer:20231231:Shu1She4" nfo:fileName="{$destination}">
-					</nfo:LocalFileDataObject>
-				</dct:hasFormat>
-			</if>
 		</copy>
 	</template>
+	<template match="书社vocab:hasParsedFileWithMetadata" priority="1"/>
+	<template match="/">
+		<variable name="result-fragment">
+			<apply-templates/>
+		</variable>
+		<variable name="result" select="exsl:node-set($result-fragment)"/>
+		<copy-of select="$result/*"/>
+		<exsl:document href="dependencies" method="text" encoding="UTF-8">
+			<for-each select="$result/rdf:RDF/*[nie:interpretedAs/nfo:PlainTextDocument]">
+				<value-of select="@rdf:about"/>
+				<text>&#xA;</text>
+				<for-each select="书社vocab:hasRecursiveDependencyOn/@rdf:resource">
+					<text>&#x9;</text>
+					<text>-</text>
+					<value-of select="."/>
+					<text>&#xA;</text>
+				</for-each>
+				<for-each select="书社vocab:hasDependencyOn/@rdf:resource">
+					<text>&#x9;</text>
+					<value-of select="."/>
+					<text>&#xA;</text>
+				</for-each>
+			</for-each>
+		</exsl:document>
+		<exsl:document href="destinations" method="text" encoding="UTF-8">
+			<for-each select="$result//书社vocab:SourceFile">
+				<value-of select="@rdf:about"/>
+				<text>|</text>
+				<for-each select="书社vocab:destination">
+					<if test="position()>1">
+						<text>;</text>
+					</if>
+					<value-of select="."/>
+				</for-each>
+				<text>&#xA;</text>
+			</for-each>
+		</exsl:document>
+	</template>
 	<template match="@*|node()">
 		<copy>
 			<apply-templates select="@*|node()"/>
 		</copy>
 	</template>
-	<template match="nfo:LocalFileDataObject" mode="书社:dependencies">
+	<template match="书社vocab:SourceFile|书社vocab:IncludeFile" 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>
+			<variable name="path-fragment">
+				<书社:dependency-root>
+					<value-of select="@rdf:about"/>
+				</书社:dependency-root>
+			</variable>
+			<variable name="paths-fragment">
+				<call-template name="书社:collect-dependency-paths">
+					<with-param name="path" select="exsl:node-set($path-fragment)"/>
+				</call-template>
+			</variable>
+			<for-each select="exsl:node-set($paths-fragment)/*/*[not(self::书社:dependency-root)]">
+				<if test="not(preceding::*[string(.)=string(current())])">
+					<copy-of select="."/>
+				</if>
+			</for-each>
 		</if>
 	</template>
+	<output method="xml" encoding="UTF-8"/>
 </transform>