--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/sysmodellibs/sysmodelgen/extra/output-csv.xsl Wed Oct 13 16:21:25 2010 +0100
@@ -0,0 +1,124 @@
+<stylesheet version="1.0" xmlns="http://www.w3.org/1999/XSL/Transform"
+ exclude-result-prefixes="set exslt"
+ xmlns:exslt="http://exslt.org/common"
+ xmlns:set="http://exslt.org/sets">
+ <output method="text"/>
+ <!--
+ tech_domain,layer,package,collection,component,old_layer,old_package<value-of select="$atts"/>
+ Foundation Tech Domain,Foundation layer,Foundation package,Foundation collection,Component,Layer,Domain,Subsystem<value-of select="$atts"/>
+ -->
+ <variable name="default-atts">layer,package,collection,component</variable>
+ <param name="atts">
+ <value-of select="$default-atts"/>
+ <call-template name="all-atts"/>
+ </param>
+ <param name="labels"><if test="starts-with($atts,$default-atts)">Layer,Package,Collection,Component</if></param>
+
+
+<key name="tech" match="group[@type='color']/cbox" use="@style-id"/>
+
+
+ <template name="all-atts">
+ <variable name="all">
+ <apply-templates select="//layer/@* | //package/@*| //collection/@*| //component/@*" mode="atts">
+ <sort select="name()"/>
+ </apply-templates>
+ </variable>
+ <for-each select="set:distinct(exslt:node-set($all)/*/@v)">
+ <sort select="."/>,<value-of select="."/>
+ </for-each>
+ </template>
+
+<template name="labels"><param name="at" select="$atts"/><param name="label" select="$labels"/>
+ <variable name="At">
+ <choose>
+ <when test="contains($at,',')"><value-of select="substring-before($at,',')"/></when>
+ <otherwise><value-of select="$at"/></otherwise>
+ </choose>
+ </variable>
+ <variable name="Lab">
+ <choose>
+ <when test="contains($label,',')"><value-of select="substring-before($label,',')"/></when>
+ <otherwise><value-of select="$label"/></otherwise>
+ </choose>
+ </variable>
+ <choose>
+ <when test="not(contains($at,',')) and $Lab!=''"><value-of select="$Lab"/></when> <!-- at end of list, use label -->
+ <when test="not(contains($at,','))"><value-of select="$At"/></when><!-- at end of list-->
+ <when test="$Lab!=''">
+ <value-of select="$Lab"/><text>,</text>
+ <call-template name="labels">
+ <with-param name="at" select="substring-after($at,',')"/>
+ <with-param name="label" select="substring-after($label,',')"/>
+ </call-template>
+ </when>
+ <otherwise>
+ <value-of select="$At"/><text>,</text>
+ <call-template name="labels">
+ <with-param name="at" select="substring-after($at,',')"/>
+ <with-param name="label" select="substring-after($label,',')"/>
+ </call-template>
+ </otherwise>
+ </choose>
+</template>
+
+<template match="/SystemDefinition"><call-template name="labels"/>
+ <text>
</text>
+ <apply-templates select="systemModel/layer//component"/>
+</template>
+
+<template match="component">
+ <call-template name="others"/>
+ <text>
</text>
+</template>
+
+<template match="*" mode="name"><apply-templates select="@id" mode="name"/></template>
+<!-- <template match="@*" mode="name">"<value-of select="."/>"</template>
+<template match="@*[contains(.,',')]" mode="name" priority="9">"<value-of select="."/>"</template>
+-->
+<template match="@*" mode="name" priority="7">"<value-of select="."/>"</template>
+<template match="@*[not(contains(.,','))]" mode="name" priority="8"><value-of select="."/></template>
+
+<template match="@*" mode="atts" priority="-1">
+ <element name="a"><attribute name="v"><value-of select="name()"/></attribute></element>
+</template>
+
+<!--template match="@name|@old_layer|@old_package|@id|@abbrev|@plugin|@introduced|@span|@levels|@level|@tech_domain|@platform_optional|@reason" mode="atts"/-->
+<template match="@name|@abbrev|@id" mode="atts"/>
+
+<template name="others"><param name="at" select="$atts"/>
+ <variable name="a">
+ <choose>
+ <when test="contains($at,',')"><value-of select="substring-before($at,',')"/></when>
+ <otherwise><value-of select="$at"/></otherwise>
+ </choose>
+ </variable>
+ <choose>
+ <when test="$a='module' and @module"><apply-templates select="@module" mode="name"/></when>
+ <when test="$a='module'"><apply-templates select="ancestor::package[1]" mode="name"/></when>
+ <when test="$a='layer'"><apply-templates select="ancestor::layer" mode="name"/></when>
+ <when test="$a='package'"><apply-templates select="ancestor::package" mode="name"/></when>
+ <when test="$a='subpackage'"><apply-templates select="ancestor::package/package" mode="name"/></when>
+ <when test="$a='collection'"><apply-templates select="ancestor::collection" mode="name"/></when>
+ <when test="$a='component'"><apply-templates select="." mode="name"/></when>
+ <when test="$a='old_component'"><if test="@old_component!=@name"><apply-templates select="@old_component" mode="name"/></if></when>
+ <when test="$a='tech_domain' or $a='tech-domain'">"<value-of select="ancestor::package/@tech-domain"/>"</when>
+ <when test="$a='level'"><value-of select="ancestor-or-self::collection/@level"/></when>
+ <when test="$a='levels'">"<value-of select="ancestor-or-self::package/@levels"/>"</when>
+ <when test="$a='layer-levels'">"<value-of select="ancestor-or-self::layer/@levels"/>"</when>
+ <when test="$a='package-level'"><value-of select="ancestor-or-self::package/@level"/></when>
+ <when test="contains(concat($a,'
'),'-name
')"><apply-templates mode="name" select="ancestor-or-self::*[name()=substring-before($a,'-')]/@name"/></when>
+ <when test="@*[name()=$a]"><apply-templates select="@*[name()=$a]" mode="name"/></when>
+ <when test="ancestor::collection/@*[name()=$a]"><apply-templates select="ancestor::collection/@*[name()=$a]" mode="name"/></when>
+ <when test="ancestor::package/@*[name()=$a]"><apply-templates select="ancestor::package/@*[name()=$a]" mode="name"/></when>
+ <otherwise><apply-templates select="ancestor::layer/@*[name()=$a]" mode="name"/></otherwise>
+ </choose>
+ <if test="contains($at,',')">
+ <text>,</text>
+ <call-template name="others">
+ <with-param name="at" select="substring-after($at,',')"/>
+ </call-template>
+ </if>
+</template>
+
+</stylesheet>