diff options
Diffstat (limited to 'spec/ruby/optional/capi/ext/array_spec.c')
| -rw-r--r-- | spec/ruby/optional/capi/ext/array_spec.c | 247 |
1 files changed, 64 insertions, 183 deletions
diff --git a/spec/ruby/optional/capi/ext/array_spec.c b/spec/ruby/optional/capi/ext/array_spec.c index 8bc144195c..628c4df9d7 100644 --- a/spec/ruby/optional/capi/ext/array_spec.c +++ b/spec/ruby/optional/capi/ext/array_spec.c @@ -7,13 +7,10 @@ extern "C" { #endif -#ifdef HAVE_RB_ARRAY static VALUE array_spec_rb_Array(VALUE self, VALUE object) { return rb_Array(object); } -#endif -#if defined(HAVE_RARRAY_LEN) && defined(HAVE_RARRAY_PTR) static VALUE array_spec_RARRAY_PTR_iterate(VALUE self, VALUE array) { int i; VALUE* ptr; @@ -35,109 +32,93 @@ static VALUE array_spec_RARRAY_PTR_assign(VALUE self, VALUE array, VALUE value) } return Qnil; } -#endif -#ifdef HAVE_RARRAY_LEN + +static VALUE array_spec_RARRAY_PTR_memcpy(VALUE self, VALUE array1, VALUE array2) { + VALUE *ptr1, *ptr2; + long size; + size = RARRAY_LEN(array1); + ptr1 = RARRAY_PTR(array1); + ptr2 = RARRAY_PTR(array2); + if (ptr1 != NULL && ptr2 != NULL) { + memcpy(ptr2, ptr1, size * sizeof(VALUE)); + } + return Qnil; +} + static VALUE array_spec_RARRAY_LEN(VALUE self, VALUE array) { return INT2FIX(RARRAY_LEN(array)); } -#endif -#ifdef HAVE_RARRAY_AREF static VALUE array_spec_RARRAY_AREF(VALUE self, VALUE array, VALUE index) { return RARRAY_AREF(array, FIX2INT(index)); } -#endif -#ifdef HAVE_RB_ARY_AREF +static VALUE array_spec_RARRAY_ASET(VALUE self, VALUE array, VALUE index, VALUE value) { + RARRAY_ASET(array, FIX2INT(index), value); + return value; +} + static VALUE array_spec_rb_ary_aref(int argc, VALUE *argv, VALUE self) { VALUE ary, args; rb_scan_args(argc, argv, "1*", &ary, &args); return rb_ary_aref((int)RARRAY_LEN(args), RARRAY_PTR(args), ary); } -#endif -#ifdef HAVE_RB_ARY_CLEAR static VALUE array_spec_rb_ary_clear(VALUE self, VALUE array) { return rb_ary_clear(array); } -#endif -#ifdef HAVE_RB_ARY_DELETE static VALUE array_spec_rb_ary_delete(VALUE self, VALUE array, VALUE item) { return rb_ary_delete(array, item); } -#endif -#ifdef HAVE_RB_ARY_DELETE_AT static VALUE array_spec_rb_ary_delete_at(VALUE self, VALUE array, VALUE index) { return rb_ary_delete_at(array, NUM2LONG(index)); } -#endif -#ifdef HAVE_RB_ARY_DUP static VALUE array_spec_rb_ary_dup(VALUE self, VALUE array) { return rb_ary_dup(array); } -#endif -#ifdef HAVE_RB_ARY_ENTRY static VALUE array_spec_rb_ary_entry(VALUE self, VALUE array, VALUE offset) { return rb_ary_entry(array, FIX2INT(offset)); } -#endif -#ifdef HAVE_RB_ARY_INCLUDES static VALUE array_spec_rb_ary_includes(VALUE self, VALUE ary, VALUE item) { return rb_ary_includes(ary, item); } -#endif -#ifdef HAVE_RB_ARY_JOIN static VALUE array_spec_rb_ary_join(VALUE self, VALUE array1, VALUE array2) { return rb_ary_join(array1, array2); } -#endif -#ifdef HAVE_RB_ARY_TO_S static VALUE array_spec_rb_ary_to_s(VALUE self, VALUE array) { return rb_ary_to_s(array); } -#endif -#ifdef HAVE_RB_ARY_NEW static VALUE array_spec_rb_ary_new(VALUE self) { VALUE ret; ret = rb_ary_new(); return ret; } -#endif -#ifdef HAVE_RB_ARY_NEW2 static VALUE array_spec_rb_ary_new2(VALUE self, VALUE length) { return rb_ary_new2(NUM2LONG(length)); } -#endif -#ifdef HAVE_RB_ARY_NEW_CAPA static VALUE array_spec_rb_ary_new_capa(VALUE self, VALUE length) { return rb_ary_new_capa(NUM2LONG(length)); } -#endif -#ifdef HAVE_RB_ARY_NEW3 static VALUE array_spec_rb_ary_new3(VALUE self, VALUE first, VALUE second, VALUE third) { return rb_ary_new3(3, first, second, third); } -#endif -#ifdef HAVE_RB_ARY_NEW_FROM_ARGS static VALUE array_spec_rb_ary_new_from_args(VALUE self, VALUE first, VALUE second, VALUE third) { return rb_ary_new_from_args(3, first, second, third); } -#endif -#ifdef HAVE_RB_ARY_NEW4 static VALUE array_spec_rb_ary_new4(VALUE self, VALUE first, VALUE second, VALUE third) { VALUE values[3]; values[0] = first; @@ -145,9 +126,7 @@ static VALUE array_spec_rb_ary_new4(VALUE self, VALUE first, VALUE second, VALUE values[2] = third; return rb_ary_new4(3, values); } -#endif -#ifdef HAVE_RB_ARY_NEW_FROM_VALUES static VALUE array_spec_rb_ary_new_from_values(VALUE self, VALUE first, VALUE second, VALUE third) { VALUE values[3]; values[0] = first; @@ -155,84 +134,69 @@ static VALUE array_spec_rb_ary_new_from_values(VALUE self, VALUE first, VALUE se values[2] = third; return rb_ary_new_from_values(3, values); } -#endif -#ifdef HAVE_RB_ARY_POP static VALUE array_spec_rb_ary_pop(VALUE self, VALUE array) { return rb_ary_pop(array); } -#endif -#ifdef HAVE_RB_ARY_PUSH static VALUE array_spec_rb_ary_push(VALUE self, VALUE array, VALUE item) { rb_ary_push(array, item); return array; } -#endif -#ifdef HAVE_RB_ARY_CAT static VALUE array_spec_rb_ary_cat(int argc, VALUE *argv, VALUE self) { VALUE ary, args; rb_scan_args(argc, argv, "1*", &ary, &args); return rb_ary_cat(ary, RARRAY_PTR(args), RARRAY_LEN(args)); } -#endif -#ifdef HAVE_RB_ARY_REVERSE static VALUE array_spec_rb_ary_reverse(VALUE self, VALUE array) { return rb_ary_reverse(array); } -#endif -#ifdef HAVE_RB_ARY_ROTATE static VALUE array_spec_rb_ary_rotate(VALUE self, VALUE array, VALUE count) { return rb_ary_rotate(array, NUM2LONG(count)); } -#endif -#ifdef HAVE_RB_ARY_SHIFT static VALUE array_spec_rb_ary_shift(VALUE self, VALUE array) { return rb_ary_shift(array); } -#endif -#ifdef HAVE_RB_ARY_STORE +static VALUE array_spec_rb_ary_sort(VALUE self, VALUE array) { + return rb_ary_sort(array); +} + +static VALUE array_spec_rb_ary_sort_bang(VALUE self, VALUE array) { + return rb_ary_sort_bang(array); +} + static VALUE array_spec_rb_ary_store(VALUE self, VALUE array, VALUE offset, VALUE value) { rb_ary_store(array, FIX2INT(offset), value); return Qnil; } -#endif -#ifdef HAVE_RB_ARY_CONCAT static VALUE array_spec_rb_ary_concat(VALUE self, VALUE array1, VALUE array2) { return rb_ary_concat(array1, array2); } -#endif -#ifdef HAVE_RB_ARY_PLUS static VALUE array_spec_rb_ary_plus(VALUE self, VALUE array1, VALUE array2) { return rb_ary_plus(array1, array2); } -#endif -#ifdef HAVE_RB_ARY_UNSHIFT static VALUE array_spec_rb_ary_unshift(VALUE self, VALUE array, VALUE val) { return rb_ary_unshift(array, val); } -#endif -#ifdef HAVE_RB_ASSOC_NEW static VALUE array_spec_rb_assoc_new(VALUE self, VALUE first, VALUE second) { return rb_assoc_new(first, second); } -#endif -#if defined(HAVE_RB_ITERATE) && defined(HAVE_RB_EACH) -static VALUE copy_ary(VALUE el, VALUE new_ary) { +static VALUE copy_ary(RB_BLOCK_CALL_FUNC_ARGLIST(el, new_ary)) { return rb_ary_push(new_ary, el); } +#ifndef RUBY_VERSION_IS_4_0 static VALUE array_spec_rb_iterate(VALUE self, VALUE ary) { VALUE new_ary = rb_ary_new(); @@ -240,11 +204,21 @@ static VALUE array_spec_rb_iterate(VALUE self, VALUE ary) { return new_ary; } +#endif -static VALUE sub_pair(VALUE el, VALUE holder) { +static VALUE array_spec_rb_block_call(VALUE self, VALUE ary) { + VALUE new_ary = rb_ary_new(); + + rb_block_call(ary, rb_intern("each"), 0, 0, copy_ary, new_ary); + + return new_ary; +} + +static VALUE sub_pair(RB_BLOCK_CALL_FUNC_ARGLIST(el, holder)) { return rb_ary_push(holder, rb_ary_entry(el, 1)); } +#ifndef RUBY_VERSION_IS_4_0 static VALUE each_pair(VALUE obj) { return rb_funcall(obj, rb_intern("each_pair"), 0); } @@ -256,195 +230,102 @@ static VALUE array_spec_rb_iterate_each_pair(VALUE self, VALUE obj) { return new_ary; } +#endif -static VALUE iter_yield(VALUE el, VALUE ary) { +static VALUE array_spec_rb_block_call_each_pair(VALUE self, VALUE obj) { + VALUE new_ary = rb_ary_new(); + + rb_block_call(obj, rb_intern("each_pair"), 0, 0, sub_pair, new_ary); + + return new_ary; +} + +static VALUE iter_yield(RB_BLOCK_CALL_FUNC_ARGLIST(el, ary)) { rb_yield(el); return Qnil; } +#ifndef RUBY_VERSION_IS_4_0 static VALUE array_spec_rb_iterate_then_yield(VALUE self, VALUE obj) { rb_iterate(rb_each, obj, iter_yield, obj); return Qnil; } #endif -#if defined(HAVE_RB_MEM_CLEAR) +static VALUE array_spec_rb_block_call_then_yield(VALUE self, VALUE obj) { + rb_block_call(obj, rb_intern("each"), 0, 0, iter_yield, obj); + return Qnil; +} + static VALUE array_spec_rb_mem_clear(VALUE self, VALUE obj) { VALUE ary[1]; ary[0] = obj; rb_mem_clear(ary, 1); return ary[0]; } -#endif -#ifdef HAVE_RB_ARY_FREEZE static VALUE array_spec_rb_ary_freeze(VALUE self, VALUE ary) { return rb_ary_freeze(ary); } -#endif -#ifdef HAVE_RB_ARY_TO_ARY static VALUE array_spec_rb_ary_to_ary(VALUE self, VALUE ary) { return rb_ary_to_ary(ary); } -#endif -#ifdef HAVE_RB_ARY_SUBSEQ static VALUE array_spec_rb_ary_subseq(VALUE self, VALUE ary, VALUE begin, VALUE len) { return rb_ary_subseq(ary, FIX2LONG(begin), FIX2LONG(len)); } -#endif void Init_array_spec(void) { - VALUE cls; - cls = rb_define_class("CApiArraySpecs", rb_cObject); - -#ifdef HAVE_RB_ARRAY + VALUE cls = rb_define_class("CApiArraySpecs", rb_cObject); rb_define_method(cls, "rb_Array", array_spec_rb_Array, 1); -#endif - -#ifdef HAVE_RARRAY_LEN rb_define_method(cls, "RARRAY_LEN", array_spec_RARRAY_LEN, 1); -#endif - -#if defined(HAVE_RARRAY_LEN) && defined(HAVE_RARRAY_PTR) rb_define_method(cls, "RARRAY_PTR_iterate", array_spec_RARRAY_PTR_iterate, 1); rb_define_method(cls, "RARRAY_PTR_assign", array_spec_RARRAY_PTR_assign, 2); -#endif - -#ifdef HAVE_RARRAY_AREF + rb_define_method(cls, "RARRAY_PTR_memcpy", array_spec_RARRAY_PTR_memcpy, 2); rb_define_method(cls, "RARRAY_AREF", array_spec_RARRAY_AREF, 2); -#endif - -#ifdef HAVE_RB_ARY_AREF + rb_define_method(cls, "RARRAY_ASET", array_spec_RARRAY_ASET, 3); rb_define_method(cls, "rb_ary_aref", array_spec_rb_ary_aref, -1); -#endif - -#ifdef HAVE_RB_ARY_CLEAR rb_define_method(cls, "rb_ary_clear", array_spec_rb_ary_clear, 1); -#endif - -#ifdef HAVE_RB_ARY_DELETE rb_define_method(cls, "rb_ary_delete", array_spec_rb_ary_delete, 2); -#endif - -#ifdef HAVE_RB_ARY_DELETE_AT rb_define_method(cls, "rb_ary_delete_at", array_spec_rb_ary_delete_at, 2); -#endif - -#ifdef HAVE_RB_ARY_DUP rb_define_method(cls, "rb_ary_dup", array_spec_rb_ary_dup, 1); -#endif - -#ifdef HAVE_RB_ARY_ENTRY rb_define_method(cls, "rb_ary_entry", array_spec_rb_ary_entry, 2); -#endif - -#ifdef HAVE_RB_ARY_INCLUDES rb_define_method(cls, "rb_ary_includes", array_spec_rb_ary_includes, 2); -#endif - -#ifdef HAVE_RB_ARY_JOIN rb_define_method(cls, "rb_ary_join", array_spec_rb_ary_join, 2); -#endif - -#ifdef HAVE_RB_ARY_TO_S rb_define_method(cls, "rb_ary_to_s", array_spec_rb_ary_to_s, 1); -#endif - -#ifdef HAVE_RB_ARY_NEW rb_define_method(cls, "rb_ary_new", array_spec_rb_ary_new, 0); -#endif - -#ifdef HAVE_RB_ARY_NEW2 rb_define_method(cls, "rb_ary_new2", array_spec_rb_ary_new2, 1); -#endif - -#ifdef HAVE_RB_ARY_NEW_CAPA rb_define_method(cls, "rb_ary_new_capa", array_spec_rb_ary_new_capa, 1); -#endif - -#ifdef HAVE_RB_ARY_NEW3 rb_define_method(cls, "rb_ary_new3", array_spec_rb_ary_new3, 3); -#endif - -#ifdef HAVE_RB_ARY_NEW_FROM_ARGS rb_define_method(cls, "rb_ary_new_from_args", array_spec_rb_ary_new_from_args, 3); -#endif - -#ifdef HAVE_RB_ARY_NEW4 rb_define_method(cls, "rb_ary_new4", array_spec_rb_ary_new4, 3); -#endif - -#ifdef HAVE_RB_ARY_NEW_FROM_VALUES rb_define_method(cls, "rb_ary_new_from_values", array_spec_rb_ary_new_from_values, 3); -#endif - -#ifdef HAVE_RB_ARY_POP rb_define_method(cls, "rb_ary_pop", array_spec_rb_ary_pop, 1); -#endif - -#ifdef HAVE_RB_ARY_PUSH rb_define_method(cls, "rb_ary_push", array_spec_rb_ary_push, 2); -#endif - -#ifdef HAVE_RB_ARY_CAT rb_define_method(cls, "rb_ary_cat", array_spec_rb_ary_cat, -1); -#endif - -#ifdef HAVE_RB_ARY_REVERSE rb_define_method(cls, "rb_ary_reverse", array_spec_rb_ary_reverse, 1); -#endif - -#ifdef HAVE_RB_ARY_ROTATE rb_define_method(cls, "rb_ary_rotate", array_spec_rb_ary_rotate, 2); -#endif - -#ifdef HAVE_RB_ARY_SHIFT rb_define_method(cls, "rb_ary_shift", array_spec_rb_ary_shift, 1); -#endif - -#ifdef HAVE_RB_ARY_STORE + rb_define_method(cls, "rb_ary_sort", array_spec_rb_ary_sort, 1); + rb_define_method(cls, "rb_ary_sort_bang", array_spec_rb_ary_sort_bang, 1); rb_define_method(cls, "rb_ary_store", array_spec_rb_ary_store, 3); -#endif - -#ifdef HAVE_RB_ARY_CONCAT rb_define_method(cls, "rb_ary_concat", array_spec_rb_ary_concat, 2); -#endif - -#ifdef HAVE_RB_ARY_PLUS rb_define_method(cls, "rb_ary_plus", array_spec_rb_ary_plus, 2); -#endif - -#ifdef HAVE_RB_ARY_UNSHIFT rb_define_method(cls, "rb_ary_unshift", array_spec_rb_ary_unshift, 2); -#endif - -#ifdef HAVE_RB_ASSOC_NEW rb_define_method(cls, "rb_assoc_new", array_spec_rb_assoc_new, 2); -#endif - -#if defined(HAVE_RB_ITERATE) && defined(HAVE_RB_EACH) +#ifndef RUBY_VERSION_IS_4_0 rb_define_method(cls, "rb_iterate", array_spec_rb_iterate, 1); rb_define_method(cls, "rb_iterate_each_pair", array_spec_rb_iterate_each_pair, 1); rb_define_method(cls, "rb_iterate_then_yield", array_spec_rb_iterate_then_yield, 1); #endif - -#if defined(HAVE_RB_MEM_CLEAR) + rb_define_method(cls, "rb_block_call", array_spec_rb_block_call, 1); + rb_define_method(cls, "rb_block_call_each_pair", array_spec_rb_block_call_each_pair, 1); + rb_define_method(cls, "rb_block_call_then_yield", array_spec_rb_block_call_then_yield, 1); rb_define_method(cls, "rb_mem_clear", array_spec_rb_mem_clear, 1); -#endif - -#ifdef HAVE_RB_ARY_FREEZE rb_define_method(cls, "rb_ary_freeze", array_spec_rb_ary_freeze, 1); -#endif - -#ifdef HAVE_RB_ARY_TO_ARY rb_define_method(cls, "rb_ary_to_ary", array_spec_rb_ary_to_ary, 1); -#endif - -#ifdef HAVE_RB_ARY_SUBSEQ rb_define_method(cls, "rb_ary_subseq", array_spec_rb_ary_subseq, 3); -#endif } #ifdef __cplusplus |