X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=doc%2Fmake_gom_xref;h=f883208364e915605c795799343a4ac85f4781b1;hb=90d522d64b1bc52135d15e26f88f55cf0d700ec6;hp=fac7ebd1d3a01e195e7b51c5717c7a27a25e3758;hpb=1011ec146df8c34475878d5e614df2a3fcfe0f6f;p=gedcom-parse.git
diff --git a/doc/make_gom_xref b/doc/make_gom_xref
index fac7ebd..f883208 100755
--- a/doc/make_gom_xref
+++ b/doc/make_gom_xref
@@ -1,4 +1,3 @@
-#!/usr/bin/perl -w
# $Id$
# $Name$
@@ -8,6 +7,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 +22,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 +50,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;