r7387 - in /trunk/libpdf-api2-perl: META.yml debian/changelog examples/020_corefonts lib/PDF/API2/Basic/TTF/Cmap.pm lib/PDF/API2/Version.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue Sep 11 09:37:16 UTC 2007
Author: dmn
Date: Tue Sep 11 09:37:15 2007
New Revision: 7387
URL: http://svn.debian.org/wsvn/?sc=1&rev=7387
Log:
* New upstream release
Modified:
trunk/libpdf-api2-perl/META.yml
trunk/libpdf-api2-perl/debian/changelog
trunk/libpdf-api2-perl/examples/020_corefonts
trunk/libpdf-api2-perl/lib/PDF/API2/Basic/TTF/Cmap.pm
trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm
Modified: trunk/libpdf-api2-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/META.yml?rev=7387&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/META.yml (original)
+++ trunk/libpdf-api2-perl/META.yml Tue Sep 11 09:37:15 2007
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: PDF-API2
-version: 0.62
+version: 0.63
version_from: lib/PDF/API2/Version.pm
installdirs: site
requires:
Modified: trunk/libpdf-api2-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/debian/changelog?rev=7387&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/debian/changelog (original)
+++ trunk/libpdf-api2-perl/debian/changelog Tue Sep 11 09:37:15 2007
@@ -1,3 +1,9 @@
+libpdf-api2-perl (0.63-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Damyan Ivanov <dmn at debian.org> Tue, 11 Sep 2007 12:37:09 +0300
+
libpdf-api2-perl (0.62-1) unstable; urgency=low
* New upstream release
Modified: trunk/libpdf-api2-perl/examples/020_corefonts
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/examples/020_corefonts?rev=7387&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/examples/020_corefonts (original)
+++ trunk/libpdf-api2-perl/examples/020_corefonts Tue Sep 11 09:37:15 2007
@@ -31,10 +31,10 @@
# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
-# $Id: 020_corefonts,v 2.0 2005/11/16 02:16:00 areibens Exp $
+# $Id: 020_corefonts,v 2.1 2007/08/07 20:40:45 areibens Exp $
#
#=======================================================================
-
+use lib '../lib';
use PDF::API2;
use PDF::API2::Util;
Modified: trunk/libpdf-api2-perl/lib/PDF/API2/Basic/TTF/Cmap.pm
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/lib/PDF/API2/Basic/TTF/Cmap.pm?rev=7387&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/lib/PDF/API2/Basic/TTF/Cmap.pm (original)
+++ trunk/libpdf-api2-perl/lib/PDF/API2/Basic/TTF/Cmap.pm Tue Sep 11 09:37:15 2007
@@ -21,7 +21,7 @@
# This specific module is licensed under the Perl Artistic License.
#
#
-# $Id: Cmap.pm,v 2.0 2005/11/16 02:16:00 areibens Exp $
+# $Id: Cmap.pm,v 2.1 2007/08/27 20:06:02 areibens Exp $
#
#=======================================================================
package PDF::API2::Basic::TTF::Cmap;
@@ -235,21 +235,37 @@
{
my ($self,$iso) = @_;
my ($i, $s, $alt, $found);
-
+ my %cmap_pref=(
+ '3:10' => 100,
+ '3:1' => 75,
+ '3:0' => 25,
+ '2:0' => 50,
+ '0:4' => 80,
+ '0:3' => 30,
+ );
+
return($self->{' mstable'}) if(defined $self->{' mstable'});
$self->read unless($self->{' read'});
+ $self->{' mstable'} = $self->{Tables}[0];
+ $self->{' mstable'}->{Pref}=$cmap_pref{$self->{' mstable'}->{Platform}.':'.$self->{' mstable'}->{Encoding}};
foreach $i (0..($self->{Num}-1))
{
$s = $self->{Tables}[$i];
- if ($s->{'Platform'} == 3)
+ $s->{Pref}=$cmap_pref{$s->{Platform}.':'.$s->{Encoding}};
+
+ if($s->{Pref} > $self->{' mstable'}->{Pref})
{
$self->{' mstable'} = $s;
- $found = 1 if(($s->{'Encoding'} == 1) || ($s->{'Encoding'} == 0));
- last if ($found);
- } elsif ($s->{'Platform'} == 0 || ($s->{'Platform'} == 2 && $s->{'Encoding'} == 1))
- { $alt = $s; }
+ $found = 1;
+ }
+ elsif (($s->{'Platform'} == 3 && ($s->{'Encoding'} == 1 || $s->{'Encoding'} == 0))
+ || $s->{'Platform'} == 0
+ || ($s->{'Platform'} == 2 && $s->{'Encoding'} == 1))
+ {
+ $alt = $s;
+ }
}
$self->{' mstable'} = $alt unless $found;
Modified: trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm
URL: http://svn.debian.org/wsvn/trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm?rev=7387&op=diff
==============================================================================
--- trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm (original)
+++ trunk/libpdf-api2-perl/lib/PDF/API2/Version.pm Tue Sep 11 09:37:15 2007
@@ -9,14 +9,14 @@
package PDF::API2::Version;
BEGIN {
use vars qw( $VERSION %CVersion );
- $VERSION = '0.62';
+ $VERSION = '0.63';
%CVersion = (
- 'vFredo' => 'PDF::API2 0.62',
- 'vHex' => '0x0003E000',
- 'vLong' => '0.62',
- 'vPerl' => '0.62',
- 'vShort' => '0.62',
- 'vWeb' => 'PDF::API2/0.62',
+ 'vFredo' => 'PDF::API2 0.63',
+ 'vHex' => '0x0003F000',
+ 'vLong' => '0.63',
+ 'vPerl' => '0.63',
+ 'vShort' => '0.63',
+ 'vWeb' => 'PDF::API2/0.63',
);
}
1;
@@ -32,12 +32,12 @@
=head1 VERSION
- vFredo: PDF::API2 0.62
- vHex: 0x0003E000
- vLong: 0.62
- vPerl: 0.62
- vShort: 0.62
- vWeb: PDF::API2/0.62
+ vFredo: PDF::API2 0.63
+ vHex: 0x0003F000
+ vLong: 0.63
+ vPerl: 0.63
+ vShort: 0.63
+ vWeb: PDF::API2/0.63
=cut
More information about the Pkg-perl-cvs-commits
mailing list