1 /* ====================================================================
2  * Copyright (c) 2007 Klaus Rechert 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 
19 
20 MODULE = SWF::BrowserFont		PACKAGE = SWF::BrowserFont		PREFIX = SWFBrowserFont_
21 PROTOTYPES: ENABLE
22 
23 SWF::BrowserFont
24 SWFBrowserFont_new(package="SWF::BrowserFont", name)
25 	char *package
26 	char *name
27 	CODE:
28 	RETVAL = newSWFBrowserFont(name);
29 
30 	ST(0) = sv_newmortal();
31         sv_setref_pv(ST(0), package, (void*)RETVAL);
32 
33 void
34 destroySWFBrowserFont(block)
35         SWF::Block      block = (SWF__Block) SvIV((SV*)SvRV(ST(0)));
36         ALIAS:
37         SWF::BrowserFont::DESTROY = 1
38         CODE:
39         S_DEBUG(2, fprintf(stderr, "BROWSERFONT DESTROY CALLED\n"));
40 	destroySWFBrowserFont((SWFBrowserFont)block);
41