/*
* @progname reg_html.ll
* @version none
* @author Wetmore, Prinke
* @category
* @output HTML
* @description
*
* The output produces a HTML-marked file (without header) with
* one family group per line so that it is displayed on WWW when
* found with grep and properly formatted.
* Continental European genealogical symbols are used:
* * = born + = died x = married
*
* Original code by Tom Wetmore, ttw@cbnewsl.att.com, 1990
* Modified for HTML/WWW by Rafal Prinke, rafalp@plpuam11.bitnet, 1995
*
* This program is based on regvital by Tom Wetmore. I deleted
* all nroff output code and indexing code, and made some other
* modifications.
*
*
* The CGI script I wrote for searching the file and then navigating
* through it using the personal key numbers in angle brackets:
*
* #!/bin/sh
* echo Content-type: text/html
* echo
* if [ $# = 0 ]
* then
* echo ""
* echo "Surname search"
* echo ""
* echo ""
* echo ""
* echo "Give the surname of the family
"
* echo "Regular expressions allowed"
* echo ""
* else
* echo "
"
* echo "Search results"
* echo ""
* echo ""
* echo ""
* echo "Now you can jump to any person displayed
"
* echo "type the person's number in angle brackets (lesser/greater)"
* grep -i "$*" <>
* echo ""
* fi
*
*
*
*/
proc main ()
{
monthformat(2)
dateformat(5)
forindi(indi,n) {
print(" ") print(name(indi)) print(nl())
call longvitals(indi)
set(j,1)
families(indi,fam,spouse,nfam) {
if (eq(1,nspouses(indi))) {
"- x " }
else { "
- x " d(j) ") "
set(j,add(j,1)) }
if (eq(0,nchildren(fam))) {
call spousevitals(spouse,fam)
", children not recorded [" key(spouse,1) "]" }
else {
call spousevitals(spouse,fam)
" [" key(spouse,1) "]"
children(fam,child,nchl) {
"
- " d(nchl) ". "
name(child) " [" key(child,1) "]"
}
}
"
"
}
}
}
proc longvitals(i)
{
set(father,father(i))
set(mother,mother(i))
nl() "-------------------------"
if (or(father,mother)) {
"Parents: "
if (father) { name(father) }
if (and(father,mother)) { " & " }
if (mother) { name(mother) }
}
"
<" key(i,1) ">" givens(i) " " surname(i) "
"
set(e,birth(i))
if(or(date(e),place(e))) { " * " }
if(date(e)) { stddate(e) ", " }
if(place(e)) { place(e) ", " }
set(e,death(i))
if(or(date(e),place(e))) { " + " }
if(date(e)) { stddate(e) ", " }
if(place(e)) { place(e) ", " }
fornodes(inode(i), node) {
if (eq(0,strcmp("OCCU", tag(node)))) {
value(node) ", "
}
}
fornodes(inode(i), node) {
if (eq(0,strcmp("NOTE", tag(node)))) {
value(node)
fornodes(node, subnode) {
if (or(eqstr("CONT",tag(subnode)),
eqstr("CONC",tag(subnode)))) {
" " value(subnode)
}
}
}
}
}
proc spousevitals (sp,fam)
{
set(e,marriage(fam))
if(date(e)) { stddate(e) ", " }
if(place(e)) { place(e) ", " }
name(sp)
}