src/gedlib/node.c
/*==================================================
 * indi_to_famc -- Return family-as-child for person
 *================================================*/
- Return family-as-child for person
- Return family - as - child for person
NODE
indi_to_famc (NODE node)
{
	if (!node) return NULL;
	if (!(node = find_tag(nchild(node), "FAMC"))) return NULL;
	return key_to_fam(rmvat(nval(node)));
}
NODE indi_to_famc ( NODE node ) { if ( ! node ) return NULL ; if ( ! ( node = find_tag ( nchild ( node ) , " " ) ) ) return NULL ; return key_to_fam ( rmvat ( nval ( node ) ) ) ; }
indi_to_famc -- Return family-as-child for person
indi_to_famc -- Return family - as - child for person