File: familyisfm1.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 (95 lines) | stat: -rw-r--r-- 3,304 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
88
89
90
91
92
93
94
95
/* 
 * @progname       familyisfm1.ll
 * @version        1.0
 * @author         Wetmore, Manis
 * @category       
 * @output         Text, 132 cols
 * @description    
 *
 *   It will produce a report of all the INDI's in the database,
 *   in the format as seen at end of report.  May be sorted easily
 *   to see the Father or Mother column sorted report.
 *   The report name come from: isfm (Indi Spouse Father Mother)
 *   It is designed for 16 pitch, HP laserjet III, 132 column
 *   (ASCII output).
 *
 *   familyisfm1
 *
 *   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 1991,
 *   and it has been modified many times since.
 *
 */
 

/* 
 *  familyisfm1 
 */

proc main ()
{
        indiset(idx)		
        forindi(indi,n) {
                addtoset(idx,indi,n) 	
                print(d(n)) print(" ")
        }
        print(nl())
        print("begin sorting") print(nl())
        namesort(idx) 
        print("done sorting") print(nl())
        col(1) "INDEX OF ALL PERSONS IN DATABASE"
        col(1) "Individual"
        col(34) "Brth"
        col(39) "Deat"
        col(44) "First Spouse"
        col(75) "Father"
        col(106) "Mother"
        col(1) "----------------------------------------"
        "----------------------------------------"
        "----------------------------------------"
        forindiset(idx,indi,v,n) { 
                col(1) fullname(indi,1,0,29)
                col(34) year(birth(indi))
                col(39) year(death(indi))
                if(gt(nspouses(indi), 0)) {
                        spouses(indi, spou, fam, n) {
                                if (eq(1,n)) {
                                        col(44) fullname(spou,1,0,29)
                                }
                        }
                }
                if(fath,father(indi)) {
                        col(75) fullname(fath,1,0,29)
                }
                if(moth,mother(indi)) {
                        col(106) fullname(moth,1,0,29)
                }
        }
        nl()
        print(nl())
}

/* Sample output of this report.

INDEX OF ALL PERSONS IN DATABASE
Individual                       Brth Deat First Spouse                   Father                   Mother
------------------------------------------------------------------------------------------------------------------------
CUNNINGHAM, Margaret                       COLQUHOUN, Sir_John
DE_COLQUHOUN, Sir_Humphry        1280 1330                                DE_COLQUHOUN, Sir_Ingelramus
DE_COLQUHOUN, Sir_Ingelramus     1250                                     DE_COLQUHOUN, Sir_Robert
DE_COLQUHOUN, Sir_Robert         1310 1390 ____, Lady_of_Luss             DE_COLQUHOUN, Sir_Humphry
DE_COLQUHOUN, Sir_Robert         1220 1280                                DE_KILPATRICK, Umfridus
DE_KILPATRICK, Umfridus          1190 1260
DENTON, Denise Marie             1955      MANESS, Marion
DOUGLAS, Archibald                         DUNBAR, Elizabeth
DUNBAR, Elizabeth                     1485 DOUGLAS, Archibald             DUNBAR, James
HAMILTON, Judith                 1662      CALHOUN, Alexander

*/

/* End of Report */