forked from AuroraMiddleware/gtk
Removed. These are obsoleted by intltool.
2002-06-13 Christian Rose <menthos@menthos.com> * desk.pl, update.pl, update.sh, README.tools: Removed. These are obsoleted by intltool.
This commit is contained in:
Christian Rose
Christian Rose
parent
7cf409d8c8
commit
18e9ef9755
@ -1,3 +1,8 @@
|
||||
2002-06-13 Christian Rose <menthos@menthos.com>
|
||||
|
||||
* desk.pl, update.pl, update.sh, README.tools: Removed. These are
|
||||
obsoleted by intltool.
|
||||
|
||||
2002-06-10 Naba Kumar <kh_naba@users.sourceforge.net>
|
||||
|
||||
* hi.po: Added new hindi translation.
|
||||
|
||||
@ -1,58 +0,0 @@
|
||||
The po/ directory includes two perlscripts, which is done to help
|
||||
making the translations fully uptodate.
|
||||
|
||||
The first script is called update.pl and is supposed to be run like this:
|
||||
|
||||
./update.pl [OPTIONS] ...LANGCODE
|
||||
|
||||
This will updates the pot file (the po template, generated from the source code)
|
||||
and merge them with the translations po files.
|
||||
|
||||
For instance to do this for Danish, type the following
|
||||
|
||||
./update.pl da
|
||||
|
||||
|
||||
The update.pl script also supports other options, they are:
|
||||
|
||||
-V, --version shows the version
|
||||
-H, --help shows this help page
|
||||
-P, --pot only generates the potfile
|
||||
-M, --maintain search for missing files in POTFILES.in
|
||||
|
||||
Especially the --maintain option is very handy for package maintainer, to check
|
||||
if you included all the files that have marked strings in the POTFILES.in, so
|
||||
they will be in the generated po template, the socalled pot file.
|
||||
|
||||
There is though one thing to take notice of with this option, please check the
|
||||
configure.in file to make sure that the files you add to POTFILES.in are being
|
||||
build, otherwise this can leed to "make dist" throuble.
|
||||
|
||||
|
||||
The other utility is the desk.pl script, which will check the cvs module for
|
||||
missing translation in files like *.desktop, *.directory, *.soundlist and so on.
|
||||
|
||||
Run the script like this:
|
||||
|
||||
./desk.pl [OPTIONS] ...LANGCODE ENTRY
|
||||
|
||||
An example use could be.
|
||||
|
||||
./desk.pl da
|
||||
|
||||
which will check all the files for missing Name[da] entries, or
|
||||
|
||||
./desk.pl no Comment
|
||||
|
||||
which will check all the files for missing Comment[no] entries. "Comment" can
|
||||
here be replaced with whatever you like
|
||||
|
||||
All scripts support the --help option for further help, though it's not very
|
||||
extensive for the moment.
|
||||
|
||||
Kenneth Christiansen
|
||||
|
||||
kenneth@gnu.org
|
||||
kenneth@gnome.org
|
||||
|
||||
Both scripts are copyright 2000 The Free Software Foundation and me.
|
||||
118
po/desk.pl
118
po/desk.pl
@ -1,118 +0,0 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
# GNOME entry finder utility.
|
||||
# (C) 2000 The Free Software Foundation
|
||||
#
|
||||
# Author(s): Kenneth Christiansen
|
||||
|
||||
|
||||
$VERSION = "1.0.0 beta 5";
|
||||
$LANG = $ARGV[0];
|
||||
$OPTION2 = $ARGV[1];
|
||||
$SEARCH = "Name";
|
||||
|
||||
if (! $LANG){
|
||||
print "desk.pl: missing file arguments\n";
|
||||
print "Try `desk.pl --help' for more information.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
if ($OPTION2){
|
||||
$SEARCH=$OPTION2;
|
||||
}
|
||||
|
||||
if ($LANG){
|
||||
|
||||
if ($LANG=~/^-(.)*/){
|
||||
|
||||
if ("$LANG" eq "--version" || "$LANG" eq "-V"){
|
||||
print "GNOME Entry finder $VERSION\n";
|
||||
print "Written by Kenneth Christiansen <kenneth\@gnome.org>, 2000.\n\n";
|
||||
print "Copyright (C) 2000 Free Software Foundation, Inc.\n";
|
||||
print "This is free software; see the source for copying conditions. There is NO\n";
|
||||
print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
elsif ($LANG eq "--help" || "$LANG" eq "-H"){
|
||||
print "Usage: ./desk.pl [OPTIONS] ...LANGCODE ENTRY\n";
|
||||
print "Checks .desktop and alike files for missing translations.\n\n";
|
||||
print " -V, --version shows the version\n";
|
||||
print " -H, --help shows this help page\n";
|
||||
print "\nReport bugs to <kenneth\@gnome.org>.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
else{
|
||||
print "desk.pl: invalid option -- $LANG\n";
|
||||
print "Try `desk.pl --help' for more information.\n";
|
||||
exit;
|
||||
}
|
||||
}
|
||||
|
||||
else{
|
||||
|
||||
$a="find ../ -print | egrep '.*\\.(desktop|soundlist"
|
||||
."|directory)' ";
|
||||
|
||||
$b="find ../ -print | egrep '.*\\.(desktop|soundlist"
|
||||
."|directory)' ";
|
||||
|
||||
print "Searching for missing $SEARCH\[$LANG\] entries...\n";
|
||||
|
||||
open(BUF1, "$a|");
|
||||
open(BUF2, "$b|");
|
||||
|
||||
@buf1 = <BUF1>;
|
||||
foreach my $file (@buf1){
|
||||
open FILE, "<$file";
|
||||
while (<FILE>) {
|
||||
if ($_=~/$SEARCH\[$LANG\]\=/o){
|
||||
$file = unpack("x2 A*",$file) . "\n";
|
||||
push @buff1, $file;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
@buf2 = <BUF2>;
|
||||
foreach my $file (@buf2){
|
||||
open FILE, "<$file";
|
||||
while (<FILE>) {
|
||||
if ($_=~/$SEARCH\=/o){
|
||||
$file = unpack("x2 A*",$file) . "\n";
|
||||
push @buff2, $file;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
@bufff1 = sort (@buff1);
|
||||
@bufff2 = sort (@buff2);
|
||||
|
||||
my %in2;
|
||||
foreach (@bufff1) {
|
||||
$in2{$_} = 1;
|
||||
}
|
||||
|
||||
foreach (@bufff2){
|
||||
if (!exists($in2{$_})){
|
||||
push @result, $_ }
|
||||
}
|
||||
}
|
||||
|
||||
open(OUT1, ">MISSING.$LANG.$SEARCH");
|
||||
print OUT1 @result ;
|
||||
close OUT1;
|
||||
|
||||
|
||||
stat("MISSING.$LANG.$SEARCH");
|
||||
print "\nWell, you need to fix these:\n\n" if -s _;
|
||||
print @result if -s _;
|
||||
print "\nThe list is saved in MISSING.$LANG.$SEARCH\n" if -s _;
|
||||
print "\nWell, it's all perfect! Congratulation!\n" if -z _;
|
||||
unlink "MISSING.$LANG.$SEARCH" if -z _;
|
||||
exit;
|
||||
}
|
||||
|
||||
|
||||
172
po/update.pl
172
po/update.pl
@ -1,172 +0,0 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
# GNOME po update utility.
|
||||
# (C) 2000 The Free Software Foundation
|
||||
#
|
||||
# Author(s): Kenneth Christiansen
|
||||
|
||||
|
||||
$VERSION = "1.2.5 beta 2";
|
||||
$LANG = $ARGV[0];
|
||||
$PACKAGE = "gtk20";
|
||||
|
||||
if (! $LANG){
|
||||
print "update.pl: missing file arguments\n";
|
||||
print "Try `update.pl --help' for more information.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
if ($LANG=~/^-(.)*/){
|
||||
|
||||
if ("$LANG" eq "--version" || "$LANG" eq "-V"){
|
||||
print "GNOME PO Updater $VERSION\n";
|
||||
print "Written by Kenneth Christiansen <kenneth\@gnome.org>, 2000.\n\n";
|
||||
print "Copyright (C) 2000 Free Software Foundation, Inc.\n";
|
||||
print "This is free software; see the source for copying conditions. There is NO\n";
|
||||
print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
|
||||
elsif ($LANG eq "--help" || "$LANG" eq "-H"){
|
||||
print "Usage: ./update.pl [OPTIONS] ...LANGCODE\n";
|
||||
print "Updates pot files and merge them with the translations.\n\n";
|
||||
print " -V, --version shows the version\n";
|
||||
print " -H, --help shows this help page\n";
|
||||
print " -P, --pot only generates the potfile\n";
|
||||
print " -M, --maintain search for missing files in POTFILES.in\n";
|
||||
print "\nExamples of use:\n";
|
||||
print "update.sh --pot just creates a new pot file from the source\n";
|
||||
print "update.sh da created new pot file and updated the da.po file\n\n";
|
||||
print "Report bugs to <kenneth\@gnome.org>.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
elsif($LANG eq "--pot" || "$LANG" eq "-P"){
|
||||
|
||||
shift;
|
||||
$REALPACKAGE = shift;
|
||||
if (!$REALPACKAGE) {
|
||||
$REALPACKAGE = $PACKAGE;
|
||||
}
|
||||
|
||||
print "Building the $REALPACKAGE.pot ...";
|
||||
|
||||
$b="xgettext --default-domain\=$PACKAGE --directory\=\.\."
|
||||
." --add-comments --keyword\=\_ --keyword\=N\_"
|
||||
." --files-from\=\.\/POTFILES\.in ";
|
||||
$b1="test \! -f $PACKAGE\.po \|\| \( rm -f \.\/$PACKAGE\.pot "
|
||||
."&& mv $PACKAGE\.po \.\/$REALPACKAGE\.pot \)";
|
||||
|
||||
`$b`;
|
||||
`$b1`;
|
||||
|
||||
print "...done\n";
|
||||
|
||||
exit;
|
||||
}
|
||||
|
||||
elsif ($LANG eq "--maintain" || "$LANG" eq "-M"){
|
||||
|
||||
$a="find ../ -print | egrep '.*\\.(c|y|cc|c++|h|gob)' ";
|
||||
|
||||
open(BUF2, "POTFILES.in") || die "update.pl: there's not POTFILES.in!!!\n";
|
||||
print "Searching for missing _(\" \") entries...\n";
|
||||
open(BUF1, "$a|");
|
||||
|
||||
|
||||
@buf2 = <BUF2>;
|
||||
@buf1 = <BUF1>;
|
||||
|
||||
if (-s "POTFILES.ignore"){
|
||||
open FILE, "POTFILES.ignore";
|
||||
while (<FILE>) {
|
||||
if ($_=~/^[^#]/o){
|
||||
push @bup, $_;
|
||||
}
|
||||
}
|
||||
print "POTFILES.ignore found! Ignoring files...\n";
|
||||
@buf2 = (@bup, @buf2);
|
||||
}
|
||||
|
||||
foreach my $file (@buf1){
|
||||
open FILE, "<$file";
|
||||
while (<FILE>) {
|
||||
if ($_=~/_\(\"/o){
|
||||
$file = unpack("x3 A*",$file) . "\n";
|
||||
push @buff1, $file;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
@bufff1 = sort (@buff1);
|
||||
|
||||
@bufff2 = sort (@buf2);
|
||||
|
||||
my %in2;
|
||||
foreach (@bufff2) {
|
||||
$in2{$_} = 1;
|
||||
}
|
||||
|
||||
foreach (@bufff1){
|
||||
if (!exists($in2{$_})){
|
||||
push @result, $_ }
|
||||
}
|
||||
|
||||
if(@result){
|
||||
open OUT, ">POTFILES.in.missing";
|
||||
print OUT @result;
|
||||
print "\nHere are the results:\n\n", @result, "\n";
|
||||
print "File POTFILES.in.missing is being placed in directory...\n";
|
||||
print "Please add the files that should be ignored in POTFILES.ignore\n";
|
||||
}
|
||||
else{
|
||||
print "\nWell, it's all perfect! Congratulation!\n";
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
else{
|
||||
print "update.pl: invalid option -- $LANG\n";
|
||||
print "Try `update.pl --help' for more information.\n";
|
||||
}
|
||||
exit;
|
||||
}
|
||||
|
||||
elsif(-s "$LANG.po"){
|
||||
|
||||
print "Building the $PACKAGE.pot ...";
|
||||
|
||||
$c="xgettext --default-domain\=$PACKAGE --directory\=\.\."
|
||||
." --add-comments --keyword\=\_ --keyword\=N\_"
|
||||
." --files-from\=\.\/POTFILES\.in ";
|
||||
$c1="test \! -f $PACKAGE\.po \|\| \( rm -f \.\/$PACKAGE\.pot "
|
||||
."&& mv $PACKAGE\.po \.\/$PACKAGE\.pot \)";
|
||||
|
||||
`$c`;
|
||||
`$c1`;
|
||||
|
||||
print "...done";
|
||||
|
||||
print "\nNow merging $LANG.po with $PACKAGE.pot, and creating an updated $LANG.po ...\n";
|
||||
|
||||
|
||||
$d="mv $LANG.po $LANG.po.old && msgmerge $LANG.po.old $PACKAGE.pot -o $LANG.po";
|
||||
|
||||
$f="msgfmt --statistics $LANG.po";
|
||||
|
||||
`$d`;
|
||||
`$f`;
|
||||
|
||||
unlink "messages";
|
||||
unlink "$LANG.po.old";
|
||||
|
||||
exit;
|
||||
}
|
||||
|
||||
else{
|
||||
print "update.pl: sorry $LANG.po does not exist!\n";
|
||||
print "Try `update.pl --help' for more information.\n";
|
||||
exit;
|
||||
}
|
||||
96
po/update.sh
96
po/update.sh
@ -1,96 +0,0 @@
|
||||
#!/bin/sh
|
||||
|
||||
VERSION="1.2.5"
|
||||
PACKAGE="gtk20"
|
||||
|
||||
if [ "x$1" = "x--help" ]; then
|
||||
|
||||
echo Usage: ./update.sh langcode
|
||||
echo --help display this help and exit
|
||||
echo --missing search for missing files in POTFILES.in
|
||||
echo --version shows the version
|
||||
echo
|
||||
echo Examples of use:
|
||||
echo ./update.sh ----- just creates a new pot file from the source
|
||||
echo ./update.sh da -- created new pot file and updated the da.po file
|
||||
|
||||
elif [ "x$1" = "x--version" ]; then
|
||||
|
||||
echo "update.sh release $VERSION"
|
||||
|
||||
elif [ "x$1" = "x--missing" ]; then
|
||||
|
||||
echo "Searching for files containing _( ) but missing in POTFILES.in..."
|
||||
echo
|
||||
find ../ -print | egrep '.*\.(c|y|cc|c++|h|gob)' | xargs grep _\( | cut -d: -f1 | uniq | cut -d/ -f2- > POTFILES.in.missing
|
||||
wait
|
||||
|
||||
echo "Sorting data..."
|
||||
sort -d POTFILES.in -o POTFILES.in &&
|
||||
sort -d POTFILES.in.missing -o POTFILES.in.missing
|
||||
wait
|
||||
echo "Comparing data..."
|
||||
diff POTFILES.in POTFILES.in.missing -u0 | grep '^+' |grep -v '^+++'|grep -v '^@@' > POTFILES.in.missing
|
||||
wait
|
||||
|
||||
if [ -s POTFILES.ignore ]; then
|
||||
|
||||
sort -d POTFILES.ignore -o POTFILES.tmp
|
||||
echo "Evaluating ignored files..."
|
||||
wait
|
||||
diff POTFILES.tmp POTFILES.in.missing -u0 | grep '^+' |grep -v '^+++'|grep -v '^@@' > POTFILES.in.missing
|
||||
rm POTFILES.tmp
|
||||
|
||||
fi
|
||||
|
||||
if [ -s POTFILES.in.missing ]; then
|
||||
|
||||
echo && echo "Here are the results:"
|
||||
echo && cat POTFILES.in.missing
|
||||
echo && echo "File POTFILES.in.missing is being placed in directory..."
|
||||
echo "Please add the files that should be ignored in POTFILES.ignore"
|
||||
|
||||
else
|
||||
|
||||
echo &&echo "There are no missing files, thanks God!"
|
||||
rm POTFILES.in.missing
|
||||
|
||||
fi
|
||||
|
||||
elif [ "x$1" = "x" ]; then
|
||||
|
||||
echo "Building the $PACKAGE.pot ..."
|
||||
|
||||
xgettext --default-domain=$PACKAGE --directory=.. \
|
||||
--add-comments --keyword=_ --keyword=N_ \
|
||||
--files-from=./POTFILES.in \
|
||||
&& test ! -f $PACKAGE.po \
|
||||
|| ( rm -f ./$PACKAGE.pot \
|
||||
&& mv $PACKAGE.po ./$PACKAGE.pot );
|
||||
|
||||
else
|
||||
|
||||
if [ -s $1.po ]; then
|
||||
|
||||
xgettext --default-domain=$PACKAGE --directory=.. \
|
||||
--add-comments --keyword=_ --keyword=N_ \
|
||||
--files-from=./POTFILES.in \
|
||||
&& test ! -f $PACKAGE.po \
|
||||
|| ( rm -f ./PACKAGE.pot \
|
||||
&& mv $PACKAGE.po ./$PACKAGE.pot );
|
||||
|
||||
echo "Building the $PACKAGE.pot ..."
|
||||
echo "Now merging $1.po with $PACKAGE.pot, and creating an updated $1.po ..."
|
||||
|
||||
mv $1.po $1.po.old && msgmerge $1.po.old $PACKAGE.pot -o $1.po \
|
||||
&& rm $1.po.old;
|
||||
|
||||
msgfmt --statistics $1.po
|
||||
|
||||
else
|
||||
|
||||
echo Sorry $1.po does not exist!
|
||||
|
||||
fi;
|
||||
|
||||
fi;
|
||||
Loading…
Reference in New Issue
Block a user