shift_all.pl « tools - drakx - Mageia Installer and base platform for many utilities

blob: 88abfa0e1ae40a17fec70f08f4c697ded8dc7910 (plain)
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
Diffstat (limited to 'perl-install/c/stuff.xs.pm')
-rw-r--r-- perl-install/c/stuff.xs.pm 4 
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index 2f4d4efe6..93a9e8ab3 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -106,6 +106,10 @@ lseek_sector(fd, sector, offset)
 void
 setsid()
 
+void
+_exit(status)
+  int status
+  
 int
 detectSMP()
 
 
generated by cgit v1.2.1 (git 2.21.0) at 2024-07-11 01:08:49 +0000
 


span>,
'da' => 2,
'de' => 2,
'el' => 2,
'en_GB' => 2,
'en_US' => 2,
'eo' => 2,
'es' => 2,
'et' => 2,
'eu' => 2,
'fa' => 0,
'fi' => 1,
'fo' => 2,
'fr' => 2,
'ga' => 2,
'gd' => 2,
'gl' => 2,
'gv' => 2,
'he' => 0,
'hi' => 1,
'hr' => 2,
'hu' => 2,
'hy' => 1,
'ia' => 2,
'id' => 1,
'is' => 1,
'it' => 1,
'iu' => 1,
'ja' => 3,
'ka' => 1,
'kn' => 1,
'ko' => 1,
'kw' => 0,
'lo' => 0,
'lt' => 0,
'lv' => 0,
'mi' => 0,
'mk' => 0,
'mn' => 0,
'mr' => 0,
'ms' => 0,
'mt' => 0,
'nb' => 0,
'nl' => 0,
'nn' => 0,
'no' => 0,
'oc' => 0,
'pl' => 0,
'pt_BR' => 0,
'pt' => 0,
'ro' => 0,
'ru' => 0,
'sk' => 0,
'sl' => 0,
'sp' => 0,
'sq' => 0,
'sr' => 0,
'sv' => 0,
'ta' => 1,
'te' => 1,
'tg' => 0,
'th' => 0,
'tr' => 0,
'tt' => 1,
'uk' => 0,
'ur' => 1,
'uz' => 0,
'vi' => 0,
'wa' => 0,
'yi' => 0,
'zh_CN' => 0,
'zh_TW' => 0,
);

foreach (glob("lang*.png")) {
    /lang-(.*)\.png/;
    exists $shifts{$1} or die "doesn't exist for $_";
    $shifts{$1} or next;
    print "./a.out $_ l.png $shifts{$1}\n";
    system("./a.out $_ l.png $shifts{$1}");
    renamef('l.png', $_);
}