%( list eclair tf1 = place %) %apply;togen() %empty_sorted_list; %reset_count; %foreach;ancestor_level(l_v) %if;(level > 1 and (evar.only != "on" or level = l_v)) %foreach;ancestor; %if;(ancestor.same = "") %if;(ancestor.has_birth_place) %apply;add_in_sorted_list(ancestor.birth_place,ancestor.birth_date.year,ancestor.index,ancestor.anc_sosa) %elseif;(ancestor.has_baptism_place) %apply;add_in_sorted_list(ancestor.baptism_place,ancestor.baptism_date.year,ancestor.index,ancestor.anc_sosa) %end; %if;(ancestor.has_death_place) %apply;add_in_sorted_list(ancestor.death_place,ancestor.death_date.year,ancestor.index,ancestor.anc_sosa) %elseif;(ancestor.has_burial_place) %apply;add_in_sorted_list(ancestor.burial_place,ancestor.burial_date.year,ancestor.index,ancestor.anc_sosa) %end; %foreach;ancestor.family; %if;(ancestor.spouse.index = spouse.index and marriage_place != "") %apply;add_in_sorted_list(marriage_place,marriage_date.year,ancestor.index,ancestor.anc_sosa) %end; %end; %end; %end; %end; %end;

[place];[date begin];([nb events]);[date end] %foreach;sorted_list_item; %if;(prev_item.1 != item.1) %reset_count;%incr_count; %item.1;;%item.2;;(%expr(count - 1));%item.2; %end; %end;