From: Klaus R. <kre...@us...> - 2008-05-25 18:47:29
|
Update of /cvsroot/ming/ming/perl_ext In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv17845 Modified Files: Font.xs MANIFEST Makefile.PL Makefile.am SWF.pm perl_swf.h typemap Added Files: BrowserFont.xs Log Message: added browserfont Index: SWF.pm =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/SWF.pm,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** SWF.pm 22 May 2008 18:46:00 -0000 1.23 --- SWF.pm 25 May 2008 18:47:18 -0000 1.24 *************** *** 16,20 **** $SWF::VERSION = '0.4.0-beta6'; ! my @EXPORT_OK = qw(Action Bitmap Button Constants DisplayItem Fill Font Gradient Morph Movie MovieClip PrebuiltClip Shape Sound Text TextField FontCharacter ButtonRecord BinaryData InitAction Matrix Blur Shadow FilterMatrix Filter CXform Sprite); bootstrap SWF $SWF::VERSION; --- 16,20 ---- $SWF::VERSION = '0.4.0-beta6'; ! my @EXPORT_OK = qw(Action Bitmap Button Constants DisplayItem Fill Font Gradient Morph Movie MovieClip PrebuiltClip Shape Sound Text TextField FontCharacter ButtonRecord BinaryData InitAction Matrix Blur Shadow FilterMatrix Filter CXform Sprite BrowserFont); bootstrap SWF $SWF::VERSION; Index: Makefile.PL =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/Makefile.PL,v retrieving revision 1.51 retrieving revision 1.52 diff -C2 -d -r1.51 -r1.52 *** Makefile.PL 22 May 2008 19:01:41 -0000 1.51 --- Makefile.PL 25 May 2008 18:47:18 -0000 1.52 *************** *** 63,66 **** --- 63,67 ---- 'Filter', 'CXform', + 'BrowserFont', ); Index: MANIFEST =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/MANIFEST,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** MANIFEST 28 Apr 2008 10:09:24 -0000 1.16 --- MANIFEST 25 May 2008 18:47:18 -0000 1.17 *************** *** 29,32 **** --- 29,33 ---- SWF/CXform.pm SWF/Sprite.pm + SWF/BrowserFont.pm t/00_basic.t t/01_shape.t *************** *** 78,81 **** --- 79,83 ---- Filter.xs CXform.xs + BrowserFont.xs perl_swf.h swf_util.c Index: Makefile.am =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/Makefile.am,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** Makefile.am 21 May 2008 11:10:52 -0000 1.17 --- Makefile.am 25 May 2008 18:47:18 -0000 1.18 *************** *** 8,16 **** SWF/SoundInstance.pm SWF/SoundStream.pm SWF/MovieClip.pm \ SWF/Text.pm SWF/TextField.pm SWF/VideoStream.pm SWF/Sprite.pm \ t/00_basic.t t/01_shape.t t/03_movie.t t/button.t t/drag.t \ t/fill.t t/filljpeg.t t/gradient.t t/movieclip.t t/png.t \ t/sound.t \ Action.xs BinaryData.xs Bitmap.xs Blur.xs Button.xs CREDITS \ ! Changes Constants.xs CXform.xs \ DisplayItem.xs Exports.c Fill.xs FilterMatrix.xs Filter.xs \ Font.xs Gradient.xs InitAction.xs MANIFEST Makefile.PL \ --- 8,17 ---- SWF/SoundInstance.pm SWF/SoundStream.pm SWF/MovieClip.pm \ SWF/Text.pm SWF/TextField.pm SWF/VideoStream.pm SWF/Sprite.pm \ + SWF/BrowserFont.pm \ t/00_basic.t t/01_shape.t t/03_movie.t t/button.t t/drag.t \ t/fill.t t/filljpeg.t t/gradient.t t/movieclip.t t/png.t \ t/sound.t \ Action.xs BinaryData.xs Bitmap.xs Blur.xs Button.xs CREDITS \ ! Changes Constants.xs CXform.xs BrowserFont.xs \ DisplayItem.xs Exports.c Fill.xs FilterMatrix.xs Filter.xs \ Font.xs Gradient.xs InitAction.xs MANIFEST Makefile.PL \ --- NEW FILE: BrowserFont.xs --- /* ==================================================================== * Copyright (c) 2007 Klaus Rechert 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: BrowserFont.xs,v 1.1 2008/05/25 18:47:17 krechert Exp $ */ #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "SWF.h" #include "perl_swf.h" MODULE = SWF::BrowserFont PACKAGE = SWF::BrowserFont PREFIX = SWFBrowserFont_ PROTOTYPES: ENABLE SWF::BrowserFont SWFBrowserFont_new(package="SWF::BrowserFont", name) char *package char *name CODE: RETVAL = newSWFBrowserFont(name); ST(0) = sv_newmortal(); sv_setref_pv(ST(0), package, (void*)RETVAL); void destroySWFBrowserFont(block) SWF::Block block = (SWF__Block) SvIV((SV*)SvRV(ST(0))); ALIAS: SWF::BrowserFont::DESTROY = 1 CODE: S_DEBUG(2, fprintf(stderr, "BROWSERFONT DESTROY CALLED\n")); destroySWFBrowserFont((SWFBrowserFont)block); Index: Font.xs =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/Font.xs,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Font.xs 4 Jan 2008 21:19:07 -0000 1.10 --- Font.xs 25 May 2008 18:47:18 -0000 1.11 *************** *** 35,39 **** } else ! RETVAL = newSWFBrowserFont(filename); ST(0) = sv_newmortal(); --- 35,39 ---- } else ! XSRETURN_UNDEF; ST(0) = sv_newmortal(); Index: perl_swf.h =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/perl_swf.h,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** perl_swf.h 28 Feb 2008 15:55:18 -0000 1.14 --- perl_swf.h 25 May 2008 18:47:19 -0000 1.15 *************** *** 44,47 **** --- 44,48 ---- typedef SWFFilter SWF__Filter; typedef SWFCXform SWF__CXform; + typedef SWFBrowserFont SWF__BrowserFont; #ifndef sv_undef Index: typemap =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/typemap,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** typemap 12 May 2008 15:42:42 -0000 1.14 --- typemap 25 May 2008 18:47:19 -0000 1.15 *************** *** 36,39 **** --- 36,40 ---- SWF::Filter T_PTROBJ SWF::CXform T_PTROBJ + SWF::BrowserFont T_PTROBJ INPUT |