76 lines
2.6 KiB
HTML
Executable file
76 lines
2.6 KiB
HTML
Executable file
<?xml version="1.0" encoding="UTF-8" ?>
|
|
<!--
|
|
Application Description Language framework
|
|
base-type-include.xslt
|
|
|
|
(c) 2007 Cygnet Solutions Ltd
|
|
|
|
An xsl transform intended to be included into other XSL stylesheets,
|
|
intended to keep lookup of the ADL base type from ADL properties in
|
|
one place for ease of maintenance
|
|
|
|
$Author: sb $
|
|
$Revision: 1.3 $
|
|
$Date: 2009-04-28 13:53:17 $
|
|
-->
|
|
|
|
<xsl:stylesheet version="1.0"
|
|
xmlns="http://libs.cygnets.co.uk/adl/1.3/"
|
|
xmlns:adl="http://libs.cygnets.co.uk/adl/1.3/"
|
|
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
|
|
exclude-result-prefixes="adl">
|
|
|
|
|
|
<!-- return the base ADL type of the property which is passed as a parameter -->
|
|
<xsl:template name="base-type">
|
|
<xsl:param name="property"/>
|
|
<xsl:choose>
|
|
<xsl:when test="$property/@type='defined'">
|
|
<xsl:variable name="definition">
|
|
<xsl:value-of select="$property/@typedef"/>
|
|
</xsl:variable>
|
|
<xsl:value-of select="/adl:application/adl:typedef[@name=$definition]/@type"/>
|
|
</xsl:when>
|
|
<xsl:when test="$property/@type='serial'">integer</xsl:when>
|
|
<xsl:when test="$property/@type='message'">integer</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="$property/@type"/>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
<!-- return the size of the type of the property which is passed as a parameter -->
|
|
<xsl:template name="base-size">
|
|
<xsl:param name="property"/>
|
|
<xsl:variable name="base-type">
|
|
<xsl:call-template name="base-type">
|
|
<xsl:with-param name="property" select="$property"/>
|
|
</xsl:call-template>
|
|
</xsl:variable>
|
|
<xsl:choose>
|
|
<xsl:when test="$property/@type='defined'">
|
|
<xsl:variable name="definition">
|
|
<xsl:value-of select="$property/@typedef"/>
|
|
</xsl:variable>
|
|
<xsl:value-of select="/adl:application/adl:typedef[@name=$definition]/@size"/>
|
|
</xsl:when>
|
|
<!-- type='text' should really be unlimited, but in the real world it isn't.
|
|
Furthermore, setting null values may currently break the smart form components
|
|
parser -->
|
|
<xsl:when test="$base-type='text'">4294967296</xsl:when>
|
|
<xsl:when test="$base-type='integer'">8</xsl:when>
|
|
<xsl:when test="$base-type='real'">8</xsl:when>
|
|
<xsl:when test="$base-type='money'">10</xsl:when>
|
|
<xsl:when test="$base-type='date'">10</xsl:when>
|
|
<xsl:when test="$base-type='time'">8</xsl:when>
|
|
<xsl:when test="$property/@size > 0">
|
|
<xsl:value-of select="$property/@size"/>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="$base-type"/>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
</xsl:stylesheet>
|