00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038 #ifndef SCOPLIB_MACROS_H
00039 # define SCOPLIB_MACROS_H
00040
00041
00042 # if defined(SCOPLIB_INT_T_IS_LONGLONG)
00043 # define SCOPLIB_FMT "%4lld"
00044 # define SCOPLIB_FMT_TXT "%lld"
00045 # define scoplib_int_t long long
00046
00047 # elif defined(SCOPLIB_INT_T_IS_LONG)
00048 # define SCOPLIB_FMT "%4ld"
00049 # define SCOPLIB_FMT_TXT "%ld"
00050 # define scoplib_int_t long int
00051
00052 # elif defined(SCOPLIB_INT_T_IS_MP)
00053 #include <gmp.h>
00054 # define SCOPLIB_FMT "%4s"
00055 # define SCOPLIB_FMT_TXT "%s"
00056 # define scoplib_int_t mpz_t
00057
00058 # else
00059 # error Define SCOPLIB_INT_T_IS_xxx to use this file.
00060
00061 # endif
00062
00063 # define SCOPLIB_DEBUG 0
00064
00065 # define SCOPLIB_MAX_STRING 2048
00066 # define SCOPLIB_TYPE_ITERATOR 1
00067 # define SCOPLIB_TYPE_PARAMETER 2
00068 # define SCOPLIB_TYPE_ARRAY 3
00069 # define SCOPLIB_TYPE_FUNCTION 4
00070 # define SCOPLIB_TYPE_DOMAIN 6
00071 # define SCOPLIB_TYPE_SCATTERING 7
00072 # define SCOPLIB_TYPE_ACCESS 8
00073 # define SCOPLIB_TYPE_UNKNOWN 9
00074 # define SCOPLIB_FAKE_ARRAY "fakearray"
00075
00076 # define SCOPLIB_SCOP_PRINT_CASTLE 1
00077 # define SCOPLIB_SCOP_PRINT_ARRAYSTAG 2
00078
00079
00080
00081
00082
00083 # ifdef SCOPLIB_INT_T_IS_MP
00084
00085 # define SCOPVAL_init(val) (mpz_init((val)))
00086 # define SCOPVAL_assign(v1,v2) (mpz_set((v1),(v2)))
00087 # define SCOPVAL_set_si(val,i) (mpz_set_si((val),(i)))
00088 # define SCOPVAL_get_si(val) (mpz_get_si((val)))
00089 # define SCOPVAL_init_set_si(val,i) (mpz_init_set_si((val),(i)))
00090 # define SCOPVAL_clear(val) (mpz_clear((val)))
00091 # define SCOPVAL_print(Dst,fmt,val) { char *str; \
00092 str = mpz_get_str(0,10,(val)); \
00093 fprintf((Dst),(fmt),str); free(str); \
00094 }
00095 # define SCOPVAL_sprint(Dst,fmt,val) { char * str; \
00096 str = mpz_get_str(0,10,(val)); \
00097 sprintf((Dst),(fmt),str); free(str); \
00098 }
00099
00100
00101 # define SCOPVAL_eq(v1,v2) (mpz_cmp((v1),(v2)) == 0)
00102 # define SCOPVAL_ne(v1,v2) (mpz_cmp((v1),(v2)) != 0)
00103
00104
00105 # define SCOPVAL_increment(ref,val) (mpz_add_ui((ref),(val),1))
00106 # define SCOPVAL_addto(ref,val1,val2) (mpz_add((ref),(val1),(val2)))
00107 # define SCOPVAL_add_int(ref,val,vint) (mpz_add_ui((ref),(val),(long)(vint)))
00108 # define SCOPVAL_subtract(ref,val1,val2) (mpz_sub((ref),(val1),(val2)))
00109 # define SCOPVAL_oppose(ref,val) (mpz_neg((ref),(val)))
00110
00111
00112 # define SCOPVAL_pos_p(val) (mpz_sgn(val) > 0)
00113 # define SCOPVAL_neg_p(val) (mpz_sgn(val) < 0)
00114 # define SCOPVAL_zero_p(val) (mpz_sgn(val) == 0)
00115 # define SCOPVAL_notzero_p(val) (mpz_sgn(val) != 0)
00116 # define SCOPVAL_one_p(val) (mpz_cmp_si(val,1) == 0)
00117 # define SCOPVAL_mone_p(val) (mpz_cmp_si(val,-1) == 0)
00118
00119
00120
00121
00122 # else
00123
00124 # define SCOPVAL_init(val) ((val) = 0)
00125 # define SCOPVAL_assign(v1,v2) ((v1) = (v2))
00126 # define SCOPVAL_set_si(val,i) ((val) = (scoplib_int_t)(i))
00127 # define SCOPVAL_get_si(val) ((val))
00128 # define SCOPVAL_init_set_si(val,i) ((val) = (scoplib_int_t)(i))
00129 # define SCOPVAL_clear(val) ((val) = 0)
00130 # define SCOPVAL_print(Dst,fmt,val) (fprintf((Dst),(fmt),(val)))
00131 # define SCOPVAL_sprint(Dst,fmt,val) (sprintf((Dst),(fmt),(val)))
00132
00133
00134 # define SCOPVAL_eq(v1,v2) ((v1)==(v2))
00135 # define SCOPVAL_ne(v1,v2) ((v1)!=(v2))
00136 # define SCOPVAL_lt(v1,v2) ((v1)<(v2))
00137 # define SCOPVAL_gt(v1,v2) ((v1)>(v2))
00138
00139
00140 # define SCOPVAL_increment(ref,val) ((ref) = (val)+(scoplib_int_t)(1))
00141 # define SCOPVAL_addto(ref,val1,val2) ((ref) = (val1)+(val2))
00142 # define SCOPVAL_add_int(ref,val,vint) ((ref) = (val)+(scoplib_int_t)(vint))
00143 # define SCOPVAL_subtract(ref,val1,val2) ((ref) = (val1)-(val2))
00144 # define SCOPVAL_oppose(ref,val) ((ref) = (-(val)))
00145
00146
00147 # define SCOPVAL_pos_p(val) SCOPVAL_gt(val,0)
00148 # define SCOPVAL_neg_p(val) SCOPVAL_lt(val,0)
00149 # define SCOPVAL_zero_p(val) SCOPVAL_eq(val,0)
00150 # define SCOPVAL_notzero_p(val) SCOPVAL_ne(val,0)
00151 # define SCOPVAL_one_p(val) SCOPVAL_eq(val,1)
00152 # define SCOPVAL_mone_p(val) SCOPVAL_eq(val,-1)
00153
00154 # endif
00155
00156 #endif