Commit c371dd11 authored by Jody Goldberg's avatar Jody Goldberg Committed by Jody Goldberg

tweak spacing a bit


2003-07-10  Jody Goldberg <jody@gnome.org>

	* make-func-list.pl : tweak spacing a bit
parent 77be0cc4
This diff is collapsed.
This diff is collapsed.
2003-07-10 Jody Goldberg <jody@gnome.org>
* make-func-list.pl : tweak spacing a bit
2003-06-26 Jody Goldberg <jody@gnome.org>
http://bugzilla.gnome.org/show_bug.cgi?id=115630
......
......@@ -10,11 +10,13 @@ omffile = gnumeric-$(lang).omf
gnumeric_docdir = $(top_srcdir)/doc
entities += functions.xml
functions.xml: func-list.xml $(srcdir)/func-header.xml $(srcdir)/func-footer.xml
cd $(srcdir) && cat $(srcdir)/func-header.xml func-list.xml $(srcdir)/func-footer.xml > "$@"
func-list.xml: func.defs $(gnumeric_docdir)/make-func-list.pl
cd $(srcdir) && perl $(gnumeric_docdir)/make-func-list.pl func.defs > "$@"
functions.xml: func.defs $(gnumeric_docdir)/make-func-list.pl func-header.xml func-footer.xml
cat $(srcdir)/func-header.xml > $$$$.functmp ; \
perl $(gnumeric_docdir)/make-func-list.pl func.defs >> $$$$.functmp ; \
cat $(srcdir)/func-footer.xml >> $$$$.functmp ; \
if xmllint --format --encode "UTF-8" $$$$.functmp > "$@" ; then \
rm $$$$.functmp; \
fi
func.defs: $(top_builddir)/src/gnumeric
LC_ALL="$(locale)" ; export LC_ALL ; $(top_builddir)/src/gnumeric --dump-func-defs="$@"
......
......@@ -4,6 +4,9 @@ my $state = 0;
while (<>) {
s/\s+$//;
if (/^\@CATEGORY=(.*)/) {
$state = 0;
}
if (/^\@FUNCTION=(.*)/) {
if ($state) {
printf "\n";
......@@ -33,9 +36,9 @@ while (<>) {
}
if (/^\@DESCRIPTION=(.*)/) {
print " <refsect1>\n";
print " <title>Description</title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
print " <refsect1>\n";
print " <title>Description</title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
$state = 1;
next;
}
......@@ -44,9 +47,9 @@ while (<>) {
if ($state) {
print "\n </refsect1>";
}
print " <refsect1>\n";
print " <title>Examples</title>\n";
print " <para>", &quote_stuff ($1), "</para>\n";
print "\n <refsect1>\n";
print " <title>Examples</title>\n";
print " <para>", &quote_stuff ($1), "</para>";
$state = 2;
next;
}
......@@ -60,9 +63,10 @@ while (<>) {
if ($state) {
print "\n </refsect1>";
}
print "\n <refsect1><title>See also</title>\n";
print "\n <refsect1>\n";
print " <title>See also</title>\n";
my @a = ();
print " <para>";
print " <para>\n";
foreach my $link (@links) {
my $fixed_name = &fixup_function_name ($link);
push @a, " <link linkend=\"gnumeric-$fixed_name\">$link</link>";
......@@ -79,7 +83,6 @@ while (<>) {
if ($state) {
print " <para>", &quote_stuff ($_), "</para>";
} else {
}
}
......@@ -95,9 +98,9 @@ sub quote_stuff {
return $str;
}
#Subroutine MUST agree with the subroutine in make-index.pl
sub fixup_function_name {
my ($name) = @_;
$name =~ s/_/x/;
# why did we need this ? leave the routine here just in case
# $name =~ s/_/x/g;
return $name;
}
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