7 my $gedcom_ref_doc="http://www.gendex.com/gedcom55/55gcch2.htm";
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 write $outputfile\n";
24 return "(<A href=\"javascript:popup_gedcom('$sublink')\">?</A>)";
34 $section = "sub" if m|^/\* Sub-structures \*/|;
35 $section = "main" if m|^/\* Main structures \*/|;
36 $section = "" if m|^/\* Functions \*/|;
37 $generated = $1 if m|^/\* [\$]Id: (.*?) \$ \*/|;
42 if (s|\s*/\* (.*?) \*/\s*$||) {
45 if (m|^struct (.*) \{|) {
46 s|^struct (.*?) \{|<a name="$1"><B>struct $1</B></a> \{|;
47 if ($section eq "main") {
48 $index .= " <LI><a href=\"#$1\">struct $1</a><br>\n";
51 elsif (m|struct (.*?) \*|) {
54 if ($structname =~ /^(date|age|xref)_value$/) {
57 s|struct (.*?) \*|<a href="$link#$1">struct $1</a> \*|;
60 if ($section eq "sub") {
61 $sub_structs .= "$_ " . gedcom_link($gedc_ref) . "\n";
64 $main_structs .= "$_ " . gedcom_link($gedc_ref) . "\n";
69 print OUTPUT <<"END_OF_HTML";
70 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
73 <title>Gedcom object model in C</title>
74 <script language="JavaScript" type="text/javascript">
76 function popup_gedcom(sublink) {
77 Gedcom = window.open( '$gedcom_ref_doc' + '#' + sublink,
79 'scrollbars=yes,resizable=yes,toolbar=no,height=400, width=400');
84 <body bgcolor="White">
86 <h1 align="center">Gedcom object model in C: Structures</h1>
87 This page provides a cross-reference of all objects in the Gedcom object
88 model for C. The '(?)' links are links to the
89 <a href="http://www.gendex.com/gedcom55/55gctoc.htm">Gedcom standard</a>
90 giving the meaning of each field.
92 The following links are fast links to the
93 main structures in the Gedcom object model:
100 <h2>Main structures</h2>
106 <h2>Sub-structures</h2>
112 <SMALL>Generated from: $generated</SMALL>