File: bkdes16-1.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 (62 lines) | stat: -rw-r--r-- 1,746 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
/* 
 * @progname       bkdes16-1.ll
 * @version        1.0
 * @author         Wetmore, Manis
 * @category       
 * @output         Text
 * @description    
 *
 *   It will produce a report of all descendents of a person,
 *   and is presently designed for 16 pitch, HP laserjet III.
 *   This report produces an ASCII file, in output format.
 *
 *   bkdes16-1
 *
 *   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 ()
{
        set (nl,nl())
        getindi(indi)
        col(10) "Report by:  Cliff Manis   MANIS / MANES Family History   P. O. Box 33937   San Antonio, TX  78265-3937 "
        nl()
        col(10) "Phone:  1-512-654-9912"
        nl()
        col(10) "Date:   27 Jun 1992"
        nl() nl()
        col(10)"DESCENDANTS OF: " name(indi) nl() nl()
        call pout(0, indi)
}
proc pout(gen, indi)
{
	col(10) print(name(indi)) print(nl())
        set(ndots, 0)
        while (lt(ndots, gen)) {". " set(ndots, add(1,ndots))}
        "* " name(indi)
        if (e, birth(indi)) {", b. " long(e) }
        nl()
        col(10) spouses(indi,sp,fam,num) {
                set(ndots, 0)
                col(10) while (lt(ndots, gen)) {"  " set(ndots,add(1,ndots))}
                "    m. " name(sp) nl()
        }
        set(next, add(1,gen))
        if (lt(next,15)) {
                families(indi,fam,sp,num) {
                        children(fam, child, no) {
                                call pout(next, child)
                        }
                }
        }
}

/* end of report */