# HG changeset patch
# User paulb
# Date 1128120823 0
# Node ID 15159e66b39a24598ffc172fe969f5124e809f8d
# Parent  f4a48f149140cc2e5135609050bb9b62e9f40d00
[project @ 2005-09-30 22:53:43 by paulb]
Added special "macro" attribute support: simpler attributes for use in
templates.
Also added experimental stylesheets for schema creation and for the
production of generic processing stylesheets.

diff -r f4a48f149140 -r 15159e66b39a XSLForms/XSL/PrepareMacro.xsl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/XSLForms/XSL/PrepareMacro.xsl	Fri Sep 30 22:53:43 2005 +0000
@@ -0,0 +1,62 @@
+<?xml version="1.0"?>
+<xsl:stylesheet version="1.0"
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  xmlns:template="http://www.boddie.org.uk/ns/xmltools/template">
+
+  <xsl:output indent="yes"/>
+
+  <xsl:template match="*[@template:attribute-field]">
+    <xsl:copy>
+      <xsl:apply-templates select="@*[local-name() != 'attribute-field']"/>
+      <xsl:attribute name="template:attribute"><xsl:value-of select="@template:attribute-field"/></xsl:attribute>
+      <xsl:attribute name="name">{template:this-attribute()}</xsl:attribute>
+      <xsl:attribute name="value">{$this-value}</xsl:attribute>
+      <xsl:apply-templates select="*|node()"/>
+    </xsl:copy>
+  </xsl:template>
+
+  <xsl:template match="*[@template:selector-field]">
+    <xsl:variable name="field-name" select="@template:selector-field"/>
+    <xsl:copy>
+      <xsl:apply-templates select="@*[local-name() != 'selector-field']"/>
+      <xsl:attribute name="name"><xsl:value-of select="$field-name"/>={template:this-element()}</xsl:attribute>
+      <xsl:apply-templates select="*|node()"/>
+    </xsl:copy>
+  </xsl:template>
+
+  <xsl:template match="*[@template:multiple-choice-field]">
+    <xsl:variable name="field-element" select="substring-before(@template:multiple-choice-field, ',')"/>
+    <xsl:variable name="field-attr" select="substring-after(@template:multiple-choice-field, ',')"/>
+    <xsl:copy>
+      <xsl:apply-templates select="@*[local-name() != 'multiple-choice-field']"/>
+      <xsl:attribute name="template:element"><xsl:value-of select="$field-element"/></xsl:attribute>
+      <xsl:attribute name="name">{template:new-attribute('<xsl:value-of select="$field-attr"/>')}</xsl:attribute>
+      <xsl:apply-templates select="*|node()"/>
+    </xsl:copy>
+  </xsl:template>
+
+  <xsl:template match="*[@template:multiple-choice-value]">
+    <xsl:variable name="field-element" select="substring-before(@template:multiple-choice-value, ',')"/>
+    <xsl:variable name="field-attr-info" select="substring-after(@template:multiple-choice-value, ',')"/>
+    <xsl:variable name="field-attr" select="substring-before($field-attr-info, ',')"/>
+    <xsl:variable name="field-set-attr" select="substring-after($field-attr-info, ',')"/>
+    <xsl:copy>
+      <xsl:apply-templates select="@*[local-name() != 'multiple-choice-value']"/>
+      <xsl:attribute name="template:element"><xsl:value-of select="$field-element"/></xsl:attribute>
+      <xsl:attribute name="template:expr">@<xsl:value-of select="$field-attr"/> = ../@<xsl:value-of select="$field-attr"/></xsl:attribute>
+      <xsl:attribute name="template:expr-attr"><xsl:value-of select="$field-set-attr"/></xsl:attribute>
+      <xsl:attribute name="template:value">@<xsl:value-of select="$field-attr"/></xsl:attribute>
+      <xsl:attribute name="value">{@<xsl:value-of select="$field-attr"/>}</xsl:attribute>
+      <xsl:apply-templates select="*|node()"/>
+    </xsl:copy>
+  </xsl:template>
+
+  <!-- Replicate unknown elements. -->
+
+  <xsl:template match="@*|node()">
+    <xsl:copy>
+      <xsl:apply-templates select="@*|node()"/>
+    </xsl:copy>
+  </xsl:template>
+
+</xsl:stylesheet>
diff -r f4a48f149140 -r 15159e66b39a XSLForms/XSL/Schema.xsl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/XSLForms/XSL/Schema.xsl	Fri Sep 30 22:53:43 2005 +0000
@@ -0,0 +1,100 @@
+<?xml version="1.0"?>
+<xsl:stylesheet version="1.0"
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  xmlns:template="http://www.boddie.org.uk/ns/xmltools/template">
+
+  <xsl:output indent="yes"/>
+
+
+
+  <!-- Match the document itself. -->
+
+  <xsl:template match="/">
+
+    <!-- Process the elements. -->
+    <xsl:apply-templates select="*"/>
+
+  </xsl:template>
+
+
+
+  <!-- Match element references. -->
+
+  <xsl:template match="*[@template:element]">
+    <xsl:call-template name="enter-element">
+      <xsl:with-param name="other-elements" select="@template:element"/>
+    </xsl:call-template>
+  </xsl:template>
+
+  <xsl:template name="enter-element">
+    <xsl:param name="other-elements"/>
+    <xsl:variable name="first-element" select="substring-before($other-elements, ',')"/>
+    <xsl:variable name="remaining-elements" select="substring-after($other-elements, ',')"/>
+    <xsl:choose>
+      <xsl:when test="$first-element = ''">
+        <xsl:call-template name="next-element">
+          <xsl:with-param name="first-element" select="$other-elements"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="next-element">
+          <xsl:with-param name="first-element" select="$first-element"/>
+          <xsl:with-param name="remaining-elements" select="$remaining-elements"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template name="next-element">
+    <xsl:param name="first-element"/>
+    <xsl:param name="remaining-elements"/>
+    <xsl:element name="element">
+      <xsl:attribute name="name"><xsl:value-of select="$first-element"/></xsl:attribute>
+      <xsl:choose>
+        <xsl:when test="$remaining-elements = ''">
+          <xsl:call-template name="enter-attribute"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:call-template name="enter-element">
+            <xsl:with-param name="other-elements" select="$remaining-elements"/>
+          </xsl:call-template>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:element>
+  </xsl:template>
+
+
+
+  <!-- Match attributes. -->
+
+  <xsl:template match="*[not(@template:element) and (@template:attribute or @template:expr-attr)]">
+    <xsl:call-template name="enter-attribute"/>
+  </xsl:template>
+
+  <xsl:template name="enter-attribute">
+    <xsl:choose>
+      <xsl:when test="@template:attribute">
+        <xsl:element name="attribute">
+          <xsl:attribute name="name"><xsl:value-of select="@template:attribute"/></xsl:attribute>
+        </xsl:element>
+      </xsl:when>
+      <xsl:when test="@template:expr-attr">
+        <xsl:element name="attribute">
+          <xsl:attribute name="name"><xsl:value-of select="@template:value"/></xsl:attribute>
+        </xsl:element>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates select="*"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+
+
+  <!-- Traverse unknown elements. -->
+
+  <xsl:template match="*">
+    <xsl:apply-templates select="*"/>
+  </xsl:template>
+
+</xsl:stylesheet>
diff -r f4a48f149140 -r 15159e66b39a XSLForms/XSL/Skeleton.xsl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/XSLForms/XSL/Skeleton.xsl	Fri Sep 30 22:53:43 2005 +0000
@@ -0,0 +1,113 @@
+<?xml version="1.0"?>
+<xsl:stylesheet version="1.0"
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  xmlns:axsl="http://www.w3.org/1999/XSL/TransformAlias"
+  xmlns:template="http://www.boddie.org.uk/ns/xmltools/template">
+
+  <xsl:output indent="yes"/>
+  <xsl:namespace-alias stylesheet-prefix="axsl" result-prefix="xsl"/>
+
+
+
+  <!-- Match the document itself. -->
+
+  <xsl:template match="/">
+    <axsl:stylesheet version="1.0">
+
+      <axsl:output indent="yes"/>
+
+      <axsl:template select="/">
+
+        <!-- Process the elements. -->
+        <xsl:apply-templates select="*"/>
+
+      </axsl:template>
+
+    </axsl:stylesheet>
+  </xsl:template>
+
+
+
+  <!-- Match element references. -->
+
+  <xsl:template match="*[@template:element]">
+    <xsl:call-template name="enter-element">
+      <xsl:with-param name="other-elements" select="@template:element"/>
+    </xsl:call-template>
+  </xsl:template>
+
+  <xsl:template name="enter-element">
+    <xsl:param name="other-elements"/>
+    <xsl:variable name="first-element" select="substring-before($other-elements, ',')"/>
+    <xsl:variable name="remaining-elements" select="substring-after($other-elements, ',')"/>
+    <xsl:choose>
+      <xsl:when test="$first-element = ''">
+        <xsl:call-template name="next-element">
+          <xsl:with-param name="first-element" select="$other-elements"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="next-element">
+          <xsl:with-param name="first-element" select="$first-element"/>
+          <xsl:with-param name="remaining-elements" select="$remaining-elements"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template name="next-element">
+    <xsl:param name="first-element"/>
+    <xsl:param name="remaining-elements"/>
+    <axsl:for-each select="{$first-element}">
+      <axsl:element name="{$first-element}">
+      <xsl:choose>
+        <xsl:when test="$remaining-elements = ''">
+          <xsl:call-template name="enter-attribute"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:call-template name="enter-element">
+            <xsl:with-param name="other-elements" select="$remaining-elements"/>
+          </xsl:call-template>
+        </xsl:otherwise>
+      </xsl:choose>
+      </axsl:element>
+    </axsl:for-each>
+  </xsl:template>
+
+
+
+  <!-- Match special expression attributes. -->
+
+  <xsl:template match="*[not(@template:element) and @template:attribute]">
+    <xsl:call-template name="enter-attribute"/>
+  </xsl:template>
+
+  <xsl:template name="enter-attribute">
+    <xsl:choose>
+      <xsl:when test="@template:attribute">
+        <axsl:choose>
+          <axsl:when test="@{@template:attribute}">
+            <axsl:attribute name="{@template:attribute}"><axsl:value-of select="@{@template:attribute}"/></axsl:attribute>
+            <xsl:apply-templates select="*"/>
+          </axsl:when>
+          <axsl:otherwise>
+            <axsl:attribute name="{@template:attribute}"/>
+            <xsl:apply-templates select="*"/>
+          </axsl:otherwise>
+        </axsl:choose>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates select="*"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+
+
+  <!-- Traverse unknown elements. -->
+
+  <xsl:template match="*">
+    <xsl:apply-templates select="*"/>
+  </xsl:template>
+
+</xsl:stylesheet>