<?xml version="1.0"?>

  	<xsl:output method="xml" indent="yes"/>

	<xsl:param name="Verbose" select="0"/> <!-- Verbosity level of messages. Set to 1 (or higher) to get runtime comments  -->

	<xsl:namespace-alias stylesheet-prefix="a" result-prefix="xsl"/>

<xsl:variable name="color" select="/model/layout/info[@type='color']"/>

<xsl:variable name="borders" select="/model/layout/info[@type='border']"/>

<xsl:variable name="overlay" select="/model/layout/info[@type='overlay']"/>

<xsl:variable name="style" select="/model/layout/info[@type='style']"/>

<xsl:template match="/model"> 

		<a:include href="{$Model-Transform}"/>

		<xsl:apply-templates select="document(@shapes,.)/*"/>

		<!--  this is a bit redundant:  i think it's only necessary for the cmp. Either that or it can be used for the component, and the stuff to 

			make the defaults for all components should be removed from model.xsl -->

		<xsl:if test="$borders"> <!-- if there are borders defined in the model.xml, use those to shape the cmp borders, not the shapes.xml -->

			<!-- default border -->	

			<xsl:for-each select="document($borders/@href,$borders)/values/@default">

				<!-- if the default is a type, create the actual reference. If it's a reference leave it alone -->

				<a:template match="component[not(@generator-border)]|cmp[not(@generator-border)]" mode="shape">

					<xsl:if test="not(starts-with(.,'#'))">#Border</xsl:if>

					<xsl:value-of select="."/>

				</a:template>

			</xsl:for-each>

		</xsl:if>

			<!-- default overlay (usually there will be no default))-->	

			<xsl:for-each select="document($overlay/@href,$overlay)/values/@default">

				<!-- if the default is a type, create the actual reference. If it's a reference leave it alone -->

				</a:template>

			</xsl:for-each>

		</xsl:if>

		<xsl:if test="$color">

			<xsl:for-each select="document($color/@href,$color)/values/@default">

					<xsl:value-of select="."/>

				</a:template>

			</xsl:for-each>

		</xsl:if>

		<!-- values files with styles override any styles in the shapes file

			Also if there are no styles in the shapes file, don't try to look for them -->

		<xsl:if test="not(document(@shapes)/shapes/styles) or layout/info[@type='style' and @href]">

		</xsl:if>

	<a:template match="SystemDefinition" mode="shapes">

		<xsl:variable name="defs" select="s:defs"/> <!-- all defs in the shapes document -->

		<!-- check the overlay docs for all referred IDs. Make a list of all that are not defined the shapes doc -->

		<xsl:variable name="undefinedP">

			<xsl:for-each select="document($overlay/@href)/*">

				<xsl:for-each select="@default | //item/@value">

					<xsl:value-of select="concat(' ',.,' ')"/>

				</xsl:for-each>

			</xsl:for-each>

			<xsl:for-each select="document(@shapes)/shapes/patterns/overlay[@type]">

					<xsl:value-of select="concat(' ',@type,' ')"/>

			</xsl:for-each>

		</xsl:variable>

		<!-- check the borders docs for all referred IDs. Make a list of all that are not defined the shapes doc -->

		<xsl:variable name="undefinedB">

			<xsl:for-each select="document($borders/@href)/*">

				<xsl:for-each select="@default | //item/@value">

					<xsl:value-of select="concat(' ',.,' ')"/>

				</xsl:for-each>

			</xsl:for-each>

			<xsl:for-each select="document(@shapes)/shapes/borders/border/@type">

					<xsl:value-of select="concat(' ',.,' ')"/>

			</xsl:for-each>

		</xsl:variable>	

	<!-- ignore all patterns not defined: should make a warning eventually. 

		Also nice to check to see if any ref'd ID's  (eg #xxx) are defined -->

		 <!-- no 'reference' pattern defined, so use the default one --> 

		<xsl:if test="contains($undefinedP,' radial-grad ')"><a:call-template name="default-new-pattern"/></xsl:if>

		 <!-- no 'new'  pattern defined, so use the default one --> 

		<xsl:if test="contains($undefinedP,' striped-diag-up ')"><a:call-template name="default-ref-pattern"/></xsl:if>

		 <!-- no 'deprecated'  pattern defined, so use the default one --> 

		 <xsl:if test="contains($undefinedP,' big-X ')"><a:call-template name="default-X-pattern"/></xsl:if>

		 <!-- borders defined --> 

		 <!--  if no borders were defined at all, throw in the default ones -->

		<xsl:if test="contains($undefinedB,' box ') or normalize-space($undefinedB)=''"><a:call-template name="default-box-border"/></xsl:if>

		<xsl:if test="contains($undefinedB,' box-clipLB ') or normalize-space($undefinedB)=''"><a:call-template name="default-clipLB-border"/></xsl:if>

		<xsl:if test="contains($undefinedB,' box-clipLT ') or normalize-space($undefinedB)=''"><a:call-template name="default-clipLT-border"/></xsl:if>

		<xsl:if test="contains($undefinedB,' box-clipRB ') or normalize-space($undefinedB)=''"><a:call-template name="default-clipRB-border"/></xsl:if>

		<xsl:if test="contains($undefinedB,' box-clipRT ') or normalize-space($undefinedB)=''"><a:call-template name="default-clipRT-border"/></xsl:if>

		<xsl:if test="contains($undefinedB,' box-clipAll ') or normalize-space($undefinedB)=''"><a:call-template name="default-clipAll-border"/></xsl:if>

		<xsl:if test="contains($undefinedB,' round ')"><a:call-template name="default-round-border"/></xsl:if>

		<xsl:if test="contains($undefinedB,' hexagon ')"><a:call-template name="default-hexagon-border"/></xsl:if>

		<xsl:for-each select="document(@shapes)/shapes">

			<xsl:copy-of select="s:defs/*"/>

			<xsl:apply-templates select="borders|colors[@type!='background']|patterns" mode="defines"/>

		</xsl:for-each>

	</a:template>

	<a:template match="*[@label-ref]" mode="eval-label">

	<!-- next two lines are hacks to ensure this works if called accidently from a node-set or wrong file-->

		<a:variable name="id" select="@label-ref"/>

		<xsl:variable name="abbrevs" select="document(/model/layout/info/@href,/)/display-names//abbrev"/> <!-- the abbreviations list -->

			<a:choose>

				<xsl:apply-templates mode="make-label-eval" select="//legend[contains(@label,'}') and not(@literal='yes' or @literal='true')]">

					<xsl:with-param name="abbrevs" select="$abbrevs"/>

				</xsl:apply-templates>

				<xsl:apply-templates mode="make-label-eval" select="//note[contains(.,'}') and not(@literal='yes' or @literal='true')]">

					<xsl:with-param name="abbrevs" select="$abbrevs"/>

				</xsl:apply-templates>

				<xsl:for-each select="document(layout/info/@href | @shapes,.)">

						<xsl:with-param name="abbrevs" select="$abbrevs"/>

					</xsl:apply-templates>

					<xsl:apply-templates mode="make-label-eval" select="/shapes/examples/cmp[contains(text(),'}') and not(@literal='yes' or @literal='true')]">

						<xsl:with-param name="abbrevs" select="$abbrevs"/>

					</xsl:apply-templates>

				</xsl:for-each>

			</a:choose>

		</a:for-each>

	</a:template>

	</a:stylesheet>

</xsl:template>

<xsl:template mode="make-label-eval" match="*"><xsl:param name="abbrevs"/>

	<a:when>

		<xsl:attribute name="test">$id='<xsl:apply-templates select="." mode="style-id"/>'</xsl:attribute>

	</a:when>

</xsl:template> 

<xsl:template name="local-label"><xsl:param name="abbrevs"/>

	<xsl:variable name="val">

		<xsl:value-of select="@label"/>

		<xsl:if test="not(@label) and (self::cmp or self::note)"><xsl:value-of select="text()"/></xsl:if>

	</xsl:variable>

	<xsl:choose>

		<xsl:when test="$match"><xsl:value-of select="$match/@abbrev"/></xsl:when>

		<xsl:otherwise><xsl:value-of select="$val"/></xsl:otherwise>

	</xsl:choose>

</xsl:template>

<xsl:template name="computed-label">	<xsl:param name="text" select="@label"/>

	<xsl:choose>

		<xsl:when test="contains($text,'{')">

			<a:text><xsl:value-of select="substring-before($text,'{')"/></a:text>

			<xsl:variable name="eval" select="substring-before(substring-after($text,'{'),'}')"/>

			<xsl:choose>

				<xsl:when test="starts-with($eval,'@') and string-length($eval)=string-length(translate($eval,'=/ *()[]','')) "> <!-- if this passes, then this will generally just be an attribute -->

					<a:apply-templates select="{$eval}" mode="as-text"/>

				</xsl:when>

				<xsl:otherwise><a:value-of select="{$eval}"/></xsl:otherwise>

			</xsl:choose>

			<xsl:call-template name="computed-label">

				<xsl:with-param name="text" select="substring-after(substring-after($text,'{'),'}')"/>

			</xsl:call-template>

		</xsl:when>

		<xsl:when test="$text!=''"><a:text><xsl:value-of select="$text"/></a:text></xsl:when>

	</xsl:choose>

</xsl:template>

<xsl:template match="/shapes">

	<xsl:comment>Shapes</xsl:comment>

	<xsl:for-each select="styles|colors|patterns|borders">

		<xsl:if test="@use or not(*)">

			<xsl:variable name="id"><xsl:apply-templates select="." mode="style-id"/></xsl:variable>	

		  <a:key name="{name()}-{$id}" match="group[@style-id='{$id}']/*" use="@lookup"/>

		  	<xsl:choose>

				<xsl:when test="@use">

				  <a:key name="use-{$id}" >

				  	<xsl:copy-of select=" @use"/>

				  	<xsl:call-template name="match-syntax"/>

				  </a:key>

				</xsl:when>

			</xsl:choose>

		</xsl:if>

	</xsl:for-each>

		<xsl:apply-templates select="borders"/>

	</xsl:if>

	</xsl:if>

<!-- concatenate all default styles for legend items -->

		<xsl:for-each select="styles/style[not(@rule|@value)]"><xsl:value-of select="."/>;</xsl:for-each>    

  </a:template>

<!-- create style attribute in the general case-->

<a:template match="*" mode="display-style-aux">

	<xsl:for-each select="styles">

		<a:apply-templates select="." mode="display-style-{position()}"/>

	</xsl:for-each>

</a:template>

	<!--  default to nothing for each style. This will be overriden later if necesssary -->

	<xsl:for-each select="styles">

		<a:template match="*" mode="display-style-{position()}"/>

	</xsl:for-each>

	<xsl:apply-templates select="styles"/>

		<a:template> <!-- default match is component -->

			<xsl:call-template name="match-syntax"/>

			<xsl:attribute name="mode">show-unused-<xsl:value-of select="concat(name(),@type)"/>

				<a:param name="n"/>

				<xsl:call-template name="declare-vars"/>

			<a:choose>

				<xsl:for-each select="*[@rule]">

					<a:when>

						<xsl:attribute name="test"><xsl:apply-templates select="." mode="when-test"/></xsl:attribute>

						<a:if>

							<xsl:attribute name="test">$n='<xsl:apply-templates select="." mode="style-id"/>'</xsl:attribute>

							<xsl:text>*</xsl:text>

						</a:if>

					</a:when>

				</xsl:for-each>

				<xsl:for-each select="*[not(@rule|@value)]">

					<a:when>

						<xsl:attribute name="test">$n='<xsl:apply-templates select="." mode="style-id"/>'</xsl:attribute>

						<xsl:text>*</xsl:text>

					</a:when>

				</xsl:for-each>

			</a:choose>

		</a:template>

	</xsl:for-each>

</xsl:template>

<!-- remove all quoted parens -->

<xsl:template name="replace-quotes"><xsl:param name="text" select="."/>

	<xsl:choose>

		<xsl:when test="contains($text,'&quot;')">

			<xsl:value-of select="substring-before($text,'&quot;')"/>

			<xsl:text> </xsl:text>

			<xsl:value-of select="translate(substring-before(substring-after($text,'&quot;'),'&quot;'),'()','  ')"/>

			<xsl:text> </xsl:text>

			<xsl:call-template name="replace-quotes">

				<xsl:with-param name="text" select="substring-after(substring-after($text,'&quot;'),'&quot;')"/>

			</xsl:call-template>			

		</xsl:when>

		<xsl:when test='contains($text,"&apos;")'>

			<xsl:value-of select='substring-before($text,"&apos;")'/>

			<xsl:text> </xsl:text>

			<xsl:value-of select='translate(substring-before(substring-after($text,"&apos;"),"&apos;"),"()","  ")'/>

			<xsl:text> </xsl:text>

			<xsl:call-template name="replace-quotes">

				<xsl:with-param name="text" select='substring-after(substring-after($text,"&apos;"),"&apos;")'/>

			</xsl:call-template>			

		</xsl:when>

		<xsl:otherwise><xsl:value-of select="$text"/></xsl:otherwise>

	</xsl:choose>

</xsl:template>

<xsl:template name="param-length"><xsl:param name="text"/>

<xsl:variable name="close-idx"  select="string-length(substring-before($text,')'))"/>

<xsl:choose>

	<xsl:when test="not(contains($text,')'))"><xsl:message terminate="yes">badly-formatted funtion: <xsl:value-of select="$text"/></xsl:message></xsl:when>

	<xsl:when test="contains($text,'(')">

		<xsl:variable name="open-idx"  select="string-length(substring-before($text,'('))"/>	

		<xsl:choose>

			<xsl:when test="$close-idx &lt; $open-idx"><xsl:value-of select="$close-idx"/></xsl:when>

			<xsl:otherwise>

				<xsl:variable name="len">

					<xsl:call-template name="param-length">

						<xsl:with-param name="text" select="substring($text,2+$open-idx)"/>

					</xsl:call-template>

				</xsl:variable>

				<xsl:value-of select="2 + $open-idx + $len"/>

			</xsl:otherwise>

		</xsl:choose>

	</xsl:when>

	<xsl:otherwise><xsl:value-of select="$close-idx"/></xsl:otherwise>

</xsl:choose>

</xsl:template>