swfmill 0.0.1

data/ext/swfmill/src/xslt/simple-svg.xslt

@@ -0,0 +1,383 @@
+<?xml version="1.0"?>
+<xsl:stylesheet	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+				xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+				xmlns:sodipodi="http://inkscape.sourceforge.net/DTD/sodipodi-0.dtd"
+				xmlns:svg="http://www.w3.org/2000/svg"
+				xmlns:swft="http://subsignal.org/swfml/swft"
+				xmlns:str="http://exslt.org/strings"
+				xmlns:xlink="http://www.w3.org/1999/xlink"
+				extension-element-prefixes="swft"
+				version='1.0'>
+
+<!-- named template for redundant transforms -->
+<xsl:template name="transform">
+	<transform>
+		<xsl:choose>
+			<!-- catch empty transform attributes. -->
+			<xsl:when test="not(@transform) or @transform=''">
+				<Transform transX="0" transY="0"/>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:copy-of select="swft:transform(@transform)"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</transform>
+</xsl:template>
+
+<!-- named template for redundant placing -->
+<xsl:template name="placeObject">
+	<!-- place the element, or the referenced element (if it's a reference). 
+-->
+	<xsl:variable name="id">
+		<xsl:choose>
+			<xsl:when test="name()='use'">
+				<xsl:value-of select="swft:map-id(substring(@xlink:href,2))"/>
+			</xsl:when>
+			<xsl:when test="@id">
+				<xsl:value-of select="swft:map-id(@id)"/>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="swft:map-id(generate-id(.))"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<!-- use inkscape label as an instance name instead of id, allowing 
+multiple instances with the same name. -->
+	<xsl:variable name="name">
+		<xsl:choose>
+			<xsl:when test="@inkscape:label">
+				<xsl:choose>
+					<xsl:when test="substring(@inkscape:label,1,1)='#'">
+						<xsl:value-of select="substring(@inkscape:label,2)"/>
+					</xsl:when>
+					<xsl:otherwise>
+						<xsl:value-of select="@inkscape:label"/>
+					</xsl:otherwise>
+				</xsl:choose>
+			</xsl:when>
+			<xsl:when test="@id">
+				<xsl:value-of select="@id"/>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="generate-id(.)"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<!-- place the object. -->
+	<PlaceObject2 replace="0" depth="{swft:next-depth()}" name="{$name}" 
+objectID="{$id}">
+		<!-- svg:use elements add an instance transform, all others have it 
+included in their definition. -->
+		<xsl:choose>
+			<xsl:when test="name()='use'">
+				<xsl:call-template name="transform" />
+			</xsl:when>
+			<xsl:otherwise>
+				<transform>
+					<Transform transX="0" transY="0"/>
+				</transform>
+			</xsl:otherwise>
+		</xsl:choose>
+	</PlaceObject2>
+</xsl:template>
+
+<!-- named template for redundant wrappers -->
+<xsl:template name="wrapElement">
+	<xsl:param name="innerid" />
+	<xsl:variable name="id">
+		<xsl:choose>
+			<xsl:when test="@id">
+				<xsl:value-of select="swft:map-id(@id)"/>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="swft:map-id(generate-id(.))"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<DefineSprite objectID="{$id}" frames="1">
+		<tags>
+			<PlaceObject2 replace="0" depth="{swft:next-depth()}" 
+objectID="{$innerid}">
+				<xsl:call-template name="transform" />
+			</PlaceObject2>
+			<ShowFrame/>
+			<End/>
+		</tags>
+	</DefineSprite>
+</xsl:template>
+
+<!-- named template for redundant exports -->
+<xsl:template name="exportElement">
+	<!-- export the element. -->
+	<xsl:if test="@id">
+		<xsl:variable name="id" select="swft:map-id(@id)"/>
+		<xsl:variable name="name" select="@id" />
+
+		<Export>
+			<symbols>
+				<Symbol objectID="{$id}" name="{$name}"/>
+			</symbols>
+		</Export>
+	</xsl:if>
+
+	<!-- define a class, if applicable. -->
+	<xsl:variable name="swfClass" select="@swfClass"/>
+	<xsl:if test="string-length($swfClass) > 0">
+		<xsl:call-template name="register-class">
+			<xsl:with-param name="class" select="$swfClass"/>
+			<xsl:with-param name="linkage-id" select="@id"/>
+		</xsl:call-template>
+	</xsl:if>
+</xsl:template>
+
+
+<!-- entry point: starts 2 passes, one for queuing up the definitions, one 
+for placing the elements. -->
+<xsl:template match="svg:svg" mode="svg">
+	<xsl:param name="id"/>
+	<xsl:param name="export"/>
+	<!-- initiate the gradient pass. -->
+	<xsl:apply-templates mode="gradient1" />
+	<xsl:apply-templates mode="gradient2" />
+	<!-- initiate the definition pass. -->
+	<xsl:apply-templates mode="queue">
+		<xsl:with-param name="export" select="$export"/>
+	</xsl:apply-templates>
+	<!-- define svg root as sprite. -->
+	<DefineSprite objectID="{$id}" frames="1">
+		<tags>
+			<!-- initiate the placement pass. -->
+			<xsl:apply-templates mode="placement" />
+			<ShowFrame/>
+			<End/>
+		</tags>
+	</DefineSprite>
+</xsl:template>
+
+<xsl:template match="svg:linearGradient[not(@xlink:href)]|svg:radialGradient[not(@xlink:href)]" mode="gradient1">
+	<swft:push-gradient />
+</xsl:template>
+
+<xsl:template match="svg:linearGradient[@xlink:href]|svg:radialGradient[@xlink:href]" mode="gradient2">
+	<swft:push-gradient />
+</xsl:template>
+
+<xsl:template match="svg:g|svg:path|svg:rect|svg:circle|svg:ellipse|svg:line|svg:polyline|svg:polygon|svg:use|svg:text|svg:flowRoot" 
+mode="queue">
+	<xsl:param name="export"/>
+
+	<xsl:if test="name()='g'">
+		<swft:push-style />
+	</xsl:if>
+
+	<xsl:variable name="id">
+		<xsl:choose>
+			<xsl:when test="@id">
+				<xsl:value-of select="swft:map-id(@id)"/>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="swft:map-id(generate-id(.))"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="name">
+		<xsl:choose>
+			<xsl:when test="@id">
+				<xsl:value-of select="@id"/>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="generate-id(.)"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+
+	<!-- first define the subparts, so that we get the innermost ones queued 
+first. -->
+	<xsl:apply-templates mode="queue">
+		<xsl:with-param name="export" select="$export"/>
+	</xsl:apply-templates>
+
+	<!-- now define this element, which is based on the subparts. -->
+	<xsl:apply-templates select="." mode="definition">
+		<xsl:with-param name="id" select="$id"/>
+		<xsl:with-param name="name" select="$name"/>
+		<xsl:with-param name="export" select="$export"/>
+	</xsl:apply-templates>
+
+	<xsl:if test="name()='g'">
+		<swft:pop-style />
+	</xsl:if>
+</xsl:template>
+
+<xsl:template match="svg:g|svg:path|svg:rect|svg:circle|svg:ellipse|svg:line|svg:polyline|svg:polygon|svg:use|svg:text|svg:flowRoot" 
+mode="placement">
+	<xsl:if test="not(ancestor::svg:defs) or parent::svg:g">
+		<!-- no definition. just place this element. -->
+		<xsl:call-template name="placeObject" />
+	</xsl:if>
+</xsl:template>
+
+<xsl:template match="svg:g" mode="definition" priority="-1">
+	<xsl:param name="id"/>
+	<xsl:param name="name"/>
+	<xsl:param name="export"/>
+
+	<!-- test if a wrapper is needed for a group transform -->
+	<xsl:choose>
+		<xsl:when test="not(@transform) or @transform='' or 
+transform='translate(0,0)'">
+			<!-- no transform, define the group and place the subparts -->
+			<DefineSprite objectID="{$id}" frames="1">
+				<tags>
+					<xsl:apply-templates mode="placement" />
+					<ShowFrame/>
+					<End/>
+				</tags>
+			</DefineSprite>
+		</xsl:when>
+		<xsl:otherwise>
+			<!-- define an inner group and wrap it with the group transform -->
+			<xsl:variable name="innerid"><xsl:value-of 
+select="swft:next-id()"/></xsl:variable>
+			<DefineSprite objectID="{$innerid}" frames="1">
+				<tags>
+					<xsl:apply-templates mode="placement" />
+					<ShowFrame/>
+					<End/>
+				</tags>
+			</DefineSprite>
+			<xsl:call-template name="wrapElement">
+				<xsl:with-param name="innerid" select="$innerid" />
+			</xsl:call-template>
+		</xsl:otherwise>
+	</xsl:choose>
+
+
+	<!-- export -->
+	<xsl:if test="$export = 'all' or $export = 'groups'">
+		<xsl:call-template name="exportElement" />
+	</xsl:if>
+</xsl:template>
+
+<xsl:template match="svg:rect|svg:circle|svg:ellipse|svg:line|svg:polyline|svg:polygon|svg:path" mode="definition">
+	<xsl:param name="id"/>
+	<xsl:param name="export"/>
+	<xsl:variable name="shapeid"><xsl:value-of 
+select="swft:next-id()"/></xsl:variable>
+
+	<!-- define the path -->
+	<xsl:copy-of select="swft:path(., $shapeid, $movie-version)"/>
+	<!-- wrap in sprite -->
+	<xsl:call-template name="wrapElement">
+		<xsl:with-param name="innerid" select="$shapeid" />
+	</xsl:call-template>
+	<!-- export -->
+	<xsl:if test="$export = 'all'">
+		<xsl:call-template name="exportElement" />
+	</xsl:if>
+</xsl:template>
+
+<xsl:template match="svg:flowRoot" mode="definition">
+	<xsl:param name="id"/>
+	<xsl:param name="name"/>
+	<xsl:param name="export"/>
+	<xsl:variable name="shapeid"><xsl:value-of 
+select="swft:next-id()"/></xsl:variable>
+
+	<!-- define the element -->
+	<DefineEditText objectID="{$shapeid}" wordWrap="1" multiLine="1" 
+password="0" readOnly="0" autoSize="0" hasLayout="1" notSelectable="0" 
+hasBorder="0" isHTML="0" useOutlines="0" fontRef="{swft:map-id('vera')}" 
+fontHeight="240" align="0" leftMargin="0" rightMargin="0" indent="0" 
+leading="40" variableName="{@name}">
+		<xsl:attribute name="initialText">
+			<xsl:apply-templates mode="svg-text"/>
+		</xsl:attribute>
+		<size>
+			<Rectangle left="{svg:flowRegion/svg:rect/@x * 20}" 
+right="{(svg:flowRegion/svg:rect/@x + svg:flowRegion/svg:rect/@width)* 20}" 
+top="{svg:flowRegion/svg:rect/@y * 20}" bottom="{(svg:flowRegion/svg:rect/@y 
++ svg:flowRegion/svg:rect/@height)* 20}"/>
+		</size>
+		<color>
+			<Color red="0" green="0" blue="0" alpha="255"/>
+		</color>
+	</DefineEditText>
+	<!-- wrap in sprite -->
+	<xsl:call-template name="wrapElement">
+		<xsl:with-param name="innerid" select="$shapeid" />
+	</xsl:call-template>
+	<!-- export -->
+	<xsl:if test="$export = 'all'">
+		<xsl:call-template name="exportElement" />
+	</xsl:if>
+</xsl:template>
+
+<xsl:template match="svg:text" mode="definition">
+	<xsl:param name="id"/>
+	<xsl:param name="name"/>
+	<xsl:param name="export"/>
+	<xsl:variable name="shapeid"><xsl:value-of 
+select="swft:next-id()"/></xsl:variable>
+
+	<!-- define the element -->
+	<DefineEditText objectID="{$shapeid}" wordWrap="0" multiLine="1" 
+password="0" readOnly="1" autoSize="1" hasLayout="1" notSelectable="1" 
+hasBorder="0" isHTML="0" useOutlines="0" fontRef="{swft:map-id('vera')}" 
+fontHeight="240" align="0" leftMargin="0" rightMargin="0" indent="0" 
+leading="40" variableName="{@name}">
+	<xsl:attribute name="initialText">
+		<xsl:apply-templates mode="svg-text"/>
+	</xsl:attribute>
+	<size>
+		<Rectangle left="{@x * 20}" right="{(@x + 200) * 20}" top="{@y * 20 - 240}" bottom="{@y 
+* 20}"/>
+	</size>
+	<color>
+		<Color red="0" green="0" blue="0" alpha="255"/>
+	</color>
+	</DefineEditText>
+	<!-- wrap in sprite -->
+	<xsl:call-template name="wrapElement">
+		<xsl:with-param name="innerid" select="$shapeid" />
+	</xsl:call-template>
+	<!-- export -->
+	<xsl:if test="$export = 'all'">
+		<xsl:call-template name="exportElement" />
+	</xsl:if>
+</xsl:template>
+
+<xsl:template match="svg:flowRegion" mode="svg-text">
+	<xsl:apply-templates mode="svg-text"/>
+</xsl:template>
+
+<xsl:template match="svg:flowPara" mode="svg-text">
+	<xsl:apply-templates mode="svg-text"/>
+</xsl:template>
+
+<xsl:template match="svg:tspan[position()=1]" mode="svg-text">
+	<xsl:apply-templates mode="svg-text"/>
+</xsl:template>
+
+<xsl:template match="svg:tspan" mode="svg-text" priority="-1">
+	<xsl:text>
+	</xsl:text>
+	<xsl:apply-templates mode="svg-text"/>
+</xsl:template>
+
+<xsl:template match="text()" mode="svg-text">
+	<xsl:copy-of select="."/>
+</xsl:template>
+
+<xsl:template match="*|@*|text()" mode="svg" priority="-1"/>
+
+<xsl:template match="ShapeSetup" mode="shape">
+	<ShapeSetup fillStyle0="1" fillStyle1="2" lineStyle="1">
+		<xsl:apply-templates select="*|@*" mode="shape"/>
+	</ShapeSetup>
+</xsl:template>
+<xsl:template match="*|@*|text()" mode="shape" priority="-1">
+	<xsl:copy-of select="."/>
+</xsl:template>
+
+</xsl:stylesheet>

