/usr/share/lifelines/bkdes16-1.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 58 59 60 61 | /*
* @progname bkdes16-1.ll
* @version 1.0
* @author Wetmore, Manis
* @category
* @output Text
* @description
*
* It will produce a report of all descendents of a person,
* and is presently designed for 16 pitch, HP laserjet III.
* This report produces an ASCII file, in output format.
*
* bkdes16-1
*
* Code by Tom Wetmore, ttw@cbnewsl.att.com
* Modifications by Cliff Manis
*
* This report works only with the LifeLines Genealogy program
*
* version one of this report was written by Tom Wetmore, in 1990,
* and it has been modified many times since.
*
*/
proc main ()
{
set (nl,nl())
getindi(indi)
col(10) "Report by: Cliff Manis MANIS / MANES Family History P. O. Box 33937 San Antonio, TX 78265-3937 "
nl()
col(10) "Phone: 1-512-654-9912"
nl()
col(10) "Date: 27 Jun 1992"
nl() nl()
col(10)"DESCENDANTS OF: " name(indi) nl() nl()
call pout(0, indi)
}
proc pout(gen, indi)
{
col(10) print(name(indi)) print(nl())
set(ndots, 0)
while (lt(ndots, gen)) {". " set(ndots, add(1,ndots))}
"* " name(indi)
if (e, birth(indi)) {", b. " long(e) }
nl()
col(10) spouses(indi,sp,fam,num) {
set(ndots, 0)
col(10) while (lt(ndots, gen)) {" " set(ndots,add(1,ndots))}
" m. " name(sp) nl()
}
set(next, add(1,gen))
if (lt(next,15)) {
families(indi,fam,sp,num) {
children(fam, child, no) {
call pout(next, child)
}
}
}
}
/* end of report */
|