isl_options.c

   1 /*
   2  * Copyright 2008-2009 Katholieke Universiteit Leuven
   3  *
   4  * Use of this software is governed by the GNU LGPLv2.1 license
   5  *
   6  * Written by Sven Verdoolaege, K.U.Leuven, Departement
   7  * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium
   8  */
   9
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12 #include <string.h>
  13
  14 #include <isl/ctx.h>
  15 #include <isl_options_private.h>
  16 #include <isl/version.h>
  17
  18 struct isl_arg_choice isl_lp_solver_choice[] = {
  19         {"tab",         ISL_LP_TAB},
  20 #ifdef ISL_PIPLIB
  21         {"pip",         ISL_LP_PIP},
  22 #endif
  23         {0}
  24 };
  25
  26 struct isl_arg_choice isl_ilp_solver_choice[] = {
  27         {"gbr",         ISL_ILP_GBR},
  28 #ifdef ISL_PIPLIB
  29         {"pip",         ISL_ILP_PIP},
  30 #endif
  31         {0}
  32 };
  33
  34 struct isl_arg_choice isl_pip_solver_choice[] = {
  35         {"tab",         ISL_PIP_TAB},
  36 #ifdef ISL_PIPLIB
  37         {"pip",         ISL_PIP_PIP},
  38 #endif
  39         {0}
  40 };
  41
  42 struct isl_arg_choice isl_pip_context_choice[] = {
  43         {"gbr",         ISL_CONTEXT_GBR},
  44         {"lexmin",      ISL_CONTEXT_LEXMIN},
  45         {0}
  46 };
  47
  48 struct isl_arg_choice isl_gbr_choice[] = {
  49         {"never",       ISL_GBR_NEVER},
  50         {"once",        ISL_GBR_ONCE},
  51         {"always",      ISL_GBR_ALWAYS},
  52         {0}
  53 };
  54
  55 struct isl_arg_choice isl_closure_choice[] = {
  56         {"isl",         ISL_CLOSURE_ISL},
  57         {"box",         ISL_CLOSURE_BOX},
  58         {0}
  59 };
  60
  61 static struct isl_arg_choice bound[] = {
  62         {"bernstein",   ISL_BOUND_BERNSTEIN},
  63         {"range",       ISL_BOUND_RANGE},
  64         {0}
  65 };
  66
  67 static struct isl_arg_choice on_error[] = {
  68         {"warn",        ISL_ON_ERROR_WARN},
  69         {"continue",    ISL_ON_ERROR_CONTINUE},
  70         {"abort",       ISL_ON_ERROR_ABORT},
  71         {0}
  72 };
  73
  74 static struct isl_arg_flags bernstein_recurse[] = {
  75         {"none",        ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS, 0},
  76         {"factors",     ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS,
  77                         ISL_BERNSTEIN_FACTORS},
  78         {"intervals",   ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS,
  79                         ISL_BERNSTEIN_INTERVALS},
  80         {"full",        ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS,
  81                         ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS},
  82         {0}
  83 };
  84
  85 static struct isl_arg_choice convex[] = {
  86         {"wrap",        ISL_CONVEX_HULL_WRAP},
  87         {"fm",          ISL_CONVEX_HULL_FM},
  88         {0}
  89 };
  90
  91 static void print_version(void)
  92 {
  93         printf("%s", isl_version());
  94 }
  95
  96 ISL_ARGS_START(struct isl_options, isl_options_args)
  97 ISL_ARG_CHOICE(struct isl_options, lp_solver, 0, "lp-solver", \
  98         isl_lp_solver_choice,   ISL_LP_TAB, "lp solver to use")
  99 ISL_ARG_CHOICE(struct isl_options, ilp_solver, 0, "ilp-solver", \
 100         isl_ilp_solver_choice,  ISL_ILP_GBR, "ilp solver to use")
 101 ISL_ARG_CHOICE(struct isl_options, pip, 0, "pip", \
 102         isl_pip_solver_choice,  ISL_PIP_TAB, "pip solver to use")
 103 ISL_ARG_CHOICE(struct isl_options, context, 0, "context", \
 104         isl_pip_context_choice, ISL_CONTEXT_GBR,
 105         "how to handle the pip context tableau")
 106 ISL_ARG_CHOICE(struct isl_options, gbr, 0, "gbr", \
 107         isl_gbr_choice, ISL_GBR_ONCE,
 108         "how often to use generalized basis reduction")
 109 ISL_ARG_CHOICE(struct isl_options, closure, 0, "closure", \
 110         isl_closure_choice,     ISL_CLOSURE_ISL,
 111         "closure operation to use")
 112 ISL_ARG_BOOL(struct isl_options, gbr_only_first, 0, "gbr-only-first", 0,
 113         "only perform basis reduction in first direction")
 114 ISL_ARG_CHOICE(struct isl_options, bound, 0, "bound", bound,
 115         ISL_BOUND_BERNSTEIN, "algorithm to use for computing bounds")
 116 ISL_ARG_CHOICE(struct isl_options, on_error, 0, "on-error", on_error,
 117         ISL_ON_ERROR_WARN, "how to react if an error is detected")
 118 ISL_ARG_FLAGS(struct isl_options, bernstein_recurse, 0,
 119         "bernstein-recurse", bernstein_recurse, ISL_BERNSTEIN_FACTORS, NULL)
 120 ISL_ARG_BOOL(struct isl_options, bernstein_triangulate, 0,
 121         "bernstein-triangulate", 1,
 122         "triangulate domains during Bernstein expansion")
 123 ISL_ARG_BOOL(struct isl_options, pip_symmetry, 0, "pip-symmetry", 1,
 124         "detect simple symmetries in PIP input")
 125 ISL_ARG_CHOICE(struct isl_options, convex, 0, "convex-hull", \
 126         convex, ISL_CONVEX_HULL_WRAP, "convex hull algorithm to use")
 127 ISL_ARG_BOOL(struct isl_options, schedule_parametric, 0,
 128         "schedule-parametric", 1, "construct possibly parametric schedules")
 129 ISL_ARG_BOOL(struct isl_options, schedule_outer_zero_distance, 0,
 130         "schedule-outer-zero-distance", 0,
 131         "try to construct schedules with outer zero distances over "
 132         "proximity dependences")
 133 ISL_ARG_BOOL(struct isl_options, schedule_maximize_band_depth, 0,
 134         "schedule-maximize-band-depth", 0,
 135         "maximize the number of scheduling dimensions in a band")
 136 ISL_ARG_BOOL(struct isl_options, schedule_split_parallel, 0,
 137         "schedule-split-parallel", 1,
 138         "split non-tilable bands with parallel schedules")
 139 ISL_ARG_VERSION(print_version)
 140 ISL_ARGS_END
 141
 142 ISL_ARG_DEF(isl_options, struct isl_options, isl_options_args)
 143
 144 ISL_ARG_CTX_DEF(isl_options, struct isl_options, isl_options_args)
 145
 146 ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, bound)
 147 ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, bound)
 148
 149 ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args,
 150         on_error)
 151 ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args,
 152         on_error)
 153
 154 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 155         gbr_only_first)
 156 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 157         gbr_only_first)
 158
 159 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 160         schedule_maximize_band_depth)
 161 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 162         schedule_maximize_band_depth)
 163
 164 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 165         schedule_split_parallel)
 166 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 167         schedule_split_parallel)
 168
 169 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 170         schedule_outer_zero_distance)
 171 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 172         schedule_outer_zero_distance)