Mercurial > hg > truffle

changeset 22525:89db2519ef18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moving implementation classes outside of the tck package to make the Javadoc of the TCK API cleaner
author Jaroslav Tulach <jaroslav.tulach@oracle.com>
date Wed, 23 Dec 2015 07:43:06 +0100
parents 579d21e36582
children a5e58793bbca
files truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/BoxedValue.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumber.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumbersColumnBased.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumbersRowBased.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ConstantFunction.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/LongBinaryOperation.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/MaxMinObject.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ObjectBinaryOperation.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/StructuredData.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/StructuredDataEntry.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/TckLanguage.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/TruffleTCK.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/impl/LongBinaryOperation.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/impl/ObjectBinaryOperation.java truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/impl/TckLanguage.java
diffstat 15 files changed, 260 insertions(+), 248 deletions(-) [+]
line wrap: on
line diff
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/BoxedValue.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/BoxedValue.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,7 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.TckLanguage;
 import com.oracle.truffle.api.CallTarget;
 import com.oracle.truffle.api.Truffle;
 import com.oracle.truffle.api.frame.VirtualFrame;
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumber.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumber.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,7 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.TckLanguage;
 import com.oracle.truffle.api.CallTarget;
 import com.oracle.truffle.api.Truffle;
 import com.oracle.truffle.api.frame.VirtualFrame;
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumbersColumnBased.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumbersColumnBased.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,7 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.TckLanguage;
 import com.oracle.truffle.api.CallTarget;
 import com.oracle.truffle.api.CompilerDirectives;
 import com.oracle.truffle.api.Truffle;
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumbersRowBased.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumbersRowBased.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,7 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.TckLanguage;
 import com.oracle.truffle.api.CallTarget;
 import com.oracle.truffle.api.CompilerDirectives;
 import com.oracle.truffle.api.Truffle;
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ConstantFunction.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ConstantFunction.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,8 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.ObjectBinaryOperation;
+
 final class ConstantFunction implements ObjectBinaryOperation {
     private final Object constant;
 
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/LongBinaryOperation.java	Wed Dec 23 07:37:51 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-/*
- * Copyright (c) 2015, 2015, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.  Oracle designates this
- * particular file as subject to the "Classpath" exception as provided
- * by Oracle in the LICENSE file that accompanied this code.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.tck;
-
-/**
- * Binary operation on numbers. Mimics "functional interface" - e.g. has just a single method, so it
- * should be easily usable with lamdas.
- */
-public interface LongBinaryOperation {
-    long compute(long a, long b);
-}
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/MaxMinObject.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/MaxMinObject.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,8 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.LongBinaryOperation;
+
 final class MaxMinObject implements LongBinaryOperation {
     private final boolean max;
 
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ObjectBinaryOperation.java	Wed Dec 23 07:37:51 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-/*
- * Copyright (c) 2015, 2015, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.  Oracle designates this
- * particular file as subject to the "Classpath" exception as provided
- * by Oracle in the LICENSE file that accompanied this code.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.tck;
-
-/**
- * Binary operation on any objects. Mimics "functional interface" - e.g. has just a single method,
- * so it should be easily usable with lamdas.
- */
-public interface ObjectBinaryOperation {
-    Object compute(Object a, Object b);
-}
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/StructuredData.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/StructuredData.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,7 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.TckLanguage;
 import com.oracle.truffle.api.CallTarget;
 import com.oracle.truffle.api.Truffle;
 import com.oracle.truffle.api.frame.VirtualFrame;
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/StructuredDataEntry.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/StructuredDataEntry.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,7 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.TckLanguage;
 import com.oracle.truffle.api.CallTarget;
 import com.oracle.truffle.api.Truffle;
 import com.oracle.truffle.api.frame.VirtualFrame;
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/TckLanguage.java	Wed Dec 23 07:37:51 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,182 +0,0 @@
-/*
- * Copyright (c) 2015, 2015, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.  Oracle designates this
- * particular file as subject to the "Classpath" exception as provided
- * by Oracle in the LICENSE file that accompanied this code.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.tck;
-
-import com.oracle.truffle.api.CallTarget;
-import com.oracle.truffle.api.CompilerDirectives;
-import com.oracle.truffle.api.Truffle;
-import com.oracle.truffle.api.TruffleLanguage;
-import com.oracle.truffle.api.TruffleLanguage.Env;
-import com.oracle.truffle.api.frame.MaterializedFrame;
-import com.oracle.truffle.api.frame.VirtualFrame;
-import com.oracle.truffle.api.instrument.Visualizer;
-import com.oracle.truffle.api.instrument.WrapperNode;
-import com.oracle.truffle.api.interop.ForeignAccess;
-import com.oracle.truffle.api.interop.Message;
-import com.oracle.truffle.api.interop.TruffleObject;
-import com.oracle.truffle.api.nodes.Node;
-import com.oracle.truffle.api.nodes.RootNode;
-import com.oracle.truffle.api.source.Source;
-
-import java.io.IOException;
-
-@TruffleLanguage.Registration(mimeType = "application/x-tck", name = "TCK", version = "1.0")
-public final class TckLanguage extends TruffleLanguage<Env> {
-    public static final TckLanguage INSTANCE = new TckLanguage();
-
-    @Override
-    protected Env createContext(Env env) {
-        return env;
-    }
-
-    @Override
-    protected CallTarget parse(Source code, Node context, String... argumentNames) throws IOException {
-        final RootNode root;
-        final String txt = code.getCode();
-        if (txt.startsWith("TCK42:")) {
-            int nextColon = txt.indexOf(":", 6);
-            String mimeType = txt.substring(6, nextColon);
-            Source toParse = Source.fromText(txt.substring(nextColon + 1), "").withMimeType(mimeType);
-            root = new MultiplyNode(toParse);
-        } else {
-            final double value = Double.parseDouble(txt);
-            root = RootNode.createConstantNode(value);
-        }
-        return Truffle.getRuntime().createCallTarget(root);
-    }
-
-    @Override
-    protected Object findExportedSymbol(Env context, String globalName, boolean onlyExplicit) {
-        return null;
-    }
-
-    @Override
-    protected Object getLanguageGlobal(Env context) {
-        return null;
-    }
-
-    @Override
-    protected boolean isObjectOfLanguage(Object object) {
-        return false;
-    }
-
-    @Override
-    protected Visualizer getVisualizer() {
-        return null;
-    }
-
-    @Override
-    protected boolean isInstrumentable(Node node) {
-        return false;
-    }
-
-    @Override
-    protected WrapperNode createWrapperNode(Node node) {
-        throw new UnsupportedOperationException();
-    }
-
-    @Override
-    protected Object evalInContext(Source source, Node node, MaterializedFrame mFrame) throws IOException {
-        throw new IOException();
-    }
-
-    private static final class MultiplyNode extends RootNode implements TruffleObject, ForeignAccess.Factory {
-        private final Source code;
-
-        public MultiplyNode(Source toParse) {
-            super(TckLanguage.class, null, null);
-            this.code = toParse;
-        }
-
-        @Override
-        public Object execute(VirtualFrame frame) {
-            Env env = TckLanguage.INSTANCE.findContext(TckLanguage.INSTANCE.createFindContextNode());
-            if (frame.getArguments().length == 0) {
-                return this;
-            }
-            try {
-                CallTarget call = env.parse(code, (String) frame.getArguments()[1], (String) frame.getArguments()[2]);
-                return call.call(6, 7);
-            } catch (IOException ex) {
-                throw new AssertionError("Cannot parse " + code, ex);
-            }
-        }
-
-        @Override
-        public ForeignAccess getForeignAccess() {
-            return ForeignAccess.create(this);
-        }
-
-        @Override
-        public boolean canHandle(TruffleObject obj) {
-            return obj instanceof MultiplyNode;
-        }
-
-        @Override
-        public CallTarget accessMessage(Message tree) {
-            if (tree == Message.IS_EXECUTABLE) {
-                return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(Boolean.TRUE));
-            } else if (Message.createExecute(2).equals(tree)) {
-                return Truffle.getRuntime().createCallTarget(this);
-            } else {
-                throw new IllegalArgumentException("" + tree);
-            }
-        }
-
-    }
-
-    public static Number expectNumber(Object o) {
-        if (o instanceof Number) {
-            return (Number) o;
-        }
-        CompilerDirectives.transferToInterpreter();
-        throw new IllegalArgumentException(o + " not a Number");
-    }
-
-    public static String expectString(Object o) {
-        if (o instanceof String) {
-            return (String) o;
-        }
-        CompilerDirectives.transferToInterpreter();
-        throw new IllegalArgumentException(o + " not a String");
-    }
-
-    public static TruffleObject expectTruffleObject(Object o) {
-        if (o instanceof TruffleObject) {
-            return (TruffleObject) o;
-        }
-        CompilerDirectives.transferToInterpreter();
-        throw new IllegalArgumentException(o + " not a TruffleObject");
-    }
-
-    public static int checkBounds(int idx, int size) {
-        if (idx < 0 || idx >= size) {
-            CompilerDirectives.transferToInterpreter();
-            throw new IndexOutOfBoundsException("Index: " + idx + " Size: " + size);
-        }
-        return idx;
-    }
-
-}
--- a/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/TruffleTCK.java	Wed Dec 23 07:37:51 2015 +0100
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/TruffleTCK.java	Wed Dec 23 07:43:06 2015 +0100
@@ -24,6 +24,8 @@
  */
 package com.oracle.truffle.tck;
 
+import com.oracle.truffle.tck.impl.LongBinaryOperation;
+import com.oracle.truffle.tck.impl.ObjectBinaryOperation;
 import static org.junit.Assert.assertEquals;
 import static org.junit.Assert.assertNotNull;
 import static org.junit.Assert.assertNotSame;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/impl/LongBinaryOperation.java	Wed Dec 23 07:43:06 2015 +0100
@@ -0,0 +1,33 @@
+/*
+ * Copyright (c) 2015, 2015, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.  Oracle designates this
+ * particular file as subject to the "Classpath" exception as provided
+ * by Oracle in the LICENSE file that accompanied this code.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+package com.oracle.truffle.tck.impl;
+
+/**
+ * Binary operation on numbers. Mimics "functional interface" - e.g. has just a single method, so it
+ * should be easily usable with lamdas.
+ */
+public interface LongBinaryOperation {
+    long compute(long a, long b);
+}
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/impl/ObjectBinaryOperation.java	Wed Dec 23 07:43:06 2015 +0100
@@ -0,0 +1,33 @@
+/*
+ * Copyright (c) 2015, 2015, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.  Oracle designates this
+ * particular file as subject to the "Classpath" exception as provided
+ * by Oracle in the LICENSE file that accompanied this code.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+package com.oracle.truffle.tck.impl;
+
+/**
+ * Binary operation on any objects. Mimics "functional interface" - e.g. has just a single method,
+ * so it should be easily usable with lamdas.
+ */
+public interface ObjectBinaryOperation {
+    Object compute(Object a, Object b);
+}
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/impl/TckLanguage.java	Wed Dec 23 07:43:06 2015 +0100
@@ -0,0 +1,182 @@
+/*
+ * Copyright (c) 2015, 2015, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.  Oracle designates this
+ * particular file as subject to the "Classpath" exception as provided
+ * by Oracle in the LICENSE file that accompanied this code.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+package com.oracle.truffle.tck.impl;
+
+import com.oracle.truffle.api.CallTarget;
+import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.Truffle;
+import com.oracle.truffle.api.TruffleLanguage;
+import com.oracle.truffle.api.TruffleLanguage.Env;
+import com.oracle.truffle.api.frame.MaterializedFrame;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.instrument.Visualizer;
+import com.oracle.truffle.api.instrument.WrapperNode;
+import com.oracle.truffle.api.interop.ForeignAccess;
+import com.oracle.truffle.api.interop.Message;
+import com.oracle.truffle.api.interop.TruffleObject;
+import com.oracle.truffle.api.nodes.Node;
+import com.oracle.truffle.api.nodes.RootNode;
+import com.oracle.truffle.api.source.Source;
+
+import java.io.IOException;
+
+@TruffleLanguage.Registration(mimeType = "application/x-tck", name = "TCK", version = "1.0")
+public final class TckLanguage extends TruffleLanguage<Env> {
+    public static final TckLanguage INSTANCE = new TckLanguage();
+
+    @Override
+    protected Env createContext(Env env) {
+        return env;
+    }
+
+    @Override
+    protected CallTarget parse(Source code, Node context, String... argumentNames) throws IOException {
+        final RootNode root;
+        final String txt = code.getCode();
+        if (txt.startsWith("TCK42:")) {
+            int nextColon = txt.indexOf(":", 6);
+            String mimeType = txt.substring(6, nextColon);
+            Source toParse = Source.fromText(txt.substring(nextColon + 1), "").withMimeType(mimeType);
+            root = new MultiplyNode(toParse);
+        } else {
+            final double value = Double.parseDouble(txt);
+            root = RootNode.createConstantNode(value);
+        }
+        return Truffle.getRuntime().createCallTarget(root);
+    }
+
+    @Override
+    protected Object findExportedSymbol(Env context, String globalName, boolean onlyExplicit) {
+        return null;
+    }
+
+    @Override
+    protected Object getLanguageGlobal(Env context) {
+        return null;
+    }
+
+    @Override
+    protected boolean isObjectOfLanguage(Object object) {
+        return false;
+    }
+
+    @Override
+    protected Visualizer getVisualizer() {
+        return null;
+    }
+
+    @Override
+    protected boolean isInstrumentable(Node node) {
+        return false;
+    }
+
+    @Override
+    protected WrapperNode createWrapperNode(Node node) {
+        throw new UnsupportedOperationException();
+    }
+
+    @Override
+    protected Object evalInContext(Source source, Node node, MaterializedFrame mFrame) throws IOException {
+        throw new IOException();
+    }
+
+    private static final class MultiplyNode extends RootNode implements TruffleObject, ForeignAccess.Factory {
+        private final Source code;
+
+        public MultiplyNode(Source toParse) {
+            super(TckLanguage.class, null, null);
+            this.code = toParse;
+        }
+
+        @Override
+        public Object execute(VirtualFrame frame) {
+            Env env = TckLanguage.INSTANCE.findContext(TckLanguage.INSTANCE.createFindContextNode());
+            if (frame.getArguments().length == 0) {
+                return this;
+            }
+            try {
+                CallTarget call = env.parse(code, (String) frame.getArguments()[1], (String) frame.getArguments()[2]);
+                return call.call(6, 7);
+            } catch (IOException ex) {
+                throw new AssertionError("Cannot parse " + code, ex);
+            }
+        }
+
+        @Override
+        public ForeignAccess getForeignAccess() {
+            return ForeignAccess.create(this);
+        }
+
+        @Override
+        public boolean canHandle(TruffleObject obj) {
+            return obj instanceof MultiplyNode;
+        }
+
+        @Override
+        public CallTarget accessMessage(Message tree) {
+            if (tree == Message.IS_EXECUTABLE) {
+                return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(Boolean.TRUE));
+            } else if (Message.createExecute(2).equals(tree)) {
+                return Truffle.getRuntime().createCallTarget(this);
+            } else {
+                throw new IllegalArgumentException("" + tree);
+            }
+        }
+
+    }
+
+    public static Number expectNumber(Object o) {
+        if (o instanceof Number) {
+            return (Number) o;
+        }
+        CompilerDirectives.transferToInterpreter();
+        throw new IllegalArgumentException(o + " not a Number");
+    }
+
+    public static String expectString(Object o) {
+        if (o instanceof String) {
+            return (String) o;
+        }
+        CompilerDirectives.transferToInterpreter();
+        throw new IllegalArgumentException(o + " not a String");
+    }
+
+    public static TruffleObject expectTruffleObject(Object o) {
+        if (o instanceof TruffleObject) {
+            return (TruffleObject) o;
+        }
+        CompilerDirectives.transferToInterpreter();
+        throw new IllegalArgumentException(o + " not a TruffleObject");
+    }
+
+    public static int checkBounds(int idx, int size) {
+        if (idx < 0 || idx >= size) {
+            CompilerDirectives.transferToInterpreter();
+            throw new IndexOutOfBoundsException("Index: " + idx + " Size: " + size);
+        }
+        return idx;
+    }
+
+}