X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=doc%2Fmake_gom_xref;h=f883208364e915605c795799343a4ac85f4781b1;hb=70b7c1486a2ee272fb4711193da6009234299468;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 "
\n";
-print OUTPUT $main_structs;
-print OUTPUT "
\n";
-print OUTPUT "\n";
-print OUTPUT $sub_structs;
-print OUTPUT "
\n";
+
+$main_structs
+
+
+$sub_structs
+
+