c_object.c

Go to the documentation of this file.

 
/***** Feature test switches ************************************************/
/***** System headers *******************************************************/
//@cond
#include "vm_config.h"
#include <stdlib.h>
#include <stdint.h>
#include <string.h>
#include <assert.h>
//@endcond
 
/***** Local headers ********************************************************/
#include "mrubyc.h"
 
/***** Macros ***************************************************************/
#define IS_CLASS_OR_MODULE(v) \
  (mrbc_type(v) == MRBC_TT_CLASS || mrbc_type(v) == MRBC_TT_MODULE)
 
 
/***** Local functions ******************************************************/
#if MRBC_USE_STRING
//================================================================
static int set_sym_name_by_id( char *buf, int bufsiz, mrbc_sym sym_id )
{
  if( !mrbc_is_nested_symid(sym_id) ) {
    return mrbc_strcpy( buf, bufsiz, mrbc_symid_to_str(sym_id) );
  }
 
  // nested case.
  mrbc_sym id1, id2;
  mrbc_separate_nested_symid( sym_id, &id1, &id2 );
 
  int n = set_sym_name_by_id( buf, bufsiz, id1 );
  n += mrbc_strcpy( buf+n, bufsiz-n, "::" );
  n += set_sym_name_by_id( buf+n, bufsiz-n, id2 );
 
  return n;
}
#endif
 
 
/***** global functions *****************************************************/
//================================================================
void mrbc_instance_call_initialize( mrbc_vm *vm, mrbc_value v[], int argc )
{
  // call the initialize method.
  mrbc_method method;
  if( !mrbc_find_method(&method, v[0].instance->cls, MRBC_SYM(initialize))) {
    return;
  }
 
  if( method.c_func ) {
    method.func(vm, v, argc);
    for( int i = 1; i <= argc; i++ ) {
      mrbc_decref_empty( v + i );
    }
    return;
  }
 
  mrbc_callinfo *callinfo = mrbc_push_callinfo(vm, MRBC_SYM(initialize),
                                               (v - vm->cur_regs), argc);
  callinfo->own_class = method.cls;
 
  vm->cur_irep = method.irep;
  vm->inst = vm->cur_irep->inst;
  vm->cur_regs = v;
}
 
 
#if MRBC_USE_STRING
//================================================================
void mrbc_object_inspect(mrbc_vm *vm, mrbc_value v[], int argc)
{
  char buf[64];         // max length of class (or object) name.
  char *s = buf;
  mrbc_sym sym_id = find_class_by_object(&v[0])->sym_id;
  int class_or_module = IS_CLASS_OR_MODULE(v[0]);
 
  if (!class_or_module) {
    buf[0] = '#'; buf[1] = '<';
    s = buf + 2;
  }
 
  int bufsiz = sizeof(buf) - (s - buf);
  int n = set_sym_name_by_id( s, bufsiz, sym_id );
 
  if (!class_or_module) {
    mrbc_snprintf(s+n, bufsiz-n, ":%08x>", MRBC_PTR_TO_UINT32(v->instance));
  }
 
  SET_RETURN( mrbc_string_new_cstr( vm, buf ));
}
#endif
 
 
/***** Object class *********************************************************/
//================================================================
static void c_object_new(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_instance_new(vm, v[0].cls, 0);
  mrbc_instance_call_initialize( vm, v, argc );
}
 
 
//================================================================
static void c_object_not(mrbc_vm *vm, mrbc_value v[], int argc)
{
  SET_BOOL_RETURN( mrbc_type(v[0]) == MRBC_TT_NIL || mrbc_type(v[0]) == MRBC_TT_FALSE );
}
 
 
//================================================================
static void c_object_neq(mrbc_vm *vm, mrbc_value v[], int argc)
{
  int result = mrbc_compare( &v[0], &v[1] );
  SET_BOOL_RETURN( result != 0 );
}
 
 
//================================================================
static void c_object_compare(mrbc_vm *vm, mrbc_value v[], int argc)
{
  int result = mrbc_compare( &v[0], &v[1] );
  SET_INT_RETURN( result );
}
 
 
//================================================================
static void c_object_equal2(mrbc_vm *vm, mrbc_value v[], int argc)
{
  int result = mrbc_compare( &v[0], &v[1] );
  SET_BOOL_RETURN( result == 0 );
}
 
 
//================================================================
static void c_object_equal3(mrbc_vm *vm, mrbc_value v[], int argc)
{
  int result;
 
  if( mrbc_type(v[0]) == MRBC_TT_CLASS ) {
    result = mrbc_obj_is_kind_of( &v[1], v[0].cls );
  } else {
    result = (mrbc_compare( &v[0], &v[1] ) == 0);
  }
 
  SET_BOOL_RETURN( result );
}
 
 
//================================================================
static void c_object_class(mrbc_vm *vm, mrbc_value v[], int argc)
{
  mrbc_value value;
 
  mrbc_set_tt(&value, MRBC_TT_CLASS);
  value.cls = find_class_by_object( v );
  SET_RETURN( value );
}
 
 
//================================================================
static void c_object_dup(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( mrbc_type(v[0]) == MRBC_TT_OBJECT ) {
    mrbc_value new_obj = mrbc_instance_new(vm, v->instance->cls, 0);
    mrbc_kv_dup( &v->instance->ivar, &new_obj.instance->ivar );
 
    mrbc_decref( v );
    *v = new_obj;
    return;
  }
 
 
  // TODO: need support TT_PROC and TT_RANGE. but really need?
  return;
}
 
 
//================================================================
static void c_object_block_given(mrbc_vm *vm, mrbc_value v[], int argc)
{
  mrbc_callinfo *callinfo = vm->callinfo_tail;
  if( !callinfo ) goto RETURN_FALSE;
 
  mrbc_value *regs = callinfo->cur_regs + callinfo->reg_offset;
 
  if( mrbc_type(regs[0]) == MRBC_TT_PROC ) {
    callinfo = regs[0].proc->callinfo_self;
    if( !callinfo ) goto RETURN_FALSE;
 
    regs = callinfo->cur_regs + callinfo->reg_offset;
  }
 
  SET_BOOL_RETURN( mrbc_type(regs[callinfo->n_args+1]) == MRBC_TT_PROC );
  return;
 
 RETURN_FALSE:
  SET_FALSE_RETURN();
}
 
 
//================================================================
static void c_object_kind_of(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( !IS_CLASS_OR_MODULE(v[1]) ) {
    mrbc_raise(vm, MRBC_CLASS(TypeError), "class or module required");
    return;
  }
 
  SET_BOOL_RETURN( mrbc_obj_is_kind_of( &v[0], v[1].cls ));
}
 
 
//================================================================
static void c_object_nil(mrbc_vm *vm, mrbc_value v[], int argc)
{
  SET_BOOL_RETURN( mrbc_type(v[0]) == MRBC_TT_NIL );
}
 
 
//================================================================
#if !defined(MRBC_NO_STDIO)
static void c_object_p(mrbc_vm *vm, mrbc_value v[], int argc)
{
  for( int i = 1; i <= argc; i++ ) {
    mrbc_p( &v[i] );
  }
 
  if (argc == 0) {
    SET_NIL_RETURN();
 
  } else if (argc == 1) {
    mrbc_incref( &v[1] );
    SET_RETURN(v[1]);
 
  } else {
    mrbc_value value = mrbc_array_new(vm, argc);
    for( int i = 1; i <= argc; i++ ) {
      mrbc_incref( &v[i] );
      mrbc_array_push( &value, &v[i] );
    }
    SET_RETURN(value);
  }
}
#endif
 
 
//================================================================
#if !defined(MRBC_NO_STDIO)
static void c_object_print(mrbc_vm *vm, mrbc_value v[], int argc)
{
  for( int i = 1; i <= argc; i++ ) {
    mrbc_print_sub( &v[i] );
  }
  SET_NIL_RETURN();
}
#endif
 
 
//================================================================
#if !defined(MRBC_NO_STDIO)
static void c_object_puts(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( argc ) {
    for( int i = 1; i <= argc; i++ ) {
      if( mrbc_puts_sub( &v[i] ) == 0 ) mrbc_putchar('\n');
    }
  } else {
    mrbc_putchar('\n');
  }
  SET_NIL_RETURN();
}
#endif
 
 
//================================================================
static void c_object_raise(mrbc_vm *vm, mrbc_value v[], int argc)
{
  assert( !mrbc_israised(vm) );
 
  // case 1. raise (no argument)
  if( argc == 0 ) {
    vm->exception = mrbc_exception_new( vm, MRBC_CLASS(RuntimeError), "", 0 );
  } else
 
  // case 2. raise "message"
  if( argc == 1 && mrbc_type(v[1]) == MRBC_TT_STRING ) {
    vm->exception = mrbc_exception_new( vm, MRBC_CLASS(RuntimeError),
                        mrbc_string_cstr(&v[1]), mrbc_string_size(&v[1]) );
  } else
 
  // case 3. raise ExceptionClass
  if( argc == 1 && mrbc_type(v[1]) == MRBC_TT_CLASS &&
      mrbc_obj_is_kind_of( &v[1], MRBC_CLASS(Exception))) {
    vm->exception = mrbc_exception_new( vm, v[1].cls, 0, 0 );
  } else
 
  // case 4. raise ExceptionObject
  if( argc == 1 && mrbc_type(v[1]) == MRBC_TT_EXCEPTION ) {
    mrbc_incref( &v[1] );
    vm->exception = v[1];
  } else
 
  // case 5. raise ExceptionClass, "param"
  if( argc == 2 && mrbc_type(v[1]) == MRBC_TT_CLASS
                && mrbc_type(v[2]) == MRBC_TT_STRING ) {
    vm->exception = mrbc_exception_new( vm, v[1].cls,
                        mrbc_string_cstr(&v[2]), mrbc_string_size(&v[2]) );
  } else
 
  // case 6. raise ExceptionObject, "param"
  if( argc == 2 && mrbc_type(v[1]) == MRBC_TT_EXCEPTION
                && mrbc_type(v[2]) == MRBC_TT_STRING ) {
    vm->exception = mrbc_exception_new( vm, v[1].exception->cls,
                        mrbc_string_cstr(&v[2]), mrbc_string_size(&v[2]) );
  } else {
 
    // fail.
    vm->exception = mrbc_exception_new( vm, MRBC_CLASS(ArgumentError), 0, 0 );
  }
 
  // set raised method to exception instance.
  if( vm->callinfo_tail != 0 &&
      vm->exception.tt == MRBC_TT_EXCEPTION &&
      vm->exception.exception->method_id == 0 ) {
    vm->exception.exception->method_id = vm->callinfo_tail->method_id;
  }
 
  vm->flag_preemption = 2;
}
 
 
#if defined(MRBC_DEBUG)
//================================================================
static void c_object_object_id(mrbc_vm *vm, mrbc_value v[], int argc)
{
  // tiny implementation.
  SET_INT_RETURN( mrbc_integer(v[0]) );
}
 
 
//================================================================
static void c_object_instance_methods(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( mrbc_type(v[0]) != MRBC_TT_CLASS ) return;
 
  int flag_inherit = !(argc >= 1 && mrbc_type(v[1]) == MRBC_TT_FALSE);
  mrbc_value ret = mrbc_array_new( vm, 0 );
  mrbc_class *cls = v[0].cls;
  mrbc_class *nest_buf[MRBC_TRAVERSE_NEST_LEVEL];
  int nest_idx = 0;
 
  while( 1 ) {
    // builtin method.
    for( int i = 0; i < cls->num_builtin_method; i++ ) {
      mrbc_array_push( &ret,
        &mrbc_symbol_value(((struct RBuiltinClass *)cls)->method_symbols[i]) );
    }
 
    // no builtin method.
    const mrbc_method *method = cls->flag_nomethod ? NULL : cls->method_link;
    while( method ) {
      mrbc_array_push( &ret, &mrbc_symbol_value(method->sym_id) );
      method = method->next;
    }
 
    if( !flag_inherit ) break;
 
    cls = mrbc_traverse_class_tree( cls, nest_buf, &nest_idx );
    if( !cls ) break;
    if( cls->flag_alias ) cls = cls->aliased;
  }
 
  SET_RETURN(ret);
}
 
 
//================================================================
static void c_object_instance_variables(mrbc_vm *vm, mrbc_value v[], int argc)
{
  // temporary code for operation check.
 
  mrbc_value ret = mrbc_array_new( vm, 0 );
  mrbc_kv_handle *kvh = &v[0].instance->ivar;
#if 0
  mrbc_printf("n = %d/%d ", kvh->n_stored, kvh->data_size);
#endif
 
  if( mrbc_type(v[0]) == MRBC_TT_OBJECT ) {
    for( int i = 0; i < kvh->n_stored; i++ ) {
      mrbc_array_push( &ret, &mrbc_symbol_value(kvh->data[i].sym_id) );
    }
  }
 
  SET_RETURN(ret);
}
 
 
#if !defined(MRBC_ALLOC_LIBC)
//================================================================
static void c_object_memory_statistics(mrbc_vm *vm, mrbc_value v[], int argc)
{
  struct MRBC_ALLOC_STATISTICS mem;
 
  mrbc_alloc_statistics( &mem );
  if( argc == 0 || mrbc_type(v[1]) == MRBC_TT_TRUE ) {
    mrbc_printf("Memory Statistics\n");
    mrbc_printf("  Total: %d\n", mem.total);
    mrbc_printf("  Used : %d\n", mem.used);
    mrbc_printf("  Free : %d\n", mem.free);
    mrbc_printf("  Frag.: %d\n", mem.fragmentation);
  }
 
  // make a return value.
  mrbc_value ret = mrbc_hash_new(vm, 4);
  mrbc_hash_set(&ret, &mrbc_symbol_value( mrbc_str_to_symid("total") ),
                      &mrbc_integer_value( mem.total ));
  mrbc_hash_set(&ret, &mrbc_symbol_value( mrbc_str_to_symid("used") ),
                      &mrbc_integer_value( mem.used ));
  mrbc_hash_set(&ret, &mrbc_symbol_value( mrbc_str_to_symid("free") ),
                      &mrbc_integer_value( mem.free ));
  mrbc_hash_set(&ret, &mrbc_symbol_value( mrbc_str_to_symid("fragmentation") ),
                      &mrbc_integer_value( mem.fragmentation ));
 
  SET_RETURN(ret);
}
#endif  // MRBC_ALLOC_LIBC
#endif  // MRBC_DEBUG
 
 
//================================================================
static void c_object_getiv(mrbc_vm *vm, mrbc_value v[], int argc)
{
  mrbc_sym sym_id = mrbc_get_callee_symid(vm);
  mrbc_value ret = mrbc_instance_getiv(&v[0], sym_id);
 
  SET_RETURN(ret);
}
 
 
//================================================================
static void c_object_setiv(mrbc_vm *vm, mrbc_value v[], int argc)
{
  char namebuf_auto[16];
  char *namebuf;
  const char *name = mrbc_get_callee_name(vm);
  int len = strlen(name);
 
  if( sizeof(namebuf_auto) < len ) {
    namebuf = mrbc_alloc(vm, len);
  } else {
    namebuf = namebuf_auto;
  }
 
  memcpy( namebuf, name, len-1 );
  namebuf[len-1] = '\0';        // delete '='
  mrbc_sym sym_id = mrbc_str_to_symid(namebuf);
 
  mrbc_instance_setiv(&v[0], sym_id, &v[1]);
 
  if( namebuf != namebuf_auto ) mrbc_free(vm, namebuf);
}
 
 
//================================================================
static void c_object_attr_reader(mrbc_vm *vm, mrbc_value v[], int argc)
{
  for( int i = 1; i <= argc; i++ ) {
    if( mrbc_type(v[i]) != MRBC_TT_SYMBOL ) {
      // Not support "String" only :symbol
      mrbc_raise(vm, MRBC_CLASS(TypeError), "not a symbol");
      return;
    }
 
    // define reader method
    const char *name = mrbc_symbol_cstr(&v[i]);
    mrbc_define_method(vm, v[0].cls, name, c_object_getiv);
  }
}
 
 
//================================================================
static void c_object_attr_accessor(mrbc_vm *vm, mrbc_value v[], int argc)
{
  for( int i = 1; i <= argc; i++ ) {
    if( mrbc_type(v[i]) != MRBC_TT_SYMBOL ) {
      // Not support "String" only :symbol
      mrbc_raise(vm, MRBC_CLASS(TypeError), "not a symbol");
      return;
    }
 
    // define reader method
    const char *name = mrbc_symbol_cstr(&v[i]);
    mrbc_define_method(vm, v[0].cls, name, c_object_getiv);
 
    // make string "....=" and define writer method.
    int len = strlen(name);
    char *namebuf = mrbc_alloc(vm, len+2);
 
    memcpy(namebuf, name, len);
    namebuf[len] = '=';
    namebuf[len+1] = 0;
    mrbc_symbol_new(vm, namebuf);
    mrbc_define_method(vm, v[0].cls, namebuf, c_object_setiv);
    mrbc_free(vm, namebuf);
  }
}
 
 
//================================================================
static void c_object_include(mrbc_vm *vm, mrbc_value v[], int argc)
{
  mrbc_class *self;
 
  if( IS_CLASS_OR_MODULE(v[0]) ) {
    self = v[0].cls;
  } else if( vm->callinfo_tail == 0 ) {    // is top level?
    self = MRBC_CLASS(Object);
  } else {
    mrbc_raise( vm, 0, 0 );
    return; // Error.
  }
 
  for( int i = 1; i <= argc; i++ ) {
    if( mrbc_type(v[i]) != MRBC_TT_MODULE ) {
      mrbc_raise(vm, MRBC_CLASS(TypeError), "wrong argument type Class");
      return;
    }
    mrbc_class *module = v[i].cls;
    mrbc_class *alias = mrbc_raw_alloc_no_free( sizeof(mrbc_class) );
 
    *alias = (mrbc_class){
      .sym_id = module->sym_id,
      .flag_module = 1,
      .flag_alias = 1,
      .super = self->super,
      .aliased = module,
#if defined(MRBC_DEBUG)
      .obj_mark_ = "MA",
      .name = module->name,
#endif
    };
    self->super = alias;
  }
}
 
 
//================================================================
static void c_object_constants(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( mrbc_type(v[0]) != MRBC_TT_CLASS ) {
    mrbc_raise(vm, MRBC_CLASS(NoMethodError), 0);
    return;
  }
 
  int flag_inherit = !(argc >= 1 && mrbc_type(v[1]) == MRBC_TT_FALSE);
  mrbc_value ret = mrbc_array_new( vm, 0 );
  mrbc_class *cls = v[0].cls;
  mrbc_class *nest_buf[MRBC_TRAVERSE_NEST_LEVEL];
  int nest_idx = 0;
 
 
  while( 1 ) {
    mrbc_get_all_class_const( cls, &ret );
    if( !flag_inherit ) break;
 
    cls = mrbc_traverse_class_tree( cls, nest_buf, &nest_idx );
    if( cls == MRBC_CLASS(Object) ) {
      cls = mrbc_traverse_class_tree_skip( nest_buf, &nest_idx );
    }
    if( !cls ) break;
    if( cls->flag_alias ) cls = cls->aliased;
  }
 
  SET_RETURN(ret);
}
 
 
#if MRBC_USE_STRING
//================================================================
static void c_object_sprintf(mrbc_vm *vm, mrbc_value v[], int argc)
{
  static const int BUF_INC_STEP = 32;   // bytes.
 
  mrbc_value *format = &v[1];
  if( mrbc_type(*format) != MRBC_TT_STRING ) {
    mrbc_raise(vm, MRBC_CLASS(TypeError), 0);
    return;
  }
 
  int buflen = BUF_INC_STEP;
  char *buf = mrbc_alloc(vm, buflen);
  mrbc_printf_t pf;
  mrbc_printf_init( &pf, buf, buflen, mrbc_string_cstr(format) );
 
  int i = 2;
  int ret;
  while( 1 ) {
    mrbc_printf_t pf_bak = pf;
    ret = mrbc_printf_main( &pf );
    if( ret == 0 ) break;       // normal break loop.
    if( ret < 0 ) goto INCREASE_BUFFER;
 
    if( i > argc ) {
      mrbc_raise(vm, MRBC_CLASS(ArgumentError), "too few arguments");
      break;
    }
 
    // maybe ret == 1
    switch(pf.fmt.type) {
    case 'c':
      if( mrbc_type(v[i]) == MRBC_TT_INTEGER ) {
        ret = mrbc_printf_char( &pf, v[i].i );
      } else if( mrbc_type(v[i]) == MRBC_TT_STRING ) {
        ret = mrbc_printf_char( &pf, mrbc_string_cstr(&v[i])[0] );
      }
      break;
 
    case 's':
      if( mrbc_type(v[i]) == MRBC_TT_STRING ) {
        ret = mrbc_printf_bstr( &pf, mrbc_string_cstr(&v[i]),
                                     mrbc_string_size(&v[i]), ' ');
      } else {
        const char *s;
        switch( mrbc_type(v[i]) ) {
        case MRBC_TT_SYMBOL:    s = mrbc_symbol_cstr(&v[i]);    break;
        case MRBC_TT_TRUE:      s = "true";                     break;
        case MRBC_TT_FALSE:     s = "false";                    break;
        default:                s = "";                         break;
        }
        ret = mrbc_printf_str( &pf, s, ' ');
      }
      break;
 
    case 'd':
    case 'i':
    case 'u':
      if( mrbc_type(v[i]) == MRBC_TT_INTEGER ) {
        ret = mrbc_printf_int( &pf, v[i].i, 10);
#if MRBC_USE_FLOAT
      } else if( mrbc_type(v[i]) == MRBC_TT_FLOAT ) {
        ret = mrbc_printf_int( &pf, (mrbc_int_t)v[i].d, 10);
#endif
      } else if( mrbc_type(v[i]) == MRBC_TT_STRING ) {
        mrbc_int_t ival = atol(mrbc_string_cstr(&v[i]));
        ret = mrbc_printf_int( &pf, ival, 10 );
      }
      break;
 
    case 'b':
    case 'B':
      if( mrbc_type(v[i]) == MRBC_TT_INTEGER ) {
        ret = mrbc_printf_bit( &pf, v[i].i, 1);
      }
      break;
 
    case 'x':
    case 'X':
      if( mrbc_type(v[i]) == MRBC_TT_INTEGER ) {
        ret = mrbc_printf_bit( &pf, v[i].i, 4);
      }
      break;
 
    case 'o':
      if( mrbc_type(v[i]) == MRBC_TT_INTEGER ) {
        ret = mrbc_printf_bit( &pf, v[i].i, 3);
      }
      break;
 
#if MRBC_USE_FLOAT
    case 'f':
    case 'e':
    case 'E':
    case 'g':
    case 'G':
      if( mrbc_type(v[i]) == MRBC_TT_FLOAT ) {
        ret = mrbc_printf_float( &pf, v[i].d );
      } else if( mrbc_type(v[i]) == MRBC_TT_INTEGER ) {
        ret = mrbc_printf_float( &pf, v[i].i );
      }
      break;
#endif
 
    default:
      break;
    }
    if( ret >= 0 ) {
      i++;
      continue;         // normal next loop.
    }
 
    // maybe buffer full. (ret == -1)
    if( pf.fmt.width > BUF_INC_STEP ) buflen += pf.fmt.width;
    pf = pf_bak;
 
  INCREASE_BUFFER:
    buflen += BUF_INC_STEP;
    buf = mrbc_realloc(vm, pf.buf, buflen);
    mrbc_printf_replace_buffer(&pf, buf, buflen);
  }
  mrbc_printf_end( &pf );
 
  buflen = mrbc_printf_len( &pf );
  // shrink suitable size. realloc() may move the block.
  buf = mrbc_realloc(vm, pf.buf, buflen+1);
  if( buf ) mrbc_printf_replace_buffer(&pf, buf, buflen+1);
 
  mrbc_value value = mrbc_string_new_alloc( vm, pf.buf, buflen );
 
  SET_RETURN(value);
}
 
 
//================================================================
#if !defined(MRBC_NO_STDIO)
static void c_object_printf(mrbc_vm *vm, mrbc_value v[], int argc)
{
  c_object_sprintf(vm, v, argc);
  mrbc_nprint( mrbc_string_cstr(v), mrbc_string_size(v) );
  SET_NIL_RETURN();
}
#endif
 
 
//================================================================
static void c_object_inspect(mrbc_vm *vm, mrbc_value v[], int argc)
{
  mrbc_object_inspect(vm, v, argc);
}
#endif  // MRBC_USE_STRING
 
 
/* MRBC_AUTOGEN_METHOD_TABLE
 
  CLASS("Object")
  FILE("_autogen_class_object.h")
  SUPER(0)
 
  METHOD( "new",        c_object_new )
  METHOD( "!",          c_object_not )
  METHOD( "!=",         c_object_neq )
  METHOD( "<=>",        c_object_compare )
  METHOD( "==",         c_object_equal2 )
  METHOD( "===",        c_object_equal3 )
  METHOD( "class",      c_object_class )
  METHOD( "dup",        c_object_dup )
  METHOD( "block_given?", c_object_block_given )
  METHOD( "is_a?",      c_object_kind_of )
  METHOD( "kind_of?",   c_object_kind_of )
  METHOD( "nil?",       c_object_nil )
#if !defined(MRBC_NO_STDIO)
  METHOD( "p",          c_object_p )
  METHOD( "print",      c_object_print )
  METHOD( "puts",       c_object_puts )
#endif
  METHOD( "raise",      c_object_raise )
  METHOD( "attr_reader",c_object_attr_reader )
  METHOD( "attr_accessor", c_object_attr_accessor )
  METHOD( "include",    c_object_include )
  METHOD( "extend",     c_object_include )
  METHOD( "constants",  c_object_constants )
  METHOD( "public",     c_ineffect )
  METHOD( "private",    c_ineffect )
  METHOD( "protected",  c_ineffect )
 
#if MRBC_USE_STRING
  METHOD( "sprintf",    c_object_sprintf )
#if !defined(MRBC_NO_STDIO)
  METHOD( "printf",     c_object_printf )
#endif
  METHOD( "inspect",    c_object_inspect )
  METHOD( "to_s",       c_object_inspect )
#endif
 
#if defined(MRBC_DEBUG)
  METHOD( "object_id",          c_object_object_id )
  METHOD( "instance_methods",   c_object_instance_methods )
  METHOD( "instance_variables", c_object_instance_variables )
#if !defined(MRBC_ALLOC_LIBC)
  METHOD( "memory_statistics",  c_object_memory_statistics )
#endif
#endif
*/
 
 
 
