diff options
Diffstat (limited to 'perl-install/share/po/help_xml2pm.pl')
| -rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 334 |
1 files changed, 0 insertions, 334 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl deleted file mode 100755 index a4f495487..000000000 --- a/perl-install/share/po/help_xml2pm.pl +++ /dev/null @@ -1,334 +0,0 @@ -#!/usr/bin/perl -w - -use XML::Parser; -use MDK::Common; -use utf8; - -my $dir = "doc/manualB/modules"; -my $xsltproc = "/usr/bin/xsltproc"; - -if ( ! -x "$xsltproc" ){ - print "You need to have \"$xsltproc\" - "; - print "so type \"urpmi libxslt-proc\" please.\n"; - exit 1; -} - -my %helps = map { - my $lang = $_; - my @l = grep { !/drakx-MNF-chapter/ } map { /(drakx-.*).xml$/ } all("$dir/$lang"); - if (@l < 20) { () } else { - my $template_file = "$dir/$lang/drakx.xml"; - my $file = "$dir/$lang/drakx_full.xml"; - output($template_file, template($lang, @l)); - system("$xsltproc id.xsl $template_file > $file") == 0 or die "$xsltproc id.xsl $template_file failed\n"; - - my $p = new XML::Parser(Style => 'Tree'); - my $tree = $p->parsefile($file); - - $lang => rewrite2(rewrite1(@$tree), $lang); - } -} all($dir); - -my $base = delete $helps{en} || die; -save_help($base); - -foreach my $lang (keys %helps) { - (my $rlang = $lang) =~ s/_(.*)/_\U$1/; - print "Now transforming: $lang\n"; - my ($charset) = cat_("$rlang.po") =~ /charset=([^\\]+)/ or die "missing charset in $rlang.po\n"; - open(my $F, ">:encoding($charset)", "help-$rlang.pot"); - print $F <<EOF; -msgid "" -msgstr "" -"Content-Type: text/plain; charset=$charset\\n" - -EOF - foreach my $id (keys %{$helps{$lang}}) { -# warn "Writing id=$id in lang=$lang\n"; - $base->{$id} or warn "$lang:$id doesn't exist in english\n", next; - print $F qq(# DO NOT BOTHER TO MODIFY HERE, SEE:\n# cvs.mandrakesoft.com:/cooker/$dir/$lang/drakx-chapter.xml\n); - print_in_PO($F, to_ascii($base->{$id}[0]), $helps{$lang}{$id}[0]); - } -} -unlink(".memdump"); - -sub print_in_PO { - my ($F, $msgid, $msgstr) = @_; - - print $F qq(msgid ""\n"); - print $F join(qq(\\n"\n"), split "\n", $msgid); - print $F qq("\nmsgstr ""\n"); - print $F join(qq(\\n"\n"), split "\n", $msgstr); - print $F qq("\n\n); -} - -sub save_help { - my ($help, $inside_strings) = @_; - - open(my $F, ">:encoding(ascii)", "../../help.pm"); - print $F <<'EOF'; -package help; -use common; - -1; - -# IMPORTANT: Don't edit this File - It is automatically generated -# from the manuals !!! -# Write a mail to <documentation@mandrakesoft.com> if -# you want it changed. -EOF - foreach (sort keys %$help) { - my ($main, @inside) = map { '"' . to_ascii($_) . '"' } @{$help->{$_}}; - my $s = join(', ', $main, map { qq(N($_)) } @inside); - print STDERR "Writing id=$_\n"; - print $F <<EOF; -sub $_() { - N($s); -} -EOF - my @nb = $main =~ /\%s/g; @nb == @inside or die "help.pm error: bad \%s in sub $_\n"; - } -} - -# i don't like the default tree format given by XML::Parser, -# rewrite it in my own tree format -sub rewrite1 { - my ($tag, $tree) = @_; - my ($attr, @nodes) = @$tree; - my @l; - while (@nodes) { - my ($tag, $tree) = splice(@nodes, 0, 2); - if ($tag eq '0') { - foreach ($tree) { - s/\s+/ /gs; - s/"/\\"/g; - s/\x{ad}//g; - s/\x{2013}/-/g; - } - push @l, $tree - } elsif ($tag eq 'screen') { - $tree->[1] eq '0' or die "screen tag contains non CDATA\n"; - push @l, $tree->[2]; - } else { - push @l, rewrite1($tag, $tree); - } - } - { attr => $attr, tag => lc $tag, children => \@l }; -} - -# return the list of nodes named $tag -sub find_tag { - my ($tag, $tree) = @_; - if (!ref($tree)) { - (); - } elsif ($tree->{tag} eq $tag) { - $tree; - } else { - map { find_tag($tag, $_) } @{$tree->{children}}; - } -} - -my $help; -sub rewrite2 { - my ($tree, $lang) = @_; - our $i18ned_open_text_quote = $ {{ - fr => "« ", - de => "„", - es => "\\\"", - it => "\\\"", - zh_cn => "“" - }}{$lang}; - our $i18ned_close_text_quote = $ {{ - fr => " »", - de => "“", - es => "\\\"", - it => "\\\"", - zh_cn => "”" - }}{$lang}; - our $i18ned_open_label_quote = $ {{ fr => "« ", de => "„", zh_cn => "“"}}{$lang}; - our $i18ned_close_label_quote = $ {{ fr => " »", de => "“", zh_cn => "”"}}{$lang}; - our $i18ned_open_command_quote = $ {{ fr => "« ", de => "„", zh_cn => "“"}}{$lang}; - our $i18ned_close_command_quote = $ {{ fr => " »", de => "“", zh_cn => "”"}}{$lang}; - our $i18ned_open_input_quote = $ {{ fr => "« ", de => "»", zh_cn => "“"}}{$lang}; - our $i18ned_close_input_quote = $ {{ fr => " »", de => "«", zh_cn => "”"}}{$lang}; - our $i18ned_open_key_quote = $ {{ de => "["}}{$lang}; - our $i18ned_close_key_quote = $ {{ de => "]"}}{$lang}; - # rewrite2_ fills in $help - $help = {}; - rewrite2_($tree); - $help; -} - -my @inside_strings; -sub rewrite2_ { - my ($tree, @parents) = @_; - ref($tree) or return $tree; - !$tree->{attr}{condition} || $tree->{attr}{condition} !~ /no-inline-help/ or return ''; - - my @prev_inside_strings; - my ($id) = $tree->{attr}{id} ? $tree->{attr}{id} =~ /drakxid-([^-]+)$/ : (); - if ($id) { - @prev_inside_strings = @inside_strings; - @inside_strings = (); - } - - my $text = do { - my @l = map { rewrite2_($_, $tree, @parents) } @{$tree->{children}}; - my $text = ""; - foreach (@l) { - s/^ // if $text =~ /\s$/; - $text =~ s/ $// if /^\s/; - $text =~ s/\n+$// if /^\n/; - $text .= $_; - } - $text; - }; - - if ($id) { - my $t = $text; - $t =~ s/^\s+//; - - my @footnotes = map { - my $s = rewrite2_({ %$_, tag => 'para' }); - $s =~ s/^\s+//; - "(*) $s"; - } find_tag('footnote', $tree); - $help->{$id} = [ aerate($t . join('', @footnotes)), @inside_strings ]; - unshift @inside_strings, @prev_inside_strings; - } - - if (0) { - } elsif (member($tree->{tag}, 'formalpara', 'para', 'itemizedlist', 'orderedlist')) { - $text =~ s/^\s(?!\s)//; - $text =~ s/^( ?\n)+//; - $text =~ s/\s+$//; - qq(\n$text\n); - } elsif (member($tree->{tag}, 'quote', 'citetitle', 'foreignphrase')) { - $text =~ s/^\Q$i18ned_open_label_quote\E(.*)\Q$i18ned_close_label_quote\E$/$1/ if $i18ned_open_label_quote; - ($i18ned_open_text_quote || "``") . $text . ($i18ned_close_text_quote || "''"); - } elsif (member($tree->{tag}, 'literal', 'filename')) { - ($i18ned_open_label_quote || "\\\"") . $text . ($i18ned_close_label_quote || "\\\""); - } elsif (member($tree->{tag}, 'guilabel', 'guibutton', 'guimenu')) { - $text =~ s/\s+$//; - push @inside_strings, $text; - ($i18ned_open_label_quote || "\\\"") . "%s" . ($i18ned_close_label_quote || "\\\""); - } elsif ($tree->{tag} eq 'command') { - ($i18ned_open_command_quote || "\\\"") . $text . ($i18ned_close_command_quote || "\\\""); - } elsif ($tree->{tag} eq 'userinput') { - ($i18ned_open_input_quote || ">>") . $text . ($i18ned_close_input_quote || "<<"); - } elsif ($tree->{tag} eq 'keycap') { - ($i18ned_open_key_quote || "[") . $text . ($i18ned_close_key_quote || "]"); - } elsif (member($tree->{tag}, 'keysym')) { - qq($text); - } elsif (member($tree->{tag}, 'footnote')) { - '(*)' - } elsif ($tree->{tag} eq 'warning') { - $text =~ s/^(\s+)/$1!! /; - $text =~ s/(\s+)$/ !!$1/; - $text; - } elsif ($tree->{tag} eq 'listitem') { - my $cnt = (any { $_->{tag} eq 'variablelist' } @parents) ? 1 : 0; - $text =~ s/^\s+//; - $text =~ s/^/' ' . ($cnt++ ? ' ' : '* ')/emg; - "\n$text\n"; - } elsif (member($tree->{tag}, - 'acronym', 'application', 'emphasis', - 'keycombo', 'note', 'sect1', 'sect2', 'sect3', - 'superscript', 'systemitem', 'option', - 'tip', 'ulink', 'xref', 'varlistentry', 'variablelist', 'term', - 'phrase', 'hardware', - )) { - # ignored tags - $text; - } elsif (member($tree->{tag}, - qw(title article primary secondary indexterm revnumber - date authorinitials revision revhistory revremark chapterinfo - imagedata imageobject mediaobject figure - abstract book chapter) - )) { - # dropped tags - ''; - } elsif ($tree->{tag} eq 'screen') { - qq(\n$text\n); - } else { - warn "unknown tag $tree->{tag}\n"; - } -} - -sub aerate { - my ($s) = @_; - #- the warp_text column is adjusted so that xgettext do not wrap text around - #- which cause msgmerge to add a lot of fuzzy - my $s2 = join("\n\n", map { join("\n", warp_text($_, 75)) } split "\n", $s); - $s2; -} - -sub to_ascii { - local $_ = $_[0]; - tr[ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ] - [AAAAAAACEEEEIIIIDNOOOOOxOUUUUY_aaaaaaaceeeeiiiionooooo_ouuuuy_y]; - s/\x81//g; #- why is this needed??? - s/ß/ss/g; - $_; -} - -sub template { - my ($lang, @l) = @_; - my $entities = join("\n", map { qq(<!ENTITY $_ SYSTEM '$_.xml'>) } @l); - my $body = join("\n", map { '&' . $_ . ';' } @l); - - <<EOF; -<?xml version='1.0' encoding='ISO-8859-1'?> - -<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN" -"/usr/share/sgml/docbook/xml-dtd-4.1.2/docbookx.dtd"[ - -$entities - -<!ENTITY % params.ent SYSTEM "../../manuals/Starter/$lang/params.ent"> -%params.ent; -<!ENTITY % strings.ent SYSTEM "../../manuals/Starter/$lang/strings.ent"> -%strings.ent; - -<!ENTITY step-only-for-expert ""> - -<!ENTITY % acronym-list SYSTEM "../../entities/$lang/acronym_list.ent" > -%acronym-list; -<!ENTITY % button-list SYSTEM "../../entities/$lang/button_list.ent" > -%button-list; -<!ENTITY % companies SYSTEM "../../entities/$lang/companies.ent" > -%companies; -<!ENTITY % icon-list SYSTEM "../../entities/$lang/icon_list.ent" > -%icon-list; -<!ENTITY % menu-list SYSTEM "../../entities/$lang/menu_list.ent" > -%menu-list; -<!ENTITY % tab-list SYSTEM "../../entities/$lang/tab_list.ent" > -%tab-list; -<!ENTITY % tech SYSTEM "../../entities/$lang/tech.ent" > -%tech; -<!ENTITY % text-field-list SYSTEM "../../entities/$lang/text_field_list.ent" > -%text-field-list; -<!ENTITY % titles SYSTEM "../../entities/$lang/titles.ent" > -%titles; -<!ENTITY % typo SYSTEM "../../entities/$lang/typo.ent" > -%typo; -<!ENTITY % common SYSTEM "../../entities/common.ent" > -%common; -<!ENTITY % common-acronyms SYSTEM "../../entities/common_acronyms.ent" > -%common-acronyms; -<!ENTITY % prog-list SYSTEM "../../entities/prog_list.ent" > -%prog-list; - -<!ENTITY lang '$lang'> - -]> - -<book> - <title>DrakX Documentation</title> - -$body - -</book> -EOF - -} |