# HG changeset patch
# User paulb
# Date 1133373738 0
# Node ID a50434d7ec7c78db939ea52032370e9775415dde
# Parent  fa1d599adf9b63c83e2083ac0aff2d40e8150c1b
[project @ 2005-11-30 18:02:18 by paulb]
Added multiple-choice value label support (which includes additional node
copying in the initialisation of enumerations).
Added documentation.

diff -r fa1d599adf9b -r a50434d7ec7c XSLForms/XSL/Input.xsl
--- a/XSLForms/XSL/Input.xsl	Wed Nov 30 18:01:12 2005 +0000
+++ b/XSLForms/XSL/Input.xsl	Wed Nov 30 18:02:18 2005 +0000
@@ -1,5 +1,8 @@
 <?xml version="1.0"?>
 <!--
+A stylesheet which produces initialisation/input stylesheets for a particular
+kind of document.
+
 Copyright (C) 2005 Paul Boddie <paul@boddie.org.uk>
 
 This library is free software; you can redistribute it and/or
@@ -237,6 +240,8 @@
             <axsl:attribute name="{@expr-name}">true</axsl:attribute>
           </axsl:if>
         </xsl:if>
+        <!-- Include child nodes, if provided. -->
+        <axsl:copy-of select="node()"/>
       </axsl:copy>
     </axsl:for-each>
   </xsl:template>
diff -r fa1d599adf9b -r a50434d7ec7c XSLForms/XSL/Prepare.xsl
--- a/XSLForms/XSL/Prepare.xsl	Wed Nov 30 18:01:12 2005 +0000
+++ b/XSLForms/XSL/Prepare.xsl	Wed Nov 30 18:02:18 2005 +0000
@@ -1,5 +1,9 @@
 <?xml version="1.0"?>
 <!--
+A stylesheet which takes lower-level template annotations and produces an output
+stylesheet - something which is capable of transforming XML documents into Web
+pages or other kinds of XML documents.
+
 Copyright (C) 2005 Paul Boddie <paul@boddie.org.uk>
 
 This library is free software; you can redistribute it and/or
diff -r fa1d599adf9b -r a50434d7ec7c XSLForms/XSL/PrepareMacro.xsl
--- a/XSLForms/XSL/PrepareMacro.xsl	Wed Nov 30 18:01:12 2005 +0000
+++ b/XSLForms/XSL/PrepareMacro.xsl	Wed Nov 30 18:02:18 2005 +0000
@@ -1,5 +1,9 @@
 <?xml version="1.0"?>
 <!--
+A stylesheet which expands the higher-level macro attributes, producing
+lower-level attributes that can be translated into the final output stylesheet
+code.
+
 Copyright (C) 2005 Paul Boddie <paul@boddie.org.uk>
 
 This library is free software; you can redistribute it and/or
@@ -23,6 +27,7 @@
   <xsl:output indent="yes"/>
 
   <!-- Input fields. -->
+  <!-- Format: attribute -->
 
   <xsl:template match="*[@template:attribute-field]">
     <xsl:copy>
@@ -36,6 +41,7 @@
   </xsl:template>
 
   <!-- Text areas and other elements without value attributes. -->
+  <!-- Format: attribute[,effect] -->
 
   <xsl:template match="*[@template:attribute-area]">
     <xsl:variable name="field-attr" select="substring-before(@template:attribute-area, ',')"/>
@@ -62,6 +68,7 @@
   </xsl:template>
 
   <!-- Buttons whose state varies according to an attribute. -->
+  <!-- Format: attribute,value,attribute-to-set -->
 
   <xsl:template match="*[@template:attribute-button]">
     <xsl:variable name="field-attr" select="substring-before(@template:attribute-button, ',')"/>
@@ -81,6 +88,7 @@
   </xsl:template>
 
   <!-- Buttons whose state varies according to an attribute in a list of multiple choice elements. -->
+  <!-- Format: attribute,attribute-to-set -->
 
   <xsl:template match="*[@template:attribute-list-button]">
     <xsl:variable name="field-attr" select="substring-before(@template:attribute-list-button, ',')"/>
@@ -98,6 +106,7 @@
   </xsl:template>
 
   <!-- Selectors. -->
+  <!-- Format: name[,affected-element] -->
 
   <xsl:template match="*[@template:selector-field]">
     <xsl:variable name="field-name" select="substring-before(@template:selector-field, ',')"/>
@@ -118,6 +127,7 @@
   </xsl:template>
 
   <!-- Multiple choice fields, represented by menus and listboxes. -->
