Home
last modified time | relevance | path

Searched refs:ispouse (Results 1 – 4 of 4) sorted by relevance

/dports/misc/lifelines/lifelines-3.1.1/src/interp/
H A Dalloc.c285 STRING str = ispouse(node); in clear_pnode()
288 ispouse(node) = 0; in clear_pnode()
428 ispouse(node) = (VPTR) svar; in spouses_node()
451 ispouse(node) = (VPTR) svar; in families_node()
H A Dinterp.c1019 insert_symtab(stab, ispouse(node), sval); in interp_spouses()
1044 delete_symtab_element(stab, ispouse(node)); in interp_spouses()
1080 insert_symtab(stab, ispouse(node), sval); in interp_families()
1104 delete_symtab_element(stab, ispouse(node)); in interp_families()
H A Dinterpi.h220 #define ispouse(i) ((i)->i_word2) /* var in families and spouses loop */ macro
/dports/www/geneweb/geneweb-13c850a0cc3973daf7ae3e0772a1621f84052041/src/
H A Dperso.ml1584 let ispouse = if ip = ifath then imoth else ifath in
1585 let cpl = (ifath, imoth, ispouse) in
2100 let ispouse = if ip = ifath then imoth else ifath in
2101 let c = (ifath, imoth, ispouse) in
3053 [ Vfam _ fam (_, _, ispouse) m_auth ->
3401 let ispouse = spouse (get_key_index p) fam in
3402 let cpl = (ifath, imoth, ispouse) in