[Truffle] Truffle::Primitive::Handle generic opaque Java object container.

Useful for when you are writing most of a library in Ruby, with some
primitives in Java and you need to pass objects between those
primitives. Users never see those objects, as you wrap them up in higher
level classes for the user, so you don't want to create a new Ruby class
for each one.

Author: chrisseaton

Diff for: truffle/src/main/java/org/jruby/truffle/nodes/RubyGuards.java

@@ -213,6 +213,14 @@ public static boolean isRubyMatchData(DynamicObject object) {
         return Layouts.MATCH_DATA.isMatchData(object);
     }
 
+    public static boolean isHandle(DynamicObject object) {
+        return Layouts.HANDLE.isHandle(object);
+    }
+
+    public static boolean isHandle(Object object) {
+        return Layouts.HANDLE.isHandle(object);
+    }
+
     // Internal types
 
     public static boolean isThreadLocal(Object value) {

Diff for: truffle/src/main/java/org/jruby/truffle/runtime/RubyContext.java

@@ -691,4 +691,9 @@ public Options getOptions() {
     public MemoryManager getMemoryManager() {
         return memoryManager;
     }
+
+    public DynamicObject createHandle(Object object) {
+        return Layouts.HANDLE.createHandle(coreLibrary.getHandleFactory(), object);
+    }
+
 }

Diff for: truffle/src/main/java/org/jruby/truffle/runtime/core/CoreLibrary.java

@@ -165,6 +165,8 @@ public class CoreLibrary {
     private final DynamicObject randomizerClass;
     private final DynamicObjectFactory randomizerFactory;
     private final DynamicObject atomicReferenceClass;
+    private final DynamicObject handleClass;
+    private final DynamicObjectFactory handleFactory;
 
     private final DynamicObject argv;
     private final DynamicObject globalVariablesObject;
@@ -434,7 +436,7 @@ public CoreLibrary(RubyContext context) {
         truffleModule = defineModule("Truffle");
         defineModule(truffleModule, "Interop");
         defineModule(truffleModule, "Debug");
-        defineModule(truffleModule, "Primitive");
+        final DynamicObject primitiveModule = defineModule(truffleModule, "Primitive");
         defineModule(truffleModule, "Digest");
         defineModule(truffleModule, "Zlib");
         defineModule(truffleModule, "ObjSpace");
@@ -445,6 +447,9 @@ public CoreLibrary(RubyContext context) {
         final DynamicObject psychHandlerClass = defineClass(psychModule, objectClass, "Handler");
         final DynamicObject psychEmitterClass = defineClass(psychModule, psychHandlerClass, "Emitter");
         Layouts.CLASS.setInstanceFactoryUnsafe(psychEmitterClass, Layouts.PSYCH_EMITTER.createEmitterShape(psychEmitterClass, psychEmitterClass));
+        handleClass = defineClass(primitiveModule, objectClass, "Handle");
+        handleFactory = Layouts.HANDLE.createHandleShape(handleClass, handleClass);
+        Layouts.CLASS.setInstanceFactoryUnsafe(handleClass, handleFactory);
 
         bigDecimalClass = defineClass(truffleModule, numericClass, "BigDecimal");
         Layouts.CLASS.setInstanceFactoryUnsafe(bigDecimalClass, Layouts.BIG_DECIMAL.createBigDecimalShape(bigDecimalClass, bigDecimalClass));
@@ -1599,4 +1604,8 @@ public DynamicObject getSystemExitClass() {
         return systemExitClass;
     }
 
+    public DynamicObjectFactory getHandleFactory() {
+        return handleFactory;
+    }
+
 }

Diff for: truffle/src/main/java/org/jruby/truffle/runtime/layouts/HandleLayout.java

@@ -0,0 +1,32 @@
+/*
+ * Copyright (c) 2015 Oracle and/or its affiliates. All rights reserved. This
+ * code is released under a tri EPL/GPL/LGPL license. You can use it,
+ * redistribute it and/or modify it under the terms of the:
+ *
+ * Eclipse Public License version 1.0
+ * GNU General Public License version 2
+ * GNU Lesser General Public License version 2.1
+ */
+package org.jruby.truffle.runtime.layouts;
+
+import com.oracle.truffle.api.object.DynamicObject;
+import com.oracle.truffle.api.object.DynamicObjectFactory;
+import org.jruby.truffle.om.dsl.api.Layout;
+
+import java.math.BigInteger;
+
+@Layout
+public interface HandleLayout extends BasicObjectLayout {
+
+    DynamicObjectFactory createHandleShape(DynamicObject logicalClass,
+                                           DynamicObject metaClass);
+
+    DynamicObject createHandle(DynamicObjectFactory factory,
+                               Object object);
+
+    boolean isHandle(Object object);
+    boolean isHandle(DynamicObject object);
+
+    Object getObject(DynamicObject object);
+
+}

Diff for: truffle/src/main/java/org/jruby/truffle/runtime/layouts/Layouts.java

@@ -59,6 +59,7 @@ public abstract class Layouts {
     public static final EmitterLayout PSYCH_EMITTER = EmitterLayoutImpl.INSTANCE;
     public static final RandomizerLayout RANDOMIZER = RandomizerLayoutImpl.INSTANCE;
     public static final AtomicReferenceLayout ATOMIC_REFERENCE = AtomicReferenceLayoutImpl.INSTANCE;
+    public static final HandleLayout HANDLE = HandleLayoutImpl.INSTANCE;
 
     // Other standard identifiers