#include <stdlib.h>
#include <string.h>
#include <libintl.h>
+#include <time.h>
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
OBJ_TYPE expected, OBJ_TYPE found);
void gom_no_context(const char* file, int line);
void gom_unexpected_context(const char* file, int line, OBJ_TYPE found);
+void gom_xref_already_in_use(const char *xrefstr);
+void gom_move_error(const char* type);
+void unref_xref_value(struct xref_value *xref);
int gom_write_xref_list(Gedcom_write_hndl hndl,
Gedcom_elt elt, int tag, int parent_rec_or_elt,
Gedcom_ctxt self, Gedcom_val parsed_value);
void set_xref_type(struct xref_value *xr, const char* str);
-struct date_value* dup_date(struct date_value dv);
-struct age_value* dup_age(struct age_value age);
-
-/* Doubly-linked list, but last rec->next is NULL (doesn't go to first rec) */
-#define LINK_CHAIN_ELT(STRUCTTYPE, FIRSTVAL, VAL) \
- { \
- struct STRUCTTYPE *_local_obj = VAL; \
- if (! FIRSTVAL) { \
- VAL->next = NULL; \
- VAL->previous = _local_obj; \
- FIRSTVAL = VAL; \
- } \
- else { \
- VAL->next = NULL; \
- FIRSTVAL->previous->next = VAL; \
- VAL->previous = FIRSTVAL->previous; \
- FIRSTVAL->previous = VAL; \
- } \
- }
-
-#define MAKE_CHAIN_ELT(STRUCTTYPE, FIRSTVAL, VAL) \
- { \
- VAL = (struct STRUCTTYPE*) malloc(sizeof(struct STRUCTTYPE)); \
- if (! VAL) \
- MEMORY_ERROR; \
- else { \
- memset (VAL, 0, sizeof(struct STRUCTTYPE)); \
- LINK_CHAIN_ELT(STRUCTTYPE, FIRSTVAL, VAL) \
- } \
- }
+int update_date(struct date_value** dv, struct tm* tm_ptr);
+int update_time(char** tv, struct tm* tm_ptr);
void NULL_DESTROY(void* anything);
-#define DESTROY_CHAIN_ELTS(STRUCTTYPE, FIRSTVAL, DESTROYFUNC) \
- { \
- if (FIRSTVAL) { \
- struct STRUCTTYPE *runner, *next; \
- runner = FIRSTVAL; \
- while (runner) { \
- next = runner->next; \
- DESTROYFUNC(runner); \
- SAFE_FREE(runner); \
- runner = next; \
- } \
- } \
- }
-
-#define _REC_PARAMS_ Gedcom_rec rec UNUSED, int level UNUSED, \
- Gedcom_val xref UNUSED, char *tag UNUSED, \
- char *raw_value UNUSED, int parsed_tag UNUSED, \
- Gedcom_val parsed_value UNUSED
-
-#define _REC_END_PARAMS_ Gedcom_rec rec UNUSED, Gedcom_ctxt self UNUSED, \
- Gedcom_val parsed_value UNUSED
-
-#define _ELT_PARAMS_ Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED, \
- int level UNUSED, char *tag UNUSED, \
- char *raw_value UNUSED, int parsed_tag UNUSED, \
- Gedcom_val parsed_value UNUSED
-
-#define _ELT_END_PARAMS_ Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED, \
- Gedcom_ctxt self UNUSED, \
- Gedcom_val parsed_value UNUSED
-
-#define REC_CB(STRUCTTYPE,CB_NAME,FUNC) \
- Gedcom_ctxt CB_NAME(_REC_PARAMS_) \
- { \
- struct xref_value* xr = GEDCOM_XREF_PTR(xref); \
- if (! xr->object) \
- xr->object = (Gedcom_ctxt) FUNC(xr->string); \
- if (xr->object) \
- return (Gedcom_ctxt) MAKE_GOM_CTXT(rec, STRUCTTYPE, xr->object); \
- else \
- return NULL; \
- }
-
-#define GET_REC_BY_XREF(STRUCTTYPE,XREF_TYPE,FUNC_NAME) \
- struct STRUCTTYPE *FUNC_NAME(const char *xrefstr) \
- { \
- struct xref_value* xr = gedcom_get_by_xref(xrefstr); \
- if (xr && (xr->type == XREF_TYPE) && xr->object) \
- return (struct STRUCTTYPE*)(xr->object); \
- else \
- return NULL; \
- }
-
-#define STRING_CB(STRUCTTYPE,CB_NAME,FIELD) \
- Gedcom_ctxt CB_NAME(_ELT_PARAMS_) \
- { \
- Gom_ctxt result = NULL; \
- if (! parent) \
- NO_CONTEXT; \
- else { \
- struct STRUCTTYPE *obj \
- = SAFE_CTXT_CAST(STRUCTTYPE, (Gom_ctxt)parent); \
- if (obj) { \
- char *str = GEDCOM_STRING(parsed_value); \
- obj->FIELD = strdup(str); \
- if (! obj->FIELD) \
- MEMORY_ERROR; \
- else \
- result = MAKE_GOM_CTXT(elt, STRUCTTYPE, obj); \
- } \
- } \
- return (Gedcom_ctxt)result; \
- }
-
-#define STRING_END_CB(STRUCTTYPE,CB_NAME,FIELD) \
- void CB_NAME(_ELT_END_PARAMS_) \
- { \
- Gom_ctxt ctxt = (Gom_ctxt)self; \
- if (! ctxt) \
- NO_CONTEXT; \
- else { \
- struct STRUCTTYPE *obj = SAFE_CTXT_CAST(STRUCTTYPE, ctxt); \
- if (obj) { \
- char *str = GEDCOM_STRING(parsed_value); \
- char *newvalue = strdup(str); \
- if (! newvalue) \
- MEMORY_ERROR; \
- else \
- obj->FIELD = newvalue; \
- } \
- destroy_gom_ctxt(ctxt); \
- } \
- }
-
-#define STRING_END_REC_CB(STRUCTTYPE,CB_NAME,FIELD) \
- void CB_NAME(_REC_END_PARAMS_) \
- { \
- Gom_ctxt ctxt = (Gom_ctxt)self; \
- if (! ctxt) \
- NO_CONTEXT; \
- else { \
- struct STRUCTTYPE *obj = SAFE_CTXT_CAST(STRUCTTYPE, ctxt); \
- if (obj) { \
- char *str = GEDCOM_STRING(parsed_value); \
- char *newvalue = strdup(str); \
- if (! newvalue) \
- MEMORY_ERROR; \
- else \
- obj->FIELD = newvalue; \
- } \
- destroy_gom_ctxt(ctxt); \
- } \
- }
-
-#define DATE_CB(STRUCTTYPE,CB_NAME,FIELD) \
- Gedcom_ctxt CB_NAME(_ELT_PARAMS_) \
- { \
- Gom_ctxt result = NULL; \
- if (! parent) \
- NO_CONTEXT; \
- else { \
- struct STRUCTTYPE *obj \
- = SAFE_CTXT_CAST(STRUCTTYPE, (Gom_ctxt)parent); \
- if (obj) { \
- struct date_value dv = GEDCOM_DATE(parsed_value); \
- obj->FIELD = dup_date(dv); \
- if (! obj->FIELD) \
- MEMORY_ERROR; \
- else \
- result = MAKE_GOM_CTXT(elt, STRUCTTYPE, obj); \
- } \
- } \
- return (Gedcom_ctxt)result; \
- }
-
-#define AGE_CB(STRUCTTYPE,CB_NAME,FIELD) \
- Gedcom_ctxt CB_NAME(_ELT_PARAMS_) \
- { \
- Gom_ctxt result = NULL; \
- if (! parent) \
- NO_CONTEXT; \
- else { \
- struct STRUCTTYPE *obj \
- = SAFE_CTXT_CAST(STRUCTTYPE, (Gom_ctxt)parent); \
- if (obj) { \
- struct age_value age = GEDCOM_AGE(parsed_value); \
- obj->FIELD = dup_age(age); \
- if (! obj->FIELD) \
- MEMORY_ERROR; \
- else \
- result = MAKE_GOM_CTXT(elt, STRUCTTYPE, obj); \
- } \
- } \
- return (Gedcom_ctxt)result; \
- }
-
-#define XREF_CB(STRUCTTYPE,CB_NAME,FIELD,FUNC) \
- Gedcom_ctxt CB_NAME(_ELT_PARAMS_) \
- { \
- Gom_ctxt result = NULL; \
- if (! parent) \
- NO_CONTEXT; \
- else { \
- struct STRUCTTYPE *obj \
- = SAFE_CTXT_CAST(STRUCTTYPE, (Gom_ctxt)parent); \
- struct xref_value *xr = GEDCOM_XREF_PTR(parsed_value); \
- if (! xr->object) \
- xr->object = (Gedcom_ctxt) FUNC(xr->string); \
- if (obj) { \
- obj->FIELD = xr; \
- result = MAKE_GOM_CTXT(elt, STRUCTTYPE, obj); \
- } \
- } \
- return (Gedcom_ctxt)result; \
- }
-
-#define XREF_LIST_CB(STRUCTTYPE,CB_NAME,FIELD,FUNC) \
- Gedcom_ctxt CB_NAME(_ELT_PARAMS_) \
- { \
- Gom_ctxt result = NULL; \
- if (! parent) \
- NO_CONTEXT; \
- else { \
- struct STRUCTTYPE *obj \
- = SAFE_CTXT_CAST(STRUCTTYPE, (Gom_ctxt)parent); \
- struct xref_value *xr = GEDCOM_XREF_PTR(parsed_value); \
- struct xref_list *xrl; \
- if (! xr->object) \
- xr->object = (Gedcom_ctxt) FUNC(xr->string); \
- if (obj) { \
- MAKE_CHAIN_ELT(xref_list, obj->FIELD, xrl); \
- if (xrl) { \
- xrl->xref = xr; \
- result = MAKE_GOM_CTXT(elt, STRUCTTYPE, obj); \
- } \
- } \
- } \
- return (Gedcom_ctxt)result; \
- }
-
-#define NULL_CB(STRUCTTYPE,CB_NAME) \
- Gedcom_ctxt CB_NAME(_ELT_PARAMS_) \
- { \
- Gom_ctxt result = NULL; \
- if (! parent) \
- NO_CONTEXT; \
- else { \
- struct STRUCTTYPE *obj \
- = SAFE_CTXT_CAST(STRUCTTYPE, (Gom_ctxt)parent); \
- if (obj) \
- result = MAKE_GOM_CTXT(elt, STRUCTTYPE, obj); \
- } \
- return (Gedcom_ctxt)result; \
- }
+#include "func_template.h"
+DECLARE_UNREFALLFUNC(xref_list);
+DECLARE_CLEANFUNC(xref_list);
+
#endif /* __GOM_INTERNAL_H */