" ,
# print_alternatives HOME_TEXT "HOME" ;
print " " ;
print " " ,
print "" ,
print_alternatives CREATED_BY_TEXT "HTML created by" ;
print " " VERSION " " ,
print_alternatives ON_TEXT "on" ;
print " " TODAY ". " ;
# RJP make correct html
# print "
Back to the Parsons family home page." ;
print "
" ;
# RJP make correct html
print "
" ;
print "
" , # print_alternatives EMAIL_TEXT "EMAIL" ; # print "" ; # print "
" ; print "© 1999 Rick Parsons, Bristol, England"; else print "
" ; end } # Output the first argument if it is non-NULL, otherwise the second argument. # This is used for international customization. define print_alternatives x y { if x then print x , else print y , end } #--------------------------------------------------------------------- # PERSONS INDEX PAGES #--------------------------------------------------------------------- # Output a single page of the hierarchical persons index. # Parameter i is head of a list of index nodes to be output # on a single page. define do_index_ i { # RJP # print "" ; print DTD ; # print "" ; print "" ; print "" ; print "
" TITLE "
" ; print "" , print_alternatives INDEX_OF_PERSONS_TEXT "Index of Persons" ; print "
" ; if ~(i.parent & i.parent.parent) then # RJP no one is interested in this, it is always me. # print "" , # header_info ; # if HEADER.copr then # print "" HEADER.copr ; # end # print "" ; # if HEADER.note then # print "
" ; # print_text HEADER.note 0 ; # print "
" ; # end # if HEADER.submitter then # submitter_info HEADER.submitter ; # end # RJP this goes at the end # author_contact ; end # RJP There is a real risk that living people will still appear on the higher # levels of index. There is little I can do about that - they do not appear # at the leaf level with dates of birth, nor do they have detail pages. # The intention was to have a single level index but it came out at 250K which # was unreasonable for a web page. print "" ; # RJP print disclaimer if PRIVATE then print "Note that you may find people in this index which are not in the" ; print "online database. This is a side effect of the privacy policy and was" ; print "unavoidable.
" ;
end
while i do
if i.children then
#
# If there are still-lower-level index nodes,
# output links to them.
#
print "" ,
print_name i.first.name ;
# RJP skip titles
# if i.first.title then
# print " (" i.first.title ")" ,
# end
print " -- to -- " ,
print_name i.last.name ;
# RJP skip titles
# if i.last.title then
# print " (" i.last.title ")" ,
# end
print "
" ;
else
#
# If we have reached a leaf node of the index,
# output a link to the corresponding individual data page.
#
# RJP print nothing at all for living people so move this inside the test
# print "" ;
# print "" ,
# print_name i.first.name ;
# RJP
# if i.first.living then
if PRIVATE & ~i.first.death then
# RJP
# print "" ,
else
# RJP This could be troublesome HTML!
print "" ;
print "" ,
# RJP title before name
if i.first.title then
print i.first.title ;
end
print_name i.first.name ;
# RJP
# if i.first.title then
# print " (" i.first.title ")" ,
# end
# RJP insert the reference number for identification
if i.first.refns then
print " #" i.first.refns.number ,
end
print "" ,
print " (" ,
birth_and_death i.first ;
print ")" ,
# RJP
print "
" ;
end
# RJP
# print "
" ;
end
if ~i.next then
print "
" ; # if i then # RJP if i & (i.parent | i.prev | i.succ) then print "
" ; if i.parent then if UP_TEXT then index_link UP_TEXT i.parent which ; else index_link "UP" i.parent which ; end end if i.prev then if BACK_TEXT then index_link BACK_TEXT i.prev which ; else index_link "BACK" i.prev which ; end else set pred to i.pred if pred then if BACK_TEXT then index_link BACK_TEXT i.parent.pred which ; else index_link "BACK" i.parent.pred which ; end end end if i.next then if NEXT_TEXT then index_link NEXT_TEXT i.next which ; else index_link "NEXT" i.next which ; end else set succ to i.succ if succ then if NEXT_TEXT then index_link NEXT_TEXT i.succ which ; else index_link "NEXT" i.succ which ; end end end # RJP print "
" ; end # RJP move to inside if # print "" ; } # Output a link to a node i in the persons index, # with d as the highlighted text of the link. # The third argument is zero for persons index, nonzero for # surnames index define index_link d s which { print "" d "" , print " (" , if which then emit_surname s.first.surname ; print " - " , emit_surname s.last.surname ; else print_name s.first.name ; print " - " , print_name s.last.name ; end print ")" ; } # Routine that outputs information from the GEDCOM header on # each index page. define header_info { print NUMBER_OF_INDIVIDUALS " " , print_alternatives INDIVIDUALS_TEXT "individuals" ; print ", " NUMBER_OF_FAMILIES " " , print_alternatives FAMILIES_TEXT "families" ; if HEADER.filename then print " " , print_alternatives FROM_FILE_TEXT "from file" ; print " " HEADER.filename , if HEADER.date then print " (" HEADER.date.value ")" ; end end } # Output submitter information from the GEDCOM header define submitter_info s local t { if s.name | s.address | s.phone then print "
" ,
print_alternatives AUTHOR_TEXT "Author" ;
print_alternatives COLON_TEXT ": " ;
print "
" ,
if s.name & s.name.text then
print s.name.text ,
print "
" ;
end
if s.address & s.address.text then
set t to s.address.text
while t do
print t.text ,
if t.cont then
print ", " ,
set t to t.cont
else
set t to t.conc
end
end
print "
" ;
end
if s.phone & s.phone.text then
print s.phone.text ;
end
print "
" TITLE "
" ; print "" , print_alternatives INDEX_OF_SURNAMES_TEXT "Index of Surnames" ; print "
" ; # RJP print disclaimer if PRIVATE then print "Note that you may find surnames in this index which are not in the online" ; print "database. This is a side effect of the privacy policy when all the people with" ; print "that surname are living.
" ; end if ~(s.parent & s.parent.parent) then # RJP no one is interested in this, it is always me. # print "" , # header_info ; # if HEADER.copr then # print "" HEADER.copr ; # end # print "" ; # if HEADER.note then # print "
" ; # print_text HEADER.note 0 ; # print "
" ; # end # if HEADER.submitter then # submitter_info HEADER.submitter ; # end # RJP this goes at the end # author_contact ; end # # If the index consists of a single node, and we haven't been # asked to produce a hierarchical index, then use "alphabet tab" format # if ~s.children & SURNAME_WIDTH = 0 & ~NO_ALPHABET_TABS then do_alphabetical s ; # # Otherwise use the more general hierarchical format # else print "" ;
while s do
if s.children then # Internal node of hierarchical index
# emit index tabs to lower levels
print "" ;
emit_surname s.first.surname ;
print " -- to -- " ,
emit_surname s.last.surname ;
print "
" ;
else # Leaf node of hierarchical index
# emit links to persons index
print "" ,
emit_surname s.first.surname ;
print "" ,
if s.next then
print "," ;
else
print ;
end
end
if ~s.next then
print "
" ; for l in tabs do print "" l "" ; end print "
" ; for l in tabs do if s & s.first then print "" ;
while s & s.first & (~s.first.surname | s.first.surname <= l) do
print "" ,
emit_surname s.first.surname ;
print "" ,
set n to s.succ
if n & n.first then
if n.first.surname & n.first.surname <= l then
print "," ;
else
print "
" ;
end
else
print ;
end
set s to n
end
print "
" l "
" ; end if s then print "" ; while s do print "" , emit_surname s.first.surname ; print "" , set n to s.succ if n then print "," ; else print ; end set s to n end print "
" ; end } # Routine for outputting a link to a node s in the surnames index, # with d as the highlighted text of the link. define surname_link d s { print "" d "" , print " (" , emit_surname s.first.surname ; print " - " , emit_surname s.last.surname ; print ")" ; } # Routine for outputting either ??? or a surname. define emit_surname s { if s then print s , else print "???" , end } #--------------------------------------------------------------------- # INDIVIDUALS PAGES #--------------------------------------------------------------------- # Output a page of individuals. # Parameter i is head of a list of individuals to be output # in a single page. define do_individuals_ i local ii ok { # If we are doing family group sheet output, then we only output # something if there is an individual in the list who doesn't belong # to any family group. So, scan for this first. set ok to 0 set ii to i if FAMILY_GROUPS then while ii & ~ok do if ~ii.families & ~ii.marriages then set ok to 1 end set ii to ii.next end else set ok to 1 end # RJP supress the whole file for living people # It seems that if nothing is written, then no file is created - good. # if ok then if ok & (~PRIVATE | i.death) then # RJP # print "" ; print DTD ; # print "" ; print "" ; print "" ; print "
" , print_name i.name ; if i.refns then print " #" i.refns.number , end print "
" ; do_note i.living 1 ; print "" ; print_alternatives INDEX_TEXT "INDEX" ; print "
" ; } # Routine for outputting the data on an individual page for which # the individual is not flagged as "living". define do_individual i # RJP #local br fn s e a r f c n o local br fn s e a r f c n o nm { # RJP include title print "" TITLE "
" ; # RJP don't need the locator # print "" ,
print "" ,
# RJP move picture to a little later
# include i.xref ^ ".img"
# RJP title before name
if i.title then
print i.title " " ,
end
# RJP use do_name which includes the name source references we want
# print_name i.name ;
do_name i.name 0 ;
# if i.title then
# print " (" i.title ")" ,
# end
# RJP add reference number
if i.refns then
print "#" i.refns.number ,
end
print "
" ;
# RJP insert picture here
include INCLUDE_DIR ^ i.xref ^ ".img"
# RJP I would liked to have printed the aliases here but FTM doesn't generate the right
# GEDCOM text (i.aliases is set but there is no name field)
# RJP no references to notes are needed, they are in full below
# if i.name & i.name.notes then
# for n in i.name.notes do
# do_note n 0 ;
# end
# end
# if i.notes then
# for n in i.notes do
# do_note n 0 ;
# end
# end
for s in i.sources do
source_link s ;
end
print "" ,
birth_and_death i;
print "
" ;
# RJP reference number removed from list
# if i.events | i.attributes | (i.names & i.names.next) | i.rfn
# | i.afn | i.refns | i.rin | i.ordinances then
if i.events | i.attributes | (i.names & i.names.next) | i.rfn
| i.afn | i.rin | i.ordinances then
print "" ;
if i.names & i.names.next then
for n in i.names.next do
do_name n 1 ;
end
end
if i.attributes then
for a in i.attributes do
do_attr a 1 ;
end
end
if i.events then
for e in i.events do
do_event e 1 ;
end
end
if i.ordinances then
for o in i.ordinances do
do_ordn o 1 ;
end
end
if i.rfn then
do_attr i.rfn 1 ;
end
if i.afn then
do_attr i.afn 1 ;
end
# RJP already included
# if i.refns then
# for r in i.refns do
# do_refn r 1 ;
# end
# end
if i.rin then
do_attr i.rin 1 ;
end
print "
" ;
end
# RJP the code that follows does not consider the possibility of multiple parents
# (adoption, fostering etc.). The data should be available via the i.families list.
set br to 0
if i.father then
set br to 1
# RJP tidy up HTML
# print "" ,
print "
" ,
print_alternatives FATHER_TEXT "Father" ;
print_alternatives COLON_TEXT ": " ;
# RJP check not still alive
print "" ,
# print " " ,
if ~PRIVATE | i.father.death then
print "" ,
print_name i.father.name ;
# RJP add reference number
# print "
" ;
if i.father.refns then
print " #" i.father.refns.number ,
end
print "" ,
end
print "
" ,
print_alternatives MOTHER_TEXT "Mother" ;
print_alternatives COLON_TEXT ": " ;
# RJP check not still alive
print "" ,
# print " " ,
if ~PRIVATE | i.mother.death then
print "" ,
print_name i.mother.name ;
# RJP add reference number
# print "
" ;
if i.mother.refns then
print " #" i.mother.refns.number ,
end
print "" ,
end
print "
" ; # end # RJP moved here from further down to keep them with the individual indiv_notes i 1 ; # RJP count marriages set nm to 0 for f in i.marriages do set nm to nm + 1 end set fn to 1 for f in i.marriages do # RJP tidy up HTML # print "" , print "
" , print_alternatives FAMILY_TEXT "Family" ; # RJP only if more than one # print " " fn "
" ; if nm > 1 then print " " fn , end print_alternatives COLON_TEXT ": " ; # RJP print "" ; # RJP insert picture here include INCLUDE_DIR ^ f.xref ^ ".img" if i.ismale & f.wife then # RJP omit if living if ~PRIVATE | f.wife.death then # RJP caption # print "" , print "Wife: " , print_name f.wife.name ; # RJP add refereence number # print "" ; if f.wife.refns then print " #" f.wife.refns.number , end print "
" ; end end if i.isfemale & f.husband then # RJP omit if living if ~PRIVATE | f.husband.death then # RJP caption # print "" , print "Husband: " , print_name f.husband.name ; # RJP add reference number # print "" ; if f.husband.refns then print " #" f.husband.refns.number , end print "
" ; end end # RJP refns removed from list # if f.events | f.ordinances | f.refns | f.rin then if f.events | f.ordinances | f.rin then print "- " ;
for e in f.events do
do_event e 1 ;
end
for o in f.ordinances do
do_ordn o 1 ;
end
# RJP not used
# for r in f.refns do
# do_refn r 1 ;
# end
# BMG comments that this should be a for loop - I am not sure what it is anyway,
# but the documentation does not call for a list, nor does the GEDCOM specification
if f.rin then
do_attr f.rin 1 ;
end
print "
- " ;
print "
- " , print "
- " , if ~PRIVATE | c.death then child_had_issue c ; print "" , print_name c.name ; # RJP add reference number if c.refns then print " #" c.refns.number , end print "" ; end # RJP end list item print " " ; end print "
- is output, # together with the GEDCOM tag associated with the attribute. define do_name n item local s nn { if item then print "
- " n.tagname.upper ": " ,
end
if n.fullname then
print n.fullname ;
end
for nn in n.notes do
do_note nn 0 ;
end
for s in n.sources do
source_link s ;
end
}
# Routine for outputting the full text of a name,
# if the name is non-null, and do nothing otherwise.
define print_name n
{
if n then
print n.fullname ,
end
}
# Routine to output an indication of whether family line continues
# with a given individual
define child_had_issue c
local s f
{
set s to " "
for f in c.marriages do
if f.children then
set s to "+"
end
end
print "" s "" ,
}
# Emit the proper URL to take us to the page that has the data
# for a given individual.
#
# If we aren't producing family group sheets, then just link to
# the URL for the individual.
# If we are producing family group sheets, then link to the most
# appropriate family page:
# If the individual has a marriage, then the link goes to that
# family's page.
# If the individual has no marriage, then the link goes to the first
# family in which the individual is listed as a child.
# If the individual is not a child in any family, then the link goes
# to the page for that individual.
#
# When doing family groups, the f argument specifies the particular
# family group to which the link should go.
define indiv_url i
local m
{
if FAMILY_GROUPS then
if i.marriages then
set m to i.marriages
if m then
print m.url "#" i.xref ,
end
else
set m to i.families
if m then
print m.url "#" i.xref ,
else
print i.url ,
end
end
else
print i.url ,
end
}
define indiv_family_url i f
local m notfound
{
if FAMILY_GROUPS then
set notfound to 1
if i.marriages then
for m in i.marriages do
if m = f then
print m.url "#" i.xref ,
set notfound to 0
end
end
if notfound then
print i.marriages.url "#" i.xref ,
end
elseif i.families then
for m in i.families do
if m = f then
print m.url "#" i.xref ,
set notfound to 0
end
end
if notfound then
print i.families.url "#" i.xref ,
end
else
print i.url ,
end
else
print i.url ,
end
}
#---------------------------------------------------------------------
# FAMILY GROUP PAGES
#---------------------------------------------------------------------
# Output a page of families.
# Parameter f is head of a list of families to be output
# in a single page.
define do_families_ f
{
# If we are not doing family-group-style output, then do nothing
if FAMILY_GROUPS then
print "" ;
print "" ;
print "" ;
print "
" , if f.husband then print_name f.husband.name ; else print "(Unknown)" , end print " / " , if f.wife then print_name f.wife.name ; else print "(Unknown)" , end print " " ; if ~OMIT_META then print "" ; print "" ; print "" ; end print "" ; html_body ; while f do do_family f ; set f to f.next end print "" ; print "
Children: " , if PRIVATE then print " (not shown if possibly living)" , end print "
- " ;
for c in f.children do
# RJP omit if living (non blanking space to ensure that item number is listed)
# print "
" ; end set fn to fn+1 end # RJP provide style sheet connection # print "
" ; print "
" ; pedigree i ; print "
" ; # RJP link to introduction print "" ; print "" ; # RJP pointer to surnames index print "" ; # # Emit all notes and sources associated with this individual. # # RJP these have already been done above # indiv_notes i 1 ; # for f in i.marriages do # family_notes f 1 ; # end # RJP Heading print "