/usr/share/lifelines/index1.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 | /*
* @progname index1.ll
* @version 1.0
* @author Wetmore, Manis
* @category
* @output Text
* @description
*
* This program produces a report of all INDI's in the database, with
* sorted names as output.
* It is presently designed for 12 pitch, HP laserjet III,
* for printing a index of person in the database (ASCII output).
*
* index1
*
* 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 ()
{
indiset(idx)
monthformat(4)
forindi(indi,n) {
addtoset(idx,indi,n)
print(".")
}
print(nl()) print("indexed ") print(d(n)) print(" persons.")
print(nl())
print(nl())
print("begin sorting") print(nl())
namesort(idx)
print("done sorting") print(nl())
col(1) "======================================================================" nl()
col(16) "INDEX OF ALL PERSONS IN DATABASE" nl()
col(1) " " nl()
col(1) " " nl()
col(1) "LAST, First Index # Birthdate Deathdate" nl()
col(1) "-------------------------------- -------- ------------ ------------" nl()
forindiset(idx,indi,v,n) {
col(1) fullname(indi,1,0,30)
col(35) key(indi)
col(44) stddate(birth(indi))
col(60) stddate(death(indi))
print(".")
}
nl()
print(nl())
}
/* End of Report */
|