rb-sys 0.9.127

#include "ruby.h"
#include "ruby/ruby.h"
#include "ruby/intern.h"
#include "ruby/version.h"
#include "ruby/encoding.h"

// Check that we have Ruby API version macros
#if !defined(RUBY_API_VERSION_MAJOR)
#error "RUBY_API_VERSION_MAJOR is not defined, Ruby headers might not be configured correctly"
#endif

#if !defined(RUBY_API_VERSION_MINOR)
#error "RUBY_API_VERSION_MINOR is not defined, Ruby headers might not be configured correctly"
#endif

// Define a macro to check for Ruby 3.3+
#if RUBY_API_VERSION_MAJOR > 3 || (RUBY_API_VERSION_MAJOR == 3 && RUBY_API_VERSION_MINOR >= 3)
#define RUBY_VERSION_AT_LEAST_3_3 1
#else
#define RUBY_VERSION_AT_LEAST_3_3 0
#endif

long impl_rstring_len(VALUE obj)
{
  return RSTRING_LEN(obj);
}

char *
impl_rstring_ptr(VALUE obj)
{
  return RSTRING_PTR(obj);
}

long impl_rarray_len(VALUE obj)
{
  return RARRAY_LEN(obj);
}

const VALUE *
impl_rarray_const_ptr(VALUE obj)
{
  return RARRAY_CONST_PTR(obj);
}

VALUE
impl_rarray_aref(VALUE obj, long idx)
{
  return RARRAY_AREF(obj, idx);
}

void
impl_rarray_aset(VALUE obj, long idx, VALUE val)
{
  RARRAY_ASET(obj, idx, val);
}

VALUE
impl_rbasic_class(VALUE obj)
{
  return RBASIC_CLASS(obj);
}

int impl_frozen_p(VALUE obj)
{
  return RB_OBJ_FROZEN(obj);
}

int impl_special_const_p(VALUE obj)
{
  return SPECIAL_CONST_P(obj);
}

int impl_bignum_positive_p(VALUE obj)
{
  return RBIGNUM_POSITIVE_P(obj);
}

int impl_bignum_negative_p(VALUE obj)
{
  return RBIGNUM_NEGATIVE_P(obj);
}

enum ruby_value_type
impl_builtin_type(VALUE obj)
{
  return RB_BUILTIN_TYPE(obj);
}

int impl_nil_p(VALUE obj)
{
  return NIL_P(obj);
}

int impl_fixnum_p(VALUE obj)
{
  return FIXNUM_P(obj);
}

int impl_static_sym_p(VALUE obj)
{
  return STATIC_SYM_P(obj);
}

int impl_flonum_p(VALUE obj)
{
  return FLONUM_P(obj);
}

int impl_immediate_p(VALUE obj)
{
  return IMMEDIATE_P(obj);
}

int impl_rb_test(VALUE obj)
{
  return RB_TEST(obj);
}

int impl_type_p(VALUE obj, enum ruby_value_type type)
{
  return RB_TYPE_P(obj, type);
}

int impl_dynamic_sym_p(VALUE obj)
{
  return RB_DYNAMIC_SYM_P(obj);
}

int impl_symbol_p(VALUE obj)
{
  return RB_SYMBOL_P(obj);
}

int impl_float_type_p(VALUE obj)
{
  return RB_FLOAT_TYPE_P(obj);
}

enum ruby_value_type
impl_rb_type(VALUE obj)
{
  return rb_type(obj);
}

int impl_integer_type_p(VALUE obj)
{
  return RB_INTEGER_TYPE_P(obj);
}

int impl_rstring_interned_p(VALUE obj)
{
  Check_Type(obj, T_STRING);

  return !(FL_TEST(obj, RSTRING_FSTR) == 0);
}

void impl_thread_sleep(struct timeval time)
{
  rb_thread_wait_for(time);
}

// RTypedData implementations
int impl_rtypeddata_p(VALUE obj)
{
  return RTYPEDDATA_P(obj);
}

const struct rb_data_type_struct *
impl_rtypeddata_type(VALUE obj)
{
  return RTYPEDDATA_TYPE(obj);
}

void *
impl_rtypeddata_get_data(VALUE obj)
{
#if RUBY_VERSION_AT_LEAST_3_3
  return RTYPEDDATA_GET_DATA(obj);
#else
  return RTYPEDDATA(obj)->data;
#endif
}

VALUE
impl_id2sym(ID id)
{
  return ID2SYM(id);
}

ID
impl_sym2id(VALUE obj)
{
  return SYM2ID(obj);
}

long
impl_fix2long(VALUE obj)
{
  return FIX2LONG(obj);
}

unsigned long
impl_fix2ulong(VALUE obj)
{
  return FIX2ULONG(obj);
}

VALUE
impl_long2fix(long val)
{
  return LONG2FIX(val);
}

int
impl_fixable(long val)
{
  return FIXABLE(val);
}

int
impl_posfixable(unsigned long val)
{
  return POSFIXABLE(val);
}

long
impl_num2long(VALUE obj)
{
  return NUM2LONG(obj);
}

unsigned long
impl_num2ulong(VALUE obj)
{
  return NUM2ULONG(obj);
}

VALUE
impl_long2num(long val)
{
  return LONG2NUM(val);
}

VALUE
impl_ulong2num(unsigned long val)
{
  return ULONG2NUM(val);
}

VALUE
impl_rb_obj_write(VALUE old, VALUE *slot, VALUE young)
{
  return rb_obj_write(old, slot, young, __FILE__, __LINE__);
}

VALUE
impl_rb_obj_written(VALUE old, VALUE oldv, VALUE young)
{
  return rb_obj_written(old, oldv, young, __FILE__, __LINE__);
}

int impl_fl_able(VALUE obj)
{
  return RB_FL_ABLE(obj);
}

const char *
impl_rstring_end(VALUE obj)
{
  return RSTRING_END(obj);
}

void *
impl_rdata_ptr(VALUE obj)
{
  return DATA_PTR(obj);
}

void
impl_rb_obj_freeze(VALUE obj)
{
  RB_OBJ_FREEZE(obj);
}

int
impl_rb_obj_promoted(VALUE obj)
{
#ifdef RB_OBJ_PROMOTED
  return RB_OBJ_PROMOTED(obj);
#else
  // TruffleRuby / engines without generational GC: objects are never "promoted".
  (void)obj;
  return 0;
#endif
}

int
impl_rb_obj_promoted_raw(VALUE obj)
{
#ifdef RB_OBJ_PROMOTED_RAW
  return RB_OBJ_PROMOTED_RAW(obj);
#else
  (void)obj;
  return 0;
#endif
}

double impl_num2dbl(VALUE obj)
{
  return NUM2DBL(obj);
}

VALUE impl_dbl2num(double val)
{
  return DBL2NUM(val);
}

size_t impl_rhash_size(VALUE obj)
{
  return RHASH_SIZE(obj);
}

int impl_rhash_empty_p(VALUE obj)
{
  return RHASH_EMPTY_P(obj);
}

int impl_encoding_get(VALUE obj)
{
#ifdef ENCODING_GET
  return ENCODING_GET(obj);
#else
  // TruffleRuby and other non-MRI engines: delegate to rb_enc_get_index,
  // which is an exported function (unlike ENCODING_GET, which is an MRI macro
  // that pokes RBasic.flags directly — a layout TruffleRuby doesn't share).
  return rb_enc_get_index(obj);
#endif
}