JezK
Edit File: foomatic-extract-text
#!/usr/bin/perl -w # -*- perl -*- use Foomatic::Defaults; use Foomatic::DB; use strict; sub write_po{ my ($out, $messages) = @_; foreach (sort(keys %$messages)) { if ($_ eq '') { next; } my $translation = $messages->{$_}; print $out "msgid \"$_\"\nmsgstr \"$translation\"\n\n"; } } sub write_message_files { my ($messages) = @_; foreach (keys %$messages) { print "LANGUAGE: $_\n"; open my $out, ">:encoding(utf-8)", "$_.po" or die; write_po($out, $messages->{$_}); } } sub extract_ppd_old{ my $file = $_[0]; my %messages; if ($file =~ /ppd\.gz$/) { open(FILE, "zcat $file |") or die "Can't open file: $file"; } else { open(FILE, $file); } while (<FILE>){ if ( /\*(\w+) (\w+)\/([^:]+): \"([^\"]*)\"/ ) { print $_, "'$1' '$2' '$3' '$4'\n\n" } #print } close FILE; } sub extract_from_db{ my $messages = $_[0]; my $db = Foomatic::DB->new(); my @files = $db->_get_xml_filelist("source/opt"); foreach my $file (@files){ if ( $file =~ /[Mm]odel|^18$|^57$/ ) { next; } my $xml = $db->_get_object_xml("source/opt/$file"); while ($xml =~ /\<[^\<\/]*longname\>.*?\<en\>(.*?)\<\/en\>/sg) { my $message = Foomatic::DB::unhtmlify($1); # xml unquoting $messages->{$message} = ''; } } } sub extract_ppd{ my ($db, $messages) = @_; my $args = $db->{"dat"}{"args_byname"}; for my $option (keys %$args){ $messages->{$args->{$option}{"comment"}} = ""; #foreach (keys %{$args->{$option}}) { # print $_, "\n"; #} if ($args->{$option}{"type"} eq "bool"){ $messages->{$args->{$option}{"comment_true"}} = ''; $messages->{$args->{$option}{"comment_false"}} = ''; } elsif ($args->{$option}{"type"} eq "enum") { for my $val (@{$args->{$option}{"vals"}}){ $messages->{$val->{"comment"}} = ''; } } } return; # old code: $a = $db->{"dat"}{"args_byname"}{"MediaType"}{"vals"}[0]; print "$a\n\n"; if (0){ foreach my $val (@$a){ print "$val\n"; } return; } foreach my $name (keys %$a) { print "$name:\n"; print $a->{$name}, "\n\n"; if ($name != "compiled-at"){ foreach (keys %{$db->{"dat"}{$name}}) { print $_, "\n"; } print "\n"; } } } sub get_translated_messages{ my ($ppd_en, $ppd_lang, $translation) = @_; my $args_en = $ppd_en->{"dat"}{"args_byname"}; my $args_lang = $ppd_lang->{"dat"}{"args_byname"}; for my $option (keys %$args_en){ $translation->{$args_en->{$option}{"comment"}} = $args_lang->{$option}{"comment"}; if ($args_en->{$option}{"type"} eq "bool"){ $translation->{$args_en->{$option}{"comment_true"}} = $args_lang->{$option}{"comment_true"}; $translation->{$args_en->{$option}{"comment_false"}} = $args_lang->{$option}{"comment_false"}; } elsif ($args_en->{$option}{"type"} eq "enum") { for my $val (@{$args_en->{$option}{"vals"}}){ my $value = $val->{"value"}; for my $val_lang (@{$args_lang->{$option}{"vals"}}){ if ($val_lang->{"value"} eq $value) { $translation->{$val->{"comment"}} = $val_lang->{"comment"}; }; } } } } } sub extract_ppds{ my ($path, $messages) = @_; my $ppds = { }; my %language_names = ('English' => 'en', 'French' => 'fr', 'German' => 'de', 'Italian' => 'it', 'Japanese' => 'jp', 'Portugse' => 'pt', 'Portuguese' => 'pt', 'Spanish' => 'es'); # read ppds open(PPDS, "find $path -name \*.ppd\*|"); while (<PPDS>){ print substr($_, 0, -1), "\n"; my $db = Foomatic::DB->new(); $db->getdatfromppd(substr($_, 0, -1)); my $makemodel = $db->{'dat'}{'makemodel'}; $ppds->{$makemodel} = [] unless exists $ppds->{$makemodel}; push @{$ppds->{$makemodel}}, $db; } foreach my $makemodel (keys %$ppds) { my $en_ppd; foreach my $ppd (@{$ppds->{$makemodel}}) { if ($ppd->{'dat'}{'language'} eq 'English') { $en_ppd = $ppd; last; } } foreach my $ppd (@{$ppds->{$makemodel}}) { my $lang = $ppd->{'dat'}{'language'}; if (exists $language_names{$lang}) { $lang = $language_names{$lang}; } $messages->{$lang} = {} unless exists $messages->{$lang}; if ($lang ne 'en') { get_translated_messages($en_ppd, $ppd, $messages->{$lang}); } else { extract_ppd($ppd, $messages->{$lang}); } } } } sub main{ my $messages = { }; $messages->{'en'} = { }; extract_from_db($messages->{'en'}); extract_ppds("$libdir/db/source/PPD/", $messages); write_message_files($messages); } main();