swfmill 0.0.1

data/ext/swfmill/test/xml/Makefile.am

@@ -0,0 +1,20 @@
+
+
+.PHONY: test run-tests
+
+check-local: test
+
+test: run-tests
+
+EXTRA_DIST = \
+	test-xml \
+	$(NULL)
+
+check_SCRIPTS = \
+	run-xml-tests \
+	$(NULL)
+
+run-tests:
+	sh $(srcdir)/run-xml-tests $(srcdir)
+
+CLEANFILES = *.swf *.xml.swf

data/ext/swfmill/test/xml/Makefile.in

@@ -0,0 +1,353 @@
+# Makefile.in generated by automake 1.10.1 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
+# 2003, 2004, 2005, 2006, 2007, 2008  Free Software Foundation, Inc.
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+@SET_MAKE@
+VPATH = @srcdir@
+pkgdatadir = $(datadir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
+install_sh_DATA = $(install_sh) -c -m 644
+install_sh_PROGRAM = $(install_sh) -c
+install_sh_SCRIPT = $(install_sh) -c
+INSTALL_HEADER = $(INSTALL_DATA)
+transform = $(program_transform_name)
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+build_triplet = @build@
+host_triplet = @host@
+subdir = test/xml
+DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = $(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+	$(ACLOCAL_M4)
+mkinstalldirs = $(install_sh) -d
+CONFIG_CLEAN_FILES =
+SOURCES =
+DIST_SOURCES =
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DSYMUTIL = @DSYMUTIL@
+ECHO = @ECHO@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FFLAGS = @FFLAGS@
+FREETYPE_CFLAGS = @FREETYPE_CFLAGS@
+FREETYPE_LIBS = @FREETYPE_LIBS@
+GREP = @GREP@
+HAVE_PKGCONFIG = @HAVE_PKGCONFIG@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+MAKEINFO = @MAKEINFO@
+MKDIR_P = @MKDIR_P@
+NMEDIT = @NMEDIT@
+OBJEXT = @OBJEXT@
+PACKAGE = @PACKAGE@
+PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
+PACKAGE_NAME = @PACKAGE_NAME@
+PACKAGE_STRING = @PACKAGE_STRING@
+PACKAGE_TARNAME = @PACKAGE_TARNAME@
+PACKAGE_VERSION = @PACKAGE_VERSION@
+PATH_SEPARATOR = @PATH_SEPARATOR@
+PKG_CONFIG = @PKG_CONFIG@
+PNG_CFLAGS = @PNG_CFLAGS@
+PNG_LIBS = @PNG_LIBS@
+RANLIB = @RANLIB@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+VERSION = @VERSION@
+XML_CFLAGS = @XML_CFLAGS@
+XML_LIBS = @XML_LIBS@
+XSLT_CFLAGS = @XSLT_CFLAGS@
+XSLT_LIBS = @XSLT_LIBS@
+abs_builddir = @abs_builddir@
+abs_srcdir = @abs_srcdir@
+abs_top_builddir = @abs_top_builddir@
+abs_top_srcdir = @abs_top_srcdir@
+ac_ct_CC = @ac_ct_CC@
+ac_ct_CXX = @ac_ct_CXX@
+ac_ct_F77 = @ac_ct_F77@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+bindir = @bindir@
+build = @build@
+build_alias = @build_alias@
+build_cpu = @build_cpu@
+build_os = @build_os@
+build_vendor = @build_vendor@
+builddir = @builddir@
+datadir = @datadir@
+datarootdir = @datarootdir@
+docdir = @docdir@
+dvidir = @dvidir@
+exec_prefix = @exec_prefix@
+host = @host@
+host_alias = @host_alias@
+host_cpu = @host_cpu@
+host_os = @host_os@
+host_vendor = @host_vendor@
+htmldir = @htmldir@
+includedir = @includedir@
+infodir = @infodir@
+install_sh = @install_sh@
+libdir = @libdir@
+libexecdir = @libexecdir@
+localedir = @localedir@
+localstatedir = @localstatedir@
+mandir = @mandir@
+mkdir_p = @mkdir_p@
+oldincludedir = @oldincludedir@
+pdfdir = @pdfdir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+sbindir = @sbindir@
+sharedstatedir = @sharedstatedir@
+srcdir = @srcdir@
+sysconfdir = @sysconfdir@
+target_alias = @target_alias@
+top_builddir = @top_builddir@
+top_srcdir = @top_srcdir@
+EXTRA_DIST = \
+	test-xml \
+	$(NULL)
+
+check_SCRIPTS = \
+	run-xml-tests \
+	$(NULL)
+
+CLEANFILES = *.swf *.xml.swf
+all: all-am
+
+.SUFFIXES:
+$(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
+	@for dep in $?; do \
+	  case '$(am__configure_deps)' in \
+	    *$$dep*) \
+	      cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \
+		&& exit 0; \
+	      exit 1;; \
+	  esac; \
+	done; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign  test/xml/Makefile'; \
+	cd $(top_srcdir) && \
+	  $(AUTOMAKE) --foreign  test/xml/Makefile
+.PRECIOUS: Makefile
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+	@case '$?' in \
+	  *config.status*) \
+	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
+	  *) \
+	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
+	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
+	esac;
+
+$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+
+$(top_srcdir)/configure:  $(am__configure_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(ACLOCAL_M4):  $(am__aclocal_m4_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+
+mostlyclean-libtool:
+	-rm -f *.lo
+
+clean-libtool:
+	-rm -rf .libs _libs
+tags: TAGS
+TAGS:
+
+ctags: CTAGS
+CTAGS:
+
+
+distdir: $(DISTFILES)
+	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	list='$(DISTFILES)'; \
+	  dist_files=`for file in $$list; do echo $$file; done | \
+	  sed -e "s|^$$srcdirstrip/||;t" \
+	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
+	case $$dist_files in \
+	  */*) $(MKDIR_P) `echo "$$dist_files" | \
+			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
+			   sort -u` ;; \
+	esac; \
+	for file in $$dist_files; do \
+	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
+	  if test -d $$d/$$file; then \
+	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
+	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
+	      cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \
+	    fi; \
+	    cp -pR $$d/$$file $(distdir)$$dir || exit 1; \
+	  else \
+	    test -f $(distdir)/$$file \
+	    || cp -p $$d/$$file $(distdir)/$$file \
+	    || exit 1; \
+	  fi; \
+	done
+check-am: all-am
+	$(MAKE) $(AM_MAKEFLAGS) $(check_SCRIPTS)
+	$(MAKE) $(AM_MAKEFLAGS) check-local
+check: check-am
+all-am: Makefile
+installdirs:
+install: install-am
+install-exec: install-exec-am
+install-data: install-data-am
+uninstall: uninstall-am
+
+install-am: all-am
+	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+
+installcheck: installcheck-am
+install-strip:
+	$(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+	  install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+	  `test -z '$(STRIP)' || \
+	    echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+mostlyclean-generic:
+
+clean-generic:
+	-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
+
+distclean-generic:
+	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
+
+maintainer-clean-generic:
+	@echo "This command is intended for maintainers to use"
+	@echo "it deletes files that may require special tools to rebuild."
+clean: clean-am
+
+clean-am: clean-generic clean-libtool mostlyclean-am
+
+distclean: distclean-am
+	-rm -f Makefile
+distclean-am: clean-am distclean-generic
+
+dvi: dvi-am
+
+dvi-am:
+
+html: html-am
+
+info: info-am
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-am
+
+install-exec-am:
+
+install-html: install-html-am
+
+install-info: install-info-am
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-ps: install-ps-am
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+	-rm -f Makefile
+maintainer-clean-am: distclean-am maintainer-clean-generic
+
+mostlyclean: mostlyclean-am
+
+mostlyclean-am: mostlyclean-generic mostlyclean-libtool
+
+pdf: pdf-am
+
+pdf-am:
+
+ps: ps-am
+
+ps-am:
+
+uninstall-am:
+
+.MAKE: install-am install-strip
+
+.PHONY: all all-am check check-am check-local clean clean-generic \
+	clean-libtool distclean distclean-generic distclean-libtool \
+	distdir dvi dvi-am html html-am info info-am install \
+	install-am install-data install-data-am install-dvi \
+	install-dvi-am install-exec install-exec-am install-html \
+	install-html-am install-info install-info-am install-man \
+	install-pdf install-pdf-am install-ps install-ps-am \
+	install-strip installcheck installcheck-am installdirs \
+	maintainer-clean maintainer-clean-generic mostlyclean \
+	mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
+	uninstall uninstall-am
+
+
+.PHONY: test run-tests
+
+check-local: test
+
+test: run-tests
+
+run-tests:
+	sh $(srcdir)/run-xml-tests $(srcdir)
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:

data/ext/swfmill/test/xml/test-xml

@@ -0,0 +1,21 @@
+#!/bin/sh
+
+SWFMILL=../../src/swfmill
+
+file=$1
+swf=`basename ${file}`.swf
+target=${swf}.xml
+
+$SWFMILL xml2swf ${file} ${swf}
+$SWFMILL swf2xml ${swf} ${target}
+
+if [ ! -e ${swf} -o ! -e ${target} ]; then
+	exit 1
+fi
+
+diff -q ${file} ${target}
+ret=$?
+
+if [ ${ret} -ne 0 ]; then
+	exit 1
+fi

data/ext/swfmill_ext.cc

@@ -0,0 +1,375 @@
+#include <zlib.h>
+#include "ruby.h"
+#include "SWF.h"
+#include "SWFReader.h"
+#include "SWFWriter.h"
+
+static VALUE rb_mSwfmill;
+static VALUE rb_eSwfmill_Error;
+static VALUE rb_eSwfmill_EOFError;
+
+/*
+  call-seq:
+    Swfmill.to_xmlstr(str [, params]) -> String
+
+  +params+
+    {
+      :version => Fixnum,
+      :compressed => Boolean,
+    }
+ */
+VALUE swfmill_ext_to_xmlstr(int argc, VALUE *argv, VALUE self)
+{
+    VALUE arg_str, arg_param;
+    int arg_num = rb_scan_args(argc, argv, "11", &arg_str, &arg_param);
+
+    unsigned char version = 7;
+    bool       compressed = false;
+
+    Check_Type(arg_str, T_STRING);
+    if(arg_num == 2)
+    {
+        Check_Type(arg_param, T_HASH);
+
+        VALUE ver = rb_hash_aref(arg_param, ID2SYM(rb_intern("version")));
+        if(!NIL_P(ver))
+        {
+            version = (unsigned char)NUM2INT(ver);
+        }
+
+        VALUE cmp = rb_hash_aref(arg_param, ID2SYM(rb_intern("compressed")));
+        if(!NIL_P(cmp))
+        {
+            compressed = cmp == Qtrue;
+        }
+    }
+
+    unsigned char* data = (unsigned char*)StringValuePtr(arg_str);
+    size_t         size = RSTRING_LEN(arg_str);
+
+    SWF::Header header;
+    {
+        SWF::Context context;
+        SWF::Reader reader(data, size);
+        header.parse(&reader, size, &context);
+        switch(reader.getError())
+        {
+        case SWFR_ERROR:
+            rb_raise(rb_eSwfmill_Error, "unknown error while reading SWF");
+            break;
+        case SWFR_EOF:
+            rb_raise(rb_eSwfmill_EOFError, "reached EOF while reading SWF");
+            break;
+        }
+    }
+
+    VALUE xml = Qnil;
+    {
+        SWF::Context context;
+        xmlDocPtr  doc  = xmlNewDoc((const xmlChar*)"1.0");
+        xmlNodePtr root = doc->xmlRootNode = xmlNewDocNode(doc, NULL, (const xmlChar *)"swf", NULL);
+        char       tmp[4];
+
+        snprintf(tmp, sizeof(tmp), "%i", version);
+        xmlSetProp(root, (const xmlChar*)"version", (const xmlChar*)tmp);
+
+        snprintf(tmp, sizeof(tmp), "%i", compressed?1:0);
+        xmlSetProp(root, (const xmlChar*)"compressed", (const xmlChar*)tmp);
+
+        context.swfVersion = version;
+        header.writeXML(root, &context);
+
+        char* xml_data = NULL;
+        int   xml_size;
+        xmlDocDumpFormatMemory(doc, (xmlChar **)&xml_data, &xml_size, 1);
+
+        if(xml_size > 0)
+        {
+            xml = rb_str_new(xml_data, xml_size);
+        }
+
+        if(xml_data != NULL)
+        {
+            xmlFree(xml_data);
+        }
+
+        xmlFreeDoc(doc);
+    }
+
+    return xml;
+}
+
+/*
+  call-seq:
+    Swfmill.to_swf(str [, params]) -> Array
+
+  +params+
+    {
+      :compress => Boolean,
+      :level => Symbol,
+    }
+
+  :compress
+    true
+    false
+    nil
+
+  :level
+    :best
+    :speed
+    :none
+ */
+VALUE swfmill_ext_to_swf(int argc, VALUE *argv, VALUE self)
+{
+    VALUE arg_str, arg_param;
+    int arg_num = rb_scan_args(argc, argv, "11", &arg_str, &arg_param);
+
+    unsigned char version = 7;
+    bool       compressed = false;
+    int          compress = 0;
+    int    compress_level = Z_BEST_COMPRESSION;
+
+    Check_Type(arg_str, T_STRING);
+    if(arg_num == 2)
+    {
+        Check_Type(arg_param, T_HASH);
+
+        VALUE lvl = rb_hash_aref(arg_param, ID2SYM(rb_intern("level")));
+        if(!NIL_P(lvl))
+        {
+            if(lvl == ID2SYM(rb_intern("speed")))
+            {
+                compress_level = Z_BEST_SPEED;
+            }
+            if(lvl == ID2SYM(rb_intern("none")))
+            {
+                compress_level = Z_NO_COMPRESSION;
+            }
+        }
+
+        VALUE cmp = rb_hash_aref(arg_param, ID2SYM(rb_intern("compressed")));
+        if(!NIL_P(cmp))
+        {
+            compress = cmp == Qtrue ? 1 : 2;
+        }
+    }
+
+    char*      data = StringValuePtr(arg_str);
+    int        size = RSTRING_LEN(arg_str);
+    xmlDocPtr  doc  = xmlParseMemory(data, size);
+
+    if(doc == NULL)
+    {
+        rb_raise(rb_eSwfmill_Error, "XML parser error");
+    }
+
+    xmlNodePtr root = doc->xmlRootNode;
+    if(strcmp((const char*)root->name, "swf") != 0)
+    {
+        xmlFreeDoc(doc);
+        rb_raise(rb_eSwfmill_Error, "doesn't seem to be a swfml file");
+    }
+
+    xmlNodePtr headerNode = root->children;
+	while((headerNode != NULL) &&
+          (headerNode->name == NULL || strcmp((const char*)headerNode->name, "Header") != 0))
+    {
+		headerNode = headerNode->next;
+	}
+    if(headerNode == NULL)
+    {
+        xmlFreeDoc(doc);
+        rb_raise(rb_eSwfmill_Error, "swfml file is empty");
+    }
+
+    {
+        xmlChar *tmp;
+        tmp = xmlGetProp(root, (const xmlChar*)"version");
+        if(tmp != NULL)
+        {
+            int i;
+            sscanf((char*)tmp, "%i", &i);
+            version = i;
+            xmlFree(tmp);
+        }
+
+        tmp = xmlGetProp(root, (const xmlChar*)"compressed");
+        if(tmp != NULL)
+        {
+            int i;
+            sscanf((char*)tmp, "%i", &i);
+            compressed = i > 0;
+            xmlFree(tmp);
+        }
+    }
+    if(compress > 0)
+    {
+        compressed = compress == 1;
+    }
+
+    SWF::Header header;
+    size_t swf_size;
+    {
+        SWF::Context context;
+        context.swfVersion = version;
+        header.parseXML(headerNode, &context);
+        swf_size = header.getSize(&context, 0) / 8;
+    }
+
+    char swf_head[8+1];
+    {
+        swf_size += 8;
+        snprintf(swf_head, 8, "%s%c%c%c%c%c",
+                 compressed ? "CWS" : "FWS",
+                 version,
+                 ((swf_size>> 0) & 0xFF),
+                 ((swf_size>> 8) & 0xFF),
+                 ((swf_size>>16) & 0xFF),
+                 ((swf_size>>24) & 0xFF));
+        swf_size -= 8;
+    }
+
+    unsigned char* swf_buff = (unsigned char*)ruby_xmalloc(swf_size);
+    {
+        SWF::Context context;
+        SWF::Writer writer(swf_buff, swf_size);
+        context.swfVersion = version;
+        header.write(&writer, &context);
+        switch(writer.getError())
+        {
+        case SWFW_ERROR:
+            ruby_xfree(swf_buff);
+            xmlFreeDoc(doc);
+            rb_raise(rb_eSwfmill_Error, "unknown write error");
+            break;
+        case SWFW_FULL:
+            ruby_xfree(swf_buff);
+            xmlFreeDoc(doc);
+            rb_raise(rb_eSwfmill_Error, "write buffer full");
+            break;
+        }
+    }
+
+    if(compressed)
+    {
+        unsigned char temp[BUFSIZ];
+        z_stream stream={Z_NULL};
+        int status, count;
+
+        unsigned char* out_buff = (unsigned char*)ruby_xmalloc(swf_size);
+        int out_offset = 0, out_size = swf_size;
+
+        stream.next_in   = swf_buff;
+        stream.avail_in  = swf_size;
+        stream.next_out  = temp;
+        stream.avail_out = BUFSIZ;
+
+        status = deflateInit(&stream, compress_level);
+        if(status != Z_OK)
+        {
+            ruby_xfree(swf_buff);
+            xmlFreeDoc(doc);
+            rb_raise(rb_eSwfmill_Error, "Error compressing SWF: %s", stream.msg);
+        }
+
+        for(;;)
+        {
+            if(stream.avail_in == 0)
+            {
+                break;
+            }
+
+            status = deflate(&stream, Z_NO_FLUSH);
+            if(status != Z_OK)
+            {
+                ruby_xfree(swf_buff);
+                xmlFreeDoc(doc);
+                rb_raise(rb_eSwfmill_Error, "Error compressing SWF: %s", stream.msg);
+            }
+
+            count = BUFSIZ - stream.avail_out;
+            if(count > 0)
+            {
+                if(out_offset + count >= out_size)
+                {
+                    int tmp_size = out_size + out_size / 2;
+                    unsigned char* tmp_buff = (unsigned char*)ruby_xmalloc(tmp_size);
+                    memcpy(tmp_buff, out_buff, out_size);
+                    ruby_xfree(out_buff);
+                    out_buff = tmp_buff;
+                    out_size = tmp_size;
+                }
+                memcpy(out_buff + out_offset, temp, count);
+                out_offset += count;
+            }
+
+            stream.next_out  = temp;
+            stream.avail_out = BUFSIZ;
+        }
+
+        do
+        {
+            status = deflate(&stream, Z_FINISH);
+
+            count = BUFSIZ - stream.avail_out;
+            if(count > 0)
+            {
+                if(out_offset + count >= out_size)
+                {
+                    int tmp_size = out_size + out_size / 2;
+                    unsigned char* tmp_buff = (unsigned char*)ruby_xmalloc(tmp_size);
+                    memcpy(tmp_buff, out_buff, out_size);
+                    ruby_xfree(out_buff);
+                    out_buff = tmp_buff;
+                    out_size = tmp_size;
+                }
+                memcpy(out_buff + out_offset, temp, count);
+                out_offset += count;
+            }
+
+            stream.next_out  = temp;
+            stream.avail_out = BUFSIZ;
+        } while(status == Z_OK);
+
+        if(status != Z_STREAM_END)
+        {
+            ruby_xfree(swf_buff);
+            xmlFreeDoc(doc);
+            rb_raise(rb_eSwfmill_Error, "Error compressing SWF: %s", stream.msg);
+        }
+
+        status = deflateEnd(&stream);
+        if(status != Z_OK)
+        {
+            ruby_xfree(swf_buff);
+            xmlFreeDoc(doc);
+            rb_raise(rb_eSwfmill_Error, "Error compressing SWF: %s", stream.msg);
+        }
+
+        ruby_xfree(swf_buff);
+        swf_size = out_offset;
+        swf_buff = (unsigned char*)ruby_xmalloc(swf_size);
+        memcpy(swf_buff, out_buff, swf_size);
+        ruby_xfree(out_buff);
+    }
+
+    VALUE swf;
+    swf = rb_str_new(swf_head, 8);
+    rb_str_cat(swf, (const char*)swf_buff, swf_size);
+
+    ruby_xfree(swf_buff);
+    xmlFreeDoc(doc);
+    return swf;
+}
+
+extern "C" {
+    void Init_swfmill_ext(void)
+    {
+        rb_mSwfmill = rb_define_module("Swfmill");
+        rb_define_singleton_method(rb_mSwfmill, "to_xmlstr", (VALUE(*)(...))swfmill_ext_to_xmlstr, -1);
+        rb_define_singleton_method(rb_mSwfmill, "to_swf", (VALUE(*)(...))swfmill_ext_to_swf, -1);
+
+        rb_eSwfmill_Error = rb_define_class_under(rb_mSwfmill, "Error", rb_eStandardError);
+        rb_eSwfmill_EOFError = rb_define_class_under(rb_mSwfmill, "EOFError", rb_eStandardError);
+    }
+}