/* method: to_i() */ static VALUE na_to_integer(VALUE self) { int type; struct NARRAY *a1, *a2; VALUE v; GetNArray(self,a1); if (!NA_IsINTEGER(a1)) type = NA_LINT; else type = a1->type; v = na_make_object(type, a1->rank, a1->shape, CLASS_OF(self)); GetNArray(v,a2); na_copy_nary(a2,a1); return v; }