r15207 - in /trunk/libole-storage-lite-perl: Changes META.yml Makefile.PL Storage_Lite.pm debian/changelog
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Wed Feb 20 17:18:52 UTC 2008
Author: gregoa-guest
Date: Wed Feb 20 17:18:51 2008
New Revision: 15207
URL: http://svn.debian.org/wsvn/?sc=1&rev=15207
Log:
New upstream release.
Modified:
trunk/libole-storage-lite-perl/Changes
trunk/libole-storage-lite-perl/META.yml
trunk/libole-storage-lite-perl/Makefile.PL
trunk/libole-storage-lite-perl/Storage_Lite.pm
trunk/libole-storage-lite-perl/debian/changelog
Modified: trunk/libole-storage-lite-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libole-storage-lite-perl/Changes?rev=15207&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/Changes (original)
+++ trunk/libole-storage-lite-perl/Changes Wed Feb 20 17:18:51 2008
@@ -1,4 +1,14 @@
Revision history for Perl extension OLE::Storage_Lite.
+
+0.16 Tue Feb 19 23:00:00 2008
+
+ - Workaround for HP-UX Perl 5.6 integer bug.
+ Thanks Bob Rose.
+
+ - Fix for binmode() on IO::Scalar.
+ REported by Tobias Tacke:
+ http://rt.cpan.org/Public/Bug/Display.html?id=32603
+
0.15 Sat Dec 1 18:00:00 2007
Modified: trunk/libole-storage-lite-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libole-storage-lite-perl/META.yml?rev=15207&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/META.yml (original)
+++ trunk/libole-storage-lite-perl/META.yml Wed Feb 20 17:18:51 2008
@@ -1,6 +1,6 @@
name: OLE-Storage_Lite
abstract: Read and write OLE storage files.
-version: 0.15
+version: 0.16
version_from: Storage_Lite.pm
installdirs: site
requires:
Modified: trunk/libole-storage-lite-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libole-storage-lite-perl/Makefile.PL?rev=15207&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/Makefile.PL (original)
+++ trunk/libole-storage-lite-perl/Makefile.PL Wed Feb 20 17:18:51 2008
@@ -9,7 +9,7 @@
'VERSION_FROM' => 'Storage_Lite.pm',
'NEEDS_LINKING' => 0,
'PREREQ_PM' => {},
- 'dist' => {COMPRESS => 'gzip -best', SUFFIX => 'gz'},
+ 'dist' => {COMPRESS => 'gzip --best', SUFFIX => 'gz'},
);
Modified: trunk/libole-storage-lite-perl/Storage_Lite.pm
URL: http://svn.debian.org/wsvn/trunk/libole-storage-lite-perl/Storage_Lite.pm?rev=15207&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/Storage_Lite.pm (original)
+++ trunk/libole-storage-lite-perl/Storage_Lite.pm Wed Feb 20 17:18:51 2008
@@ -14,7 +14,7 @@
#use OLE::Storage_Lite;
use vars qw($VERSION @ISA);
@ISA = qw(Exporter);
-$VERSION = '0.15';
+$VERSION = '0.16';
#------------------------------------------------------------------------------
# new (OLE::Storage_Lite::PPS)
@@ -173,7 +173,7 @@
use Fcntl;
use vars qw($VERSION @ISA);
@ISA = qw(OLE::Storage_Lite::PPS Exporter);
-$VERSION = '0.15';
+$VERSION = '0.16';
sub _savePpsSetPnt($$$);
sub _savePpsSetPnt2($$$);
#------------------------------------------------------------------------------
@@ -226,7 +226,8 @@
#1.2 $sFile is a IO::Handle object
elsif(UNIVERSAL::isa($sFile, 'IO::Handle')) {
- binmode($sFile);
+ # Not all filehandles support binmode() so try it in an eval.
+ eval{ binmode $sFile };
$rhInfo->{_FILEH_} = $sFile;
}
#1.3 $sFile is a simple filename string
@@ -337,7 +338,7 @@
#0. Calculate Basic Setting
my $iBlCnt = $rhInfo->{_BIG_BLOCK_SIZE} / OLE::Storage_Lite::LongIntSize();
- my $i1stBdL = ($rhInfo->{_BIG_BLOCK_SIZE} - 0x4C) / OLE::Storage_Lite::LongIntSize();
+ my $i1stBdL = int(($rhInfo->{_BIG_BLOCK_SIZE} - 0x4C) / OLE::Storage_Lite::LongIntSize());
my $i1stBdMax = $i1stBdL * $iBlCnt - $i1stBdL;
my $iBdExL = 0;
my $iAll = $iBBcnt + $iPPScnt + $iSBDcnt;
@@ -630,7 +631,7 @@
#0. Calculate Basic Setting
my $iBbCnt = $rhInfo->{_BIG_BLOCK_SIZE} / OLE::Storage_Lite::LongIntSize();
my $iBlCnt = $iBbCnt - 1;
- my $i1stBdL = ($rhInfo->{_BIG_BLOCK_SIZE} - 0x4C) / OLE::Storage_Lite::LongIntSize();
+ my $i1stBdL = int(($rhInfo->{_BIG_BLOCK_SIZE} - 0x4C) / OLE::Storage_Lite::LongIntSize());
my $i1stBdMax = $i1stBdL * $iBbCnt - $i1stBdL;
my $iBdExL = 0;
my $iAll = $iBsize + $iPpsCnt + $iSbdSize;
@@ -712,7 +713,7 @@
use strict;
use vars qw($VERSION @ISA);
@ISA = qw(OLE::Storage_Lite::PPS Exporter);
-$VERSION = '0.15';
+$VERSION = '0.16';
#------------------------------------------------------------------------------
# new (OLE::Storage_Lite::PPS::File)
#------------------------------------------------------------------------------
@@ -800,7 +801,7 @@
use strict;
use vars qw($VERSION @ISA);
@ISA = qw(OLE::Storage_Lite::PPS Exporter);
-$VERSION = '0.15';
+$VERSION = '0.16';
sub new ($$;$$$) {
my($sClass, $sName, $raTime1st, $raTime2nd, $raChild) = @_;
OLE::Storage_Lite::PPS::_new(
@@ -827,7 +828,7 @@
use IO::File;
use vars qw($VERSION @ISA @EXPORT);
@ISA = qw(Exporter);
-$VERSION = '0.15';
+$VERSION = '0.16';
sub _getPpsSearch($$$$$;$);
sub _getPpsTree($$$;$);
#------------------------------------------------------------------------------
@@ -1435,91 +1436,96 @@
=head1 SYNOPSIS
- use OLE::Storage_Lite;
- use strict;
-#1. Initialize
-#1.1 From File
- my $oOl = OLE::Storage_Lite->new("some.xls");
-#1.2 From Scalar
- my $oOl = OLE::Storage_Lite->new(\$sBuff);
-#1.3 From IO::Handle object
- use IO::File;
- my $oIo = new IO::File;
- $oIo->open("<iofile.xls");
- binmode($oIo);
- my $oOl = OLE::Storage_Lite->new($oFile);
-#2. Read and Get Data
- my $oPps = $oOl->getPpsTree(1);
-#3.Save Data
-#3.1 As File
- $oPps->save("kaba.xls"); #kaba.xls
- $oPps->save('-'); #STDOUT
-#3.2 As Scalar
- $oPps->save(\$sBuff);
-#3.3 As IO::Handle object
- my $oIo = new IO::File;
- $oIo->open(">iofile.xls");
- bimode($oIo);
- $oPps->save($oIo);
+ use OLE::Storage_Lite;
+
+ # Initialize.
+
+ # From a file
+ my $oOl = OLE::Storage_Lite->new("some.xls");
+
+ # From a filehandle object
+ use IO::File;
+ my $oIo = new IO::File;
+ $oIo->open("<iofile.xls");
+ binmode($oIo);
+ my $oOl = OLE::Storage_Lite->new($oFile);
+
+ # Read data
+ my $oPps = $oOl->getPpsTree(1);
+
+ # Save Data
+ # To a File
+ $oPps->save("kaba.xls"); #kaba.xls
+ $oPps->save('-'); #STDOUT
+
+ # To a filehandle object
+ my $oIo = new IO::File;
+ $oIo->open(">iofile.xls");
+ bimode($oIo);
+ $oPps->save($oIo);
+
=head1 DESCRIPTION
OLE::Storage_Lite allows you to read and write an OLE structured file.
-Please refer OLE::Storage by Martin Schwartz.
-
-OLE::Storage_Lite::PPS is a class representing PPS.
-OLE::Storage_Lite::PPS::Root, OLE::Storage_Lite::PPS::File and OLE::Storage_Lite::PPS::Dir
+
+OLE::Storage_Lite::PPS is a class representing PPS. OLE::Storage_Lite::PPS::Root, OLE::Storage_Lite::PPS::File and OLE::Storage_Lite::PPS::Dir
are subclasses of OLE::Storage_Lite::PPS.
-=head2 new
-
-I<$oOle> = OLE::Storage_Lite->new(I<$sFile>);
+=head2 new()
Constructor.
-Creates a OLE::Storage_Lite object for I<$sFile>.
-I<$sFile> must be a correct file name.
-
-From 0.06, I<$sFile> may be a scalar reference of file contents (ex. \$sBuff)
- and IO::Handle object (including IO::File etc).
-
-=head2 getPpsTree
-
-I<$oPpsRoot> = I<oOle>->getPpsTree([$bData]);
-
-returns PPS as OLE::Storage_Lite::PPS::Root object.
+
+ $oOle = OLE::Storage_Lite->new($sFile);
+
+Creates a OLE::Storage_Lite object for C<$sFile>. C<$sFile> must be a correct file name.
+
+The C<new()> constructor also accepts a valid filehandle. Remember to C<binmode()> the filehandle first.
+
+
+=head2 getPpsTree()
+
+ $oPpsRoot = $oOle->getPpsTree([$bData]);
+
+Returns PPS as an OLE::Storage_Lite::PPS::Root object.
Other PPS objects will be included as its children.
-if I<$bData> is true, the objects will have data in the file.
-
-=head2 getPpsSearch
-
-I<$oPpsRoot> = I<oOle>->getPpsTree($raName [, $bData][, $iCase] );
-
-returns PPSs as OLE::Storage_Lite::PPS objects that has the name specified in
-I<$raName> array.
-if I<$bData> is true, the objects will have data in the file.
-if I<$iCase> is true, search with case insensitive.
-
-=head2 getNthPps
-
-I<$oPpsRoot> = I<oOle>->getNthPps($iNth [, $bData]);
-
-returns PPS as OLE::Storage_Lite::PPS object specified number(I<$iNth>).
-if I<$bData> is true, the objects will have data in the file.
-
-=head2 Asc2Ucs
-
-I<$sUcs2> = OLE::Storage_Lite::Asc2Ucs(I<$sAsc>);
-
-Utility function.
-Just adding 0x00 afeter every characters in I<$sAsc>.
-
-=head2 Ucs2Asc
-
-I<$sAsc> = OLE::Storage_Lite::Ucs2Asc(I<$sUcs2>);
-
-Utility function.
-Just deletes 0x00 afeter words in I<$sUcs>.
+
+If C<$bData> is true, the objects will have data in the file.
+
+
+=head2 getPpsSearch()
+
+ $oPpsRoot = $oOle->getPpsTree($raName [, $bData][, $iCase] );
+
+Returns PPSs as OLE::Storage_Lite::PPS objects that has the name specified in C<$raName> array.
+
+If C<$bData> is true, the objects will have data in the file.
+If C<$iCase> is true, search is case insensitive.
+
+
+=head2 getNthPps()
+
+ $oPpsRoot = $oOle->getNthPps($iNth [, $bData]);
+
+Returns PPS as C<OLE::Storage_Lite::PPS> object specified number C<$iNth>.
+
+If C<$bData> is true, the objects will have data in the file.
+
+
+=head2 Asc2Ucs()
+
+ $sUcs2 = OLE::Storage_Lite::Asc2Ucs($sAsc>);
+
+Utility function. Just adds 0x00 after every characters in C<$sAsc>.
+
+
+=head2 Ucs2Asc()
+
+ $sAsc = OLE::Storage_Lite::Ucs2Asc($sUcs2);
+
+Utility function. Just deletes 0x00 after words in C<$sUcs>.
+
=head1 OLE::Storage_Lite::PPS
@@ -1529,149 +1535,156 @@
=item No
-order number in saving.
+Order number in saving.
=item Name
-its name in UCS2 (a.k.a Unicode).
+Its name in UCS2 (a.k.a Unicode).
=item Type
-its type (1:Dir, 2:File (Data), 5: Root)
+Its type (1:Dir, 2:File (Data), 5: Root)
=item PrevPps
-previous pps (as No)
+Previous pps (as No)
=item NextPps
-next pps (as No)
+Next pps (as No)
=item DirPps
-dir pps (as No).
+Dir pps (as No).
=item Time1st
-timestamp1st in array ref as similar fomat of localtime.
+Timestamp 1st in array ref as similar fomat of localtime.
=item Time2nd
-timestamp2nd in array ref as similar fomat of localtime.
+Timestamp 2nd in array ref as similar fomat of localtime.
=item StartBlock
-start block number
+Start block number
=item Size
-size of the pps
+Size of the pps
=item Data
-its data
+Its data
=item Child
-its child PPSs in array ref
+Its child PPSs in array ref
=back
+
=head1 OLE::Storage_Lite::PPS::Root
OLE::Storage_Lite::PPS::Root has 2 methods.
-=head2 new
-
-I<$oRoot> = OLE::Storage_Lite::PPS::Root->new(
- I<$raTime1st>,
- I<$raTime2nd>,
- I<$raChild>);
+=head2 new()
+
+ $oRoot = OLE::Storage_Lite::PPS::Root->new(
+ $raTime1st,
+ $raTime2nd,
+ $raChild);
+
Constructor.
-I<$raTime1st>, I<$raTime2nd> is a array ref as
+C<$raTime1st>, C<$raTime2nd> are array refs with ($iSec, $iMin, $iHour, $iDay, $iMon, $iYear, $iHSec).
+$iSec means seconds, $iMin means minutes. $iHour means hours.
+$iDay means day. $iMon is month -1. $iYear is year - 1900.
+$iHSec is seconds/10,000,000 in Math::BigInt.
+
+C<$raChild> is a array ref of children PPSs.
+
+
+=head2 save()
+
+ $oRoot = $oRoot>->save(
+ $sFile,
+ $bNoAs);
+
+
+Saves information into C<$sFile>. If C<$sFile> is '-', this will use STDOUT.
+
+The C<new()> constructor also accepts a valid filehandle. Remember to C<binmode()> the filehandle first.
+
+If C<$bNoAs> is defined, this function will use the No of PPSs for saving order.
+If C<$bNoAs> is undefined, this will calculate PPS saving order.
+
+
+=head1 OLE::Storage_Lite::PPS::Dir
+
+OLE::Storage_Lite::PPS::Dir has 1 method.
+
+=head2 new()
+
+ $oRoot = OLE::Storage_Lite::PPS::Dir->new(
+ $sName,
+ [, $raTime1st]
+ [, $raTime2nd]
+ [, $raChild>]);
+
+
+Constructor.
+
+C<$sName> is a name of the PPS.
+
+C<$raTime1st>, C<$raTime2nd> is a array ref as
($iSec, $iMin, $iHour, $iDay, $iMon, $iYear, $iHSec).
$iSec means seconds, $iMin means minutes. $iHour means hours.
$iDay means day. $iMon is month -1. $iYear is year - 1900.
$iHSec is seconds/10,000,000 in Math::BigInt.
-I<$raChild> is a array ref of children PPSs.
-
-=head2 save
-
-I<$oRoot> = $o<oRoot>->save(
- I<$sFile>,
- I<$bNoAs>);
-
-Saves infomations into I<$sFile>. I<$sFile> is '-', this will use STDOUT.
-
-From 0.06, I<$sFile> may be a scalar reference of file contents (ex. \$sBuff)
- and IO::Handle object (including IO::File etc).
-
-if I<$bNoAs> is defined, this function will use the No of PPSs for saving order.
-if I<$bNoAs> is undefined, this will calculate PPS saving order.
-
-=head1 OLE::Storage_Lite::PPS::Dir
-
-OLE::Storage_Lite::PPS::Dir has 1 method.
+C<$raChild> is a array ref of children PPSs.
+
+
+=head1 OLE::Storage_Lite::PPS::File
+
+OLE::Storage_Lite::PPS::File has 3 method.
=head2 new
-I<$oRoot> = OLE::Storage_Lite::PPS::Dir->new(
- I<$sName>
- [, I<$raTime1st>]
- [, I<$raTime2nd>]
- [, I<$raChild>]);
-
-Constructor.
-
-I<$sName> is a name of the PPS.
-
-I<$raTime1st>, I<$raTime2nd> is a array ref as
-($iSec, $iMin, $iHour, $iDay, $iMon, $iYear, $iHSec).
-$iSec means seconds, $iMin means minutes. $iHour means hours.
-$iDay means day. $iMon is month -1. $iYear is year - 1900.
-$iHSec is seconds/10,000,000 in Math::BigInt.
-
-I<$raChild> is a array ref of children PPSs.
-
-
-=head1 OLE::Storage_Lite::PPS::File
-
-OLE::Storage_Lite::PPS::File has 3 method.
-
-=head2 new
-
-I<$oRoot> = OLE::Storage_Lite::PPS::File->new(I<$sName>, I<$sData>);
-
-I<$sName> is name of the PPS.
-
-I<$sData> is data of the PPS.
-
-=head2 newFile
-
-I<$oRoot> = OLE::Storage_Lite::PPS::File->newFile(I<$sName>, I<$sFile>);
+ $oRoot = OLE::Storage_Lite::PPS::File->new($sName, $sData);
+
+C<$sName> is name of the PPS.
+
+C<$sData> is data of the PPS.
+
+
+=head2 newFile()
+
+ $oRoot = OLE::Storage_Lite::PPS::File->newFile($sName, $sFile);
This function makes to use file handle for geting and storing data.
-I<$sName> is name of the PPS.
-
-If I<$sFile> is scalar, it assumes that is a filename.
-If I<$sFile> is an IO::Handle object, it uses that specified handle.
-If I<$sFile> is undef or '', it uses temporary file.
-
-CAUTION: Take care I<$sFile> will be updated by I<append> method.
+C<$sName> is name of the PPS.
+
+If C<$sFile> is scalar, it assumes that is a filename.
+If C<$sFile> is an IO::Handle object, it uses that specified handle.
+If C<$sFile> is undef or '', it uses temporary file.
+
+CAUTION: Take care C<$sFile> will be updated by C<append> method.
So if you want to use IO::Handle and append a data to it,
you should open the handle with "r+".
-=head2 append
-
-I<$oRoot> = $oPps->append($sData);
+
+=head2 append()
+
+ $oRoot = $oPps->append($sData);
appends specified data to that PPS.
-I<$sData> is appending data for that PPS.
+C<$sData> is appending data for that PPS.
+
=head1 CAUTION
@@ -1679,6 +1692,12 @@
However modules can get the same information from the file,
the file occurs a error in application(Word, Excel ...).
+
+=head1 DEPRECATED FEATURES
+
+Older version of C<OLE::Storage_Lite> autovivified a scalar ref in the C<new()> constructors into a scalar filehandle. This functionality is still there for backwards compatibility but it is highly recommended that you do not use it. Instead create a filehandle (scalar or otherwise) and pass that in.
+
+
=head1 COPYRIGHT
The OLE::Storage_Lite module is Copyright (c) 2000,2001 Kawai Takanori. Japan.
@@ -1687,18 +1706,26 @@
You may distribute under the terms of either the GNU General Public
License or the Artistic License, as specified in the Perl README file.
+
=head1 ACKNOWLEDGEMENTS
First of all, I would like to acknowledge to Martin Schwartz and his module OLE::Storage.
+
=head1 AUTHOR
Kawai Takanori kwitknr at cpan.org
-Currently maintained by John McNamara jmcnamara at cpan.org
+This module is currently maintained by John McNamara jmcnamara at cpan.org
+
=head1 SEE ALSO
OLE::Storage
+Documentation for the OLE Compound document has been released by Microsoft under the I<Open Specification Promise>. See http://www.microsoft.com/interop/docs/supportingtechnologies.mspx
+
+The Digital Imaging Group have also detailed the OLE format in the JPEG2000 specification: see Appendix A of http://www.i3a.org/pdf/wg1n1017.pdf
+
+
=cut
Modified: trunk/libole-storage-lite-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libole-storage-lite-perl/debian/changelog?rev=15207&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/debian/changelog (original)
+++ trunk/libole-storage-lite-perl/debian/changelog Wed Feb 20 17:18:51 2008
@@ -1,3 +1,9 @@
+libole-storage-lite-perl (0.16-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Wed, 20 Feb 2008 18:16:28 +0100
+
libole-storage-lite-perl (0.15-1) unstable; urgency=low
[ gregor herrmann ]
More information about the Pkg-perl-cvs-commits
mailing list