# HG changeset patch
# User paulb
# Date 1104372215 0
# Node ID 8ba9ea11cbe5bec2c2570857a1a3d75ab0f3dc0d
# Parent  8b720272b3123809cd49538dfd1a053ef1e76901
[project @ 2004-12-30 02:03:30 by paulb]
Added another example application.

diff -r 8b720272b312 -r 8ba9ea11cbe5 examples/BaseHTTPRequestHandler/ConfiguratorApp.py
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/BaseHTTPRequestHandler/ConfiguratorApp.py	Thu Dec 30 02:03:35 2004 +0000
@@ -0,0 +1,15 @@
+#!/usr/bin/env python
+
+from WebStack.Adapters import BaseHTTPRequestHandler
+from Configurator import ConfiguratorResource
+import BaseHTTPServer
+
+# Special magic incantation.
+
+handler = BaseHTTPRequestHandler.HandlerFactory(ConfiguratorResource())
+address = ("", 8080)
+server = BaseHTTPServer.HTTPServer(address, handler)
+print "Serving..."
+server.serve_forever()
+
+# vim: tabstop=4 expandtab shiftwidth=4
diff -r 8b720272b312 -r 8ba9ea11cbe5 examples/Common/Configurator/Resources/config_database.xml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/Common/Configurator/Resources/config_database.xml	Thu Dec 30 02:03:35 2004 +0000
@@ -0,0 +1,38 @@
+<?xml version="1.0"?>
+<database>
+  <base-system>
+    <base-system-enum value="(Not selected)" price="0"/>
+    <base-system-enum value="Shuttle SB61G2V3" price="2174"/>
+    <base-system-enum value="Shuttle SB65G2" price="2700"/>
+  </base-system>
+  <cpu>
+    <cpu-enum value="(Not selected)" price="0"/>
+    <cpu-enum value="Pentium 4 3.0 GHz" price="1650"/>
+    <cpu-enum value="Athlon 3000+" price="1500"/>
+  </cpu>
+  <memory-unit>
+    <memory-unit-enum value="(Not selected)" price="0"/>
+    <memory-unit-enum value="PC3200 DDR RAM 256MB" price="500"/>
+    <memory-unit-enum value="PC3200 DDR RAM 512MB" price="800"/>
+  </memory-unit>
+  <storage-unit>
+    <storage-unit-enum value="(Not selected)" price="0"/>
+    <storage-unit-enum value="CD-ROM 48x" price="200"/>
+    <storage-unit-enum value="CD-RW 48x/24x/48x" price="400"/>
+    <storage-unit-enum value="DVD+-RW 8x" price="750"/>
+  </storage-unit>
+  <hard-disk>
+    <hard-disk-enum value="(Not selected)" price="0"/>
+    <hard-disk-enum value="ATA-133 80GB" price="600"/>
+    <hard-disk-enum value="ATA-133 160GB" price="1000"/>
+  </hard-disk>
+  <keyboard>
+    <keyboard-enum value="(Not selected)" price="0"/>
+  </keyboard>
+  <mouse>
+    <mouse-enum value="(Not selected)" price="0"/>
+  </mouse>
+  <screen>
+    <screen-enum value="(Not selected)" price="0"/>
+  </screen>
+</database>
diff -r 8b720272b312 -r 8ba9ea11cbe5 examples/Common/Configurator/Resources/config_database.xsl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/Common/Configurator/Resources/config_database.xsl	Thu Dec 30 02:03:35 2004 +0000
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                xmlns:template="http://www.boddie.org.uk/ns/xmltools/template"
+                version="1.0">
+
+  <xsl:param name="database"/>
+
+  <xsl:template match="configuration">
+    <xsl:copy>
+      <xsl:apply-templates select="@*"/>
+      <!-- Complete all multiple choice fields. -->
+      <details>
+        <xsl:call-template name="complete-element">
+          <xsl:with-param name="found-elements" select="details/base-system"/>
+          <xsl:with-param name="element-name">base-system</xsl:with-param>
+        </xsl:call-template>
+        <xsl:call-template name="complete-element">
+          <xsl:with-param name="found-elements" select="details/cpu"/>
+          <xsl:with-param name="element-name">cpu</xsl:with-param>
+        </xsl:call-template>
+      </details>
+      <memory>
+        <xsl:for-each select="memory/memory-unit">
+          <xsl:call-template name="complete-element">
+            <xsl:with-param name="found-elements" select="."/>
+            <xsl:with-param name="element-name">memory-unit</xsl:with-param>
+          </xsl:call-template>
+        </xsl:for-each>
+      </memory>
+      <hard-disks>
+        <xsl:for-each select="hard-disks/hard-disk">
+          <xsl:call-template name="complete-element">
+            <xsl:with-param name="found-elements" select="."/>
+            <xsl:with-param name="element-name">hard-disk</xsl:with-param>
+          </xsl:call-template>
+        </xsl:for-each>
+      </hard-disks>
+      <storage>
+        <xsl:for-each select="storage/storage-unit">
+          <xsl:call-template name="complete-element">
+            <xsl:with-param name="found-elements" select="."/>
+            <xsl:with-param name="element-name">storage-unit</xsl:with-param>
+          </xsl:call-template>
+        </xsl:for-each>
+      </storage>
+      <peripherals>
+        <xsl:call-template name="complete-element">
+          <xsl:with-param name="found-elements" select="peripherals/keyboard"/>
+          <xsl:with-param name="element-name">keyboard</xsl:with-param>
+        </xsl:call-template>
+        <xsl:call-template name="complete-element">
+          <xsl:with-param name="found-elements" select="peripherals/mouse"/>
+          <xsl:with-param name="element-name">mouse</xsl:with-param>
+        </xsl:call-template>
+        <xsl:call-template name="complete-element">
+          <xsl:with-param name="found-elements" select="peripherals/screen"/>
+          <xsl:with-param name="element-name">screen</xsl:with-param>
+        </xsl:call-template>
+      </peripherals>
+    </xsl:copy>
+  </xsl:template>
+
+  <xsl:template name="complete-element">
+    <xsl:param name="found-elements"/>
+    <xsl:param name="element-name"/>
+    <xsl:variable name="element-enum-name"><xsl:value-of select="$element-name"/>-enum</xsl:variable>
+    <xsl:variable name="has-set-values" select="$found-elements[@value]"/>
+    <!-- Make the element with the different values. -->
+    <xsl:element name="{$element-name}">
+      <!-- Find the values in the database. -->
+      <xsl:for-each select="$database/database/*[local-name() = $element-name]/*[local-name() = $element-enum-name]">
+        <xsl:variable name="enum-element" select="."/>
+        <!-- Copy each option. -->
+        <xsl:copy>
+          <!-- Only include the value, adding the price only if the item is selected. -->
+          <xsl:apply-templates select="@value"/>
+          <!-- Find whether this item is selected. -->
+          <xsl:choose>
+            <!-- In the current field, the value attribute matches this value. -->
+            <xsl:when test="$found-elements[@value = $enum-element/@value]">
+              <xsl:attribute name="value-is-set">true</xsl:attribute>
+              <xsl:apply-templates select="@price"/>
+            </xsl:when>
+            <!-- This value is the first and no value attribute is specified. -->
+            <xsl:when test="not($has-set-values) and count($enum-element/preceding-sibling::*) = 0">
+              <xsl:attribute name="value-is-set">true</xsl:attribute>
+              <xsl:apply-templates select="@price"/>
+            </xsl:when>
+            <xsl:otherwise/>
+          </xsl:choose>
+        </xsl:copy>
+      </xsl:for-each>
+    </xsl:element>
+  </xsl:template>
+
+  <!-- Replicate unknown elements. -->
+
+  <xsl:template match="@*|node()">
+    <xsl:copy>
+      <xsl:apply-templates select="@*|node()"/>
+    </xsl:copy>
+  </xsl:template>
+
+</xsl:stylesheet>
diff -r 8b720272b312 -r 8ba9ea11cbe5 examples/Common/Configurator/Resources/config_input.xml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/Common/Configurator/Resources/config_input.xml	Thu Dec 30 02:03:35 2004 +0000
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+<configuration>
+  <details>
+    <base-system value="Shuttle SB65G2"/>
+    <cpu value="Pentium 4 3.0 GHz"/>
+  </details>
+  <memory>
+    <memory-unit value="PC3200 DDR RAM 512MB"/>
+    <memory-unit value="PC3200 DDR RAM 256MB"/>
+  </memory>
+</configuration>
diff -r 8b720272b312 -r 8ba9ea11cbe5 examples/Common/Configurator/Resources/config_template.xhtml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/Common/Configurator/Resources/config_template.xhtml	Thu Dec 30 02:03:35 2004 +0000
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
+       "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml"
+ xmlns:template="http://www.boddie.org.uk/ns/xmltools/template">
+<head>
+  <title>System Configurator</title>
+  <meta name="generator" content="amaya 8.1a, see http://www.w3.org/Amaya/" />
+  <link xmlns:xlink="http://www.w3.org/1999/xlink" href="styles.css"
+  rel="stylesheet" type="text/css" />
+</head>
+
+<body>
+<h1>System Configurator</h1>
+
+<form method="post" action="" template:element="configuration">
+<div id="left">
+  <div template:element="details" class="details">
+  <h2>Base System</h2>
+
+  <p template:element="base-system">Model 
+  <select name="{template:multi-field-name('value')}">
+    <option template:element="base-system-enum" template:expr="@value-is-set" template:expr-attr="selected" template:value="@value"
+    value="{@value}"></option>
+  </select>
+  </p>
+
+  <h2>Processor</h2>
+
+  <p template:element="cpu">CPU 
+  <select name="{template:multi-field-name('value')}">
+    <option template:element="cpu-enum" template:expr="@value-is-set" template:expr-attr="selected" template:value="@value"
+    value="{@value}"></option>
+  </select>
+  </p>
+  </div>
+
+  <div template:element="memory" class="memory">
+  <h2>Memory</h2>
+
+  <p template:element="memory-unit">Memory unit 
+  <select name="{template:multi-field-name('value')}">
+    <option template:element="memory-unit-enum" template:expr="@value-is-set" template:expr-attr="selected" template:value="@value"
+    value="{@value}"></option>
+  </select>
+   
+  <input type="submit" value="Remove"
+  name="remove-memory-unit={template:this-position()}" /></p>
+
+  <p>
+  <input type="submit" value="Add memory"
+  name="add-memory-unit={template:this-position()}" /></p>
+  </div>
+</div>
+<div id="right">
+  <div template:element="hard-disks" class="hard-disks">
+  <h2>Hard Disks</h2>
+
+  <p template:element="hard-disk">Hard disk drive 
+  <select name="{template:multi-field-name('value')}">
+    <option template:element="hard-disk-enum" template:expr="@value-is-set" template:expr-attr="selected" template:value="@value"
+    value="{@value}"></option>
+  </select>
+   
+  <input type="submit" value="Remove"
+  name="remove-hard-disk={template:this-position()}" /></p>
+
+  <p>
+  <input type="submit" value="Add hard disk"
+  name="add-hard-disk={template:this-position()}" /></p>
+  </div>
+
+  <div template:element="storage" class="storage">
+  <h2>Additional Storage</h2>
+
+  <p template:element="storage-unit">Storage unit 
+  <select name="{template:multi-field-name('value')}">
+    <option template:element="storage-unit-enum" template:expr="@value-is-set" template:expr-attr="selected" template:value="@value"
+    value="{@value}"></option>
+  </select>
+   
+  <input type="submit" value="Remove"
+  name="remove-storage-unit={template:this-position()}" /></p>
+
+  <p>
+  <input type="submit" value="Add storage"
+  name="add-storage-unit={template:this-position()}" /></p>
+  </div>
+</div>
+<div id="bottom">
+  <div template:element="peripherals" class="peripherals">
+  <h2>Input Devices</h2>
+
+  <p template:element="keyboard">Keyboard 
+  <select name="{template:multi-field-name('value')}">
+    <option template:element="keyboard-enum" template:expr="@value-is-set" template:expr-attr="selected" template:value="@value"
+    value="{@value}"></option>
+  </select>
+  </p>
+
+  <p template:element="mouse">Mouse 
+  <select name="{template:multi-field-name('value')}">
+    <option template:element="mouse-enum" template:expr="@value-is-set" template:expr-attr="selected" template:value="@value"
+    value="{@value}"></option>
+  </select>
+  </p>
+
+  <h2>Display</h2>
+
+  <p template:element="screen">Screen 
+  <select name="{template:multi-field-name('value')}">
+    <option template:element="screen-enum" template:expr="@value-is-set" template:expr-attr="selected" template:value="@value"
+    value="{@value}"></option>
+  </select>
+  </p>
+  </div>
+
+  <div class="price">
+  <h2>Price</h2>
+
+  <p>Total for this configuration:
+  <span template:value="sum(/configuration//*/@price)"></span></p>
+
+  <p>
+  <input type="submit" value="Update!" name="update" />
+  <input type="submit" value="Export!" name="export" /></p>
+  </div>
+</div>
+</form>
+</body>
+</html>
diff -r 8b720272b312 -r 8ba9ea11cbe5 examples/Common/Configurator/Resources/styles.css
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/Common/Configurator/Resources/styles.css	Thu Dec 30 02:03:35 2004 +0000
@@ -0,0 +1,40 @@
+#left {
+    float: left;
+    width: 50%;
+}
+
+#right {
+    float: right;
+    width: 50%;
+}
+
+#bottom {
+    position: relative;
+    width: 100%;
+}
+
+div.details {
+    width: 100%;
+}
+
+div.memory {
+    width: 100%;
+}
+
+div.hard-disks {
+    width: 100%;
+}
+
+div.storage {
+    width: 100%;
+}
+
+div.peripherals {
+    float: right;
+    width: 50%;
+}
+
+div.price {
+    float: left;
+    width: 50%;
+}
diff -r 8b720272b312 -r 8ba9ea11cbe5 examples/Common/Configurator/__init__.py
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/Common/Configurator/__init__.py	Thu Dec 30 02:03:35 2004 +0000
@@ -0,0 +1,129 @@
+#!/usr/bin/env python
+
+"A WebStack application for a system configurator."
+
+import WebStack.Generic
+import XSLForms.Fields
+import XSLForms.Output
+import XSLOutput
+import libxml2dom
+import os
+
+# NOTE: Move these functions into a common utility library.
+
+def add_elements(positions, element_name, element_parent_name=None):
+    if not positions:
+        return
+    for position in positions:
+        if element_parent_name:
+            parent_elements = position.xpath(element_parent_name)
+            if not parent_elements:
+                parent_element = position.ownerDocument.createElementNS(None, element_parent_name)
+                position.appendChild(parent_element)
+            else:
+                parent_element = parent_elements[0]
+        else:
+            parent_element = position
+        parent_element.appendChild(position.ownerDocument.createElementNS(None, element_name))
+
+def remove_elements(positions):
+    if not positions:
+        return
+    for position in positions:
+        position.parentNode.removeChild(position)
+
+class ConfiguratorResource:
+
+    "A resource providing a system configurator."
+
+    resource_dir = os.path.join(os.path.split(__file__)[0], "Resources")
+    encoding = "utf-8"
+
+    def respond(self, trans):
+
+        # Produce stylesheet.
+
+        if trans.get_path_info().split("/")[-1] == "styles.css":
+            trans.set_content_type(WebStack.Generic.ContentType("text/css", self.encoding))
+            out = trans.get_response_stream()
+            f = open(os.path.join(self.resource_dir, "styles.css"), "rb")
+            out.write(f.read())
+            f.close()
+            raise WebStack.Generic.EndOfResponse
+
+        global XSLForms # NOTE: Strangely required to avoid UnboundLocalError!
+        method = trans.get_request_method()
+
+        # Only obtain field information according to the stated method.
+
+        if method == "GET":
+            fields = XSLForms.Fields.Fields(encoding="iso-8859-1", values_are_lists=1)
+            parameters = trans.get_fields_from_path()
+            documents = fields.make_documents(parameters.items())
+        elif method == "POST":
+            fields = XSLForms.Fields.Fields(encoding=self.encoding, values_are_lists=1)
+            parameters = trans.get_fields_from_body(self.encoding)
+            documents = fields.make_documents(parameters.items())
+        else:
+            trans.set_response_code(405)
+            raise WebStack.Generic.EndOfResponse
+
+        # Ensure the presence of a document.
+
+        if documents.has_key("configuration"):
+            configuration = documents["configuration"]
+        else:
+            configuration = fields.new_instance("configuration")
+
+        # Add and remove elements according to the selectors found.
+
+        selectors = fields.get_selectors(parameters.items(), documents)
+        add_elements(selectors.get("add-memory-unit"), "memory-unit")
+        remove_elements(selectors.get("remove-memory-unit"))
+        add_elements(selectors.get("add-storage-unit"), "storage-unit")
+        remove_elements(selectors.get("remove-storage-unit"))
+        add_elements(selectors.get("add-hard-disk"), "hard-disk")
+        remove_elements(selectors.get("remove-hard-disk"))
+
+        # Send a response according to certain parameters.
+        # When exported, an XML version of the data is returned.
+
+        if parameters.has_key("export"):
+            trans.set_content_type(WebStack.Generic.ContentType("text/xml", self.encoding))
+            libxml2dom.toStream(configuration, trans.get_response_stream(), trans.get_response_stream_encoding())
+
+        # When not exported, the data is transformed to produce a normal Web
+        # page.
+
+        else:
+
+            # Transform, adding enumerations/ranges.
+
+            database_xsl = os.path.join(self.resource_dir, "config_database.xsl")
+            database_xml = os.path.join(self.resource_dir, "config_database.xml")
+            proc = XSLOutput.Processor([database_xsl], {"database" : database_xml})
+            configuration = proc.get_result(configuration)
+
+            # Start the response.
+
+            trans.set_content_type(WebStack.Generic.ContentType("text/html", self.encoding))
+
+            # Ensure that an output stylesheet exists.
+
+            trans_xsl = os.path.join(self.resource_dir, "config_output.xsl")
+            template_xml = os.path.join(self.resource_dir, "config_template.xhtml")
+
+            if not os.path.exists(trans_xsl) or \
+                os.path.getmtime(trans_xsl) < os.path.getmtime(template_xml):
+
+                import XSLForms.Prepare
+                template_xml = os.path.join(self.resource_dir, "config_template.xhtml")
+                XSLForms.Prepare.make_stylesheet(template_xml, trans_xsl)
+
+            # Complete the response.
+
+            proc = XSLOutput.Processor([trans_xsl])
+            proc.send_output(trans.get_response_stream(), trans.get_response_stream_encoding(),
+                configuration)
+
+# vim: tabstop=4 expandtab shiftwidth=4