From 226bc14e18ffe6c106d28680ea935cad227a9e05 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 15 Dec 2005 08:48:51 +0000
Subject: use Locale::gettext for dgettext, bindtextdomain and
 bind_textdomain_codeset instead of module c (that way we can also use
 dngettext, and it's more modular)

---
 perl-install/c/stuff.xs.pl   | 17 -----------------
 perl-install/common.pm       |  3 ++-
 perl-install/drakxtools.spec |  1 +
 perl-install/lang.pm         |  6 +++---
 perl-install/mygtk2.pm       |  2 +-
 perl-install/share/list.xml  |  2 ++
 perl-install/standalone.pm   |  2 +-
 7 files changed, 10 insertions(+), 23 deletions(-)

diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index b3be00b31..59c842993 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -128,11 +128,6 @@ pcmcia_probe()
 ';
 
 print '
-char *
-dgettext(domainname, msgid)
-   char * domainname
-   char * msgid
-
 int
 del_partition(hd, part_number)
   int hd
@@ -187,18 +182,6 @@ setlocale(category, locale = 0)
     int     category
     char *      locale
 
-
-
-char *
-bindtextdomain(domainname, dirname)
-   char * domainname
-   char * dirname
-
-char *
-bind_textdomain_codeset(domainname, codeset)
-   char * domainname
-   char * codeset
-
 int
 lseek_sector(fd, sector, offset)
   int fd
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 36628d900..fedf68926 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -1,6 +1,7 @@
 package common; # $Id$
 
 use MDK::Common;
+use Locale::gettext();
 use diagnostics;
 use strict;
 
@@ -59,7 +60,7 @@ sub translate_real {
     my ($s) = @_;
     $s or return '';
     foreach (@::textdomains, 'libDrakX') {
-	my $s2 = c::dgettext($_, $s);
+	my $s2 = Locale::gettext::dgettext($_, $s);
 	return $s2 if $s ne $s2;
     }
     $s;
diff --git a/perl-install/drakxtools.spec b/perl-install/drakxtools.spec
index 2277a9c99..e3546567e 100644
--- a/perl-install/drakxtools.spec
+++ b/perl-install/drakxtools.spec
@@ -27,6 +27,7 @@ Obsoletes: draksec
 Summary: The drakxtools (XFdrake, diskdrake, keyboarddrake, mousedrake...)
 Group: System/Configuration/Other
 Requires: perl-base >= 2:5.8.6-1mdk, urpmi >= 4.6.13, usermode-consoleonly >= 1.44-4mdk, msec >= 0.38-5mdk
+Requires: perl-Locale-gettext
 Requires: module-init-tools
 Requires: %{name}-backend = %version-%release
 Requires: monitor-edid >= 1.5
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index fa7090213..e4e6df54d 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -956,7 +956,7 @@ sub langsLANGUAGE {
 
 sub utf8_should_be_needed {
     my ($locale) = @_; 
-    my @l = uniq(grep { $_ ne 'C' } map { l2charset($_) } $locale->{lang}, langs($locale->{langs}));
+    my @l = uniq(grep { $_ ne 'C' } map { l2charset($_) } langs($locale->{langs}));
     @l > 1 || any { /utf|unicode/ } @l;
 }
 
@@ -1253,9 +1253,9 @@ sub bindtextdomain() {
     my $localedir = "$ENV{SHARE_PATH}/locale" . ($::prefix ? "_special" : '');
 
     c::init_setlocale();
-    c::bind_textdomain_codeset('libDrakX', 'UTF-8');
     $::need_utf8_i18n = 1;
-    c::bindtextdomain('libDrakX', $localedir);
+    Locale::gettext::bind_textdomain_codeset('libDrakX', 'UTF-8');
+    Locale::gettext::bindtextdomain('libDrakX', $localedir);
 
     $localedir;
 }
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 07992705c..18142326d 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -18,7 +18,7 @@ unless ($::no_ugtk_init) {
     $::one_message_has_been_translated and warn("N() was called from $::one_message_has_been_translated BEFORE gtk2 initialisation, replace it with a N_() AND a translate() later.\n"), c::_exit(1);
 
     Gtk2->init;
-    c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
+    Locale::gettext::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
     $::need_utf8_i18n = 1;
 }
 Gtk2->croak_execeptions if (!$::no_ugtk_init || $::isInstall) && 0.95 < $Gtk2::VERSION;
diff --git a/perl-install/share/list.xml b/perl-install/share/list.xml
index 516003d86..4082618e6 100644
--- a/perl-install/share/list.xml
+++ b/perl-install/share/list.xml
@@ -289,6 +289,8 @@
   MDV/Packdrakeng.pm
   MDK/Common
   MDK/Common.pm
+  ARCH-linux/Locale/gettext.pm
+  ARCH-linux/auto/Locale/gettext/gettext.so
   ARCH-linux/URPM.pm
   ARCH-linux/URPM/Build.pm
   ARCH-linux/URPM/Resolve.pm
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 02ee34bdb..320b336e1 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -16,7 +16,7 @@ $::isStandalone = 1;
 $ENV{SHARE_PATH} ||= "/usr/share";
 
 c::init_setlocale();
-c::bindtextdomain('libDrakX', "/usr/share/locale");
+Locale::gettext::bindtextdomain('libDrakX', "/usr/share/locale");
 
 $::license = N_("This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
-- 
cgit v1.2.1