--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/sysmodellibs/sysmodelgen/src/svg/validate-raw.xsl Thu Mar 11 18:20:56 2010 +0200
@@ -0,0 +1,173 @@
+<stylesheet version="1.0" xmlns="http://www.w3.org/1999/XSL/Transform" xmlns:set="http://exslt.org/sets">
+<output method="text"/>
+<key name="name" match="component|collection|block|subblock|layer" use="@name"/>
+
+<template match="/*" priority="-1">
+ERROR: Invalid root element: <value-of select="name()"/>
+</template>
+
+<template match="*" priority="-5">
+ERROR: Invalid element: <value-of select="name()"/>
+</template>
+
+
+<template match="component/Build"/> <!-- for depmodel -->
+
+<template match="@*" priority="-5">
+NOTE: unexpected attribute "<value-of select="name()"/>" on <<value-of select="name(..)"/>></template>
+
+
+<template match="text()">
+<if test="normalize-space(.)!=''">
+ERROR: unexepected text: <value-of select="."/></if>
+</template>
+
+
+<template match="/SystemDefinition">
+<if test="not(@name)">
+Note: missing System Definition name</if>
+<for-each select="systemModel//*[@name]">
+ <if test="count(key('name',@name)) > 1">
+ERROR: duplicate name for <value-of select="name()"/> "<value-of select="@name"/>" (<value-of select="count(key('name',@name))"/>) <apply-templates mode="location" select=".."/></if>
+</for-each>
+<apply-templates select="@schema | node()"/>
+<call-template name="extra-atts"/>
+<call-template name="extra-atts"><with-param name="item">collection</with-param></call-template>
+<call-template name="extra-atts"><with-param name="item">subblock</with-param></call-template>
+<call-template name="extra-atts"><with-param name="item">block</with-param></call-template>
+<call-template name="extra-atts"><with-param name="item">layer</with-param></call-template>
+<variable name="levels">
+ <for-each select="set:distinct(//@level)">
+ <value-of select="concat(.,' ')"/>
+ </for-each>
+ </variable>
+<if test="$levels!=''">
+Note: Level names used: <value-of select="normalize-space($levels)"/></if>
+</template>
+
+<template name="extra-atts"><param name="item">component</param>
+<variable name="atts">
+ <for-each select="//*[name()=$item]/@*"><variable name="n" select="name()"/>
+ <if test="not(following::*[name()=$item]/@*[name()=$n])">
+ <apply-templates mode="extra" select="."/></if>
+ </for-each>
+</variable>
+<if test="$atts!=''">
+Note: Extra <value-of select="$item"/> attributes: <value-of select="normalize-space($atts)"/></if>
+</template>
+
+<template match="@*" mode="extra">
+ <value-of select="concat(name(), ' ')"/>
+</template>
+
+
+<template match="collection/@level | block/@level | block/@span | layer/@span| layer/@levels | block/@levels | @name |component/@filter |component/@contract |component/@deprecated |component/@class |component/@introduced |component/@plugin" mode="extra"/>
+
+
+<template match="/SystemDefinition/@schema">
+<choose>
+ <when test="starts-with(.,'2.')"/>
+ <when test="starts-with(.,'1.')">
+WARNING: 1.x syntax checking not fully supported</when>
+<otherwise>
+ERROR: unsupported syntax: <value-of select="."/></otherwise>
+</choose>
+</template>
+
+
+
+<template match="@level">
+WARNING: invalid attribute "<value-of select="name()"/>" on <<value-of select="name(..)"/>></template>
+
+<template match="systemModel/layer|layer/block|block/subblock|layer/collection| block/collection| subblock/collection|collection/component">
+ <apply-templates select="@*|node()"/>
+</template>
+
+
+<template match="layer|block|subblock|collection|component" priority="-3">
+ERROR: <<value-of select="name()"/> name="<value-of select="@name"/>"> cannot be a child of <<value-of select="name(..)"/>></template>
+
+
+
+<template match="block/@level">
+<if test="not(contains(concat(' ',normalize-space(../../@levels), ' '),concat(' ',normalize-space(.), ' ')))">
+ERROR: Invalid level name "<value-of select="."/>" on <value-of select="name(..)"/> "<value-of select="../@name"/>" (<value-of select="../../@levels"/>)</if>
+</template>
+
+<template match="collection/@level">
+<choose>
+ <when test="ancestor::block/@levels">
+ <if test="not(contains(concat(' ',normalize-space(ancestor::block/@levels), ' '),concat(' ',normalize-space(.), ' ')))">
+ERROR: Invalid level name "<value-of select="."/>" on <value-of select="name(..)"/> "<value-of select="../@name"/>" (<value-of select="../../@levels"/>)</if>
+ </when>
+ <otherwise>
+ <if test="not(contains(concat(' ',normalize-space(ancestor::layer/@levels), ' '),concat(' ',normalize-space(.), ' ')))">
+ERROR: Invalid level name "<value-of select="."/>" on <value-of select="name(..)"/> "<value-of select="../@name"/>" (<value-of select="../../@levels"/>)</if>
+ </otherwise>
+</choose>
+</template>
+
+
+
+<template match="component/@plugin">
+ <if test=".!='Y' and .!='N'">
+WARNING: invalid <value-of select="name()"/> value "<value-of select="."/>" on <<value-of select="name(..)"/> name="<value-of select="../@name"/>"></if>
+</template>
+
+
+<template match="logicalset|logicalsubset|module|SystemBuild">
+ERROR: using 1.x syntax element: <<value-of select="name()"/>></template>
+
+<template match="unit/@name | unit/@unitID">
+<if test="not(starts-with(/SystemDefinition/@schema,'1.'))">
+WARNING: using 1.x syntax attribute: <<value-of select="concat(name(..),' ',name())"/>="<value-of select="."/>"></if>
+</template>
+
+<template match="@name | layer/@levels |block/@levels | component/@class | component/@filter | component/@introduced | component/@deprecated | component/@contract"> <!-- validate elsewhere -->
+ <if test=".=''">
+ERROR: attribute "<value-of select="name()"/>" on <<value-of select="name(..)"/>> must not be empty</if>
+</template>
+
+<template match="systemModel">
+ <apply-templates select="@*|node()"/>
+</template>
+
+<template match="unit[starts-with(/SystemDefinition/@schema,'1.')]/@contract"/>
+
+
+<template match="unit/@mrp | unit/@bldFile">
+<choose>
+<when test="starts-with(/SystemDefinition/@schema,'1.')">
+ <if test="contains(.,'/')">
+WARINING: path separator must be "\" for <value-of select="name()"/>="<value-of select="."/>"</if>
+</when>
+<otherwise>
+ <if test="contains(.,'\')">
+WARINING: path separator must be "/" for <value-of select="name()"/>="<value-of select="."/>"</if>
+</otherwise>
+</choose>
+</template>
+
+
+<template match="unit/@version | unit/@priority | unit/@filter | unit/@root"/> <!-- handle later-->
+<template match="package/@* | prebuilt/@*"/> <!-- handle later-->
+
+<template match="unit|component/package|prebuilt">
+ <if test="*">
+WARNING: <<value-of select="name()"/>> must be empty.</if>
+
+<if test="not(starts-with(/SystemDefinition/@schema,'1.'))">
+<if test="count(../unit | ../package | ../prebuilt) != 1 and count(../*[@filter or @version]) != count(../*)">
+ERROR: multiple units must have "version" or "filter" attributes (<value-of select="../@name"/>)</if>
+<if test="self::prebuilt or self::package">
+ERROR: using 1.x syntax element: <<value-of select="name()"/>></if>
+</if>
+<apply-templates select="@*"/>
+</template>
+
+<template mode="location" match="*">
+<for-each select="ancestor::*[(self::layer or self::block or self::subblock or self::collection) and @name]">[<value-of select="substring(name(),1,1)"/>] <value-of select="@name"/>
+ <if test="position()=1"> / </if>
+</for-each>
+</template>
+</stylesheet>