[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm, 1.196, 1.197 Po.pm,
1.72, 1.73 TransTractor.pm, 1.90, 1.91"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Sat Mar 24 13:04:46 CET 2007
- Previous message: [Po4a-commits] "po4a/extension/lib/Locale/Po4a Man.xs, NONE,
1.1 Po.h, NONE, 1.1 Po.xs, NONE, 1.1 TransTractor.xs, NONE,
1.1 hash.h, NONE, 1.1 message.h, NONE, 1.1 pos.h, NONE,
1.1 str-list.h, NONE, 1.1"
- Next message: [Po4a-commits] "po4a NEWS, 1.16, 1.17 changelog, 1.177, 1.178 po4a,
1.67, 1.68"
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv14975/lib/Locale/Po4a
Modified Files:
Man.pm Po.pm TransTractor.pm
Log Message:
New C extension. Not built or distributed by default.
Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.196
retrieving revision 1.197
diff -u -d -r1.196 -r1.197
--- Man.pm 16 Feb 2007 10:42:58 -0000 1.196
+++ Man.pm 24 Mar 2007 12:04:44 -0000 1.197
@@ -351,6 +351,7 @@
=cut
package Locale::Po4a::Man;
+use DynaLoader;
use 5.006;
use strict;
@@ -358,8 +359,12 @@
require Exporter;
use vars qw(@ISA @EXPORT);
- at ISA = qw(Locale::Po4a::TransTractor);
+ at ISA = qw(Locale::Po4a::TransTractor DynaLoader);
@EXPORT = qw();# new initialize);
+
+# Try to use a C extension if present.
+eval('bootstrap Locale::Po4a::Man "0.30"');
+
use Locale::Po4a::TransTractor;
use Locale::Po4a::Common;
Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -d -r1.72 -r1.73
--- Po.pm 16 Feb 2007 19:13:00 -0000 1.72
+++ Po.pm 24 Mar 2007 12:04:44 -0000 1.73
@@ -66,13 +66,18 @@
require Exporter;
package Locale::Po4a::Po;
+use DynaLoader;
use Locale::Po4a::Common qw(wrap_msg wrap_mod wrap_ref_mod dgettext);
use subs qw(makespace);
use vars qw(@ISA @EXPORT_OK);
- at ISA = (Exporter);
- at EXPORT_OK = qw(move_po_if_needed);
+ at ISA = qw(Exporter DynaLoader);
+ at EXPORT = qw(%debug);
+ at EXPORT_OK = qw(&move_po_if_needed);
+
+# Try to use a C extension if present.
+eval("bootstrap Locale::Po4a::Po '$VERSION'");
use 5.006;
use strict;
@@ -87,7 +92,7 @@
my @known_flags=qw(wrap no-wrap c-format fuzzy);
-my %debug=('canonize' => 0,
+our %debug=('canonize' => 0,
'quote' => 0,
'escape' => 0,
'encoding' => 0,
@@ -185,7 +190,7 @@
=cut
-sub read{
+sub read {
my $self=shift;
my $filename=shift
|| croak wrap_mod("po4a::po", dgettext("po4a", "Please provide a non-null filename"));
Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -d -r1.90 -r1.91
--- TransTractor.pm 16 Feb 2007 19:13:00 -0000 1.90
+++ TransTractor.pm 24 Mar 2007 12:04:44 -0000 1.91
@@ -3,6 +3,7 @@
require Exporter;
package Locale::Po4a::TransTractor;
+use DynaLoader;
use 5.006;
use strict;
@@ -11,11 +12,14 @@
use subs qw(makespace);
use vars qw($VERSION @ISA @EXPORT);
$VERSION="0.30";
- at ISA = ();
+ at ISA = qw(DynaLoader);
@EXPORT = qw(new process translate
read write readpo writepo
getpoout setpoout);
+# Try to use a C extension if present.
+eval("bootstrap Locale::Po4a::TransTractor $VERSION");
+
use Carp qw(croak);
use Locale::Po4a::Po;
use Locale::Po4a::Common;
- Previous message: [Po4a-commits] "po4a/extension/lib/Locale/Po4a Man.xs, NONE,
1.1 Po.h, NONE, 1.1 Po.xs, NONE, 1.1 TransTractor.xs, NONE,
1.1 hash.h, NONE, 1.1 message.h, NONE, 1.1 pos.h, NONE,
1.1 str-list.h, NONE, 1.1"
- Next message: [Po4a-commits] "po4a NEWS, 1.16, 1.17 changelog, 1.177, 1.178 po4a,
1.67, 1.68"
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Po4a-commits
mailing list