Review and fix usages of polyglot_invoke(rb_tr_unwrap( and RUBY_INVOKE(

* These only work if the unwrapped value is never a Java primitive (boolean, int, long, double).

Author: eregon

lib/truffle/truffle/cext.rb

@@ -424,16 +424,44 @@ def RB_OBJ_TAINTABLE(object)
     end
   end
 
+  def rb_obj_clone(object)
+    object.clone
+  end
+
+  def rb_obj_dup(object)
+    object.dup
+  end
+
+  def rb_obj_encoding(object)
+    object.encoding
+  end
+
   FREEZE_METHOD = Kernel.instance_method :freeze
 
   def rb_obj_freeze(obj)
     FREEZE_METHOD.bind(obj).call
   end
 
+  def rb_obj_frozen_p(object)
+    object.frozen?
+  end
+
+  def rb_obj_id(object)
+    object.object_id
+  end
+
   def rb_float_new(value)
     value.to_f
   end
 
+  def rb_flt_rationalize(value)
+    value.rationalize
+  end
+
+  def rb_flt_rationalize_with_prec(value, prec)
+    value.rationalize(prec)
+  end
+
   def rb_absint_singlebit_p(val)
     Primitive.rb_int_singlebit_p(val.abs)
   end
@@ -556,6 +584,10 @@ def rb_class_of(object)
     Primitive.metaclass(object)
   end
 
+  def rb_singleton_class(object)
+    object.singleton_class
+  end
+
   def rb_class_real(ruby_class)
     while ruby_class.singleton_class?
       ruby_class = ruby_class.superclass
@@ -1383,6 +1415,10 @@ def rb_equal(a, b)
     Primitive.same_or_equal?(a, b)
   end
 
+  def rb_tr_obj_equal(a, b)
+    Primitive.equal?(a, b)
+  end
+
   def rb_obj_call_init(obj, args, block)
     obj.__send__ :initialize, *args, &block
   end

src/main/c/cext/class.c

@@ -48,7 +48,7 @@ VALUE rb_class_of(VALUE object) {
 }
 
 VALUE rb_singleton_class(VALUE object) {
-  return RUBY_INVOKE(object, "singleton_class");
+  return RUBY_CEXT_INVOKE("rb_singleton_class", object);
 }
 
 VALUE rb_obj_alloc(VALUE ruby_class) {

src/main/c/cext/define.c

@@ -74,7 +74,7 @@ void rb_define_global_function(const char *name, VALUE (*function)(ANYARGS), int
 
 #undef rb_define_singleton_method
 void rb_define_singleton_method(VALUE object, const char *name, VALUE (*function)(ANYARGS), int argc) {
-  rb_define_method(RUBY_INVOKE(object, "singleton_class"), name, function, argc);
+  rb_define_method(rb_singleton_class(object), name, function, argc);
 }
 
 void rb_define_alias(VALUE module, const char *new_name, const char *old_name) {

src/main/c/cext/encoding.c

@@ -219,7 +219,7 @@ int rb_enc_to_index(rb_encoding *enc) {
 }
 
 VALUE rb_obj_encoding(VALUE obj) {
-  return RUBY_INVOKE(obj, "encoding");
+  return RUBY_CEXT_INVOKE("rb_obj_encoding", obj);
 }
 
 int rb_to_encoding_index(VALUE enc) {

src/main/c/cext/object.c

@@ -115,15 +115,15 @@ VALUE rb_obj_reveal(VALUE obj, VALUE klass) {
 }
 
 VALUE rb_obj_clone(VALUE obj) {
-  return RUBY_INVOKE(obj, "clone");
+  return RUBY_CEXT_INVOKE("rb_obj_clone", obj);
 }
 
 VALUE rb_obj_dup(VALUE object) {
-  return RUBY_INVOKE(object, "dup");
+  return RUBY_CEXT_INVOKE("rb_obj_dup", object);
 }
 
 VALUE rb_obj_id(VALUE object) {
-  return RUBY_INVOKE(object, "object_id");
+  return RUBY_CEXT_INVOKE("rb_obj_id", object);
 }
 
 // The semantics of SameOrEqualNode: a.equal?(b) || a == b
@@ -138,7 +138,7 @@ void rb_obj_call_init(VALUE object, int argc, const VALUE *argv) {
 // frozen status
 
 VALUE rb_obj_frozen_p(VALUE object) {
-  return RUBY_INVOKE(object, "frozen?");
+  return RUBY_CEXT_INVOKE("rb_obj_frozen_p", object);
 }
 
 VALUE rb_obj_freeze(VALUE object) {

src/main/c/cext/rational.c

@@ -33,9 +33,9 @@ VALUE rb_rational_den(VALUE rat) {
 }
 
 VALUE rb_flt_rationalize_with_prec(VALUE value, VALUE precision) {
-  return RUBY_INVOKE(value, "rationalize", precision);
+  return RUBY_CEXT_INVOKE("rb_flt_rationalize_with_prec", value, precision);
 }
 
 VALUE rb_flt_rationalize(VALUE value) {
-    return RUBY_INVOKE(value, "rationalize");
+    return RUBY_CEXT_INVOKE("rb_flt_rationalize", value);
 }

src/main/c/cext/truffleruby.c

@@ -31,7 +31,7 @@ VALUE rb_java_to_string(VALUE obj) {
 
 // BasicObject#equal?
 int rb_tr_obj_equal(VALUE first, VALUE second) {
-  return RTEST(RUBY_INVOKE(first, "equal?", second));
+  return RTEST(RUBY_CEXT_INVOKE("rb_tr_obj_equal", first, second));
 }
 
 void rb_tr_warn_va_list(const char *fmt, va_list args) {