char* get_parenttag(int offset);
void set_parentctxt(Gedcom_ctxt ctxt);
Gedcom_ctxt get_parentctxt(int offset);
void pop_countarray();
int count_tag(int tag);
int check_occurrence(int tag);
char* get_parenttag(int offset);
void set_parentctxt(Gedcom_ctxt ctxt);
Gedcom_ctxt get_parentctxt(int offset);
void pop_countarray();
int count_tag(int tag);
int check_occurrence(int tag);
#define CLEAR_BUFFER(BUF) \
memset(BUF, 0, sizeof(BUF));
#define HANDLE_ERROR \
{ if (error_mechanism == IMMED_FAIL) { \
#define CLEAR_BUFFER(BUF) \
memset(BUF, 0, sizeof(BUF));
#define HANDLE_ERROR \
{ if (error_mechanism == IMMED_FAIL) { \
{ $<ctxt>$ = start_record(REC_HEAD, $1, GEDCOM_MAKE_NULL(val1),
$3,
NULL, GEDCOM_MAKE_NULL(val2));
{ $<ctxt>$ = start_record(REC_HEAD, $1, GEDCOM_MAKE_NULL(val1),
$3,
NULL, GEDCOM_MAKE_NULL(val2));
head_subs
{ if (compat_mode(C_FTREE)) {
CHECK3(SOUR, GEDC, CHAR);
head_subs
{ if (compat_mode(C_FTREE)) {
CHECK3(SOUR, GEDC, CHAR);
}
else
CHECK4(SOUR, SUBM, GEDC, CHAR)
}
else
CHECK4(SOUR, SUBM, GEDC, CHAR)
$<ctxt>$ = start_element(ELT_HEAD_SOUR, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_HEAD_SOUR, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_VERS, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_VERS, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_NAME, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_NAME, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_CORP, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_CORP, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_DATA, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_DATA, PARENT,
$1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_HEAD_SOUR_DATA_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_HEAD_SOUR_DATA_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_HEAD_SOUR_DATA_COPR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_HEAD_SOUR_DATA_COPR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_DEST,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_DEST,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_HEAD_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
$<ctxt>$ = start_element(ELT_HEAD_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
{ $<ctxt>$ = start_element(ELT_HEAD_DATE_TIME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_DATE_TIME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_HEAD_SUBM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_HEAD_SUBM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_HEAD_SUBN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_HEAD_SUBN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
{ $<ctxt>$ = start_element(ELT_HEAD_FILE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_FILE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_COPR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_COPR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_GEDC_VERS,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_GEDC_VERS,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_GEDC_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_GEDC_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
head_char_sect : OPEN DELIM TAG_CHAR mand_line_item
{ /* Don't allow to continue if conversion context couldn't
be opened */
head_char_sect : OPEN DELIM TAG_CHAR mand_line_item
{ /* Don't allow to continue if conversion context couldn't
be opened */
$<ctxt>$ = start_element(ELT_HEAD_CHAR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_HEAD_CHAR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_CHAR_VERS,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_CHAR_VERS,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_LANG,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_LANG,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_PLAC_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_PLAC_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_NOTE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_HEAD_NOTE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$1, GEDCOM_MAKE_XREF_PTR(val1, xr),
$5,
NULL, GEDCOM_MAKE_NULL(val2));
$1, GEDCOM_MAKE_XREF_PTR(val1, xr),
$5,
NULL, GEDCOM_MAKE_NULL(val2));
$<ctxt>$ = start_element(ELT_FAM_HUSB,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_FAM_HUSB,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_FAM_WIFE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_FAM_WIFE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_FAM_CHIL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_FAM_CHIL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
{ $<ctxt>$ = start_element(ELT_FAM_NCHI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_FAM_NCHI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_FAM_SUBM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_FAM_SUBM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_record(REC_INDI,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
$<ctxt>$ = start_record(REC_INDI,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
{ $<ctxt>$ = start_element(ELT_INDI_RESN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_INDI_RESN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_INDI_SEX,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_INDI_SEX,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_INDI_SUBM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_INDI_SUBM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_INDI_ALIA,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_INDI_ALIA,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_INDI_ANCI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_INDI_ANCI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_INDI_DESI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_INDI_DESI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
{ $<ctxt>$ = start_element(ELT_INDI_RFN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_INDI_RFN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_INDI_AFN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_INDI_AFN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
ftree_addr_sect : OPEN DELIM TAG_ADDR opt_line_item
{ if (compat_mode(C_FTREE)) {
Gedcom_ctxt par = compat_generate_resi_start(PARENT);
ftree_addr_sect : OPEN DELIM TAG_ADDR opt_line_item
{ if (compat_mode(C_FTREE)) {
Gedcom_ctxt par = compat_generate_resi_start(PARENT);
$<ctxt>$
= start_element(ELT_SUB_ADDR,
par, $1 + 1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val2, $4));
$<ctxt>$
= start_element(ELT_SUB_ADDR,
par, $1 + 1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val2, $4));
= start_element(ELT_SUB_PHON,
GRANDPARENT(1), $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_PHON,
GRANDPARENT(1), $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_record(REC_OBJE,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
$<ctxt>$ = start_record(REC_OBJE,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
{ $<ctxt>$ = start_element(ELT_OBJE_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_OBJE_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_OBJE_TITL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_OBJE_TITL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_OBJE_BLOB_CONT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_OBJE_BLOB_CONT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_OBJE_OBJE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_OBJE_OBJE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_record(REC_NOTE,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
$6, GEDCOM_MAKE_STRING(val2, $6));
$<ctxt>$ = start_record(REC_NOTE,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
$6, GEDCOM_MAKE_STRING(val2, $6));
$<ctxt>$ = start_record(REC_REPO,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
$<ctxt>$ = start_record(REC_REPO,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
{ $<ctxt>$ = start_element(ELT_REPO_NAME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_REPO_NAME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_record(REC_SOUR,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
$<ctxt>$ = start_record(REC_SOUR,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
{ $<ctxt>$ = start_element(ELT_SOUR_DATA_EVEN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_DATA_EVEN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SOUR_DATA_EVEN_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_SOUR_DATA_EVEN_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_SOUR_DATA_EVEN_PLAC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SOUR_DATA_EVEN_PLAC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_DATA_AGNC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_DATA_AGNC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_AUTH,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_AUTH,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_TITL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_TITL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_ABBR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_ABBR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_PUBL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_PUBL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_TEXT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SOUR_TEXT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_record(REC_SUBN,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
$<ctxt>$ = start_record(REC_SUBN,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
$<ctxt>$ = start_element(ELT_SUBN_SUBM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_SUBN_SUBM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
{ $<ctxt>$ = start_element(ELT_SUBN_FAMF,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_FAMF,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_TEMP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_TEMP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_ANCE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_ANCE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_DESC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_DESC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_ORDI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_ORDI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_RIN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBN_RIN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_record(REC_SUBM,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
$<ctxt>$ = start_record(REC_SUBM,
$1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
NULL, GEDCOM_MAKE_NULL(val2));
{ $<ctxt>$ = start_element(ELT_SUBM_NAME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBM_NAME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBM_LANG,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBM_LANG,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBM_RFN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBM_RFN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBM_RIN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUBM_RIN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CONT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CONT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_ADR1,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_ADR1,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_ADR2,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_ADR2,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CITY,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CITY,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_STAE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_STAE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_POST,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_POST,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CTRY,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CTRY,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PHON,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PHON,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
asso_sect : OPEN DELIM TAG_ASSO mand_pointer
{ struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
asso_sect : OPEN DELIM TAG_ASSO mand_pointer
{ struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
if (xr == NULL) HANDLE_ERROR;
$<ctxt>$ = start_element(ELT_SUB_ASSO,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
if (xr == NULL) HANDLE_ERROR;
$<ctxt>$ = start_element(ELT_SUB_ASSO,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
{ $<ctxt>$ = start_element(ELT_SUB_ASSO_TYPE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ASSO_TYPE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ASSO_RELA,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_ASSO_RELA,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_SUB_CHAN_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
$<ctxt>$ = start_element(ELT_SUB_CHAN_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_SUB_CHAN_TIME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_CHAN_TIME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_SUB_FAMC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
$<ctxt>$ = start_element(ELT_SUB_FAMC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
{ $<ctxt>$ = start_element(ELT_SUB_FAMC_PEDI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_FAMC_PEDI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_CONT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_CONT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_CONC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_CONC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_EVT_TYPE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_EVT_TYPE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_EVT_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_SUB_EVT_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_SUB_EVT_AGE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_AGE(val1, age));
= start_element(ELT_SUB_EVT_AGE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_AGE(val1, age));
= start_element(ELT_SUB_EVT_AGNC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_EVT_AGNC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_EVT_CAUS,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_EVT_CAUS,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_FAM_EVT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
= start_element(ELT_SUB_FAM_EVT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_SUB_FAM_EVT_AGE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_AGE(val1, age));
$<ctxt>$ = start_element(ELT_SUB_FAM_EVT_AGE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_AGE(val1, age));
{ $<ctxt>$ = start_element(ELT_SUB_IDENT_REFN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_IDENT_REFN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_IDENT_REFN_TYPE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_IDENT_REFN_TYPE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_IDENT_RIN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_IDENT_RIN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_INDIV_ATTR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_INDIV_ATTR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
}
indiv_attr_event_subs
{ CHECK0 }
CLOSE
{ end_element(ELT_SUB_INDIV_ATTR, PARENT, $<ctxt>5, NULL);
}
}
indiv_attr_event_subs
{ CHECK0 }
CLOSE
{ end_element(ELT_SUB_INDIV_ATTR, PARENT, $<ctxt>5, NULL);
}
| TAG_RELI { $$ = $1; START1(RELI) }
| TAG_SSN { $$ = $1; START1(SSN) }
| TAG_TITL { $$ = $1; START1(TITL) }
| TAG_RELI { $$ = $1; START1(RELI) }
| TAG_SSN { $$ = $1; START1(SSN) }
| TAG_TITL { $$ = $1; START1(TITL) }
indiv_resi_sect : OPEN DELIM TAG_RESI
{ $<ctxt>$ = start_element(ELT_SUB_INDIV_RESI,
PARENT, $1, $3, NULL,
GEDCOM_MAKE_NULL(val1));
indiv_resi_sect : OPEN DELIM TAG_RESI
{ $<ctxt>$ = start_element(ELT_SUB_INDIV_RESI,
PARENT, $1, $3, NULL,
GEDCOM_MAKE_NULL(val1));
= start_element(ELT_SUB_INDIV_BIRT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
= start_element(ELT_SUB_INDIV_BIRT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
= start_element(ELT_SUB_INDIV_BIRT_FAMC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_INDIV_BIRT_FAMC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_INDIV_GEN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
= start_element(ELT_SUB_INDIV_GEN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
= start_element(ELT_SUB_INDIV_ADOP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
= start_element(ELT_SUB_INDIV_ADOP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
= start_element(ELT_SUB_INDIV_ADOP_FAMC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_INDIV_ADOP_FAMC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_INDIV_ADOP_FAMC_ADOP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_INDIV_ADOP_FAMC_ADOP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_STAT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_STAT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
$<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_TEMP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_TEMP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_PLAC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_PLAC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_LIO_SLGC_FAMC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_LIO_SLGC_FAMC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_STAT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_STAT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
$<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
$<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_TEMP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_TEMP,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_PLAC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_PLAC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_MULTIM_OBJE,
PARENT, $1, $3, $5,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_MULTIM_OBJE,
PARENT, $1, $3, $5,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_MULTIM_OBJE_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_MULTIM_OBJE_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_MULTIM_OBJE_TITL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_MULTIM_OBJE_TITL,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_MULTIM_OBJE_FILE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_MULTIM_OBJE_FILE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_NOTE,
PARENT, $1, $3, $5,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_NOTE,
PARENT, $1, $3, $5,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_NOTE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
= start_element(ELT_SUB_NOTE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NPFX,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NPFX,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_GIVN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_GIVN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NICK,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NICK,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_SPFX,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_SPFX,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_SURN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_SURN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NSFX,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NSFX,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_PLAC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_PLAC,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_PLAC_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_PLAC_FORM,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR,
PARENT, $1, $3, $5,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_SOUR,
PARENT, $1, $3, $5,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_SOUR_PAGE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_PAGE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_EVEN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_EVEN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_EVEN_ROLE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_EVEN_ROLE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_DATA_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_SUB_SOUR_DATA_DATE,
PARENT, $1, $3, $4,
GEDCOM_MAKE_DATE(val1, dv));
= start_element(ELT_SUB_SOUR_TEXT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_TEXT,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_QUAY,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_SOUR_QUAY,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_SOUR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_SOUR,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_REPO,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_REPO,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
{ $<ctxt>$ = start_element(ELT_SUB_REPO_CALN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_REPO_CALN,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_REPO_CALN_MEDI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
{ $<ctxt>$ = start_element(ELT_SUB_REPO_CALN_MEDI,
PARENT, $1, $3, $4,
GEDCOM_MAKE_STRING(val1, $4));
= start_element(ELT_SUB_FAMS,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
= start_element(ELT_SUB_FAMS,
PARENT, $1, $3, $4,
GEDCOM_MAKE_XREF_PTR(val1, xr));
}
opt_value
{ $<ctxt>$ = start_element(ELT_USER, PARENT, $1, $4, $6, &val2);
}
opt_value
{ $<ctxt>$ = start_element(ELT_USER, PARENT, $1, $4, $6, &val2);
+ gedcom_debug_print("Push Count level: %d, level: %d\n", count_level, level);
+ if (count_level != level + 1) {
+ gedcom_error(_("Internal error: count level mismatch"));
+ exit(1);
+ }
count = (int *)calloc(YYNTOKENS, sizeof(int));
if (count == NULL) {
gedcom_error(_("Internal error: count array calloc error"));
count = (int *)calloc(YYNTOKENS, sizeof(int));
if (count == NULL) {
gedcom_error(_("Internal error: count array calloc error"));
/* Enabling debug mode */
/* level 0: no debugging */
/* level 1: only internal */
/* Enabling debug mode */
/* level 0: no debugging */
/* level 1: only internal */