X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=doc%2Fmake_gom_xref;h=5a380d1f0565a1ee34edf88917984ce7a5f0d275;hb=9ae65232975e359f903cbd9f2cb0f1fc4ec58891;hp=e918a59cddf0b852463a9620ef3227a2afd85899;hpb=fc07fcf6d01732ab9e6ef9008345f85cf74271c3;p=gedcom-parse.git
diff --git a/doc/make_gom_xref b/doc/make_gom_xref
index e918a59..5a380d1 100755
--- a/doc/make_gom_xref
+++ b/doc/make_gom_xref
@@ -16,11 +16,16 @@ my $index = "";
my $section = "";
open INPUT, $inputfile or die "Can't read $inputfile\n";
-open OUTPUT, ">$outputfile" or die "Can't read $outputfile\n";
+open OUTPUT, ">$outputfile" or die "Can't write $outputfile\n";
sub gedcom_link {
my ($sublink) = @_;
- return "(?)";
+ if ($sublink) {
+ return "(?)";
+ }
+ else {
+ return "";
+ }
}
while ()
@@ -53,18 +58,10 @@ while ()
}
if ($section eq "sub") {
- $sub_structs .= "$_";
- if ($gedc_ref) {
- $sub_structs .= " " . gedcom_link($gedc_ref);
- }
- $sub_structs .= "\n";
+ $sub_structs .= "$_ " . gedcom_link($gedc_ref) . "\n";
}
else {
- $main_structs .= "$_";
- if ($gedc_ref) {
- $main_structs .= " " . gedcom_link($gedc_ref);
- }
- $main_structs .= "\n";
+ $main_structs .= "$_ " . gedcom_link($gedc_ref) . "\n";
}
}
}
@@ -86,7 +83,7 @@ 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