Commit c1bb9112 authored by Christian Meyer's avatar Christian Meyer
Browse files

Added and from kanikus.

parent cdbbaf73
2000-09-13 Christian Meyer <>
* Added perl script from kanikus.
* Added text file.
2000-09-10 Shirasaki Yasuhiro <>
* ja.po: updated japanese translation.
The po/ directory includes two perlscripts, which is done to help
making the translations fully uptodate.
The first script is called and is supposed to be run like this:
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
./ da
The 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
Especially the --maintain option is very handy for package maintainer, to check
if you included all the files that have marked strings in the, 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 file to make sure that the files you add to are being
build, otherwise this can leed to "make dist" throuble.
The other utility is the script, which will check the cvs module for
missing translation in files like *.desktop, *.directory, *.soundlist and so on.
Run the script like this:
An example use could be.
./ da
which will check all the files for missing Name[da] entries, or
./ 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
Both scripts are copyright 2000 The Free Software Foundation and me.
#!/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 = "gimp";
if (! $LANG){
print " missing file arguments\n";
print "Try ` --help' for more information.\n";
if ($LANG=~/^-(.)*/){
if ("$LANG" eq "--version" || "$LANG" eq "-V"){
print "GNOME PO Updater $VERSION\n";
print "Written by Kenneth Christiansen <kenneth\>, 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";
elsif ($LANG eq "--help" || "$LANG" eq "-H"){
print "Usage: ./ [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\n";
print "\nExamples of use:\n";
print " --pot just creates a new pot file from the source\n";
print " da created new pot file and updated the da.po file\n\n";
print "Report bugs to <kenneth\>.\n";
elsif($LANG eq "--pot" || "$LANG" eq "-P"){
print "Building the $PACKAGE.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 \.\/$PACKAGE\.pot \)";
print "...done\n";
elsif ($LANG eq "--maintain" || "$LANG" eq "-M"){
$a="find ../ -print | egrep '.*\\.(c|y|cc|c++|h|gob)' ";
open(BUF2, "") || die " there's not!!!\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;
@bufff1 = sort (@buff1);
@bufff2 = sort (@buf2);
my %in2;
foreach (@bufff2) {
$in2{$_} = 1;
foreach (@bufff1){
if (!exists($in2{$_})){
push @result, $_ }
open OUT, ">";
print OUT @result;
print "\nHere are the results:\n\n", @result, "\n";
print "File is being placed in directory...\n";
print "Please add the files that should be ignored in POTFILES.ignore\n";
print "\nWell, it's all perfect! Congratulation!\n";
print " invalid option -- $LANG\n";
print "Try ` --help' for more information.\n";
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 \)";
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";
unlink "messages";
unlink "$LANG.po.old";
print " sorry $LANG.po does not exist!\n";
print "Try ` --help' for more information.\n";
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment