%( op_m=1 simple: name %) %( op_m=2 simple with photo %) %( op_m=3 complete: name, marriages %) %( op_m=4 complete with photo %) %let;op_m;%if;(op_m!="")%op_m;%else;1%end;%in; %let;op_fl;1%in; %( flèche frère suivant %) %define;short_display_sibling_photo(xx,cond) %if;has_siblings; %let;cur;%index;%in;

%foreach;xx.child; %if;(index!=cond)

%if;child.has_image; %if;(evar.cgl!="on")

%else;

%end; %elseif;(bvar.default_image="yes") [missing image]

%else; ? %end;

%nn; %if;(bvar.full_siblings="yes") %apply;short_display_person_tree("child") %else; %apply;short_display_person_noname("child","br","","","") %end; %if;child.computable_age;
%sp;%child.age;%end; %if;child.computable_death_age;
%sp;%child.death_age;%end;

%end; %end;

%end; %end; %if;(has_parents and has_siblings)

%nn; %if;(bvar.full_siblings="yes") [full siblings]%nn; %else; [siblings]%nn; %end; %reset_count; %if;(op_fl=1 and evar.cgl!="on") %foreach;father.child; %if;is_sibling_before; %incr_count; %nn; %nn; %nn; %end; %end; %if;(count=0)%end; %nn; %nn; %nn; %foreach;father.child; %if;is_sibling_after; %nn; %nn; %end; %end; %end;

%if;(op_m=2) %if;(bvar.full_siblings="yes") %apply;short_display_sibling_photo("father","0") %else; %apply;short_display_sibling_photo("father","cur") %end; %else;

%let;cur;%index;%in; %foreach;father.child; %if;(bvar.full_siblings="yes") %if;(op_m=1) %if;(bvar.always_surname="yes") %apply;short_display_siblings() %else; %apply;short_display_siblings_noname() %end; %elseif;(op_m=3) %apply;long_display_siblings() %elseif;(op_m=4) %apply;display_sibling() %end; %else; %if;(index!=cur) %if;(op_m=1) %if;(bvar.always_surname="yes") %apply;short_display_siblings() %else; %apply;short_display_siblings_noname() %end; %elseif;(op_m=3) %apply;long_display_siblings() %elseif;(op_m=4) %apply;display_sibling() %end; %end; %end; %end; %end; %end; %(aaa %father.nb_families;, %mother.nb_families;
%) %reset_count; %if;has_parents; %foreach;father.family; %if;(spouse.index!=mother.index) %if;(nb_children>0)%incr_count;%end; %end; %end; %end; %let;half_father;%count;%in; %reset_count; %if;has_parents; %foreach;mother.family; %if;(spouse.index!=father.index) %if;(nb_children>0)%incr_count;%end; %end; %end; %end; %let;half_mother;%count;%in; %(aaa2 %half_father;, %half_mother;
%) %if;(op_m=1 and has_parents and (half_father != 0 or half_mother != 0))

[*half siblings]

%if;(half_father != 0) %apply;on_side%with;%apply;very_short_display_person("father")%end; %if;(father.nb_families > 1 and half_father != 0) %foreach;father.family; %if;(spouse.index!=mother.index and half_father!=0 and spouse.has_children)

%foreach;child; %if;(bvar.always_surname="yes") %apply;short_display_siblings() %else; %apply;short_display_siblings_noname() %end; %end;

%end; %end; %end; %end; %if;(half_mother != 0) %apply;on_side%with;%apply;very_short_display_person("mother")%end; %if;(mother.nb_families > 1 and half_mother != 0) %foreach;mother.family; %if;(spouse.index!=father.index and half_mother!=0 and spouse.has_children)

%foreach;child; %apply;short_display_siblings() %end;

%end; %end; %end; %end; %elseif;(op_m=3 and has_parents and (half_father != 0 or half_mother != 0))

[*half siblings]

%if;(half_father != 0) %end; %if;(half_mother != 0) %end; %if;(father.nb_families > 1 and half_father != 0) %end; %if;(mother.nb_families > 1 and half_mother != 0) %end;

%apply;on_side%with;%apply;very_short_display_person("father")%end;		%apply;on_side%with;%apply;very_short_display_person("mother")%end;
%foreach;father.family; %if;(spouse.index!=mother.index and half_father!=0 and spouse.has_children) %apply;li_SD("spouse") [with] %apply;very_short_display_person("spouse") %if;has_children; %foreach;child; %apply;long_display_siblings() %end; %end; %end; %end;		%foreach;mother.family; %if;(spouse.index!=father.index and half_mother!=0 and spouse.has_children) %apply;li_SD("spouse") [with] %apply;very_short_display_person("spouse") %if;has_children; %foreach;child; %apply;long_display_siblings() %end; %end; %end; %end;

%elseif;(op_m=4 and has_parents and (half_father != 0 or half_mother != 0)) %foreach;parent; %if;(parent.nb_families>1) %end; %if;(not is_last) %end; %end; %if;(father.nb_families>1) %end; %if;(mother.nb_families>1) %end;

%apply;display_shared_parent%with; %apply;short_display_person("parent")%end;
%foreach;father.family; %if;(spouse.index!=mother.index) %apply;list_half_siblings() %end; %end;	%foreach;mother.family; %if;(spouse.index!=father.index) %apply;list_half_siblings() %end; %end;

%end;