Code: Select all
pH = fhNewItemPtr()
p1 = fhNewItemPtr()
p2 = fhNewItemPtr()
pH:MoveToFirstRecord('HEAD')
p1:MoveToFirstChildItem(pH)
while p1:IsNotNull() do
print(fhGetTag(p1))
p2:MoveToFirstChildItem(p1)
while p2:IsNotNull() do
print(fhGetTag(p1), fhGetTag(p2))
p2:MoveNext()
end
p1:MoveNext()
end
I also noticed that the tag sequence generated differs from that in the GEDCOM file, but I guess that's just a minor inconsistency in the way CP have coded it.