swfmill 0.0.1

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

@@ -0,0 +1,190 @@
+<?xml version="1.0"?>
+<xsl:stylesheet	xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version='1.0'>
+	<xsl:template name="writer">
+<xsl:document href="g{/format/@format}Writer.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"/>
+
+void <xsl:value-of select="@name"/>::write( Writer *w, Context *ctx ) {
+	int start=w->getBitPosition();
+	if( ctx->debugTrace ) {
+		printf("WRITE <xsl:value-of select="@name"/> @%i\n", start/8 );
+		dump(1,ctx);
+	}
+<!--
+	<xsl:for-each select="*[@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:for-each>
+-->
+	<!-- calculate "next" offsets for some other lists-->
+	<xsl:for-each select="*[@next]">
+		if( !ctx->isLast ) {
+			int r = 0;
+			<xsl:apply-templates select="following-sibling::*" mode="size"/>
+			<xsl:value-of select="@name"/> = (r/8)<xsl:if test="@next-offset"> - (<xsl:value-of select="@next-offset"/>)</xsl:if>;
+		} else {
+			<xsl:value-of select="@name"/> = 0;
+		}
+	</xsl:for-each>
+
+	<xsl:choose>
+		<xsl:when test="@parent">
+			<xsl:apply-templates select="." mode="baseclass"/>::writeHeader( w, ctx, getSize(ctx,w->getBitPosition())/8 );
+		</xsl:when>
+		<xsl:when test="name()='type'"/>
+		<xsl:otherwise>
+			<xsl:apply-templates select="." mode="baseclass"/>::writeHeader( w, ctx, (getSize(ctx,w->getBitPosition())/8) <xsl:if test="@swallow"> - <xsl:value-of select="@swallow"/></xsl:if> );
+		</xsl:otherwise>
+	</xsl:choose>
+	
+	<xsl:apply-templates mode="write"/>
+
+	int l = w->getBitPosition()-start;
+	if( l != getSize(ctx,start)) {
+		printf("WARNING: <xsl:value-of select="@name"/> has different size than expected: %i bits instead of %i\n", l, getSize(ctx,start) );
+	}
+
+}
+
+</xsl:for-each>
+
+}
+
+</xsl:document>
+	</xsl:template>
+
+
+<xsl:template match="flagged" mode="write">
+	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="write"/>
+	}
+</xsl:template>
+
+<xsl:template match="if" mode="write">
+	if( <xsl:value-of select="@expression"/> ) {
+		<xsl:apply-templates mode="write"/>
+	}
+</xsl:template>
+
+<xsl:template match="byte|word|fixedpoint|fixedpoint2|bit|integer|string|uint32|float|double|double2|half|xml|u30|s24|encodedu32" mode="write">
+	<xsl:apply-templates select="." mode="put"/>;
+	<xsl:if test="@context">
+		ctx-&gt;<xsl:value-of select="@name"/> = <xsl:value-of select="@name"/>;
+	</xsl:if>
+</xsl:template>
+<xsl:template match="byte" mode="put">w->putByte(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="word" mode="put">w->putWord(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="uint32" mode="put">w->putInt(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="float" mode="put">w->putFloat(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="double" mode="put">w->putDouble(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="double2" mode="put">w->putDouble2(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="half" mode="put">w->putHalf(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="fixedpoint" mode="put">w->putNBitFixed(<xsl:value-of select="@name"/>,<xsl:value-of select="@size"/>,<xsl:value-of select="@exp"/><xsl:if test="@signed">,true</xsl:if>)</xsl:template>
+<xsl:template match="fixedpoint2" mode="put">w->putNBitFixed2(<xsl:value-of select="@name"/>,<xsl:value-of select="@size"/>,<xsl:value-of select="@exp"/><xsl:if test="@signed">,true</xsl:if>)</xsl:template>
+<xsl:template match="bit" mode="put">w->putNBitInt(<xsl:value-of select="@name"/>,1)</xsl:template>
+<xsl:template match="integer" mode="put">w->putNBitInt(<xsl:value-of select="@name"/>,<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="string[@mode='pascal']" mode="put">w->putPString(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="string[@mode='pascalU30']" mode="put">w->putPStringU30(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="string" mode="put" priority="-1">w->putString(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="data" mode="put">w->putData(<xsl:value-of select="@name"/>,<xsl:value-of select="@size"/>)</xsl:template>
+<xsl:template match="xml" mode="put" priority="-1">w->putString(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="u30" mode="put">w->putU30(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="s24" mode="put">w->putS24(<xsl:value-of select="@name"/>)</xsl:template>
+<xsl:template match="encodedu32" mode="put">w->putEncodedU32(<xsl:value-of select="@name"/>)</xsl:template>
+
+<xsl:template match="byteOrWord" mode="write">
+    {
+        int v = <xsl:value-of select="@name"/>;
+        if( v >= 255  &amp;&amp; ctx->tagVersion >= 2 ) {
+            w->putByte( 255 );
+            w->putWord( v );
+        } else {
+            w->putByte( v );
+        }
+    }
+
+	<xsl:if test="@context">
+		ctx-&gt;<xsl:value-of select="@name"/> = <xsl:value-of select="@name"/>;
+	</xsl:if>
+</xsl:template>
+
+<xsl:template match="object" mode="write">
+	<xsl:value-of select="@name"/>.write(w,ctx);
+</xsl:template>
+
+<xsl:template match="list[@length]" mode="write" 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>
+
+	{
+		<xsl:value-of select="@type"/> *item;
+		ListItem&lt;<xsl:value-of select="@type"/>&gt;* i;
+		i = <xsl:value-of select="@name"/>.first();
+		for( int j=0; j&lt;<xsl:value-of select="$length"/>; j++ ) {
+			if( !i || !i->data() ) {
+				printf("WARNING: list <xsl:value-of select="@name"/> has %i items (%i expected)\n", j, <xsl:value-of select="$length"/> );
+			} else {
+				i->data()->write( w, ctx );
+			}
+			i = i->next();
+		}
+	}
+</xsl:template>
+
+<xsl:template match="list" mode="write" priority="-1">
+	{
+		int start = w->getPosition();
+		<xsl:value-of select="@type"/> *item;
+		ListItem&lt;<xsl:value-of select="@type"/>&gt;* i;
+		i = <xsl:value-of select="@name"/>.first();
+		while( i ) {
+			if( !i->data() ) {
+				printf("WARNING: list <xsl:value-of select="@name"/> has an invalid item\n" );
+			} else {
+				ctx->isLast = i->isLast();
+				i->data()->write( w, ctx );
+			}
+			i = i->next();
+		}
+	}
+</xsl:template>
+
+<xsl:template match="data" mode="write">
+	if( <xsl:value-of select="@size"/> &amp;&amp; <xsl:value-of select="@name"/> ) {
+		w->putData( <xsl:value-of select="@name"/>, <xsl:value-of select="@size"/> );
+	}
+	w->byteAlign();
+</xsl:template>
+
+<xsl:template match="fill-byte" mode="write">
+	w->byteAlign();
+</xsl:template>
+
+<xsl:template match="context" mode="write">
+	ctx-><xsl:value-of select="@param"/> = <xsl:value-of select="@value"/>;
+</xsl:template>
+
+</xsl:stylesheet>

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

@@ -0,0 +1,138 @@
+<?xml version="1.0"?>
+<xsl:stylesheet	xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version='1.0'>
+	<xsl:template name="writexml">
+<xsl:document href="g{/format/@format}WriteXML.cpp" method="text">
+
+#include "<xsl:value-of select="/format/@format"/>.h"
+#include "base64.h"
+#include &lt;cstring&gt;
+
+namespace <xsl:value-of select="/format/@format"/> {
+
+#define TMP_STRLEN 0xFF
+
+<xsl:for-each select="type|tag|action|filter|style|stackitem|namespaceconstant|multinameconstant|trait|opcode">
+void <xsl:value-of select="@name"/>::writeXML( xmlNodePtr xml, Context *ctx ) {
+	char tmp[TMP_STRLEN];
+	xmlNodePtr node = xml;
+	xmlNodePtr node2;
+	
+	node = xmlNewChild( node, NULL, (const xmlChar *)"<xsl:value-of select="@name"/>", NULL );
+	<xsl:apply-templates select="*[@prop]|flagged|if|context" mode="writexml"/>
+	
+	if( ctx->transientPropsToXML ) {
+		snprintf( tmp, TMP_STRLEN, "%i", file_offset );
+		xmlSetProp( node, (const xmlChar *)"file_offset", (const xmlChar *)tmp );
+		<xsl:for-each select="*">
+			<xsl:choose>
+				<xsl:when test="@prop"/>
+				<xsl:otherwise>
+					<xsl:apply-templates select="." mode="writexml"/>
+				</xsl:otherwise>
+			</xsl:choose>
+		</xsl:for-each>
+	}
+	
+	<xsl:if test="@name='UnknownTag' or @name='UnknownAction'">
+		snprintf( tmp, TMP_STRLEN, "0x%02X", type );
+		xmlSetProp( node, (const xmlChar *)"id", (const xmlChar *)tmp );
+	</xsl:if>
+}
+</xsl:for-each>
+
+}
+
+</xsl:document>
+	</xsl:template>
+
+
+<xsl:template match="flagged" mode="writexml">
+	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 select="*[@prop]|flagged|if" mode="writexml"/>
+	}
+</xsl:template>
+
+
+<xsl:template match="if" mode="writexml">
+	if( <xsl:value-of select="@expression"/> ) {
+		<xsl:apply-templates select="*[@prop]|flagged|if" mode="writexml"/>
+	}
+</xsl:template>
+
+<xsl:template match="double|double2|half|float|fixedpoint|fixedpoint2" mode="writexml">
+	snprintf(tmp,TMP_STRLEN,"%#.*g", 16, <xsl:value-of select="@name"/>);
+	xmlSetProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>", (const xmlChar *)&amp;tmp );
+</xsl:template>
+
+<xsl:template match="byte|word|byteOrWord|integer|bit|uint32|u30|s24|encodedu32" mode="writexml">
+	snprintf(tmp,TMP_STRLEN,"<xsl:apply-templates select="." mode="printf"/>", <xsl:value-of select="@name"/>);
+	xmlSetProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>", (const xmlChar *)&amp;tmp );
+</xsl:template>
+
+<xsl:template match="string" mode="writexml">
+	if( <xsl:value-of select="@name"/> ) {
+		xmlSetProp( node, (const xmlChar *)"<xsl:value-of select="@name"/>", (const xmlChar *)<xsl:value-of select="@name"/> );
+	}
+</xsl:template>
+
+<xsl:template match="object" mode="writexml">
+	node2 = xmlNewChild( node, NULL, (const xmlChar *)"<xsl:value-of select="@name"/>", NULL );
+	<xsl:value-of select="@name"/>.writeXML( node2, ctx );
+</xsl:template>
+
+<xsl:template match="list" mode="writexml">
+	{
+		node2 = xmlNewChild( node, NULL, (const xmlChar *)"<xsl:value-of select="@name"/>", NULL );
+		<xsl:value-of select="@type"/> *item;
+		ListItem&lt;<xsl:value-of select="@type"/>&gt;* i;
+		i = <xsl:value-of select="@name"/>.first();
+		while( i ) {
+			item = i->data();
+			if( item ) {
+				item->writeXML( node2, ctx );
+			}
+			i = i->next();
+		}
+	}
+</xsl:template>
+
+<!-- FIXME: i dont really know how much memory to allocate for dst string.. -->
+<xsl:template match="data" mode="writexml">
+	{
+		if( <xsl:value-of select="@size"/> &amp;&amp; <xsl:value-of select="@name"/> ) {
+			char *tmp_data = (char *)<xsl:value-of select="@name"/>;
+			int sz = <xsl:value-of select="@size"/>;
+			char *tmpstr = new char[ (sz * 3) ];
+			
+			int l = base64_encode( tmpstr, tmp_data, sz );
+			if( l > 0 ) {
+				tmpstr[l] = 0;
+				xmlNewTextChild( node, NULL, (const xmlChar *)"<xsl:value-of select="@name"/>", (const xmlChar *)tmpstr );
+			}
+			delete tmpstr;
+		}
+	}
+</xsl:template>
+
+<xsl:template match="xml" mode="writexml">
+	{
+		if(<xsl:value-of select="@name"/> ) {
+			xmlDocPtr doc = xmlParseMemory(<xsl:value-of select="@name"/>, strlen(<xsl:value-of select="@name"/>));
+			if( doc ) {
+				xmlNodePtr child = doc->children;
+
+				child = xmlDocCopyNode(child, node->doc, 1);
+				xmlAddChild(node, child);
+
+				xmlFreeDoc(doc);
+			}
+		}
+	}
+</xsl:template>
+
+<xsl:template match="context" mode="writexml">
+	ctx-><xsl:value-of select="@param"/> = <xsl:value-of select="@value"/>;
+</xsl:template>
+
+</xsl:stylesheet>

data/ext/swfmill/src/swfmill.cpp

@@ -0,0 +1,482 @@
+#include <libexslt/exslt.h>
+#include "SWFFile.h"
+#include "swft.h"
+#include "xslt.h"
+#include <cstdlib>
+#include <cstring>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+#include <libxslt/transform.h>
+#include <libxslt/xsltutils.h>
+#include <dirent.h>
+
+using namespace SWF;
+
+bool quiet = false;
+bool verbose = false;
+bool dump = false;
+bool nonet = false;
+const char *internal_stylesheet = NULL;
+
+void usage() {
+	fprintf( stderr,
+		"\n"PACKAGE_NAME" "PACKAGE_VERSION"\n"
+		"    XML-based SWF processing tool\n"
+		"\n"
+		"usage: swfmill [<options>] <command>\n"
+		"\n"
+		"<command> is one of:\n"
+		"    swf2xml <in> [<out>]\n"
+		"        convert from SWF to XML.\n"
+		"        <in> is a single SWF file, or 'stdin'\n"
+		"        <out> is a single XML file, or (by default) 'stdout'\n"
+		"\n"
+		"    xml2swf <in> [<out>]\n"
+		"        convert from XML to SWF.\n"
+		"        <in> is a single XML file, or 'stdin'\n"
+		"        <out> is a single SWF file, or (by default) 'stdout'\n"
+		"\n"
+		"    simple <in> [<out>]\n"
+		"        convert from a movie definition file to SWF.\n"
+		"        <in> is a single XML file, or 'stdin'\n"
+		"        <out> is a single SWF file, or (by default) 'stdout'\n"
+		"        (for details, see README)\n"
+		"\n"
+		"    xslt <xsl> <in> [<out>"
+		//" [<param>*]"
+		"]\n"
+		"        transform <in> to <out> as described by <xsl>.\n"
+		"        <xsl> is the XSLT stylesheet,\n"
+		"            and can use the swft: extension.\n"
+		"        <in>  must be some XML (depends on <xsl>)\n"
+		"        <out> is either SWF (when it ends in .swf)\n"
+		"            or XML, by default on 'stdout'\n"
+//		"           <param>* is a whitespace-separated list of name=value\n"
+//		"                 assignments for xsl parameters\n"
+		"\n"
+		"<option>s are:\n"
+		"    -h print this help and quit\n"
+		"    -v verbose output\n"
+		"    -V extra-verbose debugging output\n"
+		"    -d dump SWF data when loaded (for debugging)\n"
+		"    -n deactivate libxml network access\n"
+		"\n"
+		"Please report bugs at http://bugs.launchpad.net/swfmill/+filebug\n\n"
+	);
+}
+
+// helper func
+xsltStylesheetPtr xsltParseStylesheetMemory( const char *buffer, int size ) {
+	xmlDocPtr doc = xmlParseMemory( buffer, size );
+	if( !doc ) return NULL;
+	xsltStylesheetPtr ret = xsltParseStylesheetDoc( doc );
+//	xmlFreeDoc( doc );
+	return ret;
+}
+
+int swfmill_swf2xml( int argc, char *argv[] ) {
+	const char *infile = NULL, *outfile = "stdout";
+	bool success = false;
+	FILE *in_fp=0, *out_fp=0;
+	bool std_in, std_out;
+
+	File input;
+	unsigned int filesize, size, xmlsize;
+    struct stat filestat;
+	char sig;
+	Context ctx;
+
+	// parse filenames
+	if( argc < 1 || argc > 2 ) {
+		usage();
+		goto fail;
+	}
+	infile = argv[0];
+	if( argc>1 ) outfile = argv[1];
+	
+// open files
+	std_in = !strncmp( infile, "stdin", 5 );
+	std_out = !strncmp( outfile, "stdout", 6 );
+	in_fp = std_in ? stdin : fopen( infile, "rb" );
+	if( !in_fp ) {
+		fprintf(stderr,"ERROR: could not open file %s for reading\n", infile?infile:"stdin" );
+		goto fail;
+	}
+	
+	if( !quiet ) fprintf(stderr,"Reading from %s\n", infile );
+	
+// stat filesize
+    filesize = (unsigned int)-1;
+    
+    if( !std_in ) {
+        stat( infile, &filestat );
+        filesize = filestat.st_size;
+//        fprintf(stderr,"Filesize: %u\n",filesize);
+    }
+    
+// setup context
+	ctx.debugTrace = verbose;
+	ctx.quiet = quiet;
+
+		// treat input as SWF, produce XML
+		if( (size = input.load( in_fp, &ctx, filesize )) != 0 ) {
+			if( dump ) input.dump();
+			out_fp = std_out ? stdout : fopen( outfile, "wb" );
+			if( !out_fp ) {
+				fprintf(stderr,"ERROR: could not open file %s for writing\n", outfile );
+				goto fail;
+			}
+			if( !quiet ) fprintf(stderr,"Writing XML to %s\n", outfile );
+			if( (xmlsize = input.saveXML( out_fp, &ctx )) != 0 ) {
+				if( !quiet ) fprintf(stderr,"XML saved to %s (%i bytes).\n", outfile, xmlsize );
+				success = true;
+			}
+		}
+fail:
+	if( in_fp && !std_in ) fclose(in_fp);
+	if( out_fp && !std_out ) fclose(out_fp);
+	
+	return success ? 0 : -1;
+}
+
+
+int swfmill_xml2swf( int argc, char *argv[] ) {
+	const char *infile = NULL, *outfile = "stdout";
+	bool success = false;
+	FILE *in_fp=0, *out_fp=0;
+	bool std_in, std_out;
+	const char *filename;
+	xsltStylesheetPtr transform = NULL;
+	
+	File input;
+	int size, xmlsize;
+	Context ctx;
+	xmlDocPtr doc = NULL, doc2;
+
+	// parse filenames
+	if( argc < 1 || argc > 2 ) {
+		usage();
+		goto fail;
+	}
+	infile = argv[0];
+	if( argc>1 ) outfile = argv[1];
+	
+// open files
+	std_in = !strncmp( infile, "stdin", 5 );
+	std_out = !strncmp( outfile, "stdout", 6 );
+	in_fp = std_in ? stdin : fopen( infile, "rb" );
+	if( !in_fp ) {
+		fprintf(stderr,"ERROR: could not open file %s for reading\n", infile?infile:"stdin" );
+		goto fail;
+	}
+	
+	if( !quiet ) fprintf(stderr,"Reading from %s\n", infile );
+	
+// setup context
+	ctx.debugTrace = verbose;
+	ctx.quiet = quiet;
+	
+	{
+		filename = std_in ? "-" : infile ;
+		doc = xmlParseFile( filename );
+		if( !doc ) {
+			fprintf( stderr, "ERROR: input document %s could not be read.\n", infile );
+			goto fail;
+		}
+
+		// see if one of the internal stylesheets should be used
+		if( internal_stylesheet ) {
+			transform = xsltParseStylesheetMemory( internal_stylesheet, strlen(internal_stylesheet) );
+			if( !transform ) {
+				fprintf( stderr, "ERROR: internal stylesheet could not be read.\n" );
+				goto fail;
+			}
+
+			const char *params[3];
+			params[0] = "quiet";
+			params[1] = "\"false\"";
+			params[2] = NULL;
+			if( quiet ) {
+				params[1] = "\"true\"";
+			}
+			doc2 = xsltApplyStylesheet( transform, doc, (const char **)&params );
+
+			if( !doc2 ) {
+				fprintf( stderr, "ERROR: transformation failed.\n" );
+				goto fail;
+			}	
+			
+			xmlFreeDoc( doc );
+			doc = doc2;
+		}
+		
+		// treat input as XML, produce SWF
+		input.setXML( doc->xmlRootNode, NULL );
+		if( dump ) input.dump();
+		out_fp = std_out ? stdout : fopen( outfile, "wb" );
+		if( !out_fp ) {
+			fprintf(stderr,"ERROR: could not open file '%s' for writing\n", outfile );
+			goto fail;
+		}
+		if( !quiet ) fprintf(stderr,"Writing SWF to %s\n", outfile );
+		if( (size = input.save( out_fp, &ctx )) != 0 ) {
+			success = true;
+			if( !quiet ) fprintf(stderr,"SWF saved to %s (%i bytes).\n", outfile, size );
+		}
+	}
+	
+fail:
+	if( doc ) xmlFreeDoc( doc );
+	if( in_fp && !std_in ) fclose(in_fp);
+	if( out_fp && !std_out ) fclose(out_fp);
+	
+	return success ? 0 : -1;
+}
+
+
+int swfmill_do_xslt( xmlDocPtr doc, xsltStylesheetPtr transform, const char *outfile );
+
+int swfmill_xslt( int argc, char *argv[] ) {
+	const char *xslfile, *infile, *outfile = "stdout";
+	xmlDocPtr doc = NULL;
+	xsltStylesheetPtr transform;
+	
+	// parse filenames
+	if( argc < 2 || argc > 3 ) {
+		usage();
+		goto fail;
+	}
+	xslfile = argv[0];
+	infile = argv[1];
+	if( argc>2 ) outfile = argv[2];
+
+	doc = xmlParseFile( infile );
+	if( !doc ) {
+		fprintf( stderr, "ERROR: input document %s could not be read.\n", infile );
+		goto fail;
+	}
+
+	transform = xsltParseStylesheetFile( (const xmlChar *)xslfile );
+	if( !transform ) {
+		fprintf( stderr, "ERROR: stylesheet %s could not be read.\n", xslfile );
+		goto fail;
+	}
+	
+	return swfmill_do_xslt( doc, transform, outfile );
+	
+	fail:
+		return -1;
+}
+
+int swfmill_do_xslt( xmlDocPtr doc, xsltStylesheetPtr transform, const char *outfile ) {
+	xmlDocPtr doc2 = NULL;
+	FILE *out_fp;
+	const char *ext;
+	Context ctx;
+	int size;
+
+	const char *params[3];
+	params[0] = "quiet";
+	params[1] = "\"FALSE\"";
+	params[2] = NULL;
+	if( quiet ) {
+		params[1] = "\"FALSE\"";
+	}
+	
+	// setup context
+	ctx.debugTrace = verbose;
+	ctx.quiet = quiet;
+
+	
+	if( !quiet ) fprintf( stderr, "Applying XSLT...\n" );
+	doc2 = xsltApplyStylesheet( transform, doc, params );
+	
+	if( !doc2 ) {
+		fprintf( stderr, "ERROR: transformation failed.\n" );
+		goto fail;
+	}	
+	
+	if( (ext = strrchr(outfile,'.'))!=NULL && !strncmp( ".swf", ext, 4 ) ) {
+		if( !quiet ) fprintf( stderr, "Saving to SWF %s\n", outfile);		
+		
+		File swf;
+		swf.setXML( doc2->xmlRootNode, NULL );
+
+		out_fp = fopen( outfile, "wb" );
+		if( !out_fp ) {
+			fprintf(stderr,"ERROR: could not open file '%s' for writing\n", outfile );
+			goto fail;
+		}
+		if( !quiet ) fprintf(stderr,"Writing SWF to %s\n", outfile );
+		if( (size = swf.save( out_fp, &ctx )) != 0 ) {
+			if( !quiet ) fprintf(stderr,"SWF saved to %s (%i bytes).\n", outfile, size );
+			if( doc ) xmlFreeDoc(doc);
+			if( doc2 ) xmlFreeDoc(doc2);
+			if( transform ) xsltFreeStylesheet( transform );
+			return 0;
+		}
+	} else {
+		bool std_out = !strncmp( outfile, "stdout", 6 );
+		const char *file = std_out ? "-" : outfile;
+		return xsltSaveResultToFilename( file, doc2, transform, 0 );
+	}
+	
+fail:
+	if( doc ) xmlFreeDoc(doc);
+	if( doc2 ) xmlFreeDoc(doc2);
+	if( transform ) xsltFreeStylesheet( transform );
+	return -1;
+}
+
+
+void swfmill_create_library( xmlNodePtr lib, const char *filename );
+
+void swfmill_create_library_dir( xmlNodePtr lib, const char *dir ) {
+	char tmp[256];
+	
+	struct dirent *e;
+	DIR *d = opendir( dir );
+	if( d == NULL ) return;
+		
+	while( true ) {
+		e = readdir(d);
+		if( e==NULL ) break;
+		if( e->d_name[0] == '.' ) continue; // no hidden files
+		
+		snprintf( tmp, 1023, "%s/%s", dir, e->d_name );
+		swfmill_create_library( lib, tmp );
+	}
+}
+
+void swfmill_create_library( xmlNodePtr lib, const char *filename ) {
+	struct stat s;
+	if( stat(filename,&s) ) return;
+
+/*
+	int i=strlen(filename)-1;
+	while( i>0 && filename[i]!='.' ) i--;
+	const char *ext = &filename[i];
+*/	
+	if( S_ISDIR(s.st_mode) ) {
+		swfmill_create_library_dir( lib, filename );
+	} else {
+//		if( !strcmp( ext, ".jpg" ) || !strcmp( ext, ".jpeg" ) ) {
+		
+		xmlNodePtr node = xmlNewChild( lib, NULL, (const xmlChar*)"clip", NULL );
+		xmlSetProp( node, (const xmlChar *)"id", (const xmlChar *)filename );
+		xmlSetProp( node, (const xmlChar *)"import", (const xmlChar *)filename );
+	}
+	
+//	fprintf(stderr, "clip %s: %s (%s)\n", filename, S_ISDIR(s.st_mode)?"dir":"file", ext );
+	
+}
+
+int swfmill_library( int argc, char *argv[] ) {
+	if( argc < 2 ) {
+		fprintf( stderr, "library creation needs at least two arguments\n\tswfmill library <input file(s)/dir(s)> <output>.swf\n" );
+		return -1;
+	}
+	const char *outfile = argv[argc-1];
+	argc--;
+		
+	internal_stylesheet = xslt_simple;
+	
+	xmlDocPtr doc = xmlNewDoc((const xmlChar*)"1.0");
+	doc->children = xmlNewDocNode( doc, NULL, (const xmlChar*)"movie", NULL );
+	
+	xmlNodePtr lib = xmlNewChild( doc->children, NULL, (const xmlChar *)"library", NULL );
+	
+	for( int i=0; i<argc; i++ ) {
+		swfmill_create_library( lib, argv[i] );
+	}
+	
+	xmlNodePtr node = xmlNewChild( lib, NULL, (const xmlChar *)"frame", NULL );
+//	xmlSetProp( node, (const xmlChar*)"id", (const xmlChar *)"foo");
+	
+	xsltStylesheetPtr transform = xsltParseStylesheetMemory( internal_stylesheet, strlen(internal_stylesheet) );
+	if( !transform ) {
+		fprintf( stderr, "ERROR: internal stylesheet could not be read.\n" );
+		return -1;
+	}
+	
+	swfmill_do_xslt( doc, transform, outfile );
+}
+
+int main( int argc, char *argv[] ) {
+	char *command = NULL;
+	
+	swft_register();
+	exsltRegisterAll();
+
+	quiet = true;
+	
+// parse args
+	int i=1;
+	for( ; i<argc && command==NULL; i++ ) {
+		if( argv[i][0] == '-' ) {
+			int swallow=0;
+			for( int j=1; j<strlen(argv[i]); j++ ) {
+				switch( argv[i][j] ) {
+					case 'q':
+						quiet = true;
+						break;
+					case 'v':
+						quiet = false;
+						break;
+					case 'V':
+						verbose = true;
+						break;
+					case 'd':
+						dump = true;
+						break;
+					case 'n':
+						nonet = true;
+						break;
+					case 'h':
+					case '?':
+						usage();
+						goto fail;
+						break;
+					default:
+						fprintf(stderr,"ERROR: unknown option %c\n",argv[i][j]);
+						usage();
+						goto fail;
+				}
+			}
+			i+=swallow;
+		} else {
+			if( !command ) command=argv[i];
+		}
+	}
+	
+	if( !command ) {
+		usage();
+		goto fail;
+	}
+	
+	if( nonet ) xmlSetExternalEntityLoader( xmlNoNetExternalEntityLoader );
+	
+	if( !quiet ) fprintf( stderr, "%s %s\n", PACKAGE_NAME, PACKAGE_VERSION );
+
+	if( !strcmp( command, "swf2xml" ) ) {
+		return swfmill_swf2xml( argc-i, &argv[i] );
+	} else if( !strcmp( command, "xml2swf" ) ) {
+		return swfmill_xml2swf( argc-i, &argv[i] );
+	} else if( !strcmp( command, "xslt" ) ) {
+		return swfmill_xslt( argc-i, &argv[i] );
+	} else if( !strcmp( command, "simple" ) ) {
+		internal_stylesheet = xslt_simple;
+		return swfmill_xml2swf( argc-i, &argv[i] );
+	} else if( !strcmp( command, "library" ) ) {
+		return swfmill_library( argc-i, &argv[i] );
+	} else {
+		fprintf(stderr,"ERROR: unknown command %s\n", command );
+		usage();
+		goto fail;
+	}
+		
+fail:
+	return -1;
+}
+