- gedcom_subscribe_to_record(REC_HEAD,
- familia_gedcom_header_start,
- familia_gedcom_header_end);
- gedcom_subscribe_to_element(ELT_HEAD_SOUR,
- familia_gedcom_header_source_start,
- NULL);
- gedcom_subscribe_to_element(ELT_HEAD_SOUR_VERS,
- familia_gedcom_header_version_start,
- NULL);
- gedcom_subscribe_to_record(REC_FAM,
- familia_gedcom_family_start,
- NULL);
- gedcom_subscribe_to_record(REC_INDI,
- familia_gedcom_individual_start,
- NULL);
- gedcom_subscribe_to_element(ELT_SUB_PERS_NAME,
- familia_gedcom_individual_set_first_name,
- NULL);
- gedcom_subscribe_to_element(ELT_SUB_PERS_NAME_SURN,
- familia_gedcom_individual_last_name_start,
- NULL);
- gedcom_subscribe_to_element(ELT_SUB_FAMS,
- familia_gedcom_family_add_child,
- NULL);
- gedcom_subscribe_to_element(ELT_SUB_FAMC,
- familia_gedcom_family_add_child,
- NULL);
+ gedcom_subscribe_to_record(REC_HEAD, familia_gedcom_header_start, familia_gedcom_header_end);
+ /* Create and set family as current (set to ctxt) */
+ gedcom_subscribe_to_record(REC_FAM, familia_gedcom_family_start, NULL);
+ /* Create and set individual as current (set to ctxt) */
+ gedcom_subscribe_to_record(REC_INDI, familia_gedcom_individual_start, NULL);
+ gedcom_subscribe_to_element(ELT_HEAD_SOUR, familia_gedcom_header_source_start, NULL);
+ gedcom_subscribe_to_element(ELT_HEAD_SOUR_VERS, familia_gedcom_header_version_start, NULL);
+ /* Set in current individual first name */
+ gedcom_subscribe_to_element(ELT_SUB_PERS_NAME, familia_gedcom_individual_set_first_name, NULL);
+ /* Set in current individual last name */
+ gedcom_subscribe_to_element(ELT_SUB_PERS_NAME_SURN, familia_gedcom_individual_last_name_start, NULL);
+ /* Add to current individual new family */
+ gedcom_subscribe_to_element(ELT_SUB_FAMS, familia_gedcom_individual_add_family, NULL);
+ /* Set current family as parents to child */
+ gedcom_subscribe_to_element(ELT_FAM_CHIL, familia_gedcom_individual_set_parents, NULL);
+ /* Set current individual new parents */
+ gedcom_subscribe_to_element(ELT_SUB_FAMC, familia_gedcom_family_add_child, NULL);
+ /* Set in current family first parent (e.g. husband) */
+ gedcom_subscribe_to_element(ELT_FAM_HUSB, familia_gedcom_family_set_parent1, NULL);
+ /* Set in current family second parent (e.g. wife) */
+ gedcom_subscribe_to_element(ELT_FAM_WIFE, familia_gedcom_family_set_parent2, NULL);