File: marriages1.ll

package info (click to toggle)
lifelines 3.0.50-2
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 11,140 kB
  • ctags: 6,517
  • sloc: ansic: 57,468; xml: 8,014; sh: 4,255; makefile: 848; yacc: 601; perl: 170; sed: 16
file content (81 lines) | stat: -rw-r--r-- 2,266 bytes parent folder | download | duplicates (5)
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
81
/*
 * @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 */