diff options
| author | Leandro Pereira <leandro@linuxmag.com.br> | 2004-06-14 21:33:25 -0300 |
|---|---|---|
| committer | Simon Quigley <tsimonq2@ubuntu.com> | 2017-06-19 14:38:31 -0500 |
| commit | 7d65a12d6431f72e601ea1d0c3ef5d09af8bfb96 (patch) | |
| tree | 7ad1761adce3212a13e5342a54865e31b917f18b /genintl.pl | |
| parent | 0864b0a8e6f0b0983c3536931cfbad1414137d6b (diff) | |
| parent | 8c1612d32c5682a86216adb8c8d11ce715fe5475 (diff) | |
Import Debian changes 0.3.6-5
hardinfo (0.3.6-5) unstable; urgency=high
* Add Amd64 support (closes: #253935).
Thanks to Kurt Roeckx <Q@ping.be>
* Close duplicate "doesn't work with newer pciutils" bug (closes: #254018).
hardinfo (0.3.6-4) unstable; urgency=high
* Fixed segfault on startup (closes: #242843).
Thanks to Remco van de Meent <remco@debian.org>
hardinfo (0.3.6-3) unstable; urgency=high
* Added Debian menu entry icon.
* Fixed some misc packaging bugs.
* Changed package description.
hardinfo (0.3.6-2) unstable; urgency=low
* Sync with upstream sources.
* Disabled "Network" tab.
hardinfo (0.3.6-1) unstable; urgency=high
* Sync with upstream sources.
hardinfo (0.3.5-1) unstable; urgency=high
* Sync with upstream sources.
hardinfo (0.3.4-1) unstable; urgency=high
* Sync with upstream sources.
hardinfo (0.3.3-1) unstable; urgency=low
* Sync with upstream sources.
hardinfo (0.3.2-1) unstable; urgency=low
* Sync with upstream sources.
hardinfo (0.3.1-1) unstable; urgency=low
* Sync with upstream sources.
hardinfo (0.3-1) unstable; urgency=low
* Initial Release.
Diffstat (limited to 'genintl.pl')
| -rwxr-xr-x | genintl.pl | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/genintl.pl b/genintl.pl new file mode 100755 index 00000000..0e19846c --- /dev/null +++ b/genintl.pl @@ -0,0 +1,80 @@ +#!/usr/bin/perl +# +# Script para gerar arquivo de internacionalização +# Versão 1.0 +# +# Copyright (c) 2002-2003 Leandro Pereira <leandro@linuxmag.com.br> +# Copyright (c) 2003 RadSys Software Ltda. +# Todos os direitos reservados. +# +# É permitida a distribuição e modificação deste, desde que os créditos +# estejam presentes e que exista uma notificação sobre as modificações +# feitas. +# Não há restrição 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"; |