src/gedlib/node.c
/*==================================================
 * fam_to_first_chil -- Return first child of family
 *================================================*/
- Return first child of family
- Return first child of family
NODE
fam_to_first_chil (NODE node)
{
	CNSTRING key=0;
	if (!node) return NULL;
	if (!(node = find_tag(nchild(node), "CHIL"))) return NULL;
	key = rmvat(nval(node));
	return qkey_to_indi(key);
}
NODE fam_to_first_chil ( NODE node ) { CNSTRING key = 0 ; if ( ! node ) return NULL ; if ( ! ( node = find_tag ( nchild ( node ) , " " ) ) ) return NULL ; key = rmvat ( nval ( node ) ) ; return qkey_to_indi ( key ) ; }
fam_to_first_chil -- Return first child of family
fam_to_first_chil -- Return first child of family