src/gedlib/node.c
/*========================================
 * fam_to_wife -- Return husband of family
 *  returns 1 if found, 0 if not found, -1 if bad pointer
 *======================================*/
- Return husband of family
returns 1 if found, 0 if not found, -1 if bad pointer
- Return husband of family returns 1 if found 0 if not found - 1 if bad pointer
INT
fam_to_wife (RECORD frec, RECORD * prec)
{
	NODE fam = nztop(frec), husb;
	CNSTRING key=0;
	*prec = NULL;
	if (!fam) return 0;
	if (!(husb = find_tag(nchild(fam), "WIFE"))) return 0;
	key = rmvat(nval(husb));
	if (!key) return -1;
	*prec = key_to_irecord(key); 
	return 1;
}
INT fam_to_wife ( RECORD frec , RECORD * prec ) { NODE fam = nztop ( frec ) , husb ; CNSTRING key = 0 ; * prec = NULL ; if ( ! fam ) return 0 ; if ( ! ( husb = find_tag ( nchild ( fam ) , " " ) ) ) return 0 ; key = rmvat ( nval ( husb ) ) ; if ( ! key ) return -1 ; * prec = key_to_irecord ( key ) ; return 1 ; }
fam_to_wife -- Return husband of family
  returns 1 if found, 0 if not found, -1 if bad pointer
fam_to_wife -- Return husband of family returns 1 if found 0 if not found - 1 if bad pointer
/* ASSERT if fail */