8 my $inputfile ="$ENV{srcdir}/../include/gom.h";
9 my $outputfile ="gomxref.html";
10 my $ext_link = "interface.html";
13 my $main_structs = "";
18 open INPUT, $inputfile or die "Can't read $inputfile\n";
19 open OUTPUT, ">$outputfile" or die "Can't read $outputfile\n";
23 $section = "sub" if m|/\* Sub-structures \*/|;
24 $section = "main" if m|/\* Main structures \*/|;
25 $section = "" if m|/\* Functions \*/|;
26 $generated = $1 if m|/\* \$Id$ \*/|;
30 if (m|^struct (.*) \{|) {
31 s|^struct (.*?) \{|<a name="$1"><B>struct $1</B></a> \{|;
32 if ($section eq "main") {
33 $index .= " <LI><a href=\"#$1\">struct $1</a><br>\n";
36 elsif (m|struct (.*?) \*|) {
39 if ($structname =~ /^(date|age|xref)_value$/) {
42 s|struct (.*?) \*|<a href="$link#$1">struct $1</a> \*|;
45 if ($section eq "sub") {
49 $main_structs .= "$_";
54 print OUTPUT <<"END_OF_HTML";
55 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
58 <title>Gedcom object model in C</title>
60 <body bgcolor="White">
62 <h1 align="center">Gedcom object model in C</h1>
63 This page provides a cross-reference of all objects in the Gedcom object
64 model for C. The following links are fast links to the main structures
65 in the Gedcom object model:
72 <h2>Main structures</h2>
78 <h2>Sub-structures</h2>
84 <SMALL>Generated from: $generated</SMALL>