7 my $inputfile ="$ENV{srcdir}/../include/gom.h";
8 my $outputfile ="gomxref.html";
9 my $ext_link = "interface.html";
12 my $main_structs = "";
17 open INPUT, $inputfile or die "Can't read $inputfile\n";
18 open OUTPUT, ">$outputfile" or die "Can't read $outputfile\n";
22 $section = "sub" if m|/\* Sub-structures \*/|;
23 $section = "main" if m|/\* Main structures \*/|;
24 $section = "" if m|/\* Functions \*/|;
25 $generated = $1 if m|/\* [\$]Id: (.*?) \$ \*/|;
29 if (m|^struct (.*) \{|) {
30 s|^struct (.*?) \{|<a name="$1"><B>struct $1</B></a> \{|;
31 if ($section eq "main") {
32 $index .= " <LI><a href=\"#$1\">struct $1</a><br>\n";
35 elsif (m|struct (.*?) \*|) {
38 if ($structname =~ /^(date|age|xref)_value$/) {
41 s|struct (.*?) \*|<a href="$link#$1">struct $1</a> \*|;
44 if ($section eq "sub") {
48 $main_structs .= "$_";
53 print OUTPUT <<"END_OF_HTML";
54 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
57 <title>Gedcom object model in C</title>
59 <body bgcolor="White">
61 <h1 align="center">Gedcom object model in C</h1>
62 This page provides a cross-reference of all objects in the Gedcom object
63 model for C. The following links are fast links to the main structures
64 in the Gedcom object model:
71 <h2>Main structures</h2>
77 <h2>Sub-structures</h2>
83 <SMALL>Generated from: $generated</SMALL>