c_range.c

Go to the documentation of this file.

 
 
/***** Feature test switches ************************************************/
/***** System headers *******************************************************/
//@cond
#include "vm_config.h"
//@endcond
 
/***** Local headers ********************************************************/
#include "mrubyc.h"
 
/***** Constat values *******************************************************/
/***** Macros ***************************************************************/
/***** Typedefs *************************************************************/
/***** Function prototypes **************************************************/
/***** Local variables ******************************************************/
/***** Global variables *****************************************************/
/***** Signal catching functions ********************************************/
/***** Local functions ******************************************************/
/***** Global functions *****************************************************/
 
//================================================================
mrbc_value mrbc_range_new(struct VM *vm, mrbc_value *first, mrbc_value *last, int flag_exclude)
{
  mrbc_value value = {.tt = MRBC_TT_RANGE};
 
  value.range = mrbc_alloc(vm, sizeof(mrbc_range));
  if( !value.range ) return value;         // ENOMEM
 
  MRBC_INIT_OBJECT_HEADER( value.range, "RA" );
  value.range->flag_exclude = flag_exclude;
  value.range->first = *first;
  value.range->last = *last;
 
  return value;
}
 
 
//================================================================
void mrbc_range_delete(mrbc_value *v)
{
  mrbc_decref( &v->range->first );
  mrbc_decref( &v->range->last );
 
  mrbc_raw_free( v->range );
}
 
 
#if defined(MRBC_ALLOC_VMID)
//================================================================
void mrbc_range_clear_vm_id(mrbc_value *v)
{
  mrbc_set_vm_id( v->range, 0 );
  mrbc_clear_vm_id( &v->range->first );
  mrbc_clear_vm_id( &v->range->last );
}
#endif
 
 
//================================================================
int mrbc_range_compare(const mrbc_value *v1, const mrbc_value *v2)
{
  int res;
 
  res = mrbc_compare( &v1->range->first, &v2->range->first );
  if( res != 0 ) return res;
 
  res = mrbc_compare( &v1->range->last, &v2->range->last );
  if( res != 0 ) return res;
 
  return (int)v2->range->flag_exclude - (int)v1->range->flag_exclude;
}
 
 
 
//================================================================
static void c_range_equal3(struct VM *vm, mrbc_value v[], int argc)
{
  if( mrbc_type(v[0]) == MRBC_TT_CLASS ) {
    mrbc_value result = mrbc_send( vm, v, argc, &v[1], "kind_of?", 1, &v[0] );
    SET_RETURN( result );
    return;
  }
 
  int cmp_first = mrbc_compare( &v[0].range->first, &v[1] );
  int result = (cmp_first <= 0);
  if( !result ) goto DONE;
 
  int cmp_last  = mrbc_compare( &v[1], &v[0].range->last );
  result = (v->range->flag_exclude) ? (cmp_last < 0) : (cmp_last <= 0);
 
 DONE:
  SET_BOOL_RETURN( result );
}
 
 
//================================================================
static void c_range_first(struct VM *vm, mrbc_value v[], int argc)
{
  mrbc_value ret = mrbc_range_first(v);
  SET_RETURN(ret);
}
 
 
//================================================================
static void c_range_last(struct VM *vm, mrbc_value v[], int argc)
{
  mrbc_value ret = mrbc_range_last(v);
  SET_RETURN(ret);
}
 
 
 
//================================================================
static void c_range_exclude_end(struct VM *vm, mrbc_value v[], int argc)
{
  int result = v->range->flag_exclude;
  SET_BOOL_RETURN( result );
}
 
 
 
#if MRBC_USE_STRING
//================================================================
static void c_range_inspect(struct VM *vm, mrbc_value v[], int argc)
{
  if( v[0].tt == MRBC_TT_CLASS ) {
    v[0] = mrbc_string_new_cstr(vm, mrbc_symid_to_str( v[0].cls->sym_id ));
    return;
  }
 
  mrbc_value ret = mrbc_string_new(vm, NULL, 0);
  if( !ret.string ) goto RETURN_NIL;              // ENOMEM
 
  int i;
  for( i = 0; i < 2; i++ ) {
    if( i != 0 ) mrbc_string_append_cstr( &ret, ".." );
    mrbc_value v1 = (i == 0) ? mrbc_range_first(v) : mrbc_range_last(v);
    mrbc_value s1 = mrbc_send( vm, v, argc, &v1, "inspect", 0 );
    mrbc_string_append( &ret, &s1 );
    mrbc_string_delete( &s1 );
  }
 
  SET_RETURN(ret);
  return;
 
 RETURN_NIL:
  SET_NIL_RETURN();
}
#endif
 
 
/* MRBC_AUTOGEN_METHOD_TABLE
 
  CLASS("Range")
  FILE("_autogen_class_range.h")
 
  METHOD("===",         c_range_equal3 )
  METHOD("first",       c_range_first )
  METHOD("last",        c_range_last )
  METHOD("exclude_end?", c_range_exclude_end )
#if MRBC_USE_STRING
  METHOD("inspect",     c_range_inspect )
  METHOD("to_s",        c_range_inspect )
#endif
*/
#include "_autogen_class_range.h"