/*=====================================
* process_record -- process record
* Called during pass2 (fix)
*===================================*/
static void
process_record (RECORD rec)
{
switch(nztype(rec)) {
case 'I':
process_indi(rec);
break;
case 'F':
process_fam(rec);
break;
/* TODO */
}
}
/*=======================================
* edit_any_record -- Edit record of any type
*=====================================*/
BOOLEAN
edit_any_record (RECORD rec, RFMT rfmt)
{
ASSERT(rec);
switch (nztype(rec)) {
case 'I': return edit_indi(rec, rfmt);
case 'F': return edit_family(rec, rfmt);
case 'S': return edit_source(rec, rfmt);
case 'E': return edit_event(rec, rfmt);
case 'X': return edit_other(rec, rfmt);
default: ASSERT(0); return FALSE;
}
}