/***** Nil class ************************************************************/
//================================================================
static void c_nil_to_i(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_integer_value(0);
}
 
 
//================================================================
static void c_nil_to_a(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_array_new(vm, 0);
}
 
 
//================================================================
static void c_nil_to_h(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_hash_new(vm, 0);
}
 
 
#if MRBC_USE_FLOAT
//================================================================
static void c_nil_to_f(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm,0);
}
#endif
 
 
#if MRBC_USE_STRING
//================================================================
static void c_nil_inspect(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( mrbc_type(v[0]) == MRBC_TT_CLASS ) {
    mrbc_object_inspect(vm, v, argc);
    return;
  }
 
  v[0] = mrbc_string_new_cstr(vm, "nil");
}
 
 
//================================================================
static void c_nil_to_s(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( mrbc_type(v[0]) == MRBC_TT_CLASS ) {
    mrbc_object_inspect(vm, v, argc);
    return;
  }
 
  v[0] = mrbc_string_new(vm, NULL, 0);
}
#endif  // MRBC_USE_STRING
 
 
/* MRBC_AUTOGEN_METHOD_TABLE
 
  CLASS("NilClass")
  APPEND("_autogen_class_object.h")
 
  METHOD( "to_i",       c_nil_to_i )
  METHOD( "to_a",       c_nil_to_a )
  METHOD( "to_h",       c_nil_to_h )
 
#if MRBC_USE_FLOAT
  METHOD( "to_f",       c_nil_to_f )
#endif
 
#if MRBC_USE_STRING
  METHOD( "inspect",    c_nil_inspect )
  METHOD( "to_s",       c_nil_to_s )
#endif
*/
 
 
 
