[270] | 1 | /*
|
---|
| 2 | ** class.c - Class class
|
---|
| 3 | **
|
---|
| 4 | ** See Copyright Notice in mruby.h
|
---|
| 5 | */
|
---|
| 6 |
|
---|
| 7 | #include <stdarg.h>
|
---|
| 8 | #include "mruby.h"
|
---|
| 9 | #include "mruby/array.h"
|
---|
| 10 | #include "mruby/class.h"
|
---|
| 11 | #include "mruby/numeric.h"
|
---|
| 12 | #include "mruby/proc.h"
|
---|
| 13 | #include "mruby/string.h"
|
---|
| 14 | #include "mruby/variable.h"
|
---|
| 15 | #include "mruby/error.h"
|
---|
| 16 | #include "mruby/data.h"
|
---|
| 17 |
|
---|
| 18 | KHASH_DEFINE(mt, mrb_sym, struct RProc*, TRUE, kh_int_hash_func, kh_int_hash_equal)
|
---|
| 19 |
|
---|
| 20 | void
|
---|
| 21 | mrb_gc_mark_mt(mrb_state *mrb, struct RClass *c)
|
---|
| 22 | {
|
---|
| 23 | khiter_t k;
|
---|
| 24 | khash_t(mt) *h = c->mt;
|
---|
| 25 |
|
---|
| 26 | if (!h) return;
|
---|
| 27 | for (k = kh_begin(h); k != kh_end(h); k++) {
|
---|
| 28 | if (kh_exist(h, k)) {
|
---|
| 29 | struct RProc *m = kh_value(h, k);
|
---|
| 30 | if (m) {
|
---|
| 31 | mrb_gc_mark(mrb, (struct RBasic*)m);
|
---|
| 32 | }
|
---|
| 33 | }
|
---|
| 34 | }
|
---|
| 35 | }
|
---|
| 36 |
|
---|
| 37 | size_t
|
---|
| 38 | mrb_gc_mark_mt_size(mrb_state *mrb, struct RClass *c)
|
---|
| 39 | {
|
---|
| 40 | khash_t(mt) *h = c->mt;
|
---|
| 41 |
|
---|
| 42 | if (!h) return 0;
|
---|
| 43 | return kh_size(h);
|
---|
| 44 | }
|
---|
| 45 |
|
---|
| 46 | void
|
---|
| 47 | mrb_gc_free_mt(mrb_state *mrb, struct RClass *c)
|
---|
| 48 | {
|
---|
| 49 | kh_destroy(mt, mrb, c->mt);
|
---|
| 50 | }
|
---|
| 51 |
|
---|
| 52 | static void
|
---|
| 53 | name_class(mrb_state *mrb, struct RClass *c, mrb_sym name)
|
---|
| 54 | {
|
---|
| 55 | mrb_obj_iv_set(mrb, (struct RObject*)c,
|
---|
| 56 | mrb_intern_lit(mrb, "__classid__"), mrb_symbol_value(name));
|
---|
| 57 | }
|
---|
| 58 |
|
---|
| 59 | static void
|
---|
| 60 | setup_class(mrb_state *mrb, struct RClass *outer, struct RClass *c, mrb_sym id)
|
---|
| 61 | {
|
---|
| 62 | name_class(mrb, c, id);
|
---|
| 63 | mrb_obj_iv_set(mrb, (struct RObject*)outer, id, mrb_obj_value(c));
|
---|
| 64 | if (outer != mrb->object_class) {
|
---|
| 65 | mrb_obj_iv_set(mrb, (struct RObject*)c, mrb_intern_lit(mrb, "__outer__"),
|
---|
| 66 | mrb_obj_value(outer));
|
---|
| 67 | }
|
---|
| 68 | }
|
---|
| 69 |
|
---|
| 70 | #define make_metaclass(mrb, c) prepare_singleton_class((mrb), (struct RBasic*)(c))
|
---|
| 71 |
|
---|
| 72 | static void
|
---|
| 73 | prepare_singleton_class(mrb_state *mrb, struct RBasic *o)
|
---|
| 74 | {
|
---|
| 75 | struct RClass *sc, *c;
|
---|
| 76 |
|
---|
| 77 | if (o->c->tt == MRB_TT_SCLASS) return;
|
---|
| 78 | sc = (struct RClass*)mrb_obj_alloc(mrb, MRB_TT_SCLASS, mrb->class_class);
|
---|
| 79 | sc->mt = kh_init(mt, mrb);
|
---|
| 80 | sc->iv = 0;
|
---|
| 81 | if (o->tt == MRB_TT_CLASS) {
|
---|
| 82 | c = (struct RClass*)o;
|
---|
| 83 | if (!c->super) {
|
---|
| 84 | sc->super = mrb->class_class;
|
---|
| 85 | }
|
---|
| 86 | else {
|
---|
| 87 | sc->super = c->super->c;
|
---|
| 88 | }
|
---|
| 89 | }
|
---|
| 90 | else if (o->tt == MRB_TT_SCLASS) {
|
---|
| 91 | c = (struct RClass*)o;
|
---|
| 92 | while (c->super->tt == MRB_TT_ICLASS)
|
---|
| 93 | c = c->super;
|
---|
| 94 | make_metaclass(mrb, c->super);
|
---|
| 95 | sc->super = c->super->c;
|
---|
| 96 | }
|
---|
| 97 | else {
|
---|
| 98 | sc->super = o->c;
|
---|
| 99 | }
|
---|
| 100 | o->c = sc;
|
---|
| 101 | mrb_field_write_barrier(mrb, (struct RBasic*)o, (struct RBasic*)sc);
|
---|
| 102 | mrb_field_write_barrier(mrb, (struct RBasic*)sc, (struct RBasic*)o);
|
---|
| 103 | mrb_obj_iv_set(mrb, (struct RObject*)sc, mrb_intern_lit(mrb, "__attached__"), mrb_obj_value(o));
|
---|
| 104 | }
|
---|
| 105 |
|
---|
| 106 | static struct RClass *
|
---|
| 107 | class_from_sym(mrb_state *mrb, struct RClass *klass, mrb_sym id)
|
---|
| 108 | {
|
---|
| 109 | mrb_value c = mrb_const_get(mrb, mrb_obj_value(klass), id);
|
---|
| 110 |
|
---|
| 111 | mrb_check_type(mrb, c, MRB_TT_CLASS);
|
---|
| 112 | return mrb_class_ptr(c);
|
---|
| 113 | }
|
---|
| 114 |
|
---|
| 115 | static struct RClass *
|
---|
| 116 | module_from_sym(mrb_state *mrb, struct RClass *klass, mrb_sym id)
|
---|
| 117 | {
|
---|
| 118 | mrb_value c = mrb_const_get(mrb, mrb_obj_value(klass), id);
|
---|
| 119 |
|
---|
| 120 | mrb_check_type(mrb, c, MRB_TT_MODULE);
|
---|
| 121 | return mrb_class_ptr(c);
|
---|
| 122 | }
|
---|
| 123 |
|
---|
| 124 | MRB_API struct RClass*
|
---|
| 125 | mrb_class_outer_module(mrb_state *mrb, struct RClass *c)
|
---|
| 126 | {
|
---|
| 127 | mrb_value outer;
|
---|
| 128 |
|
---|
| 129 | outer = mrb_obj_iv_get(mrb, (struct RObject*)c, mrb_intern_lit(mrb, "__outer__"));
|
---|
| 130 | if (mrb_nil_p(outer)) return NULL;
|
---|
| 131 | return mrb_class_ptr(outer);
|
---|
| 132 | }
|
---|
| 133 |
|
---|
| 134 | static void
|
---|
| 135 | check_if_class_or_module(mrb_state *mrb, mrb_value obj)
|
---|
| 136 | {
|
---|
| 137 | switch (mrb_type(obj)) {
|
---|
| 138 | case MRB_TT_CLASS:
|
---|
| 139 | case MRB_TT_SCLASS:
|
---|
| 140 | case MRB_TT_MODULE:
|
---|
| 141 | return;
|
---|
| 142 | default:
|
---|
| 143 | mrb_raisef(mrb, E_TYPE_ERROR, "%S is not a class/module", mrb_inspect(mrb, obj));
|
---|
| 144 | }
|
---|
| 145 | }
|
---|
| 146 |
|
---|
| 147 | static struct RClass*
|
---|
| 148 | define_module(mrb_state *mrb, mrb_sym name, struct RClass *outer)
|
---|
| 149 | {
|
---|
| 150 | struct RClass *m;
|
---|
| 151 |
|
---|
| 152 | if (mrb_const_defined_at(mrb, mrb_obj_value(outer), name)) {
|
---|
| 153 | return module_from_sym(mrb, outer, name);
|
---|
| 154 | }
|
---|
| 155 | m = mrb_module_new(mrb);
|
---|
| 156 | setup_class(mrb, outer, m, name);
|
---|
| 157 |
|
---|
| 158 | return m;
|
---|
| 159 | }
|
---|
| 160 |
|
---|
| 161 | MRB_API struct RClass*
|
---|
| 162 | mrb_define_module_id(mrb_state *mrb, mrb_sym name)
|
---|
| 163 | {
|
---|
| 164 | return define_module(mrb, name, mrb->object_class);
|
---|
| 165 | }
|
---|
| 166 |
|
---|
| 167 | MRB_API struct RClass*
|
---|
| 168 | mrb_define_module(mrb_state *mrb, const char *name)
|
---|
| 169 | {
|
---|
| 170 | return define_module(mrb, mrb_intern_cstr(mrb, name), mrb->object_class);
|
---|
| 171 | }
|
---|
| 172 |
|
---|
| 173 | MRB_API struct RClass*
|
---|
| 174 | mrb_vm_define_module(mrb_state *mrb, mrb_value outer, mrb_sym id)
|
---|
| 175 | {
|
---|
| 176 | check_if_class_or_module(mrb, outer);
|
---|
| 177 | return define_module(mrb, id, mrb_class_ptr(outer));
|
---|
| 178 | }
|
---|
| 179 |
|
---|
| 180 | MRB_API struct RClass*
|
---|
| 181 | mrb_define_module_under(mrb_state *mrb, struct RClass *outer, const char *name)
|
---|
| 182 | {
|
---|
| 183 | mrb_sym id = mrb_intern_cstr(mrb, name);
|
---|
| 184 | struct RClass * c = define_module(mrb, id, outer);
|
---|
| 185 |
|
---|
| 186 | setup_class(mrb, outer, c, id);
|
---|
| 187 | return c;
|
---|
| 188 | }
|
---|
| 189 |
|
---|
| 190 | static struct RClass*
|
---|
| 191 | find_origin(struct RClass *c)
|
---|
| 192 | {
|
---|
| 193 | MRB_CLASS_ORIGIN(c);
|
---|
| 194 | return c;
|
---|
| 195 | }
|
---|
| 196 |
|
---|
| 197 | static struct RClass*
|
---|
| 198 | define_class(mrb_state *mrb, mrb_sym name, struct RClass *super, struct RClass *outer)
|
---|
| 199 | {
|
---|
| 200 | struct RClass * c;
|
---|
| 201 |
|
---|
| 202 | if (mrb_const_defined_at(mrb, mrb_obj_value(outer), name)) {
|
---|
| 203 | c = class_from_sym(mrb, outer, name);
|
---|
| 204 | MRB_CLASS_ORIGIN(c);
|
---|
| 205 | if (super && mrb_class_real(c->super) != super) {
|
---|
| 206 | mrb_raisef(mrb, E_TYPE_ERROR, "superclass mismatch for Class %S (%S not %S)",
|
---|
| 207 | mrb_sym2str(mrb, name),
|
---|
| 208 | mrb_obj_value(c->super), mrb_obj_value(super));
|
---|
| 209 | }
|
---|
| 210 | return c;
|
---|
| 211 | }
|
---|
| 212 |
|
---|
| 213 | c = mrb_class_new(mrb, super);
|
---|
| 214 | setup_class(mrb, outer, c, name);
|
---|
| 215 |
|
---|
| 216 | return c;
|
---|
| 217 | }
|
---|
| 218 |
|
---|
| 219 | MRB_API struct RClass*
|
---|
| 220 | mrb_define_class_id(mrb_state *mrb, mrb_sym name, struct RClass *super)
|
---|
| 221 | {
|
---|
| 222 | if (!super) {
|
---|
| 223 | mrb_warn(mrb, "no super class for '%S', Object assumed", mrb_sym2str(mrb, name));
|
---|
| 224 | }
|
---|
| 225 | return define_class(mrb, name, super, mrb->object_class);
|
---|
| 226 | }
|
---|
| 227 |
|
---|
| 228 | MRB_API struct RClass*
|
---|
| 229 | mrb_define_class(mrb_state *mrb, const char *name, struct RClass *super)
|
---|
| 230 | {
|
---|
| 231 | return mrb_define_class_id(mrb, mrb_intern_cstr(mrb, name), super);
|
---|
| 232 | }
|
---|
| 233 |
|
---|
| 234 | static void
|
---|
| 235 | mrb_class_inherited(mrb_state *mrb, struct RClass *super, struct RClass *klass)
|
---|
| 236 | {
|
---|
| 237 | if (!super)
|
---|
| 238 | super = mrb->object_class;
|
---|
| 239 | mrb_funcall(mrb, mrb_obj_value(super), "inherited", 1, mrb_obj_value(klass));
|
---|
| 240 | }
|
---|
| 241 |
|
---|
| 242 | MRB_API struct RClass*
|
---|
| 243 | mrb_vm_define_class(mrb_state *mrb, mrb_value outer, mrb_value super, mrb_sym id)
|
---|
| 244 | {
|
---|
| 245 | struct RClass *s;
|
---|
| 246 | struct RClass *c;
|
---|
| 247 |
|
---|
| 248 | if (!mrb_nil_p(super)) {
|
---|
| 249 | if (mrb_type(super) != MRB_TT_CLASS) {
|
---|
| 250 | mrb_raisef(mrb, E_TYPE_ERROR, "superclass must be a Class (%S given)", super);
|
---|
| 251 | }
|
---|
| 252 | s = mrb_class_ptr(super);
|
---|
| 253 | }
|
---|
| 254 | else {
|
---|
| 255 | s = 0;
|
---|
| 256 | }
|
---|
| 257 | check_if_class_or_module(mrb, outer);
|
---|
| 258 | c = define_class(mrb, id, s, mrb_class_ptr(outer));
|
---|
| 259 | mrb_class_inherited(mrb, mrb_class_real(c->super), c);
|
---|
| 260 |
|
---|
| 261 | return c;
|
---|
| 262 | }
|
---|
| 263 |
|
---|
| 264 | MRB_API mrb_bool
|
---|
| 265 | mrb_class_defined(mrb_state *mrb, const char *name)
|
---|
| 266 | {
|
---|
| 267 | mrb_value sym = mrb_check_intern_cstr(mrb, name);
|
---|
| 268 | if (mrb_nil_p(sym)) {
|
---|
| 269 | return FALSE;
|
---|
| 270 | }
|
---|
| 271 | return mrb_const_defined(mrb, mrb_obj_value(mrb->object_class), mrb_symbol(sym));
|
---|
| 272 | }
|
---|
| 273 |
|
---|
| 274 | MRB_API struct RClass *
|
---|
| 275 | mrb_class_get_under(mrb_state *mrb, struct RClass *outer, const char *name)
|
---|
| 276 | {
|
---|
| 277 | return class_from_sym(mrb, outer, mrb_intern_cstr(mrb, name));
|
---|
| 278 | }
|
---|
| 279 |
|
---|
| 280 | MRB_API struct RClass *
|
---|
| 281 | mrb_class_get(mrb_state *mrb, const char *name)
|
---|
| 282 | {
|
---|
| 283 | return mrb_class_get_under(mrb, mrb->object_class, name);
|
---|
| 284 | }
|
---|
| 285 |
|
---|
| 286 | MRB_API struct RClass *
|
---|
| 287 | mrb_module_get_under(mrb_state *mrb, struct RClass *outer, const char *name)
|
---|
| 288 | {
|
---|
| 289 | return module_from_sym(mrb, outer, mrb_intern_cstr(mrb, name));
|
---|
| 290 | }
|
---|
| 291 |
|
---|
| 292 | MRB_API struct RClass *
|
---|
| 293 | mrb_module_get(mrb_state *mrb, const char *name)
|
---|
| 294 | {
|
---|
| 295 | return mrb_module_get_under(mrb, mrb->object_class, name);
|
---|
| 296 | }
|
---|
| 297 |
|
---|
| 298 | /*!
|
---|
| 299 | * Defines a class under the namespace of \a outer.
|
---|
| 300 | * \param outer a class which contains the new class.
|
---|
| 301 | * \param id name of the new class
|
---|
| 302 | * \param super a class from which the new class will derive.
|
---|
| 303 | * NULL means \c Object class.
|
---|
| 304 | * \return the created class
|
---|
| 305 | * \throw TypeError if the constant name \a name is already taken but
|
---|
| 306 | * the constant is not a \c Class.
|
---|
| 307 | * \throw NameError if the class is already defined but the class can not
|
---|
| 308 | * be reopened because its superclass is not \a super.
|
---|
| 309 | * \post top-level constant named \a name refers the returned class.
|
---|
| 310 | *
|
---|
| 311 | * \note if a class named \a name is already defined and its superclass is
|
---|
| 312 | * \a super, the function just returns the defined class.
|
---|
| 313 | */
|
---|
| 314 | MRB_API struct RClass *
|
---|
| 315 | mrb_define_class_under(mrb_state *mrb, struct RClass *outer, const char *name, struct RClass *super)
|
---|
| 316 | {
|
---|
| 317 | mrb_sym id = mrb_intern_cstr(mrb, name);
|
---|
| 318 | struct RClass * c;
|
---|
| 319 |
|
---|
| 320 | #if 0
|
---|
| 321 | if (!super) {
|
---|
| 322 | mrb_warn(mrb, "no super class for '%S::%S', Object assumed",
|
---|
| 323 | mrb_obj_value(outer), mrb_sym2str(mrb, id));
|
---|
| 324 | }
|
---|
| 325 | #endif
|
---|
| 326 | c = define_class(mrb, id, super, outer);
|
---|
| 327 | setup_class(mrb, outer, c, id);
|
---|
| 328 | return c;
|
---|
| 329 | }
|
---|
| 330 |
|
---|
| 331 | MRB_API void
|
---|
| 332 | mrb_define_method_raw(mrb_state *mrb, struct RClass *c, mrb_sym mid, struct RProc *p)
|
---|
| 333 | {
|
---|
| 334 | khash_t(mt) *h;
|
---|
| 335 | khiter_t k;
|
---|
| 336 | MRB_CLASS_ORIGIN(c);
|
---|
| 337 | h = c->mt;
|
---|
| 338 |
|
---|
| 339 | if (!h) h = c->mt = kh_init(mt, mrb);
|
---|
| 340 | k = kh_put(mt, mrb, h, mid);
|
---|
| 341 | kh_value(h, k) = p;
|
---|
| 342 | if (p) {
|
---|
| 343 | mrb_field_write_barrier(mrb, (struct RBasic *)c, (struct RBasic *)p);
|
---|
| 344 | }
|
---|
| 345 | }
|
---|
| 346 |
|
---|
| 347 | MRB_API void
|
---|
| 348 | mrb_define_method_id(mrb_state *mrb, struct RClass *c, mrb_sym mid, mrb_func_t func, mrb_aspec aspec)
|
---|
| 349 | {
|
---|
| 350 | struct RProc *p;
|
---|
| 351 | int ai = mrb_gc_arena_save(mrb);
|
---|
| 352 |
|
---|
| 353 | p = mrb_proc_new_cfunc(mrb, func);
|
---|
| 354 | p->target_class = c;
|
---|
| 355 | mrb_define_method_raw(mrb, c, mid, p);
|
---|
| 356 | mrb_gc_arena_restore(mrb, ai);
|
---|
| 357 | }
|
---|
| 358 |
|
---|
| 359 | MRB_API void
|
---|
| 360 | mrb_define_method(mrb_state *mrb, struct RClass *c, const char *name, mrb_func_t func, mrb_aspec aspec)
|
---|
| 361 | {
|
---|
| 362 | mrb_define_method_id(mrb, c, mrb_intern_cstr(mrb, name), func, aspec);
|
---|
| 363 | }
|
---|
| 364 |
|
---|
| 365 | /* a function to raise NotImplementedError with current method name */
|
---|
| 366 | MRB_API void
|
---|
| 367 | mrb_notimplement(mrb_state *mrb)
|
---|
| 368 | {
|
---|
| 369 | const char *str;
|
---|
| 370 | mrb_int len;
|
---|
| 371 | mrb_callinfo *ci = mrb->c->ci;
|
---|
| 372 |
|
---|
| 373 | if (ci->mid) {
|
---|
| 374 | str = mrb_sym2name_len(mrb, ci->mid, &len);
|
---|
| 375 | mrb_raisef(mrb, E_NOTIMP_ERROR,
|
---|
| 376 | "%S() function is unimplemented on this machine",
|
---|
| 377 | mrb_str_new_static(mrb, str, (size_t)len));
|
---|
| 378 | }
|
---|
| 379 | }
|
---|
| 380 |
|
---|
| 381 | /* a function to be replacement of unimplemented method */
|
---|
| 382 | MRB_API mrb_value
|
---|
| 383 | mrb_notimplement_m(mrb_state *mrb, mrb_value self)
|
---|
| 384 | {
|
---|
| 385 | mrb_notimplement(mrb);
|
---|
| 386 | /* not reached */
|
---|
| 387 | return mrb_nil_value();
|
---|
| 388 | }
|
---|
| 389 |
|
---|
| 390 | static mrb_value
|
---|
| 391 | check_type(mrb_state *mrb, mrb_value val, enum mrb_vtype t, const char *c, const char *m)
|
---|
| 392 | {
|
---|
| 393 | mrb_value tmp;
|
---|
| 394 |
|
---|
| 395 | tmp = mrb_check_convert_type(mrb, val, t, c, m);
|
---|
| 396 | if (mrb_nil_p(tmp)) {
|
---|
| 397 | mrb_raisef(mrb, E_TYPE_ERROR, "expected %S", mrb_str_new_cstr(mrb, c));
|
---|
| 398 | }
|
---|
| 399 | return tmp;
|
---|
| 400 | }
|
---|
| 401 |
|
---|
| 402 | static mrb_value
|
---|
| 403 | to_str(mrb_state *mrb, mrb_value val)
|
---|
| 404 | {
|
---|
| 405 | return check_type(mrb, val, MRB_TT_STRING, "String", "to_str");
|
---|
| 406 | }
|
---|
| 407 |
|
---|
| 408 | static mrb_value
|
---|
| 409 | to_ary(mrb_state *mrb, mrb_value val)
|
---|
| 410 | {
|
---|
| 411 | return check_type(mrb, val, MRB_TT_ARRAY, "Array", "to_ary");
|
---|
| 412 | }
|
---|
| 413 |
|
---|
| 414 | static mrb_value
|
---|
| 415 | to_hash(mrb_state *mrb, mrb_value val)
|
---|
| 416 | {
|
---|
| 417 | return check_type(mrb, val, MRB_TT_HASH, "Hash", "to_hash");
|
---|
| 418 | }
|
---|
| 419 |
|
---|
| 420 | static mrb_sym
|
---|
| 421 | to_sym(mrb_state *mrb, mrb_value ss)
|
---|
| 422 | {
|
---|
| 423 | if (mrb_type(ss) == MRB_TT_SYMBOL) {
|
---|
| 424 | return mrb_symbol(ss);
|
---|
| 425 | }
|
---|
| 426 | else if (mrb_string_p(ss)) {
|
---|
| 427 | return mrb_intern_str(mrb, to_str(mrb, ss));
|
---|
| 428 | }
|
---|
| 429 | else {
|
---|
| 430 | mrb_value obj = mrb_funcall(mrb, ss, "inspect", 0);
|
---|
| 431 | mrb_raisef(mrb, E_TYPE_ERROR, "%S is not a symbol", obj);
|
---|
| 432 | }
|
---|
| 433 | }
|
---|
| 434 |
|
---|
| 435 | /*
|
---|
| 436 | retrieve arguments from mrb_state.
|
---|
| 437 |
|
---|
| 438 | mrb_get_args(mrb, format, ...)
|
---|
| 439 |
|
---|
| 440 | returns number of arguments parsed.
|
---|
| 441 |
|
---|
| 442 | format specifiers:
|
---|
| 443 |
|
---|
| 444 | string mruby type C type note
|
---|
| 445 | ----------------------------------------------------------------------------------------------
|
---|
| 446 | o: Object [mrb_value]
|
---|
| 447 | C: class/module [mrb_value]
|
---|
| 448 | S: String [mrb_value] when ! follows, the value may be nil
|
---|
| 449 | A: Array [mrb_value] when ! follows, the value may be nil
|
---|
| 450 | H: Hash [mrb_value] when ! follows, the value may be nil
|
---|
| 451 | s: String [char*,mrb_int] Receive two arguments; s! gives (NULL,0) for nil
|
---|
| 452 | z: String [char*] NUL terminated string; z! gives NULL for nil
|
---|
| 453 | a: Array [mrb_value*,mrb_int] Receive two arguments; a! gives (NULL,0) for nil
|
---|
| 454 | f: Float [mrb_float]
|
---|
| 455 | i: Integer [mrb_int]
|
---|
| 456 | b: Boolean [mrb_bool]
|
---|
| 457 | n: Symbol [mrb_sym]
|
---|
| 458 | d: Data [void*,mrb_data_type const] 2nd argument will be used to check data type so it won't be modified
|
---|
| 459 | &: Block [mrb_value]
|
---|
| 460 | *: rest argument [mrb_value*,mrb_int] Receive the rest of the arguments as an array.
|
---|
| 461 | |: optional Next argument of '|' and later are optional.
|
---|
| 462 | ?: optional given [mrb_bool] true if preceding argument (optional) is given.
|
---|
| 463 | */
|
---|
| 464 | MRB_API mrb_int
|
---|
| 465 | mrb_get_args(mrb_state *mrb, const char *format, ...)
|
---|
| 466 | {
|
---|
| 467 | char c;
|
---|
| 468 | int i = 0;
|
---|
| 469 | mrb_value *sp = mrb->c->stack + 1;
|
---|
| 470 | va_list ap;
|
---|
| 471 | int argc = mrb->c->ci->argc;
|
---|
| 472 | mrb_bool opt = FALSE;
|
---|
| 473 | mrb_bool given = TRUE;
|
---|
| 474 |
|
---|
| 475 | va_start(ap, format);
|
---|
| 476 | if (argc < 0) {
|
---|
| 477 | struct RArray *a = mrb_ary_ptr(mrb->c->stack[1]);
|
---|
| 478 |
|
---|
| 479 | argc = a->len;
|
---|
| 480 | sp = a->ptr;
|
---|
| 481 | }
|
---|
| 482 | while ((c = *format++)) {
|
---|
| 483 | switch (c) {
|
---|
| 484 | case '|': case '*': case '&': case '?':
|
---|
| 485 | break;
|
---|
| 486 | default:
|
---|
| 487 | if (argc <= i) {
|
---|
| 488 | if (opt) {
|
---|
| 489 | given = FALSE;
|
---|
| 490 | }
|
---|
| 491 | else {
|
---|
| 492 | mrb_raise(mrb, E_ARGUMENT_ERROR, "wrong number of arguments");
|
---|
| 493 | }
|
---|
| 494 | }
|
---|
| 495 | break;
|
---|
| 496 | }
|
---|
| 497 |
|
---|
| 498 | switch (c) {
|
---|
| 499 | case 'o':
|
---|
| 500 | {
|
---|
| 501 | mrb_value *p;
|
---|
| 502 |
|
---|
| 503 | p = va_arg(ap, mrb_value*);
|
---|
| 504 | if (i < argc) {
|
---|
| 505 | *p = *sp++;
|
---|
| 506 | i++;
|
---|
| 507 | }
|
---|
| 508 | }
|
---|
| 509 | break;
|
---|
| 510 | case 'C':
|
---|
| 511 | {
|
---|
| 512 | mrb_value *p;
|
---|
| 513 |
|
---|
| 514 | p = va_arg(ap, mrb_value*);
|
---|
| 515 | if (i < argc) {
|
---|
| 516 | mrb_value ss;
|
---|
| 517 |
|
---|
| 518 | ss = *sp++;
|
---|
| 519 | switch (mrb_type(ss)) {
|
---|
| 520 | case MRB_TT_CLASS:
|
---|
| 521 | case MRB_TT_MODULE:
|
---|
| 522 | case MRB_TT_SCLASS:
|
---|
| 523 | break;
|
---|
| 524 | default:
|
---|
| 525 | mrb_raisef(mrb, E_TYPE_ERROR, "%S is not class/module", ss);
|
---|
| 526 | break;
|
---|
| 527 | }
|
---|
| 528 | *p = ss;
|
---|
| 529 | i++;
|
---|
| 530 | }
|
---|
| 531 | }
|
---|
| 532 | break;
|
---|
| 533 | case 'S':
|
---|
| 534 | {
|
---|
| 535 | mrb_value *p;
|
---|
| 536 |
|
---|
| 537 | p = va_arg(ap, mrb_value*);
|
---|
| 538 | if (*format == '!') {
|
---|
| 539 | format++;
|
---|
| 540 | if (i < argc && mrb_nil_p(*sp)) {
|
---|
| 541 | *p = *sp++;
|
---|
| 542 | i++;
|
---|
| 543 | break;
|
---|
| 544 | }
|
---|
| 545 | }
|
---|
| 546 | if (i < argc) {
|
---|
| 547 | *p = to_str(mrb, *sp++);
|
---|
| 548 | i++;
|
---|
| 549 | }
|
---|
| 550 | }
|
---|
| 551 | break;
|
---|
| 552 | case 'A':
|
---|
| 553 | {
|
---|
| 554 | mrb_value *p;
|
---|
| 555 |
|
---|
| 556 | p = va_arg(ap, mrb_value*);
|
---|
| 557 | if (*format == '!') {
|
---|
| 558 | format++;
|
---|
| 559 | if (i < argc && mrb_nil_p(*sp)) {
|
---|
| 560 | *p = *sp++;
|
---|
| 561 | i++;
|
---|
| 562 | break;
|
---|
| 563 | }
|
---|
| 564 | }
|
---|
| 565 | if (i < argc) {
|
---|
| 566 | *p = to_ary(mrb, *sp++);
|
---|
| 567 | i++;
|
---|
| 568 | }
|
---|
| 569 | }
|
---|
| 570 | break;
|
---|
| 571 | case 'H':
|
---|
| 572 | {
|
---|
| 573 | mrb_value *p;
|
---|
| 574 |
|
---|
| 575 | p = va_arg(ap, mrb_value*);
|
---|
| 576 | if (*format == '!') {
|
---|
| 577 | format++;
|
---|
| 578 | if (i < argc && mrb_nil_p(*sp)) {
|
---|
| 579 | *p = *sp++;
|
---|
| 580 | i++;
|
---|
| 581 | break;
|
---|
| 582 | }
|
---|
| 583 | }
|
---|
| 584 | if (i < argc) {
|
---|
| 585 | *p = to_hash(mrb, *sp++);
|
---|
| 586 | i++;
|
---|
| 587 | }
|
---|
| 588 | }
|
---|
| 589 | break;
|
---|
| 590 | case 's':
|
---|
| 591 | {
|
---|
| 592 | mrb_value ss;
|
---|
| 593 | char **ps = 0;
|
---|
| 594 | mrb_int *pl = 0;
|
---|
| 595 |
|
---|
| 596 | ps = va_arg(ap, char**);
|
---|
| 597 | pl = va_arg(ap, mrb_int*);
|
---|
| 598 | if (*format == '!') {
|
---|
| 599 | format++;
|
---|
| 600 | if (i < argc && mrb_nil_p(*sp)) {
|
---|
| 601 | *ps = NULL;
|
---|
| 602 | *pl = 0;
|
---|
| 603 | i++;
|
---|
| 604 | break;
|
---|
| 605 | }
|
---|
| 606 | }
|
---|
| 607 | if (i < argc) {
|
---|
| 608 | ss = to_str(mrb, *sp++);
|
---|
| 609 | *ps = RSTRING_PTR(ss);
|
---|
| 610 | *pl = RSTRING_LEN(ss);
|
---|
| 611 | i++;
|
---|
| 612 | }
|
---|
| 613 | }
|
---|
| 614 | break;
|
---|
| 615 | case 'z':
|
---|
| 616 | {
|
---|
| 617 | mrb_value ss;
|
---|
| 618 | const char **ps;
|
---|
| 619 |
|
---|
| 620 | ps = va_arg(ap, const char**);
|
---|
| 621 | if (*format == '!') {
|
---|
| 622 | format++;
|
---|
| 623 | if (i < argc && mrb_nil_p(*sp)) {
|
---|
| 624 | *ps = NULL;
|
---|
| 625 | i++; sp++;
|
---|
| 626 | break;
|
---|
| 627 | }
|
---|
| 628 | }
|
---|
| 629 | if (i < argc) {
|
---|
| 630 | ss = to_str(mrb, *sp++);
|
---|
| 631 | *ps = mrb_string_value_cstr(mrb, &ss);
|
---|
| 632 | i++;
|
---|
| 633 | }
|
---|
| 634 | }
|
---|
| 635 | break;
|
---|
| 636 | case 'a':
|
---|
| 637 | {
|
---|
| 638 | mrb_value aa;
|
---|
| 639 | struct RArray *a;
|
---|
| 640 | mrb_value **pb;
|
---|
| 641 | mrb_int *pl;
|
---|
| 642 |
|
---|
| 643 | pb = va_arg(ap, mrb_value**);
|
---|
| 644 | pl = va_arg(ap, mrb_int*);
|
---|
| 645 | if (*format == '!') {
|
---|
| 646 | format++;
|
---|
| 647 | if (i < argc && mrb_nil_p(*sp)) {
|
---|
| 648 | *pb = 0;
|
---|
| 649 | *pl = 0;
|
---|
| 650 | i++; sp++;
|
---|
| 651 | break;
|
---|
| 652 | }
|
---|
| 653 | }
|
---|
| 654 | if (i < argc) {
|
---|
| 655 | aa = to_ary(mrb, *sp++);
|
---|
| 656 | a = mrb_ary_ptr(aa);
|
---|
| 657 | *pb = a->ptr;
|
---|
| 658 | *pl = a->len;
|
---|
| 659 | i++;
|
---|
| 660 | }
|
---|
| 661 | }
|
---|
| 662 | break;
|
---|
| 663 | case 'f':
|
---|
| 664 | {
|
---|
| 665 | mrb_float *p;
|
---|
| 666 |
|
---|
| 667 | p = va_arg(ap, mrb_float*);
|
---|
| 668 | if (i < argc) {
|
---|
| 669 | *p = mrb_to_flo(mrb, *sp);
|
---|
| 670 | sp++;
|
---|
| 671 | i++;
|
---|
| 672 | }
|
---|
| 673 | }
|
---|
| 674 | break;
|
---|
| 675 | case 'i':
|
---|
| 676 | {
|
---|
| 677 | mrb_int *p;
|
---|
| 678 |
|
---|
| 679 | p = va_arg(ap, mrb_int*);
|
---|
| 680 | if (i < argc) {
|
---|
| 681 | switch (mrb_type(*sp)) {
|
---|
| 682 | case MRB_TT_FIXNUM:
|
---|
| 683 | *p = mrb_fixnum(*sp);
|
---|
| 684 | break;
|
---|
| 685 | case MRB_TT_FLOAT:
|
---|
| 686 | {
|
---|
| 687 | mrb_float f = mrb_float(*sp);
|
---|
| 688 |
|
---|
| 689 | if (!FIXABLE(f)) {
|
---|
| 690 | mrb_raise(mrb, E_RANGE_ERROR, "float too big for int");
|
---|
| 691 | }
|
---|
| 692 | *p = (mrb_int)f;
|
---|
| 693 | }
|
---|
| 694 | break;
|
---|
| 695 | case MRB_TT_STRING:
|
---|
| 696 | mrb_raise(mrb, E_TYPE_ERROR, "no implicit conversion of String into Integer");
|
---|
| 697 | break;
|
---|
| 698 | default:
|
---|
| 699 | *p = mrb_fixnum(mrb_Integer(mrb, *sp));
|
---|
| 700 | break;
|
---|
| 701 | }
|
---|
| 702 | sp++;
|
---|
| 703 | i++;
|
---|
| 704 | }
|
---|
| 705 | }
|
---|
| 706 | break;
|
---|
| 707 | case 'b':
|
---|
| 708 | {
|
---|
| 709 | mrb_bool *boolp = va_arg(ap, mrb_bool*);
|
---|
| 710 |
|
---|
| 711 | if (i < argc) {
|
---|
| 712 | mrb_value b = *sp++;
|
---|
| 713 | *boolp = mrb_test(b);
|
---|
| 714 | i++;
|
---|
| 715 | }
|
---|
| 716 | }
|
---|
| 717 | break;
|
---|
| 718 | case 'n':
|
---|
| 719 | {
|
---|
| 720 | mrb_sym *symp;
|
---|
| 721 |
|
---|
| 722 | symp = va_arg(ap, mrb_sym*);
|
---|
| 723 | if (i < argc) {
|
---|
| 724 | mrb_value ss;
|
---|
| 725 |
|
---|
| 726 | ss = *sp++;
|
---|
| 727 | *symp = to_sym(mrb, ss);
|
---|
| 728 | i++;
|
---|
| 729 | }
|
---|
| 730 | }
|
---|
| 731 | break;
|
---|
| 732 | case 'd':
|
---|
| 733 | {
|
---|
| 734 | void** datap;
|
---|
| 735 | struct mrb_data_type const* type;
|
---|
| 736 |
|
---|
| 737 | datap = va_arg(ap, void**);
|
---|
| 738 | type = va_arg(ap, struct mrb_data_type const*);
|
---|
| 739 | if (*format == '!') {
|
---|
| 740 | format++;
|
---|
| 741 | if (i < argc && mrb_nil_p(*sp)) {
|
---|
| 742 | *datap = 0;
|
---|
| 743 | i++; sp++;
|
---|
| 744 | break;
|
---|
| 745 | }
|
---|
| 746 | }
|
---|
| 747 | if (i < argc) {
|
---|
| 748 | *datap = mrb_data_get_ptr(mrb, *sp++, type);
|
---|
| 749 | ++i;
|
---|
| 750 | }
|
---|
| 751 | }
|
---|
| 752 | break;
|
---|
| 753 |
|
---|
| 754 | case '&':
|
---|
| 755 | {
|
---|
| 756 | mrb_value *p, *bp;
|
---|
| 757 |
|
---|
| 758 | p = va_arg(ap, mrb_value*);
|
---|
| 759 | if (mrb->c->ci->argc < 0) {
|
---|
| 760 | bp = mrb->c->stack + 2;
|
---|
| 761 | }
|
---|
| 762 | else {
|
---|
| 763 | bp = mrb->c->stack + mrb->c->ci->argc + 1;
|
---|
| 764 | }
|
---|
| 765 | *p = *bp;
|
---|
| 766 | }
|
---|
| 767 | break;
|
---|
| 768 | case '|':
|
---|
| 769 | opt = TRUE;
|
---|
| 770 | break;
|
---|
| 771 | case '?':
|
---|
| 772 | {
|
---|
| 773 | mrb_bool *p;
|
---|
| 774 |
|
---|
| 775 | p = va_arg(ap, mrb_bool*);
|
---|
| 776 | *p = given;
|
---|
| 777 | }
|
---|
| 778 | break;
|
---|
| 779 |
|
---|
| 780 | case '*':
|
---|
| 781 | {
|
---|
| 782 | mrb_value **var;
|
---|
| 783 | mrb_int *pl;
|
---|
| 784 |
|
---|
| 785 | var = va_arg(ap, mrb_value**);
|
---|
| 786 | pl = va_arg(ap, mrb_int*);
|
---|
| 787 | if (argc > i) {
|
---|
| 788 | *pl = argc-i;
|
---|
| 789 | if (*pl > 0) {
|
---|
| 790 | *var = sp;
|
---|
| 791 | }
|
---|
| 792 | i = argc;
|
---|
| 793 | sp += *pl;
|
---|
| 794 | }
|
---|
| 795 | else {
|
---|
| 796 | *pl = 0;
|
---|
| 797 | *var = NULL;
|
---|
| 798 | }
|
---|
| 799 | }
|
---|
| 800 | break;
|
---|
| 801 | default:
|
---|
| 802 | mrb_raisef(mrb, E_ARGUMENT_ERROR, "invalid argument specifier %S", mrb_str_new(mrb, &c, 1));
|
---|
| 803 | break;
|
---|
| 804 | }
|
---|
| 805 | }
|
---|
| 806 | if (!c && argc > i) {
|
---|
| 807 | mrb_raise(mrb, E_ARGUMENT_ERROR, "wrong number of arguments");
|
---|
| 808 | }
|
---|
| 809 | va_end(ap);
|
---|
| 810 | return i;
|
---|
| 811 | }
|
---|
| 812 |
|
---|
| 813 | static struct RClass*
|
---|
| 814 | boot_defclass(mrb_state *mrb, struct RClass *super)
|
---|
| 815 | {
|
---|
| 816 | struct RClass *c;
|
---|
| 817 |
|
---|
| 818 | c = (struct RClass*)mrb_obj_alloc(mrb, MRB_TT_CLASS, mrb->class_class);
|
---|
| 819 | if (super) {
|
---|
| 820 | c->super = super;
|
---|
| 821 | mrb_field_write_barrier(mrb, (struct RBasic*)c, (struct RBasic*)super);
|
---|
| 822 | }
|
---|
| 823 | else {
|
---|
| 824 | c->super = mrb->object_class;
|
---|
| 825 | }
|
---|
| 826 | c->mt = kh_init(mt, mrb);
|
---|
| 827 | return c;
|
---|
| 828 | }
|
---|
| 829 |
|
---|
| 830 | static void
|
---|
| 831 | boot_initmod(mrb_state *mrb, struct RClass *mod)
|
---|
| 832 | {
|
---|
| 833 | mod->mt = kh_init(mt, mrb);
|
---|
| 834 | }
|
---|
| 835 |
|
---|
| 836 | static struct RClass*
|
---|
| 837 | include_class_new(mrb_state *mrb, struct RClass *m, struct RClass *super)
|
---|
| 838 | {
|
---|
| 839 | struct RClass *ic = (struct RClass*)mrb_obj_alloc(mrb, MRB_TT_ICLASS, mrb->class_class);
|
---|
| 840 | if (m->tt == MRB_TT_ICLASS) {
|
---|
| 841 | m = m->c;
|
---|
| 842 | }
|
---|
| 843 | MRB_CLASS_ORIGIN(m);
|
---|
| 844 | ic->iv = m->iv;
|
---|
| 845 | ic->mt = m->mt;
|
---|
| 846 | ic->super = super;
|
---|
| 847 | if (m->tt == MRB_TT_ICLASS) {
|
---|
| 848 | ic->c = m->c;
|
---|
| 849 | } else {
|
---|
| 850 | ic->c = m;
|
---|
| 851 | }
|
---|
| 852 | return ic;
|
---|
| 853 | }
|
---|
| 854 |
|
---|
| 855 | static int
|
---|
| 856 | include_module_at(mrb_state *mrb, struct RClass *c, struct RClass *ins_pos, struct RClass *m, int search_super)
|
---|
| 857 | {
|
---|
| 858 | struct RClass *p, *ic;
|
---|
| 859 | void *klass_mt = find_origin(c)->mt;
|
---|
| 860 |
|
---|
| 861 | while (m) {
|
---|
| 862 | int superclass_seen = 0;
|
---|
| 863 |
|
---|
| 864 | if (m->flags & MRB_FLAG_IS_PREPENDED)
|
---|
| 865 | goto skip;
|
---|
| 866 |
|
---|
| 867 | if (klass_mt && klass_mt == m->mt)
|
---|
| 868 | return -1;
|
---|
| 869 |
|
---|
| 870 | p = c->super;
|
---|
| 871 | while(p) {
|
---|
| 872 | if (p->tt == MRB_TT_ICLASS) {
|
---|
| 873 | if (p->mt == m->mt) {
|
---|
| 874 | if (!superclass_seen) {
|
---|
| 875 | ins_pos = p; // move insert point
|
---|
| 876 | }
|
---|
| 877 | goto skip;
|
---|
| 878 | }
|
---|
| 879 | } else if (p->tt == MRB_TT_CLASS) {
|
---|
| 880 | if (!search_super) break;
|
---|
| 881 | superclass_seen = 1;
|
---|
| 882 | }
|
---|
| 883 | p = p->super;
|
---|
| 884 | }
|
---|
| 885 |
|
---|
| 886 | ic = include_class_new(mrb, m, ins_pos->super);
|
---|
| 887 | ins_pos->super = ic;
|
---|
| 888 | mrb_field_write_barrier(mrb, (struct RBasic*)ins_pos, (struct RBasic*)ins_pos->super);
|
---|
| 889 | ins_pos = ic;
|
---|
| 890 | skip:
|
---|
| 891 | m = m->super;
|
---|
| 892 | }
|
---|
| 893 | return 0;
|
---|
| 894 | }
|
---|
| 895 |
|
---|
| 896 | MRB_API void
|
---|
| 897 | mrb_include_module(mrb_state *mrb, struct RClass *c, struct RClass *m)
|
---|
| 898 | {
|
---|
| 899 | int changed = include_module_at(mrb, c, find_origin(c), m, 1);
|
---|
| 900 | if (changed < 0) {
|
---|
| 901 | mrb_raise(mrb, E_ARGUMENT_ERROR, "cyclic include detected");
|
---|
| 902 | }
|
---|
| 903 | }
|
---|
| 904 |
|
---|
| 905 | MRB_API void
|
---|
| 906 | mrb_prepend_module(mrb_state *mrb, struct RClass *c, struct RClass *m)
|
---|
| 907 | {
|
---|
| 908 | struct RClass *origin;
|
---|
| 909 | int changed = 0;
|
---|
| 910 |
|
---|
| 911 | if (!(c->flags & MRB_FLAG_IS_PREPENDED)) {
|
---|
| 912 | origin = (struct RClass*)mrb_obj_alloc(mrb, MRB_TT_ICLASS, c);
|
---|
| 913 | origin->flags |= MRB_FLAG_IS_ORIGIN;
|
---|
| 914 | origin->super = c->super;
|
---|
| 915 | c->super = origin;
|
---|
| 916 | origin->mt = c->mt;
|
---|
| 917 | c->mt = kh_init(mt, mrb);
|
---|
| 918 | mrb_field_write_barrier(mrb, (struct RBasic*)c, (struct RBasic*)origin);
|
---|
| 919 | c->flags |= MRB_FLAG_IS_PREPENDED;
|
---|
| 920 | }
|
---|
| 921 | changed = include_module_at(mrb, c, c, m, 0);
|
---|
| 922 | if (changed < 0) {
|
---|
| 923 | mrb_raise(mrb, E_ARGUMENT_ERROR, "cyclic prepend detected");
|
---|
| 924 | }
|
---|
| 925 | }
|
---|
| 926 |
|
---|
| 927 | static mrb_value
|
---|
| 928 | mrb_mod_prepend_features(mrb_state *mrb, mrb_value mod)
|
---|
| 929 | {
|
---|
| 930 | mrb_value klass;
|
---|
| 931 |
|
---|
| 932 | mrb_check_type(mrb, mod, MRB_TT_MODULE);
|
---|
| 933 | mrb_get_args(mrb, "C", &klass);
|
---|
| 934 | mrb_prepend_module(mrb, mrb_class_ptr(klass), mrb_class_ptr(mod));
|
---|
| 935 | return mod;
|
---|
| 936 | }
|
---|
| 937 |
|
---|
| 938 | static mrb_value
|
---|
| 939 | mrb_mod_prepend(mrb_state *mrb, mrb_value klass)
|
---|
| 940 | {
|
---|
| 941 | mrb_value *argv;
|
---|
| 942 | mrb_int argc, i;
|
---|
| 943 |
|
---|
| 944 | mrb_get_args(mrb, "*", &argv, &argc);
|
---|
| 945 | for (i=0; i<argc; i++) {
|
---|
| 946 | mrb_check_type(mrb, argv[i], MRB_TT_MODULE);
|
---|
| 947 | }
|
---|
| 948 | while (argc--) {
|
---|
| 949 | mrb_funcall(mrb, argv[argc], "prepend_features", 1, klass);
|
---|
| 950 | mrb_funcall(mrb, argv[argc], "prepended", 1, klass);
|
---|
| 951 | }
|
---|
| 952 |
|
---|
| 953 | return klass;
|
---|
| 954 | }
|
---|
| 955 |
|
---|
| 956 | static mrb_value
|
---|
| 957 | mrb_mod_append_features(mrb_state *mrb, mrb_value mod)
|
---|
| 958 | {
|
---|
| 959 | mrb_value klass;
|
---|
| 960 |
|
---|
| 961 | mrb_check_type(mrb, mod, MRB_TT_MODULE);
|
---|
| 962 | mrb_get_args(mrb, "C", &klass);
|
---|
| 963 | mrb_include_module(mrb, mrb_class_ptr(klass), mrb_class_ptr(mod));
|
---|
| 964 | return mod;
|
---|
| 965 | }
|
---|
| 966 |
|
---|
| 967 | static mrb_value
|
---|
| 968 | mrb_mod_include(mrb_state *mrb, mrb_value klass)
|
---|
| 969 | {
|
---|
| 970 | mrb_value *argv;
|
---|
| 971 | mrb_int argc, i;
|
---|
| 972 |
|
---|
| 973 | mrb_get_args(mrb, "*", &argv, &argc);
|
---|
| 974 | for (i=0; i<argc; i++) {
|
---|
| 975 | mrb_check_type(mrb, argv[i], MRB_TT_MODULE);
|
---|
| 976 | }
|
---|
| 977 | while (argc--) {
|
---|
| 978 | mrb_funcall(mrb, argv[argc], "append_features", 1, klass);
|
---|
| 979 | mrb_funcall(mrb, argv[argc], "included", 1, klass);
|
---|
| 980 | }
|
---|
| 981 |
|
---|
| 982 | return klass;
|
---|
| 983 | }
|
---|
| 984 |
|
---|
| 985 | /* 15.2.2.4.28 */
|
---|
| 986 | /*
|
---|
| 987 | * call-seq:
|
---|
| 988 | * mod.include?(module) -> true or false
|
---|
| 989 | *
|
---|
| 990 | * Returns <code>true</code> if <i>module</i> is included in
|
---|
| 991 | * <i>mod</i> or one of <i>mod</i>'s ancestors.
|
---|
| 992 | *
|
---|
| 993 | * module A
|
---|
| 994 | * end
|
---|
| 995 | * class B
|
---|
| 996 | * include A
|
---|
| 997 | * end
|
---|
| 998 | * class C < B
|
---|
| 999 | * end
|
---|
| 1000 | * B.include?(A) #=> true
|
---|
| 1001 | * C.include?(A) #=> true
|
---|
| 1002 | * A.include?(A) #=> false
|
---|
| 1003 | */
|
---|
| 1004 | static mrb_value
|
---|
| 1005 | mrb_mod_include_p(mrb_state *mrb, mrb_value mod)
|
---|
| 1006 | {
|
---|
| 1007 | mrb_value mod2;
|
---|
| 1008 | struct RClass *c = mrb_class_ptr(mod);
|
---|
| 1009 |
|
---|
| 1010 | mrb_get_args(mrb, "C", &mod2);
|
---|
| 1011 | mrb_check_type(mrb, mod2, MRB_TT_MODULE);
|
---|
| 1012 |
|
---|
| 1013 | while (c) {
|
---|
| 1014 | if (c->tt == MRB_TT_ICLASS) {
|
---|
| 1015 | if (c->c == mrb_class_ptr(mod2)) return mrb_true_value();
|
---|
| 1016 | }
|
---|
| 1017 | c = c->super;
|
---|
| 1018 | }
|
---|
| 1019 | return mrb_false_value();
|
---|
| 1020 | }
|
---|
| 1021 |
|
---|
| 1022 | static mrb_value
|
---|
| 1023 | mrb_mod_ancestors(mrb_state *mrb, mrb_value self)
|
---|
| 1024 | {
|
---|
| 1025 | mrb_value result;
|
---|
| 1026 | struct RClass *c = mrb_class_ptr(self);
|
---|
| 1027 | result = mrb_ary_new(mrb);
|
---|
| 1028 | while (c) {
|
---|
| 1029 | if (c->tt == MRB_TT_ICLASS) {
|
---|
| 1030 | mrb_ary_push(mrb, result, mrb_obj_value(c->c));
|
---|
| 1031 | }
|
---|
| 1032 | else if (!(c->flags & MRB_FLAG_IS_PREPENDED)) {
|
---|
| 1033 | mrb_ary_push(mrb, result, mrb_obj_value(c));
|
---|
| 1034 | }
|
---|
| 1035 | c = c->super;
|
---|
| 1036 | }
|
---|
| 1037 |
|
---|
| 1038 | return result;
|
---|
| 1039 | }
|
---|
| 1040 |
|
---|
| 1041 | static mrb_value
|
---|
| 1042 | mrb_mod_extend_object(mrb_state *mrb, mrb_value mod)
|
---|
| 1043 | {
|
---|
| 1044 | mrb_value obj;
|
---|
| 1045 |
|
---|
| 1046 | mrb_check_type(mrb, mod, MRB_TT_MODULE);
|
---|
| 1047 | mrb_get_args(mrb, "o", &obj);
|
---|
| 1048 | mrb_include_module(mrb, mrb_class_ptr(mrb_singleton_class(mrb, obj)), mrb_class_ptr(mod));
|
---|
| 1049 | return mod;
|
---|
| 1050 | }
|
---|
| 1051 |
|
---|
| 1052 | static mrb_value
|
---|
| 1053 | mrb_mod_included_modules(mrb_state *mrb, mrb_value self)
|
---|
| 1054 | {
|
---|
| 1055 | mrb_value result;
|
---|
| 1056 | struct RClass *c = mrb_class_ptr(self);
|
---|
| 1057 | struct RClass *origin = c;
|
---|
| 1058 |
|
---|
| 1059 | MRB_CLASS_ORIGIN(origin);
|
---|
| 1060 | result = mrb_ary_new(mrb);
|
---|
| 1061 | while (c) {
|
---|
| 1062 | if (c != origin && c->tt == MRB_TT_ICLASS) {
|
---|
| 1063 | if (c->c->tt == MRB_TT_MODULE) {
|
---|
| 1064 | mrb_ary_push(mrb, result, mrb_obj_value(c->c));
|
---|
| 1065 | }
|
---|
| 1066 | }
|
---|
| 1067 | c = c->super;
|
---|
| 1068 | }
|
---|
| 1069 |
|
---|
| 1070 | return result;
|
---|
| 1071 | }
|
---|
| 1072 |
|
---|
| 1073 | static mrb_value
|
---|
| 1074 | mrb_mod_initialize(mrb_state *mrb, mrb_value mod)
|
---|
| 1075 | {
|
---|
| 1076 | mrb_value b;
|
---|
| 1077 | struct RClass *m = mrb_class_ptr(mod);
|
---|
| 1078 | boot_initmod(mrb, m); // bootstrap a newly initialized module
|
---|
| 1079 | mrb_get_args(mrb, "|&", &b);
|
---|
| 1080 | if (!mrb_nil_p(b)) {
|
---|
| 1081 | mrb_yield_with_class(mrb, b, 1, &mod, mod, m);
|
---|
| 1082 | }
|
---|
| 1083 | return mod;
|
---|
| 1084 | }
|
---|
| 1085 |
|
---|
| 1086 | mrb_value mrb_class_instance_method_list(mrb_state*, mrb_bool, struct RClass*, int);
|
---|
| 1087 |
|
---|
| 1088 | /* 15.2.2.4.33 */
|
---|
| 1089 | /*
|
---|
| 1090 | * call-seq:
|
---|
| 1091 | * mod.instance_methods(include_super=true) -> array
|
---|
| 1092 | *
|
---|
| 1093 | * Returns an array containing the names of the public and protected instance
|
---|
| 1094 | * methods in the receiver. For a module, these are the public and protected methods;
|
---|
| 1095 | * for a class, they are the instance (not singleton) methods. With no
|
---|
| 1096 | * argument, or with an argument that is <code>false</code>, the
|
---|
| 1097 | * instance methods in <i>mod</i> are returned, otherwise the methods
|
---|
| 1098 | * in <i>mod</i> and <i>mod</i>'s superclasses are returned.
|
---|
| 1099 | *
|
---|
| 1100 | * module A
|
---|
| 1101 | * def method1() end
|
---|
| 1102 | * end
|
---|
| 1103 | * class B
|
---|
| 1104 | * def method2() end
|
---|
| 1105 | * end
|
---|
| 1106 | * class C < B
|
---|
| 1107 | * def method3() end
|
---|
| 1108 | * end
|
---|
| 1109 | *
|
---|
| 1110 | * A.instance_methods #=> [:method1]
|
---|
| 1111 | * B.instance_methods(false) #=> [:method2]
|
---|
| 1112 | * C.instance_methods(false) #=> [:method3]
|
---|
| 1113 | * C.instance_methods(true).length #=> 43
|
---|
| 1114 | */
|
---|
| 1115 |
|
---|
| 1116 | static mrb_value
|
---|
| 1117 | mrb_mod_instance_methods(mrb_state *mrb, mrb_value mod)
|
---|
| 1118 | {
|
---|
| 1119 | struct RClass *c = mrb_class_ptr(mod);
|
---|
| 1120 | mrb_bool recur = TRUE;
|
---|
| 1121 | mrb_get_args(mrb, "|b", &recur);
|
---|
| 1122 | return mrb_class_instance_method_list(mrb, recur, c, 0);
|
---|
| 1123 | }
|
---|
| 1124 |
|
---|
| 1125 | /* implementation of module_eval/class_eval */
|
---|
| 1126 | mrb_value mrb_mod_module_eval(mrb_state*, mrb_value);
|
---|
| 1127 |
|
---|
| 1128 | static mrb_value
|
---|
| 1129 | mrb_mod_dummy_visibility(mrb_state *mrb, mrb_value mod)
|
---|
| 1130 | {
|
---|
| 1131 | return mod;
|
---|
| 1132 | }
|
---|
| 1133 |
|
---|
| 1134 | MRB_API mrb_value
|
---|
| 1135 | mrb_singleton_class(mrb_state *mrb, mrb_value v)
|
---|
| 1136 | {
|
---|
| 1137 | struct RBasic *obj;
|
---|
| 1138 |
|
---|
| 1139 | switch (mrb_type(v)) {
|
---|
| 1140 | case MRB_TT_FALSE:
|
---|
| 1141 | if (mrb_nil_p(v))
|
---|
| 1142 | return mrb_obj_value(mrb->nil_class);
|
---|
| 1143 | return mrb_obj_value(mrb->false_class);
|
---|
| 1144 | case MRB_TT_TRUE:
|
---|
| 1145 | return mrb_obj_value(mrb->true_class);
|
---|
| 1146 | case MRB_TT_CPTR:
|
---|
| 1147 | return mrb_obj_value(mrb->object_class);
|
---|
| 1148 | case MRB_TT_SYMBOL:
|
---|
| 1149 | case MRB_TT_FIXNUM:
|
---|
| 1150 | case MRB_TT_FLOAT:
|
---|
| 1151 | mrb_raise(mrb, E_TYPE_ERROR, "can't define singleton");
|
---|
| 1152 | return mrb_nil_value(); /* not reached */
|
---|
| 1153 | default:
|
---|
| 1154 | break;
|
---|
| 1155 | }
|
---|
| 1156 | obj = mrb_basic_ptr(v);
|
---|
| 1157 | prepare_singleton_class(mrb, obj);
|
---|
| 1158 | if (mrb->c && mrb->c->ci && mrb->c->ci->target_class) {
|
---|
| 1159 | mrb_obj_iv_set(mrb, (struct RObject*)obj->c, mrb_intern_lit(mrb, "__outer__"),
|
---|
| 1160 | mrb_obj_value(mrb->c->ci->target_class));
|
---|
| 1161 | }
|
---|
| 1162 | return mrb_obj_value(obj->c);
|
---|
| 1163 | }
|
---|
| 1164 |
|
---|
| 1165 | MRB_API void
|
---|
| 1166 | mrb_define_singleton_method(mrb_state *mrb, struct RObject *o, const char *name, mrb_func_t func, mrb_aspec aspec)
|
---|
| 1167 | {
|
---|
| 1168 | prepare_singleton_class(mrb, (struct RBasic*)o);
|
---|
| 1169 | mrb_define_method_id(mrb, o->c, mrb_intern_cstr(mrb, name), func, aspec);
|
---|
| 1170 | }
|
---|
| 1171 |
|
---|
| 1172 | MRB_API void
|
---|
| 1173 | mrb_define_class_method(mrb_state *mrb, struct RClass *c, const char *name, mrb_func_t func, mrb_aspec aspec)
|
---|
| 1174 | {
|
---|
| 1175 | mrb_define_singleton_method(mrb, (struct RObject*)c, name, func, aspec);
|
---|
| 1176 | }
|
---|
| 1177 |
|
---|
| 1178 | MRB_API void
|
---|
| 1179 | mrb_define_module_function(mrb_state *mrb, struct RClass *c, const char *name, mrb_func_t func, mrb_aspec aspec)
|
---|
| 1180 | {
|
---|
| 1181 | mrb_define_class_method(mrb, c, name, func, aspec);
|
---|
| 1182 | mrb_define_method(mrb, c, name, func, aspec);
|
---|
| 1183 | }
|
---|
| 1184 |
|
---|
| 1185 | MRB_API struct RProc*
|
---|
| 1186 | mrb_method_search_vm(mrb_state *mrb, struct RClass **cp, mrb_sym mid)
|
---|
| 1187 | {
|
---|
| 1188 | khiter_t k;
|
---|
| 1189 | struct RProc *m;
|
---|
| 1190 | struct RClass *c = *cp;
|
---|
| 1191 |
|
---|
| 1192 | while (c) {
|
---|
| 1193 | khash_t(mt) *h = c->mt;
|
---|
| 1194 |
|
---|
| 1195 | if (h) {
|
---|
| 1196 | k = kh_get(mt, mrb, h, mid);
|
---|
| 1197 | if (k != kh_end(h)) {
|
---|
| 1198 | m = kh_value(h, k);
|
---|
| 1199 | if (!m) break;
|
---|
| 1200 | *cp = c;
|
---|
| 1201 | return m;
|
---|
| 1202 | }
|
---|
| 1203 | }
|
---|
| 1204 | c = c->super;
|
---|
| 1205 | }
|
---|
| 1206 | return NULL; /* no method */
|
---|
| 1207 | }
|
---|
| 1208 |
|
---|
| 1209 | MRB_API struct RProc*
|
---|
| 1210 | mrb_method_search(mrb_state *mrb, struct RClass* c, mrb_sym mid)
|
---|
| 1211 | {
|
---|
| 1212 | struct RProc *m;
|
---|
| 1213 |
|
---|
| 1214 | m = mrb_method_search_vm(mrb, &c, mid);
|
---|
| 1215 | if (!m) {
|
---|
| 1216 | mrb_value inspect = mrb_funcall(mrb, mrb_obj_value(c), "inspect", 0);
|
---|
| 1217 | if (mrb_string_p(inspect) && RSTRING_LEN(inspect) > 64) {
|
---|
| 1218 | inspect = mrb_any_to_s(mrb, mrb_obj_value(c));
|
---|
| 1219 | }
|
---|
| 1220 | mrb_name_error(mrb, mid, "undefined method '%S' for class %S",
|
---|
| 1221 | mrb_sym2str(mrb, mid), inspect);
|
---|
| 1222 | }
|
---|
| 1223 | return m;
|
---|
| 1224 | }
|
---|
| 1225 |
|
---|
| 1226 | static mrb_value
|
---|
| 1227 | attr_reader(mrb_state *mrb, mrb_value obj)
|
---|
| 1228 | {
|
---|
| 1229 | mrb_value name = mrb_proc_cfunc_env_get(mrb, 0);
|
---|
| 1230 | return mrb_iv_get(mrb, obj, to_sym(mrb, name));
|
---|
| 1231 | }
|
---|
| 1232 |
|
---|
| 1233 | static mrb_value
|
---|
| 1234 | mrb_mod_attr_reader(mrb_state *mrb, mrb_value mod)
|
---|
| 1235 | {
|
---|
| 1236 | struct RClass *c = mrb_class_ptr(mod);
|
---|
| 1237 | mrb_value *argv;
|
---|
| 1238 | mrb_int argc, i;
|
---|
| 1239 | int ai;
|
---|
| 1240 |
|
---|
| 1241 | mrb_get_args(mrb, "*", &argv, &argc);
|
---|
| 1242 | ai = mrb_gc_arena_save(mrb);
|
---|
| 1243 | for (i=0; i<argc; i++) {
|
---|
| 1244 | mrb_value name, str;
|
---|
| 1245 | mrb_sym method, sym;
|
---|
| 1246 |
|
---|
| 1247 | method = to_sym(mrb, argv[i]);
|
---|
| 1248 | name = mrb_sym2str(mrb, method);
|
---|
| 1249 | str = mrb_str_buf_new(mrb, RSTRING_LEN(name)+1);
|
---|
| 1250 | mrb_str_cat_lit(mrb, str, "@");
|
---|
| 1251 | mrb_str_cat_str(mrb, str, name);
|
---|
| 1252 | sym = mrb_intern_str(mrb, str);
|
---|
| 1253 | mrb_iv_check(mrb, sym);
|
---|
| 1254 | name = mrb_symbol_value(sym);
|
---|
| 1255 | mrb_define_method_raw(mrb, c, method,
|
---|
| 1256 | mrb_proc_new_cfunc_with_env(mrb, attr_reader, 1, &name));
|
---|
| 1257 | mrb_gc_arena_restore(mrb, ai);
|
---|
| 1258 | }
|
---|
| 1259 | return mrb_nil_value();
|
---|
| 1260 | }
|
---|
| 1261 |
|
---|
| 1262 | static mrb_value
|
---|
| 1263 | attr_writer(mrb_state *mrb, mrb_value obj)
|
---|
| 1264 | {
|
---|
| 1265 | mrb_value name = mrb_proc_cfunc_env_get(mrb, 0);
|
---|
| 1266 | mrb_value val;
|
---|
| 1267 |
|
---|
| 1268 | mrb_get_args(mrb, "o", &val);
|
---|
| 1269 | mrb_iv_set(mrb, obj, to_sym(mrb, name), val);
|
---|
| 1270 | return val;
|
---|
| 1271 | }
|
---|
| 1272 |
|
---|
| 1273 | static mrb_value
|
---|
| 1274 | mrb_mod_attr_writer(mrb_state *mrb, mrb_value mod)
|
---|
| 1275 | {
|
---|
| 1276 | struct RClass *c = mrb_class_ptr(mod);
|
---|
| 1277 | mrb_value *argv;
|
---|
| 1278 | mrb_int argc, i;
|
---|
| 1279 | int ai;
|
---|
| 1280 |
|
---|
| 1281 | mrb_get_args(mrb, "*", &argv, &argc);
|
---|
| 1282 | ai = mrb_gc_arena_save(mrb);
|
---|
| 1283 | for (i=0; i<argc; i++) {
|
---|
| 1284 | mrb_value name, str, attr;
|
---|
| 1285 | mrb_sym method, sym;
|
---|
| 1286 |
|
---|
| 1287 | method = to_sym(mrb, argv[i]);
|
---|
| 1288 |
|
---|
| 1289 | /* prepare iv name (@name) */
|
---|
| 1290 | name = mrb_sym2str(mrb, method);
|
---|
| 1291 | str = mrb_str_buf_new(mrb, RSTRING_LEN(name)+1);
|
---|
| 1292 | mrb_str_cat_lit(mrb, str, "@");
|
---|
| 1293 | mrb_str_cat_str(mrb, str, name);
|
---|
| 1294 | sym = mrb_intern_str(mrb, str);
|
---|
| 1295 | mrb_iv_check(mrb, sym);
|
---|
| 1296 | attr = mrb_symbol_value(sym);
|
---|
| 1297 |
|
---|
| 1298 | /* prepare method name (name=) */
|
---|
| 1299 | str = mrb_str_buf_new(mrb, RSTRING_LEN(str));
|
---|
| 1300 | mrb_str_cat_str(mrb, str, name);
|
---|
| 1301 | mrb_str_cat_lit(mrb, str, "=");
|
---|
| 1302 | method = mrb_intern_str(mrb, str);
|
---|
| 1303 |
|
---|
| 1304 | mrb_define_method_raw(mrb, c, method,
|
---|
| 1305 | mrb_proc_new_cfunc_with_env(mrb, attr_writer, 1, &attr));
|
---|
| 1306 | mrb_gc_arena_restore(mrb, ai);
|
---|
| 1307 | }
|
---|
| 1308 | return mrb_nil_value();
|
---|
| 1309 | }
|
---|
| 1310 |
|
---|
| 1311 | static mrb_value
|
---|
| 1312 | mrb_instance_alloc(mrb_state *mrb, mrb_value cv)
|
---|
| 1313 | {
|
---|
| 1314 | struct RClass *c = mrb_class_ptr(cv);
|
---|
| 1315 | struct RObject *o;
|
---|
| 1316 | enum mrb_vtype ttype = MRB_INSTANCE_TT(c);
|
---|
| 1317 |
|
---|
| 1318 | if (c->tt == MRB_TT_SCLASS)
|
---|
| 1319 | mrb_raise(mrb, E_TYPE_ERROR, "can't create instance of singleton class");
|
---|
| 1320 |
|
---|
| 1321 | if (ttype == 0) ttype = MRB_TT_OBJECT;
|
---|
| 1322 | o = (struct RObject*)mrb_obj_alloc(mrb, ttype, c);
|
---|
| 1323 | return mrb_obj_value(o);
|
---|
| 1324 | }
|
---|
| 1325 |
|
---|
| 1326 | /*
|
---|
| 1327 | * call-seq:
|
---|
| 1328 | * class.new(args, ...) -> obj
|
---|
| 1329 | *
|
---|
| 1330 | * Creates a new object of <i>class</i>'s class, then
|
---|
| 1331 | * invokes that object's <code>initialize</code> method,
|
---|
| 1332 | * passing it <i>args</i>. This is the method that ends
|
---|
| 1333 | * up getting called whenever an object is constructed using
|
---|
| 1334 | * `.new`.
|
---|
| 1335 | *
|
---|
| 1336 | */
|
---|
| 1337 |
|
---|
| 1338 | MRB_API mrb_value
|
---|
| 1339 | mrb_instance_new(mrb_state *mrb, mrb_value cv)
|
---|
| 1340 | {
|
---|
| 1341 | mrb_value obj, blk;
|
---|
| 1342 | mrb_value *argv;
|
---|
| 1343 | mrb_int argc;
|
---|
| 1344 |
|
---|
| 1345 | mrb_get_args(mrb, "*&", &argv, &argc, &blk);
|
---|
| 1346 | obj = mrb_instance_alloc(mrb, cv);
|
---|
| 1347 | mrb_funcall_with_block(mrb, obj, mrb_intern_lit(mrb, "initialize"), argc, argv, blk);
|
---|
| 1348 |
|
---|
| 1349 | return obj;
|
---|
| 1350 | }
|
---|
| 1351 |
|
---|
| 1352 | MRB_API mrb_value
|
---|
| 1353 | mrb_obj_new(mrb_state *mrb, struct RClass *c, mrb_int argc, const mrb_value *argv)
|
---|
| 1354 | {
|
---|
| 1355 | mrb_value obj;
|
---|
| 1356 |
|
---|
| 1357 | obj = mrb_instance_alloc(mrb, mrb_obj_value(c));
|
---|
| 1358 | mrb_funcall_argv(mrb, obj, mrb_intern_lit(mrb, "initialize"), argc, argv);
|
---|
| 1359 |
|
---|
| 1360 | return obj;
|
---|
| 1361 | }
|
---|
| 1362 |
|
---|
| 1363 | static mrb_value
|
---|
| 1364 | mrb_class_initialize(mrb_state *mrb, mrb_value c)
|
---|
| 1365 | {
|
---|
| 1366 | mrb_value a, b;
|
---|
| 1367 |
|
---|
| 1368 | mrb_get_args(mrb, "|C&", &a, &b);
|
---|
| 1369 | if (!mrb_nil_p(b)) {
|
---|
| 1370 | mrb_yield_with_class(mrb, b, 1, &c, c, mrb_class_ptr(c));
|
---|
| 1371 | }
|
---|
| 1372 | return c;
|
---|
| 1373 | }
|
---|
| 1374 |
|
---|
| 1375 | static mrb_value
|
---|
| 1376 | mrb_class_new_class(mrb_state *mrb, mrb_value cv)
|
---|
| 1377 | {
|
---|
| 1378 | mrb_int n;
|
---|
| 1379 | mrb_value super, blk;
|
---|
| 1380 | mrb_value new_class;
|
---|
| 1381 |
|
---|
| 1382 | n = mrb_get_args(mrb, "|C&", &super, &blk);
|
---|
| 1383 | if (n == 0) {
|
---|
| 1384 | super = mrb_obj_value(mrb->object_class);
|
---|
| 1385 | }
|
---|
| 1386 | new_class = mrb_obj_value(mrb_class_new(mrb, mrb_class_ptr(super)));
|
---|
| 1387 | mrb_funcall_with_block(mrb, new_class, mrb_intern_lit(mrb, "initialize"), n, &super, blk);
|
---|
| 1388 | mrb_class_inherited(mrb, mrb_class_ptr(super), mrb_class_ptr(new_class));
|
---|
| 1389 | return new_class;
|
---|
| 1390 | }
|
---|
| 1391 |
|
---|
| 1392 | static mrb_value
|
---|
| 1393 | mrb_class_superclass(mrb_state *mrb, mrb_value klass)
|
---|
| 1394 | {
|
---|
| 1395 | struct RClass *c;
|
---|
| 1396 |
|
---|
| 1397 | c = mrb_class_ptr(klass);
|
---|
| 1398 | c = find_origin(c)->super;
|
---|
| 1399 | while (c && c->tt == MRB_TT_ICLASS) {
|
---|
| 1400 | c = find_origin(c)->super;
|
---|
| 1401 | }
|
---|
| 1402 | if (!c) return mrb_nil_value();
|
---|
| 1403 | return mrb_obj_value(c);
|
---|
| 1404 | }
|
---|
| 1405 |
|
---|
| 1406 | static mrb_value
|
---|
| 1407 | mrb_bob_init(mrb_state *mrb, mrb_value cv)
|
---|
| 1408 | {
|
---|
| 1409 | return mrb_nil_value();
|
---|
| 1410 | }
|
---|
| 1411 |
|
---|
| 1412 | static mrb_value
|
---|
| 1413 | mrb_bob_not(mrb_state *mrb, mrb_value cv)
|
---|
| 1414 | {
|
---|
| 1415 | return mrb_bool_value(!mrb_test(cv));
|
---|
| 1416 | }
|
---|
| 1417 |
|
---|
| 1418 | void
|
---|
| 1419 | mrb_method_missing(mrb_state *mrb, mrb_sym name, mrb_value self, mrb_value args)
|
---|
| 1420 | {
|
---|
| 1421 | mrb_sym inspect;
|
---|
| 1422 | mrb_value repr;
|
---|
| 1423 |
|
---|
| 1424 | inspect = mrb_intern_lit(mrb, "inspect");
|
---|
| 1425 | if (mrb->c->ci > mrb->c->cibase && mrb->c->ci[-1].mid == inspect) {
|
---|
| 1426 | /* method missing in inspect; avoid recursion */
|
---|
| 1427 | repr = mrb_any_to_s(mrb, self);
|
---|
| 1428 | }
|
---|
| 1429 | else if (mrb_respond_to(mrb, self, inspect) && mrb->c->ci - mrb->c->cibase < 64) {
|
---|
| 1430 | repr = mrb_funcall_argv(mrb, self, inspect, 0, 0);
|
---|
| 1431 | if (mrb_string_p(repr) && RSTRING_LEN(repr) > 64) {
|
---|
| 1432 | repr = mrb_any_to_s(mrb, self);
|
---|
| 1433 | }
|
---|
| 1434 | }
|
---|
| 1435 | else {
|
---|
| 1436 | repr = mrb_any_to_s(mrb, self);
|
---|
| 1437 | }
|
---|
| 1438 |
|
---|
| 1439 | mrb_no_method_error(mrb, name, args, "undefined method '%S' for %S",
|
---|
| 1440 | mrb_sym2str(mrb, name), repr);
|
---|
| 1441 | }
|
---|
| 1442 |
|
---|
| 1443 | /* 15.3.1.3.30 */
|
---|
| 1444 | /*
|
---|
| 1445 | * call-seq:
|
---|
| 1446 | * obj.method_missing(symbol [, *args] ) -> result
|
---|
| 1447 | *
|
---|
| 1448 | * Invoked by Ruby when <i>obj</i> is sent a message it cannot handle.
|
---|
| 1449 | * <i>symbol</i> is the symbol for the method called, and <i>args</i>
|
---|
| 1450 | * are any arguments that were passed to it. By default, the interpreter
|
---|
| 1451 | * raises an error when this method is called. However, it is possible
|
---|
| 1452 | * to override the method to provide more dynamic behavior.
|
---|
| 1453 | * If it is decided that a particular method should not be handled, then
|
---|
| 1454 | * <i>super</i> should be called, so that ancestors can pick up the
|
---|
| 1455 | * missing method.
|
---|
| 1456 | * The example below creates
|
---|
| 1457 | * a class <code>Roman</code>, which responds to methods with names
|
---|
| 1458 | * consisting of roman numerals, returning the corresponding integer
|
---|
| 1459 | * values.
|
---|
| 1460 | *
|
---|
| 1461 | * class Roman
|
---|
| 1462 | * def romanToInt(str)
|
---|
| 1463 | * # ...
|
---|
| 1464 | * end
|
---|
| 1465 | * def method_missing(methId)
|
---|
| 1466 | * str = methId.id2name
|
---|
| 1467 | * romanToInt(str)
|
---|
| 1468 | * end
|
---|
| 1469 | * end
|
---|
| 1470 | *
|
---|
| 1471 | * r = Roman.new
|
---|
| 1472 | * r.iv #=> 4
|
---|
| 1473 | * r.xxiii #=> 23
|
---|
| 1474 | * r.mm #=> 2000
|
---|
| 1475 | */
|
---|
| 1476 | static mrb_value
|
---|
| 1477 | mrb_bob_missing(mrb_state *mrb, mrb_value mod)
|
---|
| 1478 | {
|
---|
| 1479 | mrb_sym name;
|
---|
| 1480 | mrb_value *a;
|
---|
| 1481 | mrb_int alen;
|
---|
| 1482 |
|
---|
| 1483 | mrb_get_args(mrb, "n*", &name, &a, &alen);
|
---|
| 1484 | mrb_method_missing(mrb, name, mod, mrb_ary_new_from_values(mrb, alen, a));
|
---|
| 1485 | /* not reached */
|
---|
| 1486 | return mrb_nil_value();
|
---|
| 1487 | }
|
---|
| 1488 |
|
---|
| 1489 | MRB_API mrb_bool
|
---|
| 1490 | mrb_obj_respond_to(mrb_state *mrb, struct RClass* c, mrb_sym mid)
|
---|
| 1491 | {
|
---|
| 1492 | khiter_t k;
|
---|
| 1493 |
|
---|
| 1494 | while (c) {
|
---|
| 1495 | khash_t(mt) *h = c->mt;
|
---|
| 1496 |
|
---|
| 1497 | if (h) {
|
---|
| 1498 | k = kh_get(mt, mrb, h, mid);
|
---|
| 1499 | if (k != kh_end(h)) {
|
---|
| 1500 | if (kh_value(h, k)) {
|
---|
| 1501 | return TRUE; /* method exists */
|
---|
| 1502 | }
|
---|
| 1503 | else {
|
---|
| 1504 | return FALSE; /* undefined method */
|
---|
| 1505 | }
|
---|
| 1506 | }
|
---|
| 1507 | }
|
---|
| 1508 | c = c->super;
|
---|
| 1509 | }
|
---|
| 1510 | return FALSE; /* no method */
|
---|
| 1511 | }
|
---|
| 1512 |
|
---|
| 1513 | MRB_API mrb_bool
|
---|
| 1514 | mrb_respond_to(mrb_state *mrb, mrb_value obj, mrb_sym mid)
|
---|
| 1515 | {
|
---|
| 1516 | return mrb_obj_respond_to(mrb, mrb_class(mrb, obj), mid);
|
---|
| 1517 | }
|
---|
| 1518 |
|
---|
| 1519 | MRB_API mrb_value
|
---|
| 1520 | mrb_class_path(mrb_state *mrb, struct RClass *c)
|
---|
| 1521 | {
|
---|
| 1522 | mrb_value path;
|
---|
| 1523 | const char *name;
|
---|
| 1524 | mrb_sym classpath = mrb_intern_lit(mrb, "__classpath__");
|
---|
| 1525 |
|
---|
| 1526 | path = mrb_obj_iv_get(mrb, (struct RObject*)c, classpath);
|
---|
| 1527 | if (mrb_nil_p(path)) {
|
---|
| 1528 | struct RClass *outer = mrb_class_outer_module(mrb, c);
|
---|
| 1529 | mrb_sym sym = mrb_class_sym(mrb, c, outer);
|
---|
| 1530 | mrb_int len;
|
---|
| 1531 |
|
---|
| 1532 | if (sym == 0) {
|
---|
| 1533 | return mrb_nil_value();
|
---|
| 1534 | }
|
---|
| 1535 | else if (outer && outer != mrb->object_class) {
|
---|
| 1536 | mrb_value base = mrb_class_path(mrb, outer);
|
---|
| 1537 | path = mrb_str_buf_new(mrb, 0);
|
---|
| 1538 | if (mrb_nil_p(base)) {
|
---|
| 1539 | mrb_str_cat_lit(mrb, path, "#<Class:");
|
---|
| 1540 | mrb_str_concat(mrb, path, mrb_ptr_to_str(mrb, outer));
|
---|
| 1541 | mrb_str_cat_lit(mrb, path, ">");
|
---|
| 1542 | }
|
---|
| 1543 | else {
|
---|
| 1544 | mrb_str_concat(mrb, path, base);
|
---|
| 1545 | }
|
---|
| 1546 | mrb_str_cat_lit(mrb, path, "::");
|
---|
| 1547 | name = mrb_sym2name_len(mrb, sym, &len);
|
---|
| 1548 | mrb_str_cat(mrb, path, name, len);
|
---|
| 1549 | }
|
---|
| 1550 | else {
|
---|
| 1551 | name = mrb_sym2name_len(mrb, sym, &len);
|
---|
| 1552 | path = mrb_str_new(mrb, name, len);
|
---|
| 1553 | }
|
---|
| 1554 | mrb_obj_iv_set(mrb, (struct RObject*)c, classpath, path);
|
---|
| 1555 | }
|
---|
| 1556 | return path;
|
---|
| 1557 | }
|
---|
| 1558 |
|
---|
| 1559 | MRB_API struct RClass *
|
---|
| 1560 | mrb_class_real(struct RClass* cl)
|
---|
| 1561 | {
|
---|
| 1562 | if (cl == 0)
|
---|
| 1563 | return NULL;
|
---|
| 1564 | while ((cl->tt == MRB_TT_SCLASS) || (cl->tt == MRB_TT_ICLASS)) {
|
---|
| 1565 | cl = cl->super;
|
---|
| 1566 | }
|
---|
| 1567 | return cl;
|
---|
| 1568 | }
|
---|
| 1569 |
|
---|
| 1570 | MRB_API const char*
|
---|
| 1571 | mrb_class_name(mrb_state *mrb, struct RClass* c)
|
---|
| 1572 | {
|
---|
| 1573 | mrb_value path = mrb_class_path(mrb, c);
|
---|
| 1574 | if (mrb_nil_p(path)) {
|
---|
| 1575 | path = mrb_str_new_lit(mrb, "#<Class:");
|
---|
| 1576 | mrb_str_concat(mrb, path, mrb_ptr_to_str(mrb, c));
|
---|
| 1577 | mrb_str_cat_lit(mrb, path, ">");
|
---|
| 1578 | }
|
---|
| 1579 | return RSTRING_PTR(path);
|
---|
| 1580 | }
|
---|
| 1581 |
|
---|
| 1582 | MRB_API const char*
|
---|
| 1583 | mrb_obj_classname(mrb_state *mrb, mrb_value obj)
|
---|
| 1584 | {
|
---|
| 1585 | return mrb_class_name(mrb, mrb_obj_class(mrb, obj));
|
---|
| 1586 | }
|
---|
| 1587 |
|
---|
| 1588 | /*!
|
---|
| 1589 | * Ensures a class can be derived from super.
|
---|
| 1590 | *
|
---|
| 1591 | * \param super a reference to an object.
|
---|
| 1592 | * \exception TypeError if \a super is not a Class or \a super is a singleton class.
|
---|
| 1593 | */
|
---|
| 1594 | static void
|
---|
| 1595 | mrb_check_inheritable(mrb_state *mrb, struct RClass *super)
|
---|
| 1596 | {
|
---|
| 1597 | if (super->tt != MRB_TT_CLASS) {
|
---|
| 1598 | mrb_raisef(mrb, E_TYPE_ERROR, "superclass must be a Class (%S given)", mrb_obj_value(super));
|
---|
| 1599 | }
|
---|
| 1600 | if (super->tt == MRB_TT_SCLASS) {
|
---|
| 1601 | mrb_raise(mrb, E_TYPE_ERROR, "can't make subclass of singleton class");
|
---|
| 1602 | }
|
---|
| 1603 | if (super == mrb->class_class) {
|
---|
| 1604 | mrb_raise(mrb, E_TYPE_ERROR, "can't make subclass of Class");
|
---|
| 1605 | }
|
---|
| 1606 | }
|
---|
| 1607 |
|
---|
| 1608 | /*!
|
---|
| 1609 | * Creates a new class.
|
---|
| 1610 | * \param super a class from which the new class derives.
|
---|
| 1611 | * \exception TypeError \a super is not inheritable.
|
---|
| 1612 | * \exception TypeError \a super is the Class class.
|
---|
| 1613 | */
|
---|
| 1614 | MRB_API struct RClass*
|
---|
| 1615 | mrb_class_new(mrb_state *mrb, struct RClass *super)
|
---|
| 1616 | {
|
---|
| 1617 | struct RClass *c;
|
---|
| 1618 |
|
---|
| 1619 | if (super) {
|
---|
| 1620 | mrb_check_inheritable(mrb, super);
|
---|
| 1621 | }
|
---|
| 1622 | c = boot_defclass(mrb, super);
|
---|
| 1623 | if (super) {
|
---|
| 1624 | MRB_SET_INSTANCE_TT(c, MRB_INSTANCE_TT(super));
|
---|
| 1625 | }
|
---|
| 1626 | make_metaclass(mrb, c);
|
---|
| 1627 |
|
---|
| 1628 | return c;
|
---|
| 1629 | }
|
---|
| 1630 |
|
---|
| 1631 | /*!
|
---|
| 1632 | * Creates a new module.
|
---|
| 1633 | */
|
---|
| 1634 | MRB_API struct RClass*
|
---|
| 1635 | mrb_module_new(mrb_state *mrb)
|
---|
| 1636 | {
|
---|
| 1637 | struct RClass *m = (struct RClass*)mrb_obj_alloc(mrb, MRB_TT_MODULE, mrb->module_class);
|
---|
| 1638 | boot_initmod(mrb, m);
|
---|
| 1639 | return m;
|
---|
| 1640 | }
|
---|
| 1641 |
|
---|
| 1642 | /*
|
---|
| 1643 | * call-seq:
|
---|
| 1644 | * obj.class => class
|
---|
| 1645 | *
|
---|
| 1646 | * Returns the class of <i>obj</i>, now preferred over
|
---|
| 1647 | * <code>Object#type</code>, as an object's type in Ruby is only
|
---|
| 1648 | * loosely tied to that object's class. This method must always be
|
---|
| 1649 | * called with an explicit receiver, as <code>class</code> is also a
|
---|
| 1650 | * reserved word in Ruby.
|
---|
| 1651 | *
|
---|
| 1652 | * 1.class #=> Fixnum
|
---|
| 1653 | * self.class #=> Object
|
---|
| 1654 | */
|
---|
| 1655 |
|
---|
| 1656 | MRB_API struct RClass*
|
---|
| 1657 | mrb_obj_class(mrb_state *mrb, mrb_value obj)
|
---|
| 1658 | {
|
---|
| 1659 | return mrb_class_real(mrb_class(mrb, obj));
|
---|
| 1660 | }
|
---|
| 1661 |
|
---|
| 1662 | MRB_API void
|
---|
| 1663 | mrb_alias_method(mrb_state *mrb, struct RClass *c, mrb_sym a, mrb_sym b)
|
---|
| 1664 | {
|
---|
| 1665 | struct RProc *m = mrb_method_search(mrb, c, b);
|
---|
| 1666 |
|
---|
| 1667 | mrb_define_method_raw(mrb, c, a, m);
|
---|
| 1668 | }
|
---|
| 1669 |
|
---|
| 1670 | /*!
|
---|
| 1671 | * Defines an alias of a method.
|
---|
| 1672 | * \param klass the class which the original method belongs to
|
---|
| 1673 | * \param name1 a new name for the method
|
---|
| 1674 | * \param name2 the original name of the method
|
---|
| 1675 | */
|
---|
| 1676 | MRB_API void
|
---|
| 1677 | mrb_define_alias(mrb_state *mrb, struct RClass *klass, const char *name1, const char *name2)
|
---|
| 1678 | {
|
---|
| 1679 | mrb_alias_method(mrb, klass, mrb_intern_cstr(mrb, name1), mrb_intern_cstr(mrb, name2));
|
---|
| 1680 | }
|
---|
| 1681 |
|
---|
| 1682 | /*
|
---|
| 1683 | * call-seq:
|
---|
| 1684 | * mod.to_s -> string
|
---|
| 1685 | *
|
---|
| 1686 | * Return a string representing this module or class. For basic
|
---|
| 1687 | * classes and modules, this is the name. For singletons, we
|
---|
| 1688 | * show information on the thing we're attached to as well.
|
---|
| 1689 | */
|
---|
| 1690 |
|
---|
| 1691 | static mrb_value
|
---|
| 1692 | mrb_mod_to_s(mrb_state *mrb, mrb_value klass)
|
---|
| 1693 | {
|
---|
| 1694 | mrb_value str;
|
---|
| 1695 |
|
---|
| 1696 | if (mrb_type(klass) == MRB_TT_SCLASS) {
|
---|
| 1697 | mrb_value v = mrb_iv_get(mrb, klass, mrb_intern_lit(mrb, "__attached__"));
|
---|
| 1698 |
|
---|
| 1699 | str = mrb_str_new_lit(mrb, "#<Class:");
|
---|
| 1700 |
|
---|
| 1701 | switch (mrb_type(v)) {
|
---|
| 1702 | case MRB_TT_CLASS:
|
---|
| 1703 | case MRB_TT_MODULE:
|
---|
| 1704 | case MRB_TT_SCLASS:
|
---|
| 1705 | mrb_str_cat_str(mrb, str, mrb_inspect(mrb, v));
|
---|
| 1706 | break;
|
---|
| 1707 | default:
|
---|
| 1708 | mrb_str_cat_str(mrb, str, mrb_any_to_s(mrb, v));
|
---|
| 1709 | break;
|
---|
| 1710 | }
|
---|
| 1711 | return mrb_str_cat_lit(mrb, str, ">");
|
---|
| 1712 | }
|
---|
| 1713 | else {
|
---|
| 1714 | struct RClass *c;
|
---|
| 1715 | mrb_value path;
|
---|
| 1716 |
|
---|
| 1717 | str = mrb_str_buf_new(mrb, 32);
|
---|
| 1718 | c = mrb_class_ptr(klass);
|
---|
| 1719 | path = mrb_class_path(mrb, c);
|
---|
| 1720 |
|
---|
| 1721 | if (mrb_nil_p(path)) {
|
---|
| 1722 | switch (mrb_type(klass)) {
|
---|
| 1723 | case MRB_TT_CLASS:
|
---|
| 1724 | mrb_str_cat_lit(mrb, str, "#<Class:");
|
---|
| 1725 | break;
|
---|
| 1726 |
|
---|
| 1727 | case MRB_TT_MODULE:
|
---|
| 1728 | mrb_str_cat_lit(mrb, str, "#<Module:");
|
---|
| 1729 | break;
|
---|
| 1730 |
|
---|
| 1731 | default:
|
---|
| 1732 | /* Shouldn't be happened? */
|
---|
| 1733 | mrb_str_cat_lit(mrb, str, "#<??????:");
|
---|
| 1734 | break;
|
---|
| 1735 | }
|
---|
| 1736 | mrb_str_concat(mrb, str, mrb_ptr_to_str(mrb, c));
|
---|
| 1737 | return mrb_str_cat_lit(mrb, str, ">");
|
---|
| 1738 | }
|
---|
| 1739 | else {
|
---|
| 1740 | return path;
|
---|
| 1741 | }
|
---|
| 1742 | }
|
---|
| 1743 | }
|
---|
| 1744 |
|
---|
| 1745 | static mrb_value
|
---|
| 1746 | mrb_mod_alias(mrb_state *mrb, mrb_value mod)
|
---|
| 1747 | {
|
---|
| 1748 | struct RClass *c = mrb_class_ptr(mod);
|
---|
| 1749 | mrb_sym new_name, old_name;
|
---|
| 1750 |
|
---|
| 1751 | mrb_get_args(mrb, "nn", &new_name, &old_name);
|
---|
| 1752 | mrb_alias_method(mrb, c, new_name, old_name);
|
---|
| 1753 | return mrb_nil_value();
|
---|
| 1754 | }
|
---|
| 1755 |
|
---|
| 1756 | static void
|
---|
| 1757 | undef_method(mrb_state *mrb, struct RClass *c, mrb_sym a)
|
---|
| 1758 | {
|
---|
| 1759 | if (!mrb_obj_respond_to(mrb, c, a)) {
|
---|
| 1760 | mrb_name_error(mrb, a, "undefined method '%S' for class '%S'", mrb_sym2str(mrb, a), mrb_obj_value(c));
|
---|
| 1761 | }
|
---|
| 1762 | else {
|
---|
| 1763 | mrb_define_method_raw(mrb, c, a, NULL);
|
---|
| 1764 | }
|
---|
| 1765 | }
|
---|
| 1766 |
|
---|
| 1767 | MRB_API void
|
---|
| 1768 | mrb_undef_method(mrb_state *mrb, struct RClass *c, const char *name)
|
---|
| 1769 | {
|
---|
| 1770 | undef_method(mrb, c, mrb_intern_cstr(mrb, name));
|
---|
| 1771 | }
|
---|
| 1772 |
|
---|
| 1773 | MRB_API void
|
---|
| 1774 | mrb_undef_class_method(mrb_state *mrb, struct RClass *c, const char *name)
|
---|
| 1775 | {
|
---|
| 1776 | mrb_undef_method(mrb, mrb_class_ptr(mrb_singleton_class(mrb, mrb_obj_value(c))), name);
|
---|
| 1777 | }
|
---|
| 1778 |
|
---|
| 1779 | static mrb_value
|
---|
| 1780 | mrb_mod_undef(mrb_state *mrb, mrb_value mod)
|
---|
| 1781 | {
|
---|
| 1782 | struct RClass *c = mrb_class_ptr(mod);
|
---|
| 1783 | mrb_int argc;
|
---|
| 1784 | mrb_value *argv;
|
---|
| 1785 |
|
---|
| 1786 | mrb_get_args(mrb, "*", &argv, &argc);
|
---|
| 1787 | while (argc--) {
|
---|
| 1788 | undef_method(mrb, c, mrb_symbol(*argv));
|
---|
| 1789 | argv++;
|
---|
| 1790 | }
|
---|
| 1791 | return mrb_nil_value();
|
---|
| 1792 | }
|
---|
| 1793 |
|
---|
| 1794 | static mrb_value
|
---|
| 1795 | mod_define_method(mrb_state *mrb, mrb_value self)
|
---|
| 1796 | {
|
---|
| 1797 | struct RClass *c = mrb_class_ptr(self);
|
---|
| 1798 | struct RProc *p;
|
---|
| 1799 | mrb_sym mid;
|
---|
| 1800 | mrb_value blk;
|
---|
| 1801 |
|
---|
| 1802 | mrb_get_args(mrb, "n&", &mid, &blk);
|
---|
| 1803 | if (mrb_nil_p(blk)) {
|
---|
| 1804 | mrb_raise(mrb, E_ARGUMENT_ERROR, "no block given");
|
---|
| 1805 | }
|
---|
| 1806 | p = (struct RProc*)mrb_obj_alloc(mrb, MRB_TT_PROC, mrb->proc_class);
|
---|
| 1807 | mrb_proc_copy(p, mrb_proc_ptr(blk));
|
---|
| 1808 | p->flags |= MRB_PROC_STRICT;
|
---|
| 1809 | mrb_define_method_raw(mrb, c, mid, p);
|
---|
| 1810 | return mrb_symbol_value(mid);
|
---|
| 1811 | }
|
---|
| 1812 |
|
---|
| 1813 | static void
|
---|
| 1814 | check_cv_name_str(mrb_state *mrb, mrb_value str)
|
---|
| 1815 | {
|
---|
| 1816 | const char *s = RSTRING_PTR(str);
|
---|
| 1817 | mrb_int len = RSTRING_LEN(str);
|
---|
| 1818 |
|
---|
| 1819 | if (len < 3 || !(s[0] == '@' && s[1] == '@')) {
|
---|
| 1820 | mrb_name_error(mrb, mrb_intern_str(mrb, str), "'%S' is not allowed as a class variable name", str);
|
---|
| 1821 | }
|
---|
| 1822 | }
|
---|
| 1823 |
|
---|
| 1824 | static void
|
---|
| 1825 | check_cv_name_sym(mrb_state *mrb, mrb_sym id)
|
---|
| 1826 | {
|
---|
| 1827 | check_cv_name_str(mrb, mrb_sym2str(mrb, id));
|
---|
| 1828 | }
|
---|
| 1829 |
|
---|
| 1830 | /* 15.2.2.4.16 */
|
---|
| 1831 | /*
|
---|
| 1832 | * call-seq:
|
---|
| 1833 | * obj.class_variable_defined?(symbol) -> true or false
|
---|
| 1834 | *
|
---|
| 1835 | * Returns <code>true</code> if the given class variable is defined
|
---|
| 1836 | * in <i>obj</i>.
|
---|
| 1837 | *
|
---|
| 1838 | * class Fred
|
---|
| 1839 | * @@foo = 99
|
---|
| 1840 | * end
|
---|
| 1841 | * Fred.class_variable_defined?(:@@foo) #=> true
|
---|
| 1842 | * Fred.class_variable_defined?(:@@bar) #=> false
|
---|
| 1843 | */
|
---|
| 1844 |
|
---|
| 1845 | static mrb_value
|
---|
| 1846 | mrb_mod_cvar_defined(mrb_state *mrb, mrb_value mod)
|
---|
| 1847 | {
|
---|
| 1848 | mrb_sym id;
|
---|
| 1849 |
|
---|
| 1850 | mrb_get_args(mrb, "n", &id);
|
---|
| 1851 | check_cv_name_sym(mrb, id);
|
---|
| 1852 | return mrb_bool_value(mrb_cv_defined(mrb, mod, id));
|
---|
| 1853 | }
|
---|
| 1854 |
|
---|
| 1855 | /* 15.2.2.4.17 */
|
---|
| 1856 | /*
|
---|
| 1857 | * call-seq:
|
---|
| 1858 | * mod.class_variable_get(symbol) -> obj
|
---|
| 1859 | *
|
---|
| 1860 | * Returns the value of the given class variable (or throws a
|
---|
| 1861 | * <code>NameError</code> exception). The <code>@@</code> part of the
|
---|
| 1862 | * variable name should be included for regular class variables
|
---|
| 1863 | *
|
---|
| 1864 | * class Fred
|
---|
| 1865 | * @@foo = 99
|
---|
| 1866 | * end
|
---|
| 1867 | * Fred.class_variable_get(:@@foo) #=> 99
|
---|
| 1868 | */
|
---|
| 1869 |
|
---|
| 1870 | static mrb_value
|
---|
| 1871 | mrb_mod_cvar_get(mrb_state *mrb, mrb_value mod)
|
---|
| 1872 | {
|
---|
| 1873 | mrb_sym id;
|
---|
| 1874 |
|
---|
| 1875 | mrb_get_args(mrb, "n", &id);
|
---|
| 1876 | check_cv_name_sym(mrb, id);
|
---|
| 1877 | return mrb_cv_get(mrb, mod, id);
|
---|
| 1878 | }
|
---|
| 1879 |
|
---|
| 1880 | /* 15.2.2.4.18 */
|
---|
| 1881 | /*
|
---|
| 1882 | * call-seq:
|
---|
| 1883 | * obj.class_variable_set(symbol, obj) -> obj
|
---|
| 1884 | *
|
---|
| 1885 | * Sets the class variable names by <i>symbol</i> to
|
---|
| 1886 | * <i>object</i>.
|
---|
| 1887 | *
|
---|
| 1888 | * class Fred
|
---|
| 1889 | * @@foo = 99
|
---|
| 1890 | * def foo
|
---|
| 1891 | * @@foo
|
---|
| 1892 | * end
|
---|
| 1893 | * end
|
---|
| 1894 | * Fred.class_variable_set(:@@foo, 101) #=> 101
|
---|
| 1895 | * Fred.new.foo #=> 101
|
---|
| 1896 | */
|
---|
| 1897 |
|
---|
| 1898 | static mrb_value
|
---|
| 1899 | mrb_mod_cvar_set(mrb_state *mrb, mrb_value mod)
|
---|
| 1900 | {
|
---|
| 1901 | mrb_value value;
|
---|
| 1902 | mrb_sym id;
|
---|
| 1903 |
|
---|
| 1904 | mrb_get_args(mrb, "no", &id, &value);
|
---|
| 1905 | check_cv_name_sym(mrb, id);
|
---|
| 1906 | mrb_cv_set(mrb, mod, id, value);
|
---|
| 1907 | return value;
|
---|
| 1908 | }
|
---|
| 1909 |
|
---|
| 1910 | /* 15.2.2.4.39 */
|
---|
| 1911 | /*
|
---|
| 1912 | * call-seq:
|
---|
| 1913 | * remove_class_variable(sym) -> obj
|
---|
| 1914 | *
|
---|
| 1915 | * Removes the definition of the <i>sym</i>, returning that
|
---|
| 1916 | * constant's value.
|
---|
| 1917 | *
|
---|
| 1918 | * class Dummy
|
---|
| 1919 | * @@var = 99
|
---|
| 1920 | * puts @@var
|
---|
| 1921 | * p class_variables
|
---|
| 1922 | * remove_class_variable(:@@var)
|
---|
| 1923 | * p class_variables
|
---|
| 1924 | * end
|
---|
| 1925 | *
|
---|
| 1926 | * <em>produces:</em>
|
---|
| 1927 | *
|
---|
| 1928 | * 99
|
---|
| 1929 | * [:@@var]
|
---|
| 1930 | * []
|
---|
| 1931 | */
|
---|
| 1932 |
|
---|
| 1933 | static mrb_value
|
---|
| 1934 | mrb_mod_remove_cvar(mrb_state *mrb, mrb_value mod)
|
---|
| 1935 | {
|
---|
| 1936 | mrb_value val;
|
---|
| 1937 | mrb_sym id;
|
---|
| 1938 |
|
---|
| 1939 | mrb_get_args(mrb, "n", &id);
|
---|
| 1940 | check_cv_name_sym(mrb, id);
|
---|
| 1941 |
|
---|
| 1942 | val = mrb_iv_remove(mrb, mod, id);
|
---|
| 1943 | if (!mrb_undef_p(val)) return val;
|
---|
| 1944 |
|
---|
| 1945 | if (mrb_cv_defined(mrb, mod, id)) {
|
---|
| 1946 | mrb_name_error(mrb, id, "cannot remove %S for %S",
|
---|
| 1947 | mrb_sym2str(mrb, id), mod);
|
---|
| 1948 | }
|
---|
| 1949 |
|
---|
| 1950 | mrb_name_error(mrb, id, "class variable %S not defined for %S",
|
---|
| 1951 | mrb_sym2str(mrb, id), mod);
|
---|
| 1952 |
|
---|
| 1953 | /* not reached */
|
---|
| 1954 | return mrb_nil_value();
|
---|
| 1955 | }
|
---|
| 1956 |
|
---|
| 1957 | /* 15.2.2.4.34 */
|
---|
| 1958 | /*
|
---|
| 1959 | * call-seq:
|
---|
| 1960 | * mod.method_defined?(symbol) -> true or false
|
---|
| 1961 | *
|
---|
| 1962 | * Returns +true+ if the named method is defined by
|
---|
| 1963 | * _mod_ (or its included modules and, if _mod_ is a class,
|
---|
| 1964 | * its ancestors). Public and protected methods are matched.
|
---|
| 1965 | *
|
---|
| 1966 | * module A
|
---|
| 1967 | * def method1() end
|
---|
| 1968 | * end
|
---|
| 1969 | * class B
|
---|
| 1970 | * def method2() end
|
---|
| 1971 | * end
|
---|
| 1972 | * class C < B
|
---|
| 1973 | * include A
|
---|
| 1974 | * def method3() end
|
---|
| 1975 | * end
|
---|
| 1976 | *
|
---|
| 1977 | * A.method_defined? :method1 #=> true
|
---|
| 1978 | * C.method_defined? "method1" #=> true
|
---|
| 1979 | * C.method_defined? "method2" #=> true
|
---|
| 1980 | * C.method_defined? "method3" #=> true
|
---|
| 1981 | * C.method_defined? "method4" #=> false
|
---|
| 1982 | */
|
---|
| 1983 |
|
---|
| 1984 | static mrb_value
|
---|
| 1985 | mrb_mod_method_defined(mrb_state *mrb, mrb_value mod)
|
---|
| 1986 | {
|
---|
| 1987 | mrb_sym id;
|
---|
| 1988 |
|
---|
| 1989 | mrb_get_args(mrb, "n", &id);
|
---|
| 1990 | return mrb_bool_value(mrb_obj_respond_to(mrb, mrb_class_ptr(mod), id));
|
---|
| 1991 | }
|
---|
| 1992 |
|
---|
| 1993 | static void
|
---|
| 1994 | remove_method(mrb_state *mrb, mrb_value mod, mrb_sym mid)
|
---|
| 1995 | {
|
---|
| 1996 | struct RClass *c = mrb_class_ptr(mod);
|
---|
| 1997 | khash_t(mt) *h = find_origin(c)->mt;
|
---|
| 1998 | khiter_t k;
|
---|
| 1999 |
|
---|
| 2000 | if (h) {
|
---|
| 2001 | k = kh_get(mt, mrb, h, mid);
|
---|
| 2002 | if (k != kh_end(h)) {
|
---|
| 2003 | kh_del(mt, mrb, h, k);
|
---|
| 2004 | mrb_funcall(mrb, mod, "method_removed", 1, mrb_symbol_value(mid));
|
---|
| 2005 | return;
|
---|
| 2006 | }
|
---|
| 2007 | }
|
---|
| 2008 |
|
---|
| 2009 | mrb_name_error(mrb, mid, "method '%S' not defined in %S",
|
---|
| 2010 | mrb_sym2str(mrb, mid), mod);
|
---|
| 2011 | }
|
---|
| 2012 |
|
---|
| 2013 | /* 15.2.2.4.41 */
|
---|
| 2014 | /*
|
---|
| 2015 | * call-seq:
|
---|
| 2016 | * remove_method(symbol) -> self
|
---|
| 2017 | *
|
---|
| 2018 | * Removes the method identified by _symbol_ from the current
|
---|
| 2019 | * class. For an example, see <code>Module.undef_method</code>.
|
---|
| 2020 | */
|
---|
| 2021 |
|
---|
| 2022 | static mrb_value
|
---|
| 2023 | mrb_mod_remove_method(mrb_state *mrb, mrb_value mod)
|
---|
| 2024 | {
|
---|
| 2025 | mrb_int argc;
|
---|
| 2026 | mrb_value *argv;
|
---|
| 2027 |
|
---|
| 2028 | mrb_get_args(mrb, "*", &argv, &argc);
|
---|
| 2029 | while (argc--) {
|
---|
| 2030 | remove_method(mrb, mod, mrb_symbol(*argv));
|
---|
| 2031 | argv++;
|
---|
| 2032 | }
|
---|
| 2033 | return mod;
|
---|
| 2034 | }
|
---|
| 2035 |
|
---|
| 2036 |
|
---|
| 2037 |
|
---|
| 2038 | static void
|
---|
| 2039 | check_const_name_str(mrb_state *mrb, mrb_value str)
|
---|
| 2040 | {
|
---|
| 2041 | if (RSTRING_LEN(str) < 1 || !ISUPPER(*RSTRING_PTR(str))) {
|
---|
| 2042 | mrb_name_error(mrb, mrb_intern_str(mrb, str), "wrong constant name %S", str);
|
---|
| 2043 | }
|
---|
| 2044 | }
|
---|
| 2045 |
|
---|
| 2046 | static void
|
---|
| 2047 | check_const_name_sym(mrb_state *mrb, mrb_sym id)
|
---|
| 2048 | {
|
---|
| 2049 | check_const_name_str(mrb, mrb_sym2str(mrb, id));
|
---|
| 2050 | }
|
---|
| 2051 |
|
---|
| 2052 | static mrb_value
|
---|
| 2053 | const_defined(mrb_state *mrb, mrb_value mod, mrb_sym id, mrb_bool inherit)
|
---|
| 2054 | {
|
---|
| 2055 | if (inherit) {
|
---|
| 2056 | return mrb_bool_value(mrb_const_defined(mrb, mod, id));
|
---|
| 2057 | }
|
---|
| 2058 | return mrb_bool_value(mrb_const_defined_at(mrb, mod, id));
|
---|
| 2059 | }
|
---|
| 2060 |
|
---|
| 2061 | static mrb_value
|
---|
| 2062 | mrb_mod_const_defined(mrb_state *mrb, mrb_value mod)
|
---|
| 2063 | {
|
---|
| 2064 | mrb_sym id;
|
---|
| 2065 | mrb_bool inherit = TRUE;
|
---|
| 2066 |
|
---|
| 2067 | mrb_get_args(mrb, "n|b", &id, &inherit);
|
---|
| 2068 | check_const_name_sym(mrb, id);
|
---|
| 2069 | return const_defined(mrb, mod, id, inherit);
|
---|
| 2070 | }
|
---|
| 2071 |
|
---|
| 2072 | static mrb_value
|
---|
| 2073 | mrb_mod_const_get(mrb_state *mrb, mrb_value mod)
|
---|
| 2074 | {
|
---|
| 2075 | mrb_sym id;
|
---|
| 2076 |
|
---|
| 2077 | mrb_get_args(mrb, "n", &id);
|
---|
| 2078 | check_const_name_sym(mrb, id);
|
---|
| 2079 | return mrb_const_get(mrb, mod, id);
|
---|
| 2080 | }
|
---|
| 2081 |
|
---|
| 2082 | static mrb_value
|
---|
| 2083 | mrb_mod_const_set(mrb_state *mrb, mrb_value mod)
|
---|
| 2084 | {
|
---|
| 2085 | mrb_sym id;
|
---|
| 2086 | mrb_value value;
|
---|
| 2087 |
|
---|
| 2088 | mrb_get_args(mrb, "no", &id, &value);
|
---|
| 2089 | check_const_name_sym(mrb, id);
|
---|
| 2090 | mrb_const_set(mrb, mod, id, value);
|
---|
| 2091 | return value;
|
---|
| 2092 | }
|
---|
| 2093 |
|
---|
| 2094 | static mrb_value
|
---|
| 2095 | mrb_mod_remove_const(mrb_state *mrb, mrb_value mod)
|
---|
| 2096 | {
|
---|
| 2097 | mrb_sym id;
|
---|
| 2098 | mrb_value val;
|
---|
| 2099 |
|
---|
| 2100 | mrb_get_args(mrb, "n", &id);
|
---|
| 2101 | check_const_name_sym(mrb, id);
|
---|
| 2102 | val = mrb_iv_remove(mrb, mod, id);
|
---|
| 2103 | if (mrb_undef_p(val)) {
|
---|
| 2104 | mrb_name_error(mrb, id, "constant %S not defined", mrb_sym2str(mrb, id));
|
---|
| 2105 | }
|
---|
| 2106 | return val;
|
---|
| 2107 | }
|
---|
| 2108 |
|
---|
| 2109 | static mrb_value
|
---|
| 2110 | mrb_mod_const_missing(mrb_state *mrb, mrb_value mod)
|
---|
| 2111 | {
|
---|
| 2112 | mrb_sym sym;
|
---|
| 2113 |
|
---|
| 2114 | mrb_get_args(mrb, "n", &sym);
|
---|
| 2115 |
|
---|
| 2116 | if (mrb_class_real(mrb_class_ptr(mod)) != mrb->object_class) {
|
---|
| 2117 | mrb_name_error(mrb, sym, "uninitialized constant %S::%S",
|
---|
| 2118 | mod,
|
---|
| 2119 | mrb_sym2str(mrb, sym));
|
---|
| 2120 | }
|
---|
| 2121 | else {
|
---|
| 2122 | mrb_name_error(mrb, sym, "uninitialized constant %S",
|
---|
| 2123 | mrb_sym2str(mrb, sym));
|
---|
| 2124 | }
|
---|
| 2125 | /* not reached */
|
---|
| 2126 | return mrb_nil_value();
|
---|
| 2127 | }
|
---|
| 2128 |
|
---|
| 2129 | static mrb_value
|
---|
| 2130 | mrb_mod_s_constants(mrb_state *mrb, mrb_value mod)
|
---|
| 2131 | {
|
---|
| 2132 | mrb_raise(mrb, E_NOTIMP_ERROR, "Module.constants not implemented");
|
---|
| 2133 | return mrb_nil_value(); /* not reached */
|
---|
| 2134 | }
|
---|
| 2135 |
|
---|
| 2136 | static mrb_value
|
---|
| 2137 | mrb_mod_eqq(mrb_state *mrb, mrb_value mod)
|
---|
| 2138 | {
|
---|
| 2139 | mrb_value obj;
|
---|
| 2140 | mrb_bool eqq;
|
---|
| 2141 |
|
---|
| 2142 | mrb_get_args(mrb, "o", &obj);
|
---|
| 2143 | eqq = mrb_obj_is_kind_of(mrb, obj, mrb_class_ptr(mod));
|
---|
| 2144 |
|
---|
| 2145 | return mrb_bool_value(eqq);
|
---|
| 2146 | }
|
---|
| 2147 |
|
---|
| 2148 | MRB_API mrb_value
|
---|
| 2149 | mrb_mod_module_function(mrb_state *mrb, mrb_value mod)
|
---|
| 2150 | {
|
---|
| 2151 | mrb_value *argv;
|
---|
| 2152 | mrb_int argc, i;
|
---|
| 2153 | mrb_sym mid;
|
---|
| 2154 | struct RProc *method_rproc;
|
---|
| 2155 | struct RClass *rclass;
|
---|
| 2156 | int ai;
|
---|
| 2157 |
|
---|
| 2158 | mrb_check_type(mrb, mod, MRB_TT_MODULE);
|
---|
| 2159 |
|
---|
| 2160 | mrb_get_args(mrb, "*", &argv, &argc);
|
---|
| 2161 | if(argc == 0) {
|
---|
| 2162 | /* set MODFUNC SCOPE if implemented */
|
---|
| 2163 | return mod;
|
---|
| 2164 | }
|
---|
| 2165 |
|
---|
| 2166 | /* set PRIVATE method visibility if implemented */
|
---|
| 2167 | /* mrb_mod_dummy_visibility(mrb, mod); */
|
---|
| 2168 |
|
---|
| 2169 | for (i=0; i<argc; i++) {
|
---|
| 2170 | mrb_check_type(mrb, argv[i], MRB_TT_SYMBOL);
|
---|
| 2171 |
|
---|
| 2172 | mid = mrb_symbol(argv[i]);
|
---|
| 2173 | rclass = mrb_class_ptr(mod);
|
---|
| 2174 | method_rproc = mrb_method_search(mrb, rclass, mid);
|
---|
| 2175 |
|
---|
| 2176 | prepare_singleton_class(mrb, (struct RBasic*)rclass);
|
---|
| 2177 | ai = mrb_gc_arena_save(mrb);
|
---|
| 2178 | mrb_define_method_raw(mrb, rclass->c, mid, method_rproc);
|
---|
| 2179 | mrb_gc_arena_restore(mrb, ai);
|
---|
| 2180 | }
|
---|
| 2181 |
|
---|
| 2182 | return mod;
|
---|
| 2183 | }
|
---|
| 2184 |
|
---|
| 2185 | void
|
---|
| 2186 | mrb_init_class(mrb_state *mrb)
|
---|
| 2187 | {
|
---|
| 2188 | struct RClass *bob; /* BasicObject */
|
---|
| 2189 | struct RClass *obj; /* Object */
|
---|
| 2190 | struct RClass *mod; /* Module */
|
---|
| 2191 | struct RClass *cls; /* Class */
|
---|
| 2192 |
|
---|
| 2193 | /* boot class hierarchy */
|
---|
| 2194 | bob = boot_defclass(mrb, 0);
|
---|
| 2195 | obj = boot_defclass(mrb, bob); mrb->object_class = obj;
|
---|
| 2196 | mod = boot_defclass(mrb, obj); mrb->module_class = mod;/* obj -> mod */
|
---|
| 2197 | cls = boot_defclass(mrb, mod); mrb->class_class = cls; /* obj -> cls */
|
---|
| 2198 | /* fix-up loose ends */
|
---|
| 2199 | bob->c = obj->c = mod->c = cls->c = cls;
|
---|
| 2200 | make_metaclass(mrb, bob);
|
---|
| 2201 | make_metaclass(mrb, obj);
|
---|
| 2202 | make_metaclass(mrb, mod);
|
---|
| 2203 | make_metaclass(mrb, cls);
|
---|
| 2204 |
|
---|
| 2205 | /* name basic classes */
|
---|
| 2206 | mrb_define_const(mrb, bob, "BasicObject", mrb_obj_value(bob));
|
---|
| 2207 | mrb_define_const(mrb, obj, "BasicObject", mrb_obj_value(bob));
|
---|
| 2208 | mrb_define_const(mrb, obj, "Object", mrb_obj_value(obj));
|
---|
| 2209 | mrb_define_const(mrb, obj, "Module", mrb_obj_value(mod));
|
---|
| 2210 | mrb_define_const(mrb, obj, "Class", mrb_obj_value(cls));
|
---|
| 2211 |
|
---|
| 2212 | /* name each classes */
|
---|
| 2213 | name_class(mrb, bob, mrb_intern_lit(mrb, "BasicObject"));
|
---|
| 2214 | name_class(mrb, obj, mrb_intern_lit(mrb, "Object")); /* 15.2.1 */
|
---|
| 2215 | name_class(mrb, mod, mrb_intern_lit(mrb, "Module")); /* 15.2.2 */
|
---|
| 2216 | name_class(mrb, cls, mrb_intern_lit(mrb, "Class")); /* 15.2.3 */
|
---|
| 2217 |
|
---|
| 2218 | mrb->proc_class = mrb_define_class(mrb, "Proc", mrb->object_class); /* 15.2.17 */
|
---|
| 2219 | MRB_SET_INSTANCE_TT(mrb->proc_class, MRB_TT_PROC);
|
---|
| 2220 |
|
---|
| 2221 | MRB_SET_INSTANCE_TT(cls, MRB_TT_CLASS);
|
---|
| 2222 | mrb_define_method(mrb, bob, "initialize", mrb_bob_init, MRB_ARGS_NONE());
|
---|
| 2223 | mrb_define_method(mrb, bob, "!", mrb_bob_not, MRB_ARGS_NONE());
|
---|
| 2224 | mrb_define_method(mrb, bob, "method_missing", mrb_bob_missing, MRB_ARGS_ANY()); /* 15.3.1.3.30 */
|
---|
| 2225 |
|
---|
| 2226 | mrb_define_class_method(mrb, cls, "new", mrb_class_new_class, MRB_ARGS_OPT(1));
|
---|
| 2227 | mrb_define_method(mrb, cls, "superclass", mrb_class_superclass, MRB_ARGS_NONE()); /* 15.2.3.3.4 */
|
---|
| 2228 | mrb_define_method(mrb, cls, "new", mrb_instance_new, MRB_ARGS_ANY()); /* 15.2.3.3.3 */
|
---|
| 2229 | mrb_define_method(mrb, cls, "initialize", mrb_class_initialize, MRB_ARGS_OPT(1)); /* 15.2.3.3.1 */
|
---|
| 2230 | mrb_define_method(mrb, cls, "inherited", mrb_bob_init, MRB_ARGS_REQ(1));
|
---|
| 2231 |
|
---|
| 2232 | MRB_SET_INSTANCE_TT(mod, MRB_TT_MODULE);
|
---|
| 2233 | mrb_define_method(mrb, mod, "class_variable_defined?", mrb_mod_cvar_defined, MRB_ARGS_REQ(1)); /* 15.2.2.4.16 */
|
---|
| 2234 | mrb_define_method(mrb, mod, "class_variable_get", mrb_mod_cvar_get, MRB_ARGS_REQ(1)); /* 15.2.2.4.17 */
|
---|
| 2235 | mrb_define_method(mrb, mod, "class_variable_set", mrb_mod_cvar_set, MRB_ARGS_REQ(2)); /* 15.2.2.4.18 */
|
---|
| 2236 | mrb_define_method(mrb, mod, "extend_object", mrb_mod_extend_object, MRB_ARGS_REQ(1)); /* 15.2.2.4.25 */
|
---|
| 2237 | mrb_define_method(mrb, mod, "extended", mrb_bob_init, MRB_ARGS_REQ(1)); /* 15.2.2.4.26 */
|
---|
| 2238 | mrb_define_method(mrb, mod, "prepend", mrb_mod_prepend, MRB_ARGS_ANY());
|
---|
| 2239 | mrb_define_method(mrb, mod, "prepended", mrb_bob_init, MRB_ARGS_REQ(1));
|
---|
| 2240 | mrb_define_method(mrb, mod, "prepend_features", mrb_mod_prepend_features, MRB_ARGS_REQ(1));
|
---|
| 2241 | mrb_define_method(mrb, mod, "include", mrb_mod_include, MRB_ARGS_ANY()); /* 15.2.2.4.27 */
|
---|
| 2242 | mrb_define_method(mrb, mod, "include?", mrb_mod_include_p, MRB_ARGS_REQ(1)); /* 15.2.2.4.28 */
|
---|
| 2243 | mrb_define_method(mrb, mod, "append_features", mrb_mod_append_features, MRB_ARGS_REQ(1)); /* 15.2.2.4.10 */
|
---|
| 2244 | mrb_define_method(mrb, mod, "class_eval", mrb_mod_module_eval, MRB_ARGS_ANY()); /* 15.2.2.4.15 */
|
---|
| 2245 | mrb_define_method(mrb, mod, "included", mrb_bob_init, MRB_ARGS_REQ(1)); /* 15.2.2.4.29 */
|
---|
| 2246 | mrb_define_method(mrb, mod, "included_modules", mrb_mod_included_modules, MRB_ARGS_NONE()); /* 15.2.2.4.30 */
|
---|
| 2247 | mrb_define_method(mrb, mod, "initialize", mrb_mod_initialize, MRB_ARGS_NONE()); /* 15.2.2.4.31 */
|
---|
| 2248 | mrb_define_method(mrb, mod, "instance_methods", mrb_mod_instance_methods, MRB_ARGS_ANY()); /* 15.2.2.4.33 */
|
---|
| 2249 | mrb_define_method(mrb, mod, "method_defined?", mrb_mod_method_defined, MRB_ARGS_REQ(1)); /* 15.2.2.4.34 */
|
---|
| 2250 | mrb_define_method(mrb, mod, "module_eval", mrb_mod_module_eval, MRB_ARGS_ANY()); /* 15.2.2.4.35 */
|
---|
| 2251 | mrb_define_method(mrb, mod, "module_function", mrb_mod_module_function, MRB_ARGS_ANY());
|
---|
| 2252 | mrb_define_method(mrb, mod, "private", mrb_mod_dummy_visibility, MRB_ARGS_ANY()); /* 15.2.2.4.36 */
|
---|
| 2253 | mrb_define_method(mrb, mod, "protected", mrb_mod_dummy_visibility, MRB_ARGS_ANY()); /* 15.2.2.4.37 */
|
---|
| 2254 | mrb_define_method(mrb, mod, "public", mrb_mod_dummy_visibility, MRB_ARGS_ANY()); /* 15.2.2.4.38 */
|
---|
| 2255 | mrb_define_method(mrb, mod, "remove_class_variable", mrb_mod_remove_cvar, MRB_ARGS_REQ(1)); /* 15.2.2.4.39 */
|
---|
| 2256 | mrb_define_method(mrb, mod, "remove_method", mrb_mod_remove_method, MRB_ARGS_ANY()); /* 15.2.2.4.41 */
|
---|
| 2257 | mrb_define_method(mrb, mod, "method_removed", mrb_bob_init, MRB_ARGS_REQ(1));
|
---|
| 2258 | mrb_define_method(mrb, mod, "attr_reader", mrb_mod_attr_reader, MRB_ARGS_ANY()); /* 15.2.2.4.13 */
|
---|
| 2259 | mrb_define_method(mrb, mod, "attr_writer", mrb_mod_attr_writer, MRB_ARGS_ANY()); /* 15.2.2.4.14 */
|
---|
| 2260 | mrb_define_method(mrb, mod, "to_s", mrb_mod_to_s, MRB_ARGS_NONE());
|
---|
| 2261 | mrb_define_method(mrb, mod, "inspect", mrb_mod_to_s, MRB_ARGS_NONE());
|
---|
| 2262 | mrb_define_method(mrb, mod, "alias_method", mrb_mod_alias, MRB_ARGS_ANY()); /* 15.2.2.4.8 */
|
---|
| 2263 | mrb_define_method(mrb, mod, "ancestors", mrb_mod_ancestors, MRB_ARGS_NONE()); /* 15.2.2.4.9 */
|
---|
| 2264 | mrb_define_method(mrb, mod, "undef_method", mrb_mod_undef, MRB_ARGS_ANY()); /* 15.2.2.4.41 */
|
---|
| 2265 | mrb_define_method(mrb, mod, "const_defined?", mrb_mod_const_defined, MRB_ARGS_ARG(1,1)); /* 15.2.2.4.20 */
|
---|
| 2266 | mrb_define_method(mrb, mod, "const_get", mrb_mod_const_get, MRB_ARGS_REQ(1)); /* 15.2.2.4.21 */
|
---|
| 2267 | mrb_define_method(mrb, mod, "const_set", mrb_mod_const_set, MRB_ARGS_REQ(2)); /* 15.2.2.4.23 */
|
---|
| 2268 | mrb_define_method(mrb, mod, "constants", mrb_mod_constants, MRB_ARGS_OPT(1)); /* 15.2.2.4.24 */
|
---|
| 2269 | mrb_define_method(mrb, mod, "remove_const", mrb_mod_remove_const, MRB_ARGS_REQ(1)); /* 15.2.2.4.40 */
|
---|
| 2270 | mrb_define_method(mrb, mod, "const_missing", mrb_mod_const_missing, MRB_ARGS_REQ(1));
|
---|
| 2271 | mrb_define_method(mrb, mod, "define_method", mod_define_method, MRB_ARGS_REQ(1));
|
---|
| 2272 | mrb_define_method(mrb, mod, "class_variables", mrb_mod_class_variables, MRB_ARGS_NONE()); /* 15.2.2.4.19 */
|
---|
| 2273 | mrb_define_method(mrb, mod, "===", mrb_mod_eqq, MRB_ARGS_REQ(1));
|
---|
| 2274 | mrb_define_class_method(mrb, mod, "constants", mrb_mod_s_constants, MRB_ARGS_ANY()); /* 15.2.2.3.1 */
|
---|
| 2275 |
|
---|
| 2276 | mrb_undef_method(mrb, cls, "append_features");
|
---|
| 2277 | mrb_undef_method(mrb, cls, "extend_object");
|
---|
| 2278 | }
|
---|