Blame isl-0.14/print_templ.c
|
Packit |
fb9d21 |
#define xCAT(A,B) A ## B
|
|
Packit |
fb9d21 |
#define CAT(A,B) xCAT(A,B)
|
|
Packit |
fb9d21 |
#undef TYPE
|
|
Packit |
fb9d21 |
#define TYPE CAT(isl_,BASE)
|
|
Packit |
fb9d21 |
#define xFN(TYPE,NAME) TYPE ## _ ## NAME
|
|
Packit |
fb9d21 |
#define FN(TYPE,NAME) xFN(TYPE,NAME)
|
|
Packit |
fb9d21 |
|
|
Packit |
fb9d21 |
void FN(TYPE,dump)(__isl_keep TYPE *obj)
|
|
Packit |
fb9d21 |
{
|
|
Packit |
fb9d21 |
isl_printer *p;
|
|
Packit |
fb9d21 |
|
|
Packit |
fb9d21 |
if (!obj)
|
|
Packit |
fb9d21 |
return;
|
|
Packit |
fb9d21 |
p = isl_printer_to_file(FN(TYPE,get_ctx)(obj), stderr);
|
|
Packit |
fb9d21 |
p = FN(isl_printer_print,BASE)(p, obj);
|
|
Packit |
fb9d21 |
p = isl_printer_end_line(p);
|
|
Packit |
fb9d21 |
isl_printer_free(p);
|
|
Packit |
fb9d21 |
}
|
|
Packit |
fb9d21 |
|
|
Packit |
fb9d21 |
__isl_give char *FN(TYPE,to_str)(__isl_keep TYPE *obj)
|
|
Packit |
fb9d21 |
{
|
|
Packit |
fb9d21 |
isl_printer *p;
|
|
Packit |
fb9d21 |
char *s;
|
|
Packit |
fb9d21 |
|
|
Packit |
fb9d21 |
if (!obj)
|
|
Packit |
fb9d21 |
return NULL;
|
|
Packit |
fb9d21 |
p = isl_printer_to_str(FN(TYPE,get_ctx)(obj));
|
|
Packit |
fb9d21 |
p = FN(isl_printer_print,BASE)(p, obj);
|
|
Packit |
fb9d21 |
s = isl_printer_get_str(p);
|
|
Packit |
fb9d21 |
isl_printer_free(p);
|
|
Packit |
fb9d21 |
|
|
Packit |
fb9d21 |
return s;
|
|
Packit |
fb9d21 |
}
|