From: Peter Verthez Date: Thu, 12 Sep 2002 17:39:38 +0000 (+0000) Subject: Show which CVS element is used to generate the HTML file. X-Git-Url: https://git.dlugolecki.net.pl/?a=commitdiff_plain;h=d15e4f744c2e3e3cdfaccf4635fffda10ebdfefa;p=gedcom-parse.git Show which CVS element is used to generate the HTML file. Add some HTML headers. --- diff --git a/doc/make_gom_xref b/doc/make_gom_xref index fac7ebd..58dd035 100755 --- a/doc/make_gom_xref +++ b/doc/make_gom_xref @@ -8,6 +8,7 @@ use diagnostics; my $inputfile ="$ENV{srcdir}/../include/gom.h"; my $outputfile ="gomxref.html"; my $ext_link = "interface.html"; +my $generated = ""; my $main_structs = ""; my $sub_structs=""; @@ -22,6 +23,7 @@ while () $section = "sub" if m|/\* Sub-structures \*/|; $section = "main" if m|/\* Main structures \*/|; $section = "" if m|/\* Functions \*/|; + $generated = $1 if m|/\* \$Id$ \*/|; next if m|/\*|; if ($section ne "") { @@ -49,26 +51,40 @@ while () } } -print OUTPUT "

Gedcom object model in C

\n"; -print OUTPUT < + + + Gedcom object model in C + + + +

Gedcom object model in C

This page provides a cross-reference of all objects in the Gedcom object model for C. The following links are fast links to the main structures in the Gedcom object model: -END_OF_TEXT -print OUTPUT "\n"; -print OUTPUT "\n"; -print OUTPUT "
\n"; -print OUTPUT "

Main structures

\n"; -print OUTPUT "
\n";
-print OUTPUT $main_structs;
-print OUTPUT "
\n"; -print OUTPUT "
\n"; -print OUTPUT "

Sub-structures

\n"; -print OUTPUT "
\n";
-print OUTPUT $sub_structs;
-print OUTPUT "
\n"; + +
+ +

Main structures

+
+$main_structs
+
 +
+ +

Sub-structures

+
+$sub_structs
+
 +
+ +Generated from: $generated + + +END_OF_HTML + close OUTPUT; close INPUT;