File: regvital1.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 (380 lines) | stat: -rw-r--r-- 13,780 bytes parent folder | download | duplicates (2)
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
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
/* 
 * @progname       regvital1.ll
 * @version        1.0
 * @author         Wetmore, Manis
 * @category       
 * @output         nroff
 * @description    
 *
 *   It will produce a report of all descendents of a person,
 *   and is presently designed for 12 pitch, HP laserjet III,
 *   for printing a book about that in ancestor.
 *   It prints a sorts listing of names, at the end of the report
 *   of everyone in the report.  All NOTE and CONT lines will
 *   be printed in the this report.  This report will produced
 *   a paginated output.
 *
 *   regvital1
 *
 *   This report does have a footer and header
 *
 *   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.
 *
 *   It will produce a report of all descendents of a person,
 *   and is presently designed for 12 pitch, HP laserjet III,
 *   for printing a book about that in ancestor.
 *
 *   It prints a sorts listing of names, at the end of the report
 *   of everyone in the report.  All NOTE and CONT lines will
 *   be printed in the this report.  This report will produced
 *   a paginated output.
 * 
 *   This report produces a nroff output, and to produce the
 *   output, use:  nroff filename > filename.out
 *
 */
 
global(idex)
proc main ()
{
    set (nl,nl())
    getindi(indi)
    monthformat(4)
    set(tday, gettoday())
    ".de hd" nl()
    ".ev 1" nl()
    ".sp" nl()
    /*  ".ce" nl()  */
    /*------------------------------------------------*/
    "Manes - Manis - Maness  Family  History" nl()
    col(60)stddate(tday) nl()
    ".sp" nl()
    "" nl()
    "'sp .8i" nl()
    ".ev" nl()
    ".." nl()
    ".de fo" nl()
    ".ev 1" nl()
    ".sp" nl()
    ".tl  'Cliff Manis, P. O. Box 33937, San Antonio, TX 78265, 1-(512)-654-9912'''" nl ()
    ".sp" nl()
    ".ev" nl()
    "'bp" nl()
    ".." nl()
    ".wh 0 hd" nl()
    ".wh -.8i fo" nl()
    ".de CH" nl()
    ".sp" nl()
    ".in 16n" nl()
    ".ti 0" nl()
    "\h'5n'\h'-\w'\\$1'u'\\$1\h'8n'\h'-\w'\\$2'u'\\$2\h'2n'" nl()
    ".." nl()
    ".de IN" nl()
    ".sp" nl()
    ".in 0" nl()
    ".." nl()
    ".de GN" nl()
    ".br" nl()
    ".ne 2i" nl()
    ".sp 2" nl()
    ".in 0" nl()
    ".ce" nl()
    ".." nl()
    ".de P" nl()
    ".sp" nl()
    ".in 0" nl()
    ".ti 5" nl()
    ".." nl()
    ".ev 1" nl()
    ".po 9" nl()
    ".ll 8i" nl()
    ".ev" nl()
    ".ls 1" nl()
    ".na" nl()
    list(ilist) list(glist)
    table(stab) indiset(idex)
    enqueue(ilist,indi)  enqueue(glist,1)
    set(curgen,0)  set(out,1)  set(in,2)
    while (indi,dequeue(ilist)) {
        print("OUT: ") print(d(out))
        print(" ") print(name(indi)) print(nl())
        set(thisgen,dequeue(glist))
        if (ne(curgen,thisgen)) {
            ".GN" nl() "GENERATION " d(thisgen) nl() nl()
            set(curgen,thisgen)
        }
        ".IN" nl() d(out) ". "
        insert(stab,save(key(indi)),out)
        call longvitals(indi)
        addtoset(idex,indi,0)
        set(out,add(out,1))
        families(indi,fam,spouse,nfam) {
            ".P" nl()
            if (spouse) { set(sname, save(name(spouse))) }
            else        { set(sname, "_____") }
            if (eq(0,nchildren(fam))) {
                name(indi) " and " sname
                " had no children." nl()
            } elsif (and(spouse,lookup(stab,key(spouse)))) {
                "Children of " name(indi) " and " sname " are shown "
                "under " sname " (" d(lookup(stab,key(spouse))) ")." nl()
            } else {
                "Children of " name(indi) " and " sname":" nl()
                children(fam,child,nchl) {
                    set(haschild,0)
                    families(child,cfam,cspou,ncf) {
                        if (ne(0,nchildren(cfam))) { set(haschild,1) }
                   }
                   if (haschild) {
                        print("IN:  ") print(d(in))
                        print(" ") print(name(child)) print(nl())
                        enqueue(ilist,child)
                        enqueue(glist,add(1,curgen))
                        ".CH " d(in) " " roman(nchl) nl()
                        set (in, add (in, 1))
                        call shortvitals(child)
                    } else {
                        ".CH " qt() qt() " " roman(nchl) nl()
                        call longvitals(child)
                        addtoset(idex,child,0)
                    }
                }
            }
        }
    }
    print("begin sorting") print(nl())
    namesort(idex)
    print("done sorting") print(nl())
    ".bp" nl()
    ".in 0" nl()
    "INDEX OF ALL PERSONS IN THIS REPORT" nl() nl()
    forindiset(idex,indi,v,n) {
        ".br" nl()
        fullname(indi,1,0,30) 
        col(40) stddate(birth(indi)) 
        col(55) stddate(death(indi)) nl()
        print(".")
    }
    nl()
    print(nl())
}
proc shortvitals(indi)
{
        name(indi)
        set(b,birth(indi)) set(d,death(indi))
        if (and(b,short(b))) { ", b. " short(b) }
        if (and(d,short(d))) { ", d. " short(d) } nl()
}

