src/gedlib/node.c
/*==============================================
 * indi_to_next_sib -- Return next sib of person
 *  returns addref'd record
 *============================================*/
- Return next sib of person
returns addref'd record
- Return next sib of person returns addref ' d record
static RECORD
indi_to_next_sib_impl (NODE indi)
{
	NODE fam, node;
	BOOLEAN found;
	if (!indi) return NULL;
	if (!(fam = indi_to_famc(indi))) return NULL;
	node = CHIL(fam);
	found = FALSE;  
	while (node) {
		if (!found) {
			if (eqstr(nxref(indi), nval(node)))
				found = TRUE;
		} else {
			if (eqstr(ntag(node),"CHIL"))
				return key_to_record(rmvat(nval(node)));
		}
		node = nsibling(node);
	}
	return NULL;
}
static RECORD indi_to_next_sib_impl ( NODE indi ) { NODE fam , node ; BOOLEAN found ; if ( ! indi ) return NULL ; if ( ! ( fam = indi_to_famc ( indi ) ) ) return NULL ; node = CHIL ( fam ) ; found = FALSE ; while ( node ) { if ( ! found ) { if ( eqstr ( nxref ( indi ) , nval ( node ) ) ) found = TRUE ; } else { if ( eqstr ( ntag ( node ) , " " ) ) return key_to_record ( rmvat ( nval ( node ) ) ) ; } node = nsibling ( node ) ; } return NULL ; }
indi_to_next_sib -- Return next sib of person
  returns addref'd record
indi_to_next_sib -- Return next sib of person returns addref ' d record
/* until we find indi */