From d5404ffe578668a72154e513ffae33758437d77a Mon Sep 17 00:00:00 2001 From: Kenneth Christiansen Date: Mon, 5 Jun 2000 20:04:27 +0000 Subject: Added readme file, which explains the use of the newly checked in po MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 2000-06-05 Kenneth Christiansen * README.tools: Added readme file, which explains the use of the newly checked in po tools. hmm, looking forward to tomorrow...viva los compleaños! :) svn path=/trunk/; revision=3428 --- po/update.pl | 166 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 166 insertions(+) create mode 100755 po/update.pl (limited to 'po/update.pl') diff --git a/po/update.pl b/po/update.pl new file mode 100755 index 0000000000..93bc46d42f --- /dev/null +++ b/po/update.pl @@ -0,0 +1,166 @@ +#!/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 = "nautilus"; + +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"){ + + 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 \)"; + + `$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; +} -- cgit v1.2.3