/usr/share/lifelines/pedtex/pedtex.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 62 63 64 65 | /*
* @progname pedtex.ll
* @version 1.0
* @author Eric Majani
* @category
* @output TeX
* @description
*
* generates TeX files for pedigree charts
*/
global(depth)
global(level)
proc main ()
{
getindi(indi)
set(prompt,"Enter number of generations desired")
getintmsg(depth,prompt)
"\\input setup" nl()
"\\tree " nl()
set(level,1)
call pedout(indi)
"\\endtree " nl()
"\\end " nl()
}
proc printindi(indi)
{
"{\\bf " name(indi) "}" nl()
if (e, birth(indi)) { " b. " short(e) nl() }
if(male(indi))
{
spouses(indi,sp,fam,num)
{
if(e,marriage(fam)) { " m. " short(e) nl() }
}
}
if (e, death(indi)) { " d. " short(e) nl() }
}
proc pedout(indi)
{
call printindi(indi)
set(level,add(level,1))
if(le(level,depth))
{
if (par,father(indi))
{
set(fath,father(indi))
"\\subtree " nl()
call pedout(fath)
"\\endsubtree " nl()
}
if (par,mother(indi))
{
set(moth,mother(indi))
"\\subtree " nl()
call pedout(moth)
"\\endsubtree " nl()
}
}
set(level,sub(level,1))
}
|