# Define ID

def_id "cast"
def_id "eq"
def_id "ne"
def_id "pow"
def_id "mulsum"
if is_complex
  def_id "real"
  def_id "imag"
else
  def_id "divmod"
end
if is_float
  def_id "nearly_eq"
end
if is_comparable
  def_id "gt"
  def_id "ge"
  def_id "lt"
  def_id "le"
end
if is_object
  def_id "bit_and"
  def_id "bit_or"
  def_id "bit_xor"
  def_id "bit_not"
  def_id "abs"
  def_id "minus"
  def_id "reciprocal"
  def_id "square"
  def_id "floor"
  def_id "round"
  def_id "ceil"
  def_id "truncate"
  def_id "nan?"
  def_id "infinite?"
  def_id "finite?"
  def_id ">" ,"op_gt"
  def_id ">=","op_ge"
  def_id "<" ,"op_lt"
  def_id "<=","op_le"
  def_id "<=>","op_ufo"
end

# Allocation

if is_object
  def_allocate "robj_allocate"
end
def_method "allocate", 0

# Type conversion

def_method "extract", 0
store_numeric
cast_array
store_array
store_bit "Bit"
if is_complex
  store_from "DComplex","dcomplex","m_from_dcomplex"
  store_from "SComplex","scomplex","m_from_scomplex"
end
store_from "DFloat","double",   "m_from_real"
store_from "SFloat","float",    "m_from_real"
store_from "Int64", "int64_t",  "m_from_real"
store_from "Int32", "int32_t",  "m_from_real"
store_from "Int16", "int16_t",  "m_from_real"
store_from "Int8",  "int8_t",   "m_from_real"
store_from "UInt64","u_int64_t","m_from_real"
store_from "UInt32","u_int32_t","m_from_real"
store_from "UInt16","u_int16_t","m_from_real"
store_from "UInt8", "u_int8_t", "m_from_real"

def_method "store", 1
def_singleton "cast", 1

def_method "aref", -1, "aref", :op=>"[]"
def_method "aset", -1, "aset", :op=>"[]="

def_method "coerce_cast", 1
def_method "to_a", 0
def_method "fill", 1
def_method "format", -1
def_method "format_to_a", -1
def_method "inspect", 0


# Array manipulation

def_method "each", 0
unary "map" if !is_bit
def_method "each_with_index", 0

if is_bit
  unary  "copy"
  unary  "not", "~"
  binary "and", "&"
  binary "or" , "|"
  binary "xor", "^"
  binary "eq"
  bit_count "count_true"
  def_alias "count_1","count_true"
  bit_count "count_false"
  def_alias "count_0","count_false"
  bit_reduce "all?", 1
  bit_reduce "any?", 0
  def_method "none?", -1, "none_p"
  def_method "where", 0
  def_method "where2", 0
  def_method "mask", 1
else
def_method "map_with_index", 0

# Arithmetic

unary2 "abs", "rtype", "cRT"

binary "add", "+"
binary "sub", "-"
binary "mul", "*"
binary "div", "/"

if !is_complex
  binary "mod", "%"
  binary2 "divmod"
end

pow

unary "minus", "-@"
unary "reciprocal"
unary "sign"

# Complex

if is_complex
  unary "conj"
  unary "im"
  unary2 "real", "rtype", "cRT"
  unary2 "imag", "rtype", "cRT"
  unary2 "arg",  "rtype", "cRT"
  def_alias "angle","arg"
  set2 "set_imag", "rtype", "cRT"
  set2 "set_real", "rtype", "cRT"
  def_alias "imag=","set_imag"
  def_alias "real=","set_real"
else
  def_alias "conj", "copy"
  def_alias "im", "copy"
end

def_alias "conjugate","conj"

# base_cond

cond_binary "eq"
cond_binary "ne"

# nearly_eq  : x=~y is true if |x-y| <= (|x|+|y|)*epsilon
if is_float
  cond_binary "nearly_eq"
else
  def_alias "nearly_eq", "eq"
end
def_alias "close_to", "nearly_eq"

# Integer
if is_int
  binary "bit_and", "&"
  binary "bit_or" , "|"
  binary "bit_xor", "^"
  unary  "bit_not", "~"
  if !is_object
    def_alias "floor", "copy"
    def_alias "round", "copy"
    def_alias "ceil",  "copy"
    def_alias "trunc", "copy"
    def_alias "rint",  "copy"
  end
end

if is_float
  unary "floor"
  unary "round"
  unary "ceil"
  unary "trunc"
  if !is_object
    unary "rint"
  end
end

if is_comparable
  cond_binary "gt"
  cond_binary "ge"
  cond_binary "lt"
  cond_binary "le"
  def_alias ">", "gt"
  def_alias ">=","ge"
  def_alias "<", "lt"
  def_alias "<=","le"
end

# Float

if is_float
  cond_unary "isnan"
  cond_unary "isinf"
  cond_unary "isfinite"
end

accum "sum","dtype","cT"
accum "prod","dtype","cT"

if is_float
  accum "mean","dtype","cT"
  accum "stddev","rtype","cRT"
  accum "var","rtype","cRT"
  accum "rms","rtype","cRT"
end

if is_comparable
  accum "min","dtype","cT"
  accum "max","dtype","cT"
  accum_index "max_index"
  accum_index "min_index"
  def_method "minmax",-1
end

cum "cumsum","add"
cum "cumprod","mul"

# dot
accum_binary "mulsum"

# rmsdev
# prod

# shuffle
# histogram

def_method "seq",-1
if is_float
  def_method "logseq",-1
end
def_method "eye",-1
def_alias  "indgen", "seq"

def_method "rand", -1

# y = a[0] + a[1]*x + a[2]*x^2 + a[3]*x^3 + ... + a[n]*x^n
def_method "poly",-2

if is_comparable && !is_object
  qsort type_name,"dtype","*(dtype*)"
  def_method "sort",-1
  qsort type_name+"_index","dtype*","**(dtype**)"
  def_method "sort_index",-1
  def_method "median",-1
end

# Math
# histogram

if has_math
  math "sqrt"
  math "cbrt"
  math "log"
  math "log2"
  math "log10"
  math "exp"
  math "exp2"
  math "exp10"
  math "sin"
  math "cos"
  math "tan"
  math "asin"
  math "acos"
  math "atan"
  math "sinh"
  math "cosh"
  math "tanh"
  math "asinh"
  math "acosh"
  math "atanh"
  if !is_complex
    math "atan2",2
    math "hypot",2
    math "erf"
    math "erfc"
    math "ldexp",2
  end
end
end