swfmill 0.0.1

data/ext/swfmill/src/codegen/mk.xsl

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<xsl:stylesheet	xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version='1.0'>
+				
+	<xsl:include href="basic.xsl"/>
+	<xsl:include href="basics.xsl"/>
+	<xsl:include href="header.xsl"/>
+	<xsl:include href="parser.xsl"/>
+	<xsl:include href="dumper.xsl"/>
+	<xsl:include href="size.xsl"/>
+	<xsl:include href="writer.xsl"/>
+	<xsl:include href="writexml.xsl"/>
+	<xsl:include href="parsexml.xsl"/>
+	<xsl:strip-space elements="*"/>
+
+	<xsl:template match="format">
+		<xsl:call-template name="basics"/>
+		<xsl:call-template name="header"/>
+		<xsl:call-template name="parser"/>
+		<xsl:call-template name="dumper"/>
+		<xsl:call-template name="size"/>
+		<xsl:call-template name="writer"/>
+		<xsl:call-template name="writexml"/>
+		<xsl:call-template name="parsexml"/>
+	</xsl:template>
+
+</xsl:stylesheet>

data/ext/swfmill/src/codegen/parser.xsl

@@ -0,0 +1,196 @@
+<?xml version="1.0"?>
+<xsl:stylesheet	xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version='1.0'>
+	<xsl:template name="parser">
+<xsl:document href="g{/format/@format}Parser.cpp" method="text">
+
+#include "<xsl:value-of select="/format/@format"/>.h"
+#include "<xsl:value-of select="/format/@format"/>Item.h"
+#include "<xsl:value-of select="/format/@format"/>List.h"
+
+namespace <xsl:value-of select="/format/@format"/> {
+
+<xsl:for-each select="type|tag|action|filter|style|stackitem|namespaceconstant|multinameconstant|trait|opcode">
+//////////////////////////////////// <xsl:value-of select="@name"/>
+
+bool <xsl:value-of select="@name"/>::parse( Reader *r, int end, Context *ctx ) {
+	if( ctx->debugTrace ) fprintf( stderr, "PARSE <xsl:value-of select="@name"/> @%i-%i :%i\n", r->getPosition(), r->getBits(), end );
+	file_offset = r->getPosition();
+
+	<xsl:apply-templates mode="parse"/>
+
+	<xsl:if test="name()='tag'">
+	if( r->getPosition() != file_offset + len ) {
+		fprintf( stderr, "WARNING: end of tag <xsl:value-of select="@name"/> is @%i, should be @%i\n", r->getPosition(), file_offset+len );
+		r->seekTo( file_offset + len );
+	}
+	</xsl:if>
+	
+	return r->getError() == SWFR_OK;
+}
+
+</xsl:for-each>
+
+}
+
+</xsl:document>
+	</xsl:template>
+
+
+<xsl:template match="flagged" mode="parse">
+	if( <xsl:if test="@negative">!</xsl:if><xsl:value-of select="@flag"/>
+		<xsl:if test="@signifier"> &amp; <xsl:value-of select="@signifier"/></xsl:if> ) {
+	
+		<xsl:apply-templates mode="parse"/>
+	} else {
+		<xsl:for-each select="*[@default]">
+			<xsl:value-of select="@name"/> =  <xsl:value-of select="@default"/>;
+		</xsl:for-each>
+	}
+</xsl:template>
+
+<xsl:template match="if" mode="parse">
+	if( ctx->debugTrace ) fprintf( stderr, "PARSE IF <xsl:value-of select="@expression"/> - " );
+	if( <xsl:value-of select="@expression"/> ) {
+		if( ctx->debugTrace ) fprintf( stderr, "TRUE\n" );
+		<xsl:apply-templates mode="parse"/>
+	} else {
+		if( ctx->debugTrace ) fprintf( stderr, "FALSE\n" );
+		<xsl:for-each select="*[@default]">
+			<xsl:value-of select="@name"/> =  <xsl:value-of select="@default"/>;
+		</xsl:for-each>
+	}
+</xsl:template>
+
+<xsl:template match="byte|word|fixedpoint|fixedpoint2|bit|integer|string|uint32|float|double|double2|half|xml|u30|s24|encodedu32" mode="parse">
+	<xsl:value-of select="@name"/> = <xsl:apply-templates select="." mode="get"/>;
+	if( ctx->debugTrace ) fprintf( stderr, "PARSE <xsl:value-of select="@name"/>: <xsl:apply-templates select="." mode="printf"/>\n", <xsl:value-of select="@name"/> );
+	<xsl:if test="@context">
+		ctx-&gt;<xsl:value-of select="@name"/> = <xsl:value-of select="@name"/>;
+	</xsl:if>
+	<xsl:if test="@next">
+		<!-- this describes the offset to end of this object, so we use it for end -->
+		if( <xsl:value-of select="@name"/> &amp;&amp; <xsl:value-of select="@name"/>+r->getPosition() &lt; end ) {
+			if( ctx->debugTrace ) fprintf(stderr, "- has next offset, setting end to current+%i\n", <xsl:value-of select="@name"/> );
+			end = r->getPosition() + <xsl:value-of select="@name"/>
+			<xsl:if test="@next-offset"> + (<xsl:value-of select="@next-offset"/>)</xsl:if>;
+		}
+	</xsl:if>
+</xsl:template>
+<xsl:template match="byte" mode="get">r->getByte()</xsl:template>
+<xsl:template match="word" mode="get">r->getWord()</xsl:template>
+<xsl:template match="fixedpoint" mode="get">r->getNBitFixed(<xsl:value-of select="@size"/>,<xsl:value-of select="@exp"/><xsl:if test="@signed">,true</xsl:if>)</xsl:template>
+<xsl:template match="fixedpoint2" mode="get">r->getNBitFixed2(<xsl:value-of select="@size"/>,<xsl:value-of select="@exp"/><xsl:if test="@signed">,true</xsl:if>)</xsl:template>
+<xsl:template match="uint32" mode="get">r->getInt()</xsl:template>
+<xsl:template match="float" mode="get">r->getFloat()</xsl:template>
+<xsl:template match="double" mode="get">r->getDouble()</xsl:template>
+<xsl:template match="double2" mode="get">r->getDouble2()</xsl:template>
+<xsl:template match="half" mode="get">r->getHalf()</xsl:template>
+<xsl:template match="bit" mode="get">r->getNBitInt(1)</xsl:template>
+<xsl:template match="integer" mode="get">r->getNBitInt(<xsl:value-of select="@size"/>
+			<xsl:if test="@size-add">+<xsl:value-of select="@size-add"/></xsl:if>
+			<xsl:if test="@signed">,true</xsl:if>)</xsl:template>
+<xsl:template match="u30" mode="get">r->getU30()</xsl:template>
+<xsl:template match="s24" mode="get">r->getS24()</xsl:template>
+<xsl:template match="encodedu32" mode="get">r->getEncodedU32()</xsl:template>
+<xsl:template match="string[@mode='pascal']" mode="get">r->getPString()</xsl:template>
+<xsl:template match="string[@mode='pascalU30']" mode="get">r->getPStringU30()</xsl:template>
+<xsl:template match="string" mode="get" priority="-1">r->getString()</xsl:template>
+<xsl:template match="xml" mode="get" priority="-1">r->getString()</xsl:template>
+
+<xsl:template match="byteOrWord" mode="parse">
+	<xsl:value-of select="@name"/> = r->getByte();
+    if( <xsl:value-of select="@name"/> == 0xff &amp;&amp; ctx->tagVersion >= 2 ) {
+        <xsl:value-of select="@name"/> = r->getWord();
+    }
+    
+	if( ctx->debugTrace ) fprintf( stderr, "PARSE <xsl:value-of select="@name"/>: <xsl:apply-templates select="." mode="printf"/>\n", <xsl:value-of select="@name"/> );
+	<xsl:if test="@context">
+		ctx-&gt;<xsl:value-of select="@name"/> = <xsl:value-of select="@name"/>;
+	</xsl:if>
+	<xsl:if test="@next">
+		<!-- this describes the offset to end of this object, so we use it for end -->
+		if( <xsl:value-of select="@name"/> &amp;&amp; <xsl:value-of select="@name"/>+r->getPosition() &lt; end ) {
+			if( ctx->debugTrace ) fprintf(stderr, "- has next offset, setting end to current+%i\n", <xsl:value-of select="@name"/> );
+			end = r->getPosition() + <xsl:value-of select="@name"/>
+			<xsl:if test="@next-offset"> + (<xsl:value-of select="@next-offset"/>)</xsl:if>;
+		}
+	</xsl:if>
+</xsl:template>
+
+<xsl:template match="object" mode="parse">
+	<xsl:value-of select="@name"/>.parse(r,end,ctx);
+</xsl:template>
+
+<xsl:template match="list[@length]" mode="parse" priority="1">
+	<xsl:variable name="length">
+		<xsl:choose>
+			<xsl:when test="@length-add">
+				( <xsl:value-of select="@length"/> + <xsl:value-of select="@length-add"/> )
+			</xsl:when>
+			<xsl:when test="@length-sub">
+				( <xsl:value-of select="@length"/> &lt; <xsl:value-of select="@length-sub"/>
+				  ? 0
+				  : <xsl:value-of select="@length"/> - <xsl:value-of select="@length-sub"/> )
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="@length"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:variable>
+
+	{
+		if( ctx->debugTrace ) fprintf( stderr, "PARSE list&lt;<xsl:value-of select="@type"/>&gt; <xsl:value-of select="@name"/>: %i items, @%i-%i :%i\n",  <xsl:value-of select="$length"/>, r->getPosition(), r->getBits(), end );
+		<xsl:value-of select="@type"/> *item;
+		for( int i=0; i&lt;<xsl:value-of select="$length"/>; i++ ) {
+			item = <xsl:value-of select="@type"/>::get(r,end,ctx);
+			<xsl:value-of select="@name"/>.append( item );
+		}
+	}
+</xsl:template>
+
+<xsl:template match="list" mode="parse" priority="-1">
+	{
+		if( ctx->debugTrace ) fprintf( stderr, "PARSE list&lt;<xsl:value-of select="@type"/>&gt; <xsl:value-of select="@name"/> @%i-%i :%i\n", r->getPosition(), r->getBits(), end );
+		int myend = end;
+		<xsl:if test="@end">
+			myend = r->getPosition() + <xsl:value-of select="@end"/>
+			<xsl:if test="@end-offset"> + (<xsl:value-of select="@end-offset"/>)</xsl:if>;
+		</xsl:if>
+		
+		if( r->getPosition() &lt; myend ) {
+			<xsl:value-of select="@type"/> *item;
+			item = <xsl:value-of select="@type"/>::get(r,end,ctx);
+			while( item &amp;&amp; r->getPosition() &lt;= myend ) {
+				<xsl:value-of select="@name"/>.append( item );
+				if( r->getPosition() &lt; myend || (r->getPosition()==myend &amp;&amp; r->getBits() ))
+					item = <xsl:value-of select="@type"/>::get(r,myend,ctx);
+				else item = NULL;
+				<xsl:if test="@end-condition">
+					if(item &amp;&amp; <xsl:value-of select="@end-condition"/>) {
+						<xsl:value-of select="@name"/>.append( item );
+						item = NULL;
+					}
+				</xsl:if>
+			}
+		}
+	}
+</xsl:template>
+
+<xsl:template match="data" mode="parse">
+	{
+		int sz = <xsl:value-of select="@size"/>;
+
+		<xsl:value-of select="@name"/> = new unsigned char[ sz ];
+		r->getData( <xsl:value-of select="@name"/>, sz );
+	}
+</xsl:template>
+
+<xsl:template match="fill-byte" mode="parse">
+	r->byteAlign();
+</xsl:template>
+
+<xsl:template match="context" mode="parse">
+	ctx-><xsl:value-of select="@param"/> = <xsl:value-of select="@value"/>;
+</xsl:template>
+
+</xsl:stylesheet>

