summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-13 17:13:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-13 17:13:16 +0000
commit67b193ae556cf79499b23b536b27a2e5d9dd778e (patch)
tree5e1065cbd9d0f9680ac1808033a6d634c11524ae /perl-install/share/po
parentdcdf50206dd91a777dee83515b193987a4fbfe2f (diff)
downloaddrakx-67b193ae556cf79499b23b536b27a2e5d9dd778e.tar
drakx-67b193ae556cf79499b23b536b27a2e5d9dd778e.tar.gz
drakx-67b193ae556cf79499b23b536b27a2e5d9dd778e.tar.bz2
drakx-67b193ae556cf79499b23b536b27a2e5d9dd778e.tar.xz
drakx-67b193ae556cf79499b23b536b27a2e5d9dd778e.zip
- adapt to new drakx-chapter.xml (esp. handle <variablelist> tags)
- replace __ with N_ - add "our" for "%steps"
Diffstat (limited to 'perl-install/share/po')
-rwxr-xr-xperl-install/share/po/help_xml2pm.pl47
1 files changed, 24 insertions, 23 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index 4f2a04e0c..ccdf24a26 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -71,13 +71,13 @@ use common;
# Write a mail to <documentation@mandrakesoft.com> if
# you want it changed.
-%steps = (
+our %steps = (
empty => '',
};
foreach (sort keys %$help) {
my $s = to_ascii($help->{$_});
print STDERR "Writing id=$_\n";
- print F qq(\n$_ => \n__("$s"),\n);
+ print F qq(\n$_ => \nN_("$s"),\n);
}
print F ");\n";
}
@@ -109,14 +109,14 @@ sub rewrite1 {
}
# return the list of nodes named $tag
-sub find {
+sub find_tag {
my ($tag, $tree) = @_;
if (!ref($tree)) {
();
} elsif ($tree->{tag} eq $tag) {
$tree;
} else {
- map { find($tag, $_) } @{$tree->{children}};
+ map { find_tag($tag, $_) } @{$tree->{children}};
}
}
@@ -149,12 +149,12 @@ sub rewrite2 {
}
sub rewrite2_ {
- my ($tree) = @_;
+ my ($tree, @parents) = @_;
ref($tree) or return $tree;
!$tree->{attr}{condition} || $tree->{attr}{condition} !~ /no-inline-help/ or return '';
my $text = do {
- my @l = map { rewrite2_($_) } @{$tree->{children}};
+ my @l = map { rewrite2_($_, $tree, @parents) } @{$tree->{children}};
my $text = "";
foreach (@l) {
s/^ // if $text =~ /\s$/;
@@ -165,6 +165,19 @@ sub rewrite2_ {
$text;
};
+ if ($tree->{attr}{id} && $tree->{attr}{id} =~ /drakxid-(.+)/) {
+ my $id = $1;
+ 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));
+ }
+
if (0) {
} elsif (member($tree->{tag}, 'formalpara', 'para', 'itemizedlist', 'orderedlist')) {
$text =~ s/^\s(?!\s)//;
@@ -191,38 +204,26 @@ sub rewrite2_ {
$text =~ s/(\s+)$/ !!$1/;
$text;
} elsif ($tree->{tag} eq 'listitem') {
- my $cnt;
+ 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',
+ 'keycombo', 'note', 'sect1', 'sect2',
'superscript', 'systemitem',
- 'tip', 'ulink', 'xref'
+ 'tip', 'ulink', 'xref', 'varlistentry', 'variablelist', 'term',
)) {
# ignored tags
$text;
} elsif (member($tree->{tag},
qw(title article primary secondary indexterm revnumber
- date authorinitials revision revhistory chapterinfo
+ date authorinitials revision revhistory revremark chapterinfo
imagedata imageobject mediaobject figure
- book chapter)
+ abstract book chapter)
)) {
# dropped tags
'';
- } elsif ($tree->{tag} =~ /sect[12]/) {
- my $id = $tree->{attr}{id} && $tree->{attr}{id} =~ /drakxid-(.*)/ ? $1 : return;
- $text =~ s/^\s+//;
-
- my @footnotes = map {
- my $s = rewrite2_({ %$_, tag => 'para' });
- $s =~ s/^\s+//;
- "(*) $s";
- } find('footnote', $tree);
- $help->{$id} = aerate($text . join('', @footnotes));
- '';
} elsif ($tree->{tag} eq 'screen') {
qq(\n$text\n);
} else {