X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gom%2Ffunc_template.h;h=dd17527302192260eff670fe246dad7d325aa514;hb=473f146038f88434e3edd070dfa42390bd0df60f;hp=a21424d1b425b1847d3f2123b556da5a0758671d;hpb=28297bd9b57fa7d8c3600d040cc08e5e73a62c27;p=gedcom-parse.git diff --git a/gom/func_template.h b/gom/func_template.h index a21424d..dd17527 100644 --- a/gom/func_template.h +++ b/gom/func_template.h @@ -29,10 +29,15 @@ #define DESTROYFUNC(STRUCTTYPE) destroy_ ## STRUCTTYPE ## _record #define GETXREFFUNC(STRUCTTYPE) gom_get_ ## STRUCTTYPE ## _by_xref #define CLEANFUNC(STRUCTTYPE) STRUCTTYPE ## _cleanup -#define ADDFUNC(STRUCTTYPE) gom_add_ ## STRUCTTYPE -#define SUB_ADDFUNC(STRUCTTYPE) gom_add_ ## STRUCTTYPE +#define ADDFUNC(STRUCTTYPE) gom_new_ ## STRUCTTYPE +#define SUB_SETFUNC(STRUCTTYPE) gom_set_new_ ## STRUCTTYPE +#define SUB_ADDFUNC(STRUCTTYPE) gom_add_new_ ## STRUCTTYPE +#define UNREFALLFUNC(STRUCTTYPE) STRUCTTYPE ## _unref_all #define DELETEFUNC(STRUCTTYPE) gom_delete_ ## STRUCTTYPE #define SUB_DELETEFUNC(STRUCTTYPE) gom_delete_ ## STRUCTTYPE +#define SUB_FINDFUNC(STRUCTTYPE) find_ ## STRUCTTYPE +#define SUB_REMOVEFUNC(STRUCTTYPE) gom_remove_ ## STRUCTTYPE +#define SUB_MOVEFUNC(STRUCTTYPE) gom_move_ ## STRUCTTYPE #define ADDFUNC2(T1,T2) T1 ## _add_ ## T2 #define ADDFUNC2_TOVAR(T1,T2,F) T1 ## _add_ ## T2 ## _to_ ## F #define ADDFUNC2_NOLIST(T1,T2) ADDFUNC2(T1,T2) @@ -48,6 +53,9 @@ #define DECLARE_CLEANFUNC(STRUCTTYPE) \ void CLEANFUNC(STRUCTTYPE)(struct STRUCTTYPE* obj) +#define DECLARE_UNREFALLFUNC(STRUCTTYPE) \ + void UNREFALLFUNC(STRUCTTYPE)(struct STRUCTTYPE* obj) + #define DECLARE_ADDFUNC2(STRUCTTYPE,T2) \ void ADDFUNC2(STRUCTTYPE,T2)(Gom_ctxt ctxt, struct T2* obj) @@ -93,6 +101,39 @@ (FIRSTVAL)->previous = VAL->previous; \ } +#define MOVE_CHAIN_ELT(STRUCTTYPE, DIR, FIRSTVAL, VAL) \ + { \ + struct STRUCTTYPE *first, *second; \ + if (DIR == MOVE_UP) { \ + first = VAL->previous; \ + second = VAL; \ + } \ + else { \ + first = VAL; \ + second = VAL->next; \ + } \ + if (second && (second != FIRSTVAL)) { \ + if (first != FIRSTVAL) \ + first->previous->next = second; \ + else \ + FIRSTVAL = second; \ + \ + if (second->next) \ + second->next->previous = first; \ + else \ + (FIRSTVAL)->previous = first; \ + \ + first->next = second->next; \ + second->next = first; \ + \ + second->previous = first->previous; \ + first->previous = second; \ + } \ + else { \ + gom_move_error(#STRUCTTYPE); \ + } \ + } + #define MAKE_CHAIN_ELT(STRUCTTYPE, FIRSTVAL, VAL) \ { \ VAL = (struct STRUCTTYPE*) malloc(sizeof(struct STRUCTTYPE)); \ @@ -145,7 +186,7 @@ } #define DEFINE_DESTROYFUNC(STRUCTTYPE,FIRSTVAL) \ - void CLEANFUNC(STRUCTTYPE)(struct STRUCTTYPE* obj); \ + DECLARE_CLEANFUNC(STRUCTTYPE); \ void DESTROYFUNC(STRUCTTYPE)(struct STRUCTTYPE* obj) { \ if (obj) { \ CLEANFUNC(STRUCTTYPE)(obj); \ @@ -184,8 +225,8 @@ return obj; \ } -#define DEFINE_SUB_ADDFUNC(STRUCTTYPE) \ - struct STRUCTTYPE *SUB_ADDFUNC(STRUCTTYPE)(struct STRUCTTYPE** addto) \ +#define DEFINE_SUB_SETFUNC(STRUCTTYPE) \ + struct STRUCTTYPE *SUB_SETFUNC(STRUCTTYPE)(struct STRUCTTYPE** addto) \ { \ struct STRUCTTYPE *obj = NULL; \ if (addto && ! *addto) { \ @@ -195,15 +236,27 @@ return obj; \ } -/* TODO: Check whether there are still xrefs linked in */ +#define DEFINE_SUB_ADDFUNC(STRUCTTYPE) \ + struct STRUCTTYPE *SUB_ADDFUNC(STRUCTTYPE)(struct STRUCTTYPE** addto) \ + { \ + struct STRUCTTYPE *obj = NULL; \ + if (addto) { \ + MAKE_CHAIN_ELT(STRUCTTYPE, *addto, obj); \ + } \ + return obj; \ + } + #define DEFINE_DELETEFUNC(STRUCTTYPE) \ + DECLARE_UNREFALLFUNC(STRUCTTYPE); \ int DELETEFUNC(STRUCTTYPE)(struct STRUCTTYPE* obj) \ { \ int result = 1; \ if (obj) { \ result = gedcom_delete_xref(obj->xrefstr); \ - if (result == 0) \ + if (result == 0) { \ + UNREFALLFUNC(STRUCTTYPE)(obj); \ DESTROYFUNC(STRUCTTYPE)(obj); \ + } \ } \ return result; \ } @@ -213,6 +266,7 @@ { \ int result = 1; \ if (obj && *obj) { \ + UNREFALLFUNC(STRUCTTYPE)(*obj); \ CLEANFUNC(STRUCTTYPE)(*obj); \ SAFE_FREE(*obj); \ result = 0; \ @@ -220,6 +274,55 @@ return result; \ } +#define DEFINE_SUB_FINDFUNC(STRUCTTYPE) \ + struct STRUCTTYPE* SUB_FINDFUNC(STRUCTTYPE)(struct STRUCTTYPE** data, \ + struct STRUCTTYPE* obj) \ + { \ + struct STRUCTTYPE* result = NULL; \ + struct STRUCTTYPE* runner; \ + for (runner = *data ; runner ; runner = runner->next) { \ + if (runner == obj) { \ + result = runner; \ + break; \ + } \ + } \ + if (! result) \ + gom_find_error(#STRUCTTYPE); \ + return result; \ + } + +#define DEFINE_SUB_REMOVEFUNC(STRUCTTYPE) \ + int SUB_REMOVEFUNC(STRUCTTYPE) (struct STRUCTTYPE** data, \ + struct STRUCTTYPE* obj) \ + { \ + int result = 1; \ + if (data && obj) { \ + struct STRUCTTYPE* toremove = SUB_FINDFUNC(STRUCTTYPE)(data, obj); \ + if (toremove) { \ + UNLINK_CHAIN_ELT(STRUCTTYPE, *data, toremove); \ + CLEANFUNC(STRUCTTYPE)(toremove); \ + SAFE_FREE(toremove); \ + result = 0; \ + } \ + } \ + return result; \ + } + +#define DEFINE_SUB_MOVEFUNC(STRUCTTYPE) \ + int SUB_MOVEFUNC(STRUCTTYPE)(Gom_direction dir, struct STRUCTTYPE** data, \ + struct STRUCTTYPE* obj) \ + { \ + int result = 1; \ + if (data && obj) { \ + struct STRUCTTYPE* tomove = SUB_FINDFUNC(STRUCTTYPE)(data, obj); \ + if (tomove) { \ + MOVE_CHAIN_ELT(STRUCTTYPE, dir, *data, tomove); \ + result = 0; \ + } \ + } \ + return result; \ + } + #define DEFINE_ADDFUNC2(STRUCTTYPE,T2,FIELD) \ void ADDFUNC2(STRUCTTYPE,T2)(Gom_ctxt ctxt, struct T2* addobj) \ { \ @@ -335,7 +438,7 @@ void ADDFUNC2_STRN(STRUCTTYPE,FIELD)(Gom_ctxt ctxt, const char *str) \ else \ obj->FIELD = newvalue; \ } \ - destroy_gom_ctxt(ctxt); \ + def_elt_end(elt, parent, self, parsed_value); \ } \ } @@ -355,7 +458,7 @@ void ADDFUNC2_STRN(STRUCTTYPE,FIELD)(Gom_ctxt ctxt, const char *str) \ else \ obj->FIELD = newvalue; \ } \ - destroy_gom_ctxt(ctxt); \ + def_rec_end(rec, self, parsed_value); \ } \ }