#include "encoding.h"
#include "interface.h"
#include "date.h"
+#include "age.h"
+#include "xref.h"
+#include "compat.h"
int count_level = 0;
int fail = 0;
-int compat_enabled = 1;
int gedcom_high_level_debug = 0;
-int compatibility = 0;
Gedcom_err_mech error_mechanism = IMMED_FAIL;
-Gedcom_val_struct val;
+Gedcom_val_struct val1;
+Gedcom_val_struct val2;
char line_item_buf[MAXGEDCLINELEN * UTF_FACTOR + 1];
char *line_item_buf_ptr;
-enum _COMPAT {
- C_FTREE = 0x01
-};
-
/* These are defined at the bottom of the file */
void push_countarray();
void set_parenttag(char* tag);
-char* get_parenttag();
+char* get_parenttag(int offset);
void set_parentctxt(Gedcom_ctxt ctxt);
-Gedcom_ctxt get_parentctxt();
+Gedcom_ctxt get_parentctxt(int offset);
void pop_countarray();
int count_tag(int tag);
int check_occurrence(int tag);
-void set_compatibility(char* program);
-int compat_mode(int flags);
#define CLEAR_BUFFER(BUF) \
memset(BUF, 0, sizeof(BUF));
START2(PARENTCTXT); \
}
#define PARENT \
- get_parentctxt()
+ get_parentctxt(0)
+#define GRANDPARENT(OFF) \
+ get_parentctxt(OFF)
#define CHK(TAG) \
{ if (!check_occurrence(TAG_##TAG)) { \
- char* parenttag = get_parenttag(); \
+ char* parenttag = get_parenttag(0); \
gedcom_error(_("The tag '%s' is mandatory within '%s', but missing"),\
#TAG, parenttag); \
HANDLE_ERROR; \
} \
- }
+ }
#define POP \
{ pop_countarray(); \
--count_level; \
#define OCCUR2(CHILDTAG, MIN, MAX) \
{ int num = count_tag(TAG_##CHILDTAG); \
if (num > MAX) { \
- char* parenttag = get_parenttag(); \
+ char* parenttag = get_parenttag(0); \
gedcom_error(_("The tag '%s' can maximally occur %d time(s) within '%s'"), \
#CHILDTAG, MAX, parenttag); \
HANDLE_ERROR; \
} \
}
#define INVALID_TAG(CHILDTAG) \
- { char* parenttag = get_parenttag(); \
+ { char* parenttag = get_parenttag(0); \
gedcom_error(_("The tag '%s' is not a valid tag within '%s'"), \
CHILDTAG, parenttag); \
HANDLE_ERROR; \
}
%token_table
-%expect 300
+%expect 304
%token <string> BADTOKEN
%token <number> OPEN
%type <tag> indiv_gen_tag
%type <tag> lio_bapl_tag
%type <string> line_item
-%type <string> line_value
%type <string> mand_line_item
%type <string> mand_pointer
%type <string> note_line_item
file : head_sect records trlr_sect
{ if (fail == 1) YYABORT; }
+ | error
+ { }
;
records : /* empty */
/**** Header ****/
/*********************************************************************/
head_sect : OPEN DELIM TAG_HEAD
- { $<ctxt>$ = start_record(REC_HEAD, $1, GEDCOM_MAKE_NULL(), $3,
- NULL, GEDCOM_MAKE_NULL());
+ { $<ctxt>$ = start_record(REC_HEAD, $1, GEDCOM_MAKE_NULL(val1),
+ $3,
+ NULL, GEDCOM_MAKE_NULL(val2));
START(HEAD, $<ctxt>$) }
head_subs
- { if (compat_mode(C_FTREE))
- CHECK3(SOUR, GEDC, CHAR)
+ { if (compat_mode(C_FTREE)) {
+ CHECK3(SOUR, GEDC, CHAR);
+ compat_generate_submitter_link($<ctxt>4);
+ }
+ else if (compat_mode(C_LIFELINES)) {
+ CHECK1(SOUR);
+ compat_generate_submitter_link($<ctxt>4);
+ compat_generate_gedcom($<ctxt>4);
+ if (compat_generate_char($<ctxt>4)) YYABORT;
+ }
else
CHECK4(SOUR, SUBM, GEDC, CHAR)
}
CLOSE
- { end_record(REC_HEAD, $<ctxt>4); }
+ { end_record(REC_HEAD, $<ctxt>4);
+ if (compat_mode(C_FTREE | C_LIFELINES))
+ compat_generate_submitter();
+ }
;
head_subs : /* empty */
head_sub : head_sour_sect { OCCUR2(SOUR, 1, 1) }
| head_dest_sect { OCCUR2(DEST, 0, 1) }
| head_date_sect { OCCUR2(DATE, 0, 1) }
+ | head_time_sect { if (!compat_mode(C_LIFELINES))
+ INVALID_TAG("TIME");
+ OCCUR2(TIME, 0, 1) }
| head_subm_sect { OCCUR2(SUBM, 1, 1) }
| head_subn_sect { OCCUR2(SUBN, 0, 1) }
| head_file_sect { OCCUR2(FILE, 0, 1) }
{ set_compatibility($4);
$<ctxt>$ = start_element(ELT_HEAD_SOUR, PARENT,
$1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(SOUR, $<ctxt>$)
}
head_sour_subs
head_sour_vers_sect : OPEN DELIM TAG_VERS mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_VERS, PARENT,
$1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(VERS, $<ctxt>$)
}
no_std_subs
head_sour_name_sect : OPEN DELIM TAG_NAME mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_NAME, PARENT,
$1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NAME, $<ctxt>$)
}
no_std_subs
head_sour_corp_sect : OPEN DELIM TAG_CORP mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_CORP, PARENT,
$1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CORP, $<ctxt>$)
}
head_sour_corp_subs
head_sour_data_sect : OPEN DELIM TAG_DATA mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_SOUR_DATA, PARENT,
$1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(DATA, $<ctxt>$)
}
head_sour_data_subs
head_sour_data_date_sect : OPEN DELIM TAG_DATE mand_line_item
{ struct date_value dv = gedcom_parse_date($4);
- $<ctxt>$ = start_element(ELT_HEAD_SOUR_DATA_DATE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_DATE(dv));
+ $<ctxt>$
+ = start_element(ELT_HEAD_SOUR_DATA_DATE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_DATE(val1, dv));
START(DATE, $<ctxt>$)
}
no_std_subs
}
;
head_sour_data_copr_sect : OPEN DELIM TAG_COPR mand_line_item
- { $<ctxt>$ = start_element(ELT_HEAD_SOUR_DATA_COPR,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_HEAD_SOUR_DATA_COPR,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(COPR, $<ctxt>$)
}
no_std_subs
head_dest_sect : OPEN DELIM TAG_DEST mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_DEST,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(DEST, $<ctxt>$)
}
no_std_subs
{ struct date_value dv = gedcom_parse_date($4);
$<ctxt>$ = start_element(ELT_HEAD_DATE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_DATE(dv));
+ GEDCOM_MAKE_DATE(val1, dv));
START(DATE, $<ctxt>$)
}
head_date_subs
head_date_time_sect : OPEN DELIM TAG_TIME mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_DATE_TIME,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TIME, $<ctxt>$)
}
no_std_subs
}
;
+/* HEAD.TIME (Only for 'Lifelines' compatibility) */
+/* Just ignore the time... */
+head_time_sect : OPEN DELIM TAG_TIME opt_line_item
+ { }
+ CLOSE
+ ;
+
/* HEAD.SUBM */
head_subm_sect : OPEN DELIM TAG_SUBM mand_pointer
- { $<ctxt>$ = start_element(ELT_HEAD_SUBM,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_SUBM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_HEAD_SUBM,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(SUBM, $<ctxt>$)
}
no_std_subs
;
/* HEAD.SUBN */
head_subn_sect : OPEN DELIM TAG_SUBN mand_pointer
- { $<ctxt>$ = start_element(ELT_HEAD_SUBN,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_SUBN);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_HEAD_SUBN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(SUBN, $<ctxt>$)
}
no_std_subs
head_file_sect : OPEN DELIM TAG_FILE mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_FILE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(FILE, $<ctxt>$)
}
no_std_subs
head_copr_sect : OPEN DELIM TAG_COPR mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_COPR,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(COPR, $<ctxt>$)
}
no_std_subs
head_gedc_sect : OPEN DELIM TAG_GEDC
{ $<ctxt>$ = start_element(ELT_HEAD_GEDC,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(GEDC, $<ctxt>$)
}
head_gedc_subs
head_gedc_vers_sect : OPEN DELIM TAG_VERS mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_GEDC_VERS,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(VERS, $<ctxt>$)
}
no_std_subs
head_gedc_form_sect : OPEN DELIM TAG_FORM mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_GEDC_FORM,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(FORM, $<ctxt>$)
}
no_std_subs
/* HEAD.CHAR */
head_char_sect : OPEN DELIM TAG_CHAR mand_line_item
- { if (open_conv_to_internal($4) == 0) YYERROR;
+ { /* Don't allow to continue if conversion context couldn't
+ be opened */
+ if (open_conv_to_internal($4) == 0) YYABORT;
$<ctxt>$ = start_element(ELT_HEAD_CHAR,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CHAR, $<ctxt>$)
}
head_char_subs
head_char_vers_sect : OPEN DELIM TAG_VERS mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_CHAR_VERS,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(VERS, $<ctxt>$)
}
no_std_subs
head_lang_sect : OPEN DELIM TAG_LANG mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_LANG,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(LANG, $<ctxt>$)
}
no_std_subs
head_plac_sect : OPEN DELIM TAG_PLAC
{ $<ctxt>$ = start_element(ELT_HEAD_PLAC,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(PLAC, $<ctxt>$)
}
head_plac_subs
head_plac_form_sect : OPEN DELIM TAG_FORM mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_PLAC_FORM,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(FORM, $<ctxt>$)
}
no_std_subs
head_note_sect : OPEN DELIM TAG_NOTE mand_line_item
{ $<ctxt>$ = start_element(ELT_HEAD_NOTE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NOTE, $<ctxt>$)
}
head_note_subs
/**** Family record ****/
/*********************************************************************/
fam_rec : OPEN DELIM POINTER DELIM TAG_FAM
- { $<ctxt>$ = start_record(REC_FAM,
- $1, GEDCOM_MAKE_STRING($3), $5,
- NULL, GEDCOM_MAKE_NULL());
+ { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED,
+ XREF_FAM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_record(REC_FAM,
+ $1, GEDCOM_MAKE_XREF_PTR(val1, xr),
+ $5,
+ NULL, GEDCOM_MAKE_NULL(val2));
START(FAM, $<ctxt>$) }
fam_subs
{ CHECK0 }
/* FAM.HUSB */
fam_husb_sect : OPEN DELIM TAG_HUSB mand_pointer
- { $<ctxt>$ = start_element(ELT_FAM_HUSB,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_INDI);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_FAM_HUSB,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(HUSB, $<ctxt>$)
}
no_std_subs
/* FAM.WIFE */
fam_wife_sect : OPEN DELIM TAG_WIFE mand_pointer
- { $<ctxt>$ = start_element(ELT_FAM_WIFE,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_INDI);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_FAM_WIFE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(WIFE, $<ctxt>$)
}
no_std_subs
/* FAM.CHIL */
fam_chil_sect : OPEN DELIM TAG_CHIL mand_pointer
- { $<ctxt>$ = start_element(ELT_FAM_CHIL,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_INDI);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_FAM_CHIL,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(CHIL, $<ctxt>$)
}
no_std_subs
fam_nchi_sect : OPEN DELIM TAG_NCHI mand_line_item
{ $<ctxt>$ = start_element(ELT_FAM_NCHI,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NCHI, $<ctxt>$)
}
no_std_subs
/* FAM.SUBM */
fam_subm_sect : OPEN DELIM TAG_SUBM mand_pointer
- { $<ctxt>$ = start_element(ELT_FAM_SUBM,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_SUBM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_FAM_SUBM,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(SUBM, $<ctxt>$)
}
no_std_subs
/**** Individual record ****/
/*********************************************************************/
indiv_rec : OPEN DELIM POINTER DELIM TAG_INDI
- { $<ctxt>$ = start_record(REC_INDI,
- $1, GEDCOM_MAKE_STRING($3), $5,
- NULL, GEDCOM_MAKE_NULL());
+ { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED,
+ XREF_INDI);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_record(REC_INDI,
+ $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
+ NULL, GEDCOM_MAKE_NULL(val2));
START(INDI, $<ctxt>$) }
indi_subs
{ CHECK0 }
indi_resn_sect : OPEN DELIM TAG_RESN mand_line_item
{ $<ctxt>$ = start_element(ELT_INDI_RESN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(RESN, $<ctxt>$)
}
no_std_subs
indi_sex_sect : OPEN DELIM TAG_SEX mand_line_item
{ $<ctxt>$ = start_element(ELT_INDI_SEX,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(SEX, $<ctxt>$)
}
no_std_subs
/* INDI.SUBM */
indi_subm_sect : OPEN DELIM TAG_SUBM mand_pointer
- { $<ctxt>$ = start_element(ELT_INDI_SUBM,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_SUBM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_INDI_SUBM,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(SUBM, $<ctxt>$)
}
no_std_subs
/* INDI.ALIA */
indi_alia_sect : OPEN DELIM TAG_ALIA mand_pointer
- { $<ctxt>$ = start_element(ELT_INDI_ALIA,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_INDI);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_INDI_ALIA,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(ALIA, $<ctxt>$)
}
no_std_subs
/* INDI.ANCI */
indi_anci_sect : OPEN DELIM TAG_ANCI mand_pointer
- { $<ctxt>$ = start_element(ELT_INDI_ANCI,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_SUBM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_INDI_ANCI,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(ANCI, $<ctxt>$)
}
no_std_subs
/* INDI.DESI */
indi_desi_sect : OPEN DELIM TAG_DESI mand_pointer
- { $<ctxt>$ = start_element(ELT_INDI_DESI,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_SUBM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_INDI_DESI,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(DESI, $<ctxt>$)
}
no_std_subs
indi_rfn_sect : OPEN DELIM TAG_RFN mand_line_item
{ $<ctxt>$ = start_element(ELT_INDI_RFN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(RFN, $<ctxt>$)
}
no_std_subs
indi_afn_sect : OPEN DELIM TAG_AFN mand_line_item
{ $<ctxt>$ = start_element(ELT_INDI_AFN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(AFN, $<ctxt>$)
}
no_std_subs
/* INDI.ADDR (Only for 'ftree' compatibility) */
ftree_addr_sect : OPEN DELIM TAG_ADDR opt_line_item
- { START(ADDR, NULL) } no_std_subs { CHECK0 } CLOSE { }
+ { if (compat_mode(C_FTREE)) {
+ Gedcom_ctxt par = compat_generate_resi_start(PARENT);
+ START(RESI, par);
+ $<ctxt>$
+ = start_element(ELT_SUB_ADDR,
+ par, $1 + 1, $3, $4,
+ GEDCOM_MAKE_NULL_OR_STRING(val2, $4));
+ START(ADDR, $<ctxt>$);
+ }
+ else { START(ADDR, NULL) }
+ }
+ ftree_addr_subs
+ { CHECK0 }
+ CLOSE
+ { if (compat_mode(C_FTREE)) {
+ Gedcom_ctxt par = PARENT;
+ end_element(ELT_SUB_ADDR, par, $<ctxt>5, NULL);
+ CHECK0;
+ compat_generate_resi_end(PARENT, par);
+ }
+ }
+
+ftree_addr_subs : /* empty */
+ | ftree_addr_subs ftree_addr_sub
+ ;
+
+ftree_addr_sub : continuation_sub
+ | ftree_addr_phon_sect
+ | no_std_sub
+ ;
+
+ftree_addr_phon_sect : OPEN DELIM TAG_PHON mand_line_item
+ { $<ctxt>$
+ = start_element(ELT_SUB_PHON,
+ GRANDPARENT(1), $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
+ START(PHON, $<ctxt>$)
+ }
+ no_std_subs
+ { CHECK0 }
+ CLOSE
+ { end_element(ELT_SUB_PHON, GRANDPARENT(1),
+ $<ctxt>5, NULL);
+ }
+ ;
/*********************************************************************/
/**** Multimedia record ****/
/*********************************************************************/
multim_rec : OPEN DELIM POINTER DELIM TAG_OBJE
- { $<ctxt>$ = start_record(REC_OBJE,
- $1, GEDCOM_MAKE_STRING($3), $5,
- NULL, GEDCOM_MAKE_NULL());
+ { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED,
+ XREF_OBJE);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_record(REC_OBJE,
+ $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
+ NULL, GEDCOM_MAKE_NULL(val2));
START(OBJE, $<ctxt>$) }
obje_subs
{ CHECK2(FORM, BLOB) }
obje_form_sect : OPEN DELIM TAG_FORM mand_line_item
{ $<ctxt>$ = start_element(ELT_OBJE_FORM,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(FORM, $<ctxt>$)
}
no_std_subs
obje_titl_sect : OPEN DELIM TAG_TITL mand_line_item
{ $<ctxt>$ = start_element(ELT_OBJE_TITL,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TITL, $<ctxt>$)
}
no_std_subs
obje_blob_sect : OPEN DELIM TAG_BLOB
{ $<ctxt>$ = start_element(ELT_OBJE_BLOB,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(BLOB, $<ctxt>$)
}
obje_blob_subs
obje_blob_cont_sect : OPEN DELIM TAG_CONT mand_line_item
{ $<ctxt>$ = start_element(ELT_OBJE_BLOB_CONT,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CONT, $<ctxt>$)
}
no_std_subs
/* OBJE.OBJE */
obje_obje_sect : OPEN DELIM TAG_OBJE mand_pointer
- { $<ctxt>$ = start_element(ELT_OBJE_OBJE,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_OBJE);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_OBJE_OBJE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(OBJE, $<ctxt>$)
}
no_std_subs
/**** Note record ****/
/*********************************************************************/
note_rec : OPEN DELIM POINTER DELIM TAG_NOTE note_line_item
- { $<ctxt>$ = start_record(REC_NOTE,
- $1, GEDCOM_MAKE_STRING($3), $5,
- $6, GEDCOM_MAKE_STRING($6));
+ { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED,
+ XREF_NOTE);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_record(REC_NOTE,
+ $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
+ $6, GEDCOM_MAKE_STRING(val2, $6));
START(NOTE, $<ctxt>$) }
note_subs
{ CHECK0 }
{ if (!compat_mode(C_FTREE)) {
gedcom_error(_("Missing value")); YYERROR;
}
+ else {
+ $$ = "";
+ }
}
| DELIM line_item
{ gedcom_debug_print("==Val: %s==", $2);
/**** Repository record ****/
/*********************************************************************/
repos_rec : OPEN DELIM POINTER DELIM TAG_REPO
- { $<ctxt>$ = start_record(REC_REPO,
- $1, GEDCOM_MAKE_STRING($3), $5,
- NULL, GEDCOM_MAKE_NULL());
+ { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED,
+ XREF_REPO);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_record(REC_REPO,
+ $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
+ NULL, GEDCOM_MAKE_NULL(val2));
START(REPO, $<ctxt>$) }
repo_subs
{ CHECK0 }
repo_name_sect : OPEN DELIM TAG_NAME mand_line_item
{ $<ctxt>$ = start_element(ELT_REPO_NAME,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NAME, $<ctxt>$)
}
no_std_subs
/**** Source record ****/
/*********************************************************************/
source_rec : OPEN DELIM POINTER DELIM TAG_SOUR
- { $<ctxt>$ = start_record(REC_SOUR,
- $1, GEDCOM_MAKE_STRING($3), $5,
- NULL, GEDCOM_MAKE_NULL());
+ { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED,
+ XREF_SOUR);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_record(REC_SOUR,
+ $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
+ NULL, GEDCOM_MAKE_NULL(val2));
START(SOUR, $<ctxt>$) }
sour_subs
{ CHECK0 }
sour_data_sect : OPEN DELIM TAG_DATA
{ $<ctxt>$ = start_element(ELT_SOUR_DATA,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(DATA, $<ctxt>$)
}
sour_data_subs
sour_data_even_sect : OPEN DELIM TAG_EVEN mand_line_item
{ $<ctxt>$ = start_element(ELT_SOUR_DATA_EVEN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(EVEN, $<ctxt>$)
}
sour_data_even_subs
sour_data_even_date_sect : OPEN DELIM TAG_DATE mand_line_item
{ struct date_value dv = gedcom_parse_date($4);
- $<ctxt>$ = start_element(ELT_SOUR_DATA_EVEN_DATE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_DATE(dv));
+ $<ctxt>$
+ = start_element(ELT_SOUR_DATA_EVEN_DATE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_DATE(val1, dv));
START(DATE, $<ctxt>$)
}
no_std_subs
;
sour_data_even_plac_sect : OPEN DELIM TAG_PLAC mand_line_item
- { $<ctxt>$ = start_element(ELT_SOUR_DATA_EVEN_PLAC,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SOUR_DATA_EVEN_PLAC,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(PLAC, $<ctxt>$)
}
no_std_subs
sour_data_agnc_sect : OPEN DELIM TAG_AGNC mand_line_item
{ $<ctxt>$ = start_element(ELT_SOUR_DATA_AGNC,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(AGNC, $<ctxt>$)
}
no_std_subs
sour_auth_sect : OPEN DELIM TAG_AUTH mand_line_item
{ $<ctxt>$ = start_element(ELT_SOUR_AUTH,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(AUTH, $<ctxt>$)
}
sour_auth_subs
sour_titl_sect : OPEN DELIM TAG_TITL mand_line_item
{ $<ctxt>$ = start_element(ELT_SOUR_TITL,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TITL, $<ctxt>$)
}
sour_titl_subs
sour_abbr_sect : OPEN DELIM TAG_ABBR mand_line_item
{ $<ctxt>$ = start_element(ELT_SOUR_ABBR,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(ABBR, $<ctxt>$)
}
no_std_subs
sour_publ_sect : OPEN DELIM TAG_PUBL mand_line_item
{ $<ctxt>$ = start_element(ELT_SOUR_PUBL,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(PUBL, $<ctxt>$)
}
sour_publ_subs
sour_text_sect : OPEN DELIM TAG_TEXT mand_line_item
{ $<ctxt>$ = start_element(ELT_SOUR_TEXT,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TEXT, $<ctxt>$)
}
sour_text_subs
/**** Submission record ****/
/*********************************************************************/
submis_rec : OPEN DELIM POINTER DELIM TAG_SUBN
- { $<ctxt>$ = start_record(REC_SUBN,
- $1, GEDCOM_MAKE_STRING($3), $5,
- NULL, GEDCOM_MAKE_NULL());
+ { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED,
+ XREF_SUBN);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_record(REC_SUBN,
+ $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
+ NULL, GEDCOM_MAKE_NULL(val2));
START(SUBN, $<ctxt>$) }
subn_subs
{ CHECK0 }
/* SUBN.SUBM */
subn_subm_sect : OPEN DELIM TAG_SUBM mand_pointer
- { $<ctxt>$ = start_element(ELT_SUBN_SUBM,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_SUBM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_SUBN_SUBM,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(SUBM, $<ctxt>$)
}
no_std_subs
subn_famf_sect : OPEN DELIM TAG_FAMF mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBN_FAMF,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(FAMF, $<ctxt>$)
}
no_std_subs
subn_temp_sect : OPEN DELIM TAG_TEMP mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBN_TEMP,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TEMP, $<ctxt>$)
}
no_std_subs
subn_ance_sect : OPEN DELIM TAG_ANCE mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBN_ANCE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(ANCE, $<ctxt>$)
}
no_std_subs
subn_desc_sect : OPEN DELIM TAG_DESC mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBN_DESC,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(DESC, $<ctxt>$)
}
no_std_subs
subn_ordi_sect : OPEN DELIM TAG_ORDI mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBN_ORDI,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(ORDI, $<ctxt>$)
}
no_std_subs
subn_rin_sect : OPEN DELIM TAG_RIN mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBN_RIN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(RIN, $<ctxt>$)
}
no_std_subs
/**** Submitter record ****/
/*********************************************************************/
submit_rec : OPEN DELIM POINTER DELIM TAG_SUBM
- { $<ctxt>$ = start_record(REC_SUBM,
- $1, GEDCOM_MAKE_STRING($3), $5,
- NULL, GEDCOM_MAKE_NULL());
+ { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED,
+ XREF_SUBM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_record(REC_SUBM,
+ $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5,
+ NULL, GEDCOM_MAKE_NULL(val2));
START(SUBM, $<ctxt>$) }
subm_subs
{ CHECK1(NAME) }
| subm_subs subm_sub
;
-subm_sub : subm_name_sect { OCCUR2(NAME, 0, 1) }
+subm_sub : subm_name_sect { OCCUR2(NAME, 1, 1) }
| addr_struc_sub /* 0:1 */
| multim_link_sub /* 0:M */
| subm_lang_sect { OCCUR2(LANG, 0, 3) }
subm_name_sect : OPEN DELIM TAG_NAME mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBM_NAME,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NAME, $<ctxt>$)
}
no_std_subs
subm_lang_sect : OPEN DELIM TAG_LANG mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBM_LANG,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(LANG, $<ctxt>$)
}
no_std_subs
subm_rfn_sect : OPEN DELIM TAG_RFN mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBM_RFN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(RFN, $<ctxt>$)
}
no_std_subs
subm_rin_sect : OPEN DELIM TAG_RIN mand_line_item
{ $<ctxt>$ = start_element(ELT_SUBM_RIN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(RIN, $<ctxt>$)
}
no_std_subs
addr_sect : OPEN DELIM TAG_ADDR mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ADDR,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(ADDR, $<ctxt>$)
}
addr_subs
addr_cont_sect : OPEN DELIM TAG_CONT mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CONT,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CONT, $<ctxt>$)
}
no_std_subs
addr_adr1_sect : OPEN DELIM TAG_ADR1 mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_ADR1,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(ADR1, $<ctxt>$)
}
no_std_subs
addr_adr2_sect : OPEN DELIM TAG_ADR2 mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_ADR2,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(ADR2, $<ctxt>$)
}
no_std_subs
addr_city_sect : OPEN DELIM TAG_CITY mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CITY,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CITY, $<ctxt>$)
}
no_std_subs
addr_stae_sect : OPEN DELIM TAG_STAE mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_STAE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(STAE, $<ctxt>$)
}
no_std_subs
addr_post_sect : OPEN DELIM TAG_POST mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_POST,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(POST, $<ctxt>$)
}
no_std_subs
addr_ctry_sect : OPEN DELIM TAG_CTRY mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ADDR_CTRY,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CTRY, $<ctxt>$)
}
no_std_subs
phon_sect : OPEN DELIM TAG_PHON mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_PHON,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(PHON, $<ctxt>$)
}
no_std_subs
;
asso_sect : OPEN DELIM TAG_ASSO mand_pointer
- { $<ctxt>$ = start_element(ELT_SUB_ASSO,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_ANY);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_SUB_ASSO,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(ASSO, $<ctxt>$)
}
asso_subs
asso_type_sect : OPEN DELIM TAG_TYPE mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ASSO_TYPE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TYPE, $<ctxt>$)
}
no_std_subs
asso_rela_sect : OPEN DELIM TAG_RELA mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_ASSO_RELA,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(RELA, $<ctxt>$)
}
no_std_subs
change_date_chan_sect : OPEN DELIM TAG_CHAN
{ $<ctxt>$ = start_element(ELT_SUB_CHAN,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(CHAN, $<ctxt>$)
}
change_date_chan_subs
{ struct date_value dv = gedcom_parse_date($4);
$<ctxt>$ = start_element(ELT_SUB_CHAN_DATE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_DATE(dv));
+ GEDCOM_MAKE_DATE(val1, dv));
START(DATE, $<ctxt>$) }
change_date_date_subs
{ CHECK0 }
{ $<ctxt>$
= start_element(ELT_SUB_CHAN_TIME,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TIME, $<ctxt>$)
}
no_std_subs
;
famc_sect : OPEN DELIM TAG_FAMC mand_pointer
- { $<ctxt>$ = start_element(ELT_SUB_FAMC,
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_FAM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$ = start_element(ELT_SUB_FAMC,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(FAMC, $<ctxt>$)
}
famc_subs
famc_pedi_sect : OPEN DELIM TAG_PEDI mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_FAMC_PEDI,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(PEDI, $<ctxt>$)
}
no_std_subs
cont_sect : OPEN DELIM TAG_CONT mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_CONT,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CONT, $<ctxt>$)
}
no_std_subs
conc_sect : OPEN DELIM TAG_CONC mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_CONC,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CONC, $<ctxt>$)
}
no_std_subs
;
event_detail_type_sect : OPEN DELIM TAG_TYPE mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_EVT_TYPE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_EVT_TYPE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(TYPE, $<ctxt>$)
}
no_std_subs
;
event_detail_date_sect : OPEN DELIM TAG_DATE mand_line_item
{ struct date_value dv = gedcom_parse_date($4);
- $<ctxt>$ = start_element(ELT_SUB_EVT_DATE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_DATE(dv));
+ $<ctxt>$
+ = start_element(ELT_SUB_EVT_DATE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_DATE(val1, dv));
START(DATE, $<ctxt>$)
}
no_std_subs
}
;
event_detail_age_sect : OPEN DELIM TAG_AGE mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_EVT_AGE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { struct age_value age = gedcom_parse_age($4);
+ $<ctxt>$
+ = start_element(ELT_SUB_EVT_AGE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_AGE(val1, age));
START(AGE, $<ctxt>$)
}
no_std_subs
}
;
event_detail_agnc_sect : OPEN DELIM TAG_AGNC mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_EVT_AGNC,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_EVT_AGNC,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(AGNC, $<ctxt>$)
}
no_std_subs
}
;
event_detail_caus_sect : OPEN DELIM TAG_CAUS mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_EVT_CAUS,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_EVT_CAUS,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(CAUS, $<ctxt>$)
}
no_std_subs
;
fam_event_sect : OPEN DELIM fam_event_tag opt_value
- {
- $<ctxt>$ = start_element(ELT_SUB_FAM_EVT,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_NULL_OR_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_FAM_EVT,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
START2($<ctxt>$);
}
fam_event_subs
fam_even_husb_sect : OPEN DELIM TAG_HUSB
{ $<ctxt>$ = start_element(ELT_SUB_FAM_EVT_HUSB,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(HUSB, $<ctxt>$)
}
fam_even_husb_subs
;
fam_even_age_sect : OPEN DELIM TAG_AGE mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_FAM_EVT_AGE,
+ { struct age_value age = gedcom_parse_age($4);
+ $<ctxt>$ = start_element(ELT_SUB_FAM_EVT_AGE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_AGE(val1, age));
START(AGE, $<ctxt>$)
}
no_std_subs
fam_even_wife_sect : OPEN DELIM TAG_WIFE
{ $<ctxt>$ = start_element(ELT_SUB_FAM_EVT_WIFE,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(WIFE, $<ctxt>$)
}
fam_even_husb_subs
fam_gen_even_sect : OPEN DELIM TAG_EVEN
{ $<ctxt>$ = start_element(ELT_SUB_FAM_EVT_EVEN,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(EVEN, $<ctxt>$)
}
fam_gen_even_subs
ident_refn_sect : OPEN DELIM TAG_REFN mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_IDENT_REFN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(REFN, $<ctxt>$)
}
ident_refn_subs
;
ident_refn_type_sect : OPEN DELIM TAG_TYPE mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_IDENT_REFN_TYPE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_IDENT_REFN_TYPE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(TYPE, $<ctxt>$)
}
no_std_subs
ident_rin_sect : OPEN DELIM TAG_RIN mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_IDENT_RIN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(RIN, $<ctxt>$)
}
no_std_subs
indiv_attr_sect : OPEN DELIM indiv_attr_tag mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_INDIV_ATTR,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START2($<ctxt>$);
}
indiv_attr_event_subs
indiv_resi_sect : OPEN DELIM TAG_RESI
{ $<ctxt>$ = start_element(ELT_SUB_INDIV_RESI,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(RESI, $<ctxt>$)
}
indiv_attr_event_subs
;
indiv_birt_sect : OPEN DELIM indiv_birt_tag opt_value
- { $<ctxt>$ = start_element(ELT_SUB_INDIV_BIRT,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_NULL_OR_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_INDIV_BIRT,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
START2($<ctxt>$);
}
indiv_birt_subs
;
indiv_birt_famc_sect : OPEN DELIM TAG_FAMC mand_pointer
- { $<ctxt>$ = start_element(ELT_SUB_INDIV_BIRT_FAMC,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { struct xref_value *xr = gedcom_parse_xref($4,
+ XREF_USED,
+ XREF_FAM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$
+ = start_element(ELT_SUB_INDIV_BIRT_FAMC,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(FAMC, $<ctxt>$)
}
no_std_subs
;
indiv_gen_sect : OPEN DELIM indiv_gen_tag opt_value
- { $<ctxt>$ = start_element(ELT_SUB_INDIV_GEN,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_NULL_OR_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_INDIV_GEN,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
START2($<ctxt>$);
}
indiv_gen_subs
;
indiv_adop_sect : OPEN DELIM TAG_ADOP opt_value
- { $<ctxt>$ = start_element(ELT_SUB_INDIV_ADOP,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_NULL_OR_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_INDIV_ADOP,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
START(ADOP, $<ctxt>$) }
indiv_adop_subs
{ CHECK0 }
;
indiv_adop_famc_sect : OPEN DELIM TAG_FAMC mand_pointer
- { $<ctxt>$ = start_element(ELT_SUB_INDIV_ADOP_FAMC,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { struct xref_value *xr = gedcom_parse_xref($4,
+ XREF_USED,
+ XREF_FAM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$
+ = start_element(ELT_SUB_INDIV_ADOP_FAMC,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(FAMC, $<ctxt>$) }
indiv_adop_famc_subs
{ CHECK0 }
{ $<ctxt>$
= start_element(ELT_SUB_INDIV_ADOP_FAMC_ADOP,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(ADOP, $<ctxt>$) }
no_std_subs
{ CHECK0 }
indiv_even_sect : OPEN DELIM TAG_EVEN
{ $<ctxt>$ = start_element(ELT_SUB_INDIV_EVEN,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(EVEN, $<ctxt>$) }
indiv_gen_subs
{ CHECK0 }
lio_bapl_sect : OPEN DELIM lio_bapl_tag
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START2($<ctxt>$);
}
lio_bapl_subs
lio_bapl_stat_sect : OPEN DELIM TAG_STAT mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_STAT,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(STAT, $<ctxt>$)
}
no_std_subs
{ struct date_value dv = gedcom_parse_date($4);
$<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_DATE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_DATE(dv));
+ GEDCOM_MAKE_DATE(val1, dv));
START(DATE, $<ctxt>$)
}
no_std_subs
lio_bapl_temp_sect : OPEN DELIM TAG_TEMP mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_TEMP,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TEMP, $<ctxt>$)
}
no_std_subs
lio_bapl_plac_sect : OPEN DELIM TAG_PLAC mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_LIO_BAPL_PLAC,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(PLAC, $<ctxt>$)
}
no_std_subs
lio_slgc_sect : OPEN DELIM TAG_SLGC
{ $<ctxt>$ = start_element(ELT_SUB_LIO_SLGC,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(SLGC, $<ctxt>$)
}
lio_slgc_subs
;
lio_slgc_famc_sect : OPEN DELIM TAG_FAMC mand_pointer
- { $<ctxt>$ = start_element(ELT_SUB_LIO_SLGC_FAMC,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_FAM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$
+ = start_element(ELT_SUB_LIO_SLGC_FAMC,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(FAMC, $<ctxt>$)
}
no_std_subs
lss_slgs_sect : OPEN DELIM TAG_SLGS
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(SLGS, $<ctxt>$) }
lss_slgs_subs
{ CHECK0 }
lss_slgs_stat_sect : OPEN DELIM TAG_STAT mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_STAT,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(STAT, $<ctxt>$)
}
no_std_subs
{ struct date_value dv = gedcom_parse_date($4);
$<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_DATE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_DATE(dv));
+ GEDCOM_MAKE_DATE(val1, dv));
START(DATE, $<ctxt>$)
}
no_std_subs
lss_slgs_temp_sect : OPEN DELIM TAG_TEMP mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_TEMP,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(TEMP, $<ctxt>$)
}
no_std_subs
lss_slgs_plac_sect : OPEN DELIM TAG_PLAC mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_LSS_SLGS_PLAC,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(PLAC, $<ctxt>$)
}
no_std_subs
;
multim_obje_link_sect : OPEN DELIM TAG_OBJE DELIM POINTER
- { $<ctxt>$ = start_element(ELT_SUB_MULTIM_OBJE,
- PARENT, $1, $3, $5,
- GEDCOM_MAKE_STRING($5));
+ { struct xref_value *xr = gedcom_parse_xref($5,
+ XREF_USED,
+ XREF_OBJE);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$
+ = start_element(ELT_SUB_MULTIM_OBJE,
+ PARENT, $1, $3, $5,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(OBJE, $<ctxt>$)
}
no_std_subs
multim_obje_emb_sect : OPEN DELIM TAG_OBJE
{ $<ctxt>$ = start_element(ELT_SUB_MULTIM_OBJE,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(OBJE, $<ctxt>$)
}
multim_obje_emb_subs
;
multim_obje_form_sect : OPEN DELIM TAG_FORM mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_MULTIM_OBJE_FORM,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_MULTIM_OBJE_FORM,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(FORM, $<ctxt>$)
}
no_std_subs
}
;
multim_obje_titl_sect : OPEN DELIM TAG_TITL mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_MULTIM_OBJE_TITL,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_MULTIM_OBJE_TITL,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(TITL, $<ctxt>$)
}
no_std_subs
}
;
multim_obje_file_sect : OPEN DELIM TAG_FILE mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_MULTIM_OBJE_FILE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_MULTIM_OBJE_FILE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(FILE, $<ctxt>$)
}
no_std_subs
;
note_struc_link_sect : OPEN DELIM TAG_NOTE DELIM POINTER
- { $<ctxt>$ = start_element(ELT_SUB_NOTE,
- PARENT, $1, $3, $5,
- GEDCOM_MAKE_STRING($5));
+ { struct xref_value *xr = gedcom_parse_xref($5,
+ XREF_USED,
+ XREF_NOTE);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$
+ = start_element(ELT_SUB_NOTE,
+ PARENT, $1, $3, $5,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(NOTE, $<ctxt>$)
}
note_struc_link_subs
{ $<ctxt>$
= start_element(ELT_SUB_NOTE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_NULL_OR_STRING($4));
+ GEDCOM_MAKE_NULL_OR_STRING(val1, $4));
START(NOTE, $<ctxt>$)
}
note_struc_emb_subs
pers_name_sect : OPEN DELIM TAG_NAME mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NAME, $<ctxt>$)
}
pers_name_subs
pers_name_npfx_sect : OPEN DELIM TAG_NPFX mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NPFX,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NPFX, $<ctxt>$)
}
no_std_subs
pers_name_givn_sect : OPEN DELIM TAG_GIVN mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_GIVN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(GIVN, $<ctxt>$)
}
no_std_subs
pers_name_nick_sect : OPEN DELIM TAG_NICK mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NICK,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NICK, $<ctxt>$)
}
no_std_subs
pers_name_spfx_sect : OPEN DELIM TAG_SPFX mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_SPFX,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(SPFX, $<ctxt>$)
}
no_std_subs
pers_name_surn_sect : OPEN DELIM TAG_SURN mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_SURN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(SURN, $<ctxt>$)
}
no_std_subs
pers_name_nsfx_sect : OPEN DELIM TAG_NSFX mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_PERS_NAME_NSFX,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(NSFX, $<ctxt>$)
}
no_std_subs
;
place_struc_plac_sect : OPEN DELIM TAG_PLAC mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_PLAC,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_PLAC,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(PLAC, $<ctxt>$)
}
place_struc_plac_subs
;
place_plac_form_sect : OPEN DELIM TAG_FORM mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_PLAC_FORM,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_PLAC_FORM,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(FORM, $<ctxt>$)
}
no_std_subs
;
source_cit_link_sect : OPEN DELIM TAG_SOUR DELIM POINTER
- { $<ctxt>$ = start_element(ELT_SUB_SOUR,
- PARENT, $1, $3, $5,
- GEDCOM_MAKE_STRING($5));
+ { struct xref_value *xr = gedcom_parse_xref($5,
+ XREF_USED,
+ XREF_SOUR);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$
+ = start_element(ELT_SUB_SOUR,
+ PARENT, $1, $3, $5,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(SOUR, $<ctxt>$)
}
source_cit_link_subs
;
source_cit_page_sect : OPEN DELIM TAG_PAGE mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_SOUR_PAGE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_SOUR_PAGE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(PAGE, $<ctxt>$)
}
no_std_subs
;
source_cit_even_sect : OPEN DELIM TAG_EVEN mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_SOUR_EVEN,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_SOUR_EVEN,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(EVEN, $<ctxt>$)
}
source_cit_even_subs
;
source_cit_even_role_sect : OPEN DELIM TAG_ROLE mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_SOUR_EVEN_ROLE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_SOUR_EVEN_ROLE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(ROLE, $<ctxt>$)
}
no_std_subs
source_cit_data_sect : OPEN DELIM TAG_DATA
{ $<ctxt>$ = start_element(ELT_SUB_SOUR_DATA,
PARENT, $1, $3, NULL,
- GEDCOM_MAKE_NULL());
+ GEDCOM_MAKE_NULL(val1));
START(DATA, $<ctxt>$)
}
source_cit_data_subs
source_cit_data_date_sect : OPEN DELIM TAG_DATE mand_line_item
{ struct date_value dv = gedcom_parse_date($4);
- $<ctxt>$ = start_element(ELT_SUB_SOUR_DATA_DATE,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_DATE(dv));
+ $<ctxt>$
+ = start_element(ELT_SUB_SOUR_DATA_DATE,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_DATE(val1, dv));
START(DATE, $<ctxt>$)
}
no_std_subs
;
source_cit_text_sect : OPEN DELIM TAG_TEXT mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_SOUR_TEXT,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_SOUR_TEXT,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(TEXT, $<ctxt>$)
}
source_cit_text_subs
;
source_cit_quay_sect : OPEN DELIM TAG_QUAY mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_SOUR_QUAY,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { $<ctxt>$
+ = start_element(ELT_SUB_SOUR_QUAY,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_STRING(val1, $4));
START(QUAY, $<ctxt>$)
}
no_std_subs
source_cit_emb_sect : OPEN DELIM TAG_SOUR mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_SOUR,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(SOUR, $<ctxt>$)
}
source_cit_emb_subs
;
source_repos_repo_sect : OPEN DELIM TAG_REPO mand_pointer
- { $<ctxt>$ = start_element(ELT_SUB_REPO,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { struct xref_value *xr
+ = gedcom_parse_xref($4, XREF_USED, XREF_REPO);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$
+ = start_element(ELT_SUB_REPO,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(REPO, $<ctxt>$)
}
source_repos_repo_subs
caln_sect : OPEN DELIM TAG_CALN mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_REPO_CALN,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(CALN, $<ctxt>$)
}
caln_subs
caln_medi_sect : OPEN DELIM TAG_MEDI mand_line_item
{ $<ctxt>$ = start_element(ELT_SUB_REPO_CALN_MEDI,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ GEDCOM_MAKE_STRING(val1, $4));
START(MEDI, $<ctxt>$)
}
no_std_subs
;
spou_fam_fams_sect : OPEN DELIM TAG_FAMS mand_pointer
- { $<ctxt>$ = start_element(ELT_SUB_FAMS,
- PARENT, $1, $3, $4,
- GEDCOM_MAKE_STRING($4));
+ { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED,
+ XREF_FAM);
+ if (xr == NULL) HANDLE_ERROR;
+ $<ctxt>$
+ = start_element(ELT_SUB_FAMS,
+ PARENT, $1, $3, $4,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
START(FAMS, $<ctxt>$)
}
spou_fam_fams_subs
}
}
opt_value
- { $<ctxt>$ = start_record(REC_USER,
- $1, GEDCOM_MAKE_NULL_OR_STRING($3), $4,
- $6, GEDCOM_MAKE_NULL_OR_STRING($6));
+ { struct xref_value *xr = NULL;
+ if ($3 != NULL) {
+ xr = gedcom_parse_xref($3, XREF_DEFINED, XREF_USER);
+ if (xr == NULL) HANDLE_ERROR;
+ }
+ $<ctxt>$ = start_record(REC_USER,
+ $1,
+ GEDCOM_MAKE_NULL_OR_XREF_PTR(val1, xr),
+ $4, $6, &val2);
START($4, $<ctxt>$)
}
user_sects
}
}
opt_value
- { $<ctxt>$ = start_element(ELT_USER, PARENT, $1, $4, $6,
- GEDCOM_MAKE_NULL_OR_STRING($6));
+ { $<ctxt>$ = start_element(ELT_USER, PARENT, $1, $4, $6, &val2);
START($4, $<ctxt>$);
}
user_sects
| POINTER DELIM { $$ = $1; }
;
-opt_value : /* empty */ { $$ = NULL; }
- | DELIM line_value { $$ = $2; }
- ;
-
-line_value : POINTER { $$ = $1; }
- | line_item { $$ = $1; }
+opt_value : /* empty */ { GEDCOM_MAKE_NULL(val2);
+ $$ = NULL; }
+ | DELIM POINTER { struct xref_value *xr
+ = gedcom_parse_xref($2, XREF_USED,
+ XREF_USER);
+ GEDCOM_MAKE_XREF_PTR(val2, xr);
+ $$ = $2; }
+ | DELIM line_item { GEDCOM_MAKE_STRING(val2, $2);
+ $$ = $2; }
;
mand_pointer : /* empty */ { gedcom_error(_("Missing pointer")); YYERROR; }
$$ = $2; }
;
-mand_line_item : /* empty */ { gedcom_error(_("Missing value")); YYERROR; }
+mand_line_item : /* empty */
+ { if (compat_mode(C_LIFELINES)) {
+ /* Lifelines tends to not care about mandatory values */
+ gedcom_debug_print("==Val: ==");
+ $$ = "";
+ }
+ else {
+ gedcom_error(_("Missing value")); YYERROR;
+ }
+ }
| DELIM line_item { gedcom_debug_print("==Val: %s==", $2);
$$ = $2; }
;
-opt_line_item : /* empty */ { }
+opt_line_item : /* empty */ { $$ = NULL; }
| DELIM line_item { gedcom_debug_print("==Val: %s==", $2);
$$ = $2; }
;
error_sect : OPEN DELIM opt_xref anytag opt_value error_subs CLOSE { }
gen_sect : OPEN DELIM opt_xref anystdtag
- { INVALID_TAG($4); }
+ { INVALID_TAG($4.string); }
opt_value opt_sects CLOSE
{ }
;
;
gen_rec_norm : OPEN DELIM opt_xref anystdtag
- { INVALID_TOP_TAG($4) }
+ { INVALID_TOP_TAG($4.string) }
opt_value opt_sects CLOSE
{ }
;
ctxt_stack[count_level+1] = ctxt;
}
-char* get_parenttag()
+char* get_parenttag(int offset)
{
- return tag_stack[count_level];
+ return tag_stack[count_level - offset];
}
-Gedcom_ctxt get_parentctxt()
+Gedcom_ctxt get_parentctxt(int offset)
{
- return ctxt_stack[count_level];
+ return ctxt_stack[count_level - offset];
}
int count_tag(int tag)
{
error_mechanism = mechanism;
}
-
-/* Compatibility handling */
-
-void gedcom_set_compat_handling(int enable_compat)
-{
- compat_enabled = enable_compat;
-}
-
-void set_compatibility(char* program)
-{
- if (compat_enabled) {
- if (! strncmp(program, "ftree", 6)) {
- gedcom_warning(_("Enabling compatibility with 'ftree'"));
- compatibility = C_FTREE;
- }
- else {
- compatibility = 0;
- }
- }
-}
-
-int compat_mode(int compat_flags)
-{
- return (compat_flags & compatibility);
-}
-
projects / gedcom-parse.git / blobdiff