X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=doc%2Fmake_gom_xref;h=58dd03559bf76ee56cb752c83cb280541a54fac1;hb=d15e4f744c2e3e3cdfaccf4635fffda10ebdfefa;hp=fac7ebd1d3a01e195e7b51c5717c7a27a25e3758;hpb=1011ec146df8c34475878d5e614df2a3fcfe0f6f;p=gedcom-parse.git
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 $index;
-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";
+
+$index
+
+
+
+
Main structures
+
+$main_structs
+
+
+
+
Sub-structures
+
+$sub_structs
+
+
+
+Generated from: $generated
+
+
+END_OF_HTML
+
close OUTPUT;
close INPUT;