GcBuiltins add simple implementation for gc.is_tracked(obj)

Author: cosminbasca

graalpython/com.oracle.graal.python/src/com/oracle/graal/python/builtins/modules/GcModuleBuiltins.java

@@ -33,9 +33,12 @@
 import com.oracle.graal.python.builtins.CoreFunctions;
 import com.oracle.graal.python.builtins.PythonBuiltins;
 import com.oracle.graal.python.builtins.objects.PNone;
+import com.oracle.graal.python.builtins.objects.cext.PythonNativeClass;
+import com.oracle.graal.python.builtins.objects.cext.PythonNativeObject;
 import com.oracle.graal.python.builtins.objects.tuple.PTuple;
 import com.oracle.graal.python.nodes.function.PythonBuiltinNode;
 import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.api.dsl.Fallback;
 import com.oracle.truffle.api.dsl.GenerateNodeFactory;
 import com.oracle.truffle.api.dsl.Specialization;
 
@@ -75,4 +78,24 @@ public PTuple count() {
             return factory().createTuple(new Object[]{count, 0, 0});
         }
     }
+
+    @Builtin(name = "is_tracked", fixedNumOfArguments = 1)
+    @GenerateNodeFactory
+    abstract static class GcIsTrackedNode extends PythonBuiltinNode {
+        @Specialization
+        public boolean isTracked(@SuppressWarnings("unused") PythonNativeObject object) {
+            return false;
+        }
+
+        @Specialization
+        public boolean isTracked(@SuppressWarnings("unused") PythonNativeClass object) {
+            // TODO: this is not correct
+            return true;
+        }
+
+        @Fallback
+        public boolean isTracked(@SuppressWarnings("unused") Object object) {
+            return true;
+        }
+    }
 }