/*
   +----------------------------------------------------------------------+
   | PHP Version 4                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) 1997-2002 The PHP Group                                |
   +----------------------------------------------------------------------+
   | This source file is subject to version 2.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available at through the world-wide-web at                           |
   | http://www.php.net/license/2_01.txt.                                 |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Author: dave@opaque.net                                              |
   +----------------------------------------------------------------------+
*/

#include <stdio.h>
#include <math.h>

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "php.h"
#include "php_ming.h"
#include "ext/standard/info.h"
#include "ext/standard/file.h"
#include "ext/standard/fsock.h"
#include "php_streams.h"

#if HAVE_MING

static zend_function_entry ming_functions[] = {
  PHP_FALIAS(ming_setcubicthreshold,  ming_setCubicThreshold,  NULL)
  PHP_FALIAS(ming_setscale,           ming_setScale,           NULL)
  PHP_FALIAS(ming_useswfversion,      ming_useSWFVersion,      NULL)
  PHP_FALIAS(swfbutton_keypress,      swfbutton_keypress,      NULL)
  { NULL, NULL, NULL }
};

static SWFMovie getMovie(zval *id TSRMLS_DC);
static SWFFill getFill(zval *id TSRMLS_DC);
static SWFGradient getGradient(zval *id TSRMLS_DC);
static SWFBitmap getBitmap(zval *id TSRMLS_DC);
static SWFShape getShape(zval *id TSRMLS_DC);
static SWFFont getFont(zval *id TSRMLS_DC);
static SWFText getText(zval *id TSRMLS_DC);
static SWFTextField getTextField(zval *id TSRMLS_DC);
static SWFDisplayItem getDisplayItem(zval *id TSRMLS_DC);
static SWFButton getButton(zval *id TSRMLS_DC);
static SWFAction getAction(zval *id TSRMLS_DC);
static SWFMorph getMorph(zval *id TSRMLS_DC);
static SWFMovieClip getSprite(zval *id TSRMLS_DC);

/* {{{ proto void ming_setcubicthreshold (int threshold)
	Set cubic threshold (?) */
PHP_FUNCTION(ming_setCubicThreshold)
{
  zval **num;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &num) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_long_ex(num);

  Ming_setCubicThreshold(Z_LVAL_PP(num));
}
/* }}} */

/* {{{ proto void ming_setscale(int scale)
	Set scale (?) */
PHP_FUNCTION(ming_setScale)
{
  zval **num;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &num) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(num);

  Ming_setScale(Z_DVAL_PP(num));
}
/* }}} */

/* {{{ proto void ming_useswfversion(int version)
	Use SWF version (?) */ 
PHP_FUNCTION(ming_useSWFVersion)
{
  zval **num;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &num) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_long_ex(num);

  Ming_useSWFVersion(Z_LVAL_PP(num));
}
/* }}} */

static int le_swfmoviep;
static int le_swfshapep;
static int le_swffillp;
static int le_swfgradientp;
static int le_swfbitmapp;
static int le_swffontp;
static int le_swftextp;
static int le_swftextfieldp;
static int le_swfdisplayitemp;
static int le_swfbuttonp;
static int le_swfactionp;
static int le_swfmorphp;
static int le_swfspritep;
static int le_swfinputp;

zend_class_entry movie_class_entry;
zend_class_entry shape_class_entry;
zend_class_entry fill_class_entry;
zend_class_entry gradient_class_entry;
zend_class_entry bitmap_class_entry;
zend_class_entry font_class_entry;
zend_class_entry text_class_entry;
zend_class_entry textfield_class_entry;
zend_class_entry displayitem_class_entry;
zend_class_entry button_class_entry;
zend_class_entry action_class_entry;
zend_class_entry morph_class_entry;
zend_class_entry sprite_class_entry;

/* {{{ internal function SWFgetProperty
 */

static void *SWFgetProperty(zval *id, char *name, int namelen, int proptype TSRMLS_DC)
{
  zval **tmp;
  int id_to_find;
  void *property;
  int type;
  
  if(id)
  {
    if(zend_hash_find(Z_OBJPROP_P(id), name, namelen+1, (void **)&tmp) == FAILURE)
    {
      php_error(E_WARNING, "unable to find property %s", name);
      return NULL;
    }
    id_to_find = Z_LVAL_PP(tmp);
  }
  else
    return NULL;

  property = zend_list_find(id_to_find, &type);

  if (!property || type != proptype)
  {
    php_error(E_WARNING, "unable to find identifier (%d)", id_to_find);
    return NULL;
  }

  return property;
}

/* }}} */
/* {{{ SWFCharacter - not a real class */

/* {{{ internal function SWFCharacter getCharacter(zval *id)
   Returns the SWFCharacter contained in zval *id */

SWFCharacter getCharacter(zval *id TSRMLS_DC)
{
  if(Z_OBJCE_P(id) == &shape_class_entry)
    return (SWFCharacter)getShape(id TSRMLS_CC);
  else if(Z_OBJCE_P(id) == &font_class_entry)
    return (SWFCharacter)getFont(id TSRMLS_CC);
  else if(Z_OBJCE_P(id) == &text_class_entry)
    return (SWFCharacter)getText(id TSRMLS_CC);
  else if(Z_OBJCE_P(id) == &textfield_class_entry)
    return (SWFCharacter)getTextField(id TSRMLS_CC);
  else if(Z_OBJCE_P(id) == &button_class_entry)
    return (SWFCharacter)getButton(id TSRMLS_CC);
  else if(Z_OBJCE_P(id) == &morph_class_entry)
    return (SWFCharacter)getMorph(id TSRMLS_CC);
  else if(Z_OBJCE_P(id) == &sprite_class_entry)
    return (SWFCharacter)getSprite(id TSRMLS_CC);
  else if(Z_OBJCE_P(id) == &bitmap_class_entry)
    return (SWFCharacter)getBitmap(id TSRMLS_CC);
  else
    php_error(E_ERROR, "called object is not an SWFCharacter");
	return NULL;
}

/* }}} */

/* }}} */
/* {{{ getInput - utility func for making an SWFInput from an fopened resource */

static void destroy_SWFInput_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFInput((SWFInput)resource->ptr);
}

static SWFInput getInput(zval **zfile TSRMLS_DC)
{
  FILE *file;
  void *what;
  int type;
  SWFInput input;

  what =  zend_fetch_resource(zfile TSRMLS_CC, -1, "File-Handle", &type, 1, php_file_le_stream());

  if (!php_stream_cast((php_stream*)what, PHP_STREAM_AS_STDIO, (void*)&file, REPORT_ERRORS))	{
	return NULL;
  }
  
  input = newSWFInput_file(file);
  zend_list_addref(Z_LVAL_PP(zfile));

  zend_list_addref(zend_list_insert(input, le_swfinputp));

  return input;
}

/* }}} */

/* {{{ SWFAction */

static zend_function_entry swfaction_functions[] = {
  PHP_FALIAS(swfaction,              swfaction_init,         NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto object swfaction_init(string)
   Returns a new SWFAction object, compiling the given script */

PHP_FUNCTION(swfaction_init)
{
  SWFAction action;
  zval **script;
  int ret;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &script) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(script);

  action = compileSWFActionCode(Z_STRVAL_PP(script));

  if(!action)
    php_error(E_ERROR, "Couldn't compile actionscript.");

  ret = zend_list_insert(action, le_swfactionp);

  object_init_ex(getThis(), &action_class_entry);
  add_property_resource(getThis(), "action", ret);
  zend_list_addref(ret);
}
/* no destructor for SWFAction, it's not a character */

/* }}} */
/* {{{ internal function getAction
   Returns the SWFAction object contained in zval *id */

static SWFAction getAction(zval *id TSRMLS_DC)
{
  void *action = SWFgetProperty(id, "action", 6, le_swfactionp TSRMLS_CC);

  if(!action)
    php_error(E_ERROR, "called object is not an SWFAction!");

  return (SWFAction)action;
}

/* }}} */

/* }}} */
/* {{{ SWFBitmap */

static zend_function_entry swfbitmap_functions[] = {
  PHP_FALIAS(swfbitmap,           swfbitmap_init,                NULL)
  PHP_FALIAS(getwidth,            swfbitmap_getWidth,            NULL)
  PHP_FALIAS(getheight,           swfbitmap_getHeight,           NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto class swfbitmap_init(file [, maskfile])
   Returns a new SWFBitmap object from jpg (with optional mask) or dbl file */

PHP_FUNCTION(swfbitmap_init)
{
  zval **zfile, **zmask = NULL;
  SWFBitmap bitmap;
  SWFInput input, maskinput;
  int ret;

  if(ZEND_NUM_ARGS() == 1)
  {
    if(zend_get_parameters_ex(1, &zfile) == FAILURE)
      WRONG_PARAM_COUNT;
  }
  else if(ZEND_NUM_ARGS() == 2)
  {
    if(zend_get_parameters_ex(2, &zfile, &zmask) == FAILURE)
      WRONG_PARAM_COUNT;
  }
  else
    WRONG_PARAM_COUNT;

  if(Z_TYPE_PP(zfile) != IS_RESOURCE)
  {
    convert_to_string_ex(zfile);
    input = newSWFInput_buffer(Z_STRVAL_PP(zfile), Z_STRLEN_PP(zfile));
    zend_list_addref(zend_list_insert(input, le_swfinputp));
  }
  else
    input = getInput(zfile TSRMLS_CC);

  if(zmask != NULL)
  {
    if(Z_TYPE_PP(zmask) != IS_RESOURCE)
    {
      convert_to_string_ex(zmask);
      maskinput = newSWFInput_buffer(Z_STRVAL_PP(zmask), Z_STRLEN_PP(zmask));
      zend_list_addref(zend_list_insert(maskinput, le_swfinputp));
    }
    else
      maskinput = getInput(zmask TSRMLS_CC);

    bitmap = newSWFJpegWithAlpha_fromInput(input, maskinput);
  }
  else
    bitmap = newSWFBitmap_fromInput(input);

  ret = zend_list_insert(bitmap, le_swfbitmapp);
  object_init_ex(getThis(), &bitmap_class_entry);
  add_property_resource(getThis(), "bitmap", ret);
  zend_list_addref(ret);
}

static void destroy_SWFBitmap_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFBitmap((SWFBitmap)resource->ptr);
}

/* }}} */
/* {{{ internal function getBitmap
   Returns the SWFBitmap object contained in zval *id */

static SWFBitmap getBitmap(zval *id TSRMLS_DC)
{
  void *bitmap = SWFgetProperty(id, "bitmap", 6, le_swfbitmapp TSRMLS_CC);

  if(!bitmap)
    php_error(E_ERROR, "called object is not an SWFBitmap!");

  return (SWFBitmap)bitmap;
}

/* }}} */
/* {{{ proto void swfbitmap_getWidth(void)
   Returns the width of this bitmap */

PHP_FUNCTION(swfbitmap_getWidth)
{
  if(ZEND_NUM_ARGS() != 0)
    WRONG_PARAM_COUNT;

  RETURN_DOUBLE(SWFBitmap_getWidth(getBitmap(getThis() TSRMLS_CC)));
}

/* }}} */
/* {{{ proto void swfbitmap_getHeight(void)
   Returns the height of this bitmap */

PHP_FUNCTION(swfbitmap_getHeight)
{
  if(ZEND_NUM_ARGS() != 0)
    WRONG_PARAM_COUNT;

  RETURN_DOUBLE(SWFBitmap_getHeight(getBitmap(getThis() TSRMLS_CC)));
}

/* }}} */

/* }}} */
/* {{{ SWFButton */

static zend_function_entry swfbutton_functions[] = {
  PHP_FALIAS(swfbutton,              swfbutton_init,            NULL)
  PHP_FALIAS(sethit,                 swfbutton_setHit,          NULL)
  PHP_FALIAS(setover,                swfbutton_setOver,         NULL)
  PHP_FALIAS(setup,                  swfbutton_setUp,           NULL)
  PHP_FALIAS(setdown,                swfbutton_setDown,         NULL)
  PHP_FALIAS(setaction,              swfbutton_setAction,       NULL)
  PHP_FALIAS(addshape,               swfbutton_addShape,        NULL)
  PHP_FALIAS(addaction,              swfbutton_addAction,       NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto object swfbutton_init(void)
   Returns a new SWFButton object */

PHP_FUNCTION(swfbutton_init)
{
  SWFButton button = newSWFButton();
  int ret = zend_list_insert(button, le_swfbuttonp);

  object_init_ex(getThis(), &button_class_entry);
  add_property_resource(getThis(), "button", ret);
  zend_list_addref(ret);
}
static void destroy_SWFButton_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFButton((SWFButton)resource->ptr);
}

/* }}} */
/* {{{ internal function getButton
   Returns the SWFButton object contained in zval *id */

static SWFButton getButton(zval *id TSRMLS_DC)
{
  void *button = SWFgetProperty(id, "button", 6, le_swfbuttonp TSRMLS_CC);

  if(!button)
    php_error(E_ERROR, "called object is not an SWFButton!");

  return (SWFButton)button;
}

/* }}} */
/* {{{ proto void swfbutton_setHit(SWFCharacter)
   Sets the character for this button's hit test state */

PHP_FUNCTION(swfbutton_setHit)
{
  zval **zchar;
  SWFButton button = getButton(getThis() TSRMLS_CC);
  SWFCharacter character;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zchar) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);
  character = getCharacter(*zchar TSRMLS_CC);

  SWFButton_addShape(button, character, SWFBUTTONRECORD_HITSTATE);
}

/* }}} */
/* {{{ proto void swfbutton_setOver(SWFCharacter)
   Sets the character for this button's over state */

PHP_FUNCTION(swfbutton_setOver)
{
  zval **zchar;
  SWFButton button = getButton(getThis() TSRMLS_CC);
  SWFCharacter character;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zchar) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);
  character = getCharacter(*zchar TSRMLS_CC);

  SWFButton_addShape(button, character, SWFBUTTONRECORD_OVERSTATE);
}

