Subject: Translation Summary Script (dumpstrings.pl) Patch
From: Owen Stenseth (owen@pdaverticals.com)
Date: Wed May 03 2000 - 12:22:18 CDT
Hello,
Here is a quick patch to the dumpstrings.pl script (the one that
generates the translation summary table) so that it will check all
strings instead of just DLG_ strings. Paul Rohr was originally taking
care of patching the cvs copy for me but I thought I would post it here
so that
it does not get lost.
At some point I will rewrite the script to generate a language by
language summary but until then this should be complete enough.
Enjoy,
Owen
P.S. My last attempt to send this bounced because my email changed
again.
Index: dumpstrings.pl
===================================================================
RCS file: /cvsroot/abi/dumpstrings.pl,v
retrieving revision 1.4
diff -p -r1.4 dumpstrings.pl
*** dumpstrings.pl 2000/03/10 17:52:42 1.4
--- dumpstrings.pl 2000/05/02 22:55:31
*************** foreach my $file (qw(./src/wp/ap/xp/ap_S
*** 21,27 ****
or die "Cannot open $file";
while (<STRINGS>) {
! next unless /(DLG_.*)\s*,\s*\"(.*)\"/;
my ($dlg,$string) = ($1,$2);
$string =~ s/&/&/;
$dlgs{$dlg}{$lang} = $string;
--- 21,27 ----
or die "Cannot open $file";
while (<STRINGS>) {
! next unless /dcl\((.*)\s*,\s*\"(.*)\"/;
my ($dlg,$string) = ($1,$2);
$string =~ s/&/&/;
$dlgs{$dlg}{$lang} = $string;
*************** closedir DIR;
*** 45,51 ****
$noamp{$lang} = 0;
while (<STRINGS>) {
! next unless /^(DLG_.*)=\"(.*)\"/;
my ($dlg,$string) = ($1,$2);
$string =~ s/&/&/;
$dlgs{$dlg}{$lang} = $string;
--- 45,51 ----
$noamp{$lang} = 0;
while (<STRINGS>) {
! next unless /^(\w*)=\"(.*)\"/;
my ($dlg,$string) = ($1,$2);
$string =~ s/&/&/;
$dlgs{$dlg}{$lang} = $string;
*************** print
*** 130,136 ****
), "\n";
print
! a({name=>"LongestSummary"}, h2('Longest Language Summary'));
my @td = ();
foreach my $dlg (sort { $longest{$a} cmp $longest{$b} } keys %dlgs) {
--- 130,136 ----
), "\n";
print
! a({name=>'LongestSummary'}, h2('Longest Language Summary : Sorted by Language'));
my @td = ();
foreach my $dlg (sort { $longest{$a} cmp $longest{$b} } keys %dlgs) {
This archive was generated by hypermail 2b25 : Wed May 03 2000 - 12:22:21 CDT