proc longvitals(i)
{
        if (bold) { "\fB" }
        name(i)
        if (bold) { "\fP" }
        "." nl()
        set(e,birth(i))
        if(and(e,long(e))) { "Born " long(e) "." nl() }
        if (eq(1,nspouses(i))) {
                spouses(i,s,f,n) {
                        if (marriage(f)) {
                                "Married"
                        } else {
                                /* "Lived with " */
                                "Married" 
                        }
                        set(nocomma,1)
                        call spousevitals(s,f)
                }
        } else {
                set(j,1)
                spouses(i,s,f,n) {
                        if (marriage(f)) {
                                "Married " ord(j) ","
                                set(j,add(j,1))
                        } else {
                                "Married "
                        }
                        call spousevitals(s,f)
                }
        }
        set(e,death(i))
        if(and(e,long(e))) { "Died " long(e) "." nl() }

        fornodes(inode(i), node) {
                if (eq(0,strcmp("FILE", tag(node)))) {
                        copyfile(value(node))
                } elsif (eq(0,strcmp("NOTE", tag(node)))) {
                        value(node) nl()
                        fornodes(node, subnode) {
                                if (eq(0,strcmp("CONT", tag(subnode)))) {
                                        value(subnode) nl()
                                }
                        }
                }
        }
}

proc spousevitals (sp,fam)
{
        addtoset(idex,sp,0)
        set(e,marriage(fam))
        if (and(e,long(e))) { nl() long(e) "," }
        nl() name(sp)
        set(e,birth(sp))
        if(and(e,long(e)))  { "," nl() "born " long(e) }
        set(e,death(sp))
        if(and(e,long(e)))  { "," nl() "died " long(e) }
        set(dad,father(sp))
        set(mom,mother(sp))
        if (or(dad,mom)) {
                "," nl()
                if (male(sp))      { "son of " }
                elsif (female(sp)) { "daughter of " }
                else               { "child of " }
        }
        if (dad)          { name(dad) }
        if (and(dad,mom)) { nl() "and " }
        if (mom)          { name(mom) }
        "." nl()
        if (dad) { addtoset(idex,dad,0) }
        if (mom) { addtoset(idex,mom,0) }
        addtoset(idex,sp,0)
}