/* }}} */
/* {{{ proto void swfbutton_setUp(SWFCharacter)
   Sets the character for this button's up state */

PHP_FUNCTION(swfbutton_setUp)
{
  zval **zchar;
  SWFButton button = getButton(getThis() TSRMLS_CC);
  SWFCharacter character;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zchar) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);
  character = getCharacter(*zchar TSRMLS_CC);

  SWFButton_addShape(button, character, SWFBUTTONRECORD_UPSTATE);
}

/* }}} */
/* {{{ proto void swfbutton_setDown(SWFCharacter)
   Sets the character for this button's down state */

PHP_FUNCTION(swfbutton_setDown)
{
  zval **zchar;
  SWFButton button = getButton(getThis() TSRMLS_CC);
  SWFCharacter character;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zchar) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);
  character = getCharacter(*zchar TSRMLS_CC);

  SWFButton_addShape(button, character, SWFBUTTONRECORD_DOWNSTATE);
}

/* }}} */
/* {{{ proto void swfbutton_addShape(SWFCharacter character, int flags)
   Sets the character to display for the condition described in flags */

PHP_FUNCTION(swfbutton_addShape)
{
  zval **zchar, **flags;
  SWFButton button = getButton(getThis() TSRMLS_CC);
  SWFCharacter character;

  if(ZEND_NUM_ARGS() != 2 ||
     zend_get_parameters_ex(2, &zchar, &flags) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);
  character = getCharacter(*zchar TSRMLS_CC);

  convert_to_long_ex(flags);

  SWFButton_addShape(button, character, Z_LVAL_PP(flags));
}

/* }}} */
/* {{{ proto void swfbutton_setAction(SWFAction)
   Sets the action to perform when button is pressed */

PHP_FUNCTION(swfbutton_setAction)
{
  zval **zaction;
  SWFButton button = getButton(getThis() TSRMLS_CC);
  SWFAction action;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zaction) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zaction);
  action = getAction(*zaction TSRMLS_CC);

  SWFButton_addAction(button, action, SWFBUTTON_OVERDOWNTOOVERUP);
}

/* }}} */
/* {{{ proto void swfbutton_addAction(SWFAction action, int flags)
   Sets the action to perform when conditions described in flags is met */

PHP_FUNCTION(swfbutton_addAction)
{
  zval **zaction, **flags;
  SWFButton button = getButton(getThis() TSRMLS_CC);
  SWFAction action;

  if(ZEND_NUM_ARGS() != 2 ||
     zend_get_parameters_ex(2, &zaction, &flags) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zaction);
  action = getAction(*zaction TSRMLS_CC);

  convert_to_long_ex(flags);

  SWFButton_addAction(button, action, Z_LVAL_PP(flags));
}

/* }}} */

/* {{{ proto int swfbutton_keypress(string str)
  	Returns the action flag for keyPress(char) */
PHP_FUNCTION(swfbutton_keypress)
{
  zval **key;
  char c;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &key) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(key);

  if(Z_STRLEN_PP(key) > 1)
    php_error(E_ERROR, "SWFBUTTON_KEYPRESS expects only one character!");

  c = Z_STRVAL_PP(key)[0];

  RETURN_LONG((c&0x7f)<<9);
}

/* }}} */
/* }}} */
/* {{{ SWFDisplayitem */

static zend_function_entry swfdisplayitem_functions[] = {
  PHP_FALIAS(moveto,       swfdisplayitem_moveTo,      NULL)
  PHP_FALIAS(move,         swfdisplayitem_move,        NULL)
  PHP_FALIAS(scaleto,      swfdisplayitem_scaleTo,     NULL)
  PHP_FALIAS(scale,        swfdisplayitem_scale,       NULL)
  PHP_FALIAS(rotateto,     swfdisplayitem_rotateTo,    NULL)
  PHP_FALIAS(rotate,       swfdisplayitem_rotate,      NULL)
  PHP_FALIAS(skewxto,      swfdisplayitem_skewXTo,     NULL)
  PHP_FALIAS(skewx,        swfdisplayitem_skewX,       NULL)
  PHP_FALIAS(skewyto,      swfdisplayitem_skewYTo,     NULL)
  PHP_FALIAS(skewy,        swfdisplayitem_skewY,       NULL)
  PHP_FALIAS(setmatrix,    swfdisplayitem_setMatrix,   NULL)
  PHP_FALIAS(setdepth,     swfdisplayitem_setDepth,    NULL)
  PHP_FALIAS(setratio,     swfdisplayitem_setRatio,    NULL)
  PHP_FALIAS(addcolor,     swfdisplayitem_addColor,    NULL)
  PHP_FALIAS(multcolor,    swfdisplayitem_multColor,   NULL)
  PHP_FALIAS(setname,      swfdisplayitem_setName,     NULL)
  PHP_FALIAS(addaction,    swfdisplayitem_addAction,   NULL)
  { NULL, NULL, NULL }
};

/* {{{ internal function getDisplayItem
   Returns the SWFDisplayItem contained in zval *id */

static SWFDisplayItem getDisplayItem(zval *id TSRMLS_DC)
{
  void *item = SWFgetProperty(id, "displayitem", 11, le_swfdisplayitemp TSRMLS_CC);

  if(!item)
    php_error(E_ERROR, "called object is not an SWFDisplayItem!");

  return (SWFDisplayItem)item;
}

/* }}} */
/* {{{ proto void swfdisplayitem_moveTo(int x, int y)
   Moves this SWFDisplayItem to movie coordinates (x, y) */

