File: 2ppage.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 (191 lines) | stat: -rw-r--r-- 6,185 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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
/*
 * @progname    2ppage.ll
 * @version     1.0
 * @author      Wetmore, Manis
 * @category
 * @output      Text, 80 cols
 * @description
 *
 *   It will produce a report of all INDI's in the database, with
 *   two records printed per page.  Record 1 and 2 will be on the
 *   first page.
 *
 *   2ppage               (2 INDI's per page)
 *
 *
 *   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.
 *
 *   It will produce a report of all INDI's in the database, with
 *   two records printed per page.  Record 1 and 2 will be on the
 *   first page.
 *
 *   It will produce ASCII file output.

This short report show how many different things may be done with
the report language.

These next two paragraphs were by Tom, when he sent me the following
report - which we had been discussing via email.  At the time I wanted
this format for a book I was writing for a Mother-in-Law.

        This report is using the `pagemode' feature.  This allows use
use of the `pos' command to go to any row and column coordinate on a page.
The routine `pageout' dumps the current page to the output file, and
prepares for the program to compose another page.

        Notice how the `gettoday' function is used to get today's date to
print out.  Also note that the `mod' function is used to put every other
person on the top half, and the other every other person on the bottom
half.  Also note that the variable `page' counts the page numbers.

*/

proc main ()
{
        pagemode(66,80)
        monthformat(4)

        set(tday, save(stddate(gettoday())))

        set(page, 1)
        forindi(i, n) {
                if (mod(n,2)) {
                        pos(2,1)
"  = = = =  MANES / MANIS  Family  History  &  Genealogy  = = =  " tday nl()
                        pos(65,1)
"  = = =   Cliff Manis, PO Box 33937, San Antonio, TX 78265  = = " d(page)
nl ()
                        set(page, add(page,1))
                        pos(4,1)
                        call oneout(i)
                } else {
                        pos(34,1)
                        call oneout(i)
                        pageout()
                }
        }
        if (mod(n,2)) {
                pageout()
        }
}
proc oneout (i)
{
        set(f, father(i))
        set(m, mother(i))

        "  FULL NAME:   " name(i) col(46) "(" key(i) ")" nl() nl()
        "     FATHER:   " name(f) col(46) "(" key(f) ")" nl()
        "     MOTHER:   " name(m) col(46) "(" key(m) ")" nl() nl()
        "  Born:        " stddate(birth(i))  " at " place(birth(i)) nl()
        call outmarriages(i) nl()
        "  Died:        " stddate(death(i))  " at " place(death(i)) nl() nl()
        call outchildren(i)
}
proc outmarriages (i)
{
        spouses(i, s, f, n) {
                if (eq(1, n)) {
                        "  Married:     " stddate(marriage(f)) nl()
                        "  Married to:  " name(s) col(46) "("key(s)")" nl()
                } else {
                        "  Remarried:   " stddate(marriage(f)) nl()
                        "  Remarried to:" name(s) col(46) "("key(s)")" nl()
                }
        }
}
proc outchildren (i)
{
        set(j, 0)
        families(i, f, s, n) {
                set(j, add(j, nchildren(f)))
        }
        "  Number of Children:     " d(j) nl()
        set(j, 1)
        families(i, f, s, n) {
                children(f, c, m) {
                        "   " d(j) ".  " name(c) col(46) "("key(c)")"
                        col(57) "Born:  " stddate(birth(c)) nl()
                        set(j, add(j,1))
                }
        }
}


/*
 * Sample output


  = = = =  MANES / MANIS  Family  History  &  Genealogy  = = =  15 Jan 1993

  FULL NAME:   Wilee "Wyley" WORWICK         (3)

     FATHER:   Wyley WORWICK                 (1)
     MOTHER:   Wife of Wyley WORWICK         (2)

  Born:               1824 at
  Married:     31 Oct 1844
  Married to:  Martha D. JOHNSON             (4)

  Died:           Nov 1874 at Union Co, TN

  Number of Children:     10
   1.  Tempia Catherine WARWICK              (5)        Born:         1846
   2.  Louisa Mahayla WARWICK                (6)        Born:         1848
   3.  Margarett WARWICK                     (7)        Born:         1850
   4.  Mary WARWICK                          (8)        Born:         1852
   5.  Matilda WARWICK                       (9)        Born:         1854
   6.  Calaway WARWICK                       (10)       Born:  29 Jul 1855
   7.  Jamima WARWICK                        (11)       Born:         1858
   8.  Nancy Elizabeth WARWICK               (12)       Born:         1860
   9.  Rebecca WARWICK                       (13)       Born:         1864
   10.  Martha WARWICK                       (14)       Born:     Sep 1869








  FULL NAME:   Martha D. JOHNSON             (4)

     FATHER:                                 ()
     MOTHER:                                 ()

  Born:               1825 at NC
  Married:     31 Oct 1844
  Married to:  Wilee "Wyley" WORWICK         (3)
  Remarried:
  Remarried to:William PETREE                (22)

  Died:         at

  Number of Children:     10
   1.  Tempia Catherine WARWICK              (5)        Born:         1846
   2.  Louisa Mahayla WARWICK                (6)        Born:         1848
   3.  Margarett WARWICK                     (7)        Born:         1850
   4.  Mary WARWICK                          (8)        Born:         1852
   5.  Matilda WARWICK                       (9)        Born:         1854
   6.  Calaway WARWICK                       (10)       Born:  29 Jul 1855
   7.  Jamima WARWICK                        (11)       Born:         1858
   8.  Nancy Elizabeth WARWICK               (12)       Born:         1860
   9.  Rebecca WARWICK                       (13)       Born:         1864
   10.  Martha WARWICK                       (14)       Born:     Sep 1869







  = = =   Cliff Manis, PO Box 33937, San Antonio, TX 78265  = = 2

 - end of report -

 */