X-Git-Url: https://git.ladys.computer/LesML/blobdiff_plain/608a1404e5b5f27df451d8a4c50c1c356a39a8d5..57aba756b5ea79520435489e8ef33111070325eb:/parser.xslt?ds=sidebyside

diff --git a/parser.xslt b/parser.xslt
index f2279d8..86c28ea 100644
--- a/parser.xslt
+++ b/parser.xslt
@@ -122,6 +122,12 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 	</template>
 	<template name="LesML:parse">
 		<param name="source"/>
+		<param name="parent-params" select="/.."/>
+		<variable name="shebang">
+			<if test="starts-with($source, '#!lesml')">
+				<value-of select="substring-before($source, '&#xA;')"/>
+			</if>
+		</variable>
 		<variable name="noshebang">
 			<text>&#xA;</text>
 			<choose>
@@ -133,6 +139,53 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 				</otherwise>
 			</choose>
 		</variable>
+		<variable name="params-string">
+			<choose>
+				<when test="starts-with($shebang, '#!lesml@')">
+					<value-of select="substring-after($shebang, '$')"/>
+				</when>
+				<otherwise>
+					<value-of select="substring-after($shebang, '#!lesml')"/>
+				</otherwise>
+			</choose>
+		</variable>
+		<variable name="params-fragment">
+			<html:dl>
+				<if test="starts-with($shebang, '#!lesml@') and contains($shebang, '$')">
+					<html:div>
+						<html:dt>
+							<text> LANG </text>
+						</html:dt>
+						<html:dd>
+							<value-of select="substring-before(substring-after($shebang, '#!lesml@'), '$')"/>
+						</html:dd>
+					</html:div>
+				</if>
+				<for-each select="exslstr:tokenize($params-string)">
+					<choose>
+						<when test="contains(., '=')">
+							<html:div>
+								<html:dt>
+									<value-of select="substring-before(., '=')"/>
+								</html:dt>
+								<html:dd>
+									<value-of select="substring-after(., '=')"/>
+								</html:dd>
+							</html:div>
+						</when>
+						<otherwise>
+							<html:div>
+								<html:dt>
+									<value-of select="."/>
+								</html:dt>
+								<html:dd/>
+							</html:div>
+						</otherwise>
+					</choose>
+				</for-each>
+			</html:dl>
+		</variable>
+		<variable name="params" select="exsl:node-set($params-fragment)/*"/>
 		<variable name="records">
 			<call-template name="LesML:split">
 				<with-param name="source" select="$noshebang"/>
@@ -141,6 +194,19 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
 		</variable>
 		<variable name="record-nodes" select="exsl:node-set($records)/*"/>
 		<html:article>
+			<for-each select="$params/html:div/html:dt[string()=' LANG ']">
+				<attribute name="lang">
+					<value-of select="following-sibling::html:dd"/>
+				</attribute>
+				<attribute name="xml:lang">
+					<value-of select="following-sibling::html:dd"/>
+				</attribute>
+			</for-each>
+			<for-each select="$params/html:div/html:dt[string()='profile']">
+				<attribute name="data-lesml-profile">
+					<value-of select="following-sibling::html:dd"/>
+				</attribute>
+			</for-each>
 			<if test="count($record-nodes)>1">
 				<html:footer class="head">
 					<for-each select="$record-nodes[not(position()=last() or normalize-space(.)='')]">