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
|
#!/usr/bin/perl
#
# Script para gerar arquivo de internacionalizao
# Verso 1.0
#
# Copyright (c) 2002-2003 Leandro Pereira <leandro@linuxmag.com.br>
# Copyright (c) 2003 RadSys Software Ltda.
# Todos os direitos reservados.
#
# permitida a distribuio e modificao deste, desde que os crditos
# estejam presentes e que exista uma notificao sobre as modificaes
# feitas.
# No h restrio de uso.
#
print "Generating `default.lang' catalog...\n";
@list=`find *.c`;
$maxsize=0;
foreach $i (0..$#list){
$maxsize=length($list[$i]) if(length($list[$i]) > $maxsize);
}
open(B, ">default.lang");
print B "[Translation]\n";
print B "translated-by=Unknown\n\n";
$messages=0;
foreach $k (0..$#list){
$line=0;
$thismsg=0;
$file=$list[$k];
chomp($file);
print B "[$file]\n";
print STDERR "Searching in `$file':";
print STDERR " " x ($maxsize - length($file) + 2);
open(A, $file);
while(<A>){
$line++;
if(/_\(/){
chomp;
$_=~s/\t//g;
$_=~s/_ \(/_\(/g;
for($i=0; $i<=length($_); $i++){
if(substr($_, $i, 1) eq "_" &&
substr($_, $i+1, 1) eq "\("){
for($j=$i+3; substr($_, $j, 1) ne "\""; $j++){
print B substr($_, $j, 1);
}
print B "=";
for($j=$i+3; substr($_, $j, 1) ne "\""; $j++){
print B substr($_, $j, 1);
}
print B "\n";
$messages++;
$thismsg++;
}
}
}
}
close(A);
print B "\n";
if($thismsg){
printf "%02d messages", $thismsg;
}else{
print "Nothing";
}
print " found.\n";
}
close(B);
print "$messages messages saved in `default.lang'\n";
|
