r7671 - in /branches/upstream/libpdf-api2-perl/current: META.yml lib/PDF/API2/Annotation.pm lib/PDF/API2/Resource/XObject/Image/TIFF.pm lib/PDF/API2/Version.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Mon Sep 17 20:33:18 UTC 2007


Author: dmn
Date: Mon Sep 17 20:33:17 2007
New Revision: 7671

URL: http://svn.debian.org/wsvn/?sc=1&rev=7671
Log:
[svn-upgrade] Integrating new upstream version, libpdf-api2-perl (0.64)

Modified:
    branches/upstream/libpdf-api2-perl/current/META.yml
    branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm
    branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm
    branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm

Modified: branches/upstream/libpdf-api2-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libpdf-api2-perl/current/META.yml?rev=7671&op=diff
==============================================================================
--- branches/upstream/libpdf-api2-perl/current/META.yml (original)
+++ branches/upstream/libpdf-api2-perl/current/META.yml Mon Sep 17 20:33:17 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.63
+version:      0.64
 version_from: lib/PDF/API2/Version.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm?rev=7671&op=diff
==============================================================================
--- branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm (original)
+++ branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm Mon Sep 17 20:33:17 2007
@@ -214,6 +214,29 @@
     return($self);
 }
 
+=item $ant->movie $file, $contentype, %opts
+
+Defines the annotation as a movie from $file with $contentype and
+options %opts (-rect).
+
+=cut
+
+sub movie
+{
+    my ($self,$file,$contentype,%opts)=@_;
+    $self->{Subtype}=PDFName('Movie');
+    $self->{A}=PDFBool(1);
+    $self->{Movie}=PDFDict();
+    $self->{Movie}->{F}=PDFDict();
+    $self->{' apipdf'}->new_obj($self->{Movie}->{F});
+    my $f=$self->{Movie}->{F};
+    $f->{Type}=PDFName('EmbeddedFile');
+    $f->{Subtype}=PDFName($contentype);
+    $f->{' streamfile'}=$file;
+    $self->rect(@{$opts{-rect}}) if(defined $opts{-rect});
+    return($self);
+}
+
 =item $ant->rect $llx, $lly, $urx, $ury
 
 Sets the rectangle of the annotation.

Modified: branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm?rev=7671&op=diff
==============================================================================
--- branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm (original)
+++ branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm Mon Sep 17 20:33:17 2007
@@ -27,7 +27,7 @@
 #   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 #   Boston, MA 02111-1307, USA.
 #
-#   $Id: TIFF.pm,v 2.1 2007/03/17 20:38:51 areibens Exp $
+#   $Id: TIFF.pm,v 2.3 2007/09/17 16:03:07 areibens Exp $
 #
 #=======================================================================
 package PDF::API2::Resource::XObject::Image::TIFF;
@@ -45,7 +45,7 @@
 
     @ISA = qw( PDF::API2::Resource::XObject::Image );
 
-    ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.1 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/03/17 20:38:51 $
+    ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.3 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/09/17 16:03:07 $
 
 }
 no warnings qw[ deprecated recursion uninitialized ];
@@ -362,7 +362,8 @@
 B<Useful Tags:>
 
     imageDescription, imageId (strings)
-    xRes, yRes (dpi)
+    xRes, yRes (dpi; pixel/cm if resUnit==3)
+    resUnit
 
 =cut
 
@@ -572,6 +573,9 @@
         $fh->seek($here,0);
         $self->{yRes}=[unpack($self->{rational},$self->{yRes})];
         $self->{yRes}=($self->{yRes}->[0]/$self->{yRes}->[1]);
+      } elsif($valTag==296) {
+        # resolution Unit
+        $self->{resUnit}=$valOffset;
       } elsif($valTag==273) {
         # image data offset/strip offsets
         if($valCount==1) {
@@ -641,6 +645,12 @@
 =head1 HISTORY
 
     $Log: TIFF.pm,v $
+    Revision 2.3  2007/09/17 16:03:07  areibens
+    update docs for tiffTag
+
+    Revision 2.2  2007/09/14 15:36:39  areibens
+    also read Tiff Tag 296 and make it available as resUnit
+
     Revision 2.1  2007/03/17 20:38:51  areibens
     replaced IOString dep. with scalar IO.
 

Modified: branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm?rev=7671&op=diff
==============================================================================
--- branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm (original)
+++ branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm Mon Sep 17 20:33:17 2007
@@ -9,14 +9,14 @@
 package PDF::API2::Version;
 BEGIN {
     use vars qw( $VERSION %CVersion );
-    $VERSION = '0.63';
+    $VERSION = '0.64';
     %CVersion = (
-        'vFredo' => 'PDF::API2 0.63',
-        'vHex' => '0x0003F000',
-        'vLong' => '0.63',
-        'vPerl' => '0.63',
-        'vShort' => '0.63',
-        'vWeb' => 'PDF::API2/0.63',
+        'vFredo' => 'PDF::API2 0.64',
+        'vHex' => '0x00040000',
+        'vLong' => '0.64',
+        'vPerl' => '0.64',
+        'vShort' => '0.64',
+        'vWeb' => 'PDF::API2/0.64',
     );
 }
 1;
@@ -32,12 +32,12 @@
 
 =head1 VERSION
 
-  vFredo: PDF::API2 0.63 
-    vHex: 0x0003F000 
-   vLong: 0.63 
-   vPerl: 0.63 
-  vShort: 0.63 
-    vWeb: PDF::API2/0.63 
+  vFredo: PDF::API2 0.64 
+    vHex: 0x00040000 
+   vLong: 0.64 
+   vPerl: 0.64 
+  vShort: 0.64 
+    vWeb: PDF::API2/0.64 
 
 =cut
 




More information about the Pkg-perl-cvs-commits mailing list