mirror of
https://github.com/kennethreitz/context.git
synced 2026-06-05 14:50:19 +00:00
82 lines
2.2 KiB
LLVM
82 lines
2.2 KiB
LLVM
/*
|
|
* @progname marriages1.ll
|
|
* @version 1.0
|
|
* @author Wetmore, Manis
|
|
* @category
|
|
* @output Text, 80 cols
|
|
* @description
|
|
*
|
|
* select and produce an a output report of all marriages in
|
|
* the database, with date of marriage if known.
|
|
*
|
|
* marriages1
|
|
*
|
|
* Code by Tom Wetmore, ttw@cbnewsl.att.com
|
|
* With 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,
|
|
*
|
|
* select and produce an a output report of all marriages in
|
|
* the database, with date of marriage if known.
|
|
*
|
|
* Output is an ASCII file, and may be printed using 80 column format.
|
|
*
|
|
* An example of the output may be seen at end of this report.
|
|
*/
|
|
|
|
proc main ()
|
|
{
|
|
indiset(idx)
|
|
forindi(indi, n) {
|
|
if (and(male(indi),gt(nspouses(indi),0))) {
|
|
addtoset(idx,indi,0)
|
|
print("y")
|
|
} else {
|
|
print("n")
|
|
}
|
|
}
|
|
print(nl())
|
|
print("beginning sort")
|
|
print(nl())
|
|
namesort(idx)
|
|
print("ending sort")
|
|
print(nl())
|
|
col(1) "Male Person"
|
|
col(30) "Date"
|
|
col(50) "Female Person"
|
|
col(1)
|
|
"-----------------------------------------"
|
|
"-------------------------------------"
|
|
forindiset(idx,husb,val,n) {
|
|
col(1) fullname(husb, 1,0,29)
|
|
spouses(husb,wife,famv,m) {
|
|
col(30) trim(date(marriage(famv)), 20)
|
|
col(50) fullname(wife, 1,0,29)
|
|
}
|
|
print(".")
|
|
}
|
|
nl()
|
|
print(nl())
|
|
}
|
|
|
|
/* Sample output of this report.
|
|
|
|
Male Person Date Female Person
|
|
------------------------------------------------------------------------------
|
|
BARTH, Johann Ludwig ____, Hanna
|
|
BIRD, Jacob ____, Mrs.
|
|
BIRD, John SHRADER, Elizabeth
|
|
BOWERS, Anderson ABT 1828 COWAN, Lurina Viney "Vina"
|
|
BOWERS, James ____, Martha
|
|
BRADSHAW, John F. CLENDENIN, Agnes "Annie"
|
|
CANTER, Henry B. ____, Polina
|
|
CANTER, James H. 20 APR 1867 WHITEHORN, Martha Marie
|
|
CASON, David ca 1790 ____, Mary
|
|
|
|
*/
|
|
|
|
/* End of Report */
|
|
|