src/gedlib/node.c
/*=======================================================================
 * father_nodes -- Given list of FAMS or FAMC nodes, returns list of HUSB
 *   lines they contain
 * UNUSED CODE
 *=====================================================================*/
- Given list of FAMS or FAMC nodes, returns list of HUSB
lines they contain
UNUSED CODE
- Given list of FAMS or FAMC nodes returns list of HUSB lines they contain UNUSED CODE
NODE
father_nodes (NODE faml)      
{
	NODE fam, refn, husb, wife, chil, rest;
	NODE old = NULL, new = NULL;
	while (faml) {
		ASSERT(eqstr("FAMC", ntag(faml)) || eqstr("FAMS", ntag(faml)));
		ASSERT(fam = key_to_fam(rmvat(nval(faml))));
		split_fam(fam, &refn, &husb, &wife, &chil, &rest);
		new = union_nodes(old, husb, FALSE, TRUE);
		free_nodes(old);
		old = new;
		join_fam(fam, refn, husb, wife, chil, rest);
		faml = nsibling(faml);
	}
	return new;
}
NODE father_nodes ( NODE faml ) { NODE fam , refn , husb , wife , chil , rest ; NODE old = NULL , new = NULL ; while ( faml ) { ASSERT ( eqstr ( " " , ntag ( faml ) ) || eqstr ( " " , ntag ( faml ) ) ) ; ASSERT ( fam = key_to_fam ( rmvat ( nval ( faml ) ) ) ) ; split_fam ( fam , & refn , & husb , & wife , & chil , & rest ) ; new = union_nodes ( old , husb , FALSE , TRUE ) ; free_nodes ( old ) ; old = new ; join_fam ( fam , refn , husb , wife , chil , rest ) ; faml = nsibling ( faml ) ; } return new ; }
father_nodes -- Given list of FAMS or FAMC nodes, returns list of HUSB
   lines they contain
 UNUSED CODE
father_nodes -- Given list of FAMS or FAMC nodes returns list of HUSB lines they contain UNUSED CODE
/* list of FAMC and/or FAMS nodes */