1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
package Common; # $Id: common.pm,v 1.3 2005/02/06 21:21:44 baud123 Exp $
#use MDK::Common;
#use MDK::Common::System;
#use run_program;
use Exporter;
@ISA = qw(Exporter);
# no need to export ``_''
#@EXPORT = qw($SECTORSIZE N N_ check_for_xserver files_exist formatTime formatXiB makedev mandrake_release removeXiBSuffix require_root_capability salt setVirtual set_alternative set_permissions translate unmakedev untranslate);
@EXPORT = qw(N N_ translate);
# perl_checker: RE-EXPORT-ALL
#push @EXPORT, @MDK::Common::EXPORT;
#push @EXPORT;
$::prefix ||= ""; # no warning
#-#####################################################################################
#- Functions
#-#####################################################################################
sub sprintf_fixutf8 {
#my $need_upgrade;
#$need_upgrade |= to_bool(c::is_tagged_utf8($_)) + 1 foreach @_;
#if ($need_upgrade == 3) { c::upgrade_utf8($_) foreach @_ }
sprintf shift, @_;
}
sub N {
$::one_message_has_been_translated ||= join(':', (caller(0))[1,2]); #- see ugtk2.pm
my $s = shift @_; my $t = translate($s);
sprintf_fixutf8 $t, @_;
}
sub N_ { $_[0] }
sub translate_real {
my ($s) = @_;
#$s or return '';
#foreach (@::textdomains, 'libDrakX') {
# my $s2 = c::dgettext($_, $s);
# return $s2 if $s ne $s2;
#}
$s;
}
sub translate {
my $s = translate_real(@_);
$::need_utf8_i18n and c::set_tagged_utf8($s);
#- translation with context, kde-like
$s =~ s/^_:.*\n//;
$s;
}
sub untranslate {
my $s = shift || return;
foreach (@_) { translate($_) eq $s and return $_ }
die "untranslate failed";
}
1;
|
