-void gom_default_callback (Gedcom_elt elt, Gedcom_ctxt parent, int level, char* tag,
- char* raw_value, int parsed_tag);
+void gom_default_callback (Gedcom_elt elt, Gedcom_ctxt parent, int level,
+ char* tag, char* raw_value, int parsed_tag);
return gedcom_parse_file(file_name);
}
Gom_ctxt make_gom_ctxt(int ctxt_type, OBJ_TYPE obj_type, void *ctxt_ptr)
{
Gom_ctxt ctxt = (Gom_ctxt)malloc(sizeof(struct Gom_ctxt_struct));
return gedcom_parse_file(file_name);
}
Gom_ctxt make_gom_ctxt(int ctxt_type, OBJ_TYPE obj_type, void *ctxt_ptr)
{
Gom_ctxt ctxt = (Gom_ctxt)malloc(sizeof(struct Gom_ctxt_struct));
- ctxt->ctxt_type = ctxt_type;
- ctxt->obj_type = obj_type;
- ctxt->ctxt_ptr = ctxt_ptr;
+ if (! ctxt)
+ MEMORY_ERROR;
+ else {
+ ctxt->ctxt_type = ctxt_type;
+ ctxt->obj_type = obj_type;
+ ctxt->ctxt_ptr = ctxt_ptr;
+ }
}
void gom_cast_error(char* file, int line, OBJ_TYPE expected, OBJ_TYPE found)
}
void gom_cast_error(char* file, int line, OBJ_TYPE expected, OBJ_TYPE found)
void gom_unexpected_context(char* file, int line, OBJ_TYPE found)
{
gedcom_warning(_("Internal error: Unexpected context at %s, line %d: %d"),
void gom_unexpected_context(char* file, int line, OBJ_TYPE found)
{
gedcom_warning(_("Internal error: Unexpected context at %s, line %d: %d"),