/***** True class ***********************************************************/
#if MRBC_USE_STRING
//================================================================
static void c_true_inspect(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( mrbc_type(v[0]) == MRBC_TT_CLASS ) {
    mrbc_object_inspect(vm, v, argc);
    return;
  }
 
  v[0] = mrbc_string_new_cstr(vm, "true");
}
#endif
 
 
/* MRBC_AUTOGEN_METHOD_TABLE
 
  CLASS("TrueClass")
  APPEND("_autogen_class_object.h")
 
#if MRBC_USE_STRING
  METHOD( "inspect",    c_true_inspect )
  METHOD( "to_s",       c_true_inspect )
#endif
*/
 
 
 
/***** False class **********************************************************/
#if MRBC_USE_STRING
//================================================================
static void c_false_inspect(mrbc_vm *vm, mrbc_value v[], int argc)
{
  if( mrbc_type(v[0]) == MRBC_TT_CLASS ) {
    mrbc_object_inspect(vm, v, argc);
    return;
  }
 
  v[0] = mrbc_string_new_cstr(vm, "false");
}
#endif  // MRBC_USE_STRING
 
 
/* MRBC_AUTOGEN_METHOD_TABLE
 
  CLASS("FalseClass")
  APPEND("_autogen_class_object.h")
 
#if MRBC_USE_STRING
  METHOD( "inspect",    c_false_inspect )
  METHOD( "to_s",       c_false_inspect )
#endif
*/
#include "_autogen_class_object.h"