File: pedigreel.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 (87 lines) | stat: -rw-r--r-- 3,141 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
82
83
84
85
86
87
/*
 * @progname       pedigreel.ll
 * @version        1.0
 * @author         Wetmore, Manis
 * @category       
 * @output         Text, 132 cols
 * @description    
 *
 *   select and produce a ancestor report for the person selected.
 *   Ancestors report format, which print the event in long format.
 *   Output is an ASCII file, and will probably need to be printed
 *   using 132 column format.
 *
 *   pedigreel
 *
 *   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,
 *   name is from pedigreel  (long format)
 *
 *   An example of the output may be seen at end of this report.
 */

proc main ()
{
	set (nl,nl())
	getindi(indi)
	call pedigree(0, 1, indi)
	nl()
}

proc pedigree (in, ah, indi)
{
	if (par, father(indi)) {
		call pedigree(add(1,in), mul(2,ah), par)
	}
	print(name(indi)) print(nl())
	col(mul(8,in)) fullname(indi,1,1,50)
	if (evt, birth(indi)) { ", b. " long(evt) }
	" (" d(ah) ")" nl()
	if (par, mother(indi)) {
		call pedigree(add(1,in), add(1,mul(2,ah)), par)
	}
}

/*  Sample output of this report.    132 Column Format.  

    This report was requested for "Fuller Ruben Manes".


                               John MANESS, b. ca 1770-1780 (16)
                       Samuel P. MANES, b. ca 1780-90 (8)
               William Thomas MANES, b. 26 Nov 1828, Hamblen, Tennessee (4)
                       Fanny (MANES), b. ca 1790-1800 (9)
       William Bowers MANES, b. 6 Jan 1868, Hamblen Co, TN ? (2)
                               James BOWERS (20)
                       Anderson BOWERS, b. ca 1803, TN (10)
                               Martha  (21)
               Martha A. BOWERS, b. 14 APR 1829, TN (5)
                                               William COWAN (88)
                                       Samuel COWAN (44)
                                               Mrs. (COWAN) (89)
                               Christopher Columbus COWAN, b. About 1765 (22)
                                       Mrs (COWAN) (45)
                       Lurina Viney "Vina" COWAN, b. 1808, TN (11)
                               Mary BOYD, b. 1772, Boyd's Creek, Sevier Co, TN (23)
Fuller Ruben MANES, b. 19 Nov 1902, Union Valley, Sevier Co, TN (1)
                       Henry B. CANTER, b. ca 1820, VA (12)
               James H. CANTER, b. ca 1847, Claiborne Co, TN (6)
                       Polina (CANTER), b. ca 1822 (13)
       Cordelia "Corda" F. CANTER, b. 7 Dec 1869, Jonesboro, Washington Co, TN (3)
                       James WHITEHORN, b. VA (14)
               Martha Marie WHITEHORN, b. 22 DEC 1846, Washington Co, TN ? (7)
                                       Thomas FOSTER (60)
                               Kennedy "Kan" Powell FOSTER, b. 1814 (30)
                       Martha "Patsy" FOSTER, b. Tennessee (15)
                                       David CASON (62)
                               Rebecca KERSAWN, b. 1818, NC (31)
                                       Mary  (63)

*/

/* End of Report */