mirror of
https://github.com/kennethreitz/context.git
synced 2026-06-05 14:50:19 +00:00
22 lines
524 B
LLVM
22 lines
524 B
LLVM
/*
|
|
* @progname findmissing.ll
|
|
* @version 1.0
|
|
* @author
|
|
* @category
|
|
* @output Text
|
|
* @description
|
|
*
|
|
* find persons that are 'isolated' in your database - no parents and not
|
|
* in any families..
|
|
*/
|
|
proc main ()
|
|
{
|
|
"THE FOLLOWING PERSONS ARE 'ISOLATED' IN YOUR DATABASE" nl() nl()
|
|
forindi(indi, num) {
|
|
if (and(not(parents(indi)), eq(0,nfamilies(indi)))) {
|
|
name(indi) " (" key(indi) ")" nl()
|
|
}
|
|
}
|
|
}
|
|
|