# $Id$
# $Name$
use strict;
use diagnostics;
my ($inputfile) = @ARGV;
my $gedcom_ref_doc="http://www.gendex.com/gedcom55/55gcch2.htm";
my $outputfile ="gomxref.html";
my $ext_link = "interface.html";
my $generated = "";
my $main_structs = "";
my $sub_structs="";
my $index = "";
my $section = "";
open INPUT, $inputfile or die "Can't read $inputfile\n";
open OUTPUT, ">$outputfile" or die "Can't write $outputfile\n";
sub gedcom_link {
my ($sublink) = @_;
if ($sublink) {
return "(?)";
}
else {
return "";
}
}
while ()
{
my $gedc_ref = "";
$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 "") {
chomp;
if (s|\s*/\* (.*?) \*/\s*$||) {
$gedc_ref = $1;
}
if (m|^struct (.*) \{|) {
s|^struct (.*?) \{|struct $1 \{|;
if ($section eq "main") {
$index .= "
struct $1 \n";
}
}
elsif (m|struct (.*?) \*|) {
my $link = "";
my $structname = $1;
if ($structname =~ /^(date|age|xref)_value$/) {
$link = $ext_link;
}
s|struct (.*?) \*|struct $1 \*|;
}
if ($section eq "sub") {
$sub_structs .= "$_ " . gedcom_link($gedc_ref) . "\n";
}
else {
$main_structs .= "$_ " . gedcom_link($gedc_ref) . "\n";
}
}
}
print OUTPUT <<"END_OF_HTML";
Gedcom object model in C
Gedcom object model in C: Structures
This page provides a cross-reference of all objects in the Gedcom object
model for C. The '(?)' links are links to the
Gedcom standard
giving the meaning of each field.
The following links are fast links to the
main structures in the Gedcom object model:
$index
Main structures
$main_structs
Sub-structures
$sub_structs
Generated from: $generated
END_OF_HTML
close OUTPUT;
close INPUT;