/usr/share/lifelines/nonpatronymics.ll is in lifelines-reports 3.0.61-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | /*
* @progname nonpatronymics.ll
* @version 1.0
* @author Eggert
* @category
* @output Text
* @description
*
* Find all cases of nonpatronymic inheritances in the database.
* If the child's surname is not identical to the father's surname,
* print both out. If the two surnames have different soundex
* codes, undent the printout. Print statistics at the end.
*
* nonpatronymics
*
* Code by Jim Eggert, eggertj@ll.mit.edu
*
* This report works only with the LifeLines Genealogy program
*
* version one of this report was written by Jim Eggert, in 1992.
*
* Output is an ASCII file.
*/
proc main ()
{
set(n,0)
set(ns,0)
set(header,0)
forindi(indi,num1) {
if (fath,father(indi)) {
if (ne(0,strcmp(surname(indi),surname(fath)))) {
if (eq(header,0)) {
"Dissimilar surnames" nl()
" Similar surnames" nl()
set(header,1)
}
if (eq(strcmp(save(soundex(indi)),
save(soundex(fath))),0)) {
" "
set(ns,add(ns,1))
}
d(num1) " " name(indi)
" <> "
name(fath)
nl()
set(n,add(n,1))
}
}
}
nl() d(num1) " individuals scanned." nl()
d(n) " nonpatronymic inheritances found"
if (eq(n,0)) { "." nl() }
else { "," nl()
d(sub(n,ns)) " of which were soundex-dissimilar." nl()
}
}
|