File: gendex.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 (73 lines) | stat: -rw-r--r-- 1,376 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
/*
 * @progname       gendex.ll
 * @version        1.2
 * @author         Scott McGee (smcgee@microware.com)
 * @category       
 * @output         HTML
 * @description

This report program converts a LifeLines database into html gendex document.
You will need to change the contents of proc html_address() and to
set the value of HREF appropriately to your server.

@(#)gendex.ll	1.2 10/14/95
*/

global(INDEX)
global(HREF)

proc main()
{
    indiset(INDEX)
    set(HREF, "/INDEX=")
    print("processing database\n")
    set(count, 0)
    set(name_count, 0)
    forindi(me,num)
    {
      if(eq(count, 100)){
        set(count, 0)
        print(".")
      }else{
        incr(count)
        incr(name_count)
      }
      addtoset(INDEX,me,1)
    }
    print("\nwriting file\n")
    call create_gendex_file()
    print("\n", d(name_count), " individuals\n")
}


proc create_gendex_file() {
  set(fn, save("GENDEX.txt"))
  newfile(fn, 0)
  forindiset(INDEX, me, v, n)
  {
    set(path, concat(HREF, save(key(me)), "/?LookupInternal"))
    path
    "|"
    surname(me)
    "|"
    givens(me) " /"
    surname(me) "/"
    "|"
    if (evt, birth(me)) {
      date(evt)
    }    
    "|"
    if (evt, birth(me)) {
      place(evt)
    }    
    "|"
    if (evt, death(me)) {
      date(evt)
    }    
    "|"
    if (evt, death(me)) {
      place(evt)
    }    
    "|\n"
  }
}