Go to the documentation of this file.
   70 # define OSL_DEBUG                 0       // 1 for debug mode, 0 otherwise. 
   72 # define OSL_URI_SCOP              "OpenScop" 
   74 # define OSL_PRECISION_ENV         "OSL_PRECISION" 
   75 # define OSL_PRECISION_ENV_SP      "32" 
   76 # define OSL_PRECISION_ENV_DP      "64" 
   77 # define OSL_PRECISION_ENV_MP      "0" 
   78 # define OSL_PRECISION_SP          32 
   79 # define OSL_PRECISION_DP          64 
   80 # define OSL_PRECISION_MP          0 
   82 # define OSL_FMT_SP                "%4ld" 
   83 # define OSL_FMT_DP                "%4lld" 
   84 # define OSL_FMT_MP                "%4s" 
   85 # define OSL_FMT_LENGTH            4       // Should be the same as FMT_*P. 
   86 # define OSL_FMT_TXT_SP            "%ld" 
   87 # define OSL_FMT_TXT_DP            "%lld" 
   88 # define OSL_FMT_TXT_MP            "%s" 
   91 # define OSL_BACKEND_C             0 
   92 # define OSL_BACKEND_FORTRAN       1 
   93 # define OSL_UNDEFINED             -1 
   94 # define OSL_MAX_STRING            2048 
   95 # define OSL_MIN_STRING            100 
   96 # define OSL_MAX_ARRAYS            128 
   98 # define OSL_TYPE_GENERIC          0 
   99 # define OSL_TYPE_STRING           1 
  100 # define OSL_TYPE_CONTEXT          2 
  101 # define OSL_TYPE_DOMAIN           3 
  102 # define OSL_TYPE_SCATTERING       4 
  103 # define OSL_TYPE_ACCESS           5 
  104 # define OSL_TYPE_READ             6 
  105 # define OSL_TYPE_WRITE            7 
  106 # define OSL_TYPE_MAY_WRITE        8 
  108 # define OSL_FAKE_ARRAY            "fakearray" 
  110 # define OSL_SYMBOL_TYPE_ITERATOR       1 
  111 # define OSL_SYMBOL_TYPE_PARAMETER      2 
  112 # define OSL_SYMBOL_TYPE_ARRAY          3 
  113 # define OSL_SYMBOL_TYPE_FUNCTION       4 
  115 # define OSL_STRING_UNDEFINED      "UNDEFINED" 
  116 # define OSL_STRING_CONTEXT        "CONTEXT" 
  117 # define OSL_STRING_DOMAIN         "DOMAIN" 
  118 # define OSL_STRING_SCATTERING     "SCATTERING" 
  119 # define OSL_STRING_READ           "READ" 
  120 # define OSL_STRING_WRITE          "WRITE" 
  121 # define OSL_STRING_MAY_WRITE      "MAY_WRITE" 
  127 # define OSL_coucou(n)                                                     \ 
  130            fprintf(stderr,"[osl] Coucou %d (%s).\n", i, __func__);         \ 
  133 # define OSL_debug(msg)                                                    \ 
  136              fprintf(stderr,"[osl] Debug: " msg " (%s).\n", __func__);     \ 
  139 # define OSL_info(msg)                                                     \ 
  141            fprintf(stderr,"[osl] Info: " msg " (%s).\n", __func__);        \ 
  144 # define OSL_warning(msg)                                                  \ 
  146            fprintf(stderr,"[osl] Warning: " msg " (%s).\n", __func__);     \ 
  149 # define OSL_error(msg)                                                    \ 
  151            fprintf(stderr,"[osl] Error: " msg " (%s).\n", __func__);       \ 
  155 # define OSL_overflow(msg) OSL_error(msg) 
  157 # define OSL_malloc(ptr, type, size)                                       \ 
  159            if (((ptr) = (type)malloc(size)) == NULL)                       \ 
  160              OSL_error("memory overflow");                                 \ 
  163 # define OSL_realloc(ptr, type, size)                                      \ 
  165            if (((ptr) = (type)realloc(ptr, size)) == NULL)                 \ 
  166              OSL_error("memory overflow");                                 \ 
  169 # define OSL_strdup(destination, source)                                   \ 
  171            if (source != NULL) {                                           \ 
  172              if (((destination) = osl_util_strdup(source)) == NULL)                 \ 
  173                OSL_error("memory overflow");                               \ 
  176              destination = NULL;                                           \ 
  177              OSL_warning("strdup of a NULL string");                       \ 
  181 # define OSL_max(x,y) ((x) > (y)? (x) : (y)) 
  183 # define OSL_min(x,y) ((x) < (y)? (x) : (y))