# KEHOME/knowledge/applications/Genealogy/check.htm # 1999/7/28 # new syntax May/21/2003 # check unique names and other names do clock od "read family history" done; do read from family.ku done; #Dr. Richard H. McCullough isa person; #do usize od person done; set echo=off; do clock od "check MISSING unique names" done; every unique isa person { if $unique has uniquename; else do print od "# MISSING uniquename: $unique" done; fi; }; do clock od "check CONFLICT with other names" done; every unique isa person { if ? has othername +=$unique; then do print od "# CONFLICT with othername: $unique" done; fi; }; do clock od "done" done; set echo=on; exit;