data/ext/swfmill/src/codegen/parsexml.xsl

@@ -0,0 +1,312 @@
+<?xml version="1.0"?>
+<xsl:stylesheet	xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version='1.0'>
+	<xsl:template name="parsexml">
+<xsl:document href="g{/format/@format}ParseXML.cpp" method="text">
+
+#include "<xsl:value-of select="/format/@format"/>.h"
+#include &lt;cstring&gt;
+#include &lt;cctype&gt;
+#include &lt;cstdlib&gt;
+#include "base64.h"
+
+using namespace std;
+
+namespace <xsl:value-of select="/format/@format"/> {
+
+char *strdupx(const char *src) {
+	char *t = new char[strlen(src)+1];
+	strcpy(t, src);
+	return  t;
+}
+
+<xsl:for-each select="type|tag|action|filter|style|stackitem|namespaceconstant|multinameconstant|trait|opcode">
+void <xsl:value-of select="@name"/>::parseXML( xmlNodePtr node, Context *ctx ) {
+	xmlNodePtr node2;
+	xmlChar *tmp;
+	
+//	printf("<xsl:value-of select="@name"/>::parseXML\n");
+
+	<xsl:for-each select="*[@context]">
+		ctx-&gt;<xsl:value-of select="@name"/> = <xsl:apply-templates select="." mode="default"/>;
+	</xsl:for-each>
+
+	<xsl:apply-templates select="*[@prop]|flagged|if|context" mode="parsexml"/>
+	
+	<xsl:if test="@name='UnknownTag' or @name='UnknownAction'">
+		tmp = xmlGetProp( node, (const xmlChar *)"id" );
+		if( tmp ) { 
+			sscanf( (char *)tmp, "%X", &amp;type ); 
+			xmlFree( (xmlChar *)tmp ); 
+		}
+	</xsl:if>
+
+	<xsl:for-each select="*[@context]">
+		<xsl:choose>
+			<xsl:when test="@context='inverse'">
+				ctx-><xsl:value-of select="@name"/> = <xsl:value-of select="@name"/>;
+			</xsl:when>
+			<xsl:when test="@set-from-bits-needed">
+				<xsl:value-of select="@name"/> = SWFBitsNeeded( <xsl:value-of select="@set-from-bits-needed"/> );
+				if( <xsl:value-of select="@name"/> > ctx-><xsl:value-of select="@name"/> ) ctx-><xsl:value-of select="@name"/> = <xsl:value-of select="@name"/>;
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="@name"/> = ctx-><xsl:value-of select="@name"/>;
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:for-each>
+}
+</xsl:for-each>
+
+}
+
+</xsl:document>
+	</xsl:template>
+
+
+<xsl:template match="byte|word|byteOrWord|fixedpoint|fixedpoint2|bit|integer|string|uint32|float|double|double2|half|u30|s24|encodedu32" mode="has">
+	if( <xsl:if test="../@negative">!</xsl:if>xmlHasProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>" ) ) has = true;
+</xsl:template>
+
+<xsl:template match="object|list|data|xml" mode="has">
+	{
+		xmlNodePtr child = node->children;
+		while( child &amp;&amp; !has ) {
+			if( !strcmp( (const char *)child->name, "<xsl:value-of select="@name"/>" ) ) has = true;
+			child = child->next;
+		}
+	}
+</xsl:template>
+
+
+<xsl:template match="flagged" mode="parsexml">
+	{
+		bool has = false;
+		<xsl:for-each select="*[@prop]|flagged|if">
+			<xsl:apply-templates select="." mode="has"/>
+			<xsl:choose>
+				<xsl:when test="../@signifier">
+					if( has ) <xsl:value-of select="../@flag"/> |= <xsl:value-of select="$signifier"/>;
+					else <xsl:value-of select="../@flag"/> ^= <xsl:value-of select="$signifier"/>;
+				</xsl:when>
+				<xsl:otherwise>
+					if( has ) <xsl:value-of select="../@flag"/> = <xsl:if test="../@negative">!</xsl:if>true;
+				</xsl:otherwise>
+			</xsl:choose>
+		</xsl:for-each>
+		
+		if( has ) {
+			<xsl:apply-templates select="*[@prop]|flagged|if" mode="parsexml"/>
+		}
+	
+		<xsl:for-each select="*[@context]">
+			<xsl:value-of select="@name"/> = ctx-><xsl:value-of select="@name"/>;
+		</xsl:for-each>
+	}
+</xsl:template>
+
+<xsl:template match="if" mode="parsexml">
+	if( <xsl:value-of select="@expression"/> ) {
+		<xsl:apply-templates select="*[@prop]|flagged|if" mode="parsexml"/>
+	}
+</xsl:template>
+
+
+<xsl:template match="byte|word|byteOrWord|bit|uint32|u30|s24" mode="parsexml">
+	tmp = xmlGetProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>" );
+	if( tmp ) {
+		int tmp_int;
+		sscanf( (char *)tmp, "<xsl:apply-templates select="." mode="printf"/>", &amp;tmp_int );
+		<xsl:value-of select="@name"/> = tmp_int;
+		xmlFree( tmp );
+	}
+</xsl:template>
+
+<xsl:template match="float|double|double2|half" mode="parsexml">
+	tmp = xmlGetProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>" );
+	if( tmp ) {
+		double tmp_float;
+		sscanf( (char *)tmp, "%lg", &amp;tmp_float );
+		<xsl:value-of select="@name"/> = tmp_float;
+		xmlFree( tmp );
+	}
+</xsl:template>
+
+<xsl:template match="fixedpoint|fixedpoint2" mode="parsexml">
+	tmp = xmlGetProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>" );
+	if( tmp ) {
+		double t;
+		sscanf( (char *)tmp, "%lg", &amp;t);
+		<xsl:value-of select="@name"/> = t;
+		xmlFree( tmp );
+		<xsl:choose>
+		<!-- should this be done in writer.xsl? -->
+			<xsl:when test="@constant-size"/>
+			<xsl:otherwise>
+				int b = SWFBitsNeeded( (long)(<xsl:value-of select="@name"/>*(1&lt;&lt; <xsl:value-of select="@exp"/>))<xsl:if test="@signed">, true</xsl:if> );
+				<xsl:if test="@size-add">b -= <xsl:value-of select="@size-add"/>;</xsl:if>
+				if( b > <xsl:value-of select="@size"/> ) <xsl:value-of select="@size"/> = b;
+			</xsl:otherwise>
+		</xsl:choose>
+	} else {
+		fprintf(stderr,"WARNING: no <xsl:value-of select="@name"/> property in %s element\n", (const char *)node->name );
+	}
+</xsl:template>
+
+<xsl:template match="integer" mode="parsexml">
+	tmp = xmlGetProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>" );
+	if( tmp ) {
+		sscanf( (char *)tmp, "<xsl:apply-templates select="." mode="printf"/>", &amp;<xsl:value-of select="@name"/>);
+		xmlFree( tmp );
+		<xsl:choose>
+		<!-- should this be done in writer.xsl? -->
+			<xsl:when test="@constant-size"/>
+			<xsl:otherwise>
+				int b = SWFBitsNeeded( <xsl:value-of select="@name"/><xsl:if test="@signed">, true</xsl:if> );
+				<xsl:if test="@size-add">b -= <xsl:value-of select="@size-add"/>;</xsl:if>
+				if( b > <xsl:value-of select="@size"/> ) <xsl:value-of select="@size"/> = b;
+			</xsl:otherwise>
+		</xsl:choose>
+	} else {
+		fprintf(stderr,"WARNING: no <xsl:value-of select="@name"/> property in %s element\n", (const char *)node->name );
+	}
+</xsl:template>
+
+<xsl:template match="string" mode="parsexml">
+	tmp = xmlGetProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>" );
+	if( tmp ) {
+		<xsl:value-of select="@name"/> = strdupx((const char *)tmp);
+                xmlFree(tmp);
+	} else {
+		fprintf(stderr,"WARNING: no <xsl:value-of select="@name"/> property in %s element\n", (const char *)node->name );
+		<xsl:value-of select="@name"/> = strdupx("[undefined]");
+	}
+</xsl:template>
+
+<xsl:template match="object" mode="parsexml">
+	node2 = node->children;
+	while( node2 ) {
+		if( !strcmp( (const char *)node2->name, "<xsl:value-of select="@name"/>" ) ) {
+<!--
+			<xsl:value-of select="@name"/>.parseXML( node2, ctx );
+			node=NULL;
+-->
+		xmlNodePtr child = node2->children;
+			while( child ) {
+				if( !xmlNodeIsText( child ) ) {
+					<xsl:value-of select="@name"/>.parseXML( child, ctx );
+					node2 = child = NULL;
+					node2 = NULL;
+				} else {
+					child = child->next;
+				}
+			}
+		}
+		if( node2 ) node2 = node2->next;
+	}
+</xsl:template>
+
+<xsl:template match="list" mode="parsexml">
+	node2 = node->children;
+	while( node2 ) {
+		if( !strcmp( (const char *)node2->name, "<xsl:value-of select="@name"/>" ) ) {
+			<xsl:if test="@length and not(@constant-length)">
+				<xsl:value-of select="@length"/>=0;
+			</xsl:if>
+			<xsl:if test="@end">
+				size_t l = 0;
+			</xsl:if>
+
+			xmlNodePtr child = node2->children;
+			while( child ) {
+				if( !xmlNodeIsText( child ) ) {
+					<xsl:value-of select="@type"/>* item = <xsl:value-of select="@type"/>::getByName( (const char *)child->name );
+					if( item ) {
+						item->parseXML( child, ctx );
+						<xsl:value-of select="@name"/>.append( item );
+						<xsl:if test="@length and not(@constant-length)">
+							<xsl:value-of select="@length"/>++;
+						</xsl:if>
+						<xsl:if test="@end">
+							l += item->getSize(ctx, l);
+						</xsl:if>
+					}
+				}
+				child = child->next;
+			}
+			
+			<xsl:if test="@length and @length-add">
+				<xsl:value-of select="@length"/> -= <xsl:value-of select="@length-add"/>;
+			</xsl:if>
+			<xsl:if test="@length and @length-sub">
+				if( <xsl:value-of select="@length"/> > 0 ) {
+					<xsl:value-of select="@length"/> += <xsl:value-of select="@length-sub"/>;
+				}
+			</xsl:if>
+			<xsl:if test="@end">
+				<xsl:value-of select="@end"/> = (l/8)<xsl:if test="@end-offset"> - (<xsl:value-of select="@end-offset"/>)</xsl:if>;
+			</xsl:if>
+
+			node2=NULL;
+		} else {
+			node2 = node2->next;
+		}
+	}
+</xsl:template>
+
+<xsl:template match="data" mode="parsexml">
+	{
+		<xsl:value-of select="@name"/> = NULL;
+		<xsl:value-of select="@size"/> = 0;
+
+		xmlChar *xmld = xmlNodeGetContent( node );
+		char *d = (char *)xmld;
+		if( d ) {
+			// unsure if this is neccessary
+			for( int i=strlen(d)-1; i>0 &amp;&amp; isspace(d[i]); i-- ) d[i]=0;
+			while( isspace(d[0]) ) d++;
+			int l = strlen(d); //BASE64_GET_MAX_DECODED_LEN(strlen( d ));
+			char *dst = new char[ l ];
+			int lout = base64_decode( dst, (char*)d, l );
+			if( lout > 0 ) {
+				<xsl:value-of select="@size"/> = lout;
+				<xsl:value-of select="@name"/> = new unsigned char[ lout ];
+				memcpy( <xsl:value-of select="@name"/>, dst, lout );
+			}
+			delete dst;
+			xmlFree( xmld );
+		}
+	}
+</xsl:template>
+
+<xsl:template match="xml" mode="parsexml">
+	{
+		xmlNodePtr child = NULL;
+		xmlNodePtr currentChild = node->children;
+		while( currentChild &amp;&amp; child == NULL) {
+			if( ! strcmp( (const char *)currentChild->name, (const char *)"<xsl:value-of select="@name"/>" ) ) {
+				child = currentChild;
+			}
+			
+			currentChild = currentChild->next;
+		}
+
+		<!-- FIXME: standardize string handling on xmlString. this should be deleted somewhere, and checked... -->
+		if (child == NULL) {
+			fprintf(stderr,"WARNING: no <xsl:value-of select="@name"/> child element in %s element\n", (const char *)node->name );
+			<xsl:value-of select="@name"/> = strdupx("[undefined]");
+		} else {
+			xmlDocPtr out = xmlNewDoc((const xmlChar*)"1.0");
+			out->xmlRootNode = xmlCopyNode( child, 1 );
+			
+			char *data; int size;
+			xmlDocDumpFormatMemory( out, (xmlChar**)&amp;data, &amp;size, 1 );
+			<xsl:value-of select="@name"/> = data;
+		}
+	}
+</xsl:template>
+
+<xsl:template match="context" mode="parsexml">
+	ctx-><xsl:value-of select="@param"/> = <xsl:value-of select="@value"/>;
+</xsl:template>
+
+</xsl:stylesheet>