PHP_FUNCTION(swfdisplayitem_moveTo)
{
  zval **x, **y;

  if(ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFDisplayItem_moveTo(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfdisplayitem_move(int dx, int dy)
   Displaces this SWFDisplayItem by (dx, dy) in movie coordinates */

PHP_FUNCTION(swfdisplayitem_move)
{
  zval **x, **y;

  if(ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFDisplayItem_move(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfdisplayitem_scaleTo(float xScale [, float yScale])
   Scales this SWFDisplayItem by xScale in the x direction, yScale in the y, or both to xScale if only one arg */

PHP_FUNCTION(swfdisplayitem_scaleTo)
{
  zval **x, **y;

  if(ZEND_NUM_ARGS() == 1)
  {
    if(zend_get_parameters_ex(1, &x) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(x);

    SWFDisplayItem_scaleTo(getDisplayItem(getThis() TSRMLS_CC),
			   Z_DVAL_PP(x), Z_DVAL_PP(x));
  }
  else if(ZEND_NUM_ARGS() == 2)
  {
    if(zend_get_parameters_ex(2, &x, &y) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(x);
    convert_to_double_ex(y);

    SWFDisplayItem_scaleTo(getDisplayItem(getThis() TSRMLS_CC),
			   Z_DVAL_PP(x), Z_DVAL_PP(y));
  }
  else
    WRONG_PARAM_COUNT;
}

/* }}} */
/* {{{ proto void swfdisplayitem_scale(float xScale, float yScale)
   Multiplies this SWFDisplayItem's current x scale by xScale, its y scale by yScale */

PHP_FUNCTION(swfdisplayitem_scale)
{
  zval **x, **y;

  if(ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFDisplayItem_scale(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfdisplayitem_rotateTo(float degrees)
   Rotates this SWFDisplayItem the given (clockwise) degrees from its original orientation */

PHP_FUNCTION(swfdisplayitem_rotateTo)
{
  zval **degrees;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &degrees) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(degrees);

  SWFDisplayItem_rotateTo(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(degrees));
}

/* }}} */
/* {{{ proto void swfdisplayitem_rotate(float degrees)
   Rotates this SWFDisplayItem the given (clockwise) degrees from its current orientation */

PHP_FUNCTION(swfdisplayitem_rotate)
{
  zval **degrees;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &degrees) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(degrees);

  SWFDisplayItem_rotate(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(degrees));
}

/* }}} */
/* {{{ proto void swfdisplayitem_skewXTo(float xSkew)
   Sets this SWFDisplayItem's x skew value to xSkew */

PHP_FUNCTION(swfdisplayitem_skewXTo)
{
  zval **x;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &x) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);

  SWFDisplayItem_skewXTo(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(x));
}

/* }}} */
/* {{{ proto void swfdisplayitem_skewX(float xSkew)
   Adds xSkew to this SWFDisplayItem's x skew value */

PHP_FUNCTION(swfdisplayitem_skewX)
{
  zval **x;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &x) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);

  SWFDisplayItem_skewX(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(x));
}

/* }}} */
/* {{{ proto void swfdisplayitem_skewYTo(float ySkew)
   Sets this SWFDisplayItem's y skew value to ySkew */

PHP_FUNCTION(swfdisplayitem_skewYTo)
{
  zval **y;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(y);

  SWFDisplayItem_skewYTo(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfdisplayitem_skewY(float ySkew)
   Adds ySkew to this SWFDisplayItem's y skew value */

PHP_FUNCTION(swfdisplayitem_skewY)
{
  zval **y;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(y);

  SWFDisplayItem_skewY(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfdisplayitem_setMatrix(float a, float b, float c, float d, float x, float y)
   Sets the item's transform matrix */

PHP_FUNCTION(swfdisplayitem_setMatrix)
{
  zval **a, **b, **c, **d, **x, **y;

  if(ZEND_NUM_ARGS() != 6 ||
     zend_get_parameters_ex(6, &a, &b, &c, &d, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(a);
  convert_to_double_ex(b);
  convert_to_double_ex(c);
  convert_to_double_ex(d);
  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFDisplayItem_setMatrix(getDisplayItem(getThis() TSRMLS_CC),
			   Z_DVAL_PP(a),  Z_DVAL_PP(b), Z_DVAL_PP(c),
			   Z_DVAL_PP(d), Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfdisplayitem_setDepth(int depth)
   Sets this SWFDisplayItem's z-depth to depth.  Items with higher depth values are drawn on top of those with lower values */

PHP_FUNCTION(swfdisplayitem_setDepth)
{
  zval **depth;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &depth) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_long_ex(depth);

  SWFDisplayItem_setDepth(getDisplayItem(getThis() TSRMLS_CC), Z_LVAL_PP(depth));
}

/* }}} */
/* {{{ proto void swfdisplayitem_setRatio(float ratio)
   Sets this SWFDisplayItem's ratio to ratio.  Obviously only does anything if displayitem was created from an SWFMorph */

PHP_FUNCTION(swfdisplayitem_setRatio)
{
  zval **ratio;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &ratio) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(ratio);

  SWFDisplayItem_setRatio(getDisplayItem(getThis() TSRMLS_CC), Z_DVAL_PP(ratio));
}

/* }}} */
/* {{{ proto void swfdisplayitem_addColor(int r, int g, int b [, int a])
   Sets the add color part of this SWFDisplayItem's CXform to (r, g, b [, a]), a defaults to 0 */

PHP_FUNCTION(swfdisplayitem_addColor)
{
  zval **r, **g, **b, **za;
  int a = 0;

  if(ZEND_NUM_ARGS() == 4)
  {
    if(zend_get_parameters_ex(4, &r, &g, &b, &za) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(za);
    a = Z_LVAL_PP(za);
  }
  else if(ZEND_NUM_ARGS() == 3)
  {
    if(zend_get_parameters_ex(3, &r, &g, &b) == FAILURE)
      WRONG_PARAM_COUNT;
  }
  else
    WRONG_PARAM_COUNT;

  convert_to_long_ex(r);
  convert_to_long_ex(g);
  convert_to_long_ex(b);

  SWFDisplayItem_setColorAdd(getDisplayItem(getThis() TSRMLS_CC),
			     Z_LVAL_PP(r), Z_LVAL_PP(g), Z_LVAL_PP(b), a);
}

/* }}} */
/* {{{ proto void swfdisplayitem_multColor(float r, float g, float b [, float a])
   Sets the multiply color part of this SWFDisplayItem's CXform to (r, g, b [, a]),
   a defaults to 1.0 */

PHP_FUNCTION(swfdisplayitem_multColor)
{
  zval **r, **g, **b, **za;
  float a = 1.0;

  if(ZEND_NUM_ARGS() == 4)
  {
    if(zend_get_parameters_ex(4, &r, &g, &b, &za) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(za);
    a = Z_DVAL_PP(za);
  }
  else if(ZEND_NUM_ARGS() == 3)
  {
    if(zend_get_parameters_ex(3, &r, &g, &b) == FAILURE)
      WRONG_PARAM_COUNT;
  }
  else
    WRONG_PARAM_COUNT;

  convert_to_double_ex(r);
  convert_to_double_ex(g);
  convert_to_double_ex(b);

  SWFDisplayItem_setColorMult(getDisplayItem(getThis() TSRMLS_CC),
			      Z_DVAL_PP(r), Z_DVAL_PP(g), Z_DVAL_PP(b), a);
}

/* }}} */
/* {{{ proto void swfdisplayitem_setName(string name)
   Sets this SWFDisplayItem's name to name */

PHP_FUNCTION(swfdisplayitem_setName)
{
  zval **name;
  SWFDisplayItem item = getDisplayItem(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &name) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(name);

  SWFDisplayItem_setName(item, Z_STRVAL_PP(name));
}

/* }}} */
/* {{{ proto void swfdisplayitem_addAction(SWFAction action, int flags)
   Adds this SWFAction to the given SWFSprite instance */

PHP_FUNCTION(swfdisplayitem_addAction)
{
  zval **zaction, **flags;
  SWFAction action;
  SWFDisplayItem item = getDisplayItem(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 2 ||
     zend_get_parameters_ex(2, &zaction, &flags) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zaction);
  convert_to_long_ex(flags);

  action = (SWFBlock)getAction(*zaction TSRMLS_CC);

  SWFDisplayItem_addAction(item, action, Z_LVAL_PP(flags));
}

/* }}} */

/* }}} */
/* {{{ SWFFill */

static zend_function_entry swffill_functions[] = {
  PHP_FALIAS(swffill,      swffill_init,        NULL)
  PHP_FALIAS(moveto,       swffill_moveTo,      NULL)
  PHP_FALIAS(scaleto,      swffill_scaleTo,     NULL)
  PHP_FALIAS(rotateto,     swffill_rotateTo,    NULL)
  PHP_FALIAS(skewxto,      swffill_skewXTo,     NULL)
  PHP_FALIAS(skewyto,      swffill_skewYTo,     NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto class swffill_init(void)
   Returns a new SWFFill object */

PHP_FUNCTION(swffill_init)
{
  php_error(E_ERROR, "Instantiating SWFFill won't do any good- use SWFShape::addFill() instead!");
}
static void destroy_SWFFill_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  /* this only destroys the shallow wrapper for SWFFillStyle,
     which SWFShape destroys.  So everything's okay.  I hope. */

  destroySWFFill((SWFFill)resource->ptr);
}

/* }}} */
/* {{{ internal function getFill
   Returns the SWFFill object contained in zval *id */

static SWFFill getFill(zval *id TSRMLS_DC)
{
  void *fill = SWFgetProperty(id, "fill", 4, le_swffillp TSRMLS_CC);

  if(!fill)
    php_error(E_ERROR, "called object is not an SWFFill!");

  return (SWFFill)fill;
}

/* }}} */

/* {{{ proto void swffill_moveTo(int x, int y)
   Moves this SWFFill to shape coordinates (x,y) */

PHP_FUNCTION(swffill_moveTo)
{
  zval **x, **y;

  if(ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFFill_moveTo(getFill(getThis() TSRMLS_CC), Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swffill_scaleTo(float xScale [, float yScale])
   Scales this SWFFill by xScale in the x direction, yScale in the y, or both to xScale if only one arg */

PHP_FUNCTION(swffill_scaleTo)
{
  zval **x, **y;

  if(ZEND_NUM_ARGS() == 1)
  {
    if(zend_get_parameters_ex(1, &x) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(x);

    SWFFill_scaleXYTo(getFill(getThis() TSRMLS_CC), Z_DVAL_PP(x), Z_DVAL_PP(x));
  }
  else if(ZEND_NUM_ARGS() == 2)
  {
    if(zend_get_parameters_ex(2, &x, &y) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(x);
    convert_to_double_ex(y);

    SWFFill_scaleXYTo(getFill(getThis() TSRMLS_CC), Z_DVAL_PP(x), Z_DVAL_PP(y));
  }
  else
    WRONG_PARAM_COUNT;
}

/* }}} */
/* {{{ proto void swffill_rotateTo(float degrees)
   Rotates this SWFFill the given (clockwise) degrees from its original orientation */

PHP_FUNCTION(swffill_rotateTo)
{
  zval **degrees;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &degrees) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(degrees);

  SWFFill_rotateTo(getFill(getThis() TSRMLS_CC), Z_DVAL_PP(degrees));
}

/* }}} */
/* {{{ proto void swffill_skewXTo(float xSkew)
   Sets this SWFFill's x skew value to xSkew */

PHP_FUNCTION(swffill_skewXTo)
{
  zval **x;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &x) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);

  SWFFill_skewXTo(getFill(getThis() TSRMLS_CC), Z_DVAL_PP(x));
}

/* }}} */
/* {{{ proto void swffill_skewYTo(float ySkew)
   Sets this SWFFill's y skew value to ySkew */

PHP_FUNCTION(swffill_skewYTo)
{
  zval **y;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(y);

  SWFFill_skewYTo(getFill(getThis() TSRMLS_CC), Z_DVAL_PP(y));
}

/* }}} */

/* }}} */
/* {{{ SWFFont */

static zend_function_entry swffont_functions[] = {
  PHP_FALIAS(swffont,          swffont_init,              NULL)
  PHP_FALIAS(getwidth,         swffont_getWidth,          NULL)
  PHP_FALIAS(getascent,        swffont_getAscent,         NULL)
  PHP_FALIAS(getdescent,       swffont_getDescent,        NULL)
  PHP_FALIAS(getleading,       swffont_getLeading,        NULL)
  { NULL, NULL, NULL }
};

/* {{{ internal function SWFText getFont(zval *id)
   Returns the Font object in zval *id */

SWFFont getFont(zval *id TSRMLS_DC)
{
  void *font = SWFgetProperty(id, "font", 4, le_swffontp TSRMLS_CC);

  if(!font)
    php_error(E_ERROR, "called object is not an SWFFont!");

  return (SWFFont)font;
}

/* }}} */
/* {{{ proto class swffont_init(string filename)
   Returns a new SWFFont object from given file */

PHP_FUNCTION(swffont_init)
{
  zval **zfile;
  SWFFont font;
  int ret;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zfile) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(zfile);

  if(strcmp(Z_STRVAL_PP(zfile)+Z_STRLEN_PP(zfile)-4, ".fdb") == 0)
  {
    php_stream * stream;
	FILE * file;
	
    stream = php_stream_open_wrapper(Z_STRVAL_PP(zfile), "rb", REPORT_ERRORS|ENFORCE_SAFE_MODE, NULL TSRMLS_CC);

    if(stream == NULL) {
		RETURN_FALSE;
	}

	if (FAILURE == php_stream_cast(stream, PHP_STREAM_AS_STDIO, (void*)&file, REPORT_ERRORS))
	{
		php_stream_close(stream);
		RETURN_FALSE;
	}
	
    font = loadSWFFontFromFile(file);
    php_stream_close(stream);
  }
  else
    font = newSWFBrowserFont(Z_STRVAL_PP(zfile));

  ret = zend_list_insert(font, le_swffontp);

  object_init_ex(getThis(), &font_class_entry);
  add_property_resource(getThis(), "font", ret);
  zend_list_addref(ret);
}

static void destroy_SWFFont_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFBlock((SWFBlock)resource->ptr);
}

/* }}} */
/* {{{ proto int swffont_getWidth(string)
   Calculates the width of the given string in this font at full height */

PHP_FUNCTION(swffont_getWidth)
{
  zval **zstring;
  float width;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zstring) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(zstring);

  width = SWFFont_getStringWidth(getFont(getThis() TSRMLS_CC), Z_STRVAL_PP(zstring));

  RETURN_DOUBLE(width);
}

/* }}} */
/* {{{ proto int swffont_getAscent(void)
   Returns the ascent of the font, or 0 if not available */

PHP_FUNCTION(swffont_getAscent)
{
  if(ZEND_NUM_ARGS() != 0)
    WRONG_PARAM_COUNT;

  RETURN_DOUBLE(SWFFont_getAscent(getFont(getThis() TSRMLS_CC)));
}

/* }}} */
/* {{{ proto int swffont_getDescent(void)
   Returns the descent of the font, or 0 if not available */

PHP_FUNCTION(swffont_getDescent)
{
  if(ZEND_NUM_ARGS() != 0)
    WRONG_PARAM_COUNT;

  RETURN_DOUBLE(SWFFont_getDescent(getFont(getThis() TSRMLS_CC)));
}

/* }}} */
/* {{{ proto int swffont_getLeading(void)
   Returns the leading of the font, or 0 if not available */

PHP_FUNCTION(swffont_getLeading)
{
  if(ZEND_NUM_ARGS() != 0)
    WRONG_PARAM_COUNT;

  RETURN_DOUBLE(SWFFont_getLeading(getFont(getThis() TSRMLS_CC)));
}

/* }}} */

/* }}} */
/* {{{ SWFGradient */

static zend_function_entry swfgradient_functions[] = {
  PHP_FALIAS(swfgradient,  swfgradient_init,      NULL)
  PHP_FALIAS(addentry,     swfgradient_addEntry,  NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto class swfgradient_init(void)
   Returns a new SWFGradient object */

PHP_FUNCTION(swfgradient_init)
{
  SWFGradient gradient = newSWFGradient();
  int ret = zend_list_insert(gradient, le_swfgradientp);

  object_init_ex(getThis(), &gradient_class_entry);
  add_property_resource(getThis(), "gradient", ret);
  zend_list_addref(ret);
}


static void destroy_SWFGradient_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFGradient((SWFGradient)resource->ptr);
}

/* }}} */
/* {{{ internal function getGradient
   Returns the SWFGradient object contained in zval *id */

static SWFGradient getGradient(zval *id TSRMLS_DC)
{
  void *gradient = SWFgetProperty(id, "gradient", 8, le_swfgradientp TSRMLS_CC);

  if(!gradient)
    php_error(E_ERROR, "called object is not an SWFGradient!");

  return (SWFGradient)gradient;
}

/* }}} */
/* {{{ proto void swfgradient_addEntry(float ratio, string r, string g, string b [, string a]
   Adds given entry to the gradient */

PHP_FUNCTION(swfgradient_addEntry)
{
  zval **ratio, **r, **g, **b;
  byte a = 0xff;

  if(ZEND_NUM_ARGS() == 4)
  {
    if(zend_get_parameters_ex(4, &ratio, &r, &g, &b) == FAILURE)
      WRONG_PARAM_COUNT;
  }
  else if(ZEND_NUM_ARGS() == 5)
  {
    zval **za;

    if(zend_get_parameters_ex(5, &ratio, &r, &g, &b, &za) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(za);
    a = Z_LVAL_PP(za);
  }
  else
    WRONG_PARAM_COUNT;

  convert_to_double_ex(ratio);
  convert_to_long_ex(r);
  convert_to_long_ex(g);
  convert_to_long_ex(b);

  SWFGradient_addEntry(getGradient(getThis() TSRMLS_CC), Z_DVAL_PP(ratio),
		       Z_LVAL_PP(r), Z_LVAL_PP(g), Z_LVAL_PP(b), a);
}

/* }}} */

/* }}} */
/* {{{ SWFMorph */

static zend_function_entry swfmorph_functions[] = {
  PHP_FALIAS(swfmorph,              swfmorph_init,            NULL)
  PHP_FALIAS(getshape1,             swfmorph_getShape1,       NULL)
  PHP_FALIAS(getshape2,             swfmorph_getShape2,       NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto object swfmorph_init(void)
   Returns a new SWFMorph object */

PHP_FUNCTION(swfmorph_init)
{
  SWFMorph morph = newSWFMorphShape();
  int ret = zend_list_insert(morph, le_swfmorphp);

  object_init_ex(getThis(), &morph_class_entry);
  add_property_resource(getThis(), "morph", ret);
  zend_list_addref(ret);
}


static void destroy_SWFMorph_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFMorph((SWFMorph)resource->ptr);
}

/* }}} */
/* {{{ internal function getMorph
   Returns the SWFMorph object contained in zval *id */

static SWFMorph getMorph(zval *id TSRMLS_DC)
{
  void *morph = SWFgetProperty(id, "morph", 5, le_swfmorphp TSRMLS_CC);

  if(!morph)
    php_error(E_ERROR, "called object is not an SWFMorph!");

  return (SWFMorph)morph;
}

/* }}} */
/* {{{ proto SWFShape swfmorph_getShape1(void)
   Return's this SWFMorph's start shape */

PHP_FUNCTION(swfmorph_getShape1)
{
  SWFMorph morph = getMorph(getThis() TSRMLS_CC);
  SWFShape shape = SWFMorph_getShape1(morph);
  int ret = zend_list_insert(shape, le_swfshapep);

  object_init_ex(return_value, &shape_class_entry);
  add_property_resource(return_value, "shape", ret);
  zend_list_addref(ret);
}

/* }}} */
/* {{{ proto SWFShape swfmorph_getShape2(void)
   Return's this SWFMorph's start shape */

PHP_FUNCTION(swfmorph_getShape2)
{
  SWFMorph morph = getMorph(getThis() TSRMLS_CC);
  SWFShape shape = SWFMorph_getShape2(morph);
  int ret = zend_list_insert(shape, le_swfshapep);

  object_init_ex(return_value, &shape_class_entry);
  add_property_resource(return_value, "shape", ret);
  zend_list_addref(ret);
}

/* }}} */

/* }}} */
/* {{{ SWFMovie */

static zend_function_entry swfmovie_functions[] = {
  PHP_FALIAS(swfmovie,          swfmovie_init,              NULL)
  PHP_FALIAS(nextframe,         swfmovie_nextFrame,         NULL)
  PHP_FALIAS(labelframe,        swfmovie_labelFrame,        NULL)
  PHP_FALIAS(add,               swfmovie_add,               NULL)
  PHP_FALIAS(remove,            swfmovie_remove,            NULL)
  PHP_FALIAS(output,            swfmovie_output,            NULL)
  PHP_FALIAS(save,              swfmovie_save,              NULL)
  PHP_FALIAS(savetofile,        swfmovie_saveToFile,        NULL)
  PHP_FALIAS(setbackground,     swfmovie_setBackground,     NULL)
  PHP_FALIAS(setrate,           swfmovie_setRate,           NULL)
  PHP_FALIAS(setdimension,      swfmovie_setDimension,      NULL)
  PHP_FALIAS(setframes,         swfmovie_setFrames,         NULL)
  PHP_FALIAS(streammp3,         swfmovie_streamMp3,         NULL)
  { NULL, NULL, NULL }
};

/* {{{ swfmovie_init */

PHP_FUNCTION(swfmovie_init)
{
  zval **version;
  SWFMovie movie;
  int ret;

  if(ZEND_NUM_ARGS() == 1)
  {
    if(zend_get_parameters_ex(1, &version) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(version);

    movie = newSWFMovie(Z_LVAL_PP(version));
  }
  else
    movie = newSWFMovie(4); /* default version 4 */

  ret = zend_list_insert(movie, le_swfmoviep);

  object_init_ex(getThis(), &movie_class_entry);
  add_property_resource(getThis(), "movie", ret);
  zend_list_addref(ret);
}


static void destroy_SWFMovie_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFMovie((SWFMovie)resource->ptr);
}

/* }}} */
/* {{{ getMovie */

SWFMovie getMovie(zval *id TSRMLS_DC)
{
  void *movie = SWFgetProperty(id, "movie", 5, le_swfmoviep TSRMLS_CC);

  if(!movie)
    php_error(E_ERROR, "called object is not an SWFMovie!");

  return (SWFMovie)movie;
}

/* }}} */
/* {{{ swfmovie_nextframe */

PHP_FUNCTION(swfmovie_nextFrame)
{
  SWFMovie_nextFrame(getMovie(getThis() TSRMLS_CC));
}

/* }}} */
/* {{{ swfmovie_labelframe */

PHP_FUNCTION(swfmovie_labelFrame)
{
  zval **label;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &label) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(label);

  SWFMovie_labelFrame(getMovie(getThis() TSRMLS_CC), Z_STRVAL_PP(label));
}

/* }}} */
/* {{{ swfmovie_add */

PHP_FUNCTION(swfmovie_add)
{
  zval **zchar;
  int ret;
  SWFBlock block;
  SWFDisplayItem item;
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zchar) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);

  /* XXX - SWFMovie_add deals w/ all block types.  Probably will need to add that.. */
  if(Z_OBJCE_PP(zchar) == &action_class_entry)
    block = (SWFBlock)getAction(*zchar TSRMLS_CC);
  else
    block = (SWFBlock)getCharacter(*zchar TSRMLS_CC);

  item = SWFMovie_add(movie, block);

  if(item != NULL)
  {
    /* try and create a displayitem object */
    ret = zend_list_insert(item, le_swfdisplayitemp);
    object_init_ex(return_value, &displayitem_class_entry);
    add_property_resource(return_value, "displayitem", ret);
  }
}

/* }}} */
/* {{{ swfmovie_remove */

PHP_FUNCTION(swfmovie_remove)
{
  zval **zchar;
  SWFDisplayItem item;
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zchar) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);
  item = getDisplayItem(*zchar TSRMLS_CC);

  SWFMovie_remove(movie, item);
}


/* }}} */
/* {{{ swfmovie_output */

void phpByteOutputMethod(byte b, void *data)
{
  TSRMLS_FETCH();

  php_write(&b, 1 TSRMLS_CC);
}

PHP_FUNCTION(swfmovie_output)
{
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);

  RETURN_LONG(SWFMovie_output(movie, &phpByteOutputMethod, NULL));
}


/* }}} */
/* {{{ swfmovie_saveToFile */

void phpStreamOutputMethod(byte b, void * data)
{
	php_stream_write((php_stream*)data, &b, 1);
}

PHP_FUNCTION(swfmovie_saveToFile)
{
  zval **x;
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);
  php_stream *what;

  if((ZEND_NUM_ARGS() != 1) || zend_get_parameters_ex(1, &x) == FAILURE)
    WRONG_PARAM_COUNT;

  ZEND_FETCH_RESOURCE(what, php_stream *, x, -1,"File-Handle",php_file_le_stream());
  RETURN_LONG(SWFMovie_output(movie, &phpStreamOutputMethod, what));
}


/* }}} */
/* {{{ swfmovie_save */

PHP_FUNCTION(swfmovie_save)
{
  zval **x;
  long retval;
  php_stream *stream;

  if((ZEND_NUM_ARGS() != 1) || zend_get_parameters_ex(1, &x) == FAILURE)
    WRONG_PARAM_COUNT;

  if(Z_TYPE_PP(x) == IS_RESOURCE)
  {
    ZEND_FETCH_RESOURCE(stream, php_stream *, x, -1,"File-Handle",php_file_le_stream());

    RETURN_LONG(SWFMovie_output(getMovie(getThis() TSRMLS_CC),
				&phpStreamOutputMethod, stream));
  }

  convert_to_string_ex(x);

  stream = php_stream_open_wrapper(Z_STRVAL_PP(x), "wb", REPORT_ERRORS|ENFORCE_SAFE_MODE, NULL TSRMLS_CC);

  if (stream == NULL)
	  RETURN_FALSE;

  retval = SWFMovie_output(getMovie(getThis() TSRMLS_CC),
			      &phpStreamOutputMethod, (void *)stream);

  php_stream_close(stream);
  
  RETURN_LONG(retval);
}


/* }}} */
/* {{{ swfmovie_setbackground */

PHP_FUNCTION(swfmovie_setBackground)
{
  zval **r, **g, **b;
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);

  if((ZEND_NUM_ARGS() != 3) || zend_get_parameters_ex(3, &r, &g, &b) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_long_ex(r);
  convert_to_long_ex(g);
  convert_to_long_ex(b);

  SWFMovie_setBackground(movie, Z_LVAL_PP(r), Z_LVAL_PP(g), Z_LVAL_PP(b));
}

/* }}} */
/* {{{ swfmovie_setrate */

PHP_FUNCTION(swfmovie_setRate)
{
  zval **rate;
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);

  if((ZEND_NUM_ARGS() != 1) || zend_get_parameters_ex(1, &rate) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(rate);

  SWFMovie_setRate(movie, Z_DVAL_PP(rate));
}

/* }}} */
/* {{{ swfmovie_setDimension */

PHP_FUNCTION(swfmovie_setDimension)
{
  zval **x, **y;
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);

  if((ZEND_NUM_ARGS() != 2) || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFMovie_setDimension(movie, Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ swfmovie_setframes */

PHP_FUNCTION(swfmovie_setFrames)
{
  zval **frames;
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);

  if((ZEND_NUM_ARGS() != 1) || zend_get_parameters_ex(1, &frames) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_long_ex(frames);

  SWFMovie_setNumberOfFrames(movie, Z_LVAL_PP(frames));
}

/* }}} */
/* {{{ swfmovie_streamMp3 */

PHP_FUNCTION(swfmovie_streamMp3)
{
  zval **zfile;
  SWFSound sound;
  SWFInput input;
  SWFMovie movie = getMovie(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zfile) == FAILURE)
    WRONG_PARAM_COUNT;

  if(Z_TYPE_PP(zfile) != IS_RESOURCE)
  {
    convert_to_string_ex(zfile);
    input = newSWFInput_buffer(Z_STRVAL_PP(zfile), Z_STRLEN_PP(zfile));
    zend_list_addref(zend_list_insert(input, le_swfinputp));
  }
  else
    input = getInput(zfile TSRMLS_CC);

  sound = newSWFSound_fromInput(input);
  SWFMovie_setSoundStream(movie, sound);
}

/* }}} */

/* }}} */
/* {{{ SWFShape */

static zend_function_entry swfshape_functions[] = {
  PHP_FALIAS(swfshape,          swfshape_init,               NULL)
  PHP_FALIAS(setline,           swfshape_setline,            NULL)
  PHP_FALIAS(addfill,           swfshape_addfill,            NULL)
  PHP_FALIAS(setleftfill,       swfshape_setleftfill,        NULL)
  PHP_FALIAS(setrightfill,      swfshape_setrightfill,       NULL)
  PHP_FALIAS(movepento,         swfshape_movepento,          NULL)
  PHP_FALIAS(movepen,           swfshape_movepen,            NULL)
  PHP_FALIAS(drawlineto,        swfshape_drawlineto,         NULL)
  PHP_FALIAS(drawline,          swfshape_drawline,           NULL)
  PHP_FALIAS(drawcurveto,       swfshape_drawcurveto,        NULL)
  PHP_FALIAS(drawcurve,         swfshape_drawcurve,          NULL)
  PHP_FALIAS(drawglyph,         swfshape_drawglyph,          NULL)
  PHP_FALIAS(drawcircle,        swfshape_drawcircle,         NULL)
  PHP_FALIAS(drawarc,           swfshape_drawarc,            NULL)
  PHP_FALIAS(drawcubic,         swfshape_drawcubic,          NULL)
  PHP_FALIAS(drawcubicto,       swfshape_drawcubicto,        NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto class swfshape_init(void)
   Returns a new SWFShape object */

PHP_FUNCTION(swfshape_init)
{
  SWFShape shape = newSWFShape();
  int ret = zend_list_insert(shape, le_swfshapep);

  object_init_ex(getThis(), &shape_class_entry);
  add_property_resource(getThis(), "shape", ret);
  zend_list_addref(ret);
}


static void destroy_SWFShape_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFShape((SWFShape)resource->ptr);
}

/* }}} */
/* {{{ internal function getShape
   Returns the SWFShape object contained in zval *id */

static SWFShape getShape(zval *id TSRMLS_DC)
{
  void *shape = SWFgetProperty(id, "shape", 5, le_swfshapep TSRMLS_CC);

  if(!shape)
    php_error(E_ERROR, "called object is not an SWFShape!");

  return (SWFShape)shape;
}

/* }}} */
/* {{{ proto void swfshape_setline(int width, int r, int g, int b [, int a])
   Sets the current line style for this SWFShape */

PHP_FUNCTION(swfshape_setline)
{
  zval **w, **r, **g, **b, **a;

  if(ZEND_NUM_ARGS() == 4)
  {
    if(zend_get_parameters_ex(4, &w, &r, &g, &b) == FAILURE)
      WRONG_PARAM_COUNT;
  }
  else if(ZEND_NUM_ARGS() == 5)
  {
    if(zend_get_parameters_ex(5, &w, &r, &g, &b, &a) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(a);
  }
  else if(ZEND_NUM_ARGS() == 1)
  {
    SWFShape_setLine(getShape(getThis() TSRMLS_CC), 0, 0, 0, 0, 0);
    return;
  }
  else
    WRONG_PARAM_COUNT;

  convert_to_long_ex(w);
  convert_to_long_ex(r);
  convert_to_long_ex(g);
  convert_to_long_ex(b);

  if(ZEND_NUM_ARGS() == 4)
  {
    SWFShape_setLine(getShape(getThis() TSRMLS_CC),
		     Z_LVAL_PP(w), Z_LVAL_PP(r), Z_LVAL_PP(g),
		     Z_LVAL_PP(b), 0xff);
  }
  else
  {
    SWFShape_setLine(getShape(getThis() TSRMLS_CC),
		     Z_LVAL_PP(w), Z_LVAL_PP(r), Z_LVAL_PP(g),
		     Z_LVAL_PP(b), Z_LVAL_PP(a));
  }
}

/* }}} */
/* {{{ proto int swfshape_addfill(int fill, int flags)
   Returns a fill object, for use with swfshape_setleftfill and swfshape_setrightfill */

PHP_FUNCTION(swfshape_addfill)
{
  SWFFill fill;
  int ret;

  if(ZEND_NUM_ARGS() == 1 || ZEND_NUM_ARGS() == 2)
  {
    /* it's a gradient or bitmap */

    zval **arg1;
    unsigned char flags = 0;

    if(ZEND_NUM_ARGS() == 2)
    {
      zval **arg2;

      if(zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE)
	WRONG_PARAM_COUNT;

      convert_to_long_ex(arg2);
      flags = (unsigned char)Z_LVAL_PP(arg2);
    }
    else
    {
      if(zend_get_parameters_ex(1, &arg1) == FAILURE)
	WRONG_PARAM_COUNT;
    }

    convert_to_object_ex(arg1);

    if(Z_OBJCE_PP(arg1) == &gradient_class_entry)
    {
      if(flags == 0)
	flags = SWFFILL_LINEAR_GRADIENT;

      fill = SWFShape_addGradientFill(getShape(getThis() TSRMLS_CC), getGradient(*arg1 TSRMLS_CC),
				      flags);
    }
    else if(Z_OBJCE_PP(arg1) == &bitmap_class_entry)
    {
      if(flags == 0)
	flags = SWFFILL_TILED_BITMAP;

      fill = SWFShape_addBitmapFill(getShape(getThis() TSRMLS_CC), getBitmap(*arg1 TSRMLS_CC),
				    flags);
    }
    else
      php_error(E_ERROR, "argument to addfill not a bitmap nor a gradient");
  }

  else if(ZEND_NUM_ARGS() == 3 || ZEND_NUM_ARGS() == 4)
  {
    /* it's a solid fill */
    zval **r, **g, **b, **za;
    int a = 0xff;

    if(ZEND_NUM_ARGS() == 3)
    {
      if(zend_get_parameters_ex(3, &r, &g, &b) == FAILURE)
	WRONG_PARAM_COUNT;
    }
    else if(ZEND_NUM_ARGS() == 4)
    {
      if(zend_get_parameters_ex(4, &r, &g, &b, &za) == FAILURE)
	WRONG_PARAM_COUNT;

      convert_to_long_ex(za);
      a = Z_LVAL_PP(za);
    }
    else
      WRONG_PARAM_COUNT;

    convert_to_long_ex(r);
    convert_to_long_ex(g);
    convert_to_long_ex(b);

    fill = SWFShape_addSolidFill(getShape(getThis() TSRMLS_CC),
				 Z_LVAL_PP(r), Z_LVAL_PP(g),
				 Z_LVAL_PP(b), a);
  }

  else
    WRONG_PARAM_COUNT;

  if(!fill)
    php_error(E_ERROR, "Error adding fill to shape!");


  /* return an SWFFill object */
  ret = zend_list_insert(fill, le_swffillp);
  object_init_ex(return_value, &fill_class_entry);
  add_property_resource(return_value, "fill", ret);
}

/* }}} */
/* {{{ proto void swfshape_setleftfill(int fill)
   Sets the left side fill style to fill */

PHP_FUNCTION(swfshape_setleftfill)
{
  zval **zfill, **r, **g, **b, **a;
  SWFFill fill;

  if(ZEND_NUM_ARGS() == 3)
  {
    if(zend_get_parameters_ex(3, &r, &g, &b) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(r);
    convert_to_long_ex(g);
    convert_to_long_ex(b);

    fill = SWFShape_addSolidFill(getShape(getThis() TSRMLS_CC), Z_LVAL_PP(r),
				 Z_LVAL_PP(g), Z_LVAL_PP(b), 0xff);
  }

  else if(ZEND_NUM_ARGS() == 4)
  {
    if(zend_get_parameters_ex(4, &r, &g, &b, &a) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(r);
    convert_to_long_ex(g);
    convert_to_long_ex(b);
    convert_to_long_ex(a);

    fill = SWFShape_addSolidFill(getShape(getThis() TSRMLS_CC), Z_LVAL_PP(r),
				 Z_LVAL_PP(g), Z_LVAL_PP(b), Z_LVAL_PP(a));
  }

  else if(ZEND_NUM_ARGS() == 1)
  {
    if(zend_get_parameters_ex(1, &zfill) == FAILURE)
      WRONG_PARAM_COUNT;

    if(Z_LVAL_PP(zfill) != 0)
    {
      convert_to_object_ex(zfill);
      fill = getFill(*zfill TSRMLS_CC);
    }
    else
      fill = NULL;
  }

  SWFShape_setLeftFill(getShape(getThis() TSRMLS_CC), fill);
}

/* }}} */
/* {{{ proto void swfshape_setrightfill(int fill)
   Sets the right side fill style to fill */

PHP_FUNCTION(swfshape_setrightfill)
{
  zval **zfill, **r, **g, **b, **a;
  SWFFill fill;

  if(ZEND_NUM_ARGS() == 3)
  {
    if(zend_get_parameters_ex(3, &r, &g, &b) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(r);
    convert_to_long_ex(g);
    convert_to_long_ex(b);

    fill = SWFShape_addSolidFill(getShape(getThis() TSRMLS_CC), Z_LVAL_PP(r),
				 Z_LVAL_PP(g), Z_LVAL_PP(b), 0xff);
  }

  else if(ZEND_NUM_ARGS() == 4)
  {
    if(zend_get_parameters_ex(4, &r, &g, &b, &a) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(r);
    convert_to_long_ex(g);
    convert_to_long_ex(b);
    convert_to_long_ex(a);

    fill = SWFShape_addSolidFill(getShape(getThis() TSRMLS_CC), Z_LVAL_PP(r),
				 Z_LVAL_PP(g), Z_LVAL_PP(b), Z_LVAL_PP(a));
  }

  else if(ZEND_NUM_ARGS() == 1)
  {
    if(zend_get_parameters_ex(1, &zfill) == FAILURE)
      WRONG_PARAM_COUNT;

    if(Z_LVAL_PP(zfill) != 0)
    {
      convert_to_object_ex(zfill);
      fill = getFill(*zfill TSRMLS_CC);
    }
    else
      fill = NULL;
  }

  SWFShape_setRightFill(getShape(getThis() TSRMLS_CC), fill);
}

/* }}} */
/* {{{ proto void swfshape_movepento(float x, float y)
   Moves the pen to shape coordinates (x, y) */

PHP_FUNCTION(swfshape_movepento)
{
  zval **x, **y;

  if((ZEND_NUM_ARGS() != 2) || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFShape_movePenTo(getShape(getThis() TSRMLS_CC),
		     Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfshape_movepen(float x, float y)
   Moves the pen from its current location by vector (x, y) */

PHP_FUNCTION(swfshape_movepen)
{
  zval **x, **y;

  if((ZEND_NUM_ARGS() != 2) || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFShape_movePen(getShape(getThis() TSRMLS_CC),
		   Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfshape_drawlineto(float x, float y)
   Draws a line from the current pen position to shape coordinates (x, y) in the current line style */

PHP_FUNCTION(swfshape_drawlineto)
{
  zval **x, **y;

  if ((ZEND_NUM_ARGS() != 2) || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFShape_drawLineTo(getShape(getThis() TSRMLS_CC), Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfshape_drawline(float dx, float dy)
   Draws a line from the current pen position (x, y) to the point (x+dx, y+dy) in the current line style */

PHP_FUNCTION(swfshape_drawline)
{
  zval **x, **y;

  if ((ZEND_NUM_ARGS() != 2) || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFShape_drawLine(getShape(getThis() TSRMLS_CC), Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swfshape_drawcurveto(float ax, float ay, float bx, float by [, float dx, float dy])
   Draws a curve from the current pen position (x,y) to the point (bx, by) in the current line style, using point (ax, ay) as a control point. Or draws a cubic bezier to point (dx, dy) with control points (ax, ay) and (bx, by) */

PHP_FUNCTION(swfshape_drawcurveto)
{
  if(ZEND_NUM_ARGS() == 4)
  {
    zval **cx, **cy, **ax, **ay;

    if(zend_get_parameters_ex(4, &cx, &cy, &ax, &ay) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(cx);
    convert_to_double_ex(cy);
    convert_to_double_ex(ax);
    convert_to_double_ex(ay);

    SWFShape_drawCurveTo(getShape(getThis() TSRMLS_CC),
			 Z_DVAL_PP(cx), Z_DVAL_PP(cy),
			 Z_DVAL_PP(ax), Z_DVAL_PP(ay));
  }
  else if(ZEND_NUM_ARGS() == 6)
  {
    zval **bx, **by, **cx, **cy, **dx, **dy;

    if(zend_get_parameters_ex(6, &bx, &by, &cx, &cy, &dx, &dy) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(bx);
    convert_to_double_ex(by);
    convert_to_double_ex(cx);
    convert_to_double_ex(cy);
    convert_to_double_ex(dx);
    convert_to_double_ex(dy);

    RETURN_LONG(SWFShape_drawCubicTo(getShape(getThis() TSRMLS_CC),
				     Z_DVAL_PP(bx), Z_DVAL_PP(by),
				     Z_DVAL_PP(cx), Z_DVAL_PP(cy),
				     Z_DVAL_PP(dx), Z_DVAL_PP(dy)));
  }
  else
    WRONG_PARAM_COUNT;
}

/* }}} */
/* {{{ proto void swfshape_drawcurve(float adx, float ady, float bdx, float bdy [, float cdx, float cdy])
   Draws a curve from the current pen position (x, y) to the point (x+bdx, y+bdy) in the current line style, using point (x+adx, y+ady) as a control point or draws a cubic bezier to point (x+cdx, x+cdy) with control points (x+adx, y+ady) and (x+bdx, y+bdy)
*/

PHP_FUNCTION(swfshape_drawcurve)
{
  if(ZEND_NUM_ARGS() == 4)
  {
    zval **cx, **cy, **ax, **ay;

    if(zend_get_parameters_ex(4, &cx, &cy, &ax, &ay) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(cx);
    convert_to_double_ex(cy);
    convert_to_double_ex(ax);
    convert_to_double_ex(ay);

    SWFShape_drawCurve(getShape(getThis() TSRMLS_CC),
		       Z_DVAL_PP(cx), Z_DVAL_PP(cy),
		       Z_DVAL_PP(ax), Z_DVAL_PP(ay));
  }
  else if(ZEND_NUM_ARGS() == 6)
  {
    zval **bx, **by, **cx, **cy, **dx, **dy;

    if(zend_get_parameters_ex(6, &bx, &by, &cx, &cy, &dx, &dy) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_double_ex(bx);
    convert_to_double_ex(by);
    convert_to_double_ex(cx);
    convert_to_double_ex(cy);
    convert_to_double_ex(dx);
    convert_to_double_ex(dy);

    RETURN_LONG(SWFShape_drawCubic(getShape(getThis() TSRMLS_CC),
				   Z_DVAL_PP(bx), Z_DVAL_PP(by),
				   Z_DVAL_PP(cx), Z_DVAL_PP(cy),
				   Z_DVAL_PP(dx), Z_DVAL_PP(dy)));
  }
  else
    WRONG_PARAM_COUNT;
}

/* }}} */
/* {{{ proto void swfshape_drawglyph(SWFFont font, string character [, int size])
   Draws the first character in the given string into the shape using the glyph definition from the given font */

PHP_FUNCTION(swfshape_drawglyph)
{
  zval **font, **c, **zsize;
  int size;

  if(ZEND_NUM_ARGS() == 2)
  {
    if(zend_get_parameters_ex(2, &font, &c) == FAILURE)
      WRONG_PARAM_COUNT;

    size = 1024/Ming_getScale();
  }
  else if(ZEND_NUM_ARGS() == 3)
  {
    if(zend_get_parameters_ex(3, &font, &c, &zsize) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(zsize);
    size = Z_LVAL_PP(zsize);
  }

  convert_to_string_ex(c);

  SWFShape_drawSizedGlyph(getShape(getThis() TSRMLS_CC), getFont(*font TSRMLS_CC), Z_STRVAL_PP(c)[0], size);
}

/* }}} */
/* {{{ proto void swfshape_drawcircle(int r)
   Draws a circle of radius r centered at the current location, in a counter-clockwise fashion */

PHP_FUNCTION(swfshape_drawcircle)
{
  zval **r;

  if((ZEND_NUM_ARGS() != 1) || zend_get_parameters_ex(1, &r) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(r);

  SWFShape_drawCircle(getShape(getThis() TSRMLS_CC), Z_DVAL_PP(r));
}

/* }}} */
/* {{{ proto void swfshape_drawarc(int r, float startAngle, float endAngle)
   Draws an arc of radius r centered at the current location, from angle startAngle to angle endAngle measured counterclockwise from 12 o'clock */

PHP_FUNCTION(swfshape_drawarc)
{
  zval **r, **start, **end;

  if((ZEND_NUM_ARGS() != 3) ||
     zend_get_parameters_ex(3, &r, &start, &end) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(r);
  convert_to_double_ex(start);
  convert_to_double_ex(end);

  /* convert angles to radians, since that's what php uses elsewhere */
  SWFShape_drawArc(getShape(getThis() TSRMLS_CC), Z_DVAL_PP(r), Z_DVAL_PP(start)*M_PI/180, Z_DVAL_PP(end)*M_PI/180);
}

/* }}} */
/* {{{ proto void swfshape_drawcubic(float bx, float by, float cx, float cy, float dx, float dy)
   Draws a cubic bezier curve using the current position and the three given points as control points */

PHP_FUNCTION(swfshape_drawcubic)
{
  zval **bx, **by, **cx, **cy, **dx, **dy;

  if((ZEND_NUM_ARGS() != 6) ||
     zend_get_parameters_ex(6, &bx, &by, &cx, &cy, &dx, &dy) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(bx);
  convert_to_double_ex(by);
  convert_to_double_ex(cx);
  convert_to_double_ex(cy);
  convert_to_double_ex(dx);
  convert_to_double_ex(dy);

  RETURN_LONG(SWFShape_drawCubic(getShape(getThis() TSRMLS_CC),
				 Z_DVAL_PP(bx), Z_DVAL_PP(by),
				 Z_DVAL_PP(cx), Z_DVAL_PP(cy),
				 Z_DVAL_PP(dx), Z_DVAL_PP(dy)));
}

/* }}} */
/* {{{ proto void swfshape_drawcubic(float bx, float by, float cx, float cy, float dx, float dy)
   Draws a cubic bezier curve using the current position and the three given points as control points */

PHP_FUNCTION(swfshape_drawcubicto)
{
  zval **bx, **by, **cx, **cy, **dx, **dy;

  if((ZEND_NUM_ARGS() != 6) ||
     zend_get_parameters_ex(6, &bx, &by, &cx, &cy, &dx, &dy) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(bx);
  convert_to_double_ex(by);
  convert_to_double_ex(cx);
  convert_to_double_ex(cy);
  convert_to_double_ex(dx);
  convert_to_double_ex(dy);

  RETURN_LONG(SWFShape_drawCubicTo(getShape(getThis() TSRMLS_CC),
				   Z_DVAL_PP(bx), Z_DVAL_PP(by),
				   Z_DVAL_PP(cx), Z_DVAL_PP(cy),
				   Z_DVAL_PP(dx), Z_DVAL_PP(dy)));
}

/* }}} */


/* }}} */
/* {{{ SWFSprite */

static zend_function_entry swfsprite_functions[] = {
  PHP_FALIAS(swfsprite,          swfsprite_init,              NULL)
  PHP_FALIAS(add,                swfsprite_add,               NULL)
  PHP_FALIAS(remove,             swfsprite_remove,            NULL)
  PHP_FALIAS(nextframe,          swfsprite_nextFrame,         NULL)
  PHP_FALIAS(labelframe,         swfsprite_labelFrame,        NULL)
  PHP_FALIAS(setframes,          swfsprite_setFrames,         NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto class swfsprite_init(void)
   Returns a new SWFSprite object */

PHP_FUNCTION(swfsprite_init)
{
  SWFMovieClip sprite = newSWFMovieClip();
  int ret = zend_list_insert(sprite, le_swfspritep);

  object_init_ex(getThis(), &sprite_class_entry);
  add_property_resource(getThis(), "sprite", ret);
  zend_list_addref(ret);
}


static void destroy_SWFSprite_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFMovieClip((SWFMovieClip)resource->ptr);
}

/* }}} */
/* {{{ internal function SWFSprite getSprite(zval *id)
   Returns the SWFSprite object in zval *id */

SWFMovieClip getSprite(zval *id TSRMLS_DC)
{
  void *sprite = SWFgetProperty(id, "sprite", 6, le_swfspritep TSRMLS_CC);

  if(!sprite)
    php_error(E_ERROR, "called object is not an SWFSprite!");

  return (SWFMovieClip)sprite;
}

/* }}} */
/* {{{ proto SWFDisplayItem swfsprite_add(SWFCharacter)
   Adds the character to the sprite, returns a displayitem */

PHP_FUNCTION(swfsprite_add)
{
  zval **zchar;
  int ret;
  SWFBlock block;
  SWFDisplayItem item;
  SWFMovieClip sprite = getSprite(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zchar) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);

  if(Z_OBJCE_PP(zchar) == &action_class_entry)
    block = (SWFBlock)getAction(*zchar TSRMLS_CC);
  else
    block = (SWFBlock)getCharacter(*zchar TSRMLS_CC);

  item = SWFMovieClip_add(sprite, block);

  if(item != NULL)
  {
    /* try and create a displayitem object */
    ret = zend_list_insert(item, le_swfdisplayitemp);
    object_init_ex(return_value, &displayitem_class_entry);
    add_property_resource(return_value, "displayitem", ret);
  }
}

/* }}} */
/* {{{ proto void swfsprite_remove(SWFDisplayItem)
   Remove the named character from the sprite's display list */

PHP_FUNCTION(swfsprite_remove)
{
  zval **zchar;
  SWFDisplayItem item;
  SWFMovieClip movie = getSprite(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zchar) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zchar);
  item = getDisplayItem(*zchar TSRMLS_CC);

  SWFMovieClip_remove(movie, item);
}

/* }}} */
/* {{{ proto void swfsprite_nextFrame(void)
   Moves the sprite to the next frame */

PHP_FUNCTION(swfsprite_nextFrame)
{
  SWFMovieClip_nextFrame(getSprite(getThis() TSRMLS_CC));
}

/* }}} */
/* {{{ swfmovie_labelframe */

PHP_FUNCTION(swfsprite_labelFrame)
{
  zval **label;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &label) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(label);

  SWFMovieClip_labelFrame(getSprite(getThis() TSRMLS_CC), Z_STRVAL_PP(label));
}

/* }}} */
/* {{{ proto void swfsprite_setFrames(int frames)
   Sets the number of frames in this SWFSprite */

PHP_FUNCTION(swfsprite_setFrames)
{
  zval **frames;
  SWFMovieClip sprite = getSprite(getThis() TSRMLS_CC);

  if((ZEND_NUM_ARGS() != 1) || zend_get_parameters_ex(1, &frames) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_long_ex(frames);

  SWFMovieClip_setNumberOfFrames(sprite, Z_LVAL_PP(frames));
}

/* }}} */

/* }}} */
/* {{{ SWFText */

static zend_function_entry swftext_functions[] = {
  PHP_FALIAS(swftext,                swftext_init,              NULL)
  PHP_FALIAS(setfont,                swftext_setFont,           NULL)
  PHP_FALIAS(setheight,              swftext_setHeight,         NULL)
  PHP_FALIAS(setspacing,             swftext_setSpacing,        NULL)
  PHP_FALIAS(setcolor,               swftext_setColor,          NULL)
  PHP_FALIAS(moveto,                 swftext_moveTo,            NULL)
  PHP_FALIAS(addstring,              swftext_addString,         NULL)
  PHP_FALIAS(getwidth,               swftext_getWidth,          NULL)
  PHP_FALIAS(getascent,              swftext_getAscent,         NULL)
  PHP_FALIAS(getdescent,             swftext_getDescent,        NULL)
  PHP_FALIAS(getleading,             swftext_getLeading,        NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto class swftext_init(void)
   Returns new SWFText object */

PHP_FUNCTION(swftext_init)
{
  SWFText text = newSWFText2();
  int ret = zend_list_insert(text, le_swftextp);

  object_init_ex(getThis(), &text_class_entry);
  add_property_resource(getThis(), "text", ret);
  zend_list_addref(ret);
}


static void destroy_SWFText_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFText((SWFText)resource->ptr);
}

/* }}} */
/* {{{ internal function SWFText getText(zval *id)
   Returns the SWFText contained in zval *id */

SWFText getText(zval *id TSRMLS_DC)
{
  void *text = SWFgetProperty(id, "text", 4, le_swftextp TSRMLS_CC);

  if(!text)
    php_error(E_ERROR, "called object is not an SWFText!");

  return (SWFText)text;
}

/* }}} */
/* {{{ proto void swftext_setFont(class font)
   Sets this SWFText object's current font to given font */

PHP_FUNCTION(swftext_setFont)
{
  zval **zfont;
  SWFText text = getText(getThis() TSRMLS_CC);
  SWFFont font;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zfont) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(zfont);
  font = getFont(*zfont TSRMLS_CC);

  SWFText_setFont(text, font);
}

/* }}} */
/* {{{ proto void swftext_setHeight(float height)
   Sets this SWFText object's current height to given height */

PHP_FUNCTION(swftext_setHeight)
{
  zval **height;
  SWFText text = getText(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &height) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(height);

  SWFText_setHeight(text, Z_DVAL_PP(height));
}

/* }}} */
/* {{{ proto void swftext_setSpacing(float spacing)
   Sets this SWFText object's current letterspacing to given spacing */

PHP_FUNCTION(swftext_setSpacing)
{
  zval **spacing;
  SWFText text = getText(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &spacing) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(spacing);

  SWFText_setSpacing(text, Z_DVAL_PP(spacing));
}

/* }}} */
/* {{{ proto void swftext_setColor(int r, int g, int b [, int a])
   Sets this SWFText object's current color to the given color */

PHP_FUNCTION(swftext_setColor)
{
  zval **r, **g, **b, **a;
  SWFText text = getText(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() == 3)
  {
    if(zend_get_parameters_ex(3, &r, &g, &b) == FAILURE)
      WRONG_PARAM_COUNT;
  }
  else if(ZEND_NUM_ARGS() == 4)
  {
    if(zend_get_parameters_ex(4, &r, &g, &b, &a) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(a);
  }
  else
    WRONG_PARAM_COUNT;

  convert_to_long_ex(r);
  convert_to_long_ex(g);
  convert_to_long_ex(b);

  if(ZEND_NUM_ARGS() == 4)
  {
    SWFText_setColor(text, Z_LVAL_PP(r), Z_LVAL_PP(g), Z_LVAL_PP(b), Z_LVAL_PP(a));
  }
  else
  {
    SWFText_setColor(text, Z_LVAL_PP(r), Z_LVAL_PP(g), Z_LVAL_PP(b), 0xff);
  }
}

/* }}} */
/* {{{ proto void swftext_moveTo(float x, float y)
   Moves this SWFText object's current pen position to (x, y) in text coordinates */

PHP_FUNCTION(swftext_moveTo)
{
  zval **x, **y;
  SWFText text = getText(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &x, &y) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(x);
  convert_to_double_ex(y);

  SWFText_setXY(text, Z_DVAL_PP(x), Z_DVAL_PP(y));
}

/* }}} */
/* {{{ proto void swftext_addString(string text)
   Writes the given text into this SWFText object at the current pen position, using the current font, height, spacing, and color */

PHP_FUNCTION(swftext_addString)
{
  zval **s;
  SWFText text = getText(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &s) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(s);

  SWFText_addString(text, Z_STRVAL_PP(s), NULL);
}

/* }}} */
/* {{{ proto float swftext_getWidth(string str)
   Calculates the width of the given string in this text objects current font and size */

PHP_FUNCTION(swftext_getWidth)
{
  zval **zstring;
  int width;

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zstring) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(zstring);

  width = SWFText_getStringWidth(getText(getThis() TSRMLS_CC), Z_STRVAL_PP(zstring));

  RETURN_DOUBLE(width);
}

/* }}} */
/* {{{ proto float swftext_getAscent(void)
   Returns the ascent of the current font at its current size, or 0 if not available */

PHP_FUNCTION(swftext_getAscent)
{
  if(ZEND_NUM_ARGS() != 0)
    WRONG_PARAM_COUNT;

  RETURN_DOUBLE(SWFText_getAscent(getText(getThis() TSRMLS_CC)));
}

/* }}} */
/* {{{ proto float swftext_getDescent(void)
   Returns the descent of the current font at its current size, or 0 if not available */

PHP_FUNCTION(swftext_getDescent)
{
  if(ZEND_NUM_ARGS() != 0)
    WRONG_PARAM_COUNT;

  RETURN_DOUBLE(SWFText_getDescent(getText(getThis() TSRMLS_CC)));
}

/* }}} */
/* {{{ proto float swftext_getLeading(void)
   Returns the leading of the current font at its current size, or 0 if not available */

PHP_FUNCTION(swftext_getLeading)
{
  if(ZEND_NUM_ARGS() != 0)
    WRONG_PARAM_COUNT;

  RETURN_DOUBLE(SWFText_getLeading(getText(getThis() TSRMLS_CC)));
}

/* }}} */

/* }}} */
/* {{{ SWFTextField */

static zend_function_entry swftextfield_functions[] = {
  PHP_FALIAS(swftextfield,      swftextfield_init,            NULL)
  PHP_FALIAS(setfont,           swftextfield_setFont,         NULL)
  PHP_FALIAS(setbounds,         swftextfield_setBounds,       NULL)
  PHP_FALIAS(align,             swftextfield_align,           NULL)
  PHP_FALIAS(setheight,         swftextfield_setHeight,       NULL)
  PHP_FALIAS(setleftmargin,     swftextfield_setLeftMargin,   NULL)
  PHP_FALIAS(setrightmargin,    swftextfield_setRightMargin,  NULL)
  PHP_FALIAS(setmargins,        swftextfield_setMargins,      NULL)
  PHP_FALIAS(setindentation,    swftextfield_setIndentation,  NULL)
  PHP_FALIAS(setlinespacing,    swftextfield_setLineSpacing,  NULL)
  PHP_FALIAS(setcolor,          swftextfield_setColor,        NULL)
  PHP_FALIAS(setname,           swftextfield_setName,         NULL)
  PHP_FALIAS(addstring,         swftextfield_addString,       NULL)
  { NULL, NULL, NULL }
};

/* {{{ proto object swftextfield_init(void)
   Returns a new SWFTextField object */

PHP_FUNCTION(swftextfield_init)
{
  zval **flags;
  SWFTextField field = newSWFTextField();
  int ret = zend_list_insert(field, le_swftextfieldp);

  object_init_ex(getThis(), &textfield_class_entry);
  add_property_resource(getThis(), "textfield", ret);
  zend_list_addref(ret);

  if(ZEND_NUM_ARGS() == 1)
  {
    if(zend_get_parameters_ex(1, &flags) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(flags);
    SWFTextField_setFlags(field, Z_LVAL_PP(flags));
  }
}


static void destroy_SWFTextField_resource(zend_rsrc_list_entry *resource TSRMLS_DC)
{
  destroySWFTextField((SWFTextField)resource->ptr);
}

/* }}} */
/* {{{ internal function getTextField
   Returns the SWFTextField object contained in zval *id */

static SWFTextField getTextField(zval *id TSRMLS_DC)
{
  void *field = SWFgetProperty(id, "textfield", 9, le_swftextfieldp TSRMLS_CC);

  if(!field)
    php_error(E_ERROR, "called object is not an SWFTextField!");

  return (SWFTextField)field;
}

/* }}} */
/* {{{ proto void swftextfield_setFont(int font)
   Sets the font for this textfield */

PHP_FUNCTION(swftextfield_setFont)
{
  zval **font;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &font) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_object_ex(font);

  SWFTextField_setFont(field, getFont(*font TSRMLS_CC));
}

/* }}} */
/* {{{ proto void swftextfield_setBounds(float width, float height)
   Sets the width and height of this textfield */

PHP_FUNCTION(swftextfield_setBounds)
{
  zval **width, **height;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &width, &height) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(width);
  convert_to_double_ex(height);

  SWFTextField_setBounds(field, Z_DVAL_PP(width), Z_DVAL_PP(height));
}

/* }}} */
/* {{{ proto void swftextfield_align(int alignment)
   Sets the alignment of this textfield */

PHP_FUNCTION(swftextfield_align)
{
  zval **align;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &align) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_long_ex(align);

  SWFTextField_setAlignment(field, Z_LVAL_PP(align));
}

/* }}} */
/* {{{ proto void swftextfield_setHeight(float height)
   Sets the font height of this textfield */

PHP_FUNCTION(swftextfield_setHeight)
{
  zval **height;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &height) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(height);

  SWFTextField_setHeight(field, Z_DVAL_PP(height));
}

/* }}} */
/* {{{ proto void swftextfield_setLeftMargin(float)
   Sets the left margin of this textfield */

PHP_FUNCTION(swftextfield_setLeftMargin)
{
  zval **margin;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &margin) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(margin);

  SWFTextField_setLeftMargin(field, Z_DVAL_PP(margin));
}

/* }}} */
/* {{{ proto void swftextfield_setRightMargin(float margin)
   Sets the right margin of this textfield */

PHP_FUNCTION(swftextfield_setRightMargin)
{
  zval **margin;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &margin) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(margin);

  SWFTextField_setRightMargin(field, Z_DVAL_PP(margin));
}

/* }}} */
/* {{{ proto void swftextfield_setMargins(float left, float right)
   Sets both margins of this textfield */

PHP_FUNCTION(swftextfield_setMargins)
{
  zval **left, **right;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 2 ||
     zend_get_parameters_ex(2, &left, &right) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(left);
  convert_to_double_ex(right);

  SWFTextField_setLeftMargin(field, Z_DVAL_PP(left));
  SWFTextField_setRightMargin(field, Z_DVAL_PP(right));
}

/* }}} */
/* {{{ proto void swftextfield_setIndentation(float indentation)
   Sets the indentation of the first line of this textfield */

PHP_FUNCTION(swftextfield_setIndentation)
{
  zval **indent;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &indent) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(indent);

  SWFTextField_setIndentation(field, Z_DVAL_PP(indent));
}

/* }}} */
/* {{{ proto void swftextfield_setLineSpacing(float space)
   Sets the line spacing of this textfield */

PHP_FUNCTION(swftextfield_setLineSpacing)
{
  zval **spacing;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &spacing) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_double_ex(spacing);

  SWFTextField_setLineSpacing(field, Z_DVAL_PP(spacing));
}

/* }}} */
/* {{{ proto void swftextfield_setColor(int r, int g, int b [, int a])
   Sets the color of this textfield */

PHP_FUNCTION(swftextfield_setColor)
{
  zval **r, **g, **b, **a;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);
  int alpha = 0xff;

  if(ZEND_NUM_ARGS() == 3)
  {
    if(zend_get_parameters_ex(3, &r, &g, &b) == FAILURE)
      WRONG_PARAM_COUNT;
  }
  else if(ZEND_NUM_ARGS() == 4)
  {
    if(zend_get_parameters_ex(4, &r, &g, &b, &a) == FAILURE)
      WRONG_PARAM_COUNT;

    convert_to_long_ex(a);
    alpha = Z_LVAL_PP(a);
  }
  else
    WRONG_PARAM_COUNT;

  convert_to_long_ex(r);
  convert_to_long_ex(g);
  convert_to_long_ex(b);

  SWFTextField_setColor(field, Z_LVAL_PP(r), Z_LVAL_PP(g), Z_LVAL_PP(b), alpha);
}

/* }}} */
/* {{{ proto void swftextfield_setName(string var_name)
   Sets the variable name of this textfield */

PHP_FUNCTION(swftextfield_setName)
{
  zval **name;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &name) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(name);

  SWFTextField_setVariableName(field, Z_STRVAL_PP(name));
}

/* }}} */
/* {{{ proto void swftextfield_addString(string str)
   Adds the given string to this textfield */

PHP_FUNCTION(swftextfield_addString)
{
  zval **string;
  SWFTextField field = getTextField(getThis() TSRMLS_CC);

  if(ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &string) == FAILURE)
    WRONG_PARAM_COUNT;

  convert_to_string_ex(string);

  SWFTextField_addString(field, Z_STRVAL_PP(string));
}

/* }}} */

/* }}} */

zend_module_entry ming_module_entry =
  {
	STANDARD_MODULE_HEADER,
    "ming",
    ming_functions,
    PHP_MINIT(ming), /* module init function */
    NULL,            /* module shutdown function */
    PHP_RINIT(ming), /* request init function */
    NULL,            /* request shutdown function */
    PHP_MINFO(ming), /* module info function */
    NO_VERSION_YET,
    STANDARD_MODULE_PROPERTIES
  };

#if defined(COMPILE_DL) || defined(COMPILE_DL_MING)
ZEND_GET_MODULE(ming)
#endif

/* {{{ todo PHP_MINFO_FUNCTION(ming)
*/

PHP_MINFO_FUNCTION(ming)
{
  php_info_print_table_start();
  php_info_print_table_row(2, "Ming SWF output library", "the funk in your trunk");
  php_info_print_table_row(2, "Version", MING_VERSION_TEXT);
  php_info_print_table_end();
}

/* }}} */
/* {{{ todo PHP_MINIT_FUNCTION(ming)
*/

#define ERROR_BUFSIZE 1024

/* custom error handler propagates ming errors up to php */
void php_ming_error(char *msg, ...)
{
  va_list args;
  char buffer[ERROR_BUFSIZE];

  va_start(args, msg);
  vsnprintf(buffer, ERROR_BUFSIZE, msg, args);
  va_end(args);

  php_error(E_ERROR, buffer);
}

PHP_RINIT_FUNCTION(ming)
{
  /* XXX - this didn't work so well last I tried.. */

  if(Ming_init() != 0) {
    php_error(E_ERROR, "Error initializing Ming module");
    return FAILURE;
  }

  return SUCCESS;
}

PHP_MINIT_FUNCTION(ming)
{
  Ming_setErrorFunction(php_ming_error);

#define CONSTANT(s,c) REGISTER_LONG_CONSTANT((s), (c), CONST_CS | CONST_PERSISTENT)

  /* flags for SWFButton_addShape */
  CONSTANT("SWFBUTTON_HIT",               SWFBUTTONRECORD_HITSTATE);
  CONSTANT("SWFBUTTON_DOWN",              SWFBUTTONRECORD_DOWNSTATE);
  CONSTANT("SWFBUTTON_OVER",              SWFBUTTONRECORD_OVERSTATE);
  CONSTANT("SWFBUTTON_UP",                SWFBUTTONRECORD_UPSTATE);

  /* flags for SWFButton_addAction */
  CONSTANT("SWFBUTTON_MOUSEUPOUTSIDE",    SWFBUTTON_MOUSEUPOUTSIDE);
  CONSTANT("SWFBUTTON_DRAGOVER",          SWFBUTTON_DRAGOVER);
  CONSTANT("SWFBUTTON_DRAGOUT",           SWFBUTTON_DRAGOUT);
  CONSTANT("SWFBUTTON_MOUSEUP",           SWFBUTTON_MOUSEUP);
  CONSTANT("SWFBUTTON_MOUSEDOWN",         SWFBUTTON_MOUSEDOWN);
  CONSTANT("SWFBUTTON_MOUSEOUT",          SWFBUTTON_MOUSEOUT);
  CONSTANT("SWFBUTTON_MOUSEOVER",         SWFBUTTON_MOUSEOVER);

  /* flags for SWFFill */
  CONSTANT("SWFFILL_RADIAL_GRADIENT",     SWFFILL_RADIAL_GRADIENT);
  CONSTANT("SWFFILL_LINEAR_GRADIENT",     SWFFILL_LINEAR_GRADIENT);
  CONSTANT("SWFFILL_TILED_BITMAP",        SWFFILL_TILED_BITMAP);
  CONSTANT("SWFFILL_CLIPPED_BITMAP",      SWFFILL_CLIPPED_BITMAP);

  /* flags for SWFTextField_init */
  CONSTANT("SWFTEXTFIELD_HASLENGTH",      SWFTEXTFIELD_HASLENGTH);
  CONSTANT("SWFTEXTFIELD_NOEDIT",         SWFTEXTFIELD_NOEDIT);
  CONSTANT("SWFTEXTFIELD_PASSWORD",       SWFTEXTFIELD_PASSWORD);
  CONSTANT("SWFTEXTFIELD_MULTILINE",      SWFTEXTFIELD_MULTILINE);
  CONSTANT("SWFTEXTFIELD_WORDWRAP",       SWFTEXTFIELD_WORDWRAP);
  CONSTANT("SWFTEXTFIELD_DRAWBOX",        SWFTEXTFIELD_DRAWBOX);
  CONSTANT("SWFTEXTFIELD_NOSELECT",       SWFTEXTFIELD_NOSELECT);
  CONSTANT("SWFTEXTFIELD_HTML",           SWFTEXTFIELD_HTML);

  /* flags for SWFTextField_align */
  CONSTANT("SWFTEXTFIELD_ALIGN_LEFT",     SWFTEXTFIELD_ALIGN_LEFT);
  CONSTANT("SWFTEXTFIELD_ALIGN_RIGHT",    SWFTEXTFIELD_ALIGN_RIGHT);
  CONSTANT("SWFTEXTFIELD_ALIGN_CENTER",   SWFTEXTFIELD_ALIGN_CENTER);
  CONSTANT("SWFTEXTFIELD_ALIGN_JUSTIFY",  SWFTEXTFIELD_ALIGN_JUSTIFY);

  /* flags for SWFDisplayItem_addAction */
  CONSTANT("SWFACTION_ONLOAD",            SWFACTION_ONLOAD);
  CONSTANT("SWFACTION_ENTERFRAME",        SWFACTION_ENTERFRAME);
  CONSTANT("SWFACTION_UNLOAD",            SWFACTION_UNLOAD);
  CONSTANT("SWFACTION_MOUSEMOVE",         SWFACTION_MOUSEMOVE);
  CONSTANT("SWFACTION_MOUSEDOWN",         SWFACTION_MOUSEDOWN);
  CONSTANT("SWFACTION_MOUSEUP",           SWFACTION_MOUSEUP);
  CONSTANT("SWFACTION_KEYDOWN",           SWFACTION_KEYDOWN);
  CONSTANT("SWFACTION_KEYUP",             SWFACTION_KEYUP);
  CONSTANT("SWFACTION_DATA",              SWFACTION_DATA);

  le_swfmoviep = zend_register_list_destructors_ex(destroy_SWFMovie_resource, NULL, "SWFMovie", module_number);
  le_swfshapep = zend_register_list_destructors_ex(destroy_SWFShape_resource, NULL, "SWFShape", module_number);
  le_swffillp = zend_register_list_destructors_ex(destroy_SWFFill_resource, NULL, "SWFFill", module_number);
  le_swfgradientp = zend_register_list_destructors_ex(destroy_SWFGradient_resource, NULL, "SWFGradient", module_number);
  le_swfbitmapp = zend_register_list_destructors_ex(destroy_SWFBitmap_resource, NULL, "SWFBitmap", module_number);
  le_swftextp = zend_register_list_destructors_ex(destroy_SWFText_resource, NULL, "SWFText", module_number);
  le_swftextfieldp = zend_register_list_destructors_ex(destroy_SWFTextField_resource, NULL, "SWFTextField", module_number);
  le_swffontp = zend_register_list_destructors_ex(destroy_SWFFont_resource, NULL, "SWFFont", module_number);
  le_swfbuttonp = zend_register_list_destructors_ex(destroy_SWFButton_resource, NULL, "SWFButton", module_number);
  le_swfmorphp = zend_register_list_destructors_ex(destroy_SWFMorph_resource, NULL, "SWFMorph", module_number);
  le_swfspritep = zend_register_list_destructors_ex(destroy_SWFSprite_resource, NULL, "SWFSprite", module_number);

  le_swfdisplayitemp = zend_register_list_destructors_ex(NULL, NULL, "SWFDisplayItem", module_number);
  le_swfactionp = zend_register_list_destructors_ex(NULL, NULL, "SWFAction", module_number);

  le_swfinputp = zend_register_list_destructors_ex(destroy_SWFInput_resource, NULL, "SWFInput", module_number);

  INIT_CLASS_ENTRY(shape_class_entry, "swfshape", swfshape_functions);
  INIT_CLASS_ENTRY(fill_class_entry, "swffill", swffill_functions);
  INIT_CLASS_ENTRY(gradient_class_entry, "swfgradient", swfgradient_functions);
  INIT_CLASS_ENTRY(bitmap_class_entry, "swfbitmap", swfbitmap_functions);
  INIT_CLASS_ENTRY(text_class_entry, "swftext", swftext_functions);
  INIT_CLASS_ENTRY(textfield_class_entry, "swftextfield",
		   swftextfield_functions);
  INIT_CLASS_ENTRY(font_class_entry, "swffont", swffont_functions);
  INIT_CLASS_ENTRY(displayitem_class_entry, "swfdisplayitem",
		   swfdisplayitem_functions);
  INIT_CLASS_ENTRY(movie_class_entry, "swfmovie", swfmovie_functions);
  INIT_CLASS_ENTRY(button_class_entry, "swfbutton", swfbutton_functions);
  INIT_CLASS_ENTRY(action_class_entry, "swfaction", swfaction_functions);
  INIT_CLASS_ENTRY(morph_class_entry, "swfmorph", swfmorph_functions);
  INIT_CLASS_ENTRY(sprite_class_entry, "swfsprite", swfsprite_functions);

  zend_register_internal_class(&shape_class_entry TSRMLS_CC);
  zend_register_internal_class(&fill_class_entry TSRMLS_CC);
  zend_register_internal_class(&gradient_class_entry TSRMLS_CC);
  zend_register_internal_class(&bitmap_class_entry TSRMLS_CC);
  zend_register_internal_class(&text_class_entry TSRMLS_CC);
  zend_register_internal_class(&textfield_class_entry TSRMLS_CC);
  zend_register_internal_class(&font_class_entry TSRMLS_CC);
  zend_register_internal_class(&displayitem_class_entry TSRMLS_CC);
  zend_register_internal_class(&movie_class_entry TSRMLS_CC);
  zend_register_internal_class(&button_class_entry TSRMLS_CC);
  zend_register_internal_class(&action_class_entry TSRMLS_CC);
  zend_register_internal_class(&morph_class_entry TSRMLS_CC);
  zend_register_internal_class(&sprite_class_entry TSRMLS_CC);

  return SUCCESS;
}

/* }}} */

#endif

/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 * vim600: sw=4 ts=4 fdm=marker
 * vim<600: sw=4 ts=4
 */