X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gedcom%2Fgedcom.y;h=5448c74b89e26a3d6207e0fa33b37f9b5cb86aae;hb=6103dd898c4de86c68891cc0222543988a2caab7;hp=d957ca079c76fb5036dd3122bf9ce1d8a692c602;hpb=8093e53a57e174b019f07760f5bf815271ceee9b;p=gedcom-parse.git diff --git a/gedcom/gedcom.y b/gedcom/gedcom.y index d957ca0..5448c74 100644 --- a/gedcom/gedcom.y +++ b/gedcom/gedcom.y @@ -1,11 +1,22 @@ -/* This program is free software; you can redistribute it and/or modify * - * it under the terms of the GNU General Public License as published by * - * the Free Software Foundation; either version 2 of the License, or * - * (at your option) any later version. * - - (C) 2001 by The Genes Development Team - Original author: Peter Verthez (Peter.Verthez@advalvas.be) -*/ +/* Parser for Gedcom. + Copyright (C) 2001, 2002 The Genes Development Team + This file is part of the Gedcom parser library. + Contributed by Peter Verthez , 2001. + + The Gedcom parser library is free software; you can redistribute it + and/or modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + The Gedcom parser library is distributed in the hope that it will be + useful, but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with the Gedcom parser library; if not, write to the + Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA + 02111-1307 USA. */ /* $Id$ */ /* $Name$ */ @@ -134,63 +145,79 @@ #include "multilex.h" #include "encoding.h" #include "interface.h" +#include "date.h" +#include "age.h" +#include "xref.h" +#include "compat.h" +#include "buffer.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; - -char line_item_buf[MAXGEDCLINELEN * UTF_FACTOR + 1]; -char *line_item_buf_ptr; +Gedcom_val_struct val1; +Gedcom_val_struct val2; -enum _COMPAT { - C_FTREE = 0x01 -}; +void cleanup_line_item_buffer(); +struct safe_buffer line_item_buffer = { NULL, 0, NULL, 0, + cleanup_line_item_buffer }; +void cleanup_concat_buffer(); +struct safe_buffer concat_buffer = { NULL, 0, NULL, 0, cleanup_concat_buffer }; + +void cleanup_usertag_buffer(); +struct safe_buffer usertag_buffer = { NULL, 0, NULL, 0, + cleanup_usertag_buffer}; + /* These are defined at the bottom of the file */ -void push_countarray(); -void set_parenttag(char* tag); -char* get_parenttag(); +void push_countarray(int level); +void set_parenttag(const char* tag); +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); +void clean_up(); -#define CLEAR_BUFFER(BUF) \ - memset(BUF, 0, sizeof(BUF)); - #define HANDLE_ERROR \ { if (error_mechanism == IMMED_FAIL) { \ - YYABORT; \ + clean_up(); YYABORT; \ } \ else if (error_mechanism == DEFER_FAIL) { \ + gedcom_debug_print("Fail on line %d", line_no); \ yyerrok; fail = 1; \ } \ else if (error_mechanism == IGNORE_ERRORS) { \ yyerrok; \ } \ } -#define START(PARENTTAG,PARENTCTXT) \ - { ++count_level; \ - set_parenttag(#PARENTTAG); \ - set_parentctxt(PARENTCTXT); \ - push_countarray(); \ +#define START1(PARENTTAG) \ + { set_parenttag(#PARENTTAG); \ + } +#define START2(LEVEL,PARENTCTXT) \ + { set_parentctxt(PARENTCTXT); \ + ++count_level; \ + push_countarray(LEVEL); \ } -#define PARENT \ - get_parentctxt() +#define START(PARENTTAG,LEVEL,PARENTCTXT) \ + { START1(PARENTTAG); \ + START2(LEVEL,PARENTCTXT); \ + } +#define PARENT \ + get_parentctxt(0) +#define GRANDPARENT(OFF) \ + get_parentctxt(OFF) #define CHK(TAG) \ { if (!check_occurrence(TAG_##TAG)) { \ - char* parenttag = get_parenttag(); \ - gedcom_error("The tag '%s' is mandatory within '%s', but missing", \ + char* parenttag = get_parenttag(0); \ + gedcom_error(_("The tag '%s' is mandatory within '%s', but missing"),\ #TAG, parenttag); \ HANDLE_ERROR; \ } \ } +#define CHK_COND(TAG) \ + check_occurrence(TAG_##TAG) #define POP \ { pop_countarray(); \ --count_level; \ @@ -207,21 +234,20 @@ int compat_mode(int flags); #define OCCUR2(CHILDTAG, MIN, MAX) \ { int num = count_tag(TAG_##CHILDTAG); \ if (num > MAX) { \ - char* parenttag = get_parenttag(); \ - gedcom_error("The tag '%s' can maximally occur %d " \ - "time(s) within '%s'", \ + 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(); \ - gedcom_error("The tag '%s' is not a valid tag within '%s'", \ + { char* parenttag = get_parenttag(0); \ + gedcom_error(_("The tag '%s' is not a valid tag within '%s'"), \ CHILDTAG, parenttag); \ HANDLE_ERROR; \ } #define INVALID_TOP_TAG(CHILDTAG) \ - { gedcom_error("The tag '%s' is not a valid top-level tag", \ + { gedcom_error(_("The tag '%s' is not a valid top-level tag"), \ CHILDTAG); \ HANDLE_ERROR; \ } @@ -231,11 +257,12 @@ int compat_mode(int flags); %union { int number; char *string; + struct tag_struct tag; Gedcom_ctxt ctxt; } %token_table -%expect 300 +%expect 317 %token BADTOKEN %token OPEN @@ -244,153 +271,164 @@ int compat_mode(int flags); %token DELIM %token ANYCHAR %token POINTER -%token USERTAG -%token TAG_ABBR -%token TAG_ADDR -%token TAG_ADR1 -%token TAG_ADR2 -%token TAG_ADOP -%token TAG_AFN -%token TAG_AGE -%token TAG_AGNC -%token TAG_ALIA -%token TAG_ANCE -%token TAG_ANCI -%token TAG_ANUL -%token TAG_ASSO -%token TAG_AUTH -%token TAG_BAPL -%token TAG_BAPM -%token TAG_BARM -%token TAG_BASM -%token TAG_BIRT -%token TAG_BLES -%token TAG_BLOB -%token TAG_BURI -%token TAG_CALN -%token TAG_CAST -%token TAG_CAUS -%token TAG_CENS -%token TAG_CHAN -%token TAG_CHAR -%token TAG_CHIL -%token TAG_CHR -%token TAG_CHRA -%token TAG_CITY -%token TAG_CONC -%token TAG_CONF -%token TAG_CONL -%token TAG_CONT -%token TAG_COPR -%token TAG_CORP -%token TAG_CREM -%token TAG_CTRY -%token TAG_DATA -%token TAG_DATE -%token TAG_DEAT -%token TAG_DESC -%token TAG_DESI -%token TAG_DEST -%token TAG_DIV -%token TAG_DIVF -%token TAG_DSCR -%token TAG_EDUC -%token TAG_EMIG -%token TAG_ENDL -%token TAG_ENGA -%token TAG_EVEN -%token TAG_FAM -%token TAG_FAMC -%token TAG_FAMF -%token TAG_FAMS -%token TAG_FCOM -%token TAG_FILE -%token TAG_FORM -%token TAG_GEDC -%token TAG_GIVN -%token TAG_GRAD -%token TAG_HEAD -%token TAG_HUSB -%token TAG_IDNO -%token TAG_IMMI -%token TAG_INDI -%token TAG_LANG -%token TAG_LEGA -%token TAG_MARB -%token TAG_MARC -%token TAG_MARL -%token TAG_MARR -%token TAG_MARS -%token TAG_MEDI -%token TAG_NAME -%token TAG_NATI -%token TAG_NATU -%token TAG_NCHI -%token TAG_NICK -%token TAG_NMR -%token TAG_NOTE -%token TAG_NPFX -%token TAG_NSFX -%token TAG_OBJE -%token TAG_OCCU -%token TAG_ORDI -%token TAG_ORDN -%token TAG_PAGE -%token TAG_PEDI -%token TAG_PHON -%token TAG_PLAC -%token TAG_POST -%token TAG_PROB -%token TAG_PROP -%token TAG_PUBL -%token TAG_QUAY -%token TAG_REFN -%token TAG_RELA -%token TAG_RELI -%token TAG_REPO -%token TAG_RESI -%token TAG_RESN -%token TAG_RETI -%token TAG_RFN -%token TAG_RIN -%token TAG_ROLE -%token TAG_SEX -%token TAG_SLGC -%token TAG_SLGS -%token TAG_SOUR -%token TAG_SPFX -%token TAG_SSN -%token TAG_STAE -%token TAG_STAT -%token TAG_SUBM -%token TAG_SUBN -%token TAG_SURN -%token TAG_TEMP -%token TAG_TEXT -%token TAG_TIME -%token TAG_TITL -%token TAG_TRLR -%token TAG_TYPE -%token TAG_VERS -%token TAG_WIFE -%token TAG_WILL - -%type anystdtag -%type anytoptag +%token USERTAG +%token TAG_ABBR +%token TAG_ADDR +%token TAG_ADR1 +%token TAG_ADR2 +%token TAG_ADOP +%token TAG_AFN +%token TAG_AGE +%token TAG_AGNC +%token TAG_ALIA +%token TAG_ANCE +%token TAG_ANCI +%token TAG_ANUL +%token TAG_ASSO +%token TAG_AUTH +%token TAG_BAPL +%token TAG_BAPM +%token TAG_BARM +%token TAG_BASM +%token TAG_BIRT +%token TAG_BLES +%token TAG_BLOB +%token TAG_BURI +%token TAG_CALN +%token TAG_CAST +%token TAG_CAUS +%token TAG_CENS +%token TAG_CHAN +%token TAG_CHAR +%token TAG_CHIL +%token TAG_CHR +%token TAG_CHRA +%token TAG_CITY +%token TAG_CONC +%token TAG_CONF +%token TAG_CONL +%token TAG_CONT +%token TAG_COPR +%token TAG_CORP +%token TAG_CREM +%token TAG_CTRY +%token TAG_DATA +%token TAG_DATE +%token TAG_DEAT +%token TAG_DESC +%token TAG_DESI +%token TAG_DEST +%token TAG_DIV +%token TAG_DIVF +%token TAG_DSCR +%token TAG_EDUC +%token TAG_EMIG +%token TAG_ENDL +%token TAG_ENGA +%token TAG_EVEN +%token TAG_FAM +%token TAG_FAMC +%token TAG_FAMF +%token TAG_FAMS +%token TAG_FCOM +%token TAG_FILE +%token TAG_FORM +%token TAG_GEDC +%token TAG_GIVN +%token TAG_GRAD +%token TAG_HEAD +%token TAG_HUSB +%token TAG_IDNO +%token TAG_IMMI +%token TAG_INDI +%token TAG_LANG +%token TAG_LEGA +%token TAG_MARB +%token TAG_MARC +%token TAG_MARL +%token TAG_MARR +%token TAG_MARS +%token TAG_MEDI +%token TAG_NAME +%token TAG_NATI +%token TAG_NATU +%token TAG_NCHI +%token TAG_NICK +%token TAG_NMR +%token TAG_NOTE +%token TAG_NPFX +%token TAG_NSFX +%token TAG_OBJE +%token TAG_OCCU +%token TAG_ORDI +%token TAG_ORDN +%token TAG_PAGE +%token TAG_PEDI +%token TAG_PHON +%token TAG_PLAC +%token TAG_POST +%token TAG_PROB +%token TAG_PROP +%token TAG_PUBL +%token TAG_QUAY +%token TAG_REFN +%token TAG_RELA +%token TAG_RELI +%token TAG_REPO +%token TAG_RESI +%token TAG_RESN +%token TAG_RETI +%token TAG_RFN +%token TAG_RIN +%token TAG_ROLE +%token TAG_SEX +%token TAG_SLGC +%token TAG_SLGS +%token TAG_SOUR +%token TAG_SPFX +%token TAG_SSN +%token TAG_STAE +%token TAG_STAT +%token TAG_SUBM +%token TAG_SUBN +%token TAG_SURN +%token TAG_TEMP +%token TAG_TEXT +%token TAG_TIME +%token TAG_TITL +%token TAG_TRLR +%token TAG_TYPE +%token TAG_VERS +%token TAG_WIFE +%token TAG_WILL + +%type anystdtag +%type anytoptag +%type fam_event_tag +%type indiv_attr_tag +%type indiv_birt_tag +%type indiv_gen_tag +%type lio_bapl_tag %type line_item -%type line_value %type mand_line_item %type mand_pointer %type note_line_item %type anychar %type opt_xref %type opt_value +%type opt_line_item %type head_sect %% file : head_sect records trlr_sect - { if (fail == 1) YYABORT; } + { compat_close(); + if (fail == 1) YYABORT; + } + | error + { compat_close(); + clean_up(); + } ; records : /* empty */ @@ -412,16 +450,31 @@ record : fam_rec /**** Header ****/ /*********************************************************************/ head_sect : OPEN DELIM TAG_HEAD - { $$ = start_record(REC_HEAD, $1, NULL, $3); - START(HEAD, $$) } + { $$ = start_record(REC_HEAD, $1, GEDCOM_MAKE_NULL(val1), + $3, + NULL, GEDCOM_MAKE_NULL(val2)); + START(HEAD, $1, $$) } head_subs - { if (compat_mode(C_FTREE)) - CHECK3(SOUR, GEDC, CHAR) - else - CHECK4(SOUR, SUBM, GEDC, CHAR) + { if (compat_mode(C_NO_SUBMITTER) && ! CHK_COND(SUBM)) + compat_generate_submitter_link($4); + else CHK(SUBM); + + if (compat_mode(C_NO_GEDC) && ! CHK_COND(GEDC)) + compat_generate_gedcom($4); + else CHK(GEDC); + + if (compat_mode(C_NO_CHAR) && ! CHK_COND(CHAR)) { + if (compat_generate_char($4)) HANDLE_ERROR; + } + else CHK(CHAR); + + CHECK1(SOUR); } CLOSE - { end_record(REC_HEAD, $4); } + { end_record(REC_HEAD, $4, GEDCOM_MAKE_NULL(val1)); + if (compat_mode(C_NO_SUBMITTER)) + compat_generate_submitter(); + } ; head_subs : /* empty */ @@ -431,6 +484,9 @@ 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_HEAD_TIME)) + 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) } @@ -445,15 +501,18 @@ head_sub : head_sour_sect { OCCUR2(SOUR, 1, 1) } /* HEAD.SOUR */ head_sour_sect : OPEN DELIM TAG_SOUR mand_line_item - { set_compatibility($4); + { set_compatibility_program($4); $$ = start_element(ELT_HEAD_SOUR, PARENT, - $1, $3, $4, $4); - START(SOUR, $$) + $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(SOUR, $1, $$) } head_sour_subs { CHECK0 } CLOSE - { end_element(ELT_HEAD_SOUR, PARENT, $5, NULL); } + { compute_compatibility(); + end_element(ELT_HEAD_SOUR, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); } ; head_sour_subs : /* empty */ @@ -468,39 +527,43 @@ head_sour_sub : head_sour_vers_sect { OCCUR2(VERS, 0, 1) } ; head_sour_vers_sect : OPEN DELIM TAG_VERS mand_line_item - { $$ = start_element(ELT_HEAD_SOUR_VERS, PARENT, - $1, $3, $4, $4); - START(VERS, $$) + { set_compatibility_version($4); + $$ = start_element(ELT_HEAD_SOUR_VERS, PARENT, + $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(VERS, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_SOUR_VERS, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; head_sour_name_sect : OPEN DELIM TAG_NAME mand_line_item { $$ = start_element(ELT_HEAD_SOUR_NAME, PARENT, - $1, $3, $4, $4); - START(NAME, $$) + $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(NAME, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_SOUR_NAME, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; head_sour_corp_sect : OPEN DELIM TAG_CORP mand_line_item { $$ = start_element(ELT_HEAD_SOUR_CORP, PARENT, - $1, $3, $4, $4); - START(CORP, $$) + $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(CORP, $1, $$) } head_sour_corp_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_SOUR_CORP, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; @@ -514,14 +577,15 @@ head_sour_corp_sub : addr_struc_sub /* 0:1 */ head_sour_data_sect : OPEN DELIM TAG_DATA mand_line_item { $$ = start_element(ELT_HEAD_SOUR_DATA, PARENT, - $1, $3, $4, $4); - START(DATA, $$) + $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(DATA, $1, $$) } head_sour_data_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_SOUR_DATA, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; @@ -535,55 +599,67 @@ head_sour_data_sub : head_sour_data_date_sect { OCCUR2(DATE, 0, 1) } ; head_sour_data_date_sect : OPEN DELIM TAG_DATE mand_line_item - { $$ = start_element(ELT_HEAD_SOUR_DATA_DATE, - PARENT, $1, $3, $4, $4); - START(DATE, $$) + { struct date_value dv = gedcom_parse_date($4); + $$ + = start_element(ELT_HEAD_SOUR_DATA_DATE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_DATE(val1, dv)); + START(DATE, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_SOUR_DATA_DATE, - PARENT, $5, NULL); + PARENT, $5, + GEDCOM_MAKE_NULL(val1)); } ; head_sour_data_copr_sect : OPEN DELIM TAG_COPR mand_line_item - { $$ = start_element(ELT_HEAD_SOUR_DATA_COPR, - PARENT, $1, $3, $4, $4); - START(COPR, $$) + { $$ + = start_element(ELT_HEAD_SOUR_DATA_COPR, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(COPR, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_SOUR_DATA_COPR, - PARENT, $5, NULL); + PARENT, $5, + GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.DEST */ head_dest_sect : OPEN DELIM TAG_DEST mand_line_item { $$ = start_element(ELT_HEAD_DEST, - PARENT, $1, $3, $4, $4); - START(DEST, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(DEST, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_DEST, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.DATE */ head_date_sect : OPEN DELIM TAG_DATE mand_line_item - { $$ = start_element(ELT_HEAD_DATE, - PARENT, $1, $3, $4, $4); - START(DATE, $$) + { struct date_value dv = gedcom_parse_date($4); + $$ = start_element(ELT_HEAD_DATE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_DATE(val1, dv)); + if (compat_mode(C_HEAD_TIME)) + compat_save_head_date_context($$); + START(DATE, $1, $$) } head_date_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_DATE, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; @@ -597,77 +673,111 @@ head_date_sub : head_date_time_sect { OCCUR2(TIME, 0, 1) } head_date_time_sect : OPEN DELIM TAG_TIME mand_line_item { $$ = start_element(ELT_HEAD_DATE_TIME, - PARENT, $1, $3, $4, $4); - START(TIME, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TIME, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_DATE_TIME, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; +/* HEAD.TIME (Only for compatibility) */ +head_time_sect : OPEN DELIM TAG_TIME opt_line_item + { if (compat_mode(C_HEAD_TIME)) { + $$ = compat_generate_head_time_start($1, $3, $4); + } + } + CLOSE + { if (compat_mode (C_HEAD_TIME)) { + compat_generate_head_time_end($5); + } + } + ; + /* HEAD.SUBM */ head_subm_sect : OPEN DELIM TAG_SUBM mand_pointer - { $$ = start_element(ELT_HEAD_SUBM, - PARENT, $1, $3, $4, $4); - START(SUBM, $$) + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_SUBM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_HEAD_SUBM, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(SUBM, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_SUBM, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.SUBN */ head_subn_sect : OPEN DELIM TAG_SUBN mand_pointer - { $$ = start_element(ELT_HEAD_SUBN, - PARENT, $1, $3, $4, $4); - START(SUBN, $$) + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_SUBN); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_HEAD_SUBN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(SUBN, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_SUBN, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.FILE */ head_file_sect : OPEN DELIM TAG_FILE mand_line_item { $$ = start_element(ELT_HEAD_FILE, - PARENT, $1, $3, $4, $4); - START(FILE, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(FILE, $1, $$) } no_std_subs { CHECK0 } CLOSE - { end_element(ELT_HEAD_FILE, PARENT, $5, NULL); + { end_element(ELT_HEAD_FILE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.COPR */ head_copr_sect : OPEN DELIM TAG_COPR mand_line_item { $$ = start_element(ELT_HEAD_COPR, - PARENT, $1, $3, $4, $4); - START(COPR, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(COPR, $1, $$) } no_std_subs { CHECK0 } CLOSE - { end_element(ELT_HEAD_COPR, PARENT, $5, NULL); + { end_element(ELT_HEAD_COPR, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.GEDC */ head_gedc_sect : OPEN DELIM TAG_GEDC { $$ = start_element(ELT_HEAD_GEDC, - PARENT, $1, $3, NULL, NULL); - START(GEDC, $$) + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(GEDC, $1, $$) } head_gedc_subs - { CHECK2(VERS, FORM) } + { if (compat_mode(C_NO_GEDC_FORM) && ! CHK_COND(FORM)) + compat_generate_gedcom_form($4); + else CHK(FORM); + + CHECK1(VERS) + } + CLOSE - { end_element(ELT_HEAD_GEDC, PARENT, $4, NULL); + { end_element(ELT_HEAD_GEDC, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); } ; @@ -681,40 +791,46 @@ head_gedc_sub : head_gedc_vers_sect { OCCUR2(VERS, 1, 1) } ; head_gedc_vers_sect : OPEN DELIM TAG_VERS mand_line_item { $$ = start_element(ELT_HEAD_GEDC_VERS, - PARENT, $1, $3, $4, $4); - START(VERS, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(VERS, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_GEDC_VERS, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; head_gedc_form_sect : OPEN DELIM TAG_FORM mand_line_item { $$ = start_element(ELT_HEAD_GEDC_FORM, - PARENT, $1, $3, $4, $4); - START(FORM, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(FORM, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_GEDC_FORM, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; /* 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) HANDLE_ERROR; $$ = start_element(ELT_HEAD_CHAR, - PARENT, $1, $3, $4, $4); - START(CHAR, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(CHAR, $1, $$) } head_char_subs { CHECK0 } CLOSE - { end_element(ELT_HEAD_CHAR, PARENT, $5, NULL); + { end_element(ELT_HEAD_CHAR, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); } ; @@ -727,39 +843,44 @@ head_char_sub : head_char_vers_sect { OCCUR2(VERS, 0, 1) } ; head_char_vers_sect : OPEN DELIM TAG_VERS mand_line_item { $$ = start_element(ELT_HEAD_CHAR_VERS, - PARENT, $1, $3, $4, $4); - START(VERS, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(VERS, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_CHAR_VERS, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.LANG */ head_lang_sect : OPEN DELIM TAG_LANG mand_line_item { $$ = start_element(ELT_HEAD_LANG, - PARENT, $1, $3, $4, $4); - START(LANG, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(LANG, $1, $$) } no_std_subs { CHECK0 } CLOSE - { end_element(ELT_HEAD_LANG, PARENT, $5, NULL); + { end_element(ELT_HEAD_LANG, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.PLAC */ head_plac_sect : OPEN DELIM TAG_PLAC { $$ = start_element(ELT_HEAD_PLAC, - PARENT, $1, $3, NULL, NULL); - START(PLAC, $$) + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(PLAC, $1, $$) } head_plac_subs { CHECK1(FORM) } CLOSE - { end_element(ELT_HEAD_PLAC, PARENT, $4, NULL); + { end_element(ELT_HEAD_PLAC, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); } ; @@ -772,27 +893,33 @@ head_plac_sub : head_plac_form_sect { OCCUR2(FORM, 1, 1) } ; head_plac_form_sect : OPEN DELIM TAG_FORM mand_line_item { $$ = start_element(ELT_HEAD_PLAC_FORM, - PARENT, $1, $3, $4, $4); - START(FORM, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(FORM, $1, $$) } no_std_subs { CHECK0 } CLOSE { end_element(ELT_HEAD_PLAC_FORM, - PARENT, $5, NULL); + PARENT, $5, GEDCOM_MAKE_NULL(val1)); } ; /* HEAD.NOTE */ head_note_sect : OPEN DELIM TAG_NOTE mand_line_item { $$ = start_element(ELT_HEAD_NOTE, - PARENT, $1, $3, $4, $4); - START(NOTE, $$) + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(NOTE, $1, $$) } head_note_subs { CHECK0 } CLOSE - { end_element(ELT_HEAD_NOTE, PARENT, $5, NULL); + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_HEAD_NOTE, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); } ; @@ -815,12 +942,18 @@ trlr_sect : OPEN DELIM TAG_TRLR CLOSE { } /**** Family record ****/ /*********************************************************************/ fam_rec : OPEN DELIM POINTER DELIM TAG_FAM - { $$ = start_record(REC_FAM, $1, $3, $5); - START(FAM, $$) } + { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED, + XREF_FAM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_record(REC_FAM, + $1, GEDCOM_MAKE_XREF_PTR(val1, xr), + $5, + NULL, GEDCOM_MAKE_NULL(val2)); + START(FAM, $1, $$) } fam_subs { CHECK0 } CLOSE - { end_record(REC_FAM, $6); } + { end_record(REC_FAM, $6, GEDCOM_MAKE_NULL(val1)); } ; fam_subs : /* empty */ @@ -844,44 +977,109 @@ fam_sub : fam_event_struc_sub /* 0:M */ /* FAM.HUSB */ fam_husb_sect : OPEN DELIM TAG_HUSB mand_pointer - { START(HUSB, NULL) } no_std_subs { CHECK0 } CLOSE - { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_INDI); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_FAM_HUSB, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(HUSB, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_FAM_HUSB, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* FAM.WIFE */ fam_wife_sect : OPEN DELIM TAG_WIFE mand_pointer - { START(WIFE, NULL) } no_std_subs { CHECK0 } CLOSE - { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_INDI); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_FAM_WIFE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(WIFE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_FAM_WIFE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* FAM.CHIL */ fam_chil_sect : OPEN DELIM TAG_CHIL mand_pointer - { START(CHIL, NULL) } no_std_subs { CHECK0 } CLOSE - { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_INDI); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_FAM_CHIL, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(CHIL, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_FAM_CHIL, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* FAM.NCHI */ fam_nchi_sect : OPEN DELIM TAG_NCHI mand_line_item - { START(NCHI, NULL) } no_std_subs { CHECK0 } CLOSE - { } + { $$ = start_element(ELT_FAM_NCHI, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(NCHI, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_FAM_NCHI, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* FAM.SUBM */ fam_subm_sect : OPEN DELIM TAG_SUBM mand_pointer - { START(SUBM, NULL) } no_std_subs { CHECK0 } CLOSE - { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_SUBM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_FAM_SUBM, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(SUBM, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_FAM_SUBM, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /*********************************************************************/ /**** Individual record ****/ /*********************************************************************/ indiv_rec : OPEN DELIM POINTER DELIM TAG_INDI - { $$ = start_record(REC_INDI, $1, $3, $5); - START(INDI, $$) } + { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED, + XREF_INDI); + if (xr == NULL) HANDLE_ERROR; + $$ = start_record(REC_INDI, + $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5, + NULL, GEDCOM_MAKE_NULL(val2)); + START(INDI, $1, $$) } indi_subs { CHECK0 } CLOSE - { end_record(REC_INDI, $6); } + { end_record(REC_INDI, $6, GEDCOM_MAKE_NULL(val1)); + if (compat_mode(C_NO_SLGC_FAMC)) + compat_generate_slgc_famc_fam(); + } ; indi_subs : /* empty */ @@ -908,7 +1106,7 @@ indi_sub : indi_resn_sect { OCCUR2(RESN, 0, 1) } | indi_afn_sect /* 0:M */ | ident_struc_sub /* 0:1 */ | change_date_sub /* 0:1 */ - | ftree_addr_sect { if (!compat_mode(C_FTREE)) + | indi_addr_sect { if (!compat_mode(C_INDI_ADDR)) INVALID_TAG("ADDR"); } | no_std_sub @@ -916,58 +1114,204 @@ indi_sub : indi_resn_sect { OCCUR2(RESN, 0, 1) } /* INDI.RESN */ indi_resn_sect : OPEN DELIM TAG_RESN mand_line_item - { START(RESN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_INDI_RESN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(RESN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_INDI_RESN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* INDI.SEX */ indi_sex_sect : OPEN DELIM TAG_SEX mand_line_item - { START(SEX, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_INDI_SEX, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(SEX, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_INDI_SEX, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* INDI.SUBM */ indi_subm_sect : OPEN DELIM TAG_SUBM mand_pointer - { START(SUBM, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_SUBM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_INDI_SUBM, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(SUBM, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_INDI_SUBM, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* INDI.ALIA */ indi_alia_sect : OPEN DELIM TAG_ALIA mand_pointer - { START(ALIA, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_INDI); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_INDI_ALIA, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(ALIA, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_INDI_ALIA, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* INDI.ANCI */ indi_anci_sect : OPEN DELIM TAG_ANCI mand_pointer - { START(ANCI, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_SUBM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_INDI_ANCI, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(ANCI, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_INDI_ANCI, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* INDI.DESI */ indi_desi_sect : OPEN DELIM TAG_DESI mand_pointer - { START(DESI, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_SUBM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_INDI_DESI, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(DESI, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_INDI_DESI, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* INDI.RFN */ indi_rfn_sect : OPEN DELIM TAG_RFN mand_line_item - { START(RFN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_INDI_RFN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(RFN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_INDI_RFN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* INDI.AFN */ indi_afn_sect : OPEN DELIM TAG_AFN mand_line_item - { START(AFN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_INDI_AFN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(AFN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_INDI_AFN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; -/* INDI.ADDR (Only for 'ftree' compatibility) */ -ftree_addr_sect : OPEN DELIM TAG_ADDR opt_line_item - { START(ADDR, NULL) } no_std_subs { CHECK0 } CLOSE { } +/* INDI.ADDR (Only for compatibility) */ +indi_addr_sect : OPEN DELIM TAG_ADDR opt_line_item + { if (compat_mode(C_INDI_ADDR)) { + Gedcom_ctxt par = compat_generate_resi_start(PARENT); + START(RESI, $1, par); + $$ + = start_element(ELT_SUB_ADDR, + par, $1 + 1, $3, $4, + GEDCOM_MAKE_NULL_OR_STRING(val2, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(ADDR, $1 + 1, $$); + } + else { START(ADDR, $1, NULL) } + } + ftree_addr_subs + { CHECK0 } + CLOSE + { if (compat_mode(C_INDI_ADDR)) { + Gedcom_ctxt par = PARENT; + char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SUB_ADDR, par, $5, + GEDCOM_MAKE_STRING(val1, complete)); + 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 + { $$ + = start_element(ELT_SUB_PHON, + GRANDPARENT(1), $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(PHON, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PHON, GRANDPARENT(1), + $5, GEDCOM_MAKE_NULL(val1)); + } + ; /*********************************************************************/ /**** Multimedia record ****/ /*********************************************************************/ multim_rec : OPEN DELIM POINTER DELIM TAG_OBJE - { $$ = start_record(REC_OBJE, $1, $3, $5); - START(OBJE, $$) } + { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED, + XREF_OBJE); + if (xr == NULL) HANDLE_ERROR; + $$ = start_record(REC_OBJE, + $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5, + NULL, GEDCOM_MAKE_NULL(val2)); + START(OBJE, $1, $$) } obje_subs { CHECK2(FORM, BLOB) } CLOSE - { end_record(REC_OBJE, $6); } + { end_record(REC_OBJE, $6, GEDCOM_MAKE_NULL(val1)); } ; obje_subs : /* empty */ @@ -986,20 +1330,49 @@ obje_sub : obje_form_sect { OCCUR2(FORM, 1, 1) } /* OBJE.FORM */ obje_form_sect : OPEN DELIM TAG_FORM mand_line_item - { START(FORM, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_OBJE_FORM, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(FORM, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_OBJE_FORM, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* OBJE.TITL */ obje_titl_sect : OPEN DELIM TAG_TITL mand_line_item - { START(TITL, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_OBJE_TITL, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TITL, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_OBJE_TITL, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* OBJE.BLOB */ obje_blob_sect : OPEN DELIM TAG_BLOB - { START(BLOB, NULL) } + { $$ = start_element(ELT_OBJE_BLOB, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + reset_buffer(&concat_buffer); + START(BLOB, $1, $$) + } obje_blob_subs { CHECK1(CONT) } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_OBJE_BLOB, PARENT, $4, + GEDCOM_MAKE_STRING(val1, complete)); + } ; obje_blob_subs : /* empty */ @@ -1011,33 +1384,69 @@ obje_blob_sub : obje_blob_cont_sect { OCCUR1(CONT, 1) } ; obje_blob_cont_sect : OPEN DELIM TAG_CONT mand_line_item - { START(CONT, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_OBJE_BLOB_CONT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + safe_buf_append(&concat_buffer, $4); + START(CONT, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_OBJE_BLOB_CONT, PARENT, + $5, GEDCOM_MAKE_NULL(val1)); + } ; /* OBJE.OBJE */ obje_obje_sect : OPEN DELIM TAG_OBJE mand_pointer - { START(OBJE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_OBJE); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_OBJE_OBJE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(OBJE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_OBJE_OBJE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /*********************************************************************/ /**** Note record ****/ /*********************************************************************/ note_rec : OPEN DELIM POINTER DELIM TAG_NOTE note_line_item - { $$ = start_record(REC_NOTE, $1, $3, $5); - START(NOTE, $$) } + { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED, + XREF_NOTE); + if (xr == NULL) HANDLE_ERROR; + $$ = start_record(REC_NOTE, + $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5, + $6, GEDCOM_MAKE_STRING(val2, $6)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $6); + START(NOTE, $1, $$) } note_subs { CHECK0 } CLOSE - { end_record(REC_NOTE, $6); } + { char* complete = get_buf_string(&concat_buffer); + end_record(REC_NOTE, $7, + GEDCOM_MAKE_STRING(val1, complete)); } ; note_line_item : /* empty */ - { if (!compat_mode(C_FTREE)) { - gedcom_error("Missing value"); YYERROR; + { if (!compat_mode(C_NOTE_NO_VALUE)) { + gedcom_error(_("Missing value")); YYERROR; + } + else { + $$ = VALUE_IF_MISSING; } } | DELIM line_item - { gedcom_debug_print("==Val: %s==\n", $2); + { gedcom_debug_print("==Val: %s==", $2); $$ = $2; } ; @@ -1049,19 +1458,47 @@ note_sub : continuation_sub /* 0:M */ | source_cit_sub /* 0:M */ | ident_struc_sub /* 0:1 */ | change_date_sub /* 0:1 */ + | note_note_sect { if (!compat_mode(C_NOTE_NOTE)) + INVALID_TAG("NOTE"); + } | no_std_sub ; +/* Same actions as cont_sect, for compatibility */ +note_note_sect : OPEN DELIM TAG_NOTE opt_line_item + { $3.string = "CONT"; + $3.value = TAG_CONT; + $$ = start_element(ELT_SUB_CONT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_NULL_OR_STRING(val1, $4)); + SAFE_BUF_ADDCHAR(&concat_buffer, '\n'); + if (GEDCOM_IS_STRING(&val1)) + safe_buf_append(&concat_buffer, $4); + START(CONT, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_CONT, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } + ; + /*********************************************************************/ /**** Repository record ****/ /*********************************************************************/ repos_rec : OPEN DELIM POINTER DELIM TAG_REPO - { $$ = start_record(REC_REPO, $1, $3, $5); - START(REPO, $$) } + { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED, + XREF_REPO); + if (xr == NULL) HANDLE_ERROR; + $$ = start_record(REC_REPO, + $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5, + NULL, GEDCOM_MAKE_NULL(val2)); + START(REPO, $1, $$) } repo_subs { CHECK0 } CLOSE - { end_record(REC_REPO, $6); } + { end_record(REC_REPO, $6, GEDCOM_MAKE_NULL(val1)); } ; repo_subs : /* empty */ @@ -1078,19 +1515,34 @@ repo_sub : repo_name_sect { OCCUR2(NAME, 0, 1) } /* REPO.NAME */ repo_name_sect : OPEN DELIM TAG_NAME mand_line_item - { START(NAME, NULL) } no_std_subs { CHECK0 } CLOSE {} + { $$ = start_element(ELT_REPO_NAME, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(NAME, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_REPO_NAME, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /*********************************************************************/ /**** Source record ****/ /*********************************************************************/ source_rec : OPEN DELIM POINTER DELIM TAG_SOUR - { $$ = start_record(REC_SOUR, $1, $3, $5); - START(SOUR, $$) } + { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED, + XREF_SOUR); + if (xr == NULL) HANDLE_ERROR; + $$ = start_record(REC_SOUR, + $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5, + NULL, GEDCOM_MAKE_NULL(val2)); + START(SOUR, $1, $$) } sour_subs { CHECK0 } CLOSE - { end_record(REC_SOUR, $6); } + { end_record(REC_SOUR, $6, GEDCOM_MAKE_NULL(val1)); } ; sour_subs : /* empty */ @@ -1103,6 +1555,24 @@ sour_sub : sour_data_sect { OCCUR2(DATA, 0, 1) } | sour_abbr_sect { OCCUR2(ABBR, 0, 1) } | sour_publ_sect { OCCUR2(PUBL, 0, 1) } | sour_text_sect { OCCUR2(TEXT, 0, 1) } + | sour_type_sect { if (!compat_mode(C_NONSTD_SOUR_TAGS)) + INVALID_TAG("TYPE"); + OCCUR2(TYPE, 0, 1) } + | sour_file_sect { if (!compat_mode(C_NONSTD_SOUR_TAGS)) + INVALID_TAG("FILE"); + OCCUR2(FILE, 0, 1) } + | sour_plac_sect { if (!compat_mode(C_NONSTD_SOUR_TAGS)) + INVALID_TAG("PLAC"); + OCCUR2(PLAC, 0, 1) } + | sour_date_sect { if (!compat_mode(C_NONSTD_SOUR_TAGS)) + INVALID_TAG("DATE"); + OCCUR2(DATE, 0, 1) } + | sour_medi_sect { if (!compat_mode(C_NONSTD_SOUR_TAGS)) + INVALID_TAG("MEDI"); + OCCUR2(MEDI, 0, 1) } + | sour_page_sect { if (!compat_mode(C_NONSTD_SOUR_TAGS)) + INVALID_TAG("PAGE"); + OCCUR2(PAGE, 0, 1) } | source_repos_cit_sub /* 0:1 */ | multim_link_sub /* 0:M */ | note_struc_sub /* 0:M */ @@ -1113,10 +1583,17 @@ sour_sub : sour_data_sect { OCCUR2(DATA, 0, 1) } /* SOUR.DATA */ sour_data_sect : OPEN DELIM TAG_DATA - { START(DATA, NULL) } + { $$ = start_element(ELT_SOUR_DATA, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(DATA, $1, $$) + } sour_data_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SOUR_DATA, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; sour_data_subs : /* empty */ @@ -1130,10 +1607,17 @@ sour_data_sub : sour_data_even_sect /* 0:M */ ; sour_data_even_sect : OPEN DELIM TAG_EVEN mand_line_item - { START(EVEN, NULL) } + { $$ = start_element(ELT_SOUR_DATA_EVEN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(EVEN, $1, $$) + } sour_data_even_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SOUR_DATA_EVEN, PARENT, + $5, GEDCOM_MAKE_NULL(val1)); + } ; sour_data_even_subs : /* empty */ @@ -1146,23 +1630,66 @@ sour_data_even_sub : sour_data_even_date_sect { OCCUR2(DATE, 0, 1) } ; sour_data_even_date_sect : OPEN DELIM TAG_DATE mand_line_item - { START(DATE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct date_value dv = gedcom_parse_date($4); + $$ + = start_element(ELT_SOUR_DATA_EVEN_DATE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_DATE(val1, dv)); + START(DATE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SOUR_DATA_EVEN_DATE, PARENT, + $5, GEDCOM_MAKE_NULL(val1)); + } ; sour_data_even_plac_sect : OPEN DELIM TAG_PLAC mand_line_item - { START(PLAC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SOUR_DATA_EVEN_PLAC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(PLAC, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SOUR_DATA_EVEN_PLAC, PARENT, + $5, GEDCOM_MAKE_NULL(val1)); + } ; sour_data_agnc_sect : OPEN DELIM TAG_AGNC mand_line_item - { START(AGNC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SOUR_DATA_AGNC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(AGNC, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SOUR_DATA_AGNC, PARENT, + $5, GEDCOM_MAKE_NULL(val1)); + } ; /* SOUR.AUTH */ sour_auth_sect : OPEN DELIM TAG_AUTH mand_line_item - { START(AUTH, NULL) } + { $$ = start_element(ELT_SOUR_AUTH, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(AUTH, $1, $$) + } sour_auth_subs { CHECK0 } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SOUR_AUTH, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); + } ; sour_auth_subs : /* empty */ @@ -1175,10 +1702,20 @@ sour_auth_sub : continuation_sub /* 0:M */ /* SOUR.TITL */ sour_titl_sect : OPEN DELIM TAG_TITL mand_line_item - { START(TITL, NULL) } + { $$ = start_element(ELT_SOUR_TITL, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(TITL, $1, $$) + } sour_titl_subs { CHECK0 } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SOUR_TITL, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); + } ; sour_titl_subs : /* empty */ @@ -1191,15 +1728,35 @@ sour_titl_sub : continuation_sub /* 0:M */ /* SOUR.ABBR */ sour_abbr_sect : OPEN DELIM TAG_ABBR mand_line_item - { START(ABBR, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SOUR_ABBR, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(ABBR, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SOUR_ABBR, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SOUR.PUBL */ sour_publ_sect : OPEN DELIM TAG_PUBL mand_line_item - { START(PUBL, NULL) } + { $$ = start_element(ELT_SOUR_PUBL, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(PUBL, $1, $$) + } sour_publ_subs { CHECK0 } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SOUR_PUBL, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); + } ; sour_publ_subs : /* empty */ @@ -1212,10 +1769,20 @@ sour_publ_sub : continuation_sub /* 0:M */ /* SOUR.TEXT */ sour_text_sect : OPEN DELIM TAG_TEXT mand_line_item - { START(TEXT, NULL) } + { $$ = start_element(ELT_SOUR_TEXT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(TEXT, $1, $$) + } sour_text_subs { CHECK0 } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SOUR_TEXT, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); + } ; sour_text_subs : /* empty */ @@ -1226,16 +1793,105 @@ sour_text_sub : continuation_sub /* 0:M */ | no_std_sub ; +/* Only for compatibility */ +sour_type_sect : OPEN DELIM TAG_TYPE opt_line_item + { if (compat_mode(C_NONSTD_SOUR_TAGS)) { + $$ = + compat_generate_nonstd_sour_start(PARENT, $1, $3, $4, + &usertag_buffer); + } + } + CLOSE + { if (compat_mode(C_NONSTD_SOUR_TAGS)) + compat_generate_nonstd_sour_end(PARENT, $5); + } + ; + +/* Only for compatibility */ +sour_file_sect : OPEN DELIM TAG_FILE opt_line_item + { if (compat_mode(C_NONSTD_SOUR_TAGS)) { + $$ = + compat_generate_nonstd_sour_start(PARENT, $1, $3, $4, + &usertag_buffer); + } + } + CLOSE + { if (compat_mode(C_NONSTD_SOUR_TAGS)) + compat_generate_nonstd_sour_end(PARENT, $5); + } + ; + +/* Only for compatibility */ +sour_plac_sect : OPEN DELIM TAG_PLAC opt_line_item + { if (compat_mode(C_NONSTD_SOUR_TAGS)) { + $$ = + compat_generate_nonstd_sour_start(PARENT, $1, $3, $4, + &usertag_buffer); + } + } + CLOSE + { if (compat_mode(C_NONSTD_SOUR_TAGS)) + compat_generate_nonstd_sour_end(PARENT, $5); + } + ; + +/* Only for compatibility */ +sour_date_sect : OPEN DELIM TAG_DATE opt_line_item + { if (compat_mode(C_NONSTD_SOUR_TAGS)) { + $$ = + compat_generate_nonstd_sour_start(PARENT, $1, $3, $4, + &usertag_buffer); + } + } + CLOSE + { if (compat_mode(C_NONSTD_SOUR_TAGS)) + compat_generate_nonstd_sour_end(PARENT, $5); + } + ; + +/* Only for compatibility */ +sour_medi_sect : OPEN DELIM TAG_MEDI opt_line_item + { if (compat_mode(C_NONSTD_SOUR_TAGS)) { + $$ = + compat_generate_nonstd_sour_start(PARENT, $1, $3, $4, + &usertag_buffer); + } + } + CLOSE + { if (compat_mode(C_NONSTD_SOUR_TAGS)) + compat_generate_nonstd_sour_end(PARENT, $5); + } + ; + +/* Only for compatibility */ +sour_page_sect : OPEN DELIM TAG_PAGE opt_line_item + { if (compat_mode(C_NONSTD_SOUR_TAGS)) { + $$ = + compat_generate_nonstd_sour_start(PARENT, $1, $3, $4, + &usertag_buffer); + } + } + CLOSE + { if (compat_mode(C_NONSTD_SOUR_TAGS)) + compat_generate_nonstd_sour_end(PARENT, $5); + } + ; + /*********************************************************************/ /**** Submission record ****/ /*********************************************************************/ submis_rec : OPEN DELIM POINTER DELIM TAG_SUBN - { $$ = start_record(REC_SUBN, $1, $3, $5); - START(SUBN, $$) } + { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED, + XREF_SUBN); + if (xr == NULL) HANDLE_ERROR; + $$ = start_record(REC_SUBN, + $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5, + NULL, GEDCOM_MAKE_NULL(val2)); + START(SUBN, $1, $$) } subn_subs { CHECK0 } CLOSE - { end_record(REC_SUBN, $6); } + { end_record(REC_SUBN, $6, GEDCOM_MAKE_NULL(val1)); } ; subn_subs : /* empty */ @@ -1254,85 +1910,222 @@ subn_sub : subn_subm_sect { OCCUR2(SUBM, 0, 1) } /* SUBN.SUBM */ subn_subm_sect : OPEN DELIM TAG_SUBM mand_pointer - { START(SUBM, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_SUBM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_SUBN_SUBM, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(SUBM, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBN_SUBM, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBN.FAMF */ subn_famf_sect : OPEN DELIM TAG_FAMF mand_line_item - { START(FAMF, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBN_FAMF, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(FAMF, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBN_FAMF, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBN.TEMP */ subn_temp_sect : OPEN DELIM TAG_TEMP mand_line_item - { START(TEMP, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBN_TEMP, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TEMP, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBN_TEMP, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBN.ANCE */ subn_ance_sect : OPEN DELIM TAG_ANCE mand_line_item - { START(ANCE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBN_ANCE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(ANCE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBN_ANCE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBN.DESC */ subn_desc_sect : OPEN DELIM TAG_DESC mand_line_item - { START(DESC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBN_DESC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(DESC, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBN_DESC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBN.ORDI */ subn_ordi_sect : OPEN DELIM TAG_ORDI mand_line_item - { START(ORDI, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBN_ORDI, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(ORDI, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBN_ORDI, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBN.RIN */ subn_rin_sect : OPEN DELIM TAG_RIN mand_line_item - { START(RIN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBN_RIN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(RIN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBN_RIN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /*********************************************************************/ /**** Submitter record ****/ /*********************************************************************/ submit_rec : OPEN DELIM POINTER DELIM TAG_SUBM - { $$ = start_record(REC_SUBM, $1, $3, $5); - START(SUBM, $$) } + { struct xref_value *xr = gedcom_parse_xref($3, XREF_DEFINED, + XREF_SUBM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_record(REC_SUBM, + $1, GEDCOM_MAKE_XREF_PTR(val1, xr), $5, + NULL, GEDCOM_MAKE_NULL(val2)); + START(SUBM, $1, $$) } subm_subs { CHECK1(NAME) } CLOSE - { end_record(REC_SUBM, $6); } + { end_record(REC_SUBM, $6, GEDCOM_MAKE_NULL(val1)); + if (compat_mode(C_SUBM_CTRY)) + compat_free_ctry_parent_context(); + } ; subm_subs : /* empty */ | 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_rfn_sect { OCCUR2(RFN, 0, 1) } | subm_rin_sect { OCCUR2(RIN, 0, 1) } | change_date_sub /* 0:1 */ + | subm_ctry_sect { if (!compat_mode(C_SUBM_CTRY)) + INVALID_TAG("CTRY"); + OCCUR2(CTRY, 0, 1) } | no_std_sub ; /* SUBM.NAME */ subm_name_sect : OPEN DELIM TAG_NAME mand_line_item - { START(NAME, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBM_NAME, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(NAME, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBM_NAME, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBM.LANG */ subm_lang_sect : OPEN DELIM TAG_LANG mand_line_item - { START(LANG, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBM_LANG, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(LANG, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBM_LANG, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBM.RFN */ subm_rfn_sect : OPEN DELIM TAG_RFN mand_line_item - { START(RFN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBM_RFN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(RFN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBM_RFN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SUBM.RIN */ subm_rin_sect : OPEN DELIM TAG_RIN mand_line_item - { START(RIN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUBM_RIN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(RIN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUBM_RIN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; +/* SUBM.CTRY (Only for compatibility) */ +subm_ctry_sect : OPEN DELIM TAG_CTRY opt_line_item + { if (compat_mode(C_SUBM_CTRY)) { + $$ = compat_generate_addr_ctry_start($1, $3, $4); + } + } + CLOSE + { if (compat_mode (C_SUBM_CTRY)) { + compat_generate_addr_ctry_end($5); + } + } + ; + /*********************************************************************/ /**** Substructures ****/ /*********************************************************************/ @@ -1343,10 +2136,22 @@ addr_struc_sub : addr_sect { OCCUR2(ADDR, 0, 1) } ; addr_sect : OPEN DELIM TAG_ADDR mand_line_item - { START(ADDR, NULL) } + { $$ = start_element(ELT_SUB_ADDR, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(ADDR, $1, $$); + if (compat_mode(C_SUBM_CTRY)) + compat_save_ctry_parent_context($$); + } addr_subs { CHECK0 } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SUB_ADDR, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); + } ; addr_subs : /* empty */ @@ -1364,29 +2169,111 @@ addr_sub : addr_cont_sect /* 0:M */ ; addr_cont_sect : OPEN DELIM TAG_CONT mand_line_item - { START(CONT, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ADDR_CONT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + SAFE_BUF_ADDCHAR(&concat_buffer, '\n'); + safe_buf_append(&concat_buffer, $4); + START(CONT, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ADDR_CONT, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; addr_adr1_sect : OPEN DELIM TAG_ADR1 mand_line_item - { START(ADR1, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ADDR_ADR1, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(ADR1, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ADDR_ADR1, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; addr_adr2_sect : OPEN DELIM TAG_ADR2 mand_line_item - { START(ADR2, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ADDR_ADR2, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(ADR2, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ADDR_ADR2, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; addr_city_sect : OPEN DELIM TAG_CITY mand_line_item - { START(CITY, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ADDR_CITY, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(CITY, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ADDR_CITY, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; addr_stae_sect : OPEN DELIM TAG_STAE mand_line_item - { START(STAE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ADDR_STAE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(STAE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ADDR_STAE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; addr_post_sect : OPEN DELIM TAG_POST mand_line_item - { START(POST, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ADDR_POST, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(POST, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ADDR_POST, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; addr_ctry_sect : OPEN DELIM TAG_CTRY mand_line_item - { START(CTRY, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ADDR_CTRY, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(CTRY, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ADDR_CTRY, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; phon_sect : OPEN DELIM TAG_PHON mand_line_item - { START(PHON, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_PHON, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(PHON, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PHON, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* ASSOCIATION STRUCTURE */ @@ -1394,10 +2281,20 @@ assoc_struc_sub : asso_sect /* 0:M */ ; asso_sect : OPEN DELIM TAG_ASSO mand_pointer - { START(ASSO, NULL) } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_ANY); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_SUB_ASSO, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(ASSO, $1, $$) + } asso_subs { CHECK2(TYPE,RELA) } - CLOSE { } + CLOSE + { end_element(ELT_SUB_ASSO, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; asso_subs : /* empty */ @@ -1409,11 +2306,31 @@ asso_subs : /* empty */ ; asso_type_sect : OPEN DELIM TAG_TYPE mand_line_item - { START(TYPE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ASSO_TYPE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TYPE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ASSO_TYPE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; asso_rela_sect : OPEN DELIM TAG_RELA mand_line_item - { START(RELA, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_ASSO_RELA, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(RELA, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_ASSO_RELA, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* CHANGE DATE */ @@ -1421,10 +2338,17 @@ change_date_sub : change_date_chan_sect { OCCUR2(CHAN, 0, 1) } ; change_date_chan_sect : OPEN DELIM TAG_CHAN - { START(CHAN, NULL) } + { $$ = start_element(ELT_SUB_CHAN, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(CHAN, $1, $$) + } change_date_chan_subs { CHECK1(DATE) } - CLOSE { } + CLOSE + { end_element(ELT_SUB_CHAN, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; change_date_chan_subs : /* empty */ @@ -1437,10 +2361,17 @@ change_date_chan_sub : change_date_date_sect { OCCUR2(DATE, 1, 1) } ; change_date_date_sect : OPEN DELIM TAG_DATE mand_line_item - { START(DATE, NULL) } + { struct date_value dv = gedcom_parse_date($4); + $$ = start_element(ELT_SUB_CHAN_DATE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_DATE(val1, dv)); + START(DATE, $1, $$) } change_date_date_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_CHAN_DATE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; change_date_date_subs : /* empty */ @@ -1452,7 +2383,18 @@ change_date_date_sub : change_date_date_time_sect { OCCUR2(TIME, 0, 1) } ; change_date_date_time_sect : OPEN DELIM TAG_TIME mand_line_item - { START(TIME, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_CHAN_TIME, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TIME, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_CHAN_TIME, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* CHILD TO FAMILY LINK */ @@ -1460,10 +2402,20 @@ chi_fam_link_sub : famc_sect /* 0:M */ ; famc_sect : OPEN DELIM TAG_FAMC mand_pointer - { START(FAMC, NULL) } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_FAM); + if (xr == NULL) HANDLE_ERROR; + $$ = start_element(ELT_SUB_FAMC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(FAMC, $1, $$) + } famc_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_FAMC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; famc_subs : /* empty */ @@ -1476,7 +2428,17 @@ famc_sub : famc_pedi_sect /* 0:M */ ; famc_pedi_sect : OPEN DELIM TAG_PEDI mand_line_item - { START(PEDI, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_FAMC_PEDI, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(PEDI, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_FAMC_PEDI, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* CONTINUATION SUBSECTIONS */ @@ -1484,14 +2446,68 @@ continuation_sub : cont_sect /* 0:M */ | conc_sect /* 0:M */ ; -cont_sect : OPEN DELIM TAG_CONT mand_line_item - { START(CONT, NULL) } no_std_subs { CHECK0 } CLOSE { } +cont_sect : OPEN DELIM TAG_CONT opt_line_item + { $$ = start_element(ELT_SUB_CONT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_NULL_OR_STRING(val1, $4)); + SAFE_BUF_ADDCHAR(&concat_buffer, '\n'); + if (GEDCOM_IS_STRING(&val1)) + safe_buf_append(&concat_buffer, $4); + START(CONT, $1, $$) + } + cont_conc_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_CONT, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; conc_sect : OPEN DELIM TAG_CONC mand_line_item - { START(CONC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_CONC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + if (compat_mode(C_CONC_NEEDS_SPACE)) { + safe_buf_append(&concat_buffer, " "); + } + safe_buf_append(&concat_buffer, $4); + START(CONC, $1, $$) + } + cont_conc_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_CONC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; +cont_conc_subs : /* empty */ + | cont_conc_subs cont_conc_sub + ; + +cont_conc_sub : cont_conc_sour_sect { if (!compat_mode(C_NOTE_CONC_SOUR)) + INVALID_TAG("SOUR"); + OCCUR2(SOUR, 0, 1) } + | no_std_sub + ; + +/* Only for compatibility */ +cont_conc_sour_sect : OPEN DELIM TAG_SOUR DELIM POINTER + { if (compat_mode(C_NOTE_CONC_SOUR)) { + $$ + = compat_generate_note_sour_start(GRANDPARENT(1), + $1, $3, $5); + if ($$ == (void*)-1) HANDLE_ERROR; + } + } + no_std_subs + CLOSE + { if (compat_mode(C_NOTE_CONC_SOUR)) { + compat_generate_note_sour_end($6); + } + } + ; + /* EVENT DETAIL */ event_detail_sub : event_detail_type_sect { OCCUR2(TYPE, 0, 1) } | event_detail_date_sect { OCCUR2(DATE, 0, 1) } @@ -1506,19 +2522,76 @@ event_detail_sub : event_detail_type_sect { OCCUR2(TYPE, 0, 1) } ; event_detail_type_sect : OPEN DELIM TAG_TYPE mand_line_item - { START(TYPE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_EVT_TYPE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TYPE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_EVT_TYPE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; event_detail_date_sect : OPEN DELIM TAG_DATE mand_line_item - { START(DATE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct date_value dv = gedcom_parse_date($4); + $$ + = start_element(ELT_SUB_EVT_DATE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_DATE(val1, dv)); + START(DATE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_EVT_DATE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; event_detail_age_sect : OPEN DELIM TAG_AGE mand_line_item - { START(AGE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct age_value age = gedcom_parse_age($4); + $$ + = start_element(ELT_SUB_EVT_AGE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_AGE(val1, age)); + START(AGE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_EVT_AGE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; event_detail_agnc_sect : OPEN DELIM TAG_AGNC mand_line_item - { START(AGNC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_EVT_AGNC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(AGNC, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_EVT_AGNC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; event_detail_caus_sect : OPEN DELIM TAG_CAUS mand_line_item - { START(CAUS, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_EVT_CAUS, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(CAUS, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_EVT_CAUS, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* FAMILY EVENT STRUCTURE */ @@ -1526,21 +2599,31 @@ fam_event_struc_sub : fam_event_sect | fam_gen_even_sect /* 0:M */ ; -fam_event_sect : OPEN DELIM fam_event_tag opt_value fam_event_subs +fam_event_sect : OPEN DELIM fam_event_tag opt_value + { $$ + = start_element(ELT_SUB_FAM_EVT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_NULL_OR_STRING(val1, $4)); + START2($1, $$); + } + fam_event_subs { CHECK0 } - CLOSE { } - ; - -fam_event_tag : TAG_ANUL { START(ANUL, NULL) } - | TAG_CENS { START(CENS, NULL) } - | TAG_DIV { START(DIV, NULL) } - | TAG_DIVF { START(DIVF, NULL) } - | TAG_ENGA { START(ENGA, NULL) } - | TAG_MARR { START(MARR, NULL) } - | TAG_MARB { START(MARB, NULL) } - | TAG_MARC { START(MARC, NULL) } - | TAG_MARL { START(MARL, NULL) } - | TAG_MARS { START(MARS, NULL) } + CLOSE + { end_element(ELT_SUB_FAM_EVT, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } + ; + +fam_event_tag : TAG_ANUL { $$ = $1; START1(ANUL) } + | TAG_CENS { $$ = $1; START1(CENS) } + | TAG_DIV { $$ = $1; START1(DIV) } + | TAG_DIVF { $$ = $1; START1(DIVF) } + | TAG_ENGA { $$ = $1; START1(ENGA) } + | TAG_MARR { $$ = $1; START1(MARR) } + | TAG_MARB { $$ = $1; START1(MARB) } + | TAG_MARC { $$ = $1; START1(MARC) } + | TAG_MARL { $$ = $1; START1(MARL) } + | TAG_MARS { $$ = $1; START1(MARS) } ; fam_event_subs : /* empty */ @@ -1554,36 +2637,68 @@ fam_event_sub : event_detail_sub ; fam_even_husb_sect : OPEN DELIM TAG_HUSB - { START(HUSB, NULL) } + { $$ = start_element(ELT_SUB_FAM_EVT_HUSB, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(HUSB, $1, $$) + } fam_even_husb_subs { CHECK1(AGE) } - CLOSE { } + CLOSE + { end_element(ELT_SUB_FAM_EVT_HUSB, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; fam_even_husb_subs : /* empty */ | fam_even_husb_subs fam_even_husb_sub ; -fam_even_husb_sub : fam_even_husb_age_sect { OCCUR2(AGE, 1, 1) } +fam_even_husb_sub : fam_even_age_sect { OCCUR2(AGE, 1, 1) } | no_std_sub ; -fam_even_husb_age_sect : OPEN DELIM TAG_AGE mand_line_item - { START(AGE, NULL) } no_std_subs { CHECK0 } CLOSE { } - ; +fam_even_age_sect : OPEN DELIM TAG_AGE mand_line_item + { struct age_value age = gedcom_parse_age($4); + $$ = start_element(ELT_SUB_FAM_EVT_AGE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_AGE(val1, age)); + START(AGE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_FAM_EVT_AGE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } + ; fam_even_wife_sect : OPEN DELIM TAG_WIFE - { START(HUSB, NULL) } + { $$ = start_element(ELT_SUB_FAM_EVT_WIFE, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(WIFE, $1, $$) + } fam_even_husb_subs { CHECK1(AGE) } - CLOSE { } + CLOSE + { end_element(ELT_SUB_FAM_EVT_WIFE, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; fam_gen_even_sect : OPEN DELIM TAG_EVEN - { START(EVEN, NULL) } + { $$ = start_element(ELT_SUB_FAM_EVT_EVEN, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(EVEN, $1, $$) + } fam_gen_even_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_FAM_EVT_EVEN, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; fam_gen_even_subs : /* empty */ @@ -1602,10 +2717,17 @@ ident_struc_sub : ident_refn_sect /* 0:M */ ; ident_refn_sect : OPEN DELIM TAG_REFN mand_line_item - { START(REFN, NULL) } + { $$ = start_element(ELT_SUB_IDENT_REFN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(REFN, $1, $$) + } ident_refn_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_IDENT_REFN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; ident_refn_subs : /* empty */ @@ -1617,106 +2739,79 @@ ident_refn_sub : ident_refn_type_sect { OCCUR2(TYPE, 0, 1) } ; ident_refn_type_sect : OPEN DELIM TAG_TYPE mand_line_item - { START(TYPE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_IDENT_REFN_TYPE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TYPE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_IDENT_REFN_TYPE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; ident_rin_sect : OPEN DELIM TAG_RIN mand_line_item - { START(RIN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_IDENT_RIN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(RIN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_IDENT_RIN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* INDIVIDUAL ATTRIBUTE STRUCTURE */ -indiv_attr_struc_sub : indiv_cast_sect /* 0:M */ - | indiv_dscr_sect /* 0:M */ - | indiv_educ_sect /* 0:M */ - | indiv_idno_sect /* 0:M */ - | indiv_nati_sect /* 0:M */ - | indiv_nchi_sect /* 0:M */ - | indiv_nmr_sect /* 0:M */ - | indiv_occu_sect /* 0:M */ - | indiv_prop_sect /* 0:M */ - | indiv_reli_sect /* 0:M */ +indiv_attr_struc_sub : indiv_attr_sect /* 0:M */ | indiv_resi_sect /* 0:M */ - | indiv_ssn_sect /* 0:M */ - | indiv_titl_sect /* 0:M */ ; -indiv_cast_sect : OPEN DELIM TAG_CAST mand_line_item - { START(CAST, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_dscr_sect : OPEN DELIM TAG_DSCR mand_line_item - { START(DSCR, NULL) } +indiv_attr_sect : OPEN DELIM indiv_attr_tag mand_line_item + { $$ = start_element(ELT_SUB_INDIV_ATTR, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START2($1, $$); + } indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_educ_sect : OPEN DELIM TAG_EDUC mand_line_item - { START(EDUC, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_idno_sect : OPEN DELIM TAG_IDNO mand_line_item - { START(IDNO, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_nati_sect : OPEN DELIM TAG_NATI mand_line_item - { START(NATI, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_nchi_sect : OPEN DELIM TAG_NCHI mand_line_item - { START(NCHI, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_nmr_sect : OPEN DELIM TAG_NMR mand_line_item - { START(NMR, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_occu_sect : OPEN DELIM TAG_OCCU mand_line_item - { START(OCCU, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_prop_sect : OPEN DELIM TAG_PROP mand_line_item - { START(PROP, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } + { CHECK0 } + CLOSE + { end_element(ELT_SUB_INDIV_ATTR, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; -indiv_reli_sect : OPEN DELIM TAG_RELI mand_line_item - { START(RELI, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } + +indiv_attr_tag : TAG_CAST { $$ = $1; START1(CAST) } + | TAG_DSCR { $$ = $1; START1(DSCR) } + | TAG_EDUC { $$ = $1; START1(EDUC) } + | TAG_IDNO { $$ = $1; START1(IDNO) } + | TAG_NATI { $$ = $1; START1(NATI) } + | TAG_NCHI { $$ = $1; START1(NCHI) } + | TAG_NMR { $$ = $1; START1(NMR) } + | TAG_OCCU { $$ = $1; START1(OCCU) } + | TAG_PROP { $$ = $1; START1(PROP) } + | TAG_RELI { $$ = $1; START1(RELI) } + | TAG_SSN { $$ = $1; START1(SSN) } + | TAG_TITL { $$ = $1; START1(TITL) } ; + indiv_resi_sect : OPEN DELIM TAG_RESI - { START(RESI, NULL) } + { $$ = start_element(ELT_SUB_INDIV_RESI, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(RESI, $1, $$) + } indiv_attr_event_subs { CHECK0 } - CLOSE { } - ; -indiv_ssn_sect : OPEN DELIM TAG_SSN mand_line_item - { START(SSN, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } - ; -indiv_titl_sect : OPEN DELIM TAG_TITL mand_line_item - { START(TITL, NULL) } - indiv_attr_event_subs - { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_INDIV_RESI, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; indiv_attr_event_subs : /* empty */ @@ -1734,13 +2829,23 @@ indiv_even_struc_sub : indiv_birt_sect | indiv_even_sect /* 0:M */ ; -indiv_birt_sect : OPEN DELIM indiv_birt_tag opt_value indiv_birt_subs +indiv_birt_sect : OPEN DELIM indiv_birt_tag opt_value + { $$ + = start_element(ELT_SUB_INDIV_BIRT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_NULL_OR_STRING(val1, $4)); + START2($1, $$); + } + indiv_birt_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_INDIV_BIRT, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; -indiv_birt_tag : TAG_BIRT { START(BIRT, NULL) } - | TAG_CHR { START(CHR, NULL) } +indiv_birt_tag : TAG_BIRT { $$ = $1; START1(BIRT) } + | TAG_CHR { $$ = $1; START1(CHR) } ; indiv_birt_subs : /* empty */ @@ -1753,33 +2858,58 @@ indiv_birt_sub : event_detail_sub ; indiv_birt_famc_sect : OPEN DELIM TAG_FAMC mand_pointer - { START(FAMC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($4, + XREF_USED, + XREF_FAM); + if (xr == NULL) HANDLE_ERROR; + $$ + = start_element(ELT_SUB_INDIV_BIRT_FAMC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(FAMC, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_INDIV_BIRT_FAMC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; -indiv_gen_sect : OPEN DELIM indiv_gen_tag opt_value indiv_gen_subs +indiv_gen_sect : OPEN DELIM indiv_gen_tag opt_value + { $$ + = start_element(ELT_SUB_INDIV_GEN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_NULL_OR_STRING(val1, $4)); + START2($1, $$); + } + indiv_gen_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_INDIV_GEN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; -indiv_gen_tag : TAG_DEAT { START(DEAT, NULL) } - | TAG_BURI { START(BURI, NULL) } - | TAG_CREM { START(CREM, NULL) } - | TAG_BAPM { START(BAPM, NULL) } - | TAG_BARM { START(BARM, NULL) } - | TAG_BASM { START(BASM, NULL) } - | TAG_BLES { START(BLES, NULL) } - | TAG_CHRA { START(CHRA, NULL) } - | TAG_CONF { START(CONF, NULL) } - | TAG_FCOM { START(FCOM, NULL) } - | TAG_ORDN { START(ORDN, NULL) } - | TAG_NATU { START(NATU, NULL) } - | TAG_EMIG { START(EMIG, NULL) } - | TAG_IMMI { START(IMMI, NULL) } - | TAG_CENS { START(CENS, NULL) } - | TAG_PROB { START(PROB, NULL) } - | TAG_WILL { START(WILL, NULL) } - | TAG_GRAD { START(GRAD, NULL) } - | TAG_RETI { START(RETI, NULL) } +indiv_gen_tag : TAG_DEAT { $$ = $1; START1(DEAT) } + | TAG_BURI { $$ = $1; START1(BURI) } + | TAG_CREM { $$ = $1; START1(CREM) } + | TAG_BAPM { $$ = $1; START1(BAPM) } + | TAG_BARM { $$ = $1; START1(BARM) } + | TAG_BASM { $$ = $1; START1(BASM) } + | TAG_BLES { $$ = $1; START1(BLES) } + | TAG_CHRA { $$ = $1; START1(CHRA) } + | TAG_CONF { $$ = $1; START1(CONF) } + | TAG_FCOM { $$ = $1; START1(FCOM) } + | TAG_ORDN { $$ = $1; START1(ORDN) } + | TAG_NATU { $$ = $1; START1(NATU) } + | TAG_EMIG { $$ = $1; START1(EMIG) } + | TAG_IMMI { $$ = $1; START1(IMMI) } + | TAG_CENS { $$ = $1; START1(CENS) } + | TAG_PROB { $$ = $1; START1(PROB) } + | TAG_WILL { $$ = $1; START1(WILL) } + | TAG_GRAD { $$ = $1; START1(GRAD) } + | TAG_RETI { $$ = $1; START1(RETI) } ; indiv_gen_subs : /* empty */ @@ -1791,10 +2921,17 @@ indiv_gen_sub : event_detail_sub ; indiv_adop_sect : OPEN DELIM TAG_ADOP opt_value - { START(ADOP, NULL) } + { $$ + = start_element(ELT_SUB_INDIV_ADOP, + PARENT, $1, $3, $4, + GEDCOM_MAKE_NULL_OR_STRING(val1, $4)); + START(ADOP, $1, $$) } indiv_adop_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_INDIV_ADOP, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; indiv_adop_subs : /* empty */ @@ -1807,10 +2944,21 @@ indiv_adop_sub : event_detail_sub ; indiv_adop_famc_sect : OPEN DELIM TAG_FAMC mand_pointer - { START(FAMC, NULL) } + { struct xref_value *xr = gedcom_parse_xref($4, + XREF_USED, + XREF_FAM); + if (xr == NULL) HANDLE_ERROR; + $$ + = start_element(ELT_SUB_INDIV_ADOP_FAMC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(FAMC, $1, $$) } indiv_adop_famc_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_INDIV_ADOP_FAMC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; indiv_adop_famc_subs : /* empty */ @@ -1822,14 +2970,31 @@ indiv_adop_famc_sub : indiv_adop_famc_adop_sect { OCCUR2(ADOP,0, 1) } ; indiv_adop_famc_adop_sect : OPEN DELIM TAG_ADOP mand_line_item - { START(ADOP, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_INDIV_ADOP_FAMC_ADOP, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(ADOP, $1, $$) } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_INDIV_ADOP_FAMC_ADOP, + PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; indiv_even_sect : OPEN DELIM TAG_EVEN - { START(EVEN, NULL) } + { $$ = start_element(ELT_SUB_INDIV_EVEN, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(EVEN, $1, $$) } indiv_gen_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_INDIV_EVEN, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; /* LDS INDIVIDUAL ORDINANCE */ @@ -1837,14 +3002,23 @@ lds_indiv_ord_sub : lio_bapl_sect /* 0:M */ | lio_slgc_sect /* 0:M */ ; -lio_bapl_sect : OPEN DELIM lio_bapl_tag lio_bapl_subs +lio_bapl_sect : OPEN DELIM lio_bapl_tag + { $$ = start_element(ELT_SUB_LIO_BAPL, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START2($1, $$); + } + lio_bapl_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_LIO_BAPL, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; -lio_bapl_tag : TAG_BAPL { START(BAPL, NULL) } - | TAG_CONL { START(CONL, NULL) } - | TAG_ENDL { START(ENDL, NULL) } +lio_bapl_tag : TAG_BAPL { $$ = $1; START1(BAPL) } + | TAG_CONL { $$ = $1; START1(CONL) } + | TAG_ENDL { $$ = $1; START1(ENDL) } ; lio_bapl_subs : /* empty */ @@ -1861,23 +3035,75 @@ lio_bapl_sub : lio_bapl_stat_sect { OCCUR2(STAT, 0, 1) } ; lio_bapl_stat_sect : OPEN DELIM TAG_STAT mand_line_item - { START(STAT, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_LIO_BAPL_STAT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(STAT, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LIO_BAPL_STAT, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; lio_bapl_date_sect : OPEN DELIM TAG_DATE mand_line_item - { START(DATE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct date_value dv = gedcom_parse_date($4); + $$ = start_element(ELT_SUB_LIO_BAPL_DATE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_DATE(val1, dv)); + START(DATE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LIO_BAPL_DATE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; lio_bapl_temp_sect : OPEN DELIM TAG_TEMP mand_line_item - { START(TEMP, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_LIO_BAPL_TEMP, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TEMP, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LIO_BAPL_TEMP, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; lio_bapl_plac_sect : OPEN DELIM TAG_PLAC mand_line_item - { START(PLAC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_LIO_BAPL_PLAC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(PLAC, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LIO_BAPL_PLAC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; lio_slgc_sect : OPEN DELIM TAG_SLGC - { START(SLGC, NULL) } + { $$ = start_element(ELT_SUB_LIO_SLGC, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(SLGC, $1, $$) + } lio_slgc_subs - { CHECK1(FAMC) } - CLOSE { } + { if (compat_mode(C_NO_SLGC_FAMC) && ! CHK_COND(FAMC)) + compat_generate_slgc_famc_link($4); + else CHK(FAMC); + CHECK0; + } + CLOSE + { end_element(ELT_SUB_LIO_SLGC, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; lio_slgc_subs : /* empty */ @@ -1889,7 +3115,21 @@ lio_slgc_sub : lio_bapl_sub ; lio_slgc_famc_sect : OPEN DELIM TAG_FAMC mand_pointer - { START(FAMC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_FAM); + if (xr == NULL) HANDLE_ERROR; + $$ + = start_element(ELT_SUB_LIO_SLGC_FAMC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(FAMC, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LIO_SLGC_FAMC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* LDS SPOUSE SEALING */ @@ -1897,10 +3137,16 @@ lds_spouse_seal_sub : lss_slgs_sect ; lss_slgs_sect : OPEN DELIM TAG_SLGS - { START(SLGS, NULL) } + { $$ = start_element(ELT_SUB_LSS_SLGS, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(SLGS, $1, $$) } lss_slgs_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_LIO_SLGC, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; lss_slgs_subs : /* empty */ @@ -1917,16 +3163,57 @@ lss_slgs_sub : lss_slgs_stat_sect { OCCUR2(STAT, 0, 1) } ; lss_slgs_stat_sect : OPEN DELIM TAG_STAT mand_line_item - { START(STAT, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_LSS_SLGS_STAT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(STAT, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LSS_SLGS_STAT, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; lss_slgs_date_sect : OPEN DELIM TAG_DATE mand_line_item - { START(DATE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct date_value dv = gedcom_parse_date($4); + $$ = start_element(ELT_SUB_LSS_SLGS_DATE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_DATE(val1, dv)); + START(DATE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LSS_SLGS_DATE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; lss_slgs_temp_sect : OPEN DELIM TAG_TEMP mand_line_item - { START(TEMP, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_LSS_SLGS_TEMP, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TEMP, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LSS_SLGS_TEMP, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; lss_slgs_plac_sect : OPEN DELIM TAG_PLAC mand_line_item - { START(PLAC, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_LSS_SLGS_PLAC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(PLAC, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_LSS_SLGS_PLAC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* MULTIMEDIA LINK */ @@ -1935,14 +3222,36 @@ multim_link_sub : multim_obje_link_sect ; multim_obje_link_sect : OPEN DELIM TAG_OBJE DELIM POINTER - { START(OBJE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct xref_value *xr = gedcom_parse_xref($5, + XREF_USED, + XREF_OBJE); + if (xr == NULL) HANDLE_ERROR; + $$ + = start_element(ELT_SUB_MULTIM_OBJE, + PARENT, $1, $3, $5, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(OBJE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_MULTIM_OBJE, PARENT, $6, + GEDCOM_MAKE_NULL(val1)); + } ; multim_obje_emb_sect : OPEN DELIM TAG_OBJE - { START(OBJE, NULL) } + { $$ = start_element(ELT_SUB_MULTIM_OBJE, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(OBJE, $1, $$) + } multim_obje_emb_subs { CHECK2(FORM,FILE) } - CLOSE { } + CLOSE + { end_element(ELT_SUB_MULTIM_OBJE, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; multim_obje_emb_subs : /* empty */ @@ -1957,13 +3266,49 @@ multim_obje_emb_sub : multim_obje_form_sect { OCCUR2(FORM, 1, 1) } ; multim_obje_form_sect : OPEN DELIM TAG_FORM mand_line_item - { START(FORM, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_MULTIM_OBJE_FORM, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(FORM, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_MULTIM_OBJE_FORM, + PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; multim_obje_titl_sect : OPEN DELIM TAG_TITL mand_line_item - { START(TITL, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_MULTIM_OBJE_TITL, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(TITL, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_MULTIM_OBJE_TITL, + PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; multim_obje_file_sect : OPEN DELIM TAG_FILE mand_line_item - { START(FILE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_MULTIM_OBJE_FILE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(FILE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_MULTIM_OBJE_FILE, + PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* NOTE STRUCTURE */ @@ -1972,10 +3317,22 @@ note_struc_sub : note_struc_link_sect /* 0:M */ ; note_struc_link_sect : OPEN DELIM TAG_NOTE DELIM POINTER - { START(NOTE, NULL) } + { struct xref_value *xr = gedcom_parse_xref($5, + XREF_USED, + XREF_NOTE); + if (xr == NULL) HANDLE_ERROR; + $$ + = start_element(ELT_SUB_NOTE, + PARENT, $1, $3, $5, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(NOTE, $1, $$) + } note_struc_link_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_NOTE, PARENT, $6, + GEDCOM_MAKE_NULL(val1)); + } ; note_struc_link_subs : /* empty */ @@ -1987,10 +3344,27 @@ note_struc_link_sub : source_cit_sub ; note_struc_emb_sect : OPEN DELIM TAG_NOTE opt_line_item - { START(NOTE, NULL) } + { char* str = $4; + if (compat_mode(C_NOTE_TOO_LONG)) + str = compat_long_line_get_prefix($4); + $$ + = start_element(ELT_SUB_NOTE, + PARENT, $1, $3, str, + GEDCOM_MAKE_NULL_OR_STRING(val1, str)); + reset_buffer(&concat_buffer); + if ($4) + safe_buf_append(&concat_buffer, $4); + START(NOTE, $1, $$); + if (compat_mode(C_NOTE_TOO_LONG)) + compat_long_line_finish($$, $1); + } note_struc_emb_subs { CHECK0 } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SUB_NOTE, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); + } ; note_struc_emb_subs : /* empty */ @@ -2007,10 +3381,17 @@ pers_name_struc_sub : pers_name_sect /* 0:M */ ; pers_name_sect : OPEN DELIM TAG_NAME mand_line_item - { START(NAME, NULL) } + { $$ = start_element(ELT_SUB_PERS_NAME, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(NAME, $1, $$) + } pers_name_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_PERS_NAME, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; pers_name_subs : /* empty */ @@ -2029,22 +3410,82 @@ pers_name_sub : pers_name_npfx_sect { OCCUR2(NPFX, 0, 1) } ; pers_name_npfx_sect : OPEN DELIM TAG_NPFX mand_line_item - { START(NPFX, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_PERS_NAME_NPFX, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(NPFX, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PERS_NAME_NPFX, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; pers_name_givn_sect : OPEN DELIM TAG_GIVN mand_line_item - { START(GIVN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_PERS_NAME_GIVN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(GIVN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PERS_NAME_GIVN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; pers_name_nick_sect : OPEN DELIM TAG_NICK mand_line_item - { START(NICK, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_PERS_NAME_NICK, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(NICK, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PERS_NAME_NICK, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; pers_name_spfx_sect : OPEN DELIM TAG_SPFX mand_line_item - { START(SPFX, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_PERS_NAME_SPFX, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(SPFX, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PERS_NAME_SPFX, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; pers_name_surn_sect : OPEN DELIM TAG_SURN mand_line_item - { START(SURN, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_PERS_NAME_SURN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(SURN, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PERS_NAME_SURN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; pers_name_nsfx_sect : OPEN DELIM TAG_NSFX mand_line_item - { START(NSFX, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_PERS_NAME_NSFX, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(NSFX, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PERS_NAME_NSFX, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* PLACE STRUCTURE */ @@ -2052,10 +3493,18 @@ place_struc_sub : place_struc_plac_sect /* 0:M */ ; place_struc_plac_sect : OPEN DELIM TAG_PLAC mand_line_item - { START(PLAC, NULL) } + { $$ + = start_element(ELT_SUB_PLAC, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(PLAC, $1, $$) + } place_struc_plac_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_PLAC, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; place_struc_plac_subs : /* empty */ @@ -2069,7 +3518,18 @@ place_struc_plac_sub : place_plac_form_sect { OCCUR2(FORM, 0, 1) } ; place_plac_form_sect : OPEN DELIM TAG_FORM mand_line_item - { START(FORM, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_PLAC_FORM, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(FORM, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_PLAC_FORM, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SOURCE_CITATION */ @@ -2078,10 +3538,22 @@ source_cit_sub : source_cit_link_sect /* 0:M */ ; source_cit_link_sect : OPEN DELIM TAG_SOUR DELIM POINTER - { START(SOUR, NULL) } + { struct xref_value *xr = gedcom_parse_xref($5, + XREF_USED, + XREF_SOUR); + if (xr == NULL) HANDLE_ERROR; + $$ + = start_element(ELT_SUB_SOUR, + PARENT, $1, $3, $5, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(SOUR, $1, $$) + } source_cit_link_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_SOUR, PARENT, $6, + GEDCOM_MAKE_NULL(val1)); + } ; source_cit_link_subs : /* empty */ @@ -2098,14 +3570,33 @@ source_cit_link_sub : source_cit_page_sect { OCCUR2(PAGE, 0, 1) } ; source_cit_page_sect : OPEN DELIM TAG_PAGE mand_line_item - { START(PAGE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_SOUR_PAGE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(PAGE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_SOUR_PAGE, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; source_cit_even_sect : OPEN DELIM TAG_EVEN mand_line_item - { START(EVEN, NULL) } + { $$ + = start_element(ELT_SUB_SOUR_EVEN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(EVEN, $1, $$) + } source_cit_even_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_SOUR_EVEN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; source_cit_even_subs : /* empty */ @@ -2117,14 +3608,33 @@ source_cit_even_sub : source_cit_even_role_sect { OCCUR2(ROLE, 0, 1) } ; source_cit_even_role_sect : OPEN DELIM TAG_ROLE mand_line_item - { START(ROLE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_SOUR_EVEN_ROLE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(ROLE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_SOUR_EVEN_ROLE, + PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; source_cit_data_sect : OPEN DELIM TAG_DATA - { START(DATA, NULL) } + { $$ = start_element(ELT_SUB_SOUR_DATA, + PARENT, $1, $3, NULL, + GEDCOM_MAKE_NULL(val1)); + START(DATA, $1, $$) + } source_cit_data_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_SOUR_DATA, PARENT, $4, + GEDCOM_MAKE_NULL(val1)); + } ; source_cit_data_subs : /* empty */ @@ -2137,14 +3647,38 @@ source_cit_data_sub : source_cit_data_date_sect { OCCUR2(DATE, 0, 1) } ; source_cit_data_date_sect : OPEN DELIM TAG_DATE mand_line_item - { START(DATE, NULL) } no_std_subs { CHECK0 } CLOSE { } + { struct date_value dv = gedcom_parse_date($4); + $$ + = start_element(ELT_SUB_SOUR_DATA_DATE, + PARENT, $1, $3, $4, + GEDCOM_MAKE_DATE(val1, dv)); + START(DATE, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_SOUR_DATA_DATE, + PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; source_cit_text_sect : OPEN DELIM TAG_TEXT mand_line_item - { START(TEXT, NULL) } + { $$ + = start_element(ELT_SUB_SOUR_TEXT, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(TEXT, $1, $$) + } source_cit_text_subs { CHECK0 } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SUB_SOUR_TEXT, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); + } ; source_cit_text_subs : /* empty */ @@ -2156,14 +3690,35 @@ source_cit_text_sub : continuation_sub ; source_cit_quay_sect : OPEN DELIM TAG_QUAY mand_line_item - { START(QUAY, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ + = start_element(ELT_SUB_SOUR_QUAY, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(QUAY, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_SOUR_QUAY, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; source_cit_emb_sect : OPEN DELIM TAG_SOUR mand_line_item - { START(SOUR, NULL) } + { $$ = start_element(ELT_SUB_SOUR, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + reset_buffer(&concat_buffer); + safe_buf_append(&concat_buffer, $4); + START(SOUR, $1, $$) + } source_cit_emb_subs { CHECK0 } - CLOSE { } + CLOSE + { char* complete = get_buf_string(&concat_buffer); + end_element(ELT_SUB_SOUR, PARENT, $5, + GEDCOM_MAKE_STRING(val1, complete)); + } ; source_cit_emb_subs : /* empty */ @@ -2178,13 +3733,43 @@ source_cit_emb_sub : continuation_sub /* SOURCE REPOSITORY CITATION */ source_repos_cit_sub : source_repos_repo_sect { OCCUR2(REPO, 0, 1) } + | source_repos_repo_txt_sect + { if (!compat_mode(C_NONSTD_SOUR_TAGS)) + INVALID_TAG("REPO"); + OCCUR2(REPO, 0, 1) + } ; -source_repos_repo_sect : OPEN DELIM TAG_REPO mand_pointer - { START(REPO, NULL) } +/* Only for compatibility */ +source_repos_repo_txt_sect : OPEN DELIM TAG_REPO opt_line_item + { if (compat_mode(C_NONSTD_SOUR_TAGS)) { + $$ = + compat_generate_nonstd_sour_start(PARENT, $1, $3, $4, + &usertag_buffer); + } + } + CLOSE + { if (compat_mode(C_NONSTD_SOUR_TAGS)) + compat_generate_nonstd_sour_end(PARENT, $5); + } + ; + +source_repos_repo_sect : OPEN DELIM TAG_REPO DELIM POINTER + { struct xref_value *xr + = gedcom_parse_xref($5, XREF_USED, XREF_REPO); + if (xr == NULL) HANDLE_ERROR; + $$ + = start_element(ELT_SUB_REPO, + PARENT, $1, $3, $5, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(REPO, $1, $$); + } source_repos_repo_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_REPO, PARENT, $6, + GEDCOM_MAKE_NULL(val1)); + } ; source_repos_repo_subs : /* empty */ @@ -2197,10 +3782,17 @@ source_repos_repo_sub : note_struc_sub ; caln_sect : OPEN DELIM TAG_CALN mand_line_item - { START(CALN, NULL) } + { $$ = start_element(ELT_SUB_REPO_CALN, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(CALN, $1, $$) + } caln_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_REPO_CALN, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; caln_subs : /* empty */ @@ -2212,7 +3804,17 @@ caln_sub : caln_medi_sect { OCCUR2(MEDI, 0, 1) } ; caln_medi_sect : OPEN DELIM TAG_MEDI mand_line_item - { START(MEDI, NULL) } no_std_subs { CHECK0 } CLOSE { } + { $$ = start_element(ELT_SUB_REPO_CALN_MEDI, + PARENT, $1, $3, $4, + GEDCOM_MAKE_STRING(val1, $4)); + START(MEDI, $1, $$) + } + no_std_subs + { CHECK0 } + CLOSE + { end_element(ELT_SUB_REPO_CALN_MEDI, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; /* SPOUSE TO FAMILY LINK */ @@ -2220,10 +3822,21 @@ spou_fam_link_sub : spou_fam_fams_sect /* 0:M */ ; spou_fam_fams_sect : OPEN DELIM TAG_FAMS mand_pointer - { START(FAMS, NULL) } + { struct xref_value *xr = gedcom_parse_xref($4, XREF_USED, + XREF_FAM); + if (xr == NULL) HANDLE_ERROR; + $$ + = start_element(ELT_SUB_FAMS, + PARENT, $1, $3, $4, + GEDCOM_MAKE_XREF_PTR(val1, xr)); + START(FAMS, $1, $$) + } spou_fam_fams_subs { CHECK0 } - CLOSE { } + CLOSE + { end_element(ELT_SUB_FAMS, PARENT, $5, + GEDCOM_MAKE_NULL(val1)); + } ; spou_fam_fams_subs : /* empty */ @@ -2244,108 +3857,167 @@ no_std_subs : /* empty */ no_std_sub : user_sect /* 0:M */ | gen_sect - | error error_subs CLOSE { HANDLE_ERROR } + | error error_subs + CLOSE { HANDLE_ERROR } ; no_std_rec : user_rec /* 0:M */ | gen_rec - | error error_subs CLOSE { HANDLE_ERROR } + | error error_subs + CLOSE { HANDLE_ERROR } ; -user_rec : OPEN DELIM opt_xref USERTAG - { if ($4[0] != '_') { - gedcom_error("Undefined tag (and not a valid user tag): %s", - $4); - YYERROR; +user_rec : OPEN DELIM opt_xref USERTAG + { if ($4.string[0] != '_') { + if ((compat_mode(C_551_TAGS) + && compat_check_551_tag($4.string, &usertag_buffer)) + || + (compat_mode(C_NONSTD_SOUR_TAGS) + && compat_check_sour_tag($4.string, &usertag_buffer))) { + $4.string = get_buf_string(&usertag_buffer); + } + else { + gedcom_error(_("Undefined tag (and not a valid user tag): %s"), + $4); + YYERROR; + } } } opt_value - { $$ = start_record(REC_USER, $1, $3, $4); - START($4, $$) + { struct xref_value *xr = NULL; + if ($3 != NULL) { + xr = gedcom_parse_xref($3, XREF_DEFINED, XREF_USER); + if (xr == NULL) HANDLE_ERROR; + } + $$ = start_record(REC_USER, + $1, + GEDCOM_MAKE_NULL_OR_XREF_PTR(val1, xr), + $4, $6, &val2); + START($4, $1, $$) } user_sects { CHECK0 } CLOSE - { end_record(REC_USER, $7); } + { end_record(REC_USER, $7, GEDCOM_MAKE_NULL(val1)); } ; -user_sect : OPEN DELIM opt_xref USERTAG - { if ($4[0] != '_') { - gedcom_error("Undefined tag (and not a valid user tag): %s", - $4); - YYERROR; +user_sect : OPEN DELIM opt_xref USERTAG + { if ($4.string[0] != '_') { + if ((compat_mode(C_551_TAGS) + && compat_check_551_tag($4.string, &usertag_buffer)) + || + (compat_mode(C_SUBM_COMM) + && compat_check_subm_comm($4.string, get_parenttag(0), + &usertag_buffer)) + || + (compat_mode(C_NONSTD_SOUR_TAGS) + && compat_check_sour_tag($4.string, &usertag_buffer))) { + $4.string = get_buf_string(&usertag_buffer); + } + else { + gedcom_error(_("Undefined tag (and not a valid user tag): %s"), + $4); + YYERROR; + } } } opt_value - { $$ = start_element(ELT_USER, PARENT, $1, $4, $6, $6); - START($4, $$); + { $$ = start_element(ELT_USER, PARENT, $1, $4, $6, &val2); + START($4, $1, $$); } user_sects { CHECK0 } CLOSE - { end_element(ELT_USER, PARENT, $7, NULL); + { end_element(ELT_USER, PARENT, $7, + GEDCOM_MAKE_NULL(val1)); + if (compat_mode(C_SUBM_COMM)) + compat_close_subm_comm(); } ; user_sects : /* empty */ { } | user_sects user_sect { } + | user_sects gen_sect + { if (compat_mode(C_SUBM_COMM)) { + } + else { + gedcom_error(_("Standard tag not allowed in user section")); + YYERROR; + } + } ; opt_xref : /* empty */ { $$ = NULL; } | 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; } - | DELIM POINTER { gedcom_debug_print("==Ptr: %s==\n", $2); - $$ = $2; } +mand_pointer : /* empty */ { gedcom_error(_("Missing pointer")); YYERROR; } + | DELIM POINTER { gedcom_debug_print("==Ptr: %s==", $2); + $$ = $2; } ; -mand_line_item : /* empty */ { gedcom_error("Missing value"); YYERROR; } - | DELIM line_item { gedcom_debug_print("==Val: %s==\n", $2); - $$ = $2; } +mand_line_item : /* empty */ + { if (compat_mode(C_NO_REQUIRED_VALUES)) { + gedcom_debug_print("==Val: =="); + $$ = VALUE_IF_MISSING; + } + else { + gedcom_error(_("Missing value")); YYERROR; + } + } + | DELIM line_item { gedcom_debug_print("==Val: %s==", $2); + $$ = $2; } ; -opt_line_item : /* empty */ { } - | DELIM line_item { } +opt_line_item : /* empty */ { $$ = NULL; } + | DELIM line_item { gedcom_debug_print("==Val: %s==", $2); + $$ = $2; } ; line_item : anychar { size_t i; - CLEAR_BUFFER(line_item_buf); - line_item_buf_ptr = line_item_buf; - /* The following also takes care of '@@' */ + reset_buffer(&line_item_buffer); + /* The following also takes care of '@@' */ if (!strncmp($1, "@@", 3)) - *line_item_buf_ptr++ = '@'; + SAFE_BUF_ADDCHAR(&line_item_buffer, '@') else for (i=0; i < strlen($1); i++) - *line_item_buf_ptr++ = $1[i]; - $$ = line_item_buf; + SAFE_BUF_ADDCHAR(&line_item_buffer, $1[i]) + $$ = get_buf_string(&line_item_buffer); } - | ESCAPE { CLEAR_BUFFER(line_item_buf); - line_item_buf_ptr = line_item_buf; - /* For now, ignore escapes */ - $$ = line_item_buf; + | ESCAPE { size_t i; + reset_buffer(&line_item_buffer); + for (i=0; i < strlen($1); i++) + SAFE_BUF_ADDCHAR(&line_item_buffer, $1[i]) + $$ = get_buf_string(&line_item_buffer); } | line_item anychar { size_t i; /* The following also takes care of '@@' */ if (!strncmp($2, "@@", 3)) - *line_item_buf_ptr++ = '@'; + SAFE_BUF_ADDCHAR(&line_item_buffer, '@') else for (i=0; i < strlen($2); i++) - *line_item_buf_ptr++ = $2[i]; - $$ = line_item_buf; + SAFE_BUF_ADDCHAR(&line_item_buffer, $2[i]) + $$ = get_buf_string(&line_item_buffer); } | line_item ESCAPE - { /* For now, ignore escapes */ - $$ = line_item_buf; + { size_t i; + for (i=0; i < strlen($2); i++) + SAFE_BUF_ADDCHAR(&line_item_buffer, $2[i]) + $$ = get_buf_string(&line_item_buffer); } + | line_item error anychar { HANDLE_ERROR; } + | line_item error ESCAPE { HANDLE_ERROR; } ; anychar : ANYCHAR { } @@ -2357,11 +4029,26 @@ error_subs : /* empty */ ; error_sect : OPEN DELIM opt_xref anytag opt_value error_subs CLOSE { } + ; gen_sect : OPEN DELIM opt_xref anystdtag - { INVALID_TAG($4); } - opt_value opt_sects CLOSE - { } + { if (compat_mode(C_SUBM_COMM) + && compat_check_subm_comm_cont($4.string)) { + /* Will pass here */ + } + else { + INVALID_TAG($4.string); + } + } + opt_value + { if (compat_mode(C_SUBM_COMM)) { + $$ = compat_subm_comm_cont_start(PARENT, $6); + } + } + opt_sects CLOSE + { if (compat_mode(C_SUBM_COMM)) + compat_subm_comm_cont_end(PARENT, $7); + } ; gen_rec : gen_rec_top @@ -2369,13 +4056,13 @@ gen_rec : gen_rec_top ; gen_rec_norm : OPEN DELIM opt_xref anystdtag - { INVALID_TOP_TAG($4) } + { INVALID_TOP_TAG($4.string) } opt_value opt_sects CLOSE { } ; gen_rec_top : OPEN DELIM anytoptag - { gedcom_error("Missing cross-reference"); YYERROR; } + { gedcom_error(_("Missing cross-reference")); YYERROR; } opt_value opt_sects CLOSE { } ; @@ -2525,6 +4212,7 @@ anystdtag : TAG_ABBR | TAG_VERS { } | TAG_WIFE { } | TAG_WILL { } + ; %% @@ -2534,17 +4222,23 @@ int* count_arrays[MAXGEDCLEVEL+1]; char tag_stack[MAXGEDCLEVEL+1][MAXSTDTAGLEN+1]; Gedcom_ctxt ctxt_stack[MAXGEDCLEVEL+1]; -void push_countarray() +void push_countarray(int level) { int *count = NULL; + gedcom_debug_print("Push Count level: %d, level: %d", count_level, level); + if (count_level != level + 1) { + gedcom_error(_("Internal error: count level mismatch")); + exit(1); + } if (count_level > MAXGEDCLEVEL) { - gedcom_error("Internal error: count array overflow"); + gedcom_error(_("Internal error: count array overflow")); exit(1); } else { + gedcom_debug_print("calloc countarray %d", count_level); count = (int *)calloc(YYNTOKENS, sizeof(int)); if (count == NULL) { - gedcom_error("Internal error: count array calloc error"); + gedcom_error(_("Internal error: count array calloc error")); exit(1); } else { @@ -2553,24 +4247,24 @@ void push_countarray() } } -void set_parenttag(char* tag) +void set_parenttag(const char* tag) { - strncpy(tag_stack[count_level], tag, MAXSTDTAGLEN+1); + strncpy(tag_stack[count_level+1], tag, MAXSTDTAGLEN+1); } void set_parentctxt(Gedcom_ctxt ctxt) { - ctxt_stack[count_level] = ctxt; + 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) @@ -2588,17 +4282,43 @@ int check_occurrence(int tag) void pop_countarray() { int *count; + gedcom_debug_print("Pop Count level: %d", count_level); if (count_level < 0) { - gedcom_error("Internal error: count array underflow"); + gedcom_error(_("Internal error: count array underflow")); exit(1); } else { count = count_arrays[count_level]; + gedcom_debug_print("free countarray %d", count_level); free(count); count_arrays[count_level] = NULL; } } +void clean_up() +{ + gedcom_debug_print("Cleanup countarrays"); + while (count_level > 0) { + pop_countarray(); + --count_level; + } +} + +void cleanup_concat_buffer() +{ + cleanup_buffer(&concat_buffer); +} + +void cleanup_line_item_buffer() +{ + cleanup_buffer(&line_item_buffer); +} + +void cleanup_usertag_buffer() +{ + cleanup_buffer(&usertag_buffer); +} + /* Enabling debug mode */ /* level 0: no debugging */ /* level 1: only internal */ @@ -2621,47 +4341,15 @@ void gedcom_set_debug_level(int level, FILE* f) } } -int gedcom_debug_print(char* s, ...) +int gedcom_debug_print(const char* s, ...) { - int res; + int res = 0; if (gedcom_high_level_debug) { va_list ap; va_start(ap, s); res = vfprintf(trace_output, s, ap); va_end(ap); + fprintf(trace_output, "\n"); } return(res); } - -/* Setting the error mechanism */ -void gedcom_set_error_handling(Gedcom_err_mech mechanism) -{ - 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) { - gedcom_debug_print("==== Program: %s\n", program); - 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); -} -