<?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>