r25492 - in /trunk/libspreadsheet-read-perl: Changes META.yml Makefile.PL README Read.pm t/34_dates.t
jeremiah-guest at users.alioth.debian.org
jeremiah-guest at users.alioth.debian.org
Sun Sep 21 18:02:39 UTC 2008
Author: jeremiah-guest
Date: Sun Sep 21 18:02:35 2008
New Revision: 25492
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25492
Log:
Adding new upstream source
Modified:
trunk/libspreadsheet-read-perl/Changes
trunk/libspreadsheet-read-perl/META.yml
trunk/libspreadsheet-read-perl/Makefile.PL
trunk/libspreadsheet-read-perl/README
trunk/libspreadsheet-read-perl/Read.pm
trunk/libspreadsheet-read-perl/t/34_dates.t
Modified: trunk/libspreadsheet-read-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/Changes?rev=25492&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/Changes (original)
+++ trunk/libspreadsheet-read-perl/Changes Sun Sep 21 18:02:35 2008
@@ -1,4 +1,13 @@
Revision history for Spreadsheet::Read
+
+0.28 Wed 04 Sep 2008
+
+ - More tests on date formats
+ - Declare Spreadsheet::ParseExcel::FmtDefault in META.yml
+ - Add 'size' from Excel font size
+ - Update docs about Excel quirks and CPAN links
+ - Reference to public git repo
+ - Some typo's
0.27 Sun 31 Aug 2008
Modified: trunk/libspreadsheet-read-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/META.yml?rev=25492&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/META.yml (original)
+++ trunk/libspreadsheet-read-perl/META.yml Sun Sep 21 18:02:35 2008
@@ -1,6 +1,6 @@
--- #YAML:1.4
name: Read
-version: 0.27
+version: 0.28
abstract: Meta-Wrapper for reading spreadsheet data
license: perl
author:
@@ -10,7 +10,7 @@
provides:
Spreadsheet::Read:
file: Read.pm
- version: 0.27
+ version: 0.28
requires:
perl: 5.006
Exporter: 0
@@ -31,13 +31,14 @@
recommends:
Text::CSV: 1
Text::CSV_PP: 1.05
- Text::CSV_XS: 0.52
+ Text::CSV_XS: 0.54
- opt_excel:
description: Provides parsing of Microsoft Excel files
requires:
Spreadsheet::ParseExcel: 0.26
+ Spreadsheet::ParseExcel::FmtDefault: 0
recommends:
- Spreadsheet::ParseExcel: 0.33
+ Spreadsheet::ParseExcel: 0.34
- opt_oo:
description: Provides parsing of OpenOffice spreadsheets
requires:
Modified: trunk/libspreadsheet-read-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/Makefile.PL?rev=25492&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/Makefile.PL (original)
+++ trunk/libspreadsheet-read-perl/Makefile.PL Sun Sep 21 18:02:35 2008
@@ -53,10 +53,30 @@
sub postamble
{
+ my $valgrind = join " ", qw(
+ PERL_DESTRUCT_LEVEL=2 PERL_DL_NONLAZY=1
+ valgrind
+ --suppressions=sandbox/perl.supp
+ --leak-check=yes
+ --leak-resolution=high
+ --show-reachable=yes
+ --num-callers=50
+ --log-fd=3
+ $(FULLPERLRUN) "-MExtUtils::Command::MM" "-e"
+ "test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')"
+ $(TEST_FILES) 3>valgrind.log
+ );
join "\n" =>
'cover test_cover:',
' ccache -C',
' cover -test',
+ '',
+ 'leakcheck:',
+ " $valgrind",
+ ' - at tail -5 valgrind.log',
+ '',
+ 'leaktest:',
+ q{ sandbox/leaktest $(FULLPERLRUN) "test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES)},
'',
'checkmeta:',
' perl sandbox/genMETA.pl -c',
Modified: trunk/libspreadsheet-read-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/README?rev=25492&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/README (original)
+++ trunk/libspreadsheet-read-perl/README Sun Sep 21 18:02:35 2008
@@ -2,7 +2,7 @@
Spreadsheet::Read - Meta-Wrapper for reading spreadsheet data
-=head1 SYNOPSYS
+=head1 SYNOPSIS
use Spreadsheet::Read;
my $ref = ReadData ("file.xls");
@@ -13,7 +13,7 @@
and Spreadheet::ReadSXC to give the end-user a single point of view to
various types of spreadsheets and deal with these in a transparent way.
-See for more thorrough documentation the pod in the module, or
+See for more thorough documentation the pod in the module, or
$ man Spreadsheet::Read
@@ -31,6 +31,9 @@
the parsing of the default format regarding UTF-8.
This module requires perl-5.6.x or newer.
+
+Recent changes can be (re)viewed in the public GIT repository at
+http://repo.or.cz/w/Spreadsheet-Read.git
=head1 TODO
Modified: trunk/libspreadsheet-read-perl/Read.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/Read.pm?rev=25492&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/Read.pm (original)
+++ trunk/libspreadsheet-read-perl/Read.pm Sun Sep 21 18:02:35 2008
@@ -21,7 +21,7 @@
use strict;
use warnings;
-our $VERSION = "0.27";
+our $VERSION = "0.28";
sub Version { $VERSION }
use Carp;
@@ -225,7 +225,7 @@
);
$_ = <$in>;
my $quo = defined $opt{quote} ? $opt{quote} : '"';
- my $sep = # If explicitely set, use it
+ my $sep = # If explicitly set, use it
defined $opt{sep} ? $opt{sep} :
# otherwise start auto-detect with quoted strings
m/["0-9];["0-9;]/ ? ";" :
@@ -368,20 +368,21 @@
type => lc $oWkC->{Type},
enc => $oWkC->{Code},
- merged => $oWkC->{Merged} || 0,
- hidden => $FmT->{Hidden},
- locked => $FmT->{Lock},
+ merged => $oWkC->{Merged} || 0,
+ hidden => $FmT->{Hidden},
+ locked => $FmT->{Lock},
format => $fmt,
halign => [ undef, qw( left center right
- fill justify ), undef,
- "equal_space" ]->[$FmT->{AlignH}],
+ fill justify ), undef,
+ "equal_space" ]->[$FmT->{AlignH}],
valign => [ qw( top center bottom justify
- equal_space )]->[$FmT->{AlignV}],
+ equal_space )]->[$FmT->{AlignV}],
wrap => $FmT->{Wrap},
font => $FnT->{Name},
- bold => $FnT->{Bold},
- italic => $FnT->{Italic},
- uline => $FnT->{Underline},
+ size => $FnT->{Height},
+ bold => $FnT->{Bold},
+ italic => $FnT->{Italic},
+ uline => $FnT->{Underline},
fgcolor => _xls_color ($FnT->{Color}),
bgcolor => _xls_color (@{$FmT->{Fill}}),
};
@@ -538,7 +539,7 @@
For Excel this module uses Spreadsheet::ParseExcel
For CSV this module uses Text::CSV_XS (0.29 or up prefered) or
-Text_PP (1.05 or up required).
+Text::CSV_PP (1.05 or up required).
For SquirrelCalc there is a very simplistic built-in parser
@@ -651,6 +652,12 @@
date format. The default format in Excel is 'm-d-yy', which is both
not year 2000 safe, nor very useful. The default is now 'yyyy-mm-dd',
which is more ISO-like.
+
+Note that date formatting in M$Excel is not reliable at all, as it will
+store/replace/change the date field separator in already stored formats
+if you change your locale settings. So the above mentioned default can
+be either "m-d-yy" OR "m/d/yy" depending on what that specific character
+happened to be at the time the user saved the file.
=item debug
@@ -812,37 +819,41 @@
=item Text::CSV_XS, Text::CSV_PP
-http://search.cpan.org/~hmbrand/
-
-A pure perl version is available on http://search.cpan.org/~makamaka/
+http://search.cpan.org/dist/Text-CSV_XS ,
+http://search.cpan.org/dist/Text-CSV_PP , and
+http://search.cpan.org/dist/Text-CSV .
+
+Text::CSV is a wrapper over Text::CSV_XS (the fast XS version) and/or
+Text::CSV_PP (the pure perl version)
=item Spreadsheet::ParseExcel
-http://search.cpan.org/~kwitknr/
+http://search.cpan.org/dist/Spreadsheet-ParseExcel
=item Spreadsheet::ReadSXC
-http://search.cpan.org/~terhechte/
+http://search.cpan.org/dist/Spreadsheet-ReadSXC
=item Spreadsheet::BasicRead
-http://search.cpan.org/~gng/ for xlscat likewise functionality (Excel only)
+http://search.cpan.org/dist/Spreadsheet-BasicRead
+for xlscat likewise functionality (Excel only)
=item Spreadsheet::ConvertAA
-http://search.cpan.org/~nkh/ for an alternative set of cell2cr () /
-cr2cell () pair
+http://search.cpan.org/dist/Spreadsheet-ConvertAA
+for an alternative set of cell2cr () / cr2cell () pair
=item Spreadsheet::Perl
-http://search.cpan.org/~nkh/ offers a Pure Perl implementation of a
-spreadsheet engine. Users that want this format to be supported in
-Spreadsheet::Read are hereby motivated to offer patches. It's not high
-on my todo-list.
+http://search.cpan.org/dist/Spreadsheet-Perl
+offers a Pure Perl implementation of a spreadsheet engine. Users that want
+this format to be supported in Spreadsheet::Read are hereby motivated to
+offer patches. It's not high on my todo-list.
=item xls2csv
-http://search.cpan.org/~ken/ offers an alternative for my C<xlscat -c>,
+http://search.cpan.org/dist/xls2csv offers an alternative for my C<xlscat -c>,
in the xls2csv tool, but this tool focusses on character encoding
transparency, and requires some other modules.
Modified: trunk/libspreadsheet-read-perl/t/34_dates.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/t/34_dates.t?rev=25492&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/t/34_dates.t (original)
+++ trunk/libspreadsheet-read-perl/t/34_dates.t Sun Sep 21 18:02:35 2008
@@ -54,3 +54,15 @@
is ($ss->{E2}, "12 Aug 2008", "Cell content E2");
is ($ss->{E3}, "08 Dec 2008", "Cell content E3");
is ($ss->{E4}, "13 Aug 2008", "Cell content E4");
+
+# Below can only be checked when SS::PE 0.34 is out
+#use DDumper;
+#foreach my $r (1..4,6..7) {
+# foreach my $c (1..5) {
+# my $cell = cr2cell ($c, $r);
+# my $fmt = $ss->{attr}[$c][$r]{format};
+# defined $ss->{$cell} or next;
+# printf STDERR "# attr %s: %-22s %s\n",
+# $cell, $ss->{$cell}, defined $fmt ? "'$fmt'" : "<undef>";
+# }
+# }
More information about the Pkg-perl-cvs-commits
mailing list