From 18e9ef9755bead1645e50cf276c67d42395f8a6d Mon Sep 17 00:00:00 2001 From: Christian Rose Date: Thu, 13 Jun 2002 16:15:52 +0000 Subject: [PATCH] Removed. These are obsoleted by intltool. 2002-06-13 Christian Rose * desk.pl, update.pl, update.sh, README.tools: Removed. These are obsoleted by intltool. --- po/ChangeLog | 5 ++ po/README.tools | 58 ---------------- po/desk.pl | 118 --------------------------------- po/update.pl | 172 ------------------------------------------------ po/update.sh | 96 --------------------------- 5 files changed, 5 insertions(+), 444 deletions(-) delete mode 100644 po/README.tools delete mode 100755 po/desk.pl delete mode 100755 po/update.pl delete mode 100755 po/update.sh diff --git a/po/ChangeLog b/po/ChangeLog index be35a0c14..291ae751e 100644 --- a/po/ChangeLog +++ b/po/ChangeLog @@ -1,3 +1,8 @@ +2002-06-13 Christian Rose + + * desk.pl, update.pl, update.sh, README.tools: Removed. These are + obsoleted by intltool. + 2002-06-10 Naba Kumar * hi.po: Added new hindi translation. diff --git a/po/README.tools b/po/README.tools deleted file mode 100644 index 4ec99c164..000000000 --- a/po/README.tools +++ /dev/null @@ -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. diff --git a/po/desk.pl b/po/desk.pl deleted file mode 100755 index 08a2a18a5..000000000 --- a/po/desk.pl +++ /dev/null @@ -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 , 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 .\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 = ; - foreach my $file (@buf1){ - open FILE, "<$file"; - while () { - if ($_=~/$SEARCH\[$LANG\]\=/o){ - $file = unpack("x2 A*",$file) . "\n"; - push @buff1, $file; - last; - } - } - } - - @buf2 = ; - foreach my $file (@buf2){ - open FILE, "<$file"; - while () { - 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; -} - - diff --git a/po/update.pl b/po/update.pl deleted file mode 100755 index e044a3012..000000000 --- a/po/update.pl +++ /dev/null @@ -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 , 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 .\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 = ; - @buf1 = ; - - if (-s "POTFILES.ignore"){ - open FILE, "POTFILES.ignore"; - while () { - if ($_=~/^[^#]/o){ - push @bup, $_; - } - } - print "POTFILES.ignore found! Ignoring files...\n"; - @buf2 = (@bup, @buf2); - } - - foreach my $file (@buf1){ - open FILE, "<$file"; - while () { - 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; -} diff --git a/po/update.sh b/po/update.sh deleted file mode 100755 index dfbca6402..000000000 --- a/po/update.sh +++ /dev/null @@ -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; -- 2.43.2