- struct event *evt = NULL;
-
- if (ctxt) {
- evt = (struct event *)malloc(sizeof(struct event));
- memset (evt, 0, sizeof(struct event));
- evt->event = parsed_tag;
- evt->event_name = strdup(tag);
- if (GEDCOM_IS_STRING(parsed_value))
- evt->val = strdup(GEDCOM_STRING(parsed_value));
-
- switch (ctxt->ctxt_type) {
- case REC_FAM:
- family_add_event(ctxt, evt); break;
- case REC_INDI:
- individual_add_event(ctxt, evt); break;
- default:
- UNEXPECTED_CONTEXT(ctxt->ctxt_type);
+ Gom_ctxt result = NULL;
+
+ if (! ctxt)
+ NO_CONTEXT;
+ else {
+ struct event *evt = (struct event *)malloc(sizeof(struct event));
+ if (! evt)
+ MEMORY_ERROR;
+ else {
+ memset (evt, 0, sizeof(struct event));
+ evt->event = parsed_tag;
+ evt->event_name = strdup(tag);
+ if (! evt->event_name) {
+ MEMORY_ERROR;
+ free(evt);
+ }
+ else {
+ int err = 0;
+ if (GEDCOM_IS_STRING(parsed_value)) {
+ evt->val = strdup(GEDCOM_STRING(parsed_value));
+ if (! evt->val) {
+ MEMORY_ERROR;
+ free(evt->event_name);
+ free(evt);
+ err = 1;
+ }
+ }
+
+ if (! err) {
+ switch (ctxt->ctxt_type) {
+ case REC_FAM:
+ family_add_event(ctxt, evt); break;
+ case REC_INDI:
+ individual_add_event(ctxt, evt); break;
+ default:
+ UNEXPECTED_CONTEXT(ctxt->ctxt_type);
+ }
+ result = MAKE_GOM_CTXT(elt, event, evt);
+ }
+ }