mirror of
https://github.com/kennethreitz/context.git
synced 2026-06-05 14:50:19 +00:00
45 lines
1.5 KiB
LLVM
45 lines
1.5 KiB
LLVM
/*
|
|
* @progname ttable.ll
|
|
* @version none
|
|
* @author anon
|
|
* @category
|
|
* @output Text
|
|
* @description
|
|
*
|
|
* Compute Pete Cook's C-Table comparison vector, as modified by Tom.
|
|
*
|
|
* What is this? From l-lines list 10 Aug 1995 posting by Tom Wetmore:
|
|
*
|
|
* There has been discussion on person matching in genealogical databases,
|
|
* the use of metrics to compare persons to help locate duplicates.
|
|
*
|
|
* Pete Cook suggested the CID metric a ways back, and recently suggested the
|
|
* CTable metric. I remember another metric published in "Genealogical
|
|
* Computing" some time back. John Chandler (?) reminded us of a metric that
|
|
* is used by the Genserve project (which, by my own experience) works quite
|
|
* well.
|
|
* above 2 paragraphs inserted by Stephen Dum
|
|
*/
|
|
|
|
proc main ()
|
|
{
|
|
getindi(i, "Compute C-Table for what person?")
|
|
if (not(i)) { return() }
|
|
set(b, getyear(birth(i)))
|
|
set(f, father(i)) set(m, mother(i))
|
|
set(ff, father(f)) set(fm, mother(f))
|
|
set(mf, father(m)) set(mm, mother(m))
|
|
set(bf, getyear(birth(f))) set(bm, getyear(birth(m)))
|
|
set(bff, getyear(birth(ff))) set(bfm, getyear(birth(fm)))
|
|
set(bmf, getyear(birth(mf))) set(bmm, getyear(birth(mm)))
|
|
print( b, " ", bf, " ", bm, " ")
|
|
print(bff, " ", bfm, " ", bmf, " ", bmm, " ")
|
|
print(sex(i), " ", soundex(i), " ", trim(givens(i), 1), "\n")
|
|
}
|
|
func getyear(event)
|
|
{
|
|
set(y, atoi(year(event)))
|
|
if (and(ge(y, 1000), le(y, 2000))) {return(year(event))}
|
|
return("0000")
|
|
}
|