+  <!-- Format: element,attribute[,attribute-type] -->
 
   <xsl:template match="*[@template:multiple-choice-field]">
     <xsl:variable name="field-element" select="substring-before(@template:multiple-choice-field, ',')"/>
@@ -148,6 +158,7 @@
   </xsl:template>
 
   <!-- Multiple choice list fields, represented by menus and listboxes with multiple values. -->
+  <!-- Format: element,list-element,list-attribute -->
 
   <xsl:template match="*[@template:multiple-choice-list-field]">
     <xsl:variable name="field-element" select="substring-before(@template:multiple-choice-list-field, ',')"/>
@@ -167,44 +178,73 @@
   </xsl:template>
 
   <!-- Multiple choice values, represented by option elements. -->
+  <!-- Format: element,attribute,attribute-to-set[,contents-expr] -->
 
   <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:variable name="field-set-attr-info" select="substring-after($field-attr-info, ',')"/>
+    <xsl:variable name="field-set-attr" select="substring-before($field-set-attr-info, ',')"/>
+    <xsl:variable name="field-contents" select="substring-after($field-set-attr-info, ',')"/>
     <xsl:copy>
       <!-- Remove multiple-choice-value and replace value. -->
       <xsl:apply-templates select="@*[local-name() != 'multiple-choice-value' and local-name() != '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>
+      <!-- For the option text... -->
+      <xsl:choose>
+        <!-- Either provide the stated attribute as the eventual text of an option element. -->
+        <xsl:when test="$field-set-attr = ''">
+          <xsl:attribute name="template:expr-attr"><xsl:value-of select="$field-set-attr-info"/></xsl:attribute>
+          <xsl:attribute name="template:value">@<xsl:value-of select="$field-attr"/></xsl:attribute>
+        </xsl:when>
+        <!-- Or get the specific contents. -->
+        <xsl:otherwise>
+          <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-contents"/></xsl:attribute>
+        </xsl:otherwise>
+      </xsl:choose>
       <xsl:attribute name="value">{@<xsl:value-of select="$field-attr"/>}</xsl:attribute>
       <xsl:apply-templates select="*|node()"/>
     </xsl:copy>
   </xsl:template>
 
   <!-- Multiple choice list values, represented by option elements. -->
+  <!-- Format: list-element,list-attribute,attribute-to-set[,contents-expr] -->
 
   <xsl:template match="*[@template:multiple-choice-list-value]">
     <xsl:variable name="field-element" select="substring-before(@template:multiple-choice-list-value, ',')"/>
     <xsl:variable name="field-attr-info" select="substring-after(@template:multiple-choice-list-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:variable name="field-set-attr-info" select="substring-after($field-attr-info, ',')"/>
+    <xsl:variable name="field-set-attr" select="substring-before($field-set-attr-info, ',')"/>
+    <xsl:variable name="field-contents" select="substring-after($field-set-attr-info, ',')"/>
     <xsl:copy>
       <!-- Remove multiple-choice-value and replace value. -->
       <xsl:apply-templates select="@*[local-name() != 'multiple-choice-list-value' and local-name() != 'value']"/>
       <xsl:attribute name="template:element"><xsl:value-of select="$field-element"/></xsl:attribute>
       <xsl:attribute name="template:expr">@value-is-set</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>
+      <!-- For the option text... -->
+      <xsl:choose>
+        <!-- Either provide the stated attribute as the eventual text of an option element. -->
+        <xsl:when test="$field-set-attr = ''">
+          <xsl:attribute name="template:expr-attr"><xsl:value-of select="$field-set-attr-info"/></xsl:attribute>
+          <xsl:attribute name="template:value">@<xsl:value-of select="$field-attr"/></xsl:attribute>
+        </xsl:when>
+        <!-- Or get the specific contents. -->
+        <xsl:otherwise>
+          <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-contents"/></xsl:attribute>
+        </xsl:otherwise>
+      </xsl:choose>
       <xsl:attribute name="value">{@<xsl:value-of select="$field-attr"/>}</xsl:attribute>
       <xsl:apply-templates select="*|node()"/>
     </xsl:copy>
   </xsl:template>
 
   <!-- Multiple choice elements. -->
+  <!-- Format: element,list-element,list-attribute -->
 
   <xsl:template match="*[@template:multiple-choice-list-element]">
     <xsl:variable name="element" select="substring-before(@template:multiple-choice-list-element, ',')"/>