Searched refs:ispouse (Results 1 – 4 of 4) sorted by relevance
/dports/misc/lifelines/lifelines-3.1.1/src/interp/ |
H A D | alloc.c | 285 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 D | interp.c | 1019 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 D | interpi.h | 220 #define ispouse(i) ((i)->i_word2) /* var in families and spouses loop */ macro
|
/dports/www/geneweb/geneweb-13c850a0cc3973daf7ae3e0772a1621f84052041/src/ |
H A D | perso.ml | 1584 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
|