1 /* ====================================================================
2  * Copyright (c) 2000-2001 by Soheil Seyfaie. All rights reserved.
3  * This program is free software; you can redistribute it and/or modify
4  * it under the same terms as Perl itself.
5  * ====================================================================
6  *
7  * $Author$
8  * $Id$
9  */
10 
11 
12 #include "EXTERN.h"
13 #include "perl.h"
14 #include "XSUB.h"
15 
16 #include "SWF.h"
17 #include "perl_swf.h"
18 
callXS(void (* subaddr)(CV * cv),CV * cv,SV ** mark)19 static void callXS (void (*subaddr)(CV* cv), CV *cv, SV **mark) {
20 	int items;
21 	dSP;
22 	PUSHMARK (mark);
23 	(*subaddr)(cv);
24 	PUTBACK;
25 }
26 
27 
28 
29 MODULE = SWF		PACKAGE = SWF			PREFIX = Ming_
30 PROTOTYPES: ENABLE
31 
32 INCLUDE: Boot.xsh
33 
34 void
35 fileOutputMethod(b, data)
36 	byte	b
37 	void *	data
38 
39 
40 void
41 Ming_setScale(scale)
42     float scale
43 
44 float
45 Ming_getScale()
46 
47 void
48 Ming_setCubicThreshold(num)
49     int num
50 
51 void
52 Ming_useSWFVersion(version)
53     int version
54     ALIAS:
55         SWF::setVersion = 1
56 
57 int
58 Ming_setSWFCompression(level);
59     int level
60 
61 void
62 Ming_useConstants(flag)
63 	int flag
64 	CODE:
65 		Ming_useConstants(flag);
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82