← Back to branch summary

~ubuntu-branches/ubuntu/trusty/lifelines/trusty

« back to all changes in this revision

Viewing changes to reports/ttable.ll

  • Committer: Bazaar Package Importer
  • Author(s): Felipe Augusto van de Wiel (faw)
  • Date: 2007-05-23 23:49:53 UTC
  • mfrom: (3.1.3 edgy)
  • Revision ID: james.westby@ubuntu.com-20070523234953-ogno9rnbmth61i7p
Tags: 3.0.50-2etch1
http://bugs.debian.org/418347
http://bugs.debian.org/405500
http://bugs.debian.org/356671
* Changing docs/ll-reportmanual.xml and docs/ll-userguide.xml to fix
  documentation build problems (Closes: #418347).

* lifelines-reports
  - Adding a dependency to lifelines >= 3.0.50 to prevent file conflict.
    (Closes: #405500).

* Updating French translation. Thanks to Bernard Adrian. (Closes: #356671).

Show diffs side-by-side

added added

removed removed

Lines of Context:
reports/ttable.ll
 
1
/*
 
2
 * @progname       ttable.ll
 
3
 * @version        none
 
4
 * @author         anon
 
5
 * @category       
 
6
 * @output         Text
 
7
 * @description
 
8
 *
 
9
 * Compute Pete Cook's C-Table comparison vector, as modified by Tom.
 
10
 */
 
11
 
 
12
proc main ()
 
13
{
 
14
        getindi(i, "Compute C-Table for what person?")
 
15
        if (not(i)) { return() }
 
16
        set(b, getyear(birth(i)))
 
17
        set(f,  father(i)) set(m,  mother(i))
 
18
        set(ff, father(f)) set(fm, mother(f))
 
19
        set(mf, father(m)) set(mm, mother(m))
 
20
        set(bf,  getyear(birth(f))) set(bm,  getyear(birth(m)))
 
21
        set(bff, getyear(birth(ff))) set(bfm, getyear(birth(fm)))
 
22
        set(bmf, getyear(birth(mf))) set(bmm, getyear(birth(mm)))
 
23
        print( b, " ", bf, " ", bm, " ")
 
24
        print(bff, " ", bfm, " ", bmf, " ", bmm, " ")
 
25
        print(sex(i), " ", soundex(i), " ", trim(givens(i), 1), "\n")
 
26
}
 
27
func getyear(event)
 
28
{
 
29
        set(y, atoi(year(event)))
 
30
        if (and(ge(y, 1000), le(y, 2000))) {return(year(event))}
 
31
        return("0000")
 
32
}