Commit 53db6818 authored by Morten Welinder's avatar Morten Welinder

Sync foreign versions with C locale script. Translators need to

go over these.
parent 01d4d19c
......@@ -47,6 +47,7 @@ while (<>) {
$state = 2;
next;
}
if (/^\@SEEALSO=(.*)/) {
my $linktxt = $1;
$linktxt =~ s/\s//g;
......
......@@ -47,6 +47,7 @@ while (<>) {
$state = 2;
next;
}
if (/^\@SEEALSO=(.*)/) {
my $linktxt = $1;
$linktxt =~ s/\s//g;
......
$state = 0;
while (<>){
if (/^\@FUNCTION=(.*)/){
$func=$1;
$state = 0;
print "\n\n";
print " <refentry>\n";
print " <refmeta>\n";
print " <refentrytitle><anchor id=\"gnumeric-$1\">$1</refentrytitle><refmiscinfo></refmiscinfo>\n";
print " </refmeta>\n";
print " <refnamediv>\n";
print " <refname>$1</refname>\n";
print " <refpurpose></refpurpose>\n";
print " </refnamediv>\n";
next;
}
if (/^\@SYNTAX=(.*)/){
print " <refsynopsisdiv>\n";
print " <synopsis>$1</synopsis>\n";
print " </refsynopsisdiv>\n";
next;
}
if (/^\@DESCRIPTION=(.*)/){
print " <refsect1>\n";
print " <title>Descripcin</title>\n";
print " <para>$1</para>\n";
$state = 1;
next;
}
if (/^\@SEEALSO=(.*)/){
@links = split (/,/, $1);
print "\n </refsect1>";
print "\n <refsect1><title>Ver tambin</title>\n";
@a = ();
print " <para>";
foreach $link (@links){
$link =~ s/ //g;
push @a, " <link linkend=\"gnumeric-$link\">$link</link>\n";
while (<>) {
s/\s+$//;
if (/^\@FUNCTION=(.*)/) {
if ($state) {
printf "\n";
print " </refsect1>\n";
print " </refentry>\n\n";
}
my $func = $1;
$state = 0;
print "\n\n";
print " <refentry>\n";
print " <refmeta>\n";
print " <refentrytitle><anchor id=\"gnumeric-$func\">$func</refentrytitle><refmiscinfo></refmiscinfo>\n";
print " </refmeta>\n";
print " <refnamediv>\n";
print " <refname>$func</refname>\n";
print " <refpurpose></refpurpose>\n";
print " </refnamediv>\n";
next;
}
if (/^\@SYNTAX=(.*)/) {
print " <refsynopsisdiv>\n";
print " <synopsis>", &quote_stuff ($1), "</synopsis>\n";
print " </refsynopsisdiv>\n";
next;
}
if (/^\@DESCRIPTION=(.*)/) {
print " <refsect1>\n";
print " <title>Descripcin</title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
$state = 1;
next;
}
if (/^\@EXAMPLES=(.*)/) {
if ($state) {
print "\n </refsect1>";
}
print " <refsect1>\n";
print " <title>Examples</title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
$state = 2;
next;
}
if (/^\@SEEALSO=(.*)/) {
my $linktxt = $1;
$linktxt =~ s/\s//g;
$linktxt =~ s/\.$//;
my @links = split (/,/, $linktxt);
if ($state) {
print "\n </refsect1>";
}
print "\n <refsect1><title>Ver tambin</title>\n";
my @a = ();
print " <para>";
foreach my $link (@links) {
push @a, " <link linkend=\"gnumeric-$link\">$link</link>";
}
if (@a > 0) {
print join (",\n", @a), ".\n";
}
print " </para>\n";
print " </refsect1>\n";
print " </refentry>\n\n";
$state = 0;
next;
}
if ($state) {
print " <para>", &quote_stuff ($_), "</para>";
} else {
}
print join (", ", @a);
print " </para>\n";
print " </refsect1>\n";
print " </refentry>\n\n";
$state = 0;
next;
}
if ($state){
chop;
print " <para>$_</para>";
}
}
sub quote_stuff {
my ($str) = @_;
$str =~ s/</\&lt;/g;
$str =~ s/>/\&gt;/g;
return $str;
}
$state = 0;
while (<>){
if (/^\@FUNCTION=(.*)/){
if ($state){
printf "\n";
print " </refsect1>\n";
print " </refentry>\n\n";
while (<>) {
s/\s+$//;
if (/^\@FUNCTION=(.*)/) {
if ($state) {
printf "\n";
print " </refsect1>\n";
print " </refentry>\n\n";
}
my $func = $1;
$state = 0;
print "\n\n";
print " <refentry>\n";
print " <refmeta>\n";
print " <refentrytitle><anchor id=\"gnumeric-$func\">$func</refentrytitle><refmiscinfo></refmiscinfo>\n";
print " </refmeta>\n";
print " <refnamediv>\n";
print " <refname>$func</refname>\n";
print " <refpurpose></refpurpose>\n";
print " </refnamediv>\n";
next;
}
if (/^\@SYNTAX=(.*)/) {
print " <refsynopsisdiv>\n";
print " <synopsis>", &quote_stuff ($1), "</synopsis>\n";
print " </refsynopsisdiv>\n";
next;
}
$func=$1;
$state = 0;
print "\n\n";
print " <refentry>\n";
print " <refmeta>\n";
print " <refentrytitle><anchor id=\"gnumeric-$1\">$1</refentrytitle><refmiscinfo></refmiscinfo>\n";
print " </refmeta>\n";
print " <refnamediv>\n";
print " <refname>$1</refname>\n";
print " <refpurpose></refpurpose>\n";
print " </refnamediv>\n";
next;
}
if (/^\@SYNTAX=(.*)/){
print " <refsynopsisdiv>\n";
print " <synopsis>$1</synopsis>\n";
print " </refsynopsisdiv>\n";
next;
}
if (/^\@DESCRIPTION=(.*)/){
print " <refsect1>\n";
print " <title>Description</title>\n";
print " <para>$1</para>\n";
$state = 1;
next;
}
if (/^\@DESCRIPTION=(.*)/) {
print " <refsect1>\n";
print " <title>Description</title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
$state = 1;
next;
}
if (/^\@SEEALSO=(.*)/){
@links = split (/,/, $1);
if (/^\@EXAMPLES=(.*)/) {
if ($state) {
print "\n </refsect1>";
}
print " <refsect1>\n";
print " <title>Examples</title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
$state = 2;
next;
}
print "\n </refsect1>";
print "\n <refsect1><title>See also</title>\n";
@a = ();
print " <para>";
foreach $link (@links){
$link =~ s/ //g;
if (/^\@SEEALSO=(.*)/) {
my $linktxt = $1;
$linktxt =~ s/\s//g;
$linktxt =~ s/\.$//;
my @links = split (/,/, $linktxt);
push @a, " <link linkend=\"gnumeric-$link\">$link</link>\n";
if ($state) {
print "\n </refsect1>";
}
print "\n <refsect1><title>See also</title>\n";
my @a = ();
print " <para>";
foreach my $link (@links) {
push @a, " <link linkend=\"gnumeric-$link\">$link</link>";
}
if (@a > 0) {
print join (",\n", @a), ".\n";
}
print " </para>\n";
print " </refsect1>\n";
print " </refentry>\n\n";
$state = 0;
next;
}
if ($state) {
print " <para>", &quote_stuff ($_), "</para>";
} else {
}
print join (", ", @a);
print " </para>\n";
print " </refsect1>\n";
print " </refentry>\n\n";
$state = 0;
next;
}
}
sub quote_stuff {
my ($str) = @_;
if ($state){
chop;
print " <para>$_</para>";
} else {
}
$str =~ s/</\&lt;/g;
$str =~ s/>/\&gt;/g;
return $str;
}
......@@ -47,6 +47,7 @@ while (<>) {
$state = 2;
next;
}
if (/^\@SEEALSO=(.*)/) {
my $linktxt = $1;
$linktxt =~ s/\s//g;
......
$state = 0;
while (<>){
if (/^\@FUNCTION=(.*)/){
$func=$1;
$state = 0;
print "\n\n";
print " <refentry>\n";
print " <refmeta>\n";
print " <refentrytitle><anchor id=\"gnumeric-$1\">$1</refentrytitle><refmiscinfo></refmiscinfo>\n";
print " </refmeta>\n";
print " <refnamediv>\n";
print " <refname>$1</refname>\n";
print " <refpurpose></refpurpose>\n";
print " </refnamediv>\n";
next;
}
if (/^\@SYNTAX=(.*)/){
print " <refsynopsisdiv>\n";
print " <synopsis>$1</synopsis>\n";
print " </refsynopsisdiv>\n";
next;
}
if (/^\@DESCRIPTION=(.*)/){
print " <refsect1>\n";
print " <title></title>\n";
print " <para>$1</para>\n";
$state = 1;
next;
}
if (/^\@SEEALSO=(.*)/){
@links = split (/,/, $1);
print "\n </refsect1>";
print "\n <refsect1><title>. </title>\n";
@a = ();
print " <para>";
foreach $link (@links){
$link =~ s/ //g;
push @a, " <link linkend=\"gnumeric-$link\">$link</link>\n";
while (<>) {
s/\s+$//;
if (/^\@FUNCTION=(.*)/) {
if ($state) {
printf "\n";
print " </refsect1>\n";
print " </refentry>\n\n";
}
my $func = $1;
$state = 0;
print "\n\n";
print " <refentry>\n";
print " <refmeta>\n";
print " <refentrytitle><anchor id=\"gnumeric-$func\">$func</refentrytitle><refmiscinfo></refmiscinfo>\n";
print " </refmeta>\n";
print " <refnamediv>\n";
print " <refname>$func</refname>\n";
print " <refpurpose></refpurpose>\n";
print " </refnamediv>\n";
next;
}
if (/^\@SYNTAX=(.*)/) {
print " <refsynopsisdiv>\n";
print " <synopsis>", &quote_stuff ($1), "</synopsis>\n";
print " </refsynopsisdiv>\n";
next;
}
if (/^\@DESCRIPTION=(.*)/) {
print " <refsect1>\n";
print " <title></title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
$state = 1;
next;
}
if (/^\@EXAMPLES=(.*)/) {
if ($state) {
print "\n </refsect1>";
}
print " <refsect1>\n";
print " <title>Examples</title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
$state = 2;
next;
}
if (/^\@SEEALSO=(.*)/) {
my $linktxt = $1;
$linktxt =~ s/\s//g;
$linktxt =~ s/\.$//;
my @links = split (/,/, $linktxt);
if ($state) {
print "\n </refsect1>";
}
print "\n <refsect1><title>. </title>\n";
my @a = ();
print " <para>";
foreach my $link (@links) {
push @a, " <link linkend=\"gnumeric-$link\">$link</link>";
}
if (@a > 0) {
print join (",\n", @a), ".\n";
}
print " </para>\n";
print " </refsect1>\n";
print " </refentry>\n\n";
$state = 0;
next;
}
if ($state) {
print " <para>", &quote_stuff ($_), "</para>";
} else {
}
print join (", ", @a);
print " </para>\n";
print " </refsect1>\n";
print " </refentry>\n\n";
$state = 0;
next;
}
if ($state){
chop;
print " <para>$_</para>";
}
}
sub quote_stuff {
my ($str) = @_;
$str =~ s/</\&lt;/g;
$str =~ s/>/\&gt;/g;
return $str;
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment