src/gedlib/misc.c
/*=================================================
 * val_to_sex -- Convert SEX value to internal form
 *===============================================*/
- Convert SEX value to internal form
- Convert SEX value to internal form
INT
val_to_sex (NODE node)
{
	if (!node || !nval(node)) return SEX_UNKNOWN;
	if (eqstr("M", nval(node))) return SEX_MALE;
	if (eqstr("F", nval(node))) return SEX_FEMALE;
	return SEX_UNKNOWN;
}
INT val_to_sex ( NODE node ) { if ( ! node || ! nval ( node ) ) return SEX_UNKNOWN ; if ( eqstr ( " " , nval ( node ) ) ) return SEX_MALE ; if ( eqstr ( " " , nval ( node ) ) ) return SEX_FEMALE ; return SEX_UNKNOWN ; }
val_to_sex -- Convert SEX value to internal form
val_to_sex -- Convert SEX value to internal form