forked from OSchip/llvm-project
40 lines
842 B
C
40 lines
842 B
C
|
#define xCAT(A,B) A ## B
|
||
|
|
#define CAT(A,B) xCAT(A,B)
|
||
|
|
#undef TYPE
|
||
|
|
#define TYPE CAT(isl_,BASE)
|
||
|
|
#define xFN(TYPE,NAME) TYPE ## _ ## NAME
|
||
|
|
#define FN(TYPE,NAME) xFN(TYPE,NAME)
|
||
|
|
|
||
|
|
void FN(TYPE,dump)(__isl_keep TYPE *obj)
|
||
|
|
{
|
||
|
|
isl_printer *p;
|
||
|
|
|
||
|
|
if (!obj)
|
||
|
|
return;
|
||
|
|
|
||
|
|
p = isl_printer_to_file(FN(TYPE,get_ctx)(obj), stderr);
|
||
|
|
p = isl_printer_set_yaml_style(p, ISL_YAML_STYLE_BLOCK);
|
||
|
|
p = FN(isl_printer_print,BASE)(p, obj);
|
||
|
|
isl_printer_free(p);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Return a string representation of "obj".
|
||
|
|
* Print the object in flow format.
|
||
|
|
*/
|
||
|
|
__isl_give char *FN(TYPE,to_str)(__isl_keep TYPE *obj)
|
||
|
|
{
|
||
|
|
isl_printer *p;
|
||
|
|
char *s;
|
||
|
|
|
||
|
|
if (!obj)
|
||
|
|
return NULL;
|
||
|
|
|
||
|
|
p = isl_printer_to_str(FN(TYPE,get_ctx)(obj));
|
||
|
|
p = isl_printer_set_yaml_style(p, ISL_YAML_STYLE_FLOW);
|
||
|
|
p = FN(isl_printer_print,BASE)(p, obj);
|
||
|
|
s = isl_printer_get_str(p);
|
||
|
|
isl_printer_free(p);
|
||
|
|
|
||
|
|
return s;
|
||
|
|
}
|