Defines

macros.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Defines

#define SCOPLIB_DEBUG   0
#define SCOPLIB_MAX_STRING   2048
#define SCOPLIB_TYPE_ITERATOR   1
#define SCOPLIB_TYPE_PARAMETER   2
#define SCOPLIB_TYPE_ARRAY   3
#define SCOPLIB_TYPE_FUNCTION   4
#define SCOPLIB_TYPE_DOMAIN   6
#define SCOPLIB_TYPE_SCATTERING   7
#define SCOPLIB_TYPE_ACCESS   8
#define SCOPLIB_TYPE_UNKNOWN   9
#define SCOPLIB_FAKE_ARRAY   "fakearray"
#define SCOPLIB_SCOP_PRINT_CASTLE   1
#define SCOPLIB_SCOP_PRINT_ARRAYSTAG   2
#define SCOPVAL_init(val)   ((val) = 0)
#define SCOPVAL_assign(v1, v2)   ((v1) = (v2))
#define SCOPVAL_set_si(val, i)   ((val) = (scoplib_int_t)(i))
#define SCOPVAL_get_si(val)   ((val))
#define SCOPVAL_init_set_si(val, i)   ((val) = (scoplib_int_t)(i))
#define SCOPVAL_clear(val)   ((val) = 0)
#define SCOPVAL_print(Dst, fmt, val)   (fprintf((Dst),(fmt),(val)))
#define SCOPVAL_sprint(Dst, fmt, val)   (sprintf((Dst),(fmt),(val)))
#define SCOPVAL_eq(v1, v2)   ((v1)==(v2))
#define SCOPVAL_ne(v1, v2)   ((v1)!=(v2))
#define SCOPVAL_lt(v1, v2)   ((v1)<(v2))
#define SCOPVAL_gt(v1, v2)   ((v1)>(v2))
#define SCOPVAL_increment(ref, val)   ((ref) = (val)+(scoplib_int_t)(1))
#define SCOPVAL_addto(ref, val1, val2)   ((ref) = (val1)+(val2))
#define SCOPVAL_multo(ref, val1, val2)   ((ref) = (val1)*(val2))
#define SCOPVAL_divto(ref, val1, val2)   ((ref) = (val1)/(val2))
#define SCOPVAL_add_int(ref, val, vint)   ((ref) = (val)+(scoplib_int_t)(vint))
#define SCOPVAL_subtract(ref, val1, val2)   ((ref) = (val1)-(val2))
#define SCOPVAL_oppose(ref, val)   ((ref) = (-(val)))
#define SCOPVAL_pos_p(val)   SCOPVAL_gt(val,0)
#define SCOPVAL_neg_p(val)   SCOPVAL_lt(val,0)
#define SCOPVAL_zero_p(val)   SCOPVAL_eq(val,0)
#define SCOPVAL_notzero_p(val)   SCOPVAL_ne(val,0)
#define SCOPVAL_one_p(val)   SCOPVAL_eq(val,1)
#define SCOPVAL_mone_p(val)   SCOPVAL_eq(val,-1)

Define Documentation

#define SCOPLIB_DEBUG   0
#define SCOPLIB_FAKE_ARRAY   "fakearray"
#define SCOPLIB_MAX_STRING   2048
#define SCOPLIB_SCOP_PRINT_ARRAYSTAG   2
#define SCOPLIB_SCOP_PRINT_CASTLE   1
#define SCOPLIB_TYPE_ACCESS   8
#define SCOPLIB_TYPE_ARRAY   3
#define SCOPLIB_TYPE_DOMAIN   6
#define SCOPLIB_TYPE_FUNCTION   4
#define SCOPLIB_TYPE_ITERATOR   1
#define SCOPLIB_TYPE_PARAMETER   2
#define SCOPLIB_TYPE_SCATTERING   7
#define SCOPLIB_TYPE_UNKNOWN   9
#define SCOPVAL_add_int (   ref,
  val,
  vint 
)    ((ref) = (val)+(scoplib_int_t)(vint))
#define SCOPVAL_addto (   ref,
  val1,
  val2 
)    ((ref) = (val1)+(val2))
#define SCOPVAL_assign (   v1,
  v2 
)    ((v1) = (v2))
#define SCOPVAL_clear (   val  )     ((val) = 0)
#define SCOPVAL_divto (   ref,
  val1,
  val2 
)    ((ref) = (val1)/(val2))
#define SCOPVAL_eq (   v1,
  v2 
)    ((v1)==(v2))
#define SCOPVAL_get_si (   val  )     ((val))
#define SCOPVAL_gt (   v1,
  v2 
)    ((v1)>(v2))
#define SCOPVAL_increment (   ref,
  val 
)    ((ref) = (val)+(scoplib_int_t)(1))
#define SCOPVAL_init (   val  )     ((val) = 0)
#define SCOPVAL_init_set_si (   val,
  i 
)    ((val) = (scoplib_int_t)(i))
#define SCOPVAL_lt (   v1,
  v2 
)    ((v1)<(v2))
#define SCOPVAL_mone_p (   val  )     SCOPVAL_eq(val,-1)
#define SCOPVAL_multo (   ref,
  val1,
  val2 
)    ((ref) = (val1)*(val2))
#define SCOPVAL_ne (   v1,
  v2 
)    ((v1)!=(v2))

Referenced by scoplib_matrix_equal().

#define SCOPVAL_neg_p (   val  )     SCOPVAL_lt(val,0)
#define SCOPVAL_notzero_p (   val  )     SCOPVAL_ne(val,0)
#define SCOPVAL_one_p (   val  )     SCOPVAL_eq(val,1)
#define SCOPVAL_oppose (   ref,
  val 
)    ((ref) = (-(val)))
#define SCOPVAL_pos_p (   val  )     SCOPVAL_gt(val,0)
#define SCOPVAL_print (   Dst,
  fmt,
  val 
)    (fprintf((Dst),(fmt),(val)))
#define SCOPVAL_set_si (   val,
  i 
)    ((val) = (scoplib_int_t)(i))
#define SCOPVAL_sprint (   Dst,
  fmt,
  val 
)    (sprintf((Dst),(fmt),(val)))
#define SCOPVAL_subtract (   ref,
  val1,
  val2 
)    ((ref) = (val1)-(val2))
#define SCOPVAL_zero_p (   val  )     SCOPVAL_eq(val,0)