From 13d9631e2188001f30cc68a62e1577352d9e3ef3 Mon Sep 17 00:00:00 2001 From: take_cheeze Date: Sun, 6 Jul 2014 22:23:29 +0900 Subject: Add new API `mrb_ary_resize`(mruby implementation of `rb_ary_resize`). --- src/array.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'src/array.c') diff --git a/src/array.c b/src/array.c index 600db7488..4c0a159c6 100644 --- a/src/array.c +++ b/src/array.c @@ -231,6 +231,28 @@ ary_shrink_capa(mrb_state *mrb, struct RArray *a) } } +mrb_value +mrb_ary_resize(mrb_state *mrb, mrb_value ary, mrb_int new_len) +{ + mrb_int old_len; + struct RArray *a = mrb_ary_ptr(ary); + + ary_modify(mrb, a); + old_len = RARRAY_LEN(ary); + if (old_len != new_len) { + a->len = new_len; + if (new_len < old_len) { + ary_shrink_capa(mrb, a); + } + else { + ary_expand_capa(mrb, a, new_len); + ary_fill_with_nil(a->ptr + old_len, new_len - old_len); + } + } + + return ary; +} + static mrb_value mrb_ary_s_create(mrb_state *mrb, mrb_value self) { -- cgit v1.2.3