<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" indent="yes"/>
<xsl:param name="Path">os/deviceplatformrelease/foundation_system/system_model</xsl:param>
<!-- $Path is the location of the root system definition XML file. Must not end in /
This is used to compute the absolute paths the 2.0 syntax needs-->
<xsl:param name="Root"/> <!-- space separated list of root variables in the form "VAR1=value1 VAR=value2" -->
<xsl:variable name="root" select="concat(' ',$Root,' ')"/> <!-- sort of hack to allow absolute paths in downgraded output -->
<xsl:variable name="srcroot" select="substring-before(substring-after($root,' SRCROOT='),' ')"/> <!-- the default path prefix -->
<xsl:template match="/*">
<xsl:message terminate="yes">Cannot process this document</xsl:message>
</xsl:template>
<!-- can only handle 3.0.0 to 2.0.1 transforms
Assumes only packages are using href
-->
<xsl:template match="/SystemDefinition[@schema='3.0.0']">
<!-- process root system definition or package definition-->
<xsl:call-template name="DTD"/> <!-- insert 2.0.01 DTD -->
<SystemDefinition name="{*/@name}" schema="2.0.1">
<xsl:apply-templates select="*|comment()"/>
</SystemDefinition>
</xsl:template>
<xsl:template match="/SystemDefinition[@schema='3.0.0' and systemModel]">
<xsl:call-template name="DTD"/> <!-- insert 2.0.01 DTD -->
<SystemDefinition name="{systemModel/@name}" schema="2.0.1">
<xsl:apply-templates select="*|comment()"/>
</SystemDefinition>
</xsl:template>
<xsl:template match="/SystemDefinition/package[@href]" priority="2">
<xsl:message terminate="yes">Package definition cannot link another package</xsl:message>
</xsl:template>
<xsl:template match="/SystemDefinition/package" priority="1">
<!-- process package definition file-->
<systemModel>
<layer name="anonymous"> <!-- fake layer -->
<block>
<xsl:apply-templates mode="copy" select="@id|@name|@span|@level|@levels"/><!-- valid attribuites for 2.0 -->
<xsl:apply-templates select="*|comment()">
<xsl:with-param name="path" select="concat($Path,'/')"/> <!-- need to keep tack of where the current document is -->
</xsl:apply-templates>
</block>
</layer>
</systemModel>
</xsl:template>
<xsl:template match="/"><xsl:apply-templates select="*"/></xsl:template>
<xsl:template match="@*|comment()"><xsl:copy-of select="."/></xsl:template>
<!-- comments are copied verbatim. Attribtues are copied by default -->
<xsl:template match="systemModel">
<systemModel>
<xsl:apply-templates select="*|comment()"> <!-- no attributes -->
<xsl:with-param name="path" select="$Path"/> <!-- need to keep tack of where the current document is -->
</xsl:apply-templates>
</systemModel>
</xsl:template>
<xsl:template mode="copy" match="@*">
<xsl:copy-of select="."/>
</xsl:template>
<xsl:template mode="copy" match="@id"> <!-- id in 3.0 is name in 2.0 -->
<xsl:attribute name="name"><xsl:value-of select="."/></xsl:attribute>
</xsl:template>
<xsl:template mode="copy" match="@name"> <!-- name in 3.0 is long-name in 2.0.1 -->
<xsl:if test=".!=../@id"> <!-- don't bother if it will be the same as name -->
<xsl:attribute name="long-name"><xsl:value-of select="."/></xsl:attribute>
</xsl:if>
</xsl:template>
<xsl:template match="layer"><xsl:param name="path"/>
<layer>
<xsl:apply-templates mode="copy" select="@id|@name|@span|@levels"/> <!-- valid attribuites for 2.0 -->
<xsl:apply-templates select="*|comment()">
<xsl:with-param name="path" select="$path"/>
</xsl:apply-templates>
</layer>
</xsl:template>
<xsl:template match="layer/package"><!-- translates to block -->
<xsl:param name="path"/>
<block>
<xsl:apply-templates mode="copy" select="@id|@name|@span|@level|@levels"/><!-- valid attribuites for 2.0 -->
<xsl:choose>
<xsl:when test="@href">
<xsl:variable name="this" select="."/>
<xsl:for-each select="document(@href,.)/SystemDefinition/*">
<xsl:variable name="my-id"><xsl:apply-templates mode="normalize-id" select="@id"/></xsl:variable>
<xsl:variable name="other-id"><xsl:apply-templates mode="normalize-id" select="$this/@id"/></xsl:variable>
<xsl:if test="$my-id != $other-id">
<xsl:message terminate="yes">Error: IDs do not match: <xsl:value-of select="$my-id"/> vs <xsl:value-of select="$other-id"/></xsl:message>
</xsl:if>
<xsl:if test="@name and @name!=@id and not($this/@name and $this/@name=$this/@id)">
<!-- set long-name only if name is different from the id and not set in child doc -->
<xsl:attribute name="long-name"><xsl:value-of select="@name"/></xsl:attribute>
</xsl:if>
<xsl:for-each select="@span|@levels|@level">
<!-- copy only if not set in child doc -->
<xsl:if test="not(this/@*[name()=name(current())])">
<xsl:copy-of select="."/>
</xsl:if>
</xsl:for-each>
<xsl:apply-templates select="*|comment()">
<xsl:with-param name="path">
<xsl:call-template name="normpath">
<xsl:with-param name="path" select="concat($path,'/',$this/@href)"/>
</xsl:call-template>
</xsl:with-param>
</xsl:apply-templates>
</xsl:for-each>
</xsl:when>
<xsl:otherwise>
<xsl:apply-templates select="*|comment()">
<xsl:with-param name="path" select="$path"/>
</xsl:apply-templates>
</xsl:otherwise>
</xsl:choose>
</block>
</xsl:template>
<xsl:template match="package/package"> <!-- translates to subblock --><xsl:param name="path"/>
<subblock>
<xsl:apply-templates mode="copy" select="@id|@name"/>
<xsl:apply-templates select="*|comment()">
<xsl:with-param name="path" select="$path"/>
</xsl:apply-templates>
</subblock>
</xsl:template>
<xsl:template match="package/package/pacakge"> <!-- cannot nest this deep --><xsl:param name="path"/>
<xsl:message>Excessive nesting of packages: Ignoring <xsl:value-of select="@id"/></xsl:message>
<xsl:apply-templates select="*|comment()">
<xsl:with-param name="path" select="$path"/>
</xsl:apply-templates>
</xsl:template>
<xsl:template match="collection"><xsl:param name="path"/>
<collection>
<xsl:apply-templates mode="copy" select="@id|@name|@level"/>
<xsl:apply-templates select="*|comment()">
<xsl:with-param name="path" select="$path"/>
</xsl:apply-templates>
</collection>
</xsl:template>
<xsl:template match="component"><xsl:param name="path"/>
<component>
<xsl:apply-templates mode="copy" select="@id|@name|@deprecated|@introduced|@filter|@purpose"/>
<xsl:if test="contains(concat(' ',@class,' '),' plugin ')">
<xsl:attribute name="plugin">Y</xsl:attribute>
</xsl:if>
<xsl:call-template name="class">
<xsl:with-param name="remove">plugin</xsl:with-param>
<xsl:with-param name="add">
<xsl:if test="not(*) and comment()">placeholder</xsl:if>
<xsl:if test="@target='desktop'"> PC</xsl:if>
</xsl:with-param>
</xsl:call-template>
<xsl:apply-templates select="*|comment()">
<xsl:with-param name="path" select="$path"/>
</xsl:apply-templates>
</component>
</xsl:template>
<xsl:template match="unit[@base and not(@mrp or @bldFile)]"/>
<xsl:template match="unit"><xsl:param name="path"/>
<unit>
<xsl:apply-templates select="@mrp|@bldFile|@late">
<xsl:with-param name="path" select="$path"/>
</xsl:apply-templates>
<xsl:copy-of select="@filter|@root[not(contains($root,concat(' ',.,'=')))]|@version|@prebuilt|@priority"/>
</unit>
</xsl:template>
<xsl:template match="unit/@late"> <!-- 2.0 uses Y/N, 3.0 uses yes/no -->
<xsl:attribute name="{name()}">
<xsl:choose>
<xsl:when test=".='yes'">Y</xsl:when>
<xsl:when test=".='no'">N</xsl:when>
</xsl:choose>
</xsl:attribute>
</xsl:template>
<xsl:template match="@mrp|@bldFile"><xsl:param name="path"/>
<xsl:attribute name="{name()}">
<xsl:choose>
<xsl:when test="../@root">
<xsl:variable name="pre" select="substring-before(substring-after($root,concat(' ',../@root,'=')),' ')"/>
<xsl:if test="$pre!=''"><xsl:value-of select="concat($pre,'/')"/></xsl:if>
</xsl:when>
<xsl:when test="$srcroot!=''">
<xsl:value-of select="concat($srcroot,'/')"/>
</xsl:when>
</xsl:choose>
<xsl:choose>
<xsl:when test="starts-with(.,'/')"> <!-- keep absolute paths verbatim (barring the leading / ) -->
<xsl:value-of select="substring-after(.,'/')"/>
</xsl:when>
<xsl:otherwise>
<xsl:call-template name="normpath">
<xsl:with-param name="path">
<xsl:call-template name="before">
<xsl:with-param name="text" select="$path"/>
</xsl:call-template>
<xsl:value-of select="."/>
</xsl:with-param>
</xsl:call-template>
</xsl:otherwise>
</xsl:choose>
</xsl:attribute>
</xsl:template>
<xsl:template match="meta"/> <!-- strip all meta tags -->
<xsl:template match="meta[info/@contract]"> <!-- except contract -->
<xsl:copy-of select="info/@contract"/>
</xsl:template>
<xsl:template match="@id" mode="normalize-id">
<xsl:choose>
<xsl:when test="contains(@id,':')"><xsl:value-of select="substring-after(@id,':')"/></xsl:when>
<xsl:otherwise><xsl:value-of select="@id"/></xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template name="class"><xsl:param name="remove"/><xsl:param name="add"/>
<!-- returns the value of the class attribute with the space-separated list of names in $remove taken out and those in $add added on (does not check for duplicates) -->
<xsl:param name="class" select="normalize-space(@class)"/>
<xsl:variable name="r">
<xsl:text> </xsl:text>
<xsl:choose>
<xsl:when test="contains($remove,' ')"><xsl:value-of select="substring-before($remove,' ')"/></xsl:when>
<xsl:otherwise><xsl:value-of select="$remove"/></xsl:otherwise>
</xsl:choose>
<xsl:text> </xsl:text>
</xsl:variable>
<xsl:variable name="c">
<xsl:choose>
<xsl:when test="contains(concat(' ',$class,' '),$r)">
<xsl:value-of select="substring-before(concat(' ',$class,' '),$r)"/>
<xsl:text> </xsl:text>
<xsl:value-of select="substring-after(concat(' ',$class,' '),$r)"/>
</xsl:when>
<xsl:otherwise><xsl:value-of select="$class"/></xsl:otherwise>
</xsl:choose>
<xsl:if test="normalize-space($add)!=''"><xsl:value-of select="concat(' ',normalize-space($add))"/></xsl:if>
</xsl:variable>
<xsl:choose>
<xsl:when test="contains($remove,' ')">
<xsl:call-template name="class">
<xsl:with-param name="remove" select="substring-after($remove,' ')"/>
<xsl:with-param name="class" select="$c"/>
</xsl:call-template>
</xsl:when>
<xsl:when test="normalize-space($c)!=''">
<xsl:attribute name="class">
<xsl:value-of select="normalize-space($c)"/>
</xsl:attribute>
</xsl:when>
</xsl:choose>
</xsl:template>
<xsl:template name="normpath"><xsl:param name="path"/>
<!-- normalize out any ".." in the path in $path -->
<xsl:choose>
<xsl:when test="contains($path,'/../')">
<xsl:call-template name="normpath">
<xsl:with-param name="path">
<xsl:call-template name="before">
<xsl:with-param name="text" select="substring-before($path,'/../')"/>
</xsl:call-template>
<xsl:value-of select="substring-after($path,'/../')"/>
</xsl:with-param>
</xsl:call-template>
</xsl:when>
<xsl:otherwise><xsl:value-of select="$path"/></xsl:otherwise>
</xsl:choose>
</xsl:template>
<!-- return all text before the last / -->
<xsl:template name="before"><xsl:param name="text"/>
<xsl:if test="contains($text,'/')">
<xsl:value-of select="substring-before($text,'/')"/>/<xsl:call-template name="before"><xsl:with-param name="text" select="substring-after($text,'/')"/></xsl:call-template>
</xsl:if>
</xsl:template>
<xsl:template name="DTD">
<xsl:text disable-output-escaping="yes"><![CDATA[<!DOCTYPE SystemDefinition [
<!ELEMENT SystemDefinition ( systemModel )>
<!ATTLIST SystemDefinition
name CDATA #REQUIRED
schema CDATA #REQUIRED
>
<!-- all paths are relative to the environment variable specified by the root attribute, or SOURCEROOT if not. -->
<!-- System Model Section of DTD -->
<!ELEMENT systemModel (layer+)>
<!ELEMENT layer (block* | collection*)*>
<!-- Kernel Services, Base Services, OS Services, Etc -->
<!ATTLIST layer
name CDATA #REQUIRED
long-name CDATA #IMPLIED
levels NMTOKENS #IMPLIED
span CDATA #IMPLIED
>
<!ELEMENT block (subblock* | collection*)*>
<!-- Generic OS services, Comms Services, etc -->
<!ATTLIST block
levels NMTOKENS #IMPLIED
span CDATA #IMPLIED
level NMTOKEN #IMPLIED
name CDATA #REQUIRED
long-name CDATA #IMPLIED
>
<!ELEMENT subblock (collection)*>
<!-- Cellular Baseband Services, Networking Services, etc -->
<!ATTLIST subblock
name CDATA #REQUIRED
long-name CDATA #IMPLIED
>
<!ELEMENT collection (component)*>
<!-- Screen Driver, Content Handling, etc -->
<!ATTLIST collection
name CDATA #REQUIRED
long-name CDATA #IMPLIED
level NMTOKEN #IMPLIED
>
<!ELEMENT component (unit)*>
<!-- contains units or is a package or prebuilt -->
<!ATTLIST component
name CDATA #REQUIRED
long-name CDATA #IMPLIED
deprecated CDATA #IMPLIED
introduced CDATA #IMPLIED
contract CDATA #IMPLIED
plugin (Y|N) "N"
filter CDATA #IMPLIED
class NMTOKENS #IMPLIED
supports CDATA #IMPLIED
purpose ( optional | mandatory | development ) "optional"
>
<!ELEMENT unit EMPTY >
<!-- must be buildable (bld.inf) -->
<!-- bldFile may someday be removed in favour of mrp -->
<!ATTLIST unit
mrp CDATA #IMPLIED
filter CDATA #IMPLIED
bldFile CDATA #IMPLIED
root CDATA #IMPLIED
version NMTOKEN #IMPLIED
prebuilt NMTOKEN #IMPLIED
late (Y|N) #IMPLIED
priority CDATA #IMPLIED
>
]>
]]></xsl:text>
</xsl:template>
</xsl:stylesheet>