data/ext/swfmill/src/xslt/simple-tools.xslt

@@ -0,0 +1,255 @@
+<?xml version="1.0"?>
+<xsl:stylesheet	xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
+				xmlns:swft="http://subsignal.org/swfml/swft"
+				xmlns:str="http://exslt.org/strings"
+				xmlns:math="http://exslt.org/math"
+				extension-element-prefixes="swft"
+				version='1.0'>
+
+<!-- Color from @color="#rrggbb" or @red, @green, @blue-->
+<xsl:template name="color">
+	<xsl:variable name="red">
+		<xsl:choose>
+			<xsl:when test="@red"><xsl:value-of select="@red"/></xsl:when>
+			<xsl:when test="@color">0x<xsl:value-of select="substring(@color,2,2)"/></xsl:when>
+			<xsl:otherwise>200</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="green">
+		<xsl:choose>
+			<xsl:when test="@green"><xsl:value-of select="@green"/></xsl:when>
+			<xsl:when test="@color">0x<xsl:value-of select="substring(@color,4,2)"/></xsl:when>
+			<xsl:otherwise>200</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="blue">
+		<xsl:choose>
+			<xsl:when test="@blue"><xsl:value-of select="@blue"/></xsl:when>
+			<xsl:when test="@color">0x<xsl:value-of select="substring(@color,6)"/></xsl:when>
+			<xsl:otherwise>200</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<Color red="{$red}" green="{$green}" blue="{$blue}"/>
+</xsl:template>
+
+<!-- ColorRGBA from @color="#rrggbbaa" or @red, @green, @blue, @alpha -->
+<xsl:template name="color-rgba">
+	<xsl:variable name="red">
+		<xsl:choose>
+			<xsl:when test="@red"><xsl:value-of select="@red"/></xsl:when>
+			<xsl:when test="@color">0x<xsl:value-of select="substring(@color,2,2)"/></xsl:when>
+			<xsl:otherwise>0</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="green">
+		<xsl:choose>
+			<xsl:when test="@green"><xsl:value-of select="@green"/></xsl:when>
+			<xsl:when test="@color">0x<xsl:value-of select="substring(@color,4,2)"/></xsl:when>
+			<xsl:otherwise>0</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="blue">
+		<xsl:choose>
+			<xsl:when test="@blue"><xsl:value-of select="@blue"/></xsl:when>
+			<xsl:when test="@color">0x<xsl:value-of select="substring(@color,6)"/></xsl:when>
+			<xsl:otherwise>0</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="alpha">
+		<xsl:choose>
+			<xsl:when test="@alpha"><xsl:value-of select="@alpha"/></xsl:when>
+			<xsl:when test="string-length(@color) = 9">0x<xsl:value-of select="substring(@color,8)"/></xsl:when>
+			<xsl:otherwise>255</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<Color red="{$red}" green="{$green}" blue="{$blue}" alpha="{$alpha}"/>
+</xsl:template>
+
+<!-- ColorRGBA from parameter $color ("#rrggbbaa") -->
+<xsl:template name="color-rgba-param">
+	<xsl:param name="color">#00000000</xsl:param>
+	<xsl:param name="alpha"/>
+	<xsl:variable name="red">
+		<xsl:choose>
+			<xsl:when test="$color">0x<xsl:value-of select="substring($color,2,2)"/></xsl:when>
+			<xsl:otherwise>0</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="green">
+		<xsl:choose>
+			<xsl:when test="$color">0x<xsl:value-of select="substring($color,4,2)"/></xsl:when>
+			<xsl:otherwise>0</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="blue">
+		<xsl:choose>
+			<xsl:when test="$color">0x<xsl:value-of select="substring($color,6)"/></xsl:when>
+			<xsl:otherwise>0</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<xsl:variable name="a">
+		<xsl:choose>
+			<xsl:when test="$alpha != ''"><xsl:value-of select="$alpha * 255"/></xsl:when>
+			<xsl:when test="string-length($color) = 9">0x<xsl:value-of select="substring($color,8)"/></xsl:when>
+			<xsl:otherwise>255</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+	<Color red="{$red}" green="{$green}" blue="{$blue}" alpha="{$a}"/>
+</xsl:template>
+
+<!-- set primitive types with SetVariable, for PlaceObject2 events -->
+<xsl:template match="string" mode="set">
+	<PushData>
+		<items>
+			<StackString value="{@name}"/>
+			<StackString value="{@value}"/>
+		</items>
+	</PushData>
+	<SetVariable/>
+</xsl:template>
+<xsl:template match="number" mode="set">
+	<PushData>
+		<items>
+			<StackString value="{@name}"/>
+			<StackDouble value="{@value}"/>
+		</items>
+	</PushData>
+	<SetVariable/>
+</xsl:template>
+<xsl:template match="boolean" mode="set">
+	<PushData>
+		<items>
+			<StackString value="{@name}"/>
+			<StackBoolean value="{@value}"/>
+		</items>
+	</PushData>
+	<SetVariable/>
+</xsl:template>
+
+
+<!-- works only if the id is exported! -->
+<xsl:template name="register-class">
+	<xsl:param name="class"/>
+	<xsl:param name="linkage-id"/>
+	<xsl:variable name="packages" select="str:tokenize($class,'.')"/>
+	<xsl:variable name="strofs">3</xsl:variable>
+	<xsl:variable name="id" select="swft:next-id()"/>
+
+	<DefineSprite objectID="{$id}" frames="1">
+		<tags>
+		  <End/>
+		</tags>
+	</DefineSprite>
+	<Export>
+		<symbols>
+		  <Symbol objectID="{$id}" name="__Packages.swfmill.registerClass.{$linkage-id}"/>
+		</symbols>
+	</Export>
+	<DoInitAction sprite="{$id}">
+		<actions>
+			<Dictionary>
+				<strings>
+					<String value="Object"/>
+					<String value="registerClass"/>
+					<String value="{$linkage-id}"/>
+					<xsl:for-each select="$packages">
+						<String value="{.}"/>
+					</xsl:for-each>
+				</strings>
+			</Dictionary>
+			
+			<!-- package root -->
+			<PushData>
+				<items>
+				  <StackDictionaryLookup index="{$strofs}"/> 
+				</items>
+			</PushData>
+			<GetVariable/>
+			
+			<!-- packages -->
+			<xsl:for-each select="$packages[position()>1]">
+				<PushData>
+					<items>
+					  <StackDictionaryLookup index="{$strofs + position()}"/>
+					</items>
+				</PushData>
+				<GetMember/>
+			</xsl:for-each>
+			
+			<!-- linkage id, 2 (arguments), Object-->
+			<PushData>
+				<items>
+				  <StackDictionaryLookup index="2"/>
+				  <StackInteger value="2"/>
+				  <StackDictionaryLookup index="0"/>
+				</items>
+			</PushData>
+			<GetVariable/>
+			<!-- registerClass -->
+			<PushData>
+				<items>
+				  <StackDictionaryLookup index="1"/>
+				</items>
+			</PushData>
+			<CallMethod/>
+			<Pop/>
+			<EndAction/>
+		</actions>
+	</DoInitAction>
+	
+</xsl:template>
+
+
+<!-- HTML wrapper -->
+<xsl:template match="html-wrapper">
+	<xsl:document href="{@name}">
+<html>
+	<body>
+	<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" 
+			codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" 
+			width="{/movie/@width}" height="{/movie/@width}" id="video" align="middle">
+		<param name="allowScriptAccess" value="sameDomain" />
+		<param name="movie" value="{@swf}" />
+		<param name="quality" value="high" />
+		<embed src="{@swf}" quality="high" 
+			width="{/movie/@width}" height="{/movie/@height}" name="video" align="middle" allowScriptAccess="sameDomain" 
+			type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
+	</object>
+	</body>
+</html>
+	</xsl:document>
+</xsl:template>
+
+<!-- html text (entity-escape xml, for fitting xml/html content in an attribute) -->
+<xsl:template match="*" mode="htmltext">
+	<xsl:text>&lt;</xsl:text>
+	<xsl:value-of select="name()"/>
+		<xsl:apply-templates select="@*" mode="htmltext"/>
+	<xsl:text>&gt;</xsl:text>
+		<xsl:apply-templates select="*|text()" mode="htmltext"/>
+	<xsl:text>&lt;/</xsl:text>
+	<xsl:value-of select="name()"/>
+	<xsl:text>&gt;</xsl:text>
+</xsl:template>
+<xsl:template match="@*" mode="htmltext">
+	<xsl:text> </xsl:text>
+	<xsl:value-of select="name()"/>
+	<xsl:text>=&quot;</xsl:text>
+	<xsl:value-of select="."/>
+	<xsl:text>&quot;</xsl:text>
+</xsl:template>
+<xsl:template match="text()" mode="htmltext">
+	<xsl:value-of select="."/>
+</xsl:template>
+
+<!-- copy anything else, but translate objectIDs -->
+<xsl:template match="@objectID|@sprite|@fontRef">
+	<xsl:attribute name="{name()}"><xsl:value-of select="swft:map-id(.)"/></xsl:attribute>
+</xsl:template>
+<xsl:template match="*|@*|text()" priority="-2">
+	<xsl:copy select=".">
+		<xsl:apply-templates select="*|@*|text()"/>
+	</xsl:copy>
+</xsl:template>
+
+</xsl:stylesheet>