/*   Sample output of this report, it is paginated but I have not shown
     that in this example.


         Manes - Manis - Maness  Family  History
                                                              27 Sep 1992

                                   GENERATION 1

         1. Fuller Ruben MANES.  Born 19 Nov 1902, Union Valley, Sevier
         Co, TN.  Married 17 OCT 1936, Knoxville, TN, Edith Alberta MANIS,
         born 8 APR 1914, Dandridge, Jefferson Co, TN, died 18 JUN 1992,
         Knoxville, Knox Co, TN, daughter of William Loyd MANIS and Lillie
         Caroline "Carolyn" NEWMAN.  Died 20 Jun 1980, Knoxville, Knox Co,
         TN.  Fuller's first fifteen years were growing up on a farm.  By
         the time he was 10 years old, he had 9 other brothers and sisters
         to help feed and care for, play with, and the many facets of work
         which had to be done each day.  "Clifford" and "Snowball" were
         some of his nicknames. Pictures show him (many times) in a
         three-piece suit and a man of many places.  As most men, during
         his youth, he was photographed in the presence with several
         different females.  He attended school at Harrison Chilhowee
         Baptist Academy, which a walk of about 5 or 6 miles each way from
         his home.  He boarded at the school dormitory for an unknown
         period of time.

              Children of Fuller Ruben MANES and Edith Alberta MANIS:

                     i   Ellsworth Howard MANIS.  Born 11 MAR 1939,
                         Knoxville, Knox Co, TN.  Died 13 MAR 1939,
                         Knoxville, TN,.  Was the first born of twins,
                         birth two-forty PM, at Harrison-Henderson
                         Hospital.  Ellsworth died at age 44 hours, was a
                         twin to Alda Clifford MANIS.  Buried 13 Mar 1939
                         at Seven Islands Cem, NE Knox County, TN (near
                         Jefferson and Sevier County line).

             2      ii   Alda Clifford MANIS, b. 1939, TN


                                   GENERATION 2


         2. Alda Clifford MANIS.  Born 11 MAR 1939, Knoxville, Knox Co,
         TN.  Married first, 8 SEP 1962, Knoxville, Knox Co, TN, Joyce
         Fern OWENS, born 1 APR 1942, Knoxville, Knox Co, TN, daughter of
         Guy Hixon OWENS and Bertha Mae TURNER.  Married second, 13 FEB
         1984, San Antonio, Texas, Marianne Florence KRAMER, born 19 MAY
         1943, Los Angeles, CA, daughter of Anthony Leo KRAMER and
         Florence Rita BOSSO.  Born at two-forty five PM, Harrison-
         Henderson Hospital.  Twin of Elsworth Howard MANIS.  Clifford was
         born second.

              Children of Alda Clifford MANIS and Joyce Fern OWENS:

             3       i   Gregory Scott MANIS, b. 1963, VA

                    ii   Sheila Ann MANIS.  Born 7 APR 1968, Mexico City,
                         Mexico DF.

              Alda Clifford MANIS and Marianne Florence KRAMER had no
         children.


                                   GENERATION 3


         3. Gregory Scott MANIS.  Born 15 Sep 1963, Warrenton, Fauquier
         Co, VA.  Married San Antonio, Tx, Vicky Lynn LAMB BLOOMER, born
         18 JAN 1963, Henderson, KY, daughter of Richard Graham LAMB and
         Annette M. ST. PIERRE.  Birthday: Sunday Scott started his
         international traveling at the early age of 9 weeks, then he flew
         with his parents to Teheran, Iran.  2 days after arriving there,
         President John F. Kennedy, was killed in Dallas, Texas.

         Attended school in Mexico City, Mexico, where he started the
         first grade.  Later getting the rest of his early education at
         public schools in the following cities:  Vienna, Austria and
         Ankara, Turkey, and attending school in several states in the US
         before finally graduating high school at Holmes in San Antonio,
         Texas.

         An important part of his teenage years included being in the Boy
         Scouts of America, where he achieved the honor of being an Eagle
         Scout through his hard work.

         He then graduated the University of Texas at San Antonio, TX, B.
         S. Biology, August 1985.

         In 1992, a Research Specialist and Lab Manager, Immunogenetics
         Laboratory, Trinity University, San Antonio, May 1989-present.


              Children of Gregory Scott MANIS and Vicky Lynn LAMB BLOOMER:

                     i   Kayla Marie MANIS.  Born 23 NOV 1988, San
                         Antonio, Tx.

                    ii   Gregory Paul MANIS.  Born 16 JUN 1990, San
                         Antonio, Tx.

         Cliff Manis, P. O. Box 33937, San Antonio, TX 78265, 1-(512)-654-9912

         INDEX OF ALL PERSONS IN THIS REPORT

         BLOOMER, Vicky Lynn LAMB               18 Jan 1963
         BOSSO, Florence Rita                   16 Dec 1916
         KRAMER, Anthony Leo                     2 Apr 1913    28 May 1981
         KRAMER, Marianne Florence              19 May 1943
         LAMB, Richard Graham
         MANES, Fuller Ruben                    19 Nov 1902    20 Jun 1980
         MANIS, Alda Clifford                   11 Mar 1939
         MANIS, Edith Alberta                    8 Apr 1914    18 Jun 1992
         MANIS, Ellsworth Howard                11 Mar 1939    13 Mar 1939
         MANIS, Gregory Paul                    16 Jun 1990
         MANIS, Gregory Scott                   15 Sep 1963
         MANIS, Kayla Marie                     23 Nov 1988
         MANIS, Sheila Ann                       7 Apr 1968
         MANIS, William Loyd                     5 Sep 1872    15 Mar 1946
         NEWMAN, Lillie Caroline                13 Jun 1881    29 Sep 1949
         OWENS, Guy Hixon                       22 Jul 1908
         OWENS, Joyce Fern                       1 Apr 1942
         ST. PIERRE, Annette M.                 23 Jan 1944
         TURNER, Bertha Mae                     19 Jul 1914

         Cliff Manis, P. O. Box 33937, San Antonio, TX 78265, 1-(512)-654-9912

*/

/* end of report */