doc/es/make-docbook.pl

   1 $state = 0;
   2
   3 while (<>) {
   4     s/\s+$//;
   5     if (/^\@FUNCTION=(.*)/) {
   6         if ($state) {
   7             printf "\n";
   8             print "      </refsect1>\n";
   9             print "    </refentry>\n\n";
  10         }
  11         my $func = $1;
  12         $state = 0;
  13         print "\n\n";
  14         print "  <refentry>\n";
  15         print "    <refmeta>\n";
  16         print "      <refentrytitle><anchor id=\"gnumeric-$func\">$func</refentrytitle><refmiscinfo></refmiscinfo>\n";
  17         print "    </refmeta>\n";
  18         print "    <refnamediv>\n";
  19         print "      <refname>$func</refname>\n";
  20         print "      <refpurpose></refpurpose>\n";
  21         print "    </refnamediv>\n";
  22         next;
  23     }
  24
  25     if (/^\@SYNTAX=(.*)/) {
  26         print "    <refsynopsisdiv>\n";
  27         print "      <synopsis>", &quote_stuff ($1), "</synopsis>\n";
  28         print "    </refsynopsisdiv>\n";
  29         next;
  30     }
  31
  32     if (/^\@DESCRIPTION=(.*)/) {
  33         print "      <refsect1>\n";
  34         print "        <title>Descripción</title>\n";
  35         print "        <para>", &quote_stuff ($1), "</para>\n";
  36         $state = 1;
  37         next;
  38     }
  39
  40     if (/^\@EXAMPLES=(.*)/) {
  41         if ($state) {
  42             print "\n    </refsect1>";
  43         }
  44         print "      <refsect1>\n";
  45         print "        <title>Examples</title>\n";
  46         print "        <para>", &quote_stuff ($1), "</para>\n";
  47         $state = 2;
  48         next;
  49     }
  50
  51     if (/^\@SEEALSO=(.*)/) {
  52         my $linktxt = $1;
  53         $linktxt =~ s/\s//g;
  54         $linktxt =~ s/\.$//;
  55         my @links = split (/,/, $linktxt);
  56
  57         if ($state) {
  58             print "\n    </refsect1>";
  59         }
  60         print "\n    <refsect1><title>Ver también</title>\n";
  61         my @a = ();
  62         print   "      <para>";
  63         foreach my $link (@links) {
  64             push @a, "        <link linkend=\"gnumeric-$link\">$link</link>";
  65         }
  66         if (@a > 0) {
  67             print join (",\n", @a), ".\n";
  68         }
  69         print "      </para>\n";
  70         print "    </refsect1>\n";
  71         print "  </refentry>\n\n";
  72         $state = 0;
  73         next;
  74     }
  75
  76     if ($state) {
  77         print "        <para>", &quote_stuff ($_), "</para>";
  78     } else {
  79     }
  80 }
  81
  82
  83 sub quote_stuff {
  84     my ($str) = @_;
  85
  86     $str =~ s/</\&lt;/g;
  87     $str =~ s/>/\&gt;/g;
  88     return $str;
  89 }