/* ====================================================================
* Copyright (c) 2000-2001 by Soheil Seyfaie. All rights reserved.
* This program is free software; you can redistribute it and/or modify
* it under the same terms as Perl itself.
* ====================================================================
*
* $Author: krechert $
* $Id: Action.xs,v 1.3 2007/03/28 21:20:30 krechert Exp $
*/
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "SWF.h"
#include "perl_swf.h"
MODULE = SWF::Action PACKAGE = SWF::Action PREFIX = SWFAction_
PROTOTYPES: ENABLE
SWF::Action
SWFAction_new(package="SWF::Action", script)
char *package
char *script
CODE:
RETVAL = newSWFAction(script);
ST(0) = sv_newmortal();
sv_setref_pv(ST(0), package, (void*)RETVAL);
void
SWFAction_DESTROY(action)
SWF::Action action
CODE:
S_DEBUG(2, fprintf(stderr, "Action DESTROY CALLED\n"));