From 534f2f4437093bd78411126ef45de41fc6b93bf3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 7 Jun 2007 18:54:11 +0000 Subject: reimport my latest checkout --- po/bin/add_text | 56 +++++++++++++++++++ po/bin/fixpot | 27 ++++++++++ po/bin/po2txt | 165 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ po/bin/rm_text | 63 ++++++++++++++++++++++ 4 files changed, 311 insertions(+) create mode 100755 po/bin/add_text create mode 100755 po/bin/fixpot create mode 100755 po/bin/po2txt create mode 100755 po/bin/rm_text (limited to 'po/bin') diff --git a/po/bin/add_text b/po/bin/add_text new file mode 100755 index 0000000..a725b46 --- /dev/null +++ b/po/bin/add_text @@ -0,0 +1,56 @@ +#! /usr/bin/perl + +# add a new text to *.po files + +die "usage: add_text [-c comment] id text_line1 text_line2 ... \nexample:\n add_text MENU_LANG Language\n" if @ARGV < 2; + +if($ARGV[0] eq '-c') { + shift; + $comment = shift; +} + +$id = shift; +@texts = @ARGV; + +$id =~ s/^txt_//; + +$_ = join '', @texts; + +push @l, "# $comment\n" if $comment; +push @l, "#. txt_$id\n"; +push @l, "#, c-format\n" if /%/; + +if(@texts == 1) { + push @l, "msgid \"$texts[0]\"\n" +} +else { + push @l, "msgid \"\"\n"; + for (@texts) { push @l, "\"$_\"\n" } +} + +push @l, "msgstr \"\"\n"; +push @l, "\n"; + +print @l; + +print STDERR "Should this entry be added to all *.po files? [Y/n]\n"; + +$_ = ; + +chomp; + +$_ = "\L$_"; + +exit unless $_ eq '' || $_ eq 'y'; + +print "ok\n"; + +for $f ("bootloader.pot", <*.po>) { + if(open F, "+<$f") { + @f = ; + print F "\n" if $f[-1] !~ /^\s*$/; + print F @l; + close F; + } +} + diff --git a/po/bin/fixpot b/po/bin/fixpot new file mode 100755 index 0000000..1ed9665 --- /dev/null +++ b/po/bin/fixpot @@ -0,0 +1,27 @@ +#! /usr/bin/perl + +while(<>) { + if(/^\s*#|^\s*$/) { $msg[$cnt]{comment} .= $_; next } + if(s/^\s*msgid\b\s*//) { $cnt++; $id = 1 } + if(s/^\s*msgstr\b\s*//) { $id = 2 } + if($id == 1) { $msg[$cnt - 1]{id} .= $_; next } + if($id == 2) { $msg[$cnt - 1]{str} .= $_; next } + + die "oops at line $.\n"; +} + +for (@msg) { + print $_->{comment}; + + next unless defined($_->{id}) && defined($_->{str}); + + if($_->{id} =~ /^\s*""\s*$/ || $_->{str} =~ /^\s*""\s*$/) { + print "msgid ", $_->{id}; + print "msgstr ", $_->{str}; + } + else { + print "msgid ", $_->{str}; + print "msgstr \"\"\n"; + } +} + diff --git a/po/bin/po2txt b/po/bin/po2txt new file mode 100755 index 0000000..f10ee5b --- /dev/null +++ b/po/bin/po2txt @@ -0,0 +1,165 @@ +#! /usr/bin/perl + +# convert *.po files to texts.* files suitable for gfxboot +# usage: po2txt lang.po >texts.lang +# Note: en.po ist treated specially! + +use Getopt::Long; + +sub read_texts; +sub join_msg; + +$opt_product = "SUSE Linux"; + +GetOptions( + 'product=s' => \$opt_product +); + + +for $lang (@ARGV) { + $lang = 'en' if $lang eq 'bootloader.pot'; + $lang =~ s/\.po$//; + read_texts $lang; +} + +sub read_texts +{ + local $_; + + my ($lang, @f, $txt, $context, $t, $p, $ids, $file); + + $lang = shift; + + $file = "$lang.po"; + $file = 'bootloader.pot' if $lang eq 'en'; + + if($lang eq 'en') { + $ids = 1; + } + + open F, $file; + @f = (); + close F; + + map { s//$opt_product/g; } @f; + + $_ = $lang; + s/.*\///; + + for (@f) { + if(/^\s*#\.\s*(txt_\S+)/) { + if($txt) { + @msgstr = @msgid if $ids || join_msg(\@msgstr) eq ""; + $txts{$txt} = join_msg(\@msgstr); + } + + $txt = $1; + + undef @msgid; + undef @msgstr; + undef $context; + next; + } + + next if /^\s*#.*|^\s*$/; + + if(/^\s*msgid\s*(\".*\")\s*$/) { + push @msgid, $1 unless $1 eq '""'; + $context = 1; + next; + } + + if(/^\s*msgstr\s*(\".*\")\s*$/) { + push @msgstr, $1 unless $1 eq '""'; + $context = 2; + next; + } + + if(/^\s*(\".*\")\s*$/) { + if($context == 1) { + push @msgid, $1; + } + elsif($context == 2) { + push @msgstr, $1; + } + else { + die "format oops in ${lang}.po: $_" + } + } + } + + if($txt) { + @msgstr = @msgid if $ids || join_msg(\@msgstr) eq ""; + $txts{$txt} = join_msg(\@msgstr); + } + + @txts = sort keys %txts; + + for (@txts) { + $txt = $txts{$_}; + $txt =~ s/\\"/"/g; + $txt =~ s/\\\\/\\/g; + $txt =~ s/\\n/\n/g; + print "$txt\x00" + } + + if($ids) { + open W, ">text.inc"; + print W "%\n% This file is generated automatically. Editing it is pointless.\n%\n\n"; + print W "/texts [\n"; + $p = pop @txts; + for (@txts) { print W " /$_\n" } + print W " /$p\n] def\n"; + close W; + } + else { + open F, "text.inc"; + for () { + if(/\s+\/(txt_\S+)/) { + $txt_ref{$1} = undef; + } + } + close F; + for (@txts) { + $txt_list{$_}++; + $txt_multi{$_} = 1 if $txt_list{$_} > 1; + } + for (@txts) { + $txt_unknown{$_} = 1 unless exists $txt_ref{$_}; + } + for (keys %txt_ref) { + $txt_miss{$_} = 1 unless exists $txt_list{$_}; + } + + if(defined(%txt_miss) || defined(%txt_unknown) || defined(%txt_multi)) { + print STDERR "$lang:\n"; + for (sort keys %txt_miss) { + print STDERR " missing: $_\n" + } + for (sort keys %txt_unknown) { + print STDERR " unknown: $_\n" + } + for (sort keys %txt_multi) { + print STDERR " multi: $_\n" + } + } + } + +} + + +sub join_msg +{ + local $_; + my ($s, $msg, $m); + + $msg = shift; + + for $s (@{$msg}) { + $_ = $s; + s/^\"(.*)\"$/$1/; + $m .= $_; + } + + return $m; +} diff --git a/po/bin/rm_text b/po/bin/rm_text new file mode 100755 index 0000000..9b96555 --- /dev/null +++ b/po/bin/rm_text @@ -0,0 +1,63 @@ +#! /usr/bin/perl + +# remove a text from *.po files + +sub drop; + +die "usage: rm_text id\n" if @ARGV != 1; + +$id = shift; +$id = "txt_$id" unless $id =~ /^txt_/; + +mkdir old, 0755; + +for $f ("bootloader.pot", <*.po>) { + if(open F, $f) { + @f = ; + close F; + + ( $new, $old ) = drop @f; + if(open F, ">>old/$f") { + print F @$old; + close F; + + open F, ">$f"; + print F @$new; + close F; + } + } +} + + +sub drop +{ + local $_; + my (@f, @g, $drop_it, @d); + + for (@_) { + push @g, $_; + $drop_it = 1 if /^#\.\s*${id}\s*$/; + if(/^\s*$/) { + if($drop_it) { + push @d, @g; + } + else { + push @f, @g; + } + undef $drop_it; + undef @g; + } + } + + if(@g) { + if($drop_it) { + push @d, @g; + } + else { + push @f, @g; + } + } + + return ( \@f, \@d ); +} + -- cgit v1.2.1