From: Klaus R. <kre...@us...> - 2008-06-26 14:53:00
|
Update of /cvsroot/ming/ming/perl_ext In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv17321 Modified Files: .cvsignore MANIFEST Makefile.PL Makefile.am SWF.pm perl_swf.h typemap Added Files: FontCollection.xs Log Message: FontCollection Index: .cvsignore =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/.cvsignore,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** .cvsignore 16 Jun 2008 09:45:26 -0000 1.16 --- .cvsignore 26 Jun 2008 14:52:56 -0000 1.17 *************** *** 39,40 **** --- 39,41 ---- CXform.c BrowserFont.c + FontCollection.c Index: SWF.pm =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/SWF.pm,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** SWF.pm 25 May 2008 18:47:18 -0000 1.24 --- SWF.pm 26 Jun 2008 14:52:56 -0000 1.25 *************** *** 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; --- 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, FontCollection); bootstrap SWF $SWF::VERSION; Index: Makefile.PL =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/Makefile.PL,v retrieving revision 1.54 retrieving revision 1.55 diff -C2 -d -r1.54 -r1.55 *** Makefile.PL 8 Jun 2008 10:26:16 -0000 1.54 --- Makefile.PL 26 Jun 2008 14:52:56 -0000 1.55 *************** *** 64,67 **** --- 64,68 ---- 'CXform', 'BrowserFont', + 'FontCollection', ); Index: MANIFEST =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/MANIFEST,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** MANIFEST 25 May 2008 18:47:18 -0000 1.17 --- MANIFEST 26 Jun 2008 14:52:56 -0000 1.18 *************** *** 30,33 **** --- 30,34 ---- SWF/Sprite.pm SWF/BrowserFont.pm + SWF/FontCollection.pm t/00_basic.t t/01_shape.t *************** *** 80,83 **** --- 81,85 ---- CXform.xs BrowserFont.xs + FontCollection.xs perl_swf.h swf_util.c Index: Makefile.am =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/Makefile.am,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** Makefile.am 8 Jun 2008 11:49:57 -0000 1.19 --- Makefile.am 26 Jun 2008 14:52:56 -0000 1.20 *************** *** 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 \ --- 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 SWF/FontCollection.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 FontCollection.xs\ DisplayItem.xs Exports.c Fill.xs FilterMatrix.xs Filter.xs \ Font.xs Gradient.xs InitAction.xs MANIFEST Makefile.PL \ *************** *** 19,23 **** README SUPPORT SWF.pm SWF.xs Shadow.xs Shape.xs Sound.xs \ SoundInstance.xs SoundStream.xs TODO Text.xs TextField.xs \ ! VideoStream.xs FontCharacter.xs ButtonRecord.xs\ perl_swf.h swf_util.c typemap examples/action.cgi \ examples/alphafill.cgi examples/animation.cgi \ --- 19,23 ---- README SUPPORT SWF.pm SWF.xs Shadow.xs Shape.xs Sound.xs \ SoundInstance.xs SoundStream.xs TODO Text.xs TextField.xs \ ! VideoStream.xs FontCharacter.xs ButtonRecord.xs \ perl_swf.h swf_util.c typemap examples/action.cgi \ examples/alphafill.cgi examples/animation.cgi \ --- NEW FILE: FontCollection.xs --- /* ==================================================================== * Copyright (c) 2008 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: FontCollection.xs,v 1.1 2008/06/26 14:52:56 krechert Exp $ */ #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "SWF.h" #include "perl_swf.h" MODULE = SWF::FontCollection PACKAGE = SWF::FontCollection PREFIX = SWFFontCollection_ PROTOTYPES: ENABLE SWF::FontCollection SWFFontCollection_new(package="SWF::FontCollection", filename) char *package char *filename CODE: RETVAL = newSWFFontCollection_fromFile(filename); ST(0) = sv_newmortal(); sv_setref_pv(ST(0), package, (void*)RETVAL); void destroySWFFontCollection(block) SWF::Block block = (SWF__Block) SvIV((SV*)SvRV(ST(0))); ALIAS: SWF::FontCollection::DESTROY = 1 CODE: destroySWFFontCollection((SWFFontCollection)block); int SWFFontCollection_getFontCount(fc) SWF::FontCollection fc SWF::Font SWFFontCollection_getFont(fc, index) SWF::FontCollection fc int index CODE: RETVAL = SWFFontCollection_getFont(fc, index); ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "SWF::Font", (void*)RETVAL); Index: perl_swf.h =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/perl_swf.h,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** perl_swf.h 25 May 2008 18:47:19 -0000 1.15 --- perl_swf.h 26 Jun 2008 14:52:56 -0000 1.16 *************** *** 45,48 **** --- 45,49 ---- typedef SWFCXform SWF__CXform; typedef SWFBrowserFont SWF__BrowserFont; + typedef SWFFontCollection SWF__FontCollection; #ifndef sv_undef Index: typemap =================================================================== RCS file: /cvsroot/ming/ming/perl_ext/typemap,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** typemap 25 May 2008 18:47:19 -0000 1.15 --- typemap 26 Jun 2008 14:52:56 -0000 1.16 *************** *** 37,40 **** --- 37,41 ---- SWF::CXform T_PTROBJ SWF::BrowserFont T_PTROBJ + SWF::FontCollection T_PTROBJ INPUT |