/* ====================================================================
* 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: peterdd $
* $Id: SWF.xs,v 1.13 2006/02/01 06:47:29 peterdd Exp $
*/
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "SWF.h"
#include "perl_swf.h"
static void callXS (void (*subaddr)(CV* cv), CV *cv, SV **mark) {
int items;
dSP;
PUSHMARK (mark);
(*subaddr)(cv);
PUTBACK;
}
MODULE = SWF PACKAGE = SWF PREFIX = Ming_
PROTOTYPES: ENABLE
INCLUDE: Boot.xsh
void
fileOutputMethod(b, data)
byte b
void * data
void
Ming_setScale(scale)
float scale
float
Ming_getScale()
void
Ming_setCubicThreshold(num)
int num
void
Ming_useSWFVersion(version)
int version
ALIAS:
SWF::setVersion = 1
int
Ming_setSWFCompression(level);
int level
void
Ming_useConstants(flag)
int flag
CODE:
Ming_useConstants(flag);