2 * Copyright 2008-2009 Katholieke Universiteit Leuven
4 * Use of this software is governed by the GNU LGPLv2.1 license
6 * Written by Sven Verdoolaege, K.U.Leuven, Departement
7 * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium
10 #include <isl_ctx_private.h>
12 #include <isl_options_private.h>
14 void isl_handle_error(isl_ctx *ctx, enum isl_error error, const char *msg,
15 const char *file, int line)
20 isl_ctx_set_error(ctx, error);
22 switch (ctx->opt->on_error) {
23 case ISL_ON_ERROR_WARN:
24 fprintf(stderr, "%s:%d: %s\n", file, line, msg);
26 case ISL_ON_ERROR_CONTINUE:
28 case ISL_ON_ERROR_ABORT:
29 fprintf(stderr, "%s:%d: %s\n", file, line, msg);
35 static struct isl_options *find_nested_options(struct isl_args *args,
36 void *opt, struct isl_args *wanted)
39 struct isl_options *options;
44 for (i = 0; args->args[i].type != isl_arg_end; ++i) {
45 if (args->args[i].type != isl_arg_child)
47 options = find_nested_options(args->args[i].u.child.child,
48 *(void **)(((char *)opt) + args->args[i].offset),
57 static struct isl_options *find_nested_isl_options(struct isl_args *args,
60 return find_nested_options(args, opt, &isl_options_args);
63 void *isl_ctx_peek_options(isl_ctx *ctx, struct isl_args *args)
67 if (args == &isl_options_args)
69 return find_nested_options(ctx->user_args, ctx->user_opt, args);
72 isl_ctx *isl_ctx_alloc_with_options(struct isl_args *args, void *user_opt)
74 struct isl_ctx *ctx = NULL;
75 struct isl_options *opt = NULL;
76 int opt_allocated = 0;
81 opt = find_nested_isl_options(args, user_opt);
83 opt = isl_options_new_with_defaults();
89 ctx = isl_calloc_type(NULL, struct isl_ctx);
93 if (isl_hash_table_init(ctx, &ctx->id_table, 0))
96 ctx->stats = isl_calloc_type(ctx, struct isl_stats);
100 ctx->user_args = args;
101 ctx->user_opt = user_opt;
102 ctx->opt_allocated = opt_allocated;
106 isl_int_init(ctx->zero);
107 isl_int_set_si(ctx->zero, 0);
109 isl_int_init(ctx->one);
110 isl_int_set_si(ctx->one, 1);
112 isl_int_init(ctx->two);
113 isl_int_set_si(ctx->two, 2);
115 isl_int_init(ctx->negone);
116 isl_int_set_si(ctx->negone, -1);
118 isl_int_init(ctx->normalize_gcd);
123 ctx->error = isl_error_none;
127 isl_args_free(args, user_opt);
129 isl_options_free(opt);
134 struct isl_ctx *isl_ctx_alloc()
136 struct isl_options *opt;
138 opt = isl_options_new_with_defaults();
140 return isl_ctx_alloc_with_options(&isl_options_args, opt);
143 void isl_ctx_ref(struct isl_ctx *ctx)
148 void isl_ctx_deref(struct isl_ctx *ctx)
150 isl_assert(ctx, ctx->ref > 0, return);
154 void isl_ctx_free(struct isl_ctx *ctx)
159 isl_die(ctx, isl_error_invalid,
160 "isl_ctx freed, but some objects still reference it",
163 isl_hash_table_clear(&ctx->id_table);
164 isl_blk_clear_cache(ctx);
165 isl_int_clear(ctx->zero);
166 isl_int_clear(ctx->one);
167 isl_int_clear(ctx->two);
168 isl_int_clear(ctx->negone);
169 isl_int_clear(ctx->normalize_gcd);
170 isl_args_free(ctx->user_args, ctx->user_opt);
171 if (ctx->opt_allocated)
177 struct isl_options *isl_ctx_options(isl_ctx *ctx)
184 enum isl_error isl_ctx_last_error(isl_ctx *ctx)
189 void isl_ctx_reset_error(isl_ctx *ctx)
191 ctx->error = isl_error_none;
194 void isl_ctx_set_error(isl_ctx *ctx, enum isl_error error)
200 void isl_ctx_abort(isl_ctx *ctx)
206 void isl_ctx_resume(isl_ctx *ctx)
212 int isl_ctx_aborted(isl_ctx *ctx)
214 return ctx ? ctx->abort : -1;
217 int isl_ctx_parse_options(isl_ctx *ctx, int argc, char **argv, unsigned flags)
221 return isl_args_parse(ctx->user_args, argc, argv, ctx->user_opt, flags);