sabme ua / mruby-mbed

mbed I/F binding for mruby

Dependents:   mruby_mbed_web mirb_mbed

mbed-mruby

How to use

Class

src/variable.c@0:158c61bb030f, 2015-03-25 (annotated)

Committer:
mzta
Date:
Wed Mar 25 17:36:16 2015 +0000
Revision:
0:158c61bb030f
mirb_mbed initial commit;

Who changed what in which revision?

UserRevisionLine numberNew contents of line
mzta 0:158c61bb030f 1 /*
mzta 0:158c61bb030f 2 ** variable.c - mruby variables
mzta 0:158c61bb030f 3 **
mzta 0:158c61bb030f 4 ** See Copyright Notice in mruby.h
mzta 0:158c61bb030f 5 */
mzta 0:158c61bb030f 6
mzta 0:158c61bb030f 7 #include <ctype.h>
mzta 0:158c61bb030f 8 #include "mruby.h"
mzta 0:158c61bb030f 9 #include "mruby/array.h"
mzta 0:158c61bb030f 10 #include "mruby/class.h"
mzta 0:158c61bb030f 11 #include "mruby/proc.h"
mzta 0:158c61bb030f 12 #include "mruby/string.h"
mzta 0:158c61bb030f 13
mzta 0:158c61bb030f 14 typedef int (iv_foreach_func)(mrb_state*,mrb_sym,mrb_value,void*);
mzta 0:158c61bb030f 15
mzta 0:158c61bb030f 16 #ifdef MRB_USE_IV_SEGLIST
mzta 0:158c61bb030f 17
mzta 0:158c61bb030f 18 #ifndef MRB_SEGMENT_SIZE
mzta 0:158c61bb030f 19 #define MRB_SEGMENT_SIZE 4
mzta 0:158c61bb030f 20 #endif
mzta 0:158c61bb030f 21
mzta 0:158c61bb030f 22 typedef struct segment {
mzta 0:158c61bb030f 23 mrb_sym key[MRB_SEGMENT_SIZE];
mzta 0:158c61bb030f 24 mrb_value val[MRB_SEGMENT_SIZE];
mzta 0:158c61bb030f 25 struct segment *next;
mzta 0:158c61bb030f 26 } segment;
mzta 0:158c61bb030f 27
mzta 0:158c61bb030f 28 /* Instance variable table structure */
mzta 0:158c61bb030f 29 typedef struct iv_tbl {
mzta 0:158c61bb030f 30 segment *rootseg;
mzta 0:158c61bb030f 31 size_t size;
mzta 0:158c61bb030f 32 size_t last_len;
mzta 0:158c61bb030f 33 } iv_tbl;
mzta 0:158c61bb030f 34
mzta 0:158c61bb030f 35 /*
mzta 0:158c61bb030f 36 * Creates the instance variable table.
mzta 0:158c61bb030f 37 *
mzta 0:158c61bb030f 38 * Parameters
mzta 0:158c61bb030f 39 * mrb
mzta 0:158c61bb030f 40 * Returns
mzta 0:158c61bb030f 41 * the instance variable table.
mzta 0:158c61bb030f 42 */
mzta 0:158c61bb030f 43 static iv_tbl*
mzta 0:158c61bb030f 44 iv_new(mrb_state *mrb)
mzta 0:158c61bb030f 45 {
mzta 0:158c61bb030f 46 iv_tbl *t;
mzta 0:158c61bb030f 47
mzta 0:158c61bb030f 48 t = mrb_malloc(mrb, sizeof(iv_tbl));
mzta 0:158c61bb030f 49 t->size = 0;
mzta 0:158c61bb030f 50 t->rootseg = NULL;
mzta 0:158c61bb030f 51 t->last_len = 0;
mzta 0:158c61bb030f 52
mzta 0:158c61bb030f 53 return t;
mzta 0:158c61bb030f 54 }
mzta 0:158c61bb030f 55
mzta 0:158c61bb030f 56 /*
mzta 0:158c61bb030f 57 * Set the value for the symbol in the instance variable table.
mzta 0:158c61bb030f 58 *
mzta 0:158c61bb030f 59 * Parameters
mzta 0:158c61bb030f 60 * mrb
mzta 0:158c61bb030f 61 * t the instance variable table to be set in.
mzta 0:158c61bb030f 62 * sym the symbol to be used as the key.
mzta 0:158c61bb030f 63 * val the value to be set.
mzta 0:158c61bb030f 64 */
mzta 0:158c61bb030f 65 static void
mzta 0:158c61bb030f 66 iv_put(mrb_state *mrb, iv_tbl *t, mrb_sym sym, mrb_value val)
mzta 0:158c61bb030f 67 {
mzta 0:158c61bb030f 68 segment *seg = t->rootseg;
mzta 0:158c61bb030f 69 segment *prev = NULL;
mzta 0:158c61bb030f 70 segment *matched_seg = NULL;
mzta 0:158c61bb030f 71 size_t matched_idx = 0;
mzta 0:158c61bb030f 72 size_t i;
mzta 0:158c61bb030f 73
mzta 0:158c61bb030f 74 while (seg) {
mzta 0:158c61bb030f 75 for (i=0; i<MRB_SEGMENT_SIZE; i++) {
mzta 0:158c61bb030f 76 mrb_sym key = seg->key[i];
mzta 0:158c61bb030f 77 /* Found room in last segment after last_len */
mzta 0:158c61bb030f 78 if (!seg->next && i >= t->last_len) {
mzta 0:158c61bb030f 79 seg->key[i] = sym;
mzta 0:158c61bb030f 80 seg->val[i] = val;
mzta 0:158c61bb030f 81 t->last_len = i+1;
mzta 0:158c61bb030f 82 t->size++;
mzta 0:158c61bb030f 83 return;
mzta 0:158c61bb030f 84 }
mzta 0:158c61bb030f 85 if (!matched_seg && key == 0) {
mzta 0:158c61bb030f 86 matched_seg = seg;
mzta 0:158c61bb030f 87 matched_idx = i;
mzta 0:158c61bb030f 88 }
mzta 0:158c61bb030f 89 else if (key == sym) {
mzta 0:158c61bb030f 90 seg->val[i] = val;
mzta 0:158c61bb030f 91 return;
mzta 0:158c61bb030f 92 }
mzta 0:158c61bb030f 93 }
mzta 0:158c61bb030f 94 prev = seg;
mzta 0:158c61bb030f 95 seg = seg->next;
mzta 0:158c61bb030f 96 }
mzta 0:158c61bb030f 97
mzta 0:158c61bb030f 98 /* Not found */
mzta 0:158c61bb030f 99 t->size++;
mzta 0:158c61bb030f 100 if (matched_seg) {
mzta 0:158c61bb030f 101 matched_seg->key[matched_idx] = sym;
mzta 0:158c61bb030f 102 matched_seg->val[matched_idx] = val;
mzta 0:158c61bb030f 103 return;
mzta 0:158c61bb030f 104 }
mzta 0:158c61bb030f 105
mzta 0:158c61bb030f 106 seg = mrb_malloc(mrb, sizeof(segment));
mzta 0:158c61bb030f 107 if (!seg) return;
mzta 0:158c61bb030f 108 seg->next = NULL;
mzta 0:158c61bb030f 109 seg->key[0] = sym;
mzta 0:158c61bb030f 110 seg->val[0] = val;
mzta 0:158c61bb030f 111 t->last_len = 1;
mzta 0:158c61bb030f 112 if (prev) {
mzta 0:158c61bb030f 113 prev->next = seg;
mzta 0:158c61bb030f 114 }
mzta 0:158c61bb030f 115 else {
mzta 0:158c61bb030f 116 t->rootseg = seg;
mzta 0:158c61bb030f 117 }
mzta 0:158c61bb030f 118 }
mzta 0:158c61bb030f 119
mzta 0:158c61bb030f 120 /*
mzta 0:158c61bb030f 121 * Get a value for a symbol from the instance variable table.
mzta 0:158c61bb030f 122 *
mzta 0:158c61bb030f 123 * Parameters
mzta 0:158c61bb030f 124 * mrb
mzta 0:158c61bb030f 125 * t the variable table to be searched.
mzta 0:158c61bb030f 126 * sym the symbol to be used as the key.
mzta 0:158c61bb030f 127 * vp the value pointer. Receives the value if the specified symbol is
mzta 0:158c61bb030f 128 * contained in the instance variable table.
mzta 0:158c61bb030f 129 * Returns
mzta 0:158c61bb030f 130 * true if the specified symbol is contained in the instance variable table.
mzta 0:158c61bb030f 131 */
mzta 0:158c61bb030f 132 static mrb_bool
mzta 0:158c61bb030f 133 iv_get(mrb_state *mrb, iv_tbl *t, mrb_sym sym, mrb_value *vp)
mzta 0:158c61bb030f 134 {
mzta 0:158c61bb030f 135 segment *seg;
mzta 0:158c61bb030f 136 size_t i;
mzta 0:158c61bb030f 137
mzta 0:158c61bb030f 138 seg = t->rootseg;
mzta 0:158c61bb030f 139 while (seg) {
mzta 0:158c61bb030f 140 for (i=0; i<MRB_SEGMENT_SIZE; i++) {
mzta 0:158c61bb030f 141 mrb_sym key = seg->key[i];
mzta 0:158c61bb030f 142
mzta 0:158c61bb030f 143 if (!seg->next && i >= t->last_len) {
mzta 0:158c61bb030f 144 return FALSE;
mzta 0:158c61bb030f 145 }
mzta 0:158c61bb030f 146 if (key == sym) {
mzta 0:158c61bb030f 147 if (vp) *vp = seg->val[i];
mzta 0:158c61bb030f 148 return TRUE;
mzta 0:158c61bb030f 149 }
mzta 0:158c61bb030f 150 }
mzta 0:158c61bb030f 151 seg = seg->next;
mzta 0:158c61bb030f 152 }
mzta 0:158c61bb030f 153 return FALSE;
mzta 0:158c61bb030f 154 }
mzta 0:158c61bb030f 155
mzta 0:158c61bb030f 156 /*
mzta 0:158c61bb030f 157 * Deletes the value for the symbol from the instance variable table.
mzta 0:158c61bb030f 158 *
mzta 0:158c61bb030f 159 * Parameters
mzta 0:158c61bb030f 160 * t the variable table to be searched.
mzta 0:158c61bb030f 161 * sym the symbol to be used as the key.
mzta 0:158c61bb030f 162 * vp the value pointer. Receive the deleted value if the symbol is
mzta 0:158c61bb030f 163 * contained in the instance variable table.
mzta 0:158c61bb030f 164 * Returns
mzta 0:158c61bb030f 165 * true if the specified symbol is contained in the instance variable table.
mzta 0:158c61bb030f 166 */
mzta 0:158c61bb030f 167 static mrb_bool
mzta 0:158c61bb030f 168 iv_del(mrb_state *mrb, iv_tbl *t, mrb_sym sym, mrb_value *vp)
mzta 0:158c61bb030f 169 {
mzta 0:158c61bb030f 170 segment *seg;
mzta 0:158c61bb030f 171 size_t i;
mzta 0:158c61bb030f 172
mzta 0:158c61bb030f 173 seg = t->rootseg;
mzta 0:158c61bb030f 174 while (seg) {
mzta 0:158c61bb030f 175 for (i=0; i<MRB_SEGMENT_SIZE; i++) {
mzta 0:158c61bb030f 176 mrb_sym key = seg->key[i];
mzta 0:158c61bb030f 177
mzta 0:158c61bb030f 178 if (!seg->next && i >= t->last_len) {
mzta 0:158c61bb030f 179 return FALSE;
mzta 0:158c61bb030f 180 }
mzta 0:158c61bb030f 181 if (key == sym) {
mzta 0:158c61bb030f 182 t->size--;
mzta 0:158c61bb030f 183 seg->key[i] = 0;
mzta 0:158c61bb030f 184 if (vp) *vp = seg->val[i];
mzta 0:158c61bb030f 185 return TRUE;
mzta 0:158c61bb030f 186 }
mzta 0:158c61bb030f 187 }
mzta 0:158c61bb030f 188 seg = seg->next;
mzta 0:158c61bb030f 189 }
mzta 0:158c61bb030f 190 return FALSE;
mzta 0:158c61bb030f 191 }
mzta 0:158c61bb030f 192
mzta 0:158c61bb030f 193 static mrb_bool
mzta 0:158c61bb030f 194 iv_foreach(mrb_state *mrb, iv_tbl *t, iv_foreach_func *func, void *p)
mzta 0:158c61bb030f 195 {
mzta 0:158c61bb030f 196 segment *seg;
mzta 0:158c61bb030f 197 size_t i;
mzta 0:158c61bb030f 198 int n;
mzta 0:158c61bb030f 199
mzta 0:158c61bb030f 200 seg = t->rootseg;
mzta 0:158c61bb030f 201 while (seg) {
mzta 0:158c61bb030f 202 for (i=0; i<MRB_SEGMENT_SIZE; i++) {
mzta 0:158c61bb030f 203 mrb_sym key = seg->key[i];
mzta 0:158c61bb030f 204
mzta 0:158c61bb030f 205 /* no value in last segment after last_len */
mzta 0:158c61bb030f 206 if (!seg->next && i >= t->last_len) {
mzta 0:158c61bb030f 207 return FALSE;
mzta 0:158c61bb030f 208 }
mzta 0:158c61bb030f 209 if (key != 0) {
mzta 0:158c61bb030f 210 n =(*func)(mrb, key, seg->val[i], p);
mzta 0:158c61bb030f 211 if (n > 0) return FALSE;
mzta 0:158c61bb030f 212 if (n < 0) {
mzta 0:158c61bb030f 213 t->size--;
mzta 0:158c61bb030f 214 seg->key[i] = 0;
mzta 0:158c61bb030f 215 }
mzta 0:158c61bb030f 216 }
mzta 0:158c61bb030f 217 }
mzta 0:158c61bb030f 218 seg = seg->next;
mzta 0:158c61bb030f 219 }
mzta 0:158c61bb030f 220 return TRUE;
mzta 0:158c61bb030f 221 }
mzta 0:158c61bb030f 222
mzta 0:158c61bb030f 223 static size_t
mzta 0:158c61bb030f 224 iv_size(mrb_state *mrb, iv_tbl *t)
mzta 0:158c61bb030f 225 {
mzta 0:158c61bb030f 226 segment *seg;
mzta 0:158c61bb030f 227 size_t size = 0;
mzta 0:158c61bb030f 228
mzta 0:158c61bb030f 229 if (!t) return 0;
mzta 0:158c61bb030f 230 if (t->size > 0) return t->size;
mzta 0:158c61bb030f 231 seg = t->rootseg;
mzta 0:158c61bb030f 232 while (seg) {
mzta 0:158c61bb030f 233 if (seg->next == NULL) {
mzta 0:158c61bb030f 234 size += t->last_len;
mzta 0:158c61bb030f 235 return size;
mzta 0:158c61bb030f 236 }
mzta 0:158c61bb030f 237 seg = seg->next;
mzta 0:158c61bb030f 238 size += MRB_SEGMENT_SIZE;
mzta 0:158c61bb030f 239 }
mzta 0:158c61bb030f 240 /* empty iv_tbl */
mzta 0:158c61bb030f 241 return 0;
mzta 0:158c61bb030f 242 }
mzta 0:158c61bb030f 243
mzta 0:158c61bb030f 244 static iv_tbl*
mzta 0:158c61bb030f 245 iv_copy(mrb_state *mrb, iv_tbl *t)
mzta 0:158c61bb030f 246 {
mzta 0:158c61bb030f 247 segment *seg;
mzta 0:158c61bb030f 248 iv_tbl *t2;
mzta 0:158c61bb030f 249
mzta 0:158c61bb030f 250 size_t i;
mzta 0:158c61bb030f 251
mzta 0:158c61bb030f 252 seg = t->rootseg;
mzta 0:158c61bb030f 253 t2 = iv_new(mrb);
mzta 0:158c61bb030f 254
mzta 0:158c61bb030f 255 while (seg != NULL) {
mzta 0:158c61bb030f 256 for (i=0; i<MRB_SEGMENT_SIZE; i++) {
mzta 0:158c61bb030f 257 mrb_sym key = seg->key[i];
mzta 0:158c61bb030f 258 mrb_value val = seg->val[i];
mzta 0:158c61bb030f 259
mzta 0:158c61bb030f 260 if ((seg->next == NULL) && (i >= t->last_len)) {
mzta 0:158c61bb030f 261 return t2;
mzta 0:158c61bb030f 262 }
mzta 0:158c61bb030f 263 iv_put(mrb, t2, key, val);
mzta 0:158c61bb030f 264 }
mzta 0:158c61bb030f 265 seg = seg->next;
mzta 0:158c61bb030f 266 }
mzta 0:158c61bb030f 267 return t2;
mzta 0:158c61bb030f 268 }
mzta 0:158c61bb030f 269
mzta 0:158c61bb030f 270 static void
mzta 0:158c61bb030f 271 iv_free(mrb_state *mrb, iv_tbl *t)
mzta 0:158c61bb030f 272 {
mzta 0:158c61bb030f 273 segment *seg;
mzta 0:158c61bb030f 274
mzta 0:158c61bb030f 275 seg = t->rootseg;
mzta 0:158c61bb030f 276 while (seg) {
mzta 0:158c61bb030f 277 segment *p = seg;
mzta 0:158c61bb030f 278 seg = seg->next;
mzta 0:158c61bb030f 279 mrb_free(mrb, p);
mzta 0:158c61bb030f 280 }
mzta 0:158c61bb030f 281 mrb_free(mrb, t);
mzta 0:158c61bb030f 282 }
mzta 0:158c61bb030f 283
mzta 0:158c61bb030f 284 #else
mzta 0:158c61bb030f 285
mzta 0:158c61bb030f 286 #include "mruby/khash.h"
mzta 0:158c61bb030f 287
mzta 0:158c61bb030f 288 #ifndef MRB_IVHASH_INIT_SIZE
mzta 0:158c61bb030f 289 #define MRB_IVHASH_INIT_SIZE 8
mzta 0:158c61bb030f 290 #endif
mzta 0:158c61bb030f 291
mzta 0:158c61bb030f 292 KHASH_DECLARE(iv, mrb_sym, mrb_value, TRUE)
mzta 0:158c61bb030f 293 KHASH_DEFINE(iv, mrb_sym, mrb_value, TRUE, kh_int_hash_func, kh_int_hash_equal)
mzta 0:158c61bb030f 294
mzta 0:158c61bb030f 295 typedef struct iv_tbl {
mzta 0:158c61bb030f 296 khash_t(iv) h;
mzta 0:158c61bb030f 297 } iv_tbl;
mzta 0:158c61bb030f 298
mzta 0:158c61bb030f 299 static iv_tbl*
mzta 0:158c61bb030f 300 iv_new(mrb_state *mrb)
mzta 0:158c61bb030f 301 {
mzta 0:158c61bb030f 302 return (iv_tbl*)kh_init_size(iv, mrb, MRB_IVHASH_INIT_SIZE);
mzta 0:158c61bb030f 303 }
mzta 0:158c61bb030f 304
mzta 0:158c61bb030f 305 static void
mzta 0:158c61bb030f 306 iv_put(mrb_state *mrb, iv_tbl *t, mrb_sym sym, mrb_value val)
mzta 0:158c61bb030f 307 {
mzta 0:158c61bb030f 308 khash_t(iv) *h = &t->h;
mzta 0:158c61bb030f 309 khiter_t k;
mzta 0:158c61bb030f 310
mzta 0:158c61bb030f 311 k = kh_put(iv, mrb, h, sym);
mzta 0:158c61bb030f 312 kh_value(h, k) = val;
mzta 0:158c61bb030f 313 }
mzta 0:158c61bb030f 314
mzta 0:158c61bb030f 315 static mrb_bool
mzta 0:158c61bb030f 316 iv_get(mrb_state *mrb, iv_tbl *t, mrb_sym sym, mrb_value *vp)
mzta 0:158c61bb030f 317 {
mzta 0:158c61bb030f 318 khash_t(iv) *h = &t->h;
mzta 0:158c61bb030f 319 khiter_t k;
mzta 0:158c61bb030f 320
mzta 0:158c61bb030f 321 k = kh_get(iv, mrb, h, sym);
mzta 0:158c61bb030f 322 if (k != kh_end(h)) {
mzta 0:158c61bb030f 323 if (vp) *vp = kh_value(h, k);
mzta 0:158c61bb030f 324 return TRUE;
mzta 0:158c61bb030f 325 }
mzta 0:158c61bb030f 326 return FALSE;
mzta 0:158c61bb030f 327 }
mzta 0:158c61bb030f 328
mzta 0:158c61bb030f 329 static mrb_bool
mzta 0:158c61bb030f 330 iv_del(mrb_state *mrb, iv_tbl *t, mrb_sym sym, mrb_value *vp)
mzta 0:158c61bb030f 331 {
mzta 0:158c61bb030f 332 khash_t(iv) *h = &t->h;
mzta 0:158c61bb030f 333 khiter_t k;
mzta 0:158c61bb030f 334
mzta 0:158c61bb030f 335 if (h) {
mzta 0:158c61bb030f 336 k = kh_get(iv, mrb, h, sym);
mzta 0:158c61bb030f 337 if (k != kh_end(h)) {
mzta 0:158c61bb030f 338 mrb_value val = kh_value(h, k);
mzta 0:158c61bb030f 339 kh_del(iv, mrb, h, k);
mzta 0:158c61bb030f 340 if (vp) *vp = val;
mzta 0:158c61bb030f 341 return TRUE;
mzta 0:158c61bb030f 342 }
mzta 0:158c61bb030f 343 }
mzta 0:158c61bb030f 344 return FALSE;
mzta 0:158c61bb030f 345 }
mzta 0:158c61bb030f 346
mzta 0:158c61bb030f 347 static mrb_bool
mzta 0:158c61bb030f 348 iv_foreach(mrb_state *mrb, iv_tbl *t, iv_foreach_func *func, void *p)
mzta 0:158c61bb030f 349 {
mzta 0:158c61bb030f 350 khash_t(iv) *h = &t->h;
mzta 0:158c61bb030f 351 khiter_t k;
mzta 0:158c61bb030f 352 int n;
mzta 0:158c61bb030f 353
mzta 0:158c61bb030f 354 if (h) {
mzta 0:158c61bb030f 355 for (k = kh_begin(h); k != kh_end(h); k++) {
mzta 0:158c61bb030f 356 if (kh_exist(h, k)) {
mzta 0:158c61bb030f 357 n = (*func)(mrb, kh_key(h, k), kh_value(h, k), p);
mzta 0:158c61bb030f 358 if (n > 0) return FALSE;
mzta 0:158c61bb030f 359 if (n < 0) {
mzta 0:158c61bb030f 360 kh_del(iv, mrb, h, k);
mzta 0:158c61bb030f 361 }
mzta 0:158c61bb030f 362 }
mzta 0:158c61bb030f 363 }
mzta 0:158c61bb030f 364 }
mzta 0:158c61bb030f 365 return TRUE;
mzta 0:158c61bb030f 366 }
mzta 0:158c61bb030f 367
mzta 0:158c61bb030f 368 static size_t
mzta 0:158c61bb030f 369 iv_size(mrb_state *mrb, iv_tbl *t)
mzta 0:158c61bb030f 370 {
mzta 0:158c61bb030f 371 khash_t(iv) *h;
mzta 0:158c61bb030f 372
mzta 0:158c61bb030f 373 if (t && (h = &t->h)) {
mzta 0:158c61bb030f 374 return kh_size(h);
mzta 0:158c61bb030f 375 }
mzta 0:158c61bb030f 376 return 0;
mzta 0:158c61bb030f 377 }
mzta 0:158c61bb030f 378
mzta 0:158c61bb030f 379 static iv_tbl*
mzta 0:158c61bb030f 380 iv_copy(mrb_state *mrb, iv_tbl *t)
mzta 0:158c61bb030f 381 {
mzta 0:158c61bb030f 382 return (iv_tbl*)kh_copy(iv, mrb, &t->h);
mzta 0:158c61bb030f 383 }
mzta 0:158c61bb030f 384
mzta 0:158c61bb030f 385 static void
mzta 0:158c61bb030f 386 iv_free(mrb_state *mrb, iv_tbl *t)
mzta 0:158c61bb030f 387 {
mzta 0:158c61bb030f 388 kh_destroy(iv, mrb, &t->h);
mzta 0:158c61bb030f 389 }
mzta 0:158c61bb030f 390
mzta 0:158c61bb030f 391 #endif
mzta 0:158c61bb030f 392
mzta 0:158c61bb030f 393 static int
mzta 0:158c61bb030f 394 iv_mark_i(mrb_state *mrb, mrb_sym sym, mrb_value v, void *p)
mzta 0:158c61bb030f 395 {
mzta 0:158c61bb030f 396 mrb_gc_mark_value(mrb, v);
mzta 0:158c61bb030f 397 return 0;
mzta 0:158c61bb030f 398 }
mzta 0:158c61bb030f 399
mzta 0:158c61bb030f 400 static void
mzta 0:158c61bb030f 401 mark_tbl(mrb_state *mrb, iv_tbl *t)
mzta 0:158c61bb030f 402 {
mzta 0:158c61bb030f 403 if (t) {
mzta 0:158c61bb030f 404 iv_foreach(mrb, t, iv_mark_i, 0);
mzta 0:158c61bb030f 405 }
mzta 0:158c61bb030f 406 }
mzta 0:158c61bb030f 407
mzta 0:158c61bb030f 408 void
mzta 0:158c61bb030f 409 mrb_gc_mark_gv(mrb_state *mrb)
mzta 0:158c61bb030f 410 {
mzta 0:158c61bb030f 411 mark_tbl(mrb, mrb->globals);
mzta 0:158c61bb030f 412 }
mzta 0:158c61bb030f 413
mzta 0:158c61bb030f 414 void
mzta 0:158c61bb030f 415 mrb_gc_free_gv(mrb_state *mrb)
mzta 0:158c61bb030f 416 {
mzta 0:158c61bb030f 417 if (mrb->globals)
mzta 0:158c61bb030f 418 iv_free(mrb, mrb->globals);
mzta 0:158c61bb030f 419 }
mzta 0:158c61bb030f 420
mzta 0:158c61bb030f 421 void
mzta 0:158c61bb030f 422 mrb_gc_mark_iv(mrb_state *mrb, struct RObject *obj)
mzta 0:158c61bb030f 423 {
mzta 0:158c61bb030f 424 mark_tbl(mrb, obj->iv);
mzta 0:158c61bb030f 425 }
mzta 0:158c61bb030f 426
mzta 0:158c61bb030f 427 size_t
mzta 0:158c61bb030f 428 mrb_gc_mark_iv_size(mrb_state *mrb, struct RObject *obj)
mzta 0:158c61bb030f 429 {
mzta 0:158c61bb030f 430 return iv_size(mrb, obj->iv);
mzta 0:158c61bb030f 431 }
mzta 0:158c61bb030f 432
mzta 0:158c61bb030f 433 void
mzta 0:158c61bb030f 434 mrb_gc_free_iv(mrb_state *mrb, struct RObject *obj)
mzta 0:158c61bb030f 435 {
mzta 0:158c61bb030f 436 if (obj->iv) {
mzta 0:158c61bb030f 437 iv_free(mrb, obj->iv);
mzta 0:158c61bb030f 438 }
mzta 0:158c61bb030f 439 }
mzta 0:158c61bb030f 440
mzta 0:158c61bb030f 441 mrb_value
mzta 0:158c61bb030f 442 mrb_vm_special_get(mrb_state *mrb, mrb_sym i)
mzta 0:158c61bb030f 443 {
mzta 0:158c61bb030f 444 return mrb_fixnum_value(0);
mzta 0:158c61bb030f 445 }
mzta 0:158c61bb030f 446
mzta 0:158c61bb030f 447 void
mzta 0:158c61bb030f 448 mrb_vm_special_set(mrb_state *mrb, mrb_sym i, mrb_value v)
mzta 0:158c61bb030f 449 {
mzta 0:158c61bb030f 450 }
mzta 0:158c61bb030f 451
mzta 0:158c61bb030f 452 static mrb_bool
mzta 0:158c61bb030f 453 obj_iv_p(mrb_value obj)
mzta 0:158c61bb030f 454 {
mzta 0:158c61bb030f 455 switch (mrb_type(obj)) {
mzta 0:158c61bb030f 456 case MRB_TT_OBJECT:
mzta 0:158c61bb030f 457 case MRB_TT_CLASS:
mzta 0:158c61bb030f 458 case MRB_TT_MODULE:
mzta 0:158c61bb030f 459 case MRB_TT_SCLASS:
mzta 0:158c61bb030f 460 case MRB_TT_HASH:
mzta 0:158c61bb030f 461 case MRB_TT_DATA:
mzta 0:158c61bb030f 462 case MRB_TT_EXCEPTION:
mzta 0:158c61bb030f 463 return TRUE;
mzta 0:158c61bb030f 464 default:
mzta 0:158c61bb030f 465 return FALSE;
mzta 0:158c61bb030f 466 }
mzta 0:158c61bb030f 467 }
mzta 0:158c61bb030f 468
mzta 0:158c61bb030f 469 MRB_API mrb_value
mzta 0:158c61bb030f 470 mrb_obj_iv_get(mrb_state *mrb, struct RObject *obj, mrb_sym sym)
mzta 0:158c61bb030f 471 {
mzta 0:158c61bb030f 472 mrb_value v;
mzta 0:158c61bb030f 473
mzta 0:158c61bb030f 474 if (obj->iv && iv_get(mrb, obj->iv, sym, &v))
mzta 0:158c61bb030f 475 return v;
mzta 0:158c61bb030f 476 return mrb_nil_value();
mzta 0:158c61bb030f 477 }
mzta 0:158c61bb030f 478
mzta 0:158c61bb030f 479 MRB_API mrb_value
mzta 0:158c61bb030f 480 mrb_iv_get(mrb_state *mrb, mrb_value obj, mrb_sym sym)
mzta 0:158c61bb030f 481 {
mzta 0:158c61bb030f 482 if (obj_iv_p(obj)) {
mzta 0:158c61bb030f 483 return mrb_obj_iv_get(mrb, mrb_obj_ptr(obj), sym);
mzta 0:158c61bb030f 484 }
mzta 0:158c61bb030f 485 return mrb_nil_value();
mzta 0:158c61bb030f 486 }
mzta 0:158c61bb030f 487
mzta 0:158c61bb030f 488 MRB_API void
mzta 0:158c61bb030f 489 mrb_obj_iv_set(mrb_state *mrb, struct RObject *obj, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 490 {
mzta 0:158c61bb030f 491 iv_tbl *t = obj->iv;
mzta 0:158c61bb030f 492
mzta 0:158c61bb030f 493 if (!t) {
mzta 0:158c61bb030f 494 t = obj->iv = iv_new(mrb);
mzta 0:158c61bb030f 495 }
mzta 0:158c61bb030f 496 mrb_write_barrier(mrb, (struct RBasic*)obj);
mzta 0:158c61bb030f 497 iv_put(mrb, t, sym, v);
mzta 0:158c61bb030f 498 }
mzta 0:158c61bb030f 499
mzta 0:158c61bb030f 500 MRB_API void
mzta 0:158c61bb030f 501 mrb_obj_iv_ifnone(mrb_state *mrb, struct RObject *obj, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 502 {
mzta 0:158c61bb030f 503 iv_tbl *t = obj->iv;
mzta 0:158c61bb030f 504
mzta 0:158c61bb030f 505 if (!t) {
mzta 0:158c61bb030f 506 t = obj->iv = iv_new(mrb);
mzta 0:158c61bb030f 507 }
mzta 0:158c61bb030f 508 else if (iv_get(mrb, t, sym, &v)) {
mzta 0:158c61bb030f 509 return;
mzta 0:158c61bb030f 510 }
mzta 0:158c61bb030f 511 mrb_write_barrier(mrb, (struct RBasic*)obj);
mzta 0:158c61bb030f 512 iv_put(mrb, t, sym, v);
mzta 0:158c61bb030f 513 }
mzta 0:158c61bb030f 514
mzta 0:158c61bb030f 515 MRB_API void
mzta 0:158c61bb030f 516 mrb_iv_set(mrb_state *mrb, mrb_value obj, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 517 {
mzta 0:158c61bb030f 518 if (obj_iv_p(obj)) {
mzta 0:158c61bb030f 519 mrb_obj_iv_set(mrb, mrb_obj_ptr(obj), sym, v);
mzta 0:158c61bb030f 520 }
mzta 0:158c61bb030f 521 else {
mzta 0:158c61bb030f 522 mrb_raise(mrb, E_ARGUMENT_ERROR, "cannot set instance variable");
mzta 0:158c61bb030f 523 }
mzta 0:158c61bb030f 524 }
mzta 0:158c61bb030f 525
mzta 0:158c61bb030f 526 MRB_API mrb_bool
mzta 0:158c61bb030f 527 mrb_obj_iv_defined(mrb_state *mrb, struct RObject *obj, mrb_sym sym)
mzta 0:158c61bb030f 528 {
mzta 0:158c61bb030f 529 iv_tbl *t;
mzta 0:158c61bb030f 530
mzta 0:158c61bb030f 531 t = obj->iv;
mzta 0:158c61bb030f 532 if (t) {
mzta 0:158c61bb030f 533 return iv_get(mrb, t, sym, NULL);
mzta 0:158c61bb030f 534 }
mzta 0:158c61bb030f 535 return FALSE;
mzta 0:158c61bb030f 536 }
mzta 0:158c61bb030f 537
mzta 0:158c61bb030f 538 MRB_API mrb_bool
mzta 0:158c61bb030f 539 mrb_iv_defined(mrb_state *mrb, mrb_value obj, mrb_sym sym)
mzta 0:158c61bb030f 540 {
mzta 0:158c61bb030f 541 if (!obj_iv_p(obj)) return FALSE;
mzta 0:158c61bb030f 542 return mrb_obj_iv_defined(mrb, mrb_obj_ptr(obj), sym);
mzta 0:158c61bb030f 543 }
mzta 0:158c61bb030f 544
mzta 0:158c61bb030f 545 #define identchar(c) (ISALNUM(c) || (c) == '_' || !ISASCII(c))
mzta 0:158c61bb030f 546
mzta 0:158c61bb030f 547 MRB_API mrb_bool
mzta 0:158c61bb030f 548 mrb_iv_p(mrb_state *mrb, mrb_sym iv_name)
mzta 0:158c61bb030f 549 {
mzta 0:158c61bb030f 550 const char *s;
mzta 0:158c61bb030f 551 mrb_int i, len;
mzta 0:158c61bb030f 552
mzta 0:158c61bb030f 553 s = mrb_sym2name_len(mrb, iv_name, &len);
mzta 0:158c61bb030f 554 if (len < 2) return FALSE;
mzta 0:158c61bb030f 555 if (s[0] != '@') return FALSE;
mzta 0:158c61bb030f 556 if (s[1] == '@') return FALSE;
mzta 0:158c61bb030f 557 for (i=1; i<len; i++) {
mzta 0:158c61bb030f 558 if (!identchar(s[i])) return FALSE;
mzta 0:158c61bb030f 559 }
mzta 0:158c61bb030f 560 return TRUE;
mzta 0:158c61bb030f 561 }
mzta 0:158c61bb030f 562
mzta 0:158c61bb030f 563 MRB_API void
mzta 0:158c61bb030f 564 mrb_iv_check(mrb_state *mrb, mrb_sym iv_name)
mzta 0:158c61bb030f 565 {
mzta 0:158c61bb030f 566 if (!mrb_iv_p(mrb, iv_name)) {
mzta 0:158c61bb030f 567 mrb_name_error(mrb, iv_name, "`%S' is not allowed as an instance variable name", mrb_sym2str(mrb, iv_name));
mzta 0:158c61bb030f 568 }
mzta 0:158c61bb030f 569 }
mzta 0:158c61bb030f 570
mzta 0:158c61bb030f 571 MRB_API void
mzta 0:158c61bb030f 572 mrb_iv_copy(mrb_state *mrb, mrb_value dest, mrb_value src)
mzta 0:158c61bb030f 573 {
mzta 0:158c61bb030f 574 struct RObject *d = mrb_obj_ptr(dest);
mzta 0:158c61bb030f 575 struct RObject *s = mrb_obj_ptr(src);
mzta 0:158c61bb030f 576
mzta 0:158c61bb030f 577 if (d->iv) {
mzta 0:158c61bb030f 578 iv_free(mrb, d->iv);
mzta 0:158c61bb030f 579 d->iv = 0;
mzta 0:158c61bb030f 580 }
mzta 0:158c61bb030f 581 if (s->iv) {
mzta 0:158c61bb030f 582 mrb_write_barrier(mrb, (struct RBasic*)d);
mzta 0:158c61bb030f 583 d->iv = iv_copy(mrb, s->iv);
mzta 0:158c61bb030f 584 }
mzta 0:158c61bb030f 585 }
mzta 0:158c61bb030f 586
mzta 0:158c61bb030f 587 static int
mzta 0:158c61bb030f 588 inspect_i(mrb_state *mrb, mrb_sym sym, mrb_value v, void *p)
mzta 0:158c61bb030f 589 {
mzta 0:158c61bb030f 590 mrb_value str = *(mrb_value*)p;
mzta 0:158c61bb030f 591 const char *s;
mzta 0:158c61bb030f 592 mrb_int len;
mzta 0:158c61bb030f 593 mrb_value ins;
mzta 0:158c61bb030f 594 char *sp = RSTRING_PTR(str);
mzta 0:158c61bb030f 595
mzta 0:158c61bb030f 596 /* need not to show internal data */
mzta 0:158c61bb030f 597 if (sp[0] == '-') { /* first element */
mzta 0:158c61bb030f 598 sp[0] = '#';
mzta 0:158c61bb030f 599 mrb_str_cat_lit(mrb, str, " ");
mzta 0:158c61bb030f 600 }
mzta 0:158c61bb030f 601 else {
mzta 0:158c61bb030f 602 mrb_str_cat_lit(mrb, str, ", ");
mzta 0:158c61bb030f 603 }
mzta 0:158c61bb030f 604 s = mrb_sym2name_len(mrb, sym, &len);
mzta 0:158c61bb030f 605 mrb_str_cat(mrb, str, s, len);
mzta 0:158c61bb030f 606 mrb_str_cat_lit(mrb, str, "=");
mzta 0:158c61bb030f 607 if (mrb_type(v) == MRB_TT_OBJECT) {
mzta 0:158c61bb030f 608 ins = mrb_any_to_s(mrb, v);
mzta 0:158c61bb030f 609 }
mzta 0:158c61bb030f 610 else {
mzta 0:158c61bb030f 611 ins = mrb_inspect(mrb, v);
mzta 0:158c61bb030f 612 }
mzta 0:158c61bb030f 613 mrb_str_append(mrb, str, ins);
mzta 0:158c61bb030f 614 return 0;
mzta 0:158c61bb030f 615 }
mzta 0:158c61bb030f 616
mzta 0:158c61bb030f 617 mrb_value
mzta 0:158c61bb030f 618 mrb_obj_iv_inspect(mrb_state *mrb, struct RObject *obj)
mzta 0:158c61bb030f 619 {
mzta 0:158c61bb030f 620 iv_tbl *t = obj->iv;
mzta 0:158c61bb030f 621 size_t len = iv_size(mrb, t);
mzta 0:158c61bb030f 622
mzta 0:158c61bb030f 623 if (len > 0) {
mzta 0:158c61bb030f 624 const char *cn = mrb_obj_classname(mrb, mrb_obj_value(obj));
mzta 0:158c61bb030f 625 mrb_value str = mrb_str_buf_new(mrb, 30);
mzta 0:158c61bb030f 626
mzta 0:158c61bb030f 627 mrb_str_cat_lit(mrb, str, "-<");
mzta 0:158c61bb030f 628 mrb_str_cat_cstr(mrb, str, cn);
mzta 0:158c61bb030f 629 mrb_str_cat_lit(mrb, str, ":");
mzta 0:158c61bb030f 630 mrb_str_concat(mrb, str, mrb_ptr_to_str(mrb, obj));
mzta 0:158c61bb030f 631
mzta 0:158c61bb030f 632 iv_foreach(mrb, t, inspect_i, &str);
mzta 0:158c61bb030f 633 mrb_str_cat_lit(mrb, str, ">");
mzta 0:158c61bb030f 634 return str;
mzta 0:158c61bb030f 635 }
mzta 0:158c61bb030f 636 return mrb_any_to_s(mrb, mrb_obj_value(obj));
mzta 0:158c61bb030f 637 }
mzta 0:158c61bb030f 638
mzta 0:158c61bb030f 639 MRB_API mrb_value
mzta 0:158c61bb030f 640 mrb_iv_remove(mrb_state *mrb, mrb_value obj, mrb_sym sym)
mzta 0:158c61bb030f 641 {
mzta 0:158c61bb030f 642 if (obj_iv_p(obj)) {
mzta 0:158c61bb030f 643 iv_tbl *t = mrb_obj_ptr(obj)->iv;
mzta 0:158c61bb030f 644 mrb_value val;
mzta 0:158c61bb030f 645
mzta 0:158c61bb030f 646 if (t && iv_del(mrb, t, sym, &val)) {
mzta 0:158c61bb030f 647 return val;
mzta 0:158c61bb030f 648 }
mzta 0:158c61bb030f 649 }
mzta 0:158c61bb030f 650 return mrb_undef_value();
mzta 0:158c61bb030f 651 }
mzta 0:158c61bb030f 652
mzta 0:158c61bb030f 653 mrb_value
mzta 0:158c61bb030f 654 mrb_vm_iv_get(mrb_state *mrb, mrb_sym sym)
mzta 0:158c61bb030f 655 {
mzta 0:158c61bb030f 656 /* get self */
mzta 0:158c61bb030f 657 return mrb_iv_get(mrb, mrb->c->stack[0], sym);
mzta 0:158c61bb030f 658 }
mzta 0:158c61bb030f 659
mzta 0:158c61bb030f 660 void
mzta 0:158c61bb030f 661 mrb_vm_iv_set(mrb_state *mrb, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 662 {
mzta 0:158c61bb030f 663 /* get self */
mzta 0:158c61bb030f 664 mrb_iv_set(mrb, mrb->c->stack[0], sym, v);
mzta 0:158c61bb030f 665 }
mzta 0:158c61bb030f 666
mzta 0:158c61bb030f 667 static int
mzta 0:158c61bb030f 668 iv_i(mrb_state *mrb, mrb_sym sym, mrb_value v, void *p)
mzta 0:158c61bb030f 669 {
mzta 0:158c61bb030f 670 mrb_value ary;
mzta 0:158c61bb030f 671 const char* s;
mzta 0:158c61bb030f 672 mrb_int len;
mzta 0:158c61bb030f 673
mzta 0:158c61bb030f 674 ary = *(mrb_value*)p;
mzta 0:158c61bb030f 675 s = mrb_sym2name_len(mrb, sym, &len);
mzta 0:158c61bb030f 676 if (len > 1 && s[0] == '@' && s[1] != '@') {
mzta 0:158c61bb030f 677 mrb_ary_push(mrb, ary, mrb_symbol_value(sym));
mzta 0:158c61bb030f 678 }
mzta 0:158c61bb030f 679 return 0;
mzta 0:158c61bb030f 680 }
mzta 0:158c61bb030f 681
mzta 0:158c61bb030f 682 /* 15.3.1.3.23 */
mzta 0:158c61bb030f 683 /*
mzta 0:158c61bb030f 684 * call-seq:
mzta 0:158c61bb030f 685 * obj.instance_variables -> array
mzta 0:158c61bb030f 686 *
mzta 0:158c61bb030f 687 * Returns an array of instance variable names for the receiver. Note
mzta 0:158c61bb030f 688 * that simply defining an accessor does not create the corresponding
mzta 0:158c61bb030f 689 * instance variable.
mzta 0:158c61bb030f 690 *
mzta 0:158c61bb030f 691 * class Fred
mzta 0:158c61bb030f 692 * attr_accessor :a1
mzta 0:158c61bb030f 693 * def initialize
mzta 0:158c61bb030f 694 * @iv = 3
mzta 0:158c61bb030f 695 * end
mzta 0:158c61bb030f 696 * end
mzta 0:158c61bb030f 697 * Fred.new.instance_variables #=> [:@iv]
mzta 0:158c61bb030f 698 */
mzta 0:158c61bb030f 699 mrb_value
mzta 0:158c61bb030f 700 mrb_obj_instance_variables(mrb_state *mrb, mrb_value self)
mzta 0:158c61bb030f 701 {
mzta 0:158c61bb030f 702 mrb_value ary;
mzta 0:158c61bb030f 703
mzta 0:158c61bb030f 704 ary = mrb_ary_new(mrb);
mzta 0:158c61bb030f 705 if (obj_iv_p(self) && mrb_obj_ptr(self)->iv) {
mzta 0:158c61bb030f 706 iv_foreach(mrb, mrb_obj_ptr(self)->iv, iv_i, &ary);
mzta 0:158c61bb030f 707 }
mzta 0:158c61bb030f 708 return ary;
mzta 0:158c61bb030f 709 }
mzta 0:158c61bb030f 710
mzta 0:158c61bb030f 711 static int
mzta 0:158c61bb030f 712 cv_i(mrb_state *mrb, mrb_sym sym, mrb_value v, void *p)
mzta 0:158c61bb030f 713 {
mzta 0:158c61bb030f 714 mrb_value ary;
mzta 0:158c61bb030f 715 const char* s;
mzta 0:158c61bb030f 716 mrb_int len;
mzta 0:158c61bb030f 717
mzta 0:158c61bb030f 718 ary = *(mrb_value*)p;
mzta 0:158c61bb030f 719 s = mrb_sym2name_len(mrb, sym, &len);
mzta 0:158c61bb030f 720 if (len > 2 && s[0] == '@' && s[1] == '@') {
mzta 0:158c61bb030f 721 mrb_ary_push(mrb, ary, mrb_symbol_value(sym));
mzta 0:158c61bb030f 722 }
mzta 0:158c61bb030f 723 return 0;
mzta 0:158c61bb030f 724 }
mzta 0:158c61bb030f 725
mzta 0:158c61bb030f 726 /* 15.2.2.4.19 */
mzta 0:158c61bb030f 727 /*
mzta 0:158c61bb030f 728 * call-seq:
mzta 0:158c61bb030f 729 * mod.class_variables -> array
mzta 0:158c61bb030f 730 *
mzta 0:158c61bb030f 731 * Returns an array of the names of class variables in <i>mod</i>.
mzta 0:158c61bb030f 732 *
mzta 0:158c61bb030f 733 * class One
mzta 0:158c61bb030f 734 * @@var1 = 1
mzta 0:158c61bb030f 735 * end
mzta 0:158c61bb030f 736 * class Two < One
mzta 0:158c61bb030f 737 * @@var2 = 2
mzta 0:158c61bb030f 738 * end
mzta 0:158c61bb030f 739 * One.class_variables #=> [:@@var1]
mzta 0:158c61bb030f 740 * Two.class_variables #=> [:@@var2]
mzta 0:158c61bb030f 741 */
mzta 0:158c61bb030f 742 mrb_value
mzta 0:158c61bb030f 743 mrb_mod_class_variables(mrb_state *mrb, mrb_value mod)
mzta 0:158c61bb030f 744 {
mzta 0:158c61bb030f 745 mrb_value ary;
mzta 0:158c61bb030f 746 struct RClass *c;
mzta 0:158c61bb030f 747
mzta 0:158c61bb030f 748 ary = mrb_ary_new(mrb);
mzta 0:158c61bb030f 749 c = mrb_class_ptr(mod);
mzta 0:158c61bb030f 750 while (c) {
mzta 0:158c61bb030f 751 if (c->iv) {
mzta 0:158c61bb030f 752 iv_foreach(mrb, c->iv, cv_i, &ary);
mzta 0:158c61bb030f 753 }
mzta 0:158c61bb030f 754 c = c->super;
mzta 0:158c61bb030f 755 }
mzta 0:158c61bb030f 756 return ary;
mzta 0:158c61bb030f 757 }
mzta 0:158c61bb030f 758
mzta 0:158c61bb030f 759 MRB_API mrb_value
mzta 0:158c61bb030f 760 mrb_mod_cv_get(mrb_state *mrb, struct RClass * c, mrb_sym sym)
mzta 0:158c61bb030f 761 {
mzta 0:158c61bb030f 762 struct RClass * cls = c;
mzta 0:158c61bb030f 763
mzta 0:158c61bb030f 764 while (c) {
mzta 0:158c61bb030f 765 if (c->iv) {
mzta 0:158c61bb030f 766 iv_tbl *t = c->iv;
mzta 0:158c61bb030f 767 mrb_value v;
mzta 0:158c61bb030f 768
mzta 0:158c61bb030f 769 if (iv_get(mrb, t, sym, &v))
mzta 0:158c61bb030f 770 return v;
mzta 0:158c61bb030f 771 }
mzta 0:158c61bb030f 772 c = c->super;
mzta 0:158c61bb030f 773 }
mzta 0:158c61bb030f 774 mrb_name_error(mrb, sym, "uninitialized class variable %S in %S",
mzta 0:158c61bb030f 775 mrb_sym2str(mrb, sym), mrb_obj_value(cls));
mzta 0:158c61bb030f 776 /* not reached */
mzta 0:158c61bb030f 777 return mrb_nil_value();
mzta 0:158c61bb030f 778 }
mzta 0:158c61bb030f 779
mzta 0:158c61bb030f 780 MRB_API mrb_value
mzta 0:158c61bb030f 781 mrb_cv_get(mrb_state *mrb, mrb_value mod, mrb_sym sym)
mzta 0:158c61bb030f 782 {
mzta 0:158c61bb030f 783 return mrb_mod_cv_get(mrb, mrb_class_ptr(mod), sym);
mzta 0:158c61bb030f 784 }
mzta 0:158c61bb030f 785
mzta 0:158c61bb030f 786 MRB_API void
mzta 0:158c61bb030f 787 mrb_mod_cv_set(mrb_state *mrb, struct RClass *c, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 788 {
mzta 0:158c61bb030f 789 struct RClass * cls = c;
mzta 0:158c61bb030f 790
mzta 0:158c61bb030f 791 while (c) {
mzta 0:158c61bb030f 792 if (c->iv) {
mzta 0:158c61bb030f 793 iv_tbl *t = c->iv;
mzta 0:158c61bb030f 794
mzta 0:158c61bb030f 795 if (iv_get(mrb, t, sym, NULL)) {
mzta 0:158c61bb030f 796 mrb_write_barrier(mrb, (struct RBasic*)c);
mzta 0:158c61bb030f 797 iv_put(mrb, t, sym, v);
mzta 0:158c61bb030f 798 return;
mzta 0:158c61bb030f 799 }
mzta 0:158c61bb030f 800 }
mzta 0:158c61bb030f 801 c = c->super;
mzta 0:158c61bb030f 802 }
mzta 0:158c61bb030f 803
mzta 0:158c61bb030f 804 if (!cls->iv) {
mzta 0:158c61bb030f 805 cls->iv = iv_new(mrb);
mzta 0:158c61bb030f 806 }
mzta 0:158c61bb030f 807
mzta 0:158c61bb030f 808 mrb_write_barrier(mrb, (struct RBasic*)cls);
mzta 0:158c61bb030f 809 iv_put(mrb, cls->iv, sym, v);
mzta 0:158c61bb030f 810 }
mzta 0:158c61bb030f 811
mzta 0:158c61bb030f 812 MRB_API void
mzta 0:158c61bb030f 813 mrb_cv_set(mrb_state *mrb, mrb_value mod, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 814 {
mzta 0:158c61bb030f 815 mrb_mod_cv_set(mrb, mrb_class_ptr(mod), sym, v);
mzta 0:158c61bb030f 816 }
mzta 0:158c61bb030f 817
mzta 0:158c61bb030f 818 MRB_API mrb_bool
mzta 0:158c61bb030f 819 mrb_mod_cv_defined(mrb_state *mrb, struct RClass * c, mrb_sym sym)
mzta 0:158c61bb030f 820 {
mzta 0:158c61bb030f 821 while (c) {
mzta 0:158c61bb030f 822 if (c->iv) {
mzta 0:158c61bb030f 823 iv_tbl *t = c->iv;
mzta 0:158c61bb030f 824 if (iv_get(mrb, t, sym, NULL)) return TRUE;
mzta 0:158c61bb030f 825 }
mzta 0:158c61bb030f 826 c = c->super;
mzta 0:158c61bb030f 827 }
mzta 0:158c61bb030f 828
mzta 0:158c61bb030f 829 return FALSE;
mzta 0:158c61bb030f 830 }
mzta 0:158c61bb030f 831
mzta 0:158c61bb030f 832 MRB_API mrb_bool
mzta 0:158c61bb030f 833 mrb_cv_defined(mrb_state *mrb, mrb_value mod, mrb_sym sym)
mzta 0:158c61bb030f 834 {
mzta 0:158c61bb030f 835 return mrb_mod_cv_defined(mrb, mrb_class_ptr(mod), sym);
mzta 0:158c61bb030f 836 }
mzta 0:158c61bb030f 837
mzta 0:158c61bb030f 838 mrb_value
mzta 0:158c61bb030f 839 mrb_vm_cv_get(mrb_state *mrb, mrb_sym sym)
mzta 0:158c61bb030f 840 {
mzta 0:158c61bb030f 841 struct RClass *c = mrb->c->ci->proc->target_class;
mzta 0:158c61bb030f 842
mzta 0:158c61bb030f 843 if (!c) c = mrb->c->ci->target_class;
mzta 0:158c61bb030f 844
mzta 0:158c61bb030f 845 return mrb_mod_cv_get(mrb, c, sym);
mzta 0:158c61bb030f 846 }
mzta 0:158c61bb030f 847
mzta 0:158c61bb030f 848 void
mzta 0:158c61bb030f 849 mrb_vm_cv_set(mrb_state *mrb, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 850 {
mzta 0:158c61bb030f 851 struct RClass *c = mrb->c->ci->proc->target_class;
mzta 0:158c61bb030f 852
mzta 0:158c61bb030f 853 if (!c) c = mrb->c->ci->target_class;
mzta 0:158c61bb030f 854 mrb_mod_cv_set(mrb, c, sym, v);
mzta 0:158c61bb030f 855 }
mzta 0:158c61bb030f 856
mzta 0:158c61bb030f 857 static void
mzta 0:158c61bb030f 858 mod_const_check(mrb_state *mrb, mrb_value mod)
mzta 0:158c61bb030f 859 {
mzta 0:158c61bb030f 860 switch (mrb_type(mod)) {
mzta 0:158c61bb030f 861 case MRB_TT_CLASS:
mzta 0:158c61bb030f 862 case MRB_TT_MODULE:
mzta 0:158c61bb030f 863 case MRB_TT_SCLASS:
mzta 0:158c61bb030f 864 break;
mzta 0:158c61bb030f 865 default:
mzta 0:158c61bb030f 866 mrb_raise(mrb, E_TYPE_ERROR, "constant look-up for non class/module");
mzta 0:158c61bb030f 867 break;
mzta 0:158c61bb030f 868 }
mzta 0:158c61bb030f 869 }
mzta 0:158c61bb030f 870
mzta 0:158c61bb030f 871 static mrb_value
mzta 0:158c61bb030f 872 const_get(mrb_state *mrb, struct RClass *base, mrb_sym sym)
mzta 0:158c61bb030f 873 {
mzta 0:158c61bb030f 874 struct RClass *c = base;
mzta 0:158c61bb030f 875 mrb_value v;
mzta 0:158c61bb030f 876 iv_tbl *t;
mzta 0:158c61bb030f 877 mrb_bool retry = FALSE;
mzta 0:158c61bb030f 878 mrb_value name;
mzta 0:158c61bb030f 879
mzta 0:158c61bb030f 880 L_RETRY:
mzta 0:158c61bb030f 881 while (c) {
mzta 0:158c61bb030f 882 if (c->iv) {
mzta 0:158c61bb030f 883 t = c->iv;
mzta 0:158c61bb030f 884 if (iv_get(mrb, t, sym, &v))
mzta 0:158c61bb030f 885 return v;
mzta 0:158c61bb030f 886 }
mzta 0:158c61bb030f 887 c = c->super;
mzta 0:158c61bb030f 888 }
mzta 0:158c61bb030f 889 if (!retry && base && base->tt == MRB_TT_MODULE) {
mzta 0:158c61bb030f 890 c = mrb->object_class;
mzta 0:158c61bb030f 891 retry = TRUE;
mzta 0:158c61bb030f 892 goto L_RETRY;
mzta 0:158c61bb030f 893 }
mzta 0:158c61bb030f 894 name = mrb_symbol_value(sym);
mzta 0:158c61bb030f 895 return mrb_funcall_argv(mrb, mrb_obj_value(base), mrb_intern_lit(mrb, "const_missing"), 1, &name);
mzta 0:158c61bb030f 896 }
mzta 0:158c61bb030f 897
mzta 0:158c61bb030f 898 MRB_API mrb_value
mzta 0:158c61bb030f 899 mrb_const_get(mrb_state *mrb, mrb_value mod, mrb_sym sym)
mzta 0:158c61bb030f 900 {
mzta 0:158c61bb030f 901 mod_const_check(mrb, mod);
mzta 0:158c61bb030f 902 return const_get(mrb, mrb_class_ptr(mod), sym);
mzta 0:158c61bb030f 903 }
mzta 0:158c61bb030f 904
mzta 0:158c61bb030f 905 mrb_value
mzta 0:158c61bb030f 906 mrb_vm_const_get(mrb_state *mrb, mrb_sym sym)
mzta 0:158c61bb030f 907 {
mzta 0:158c61bb030f 908 struct RClass *c = mrb->c->ci->proc->target_class;
mzta 0:158c61bb030f 909
mzta 0:158c61bb030f 910 if (!c) c = mrb->c->ci->target_class;
mzta 0:158c61bb030f 911 if (c) {
mzta 0:158c61bb030f 912 struct RClass *c2;
mzta 0:158c61bb030f 913 mrb_value v;
mzta 0:158c61bb030f 914
mzta 0:158c61bb030f 915 if (c->iv && iv_get(mrb, c->iv, sym, &v)) {
mzta 0:158c61bb030f 916 return v;
mzta 0:158c61bb030f 917 }
mzta 0:158c61bb030f 918 c2 = c;
mzta 0:158c61bb030f 919 for (;;) {
mzta 0:158c61bb030f 920 c2 = mrb_class_outer_module(mrb, c2);
mzta 0:158c61bb030f 921 if (!c2) break;
mzta 0:158c61bb030f 922 if (c2->iv && iv_get(mrb, c2->iv, sym, &v)) {
mzta 0:158c61bb030f 923 return v;
mzta 0:158c61bb030f 924 }
mzta 0:158c61bb030f 925 }
mzta 0:158c61bb030f 926 }
mzta 0:158c61bb030f 927 return const_get(mrb, c, sym);
mzta 0:158c61bb030f 928 }
mzta 0:158c61bb030f 929
mzta 0:158c61bb030f 930 MRB_API void
mzta 0:158c61bb030f 931 mrb_const_set(mrb_state *mrb, mrb_value mod, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 932 {
mzta 0:158c61bb030f 933 mod_const_check(mrb, mod);
mzta 0:158c61bb030f 934 mrb_iv_set(mrb, mod, sym, v);
mzta 0:158c61bb030f 935 }
mzta 0:158c61bb030f 936
mzta 0:158c61bb030f 937 void
mzta 0:158c61bb030f 938 mrb_vm_const_set(mrb_state *mrb, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 939 {
mzta 0:158c61bb030f 940 struct RClass *c = mrb->c->ci->proc->target_class;
mzta 0:158c61bb030f 941
mzta 0:158c61bb030f 942 if (!c) c = mrb->c->ci->target_class;
mzta 0:158c61bb030f 943 mrb_obj_iv_set(mrb, (struct RObject*)c, sym, v);
mzta 0:158c61bb030f 944 }
mzta 0:158c61bb030f 945
mzta 0:158c61bb030f 946 MRB_API void
mzta 0:158c61bb030f 947 mrb_const_remove(mrb_state *mrb, mrb_value mod, mrb_sym sym)
mzta 0:158c61bb030f 948 {
mzta 0:158c61bb030f 949 mod_const_check(mrb, mod);
mzta 0:158c61bb030f 950 mrb_iv_remove(mrb, mod, sym);
mzta 0:158c61bb030f 951 }
mzta 0:158c61bb030f 952
mzta 0:158c61bb030f 953 MRB_API void
mzta 0:158c61bb030f 954 mrb_define_const(mrb_state *mrb, struct RClass *mod, const char *name, mrb_value v)
mzta 0:158c61bb030f 955 {
mzta 0:158c61bb030f 956 mrb_obj_iv_set(mrb, (struct RObject*)mod, mrb_intern_cstr(mrb, name), v);
mzta 0:158c61bb030f 957 }
mzta 0:158c61bb030f 958
mzta 0:158c61bb030f 959 MRB_API void
mzta 0:158c61bb030f 960 mrb_define_global_const(mrb_state *mrb, const char *name, mrb_value val)
mzta 0:158c61bb030f 961 {
mzta 0:158c61bb030f 962 mrb_define_const(mrb, mrb->object_class, name, val);
mzta 0:158c61bb030f 963 }
mzta 0:158c61bb030f 964
mzta 0:158c61bb030f 965 static int
mzta 0:158c61bb030f 966 const_i(mrb_state *mrb, mrb_sym sym, mrb_value v, void *p)
mzta 0:158c61bb030f 967 {
mzta 0:158c61bb030f 968 mrb_value ary;
mzta 0:158c61bb030f 969 const char* s;
mzta 0:158c61bb030f 970 mrb_int len;
mzta 0:158c61bb030f 971
mzta 0:158c61bb030f 972 ary = *(mrb_value*)p;
mzta 0:158c61bb030f 973 s = mrb_sym2name_len(mrb, sym, &len);
mzta 0:158c61bb030f 974 if (len >= 1 && ISUPPER(s[0])) {
mzta 0:158c61bb030f 975 mrb_ary_push(mrb, ary, mrb_symbol_value(sym));
mzta 0:158c61bb030f 976 }
mzta 0:158c61bb030f 977 return 0;
mzta 0:158c61bb030f 978 }
mzta 0:158c61bb030f 979
mzta 0:158c61bb030f 980 /* 15.2.2.4.24 */
mzta 0:158c61bb030f 981 /*
mzta 0:158c61bb030f 982 * call-seq:
mzta 0:158c61bb030f 983 * mod.constants -> array
mzta 0:158c61bb030f 984 *
mzta 0:158c61bb030f 985 * Returns an array of all names of contants defined in the receiver.
mzta 0:158c61bb030f 986 */
mzta 0:158c61bb030f 987 mrb_value
mzta 0:158c61bb030f 988 mrb_mod_constants(mrb_state *mrb, mrb_value mod)
mzta 0:158c61bb030f 989 {
mzta 0:158c61bb030f 990 mrb_value ary;
mzta 0:158c61bb030f 991 mrb_bool inherit = TRUE;
mzta 0:158c61bb030f 992 struct RClass *c = mrb_class_ptr(mod);
mzta 0:158c61bb030f 993
mzta 0:158c61bb030f 994 mrb_get_args(mrb, "|b", &inherit);
mzta 0:158c61bb030f 995 ary = mrb_ary_new(mrb);
mzta 0:158c61bb030f 996 while (c) {
mzta 0:158c61bb030f 997 if (c->iv) {
mzta 0:158c61bb030f 998 iv_foreach(mrb, c->iv, const_i, &ary);
mzta 0:158c61bb030f 999 }
mzta 0:158c61bb030f 1000 if (!inherit) break;
mzta 0:158c61bb030f 1001 c = c->super;
mzta 0:158c61bb030f 1002 if (c == mrb->object_class) break;
mzta 0:158c61bb030f 1003 }
mzta 0:158c61bb030f 1004 return ary;
mzta 0:158c61bb030f 1005 }
mzta 0:158c61bb030f 1006
mzta 0:158c61bb030f 1007 MRB_API mrb_value
mzta 0:158c61bb030f 1008 mrb_gv_get(mrb_state *mrb, mrb_sym sym)
mzta 0:158c61bb030f 1009 {
mzta 0:158c61bb030f 1010 mrb_value v;
mzta 0:158c61bb030f 1011
mzta 0:158c61bb030f 1012 if (!mrb->globals) {
mzta 0:158c61bb030f 1013 return mrb_nil_value();
mzta 0:158c61bb030f 1014 }
mzta 0:158c61bb030f 1015 if (iv_get(mrb, mrb->globals, sym, &v))
mzta 0:158c61bb030f 1016 return v;
mzta 0:158c61bb030f 1017 return mrb_nil_value();
mzta 0:158c61bb030f 1018 }
mzta 0:158c61bb030f 1019
mzta 0:158c61bb030f 1020 MRB_API void
mzta 0:158c61bb030f 1021 mrb_gv_set(mrb_state *mrb, mrb_sym sym, mrb_value v)
mzta 0:158c61bb030f 1022 {
mzta 0:158c61bb030f 1023 iv_tbl *t;
mzta 0:158c61bb030f 1024
mzta 0:158c61bb030f 1025 if (!mrb->globals) {
mzta 0:158c61bb030f 1026 t = mrb->globals = iv_new(mrb);
mzta 0:158c61bb030f 1027 }
mzta 0:158c61bb030f 1028 else {
mzta 0:158c61bb030f 1029 t = mrb->globals;
mzta 0:158c61bb030f 1030 }
mzta 0:158c61bb030f 1031 iv_put(mrb, t, sym, v);
mzta 0:158c61bb030f 1032 }
mzta 0:158c61bb030f 1033
mzta 0:158c61bb030f 1034 MRB_API void
mzta 0:158c61bb030f 1035 mrb_gv_remove(mrb_state *mrb, mrb_sym sym)
mzta 0:158c61bb030f 1036 {
mzta 0:158c61bb030f 1037 if (!mrb->globals) {
mzta 0:158c61bb030f 1038 return;
mzta 0:158c61bb030f 1039 }
mzta 0:158c61bb030f 1040 iv_del(mrb, mrb->globals, sym, NULL);
mzta 0:158c61bb030f 1041 }
mzta 0:158c61bb030f 1042
mzta 0:158c61bb030f 1043 static int
mzta 0:158c61bb030f 1044 gv_i(mrb_state *mrb, mrb_sym sym, mrb_value v, void *p)
mzta 0:158c61bb030f 1045 {
mzta 0:158c61bb030f 1046 mrb_value ary;
mzta 0:158c61bb030f 1047
mzta 0:158c61bb030f 1048 ary = *(mrb_value*)p;
mzta 0:158c61bb030f 1049 mrb_ary_push(mrb, ary, mrb_symbol_value(sym));
mzta 0:158c61bb030f 1050 return 0;
mzta 0:158c61bb030f 1051 }
mzta 0:158c61bb030f 1052
mzta 0:158c61bb030f 1053 /* 15.3.1.2.4 */
mzta 0:158c61bb030f 1054 /* 15.3.1.3.14 */
mzta 0:158c61bb030f 1055 /*
mzta 0:158c61bb030f 1056 * call-seq:
mzta 0:158c61bb030f 1057 * global_variables -> array
mzta 0:158c61bb030f 1058 *
mzta 0:158c61bb030f 1059 * Returns an array of the names of global variables.
mzta 0:158c61bb030f 1060 *
mzta 0:158c61bb030f 1061 * global_variables.grep /std/ #=> [:$stdin, :$stdout, :$stderr]
mzta 0:158c61bb030f 1062 */
mzta 0:158c61bb030f 1063 mrb_value
mzta 0:158c61bb030f 1064 mrb_f_global_variables(mrb_state *mrb, mrb_value self)
mzta 0:158c61bb030f 1065 {
mzta 0:158c61bb030f 1066 iv_tbl *t = mrb->globals;
mzta 0:158c61bb030f 1067 mrb_value ary = mrb_ary_new(mrb);
mzta 0:158c61bb030f 1068 size_t i;
mzta 0:158c61bb030f 1069 char buf[3];
mzta 0:158c61bb030f 1070
mzta 0:158c61bb030f 1071 if (t) {
mzta 0:158c61bb030f 1072 iv_foreach(mrb, t, gv_i, &ary);
mzta 0:158c61bb030f 1073 }
mzta 0:158c61bb030f 1074 buf[0] = '$';
mzta 0:158c61bb030f 1075 buf[2] = 0;
mzta 0:158c61bb030f 1076 for (i = 1; i <= 9; ++i) {
mzta 0:158c61bb030f 1077 buf[1] = (char)(i + '0');
mzta 0:158c61bb030f 1078 mrb_ary_push(mrb, ary, mrb_symbol_value(mrb_intern(mrb, buf, 2)));
mzta 0:158c61bb030f 1079 }
mzta 0:158c61bb030f 1080 return ary;
mzta 0:158c61bb030f 1081 }
mzta 0:158c61bb030f 1082
mzta 0:158c61bb030f 1083 static mrb_bool
mzta 0:158c61bb030f 1084 mrb_const_defined_0(mrb_state *mrb, mrb_value mod, mrb_sym id, mrb_bool exclude, mrb_bool recurse)
mzta 0:158c61bb030f 1085 {
mzta 0:158c61bb030f 1086 struct RClass *klass = mrb_class_ptr(mod);
mzta 0:158c61bb030f 1087 struct RClass *tmp;
mzta 0:158c61bb030f 1088 mrb_bool mod_retry = 0;
mzta 0:158c61bb030f 1089
mzta 0:158c61bb030f 1090 tmp = klass;
mzta 0:158c61bb030f 1091 retry:
mzta 0:158c61bb030f 1092 while (tmp) {
mzta 0:158c61bb030f 1093 if (tmp->iv && iv_get(mrb, tmp->iv, id, NULL)) {
mzta 0:158c61bb030f 1094 return TRUE;
mzta 0:158c61bb030f 1095 }
mzta 0:158c61bb030f 1096 if (!recurse && (klass != mrb->object_class)) break;
mzta 0:158c61bb030f 1097 tmp = tmp->super;
mzta 0:158c61bb030f 1098 }
mzta 0:158c61bb030f 1099 if (!exclude && !mod_retry && (klass->tt == MRB_TT_MODULE)) {
mzta 0:158c61bb030f 1100 mod_retry = 1;
mzta 0:158c61bb030f 1101 tmp = mrb->object_class;
mzta 0:158c61bb030f 1102 goto retry;
mzta 0:158c61bb030f 1103 }
mzta 0:158c61bb030f 1104 return FALSE;
mzta 0:158c61bb030f 1105 }
mzta 0:158c61bb030f 1106
mzta 0:158c61bb030f 1107 MRB_API mrb_bool
mzta 0:158c61bb030f 1108 mrb_const_defined(mrb_state *mrb, mrb_value mod, mrb_sym id)
mzta 0:158c61bb030f 1109 {
mzta 0:158c61bb030f 1110 return mrb_const_defined_0(mrb, mod, id, TRUE, TRUE);
mzta 0:158c61bb030f 1111 }
mzta 0:158c61bb030f 1112
mzta 0:158c61bb030f 1113 MRB_API mrb_bool
mzta 0:158c61bb030f 1114 mrb_const_defined_at(mrb_state *mrb, mrb_value mod, mrb_sym id)
mzta 0:158c61bb030f 1115 {
mzta 0:158c61bb030f 1116 return mrb_const_defined_0(mrb, mod, id, TRUE, FALSE);
mzta 0:158c61bb030f 1117 }
mzta 0:158c61bb030f 1118
mzta 0:158c61bb030f 1119 MRB_API mrb_value
mzta 0:158c61bb030f 1120 mrb_attr_get(mrb_state *mrb, mrb_value obj, mrb_sym id)
mzta 0:158c61bb030f 1121 {
mzta 0:158c61bb030f 1122 return mrb_iv_get(mrb, obj, id);
mzta 0:158c61bb030f 1123 }
mzta 0:158c61bb030f 1124
mzta 0:158c61bb030f 1125 struct csym_arg {
mzta 0:158c61bb030f 1126 struct RClass *c;
mzta 0:158c61bb030f 1127 mrb_sym sym;
mzta 0:158c61bb030f 1128 };
mzta 0:158c61bb030f 1129
mzta 0:158c61bb030f 1130 static int
mzta 0:158c61bb030f 1131 csym_i(mrb_state *mrb, mrb_sym sym, mrb_value v, void *p)
mzta 0:158c61bb030f 1132 {
mzta 0:158c61bb030f 1133 struct csym_arg *a = (struct csym_arg*)p;
mzta 0:158c61bb030f 1134 struct RClass *c = a->c;
mzta 0:158c61bb030f 1135
mzta 0:158c61bb030f 1136 if (mrb_type(v) == c->tt && mrb_class_ptr(v) == c) {
mzta 0:158c61bb030f 1137 a->sym = sym;
mzta 0:158c61bb030f 1138 return 1; /* stop iteration */
mzta 0:158c61bb030f 1139 }
mzta 0:158c61bb030f 1140 return 0;
mzta 0:158c61bb030f 1141 }
mzta 0:158c61bb030f 1142
mzta 0:158c61bb030f 1143 mrb_sym
mzta 0:158c61bb030f 1144 mrb_class_sym(mrb_state *mrb, struct RClass *c, struct RClass *outer)
mzta 0:158c61bb030f 1145 {
mzta 0:158c61bb030f 1146 mrb_value name;
mzta 0:158c61bb030f 1147
mzta 0:158c61bb030f 1148 name = mrb_obj_iv_get(mrb, (struct RObject*)c, mrb_intern_lit(mrb, "__classid__"));
mzta 0:158c61bb030f 1149 if (mrb_nil_p(name)) {
mzta 0:158c61bb030f 1150
mzta 0:158c61bb030f 1151 if (!outer) return 0;
mzta 0:158c61bb030f 1152 else {
mzta 0:158c61bb030f 1153 struct csym_arg arg;
mzta 0:158c61bb030f 1154
mzta 0:158c61bb030f 1155 arg.c = c;
mzta 0:158c61bb030f 1156 arg.sym = 0;
mzta 0:158c61bb030f 1157 iv_foreach(mrb, outer->iv, csym_i, &arg);
mzta 0:158c61bb030f 1158 return arg.sym;
mzta 0:158c61bb030f 1159 }
mzta 0:158c61bb030f 1160 }
mzta 0:158c61bb030f 1161 return mrb_symbol(name);
mzta 0:158c61bb030f 1162 }
mzta 0:158c61bb030f 1163