5 if (/^\@FUNCTION=(.*)/) {
8 print " </refsect1>\n";
9 print " </refentry>\n\n";
14 print " <refentry>\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";
25 if (/^\@SYNTAX=(.*)/) {
26 print " <refsynopsisdiv>\n";
27 print " <synopsis>", "e_stuff
($1), "</synopsis>\n";
28 print " </refsynopsisdiv>\n";
32 if (/^\@DESCRIPTION=(.*)/) {
33 print " <refsect1>\n";
34 print " <title>DescripciĆ³n</title>\n";
35 print " <para>", "e_stuff
($1), "</para>\n";
40 if (/^\@EXAMPLES=(.*)/) {
42 print "\n </refsect1>";
44 print " <refsect1>\n";
45 print " <title>Examples</title>\n";
46 print " <para>", "e_stuff
($1), "</para>\n";
51 if (/^\@SEEALSO=(.*)/) {
55 my @links = split (/,/, $linktxt);
58 print "\n </refsect1>";
60 print "\n <refsect1><title>Ver tambiƩn</title>\n";
63 foreach my $link (@links) {
64 push @a, " <link linkend=\"gnumeric-$link\">$link</link>";
67 print join (",\n", @a), ".\n";
70 print " </refsect1>\n";
71 print " </refentry>\n\n";
77 print " <para>", "e_stuff
($_), "</para>";