/usr/share/lifelines/marriages1.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 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | /*
* @progname marriages1.ll
* @version 1.0
* @author Wetmore, Manis
* @category
* @output Text, 80 cols
* @description
*
* select and produce an a output report of all marriages in
* the database, with date of marriage if known.
*
* marriages1
*
* Code by Tom Wetmore, ttw@cbnewsl.att.com
* With 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,
*
* select and produce an a output report of all marriages in
* the database, with date of marriage if known.
*
* Output is an ASCII file, and may be printed using 80 column format.
*
* An example of the output may be seen at end of this report.
*/
proc main ()
{
indiset(idx)
forindi(indi, n) {
if (and(male(indi),gt(nspouses(indi),0))) {
addtoset(idx,indi,0)
print("y")
} else {
print("n")
}
}
print(nl())
print("beginning sort")
print(nl())
namesort(idx)
print("ending sort")
print(nl())
col(1) "Male Person"
col(30) "Date"
col(50) "Female Person"
col(1)
"-----------------------------------------"
"-------------------------------------"
forindiset(idx,husb,val,n) {
col(1) fullname(husb, 1,0,29)
spouses(husb,wife,famv,m) {
col(30) trim(date(marriage(famv)), 20)
col(50) fullname(wife, 1,0,29)
}
print(".")
}
nl()
print(nl())
}
/* Sample output of this report.
Male Person Date Female Person
------------------------------------------------------------------------------
BARTH, Johann Ludwig ____, Hanna
BIRD, Jacob ____, Mrs.
BIRD, John SHRADER, Elizabeth
BOWERS, Anderson ABT 1828 COWAN, Lurina Viney "Vina"
BOWERS, James ____, Martha
BRADSHAW, John F. CLENDENIN, Agnes "Annie"
CANTER, Henry B. ____, Polina
CANTER, James H. 20 APR 1867 WHITEHORN, Martha Marie
CASON, David ca 1790 ____, Mary
*/
/* End of Report */
|