File: relate.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 (108 lines) | stat: -rw-r--r-- 3,332 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
96
97
98
99
100
101
102
103
104
105
106
107
108
/*
 * @progname       relate.ll
 * @version        1.0
 * @author         Wetmore
 * @category       
 * @output         Text
 * @description    
 *
 *  Finds a shortest path between two persons in a LifeLines database.
 *  Inspiration from Jim Eggert's relation program.


relate - Finds a shortest path between two persons in a LifeLines
        database.
        by Tom Wetmore (ttw@petrel.att.com)
        Inspiration from Jim Eggert's relation program
        Version 1, 07 September 1993
*/

proc main ()
{
        getindimsg(from, "Please identify starting person.")
        getindimsg(to, "Please identify ending person.")
        if (and(from, to)) {
                print("Computing relationship between:\n  ")
                print(name(from)) print(" and ")
                print(name(to)) print(".\n\nThis may take awhile -- ")
                print("each dot is a person.\n")

                set(fkey, save(key(from)))
                set(tkey, save(key(to)))
                call relate(tkey, fkey)
        } else {
                print("We're ready when you are.")
        }
}

global(links)
global(rels)
global(klist)

proc relate (fkey, tkey)
{
        table(links)    /* table of links back one person */
        table(rels)     /* table of relationships back one person */
        list(klist)     /* list of persons not linked back to */

        insert(links, fkey, fkey)
        insert(rels, fkey, ".")
        enqueue(klist, fkey)
        set(again, 1)

        while (and(again, not(empty(klist)))) {
                set(key, dequeue(klist))
                set(indi, indi(key))
                call include(key, father(indi), ", father of")
                call include(key, mother(indi), ", mother of")
                families(indi, fam, spouse, num1) {
                        children(fam, child, num2) {
                                call include(key, child, ", child of")
                        }
                        if (spouse) {
                                call include(key, spouse, ", spouse of")
                        }
                }
                if (fam, parents(indi)) {
                        children(fam, child, num2) {
                                call include(key, child, ", sibling of")
                        }
                }
                if (key, lookup(links, tkey)) {
                        call foundpath(tkey)
                        set(again, 0)
                }
        }
        if (again) {
                print("They are not related to one another.")
        }
}

proc include (key, indi, tag)
{
        if (and(indi, not(lookup(links, key(indi))))) {
                print(".")
                set(new, save(key(indi)))
                insert(links, new, key)
                insert(rels, new, tag)
                enqueue(klist, new)
        }
}

proc foundpath (key)
{
        print("\n\nA relationship between them was found:\n\n")
        set(again, 1)
        while (again) {
                print("  ")
                print(name(indi(key)))
                print(lookup(rels, key))
                print("\n")
                set(new, lookup(links, key))
                if (eq(0, strcmp(key, new))) {
                        set(again, 0)
                } else {
                        set(key, new)
                }
        }
}