Пример #1
0
PRIMITIVE VALUE
vm_rary_new(int argc, VALUE *argv)
{
    VALUE ary = rb_ary_new2(argc);
    int i;
    for (i = 0; i < argc; i++) {
	rary_elt_set(ary, i, argv[i]);
    }
    RARY(ary)->len = argc;
    return ary;
}
Пример #2
0
PRIMITIVE void
vm_rary_aset(VALUE ary, int i, VALUE obj)
{
    rary_elt_set(ary, i, obj);
}