diff --git a/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/RRuntimeASTAccessImpl.java b/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/RRuntimeASTAccessImpl.java
index c0bbd0e29df7ab93c01ee07550196963c0ede169..66ac4a2b31008d02fbada8b5df6e89449e20967c 100644
--- a/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/RRuntimeASTAccessImpl.java
+++ b/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/RRuntimeASTAccessImpl.java
@@ -58,6 +58,7 @@ import com.oracle.truffle.r.nodes.control.ReplacementDispatchNode;
import com.oracle.truffle.r.nodes.function.ClassHierarchyNode;
import com.oracle.truffle.r.nodes.function.FunctionDefinitionNode;
import com.oracle.truffle.r.nodes.function.FunctionExpressionNode;
+import com.oracle.truffle.r.nodes.function.RCallBaseNode;
import com.oracle.truffle.r.nodes.function.RCallNode;
import com.oracle.truffle.r.nodes.instrumentation.RInstrumentation;
import com.oracle.truffle.r.runtime.Arguments;
@@ -353,8 +354,8 @@ class RRuntimeASTAccessImpl implements RRuntimeASTAccess {
@TruffleBoundary
public void setNames(RLanguage rl, RStringVector names) {
RNode node = (RNode) rl.getRep();
- if (node instanceof RCallNode) {
- RCallNode call = (RCallNode) node;
+ if (node instanceof RCallBaseNode) {
+ RCallBaseNode call = (RCallBaseNode) node;
Arguments<RSyntaxNode> args = call.getArguments();
ArgumentsSignature sig = args.getSignature();
String[] newNames = new String[sig.getLength()];
@@ -366,7 +367,7 @@ class RRuntimeASTAccessImpl implements RRuntimeASTAccess {
newNames[i] = names.getDataAt(j);
}
// copying is already handled by RShareable
- RCallNode newCall = RCallNode.createCall(RSyntaxNode.INTERNAL, ((RCallNode) node).getFunction(), ArgumentsSignature.get(newNames), args.getArguments());
+ RCallNode newCall = RCallNode.createCall(RSyntaxNode.INTERNAL, ((RCallBaseNode) node).getFunction(), ArgumentsSignature.get(newNames), args.getArguments());
rl.setClosure(Closure.createLanguageClosure(newCall));
} else {
throw RInternalError.shouldNotReachHere();
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsVector.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsVector.java
index 349a1f8e3be3f65f7012aa410ef9b8badbfc2a7d..9f8a0e01094bf9ea30cbb00d05c7276aa1dee70b 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsVector.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsVector.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2013, 2018, 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
@@ -36,7 +36,10 @@ import com.oracle.truffle.api.dsl.ImportStatic;
import com.oracle.truffle.api.dsl.Specialization;
import com.oracle.truffle.api.frame.VirtualFrame;
import com.oracle.truffle.api.nodes.Node;
+import com.oracle.truffle.api.object.DynamicObject;
import com.oracle.truffle.api.profiles.ConditionProfile;
+import com.oracle.truffle.r.nodes.attributes.SpecialAttributesFunctions.RemoveNamesAttributeNode;
+import com.oracle.truffle.r.nodes.attributes.UnaryCopyAttributesNode;
import com.oracle.truffle.r.nodes.builtin.RBuiltinNode;
import com.oracle.truffle.r.nodes.builtin.base.AsVectorNodeGen.AsVectorInternalNodeGen;
import com.oracle.truffle.r.nodes.builtin.base.AsVectorNodeGen.AsVectorInternalNodeGen.CastPairListNodeGen;
@@ -46,6 +49,7 @@ import com.oracle.truffle.r.nodes.function.ClassHierarchyNode;
import com.oracle.truffle.r.nodes.function.ClassHierarchyNodeGen;
import com.oracle.truffle.r.nodes.function.S3FunctionLookupNode;
import com.oracle.truffle.r.nodes.function.S3FunctionLookupNode.Result;
+import com.oracle.truffle.r.nodes.objects.GetS4DataSlot;
import com.oracle.truffle.r.nodes.unary.CastComplexNode;
import com.oracle.truffle.r.nodes.unary.CastDoubleNode;
import com.oracle.truffle.r.nodes.unary.CastExpressionNode;
@@ -63,15 +67,22 @@ import com.oracle.truffle.r.runtime.RInternalError;
import com.oracle.truffle.r.runtime.RRuntime;
import com.oracle.truffle.r.runtime.RType;
import com.oracle.truffle.r.runtime.builtins.RBuiltin;
+import com.oracle.truffle.r.runtime.data.RAttributesLayout;
import com.oracle.truffle.r.runtime.data.RDataFactory;
+import com.oracle.truffle.r.runtime.data.RExpression;
import com.oracle.truffle.r.runtime.data.RLanguage;
import com.oracle.truffle.r.runtime.data.RNull;
import com.oracle.truffle.r.runtime.data.RPairList;
+import com.oracle.truffle.r.runtime.data.RS4Object;
import com.oracle.truffle.r.runtime.data.RSharingAttributeStorage;
import com.oracle.truffle.r.runtime.data.RStringVector;
import com.oracle.truffle.r.runtime.data.RSymbol;
+import com.oracle.truffle.r.runtime.data.RTypedValue;
import com.oracle.truffle.r.runtime.data.model.RAbstractAtomicVector;
+import com.oracle.truffle.r.runtime.data.model.RAbstractContainer;
+import com.oracle.truffle.r.runtime.data.model.RAbstractListVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractVector;
+import com.oracle.truffle.r.runtime.env.REnvironment;
import com.oracle.truffle.r.runtime.interop.ForeignArray2R;
import com.oracle.truffle.r.runtime.nodes.RBaseNode;
@@ -126,6 +137,7 @@ public abstract class AsVector extends RBuiltinNode.Arg2 {
public abstract Object execute(Object x, String mode);
+ @Child private GetS4DataSlot getS4DataSlotNode;
private final ConditionProfile indirectMatchProfile = ConditionProfile.createBinaryProfile();
protected static CastNode createCast(RType type) {
@@ -142,6 +154,7 @@ public abstract class AsVector extends RBuiltinNode.Arg2 {
case Expression:
return CastExpressionNode.createNonPreserving();
case Function:
+ case Closure:
throw RInternalError.unimplemented("as.vector cast to 'function'");
case Integer:
return CastIntegerNode.createNonPreserving();
@@ -164,14 +177,21 @@ public abstract class AsVector extends RBuiltinNode.Arg2 {
return mode == cachedMode || indirectMatchProfile.profile(cachedMode.equals(mode));
}
+ @TruffleBoundary
+ @Specialization
+ protected Object asVector(@SuppressWarnings("unused") REnvironment x, String mode) {
+ RType type = RType.fromMode(mode);
+ throw RError.error(RError.SHOW_CALLER, Message.CANNOT_COERCE, RType.Environment.getName(), type != null ? type.getName() : mode);
+ }
+
// there should never be more than ~12 specializations
@SuppressWarnings("unused")
- @Specialization(limit = "99", guards = "matchesMode(mode, cachedMode)")
+ @Specialization(limit = "99", guards = {"!isEnv(x)", "matchesMode(mode, cachedMode)"})
protected Object asVector(Object x, String mode,
@Cached("mode") String cachedMode,
@Cached("fromMode(cachedMode)") RType type,
@Cached("createCast(type)") CastNode cast,
- @Cached("create()") DropAttributesNode drop,
+ @Cached("create(type)") DropAttributesNode drop,
@Cached("create()") ForeignArray2R foreignArray2R) {
if (RRuntime.isForeignObject(x)) {
Object o = foreignArray2R.convert(x);
@@ -184,15 +204,37 @@ public abstract class AsVector extends RBuiltinNode.Arg2 {
throw RError.error(RError.SHOW_CALLER, RError.Message.CANNOT_COERCE_EXTERNAL_OBJECT_TO_VECTOR, "vector");
}
}
- return drop.execute(cast == null ? x : cast.doCast(x));
+ Object result = x;
+ if (x instanceof RS4Object) {
+ result = getS4DataSlot((RS4Object) x);
+ }
+ return drop.execute(result, cast == null ? x : cast.doCast(result));
+ }
+
+ static boolean isEnv(Object x) {
+ return x instanceof REnvironment;
+ }
+
+ private Object getS4DataSlot(RS4Object o) {
+ if (getS4DataSlotNode == null) {
+ CompilerDirectives.transferToInterpreterAndInvalidate();
+ getS4DataSlotNode = insert(GetS4DataSlot.create(RType.Any));
+ }
+ return getS4DataSlotNode.executeObject(o);
}
public abstract static class DropAttributesNode extends RBaseNode {
- public abstract Object execute(Object o);
+ private final RType targetType;
- public static DropAttributesNode create() {
- return DropAttributesNodeGen.create();
+ protected DropAttributesNode(RType targetType) {
+ this.targetType = targetType;
+ }
+
+ public abstract Object execute(Object original, Object o);
+
+ public static DropAttributesNode create(RType targetType) {
+ return DropAttributesNodeGen.create(targetType);
}
protected static boolean hasAttributes(Class<? extends RAbstractAtomicVector> clazz, RAbstractAtomicVector o) {
@@ -200,60 +242,90 @@ public abstract class AsVector extends RBuiltinNode.Arg2 {
}
@Specialization(guards = "o.getAttributes() == null")
- protected static RSharingAttributeStorage drop(RSharingAttributeStorage o) {
+ protected static RSharingAttributeStorage drop(@SuppressWarnings("unused") Object original, RSharingAttributeStorage o) {
// quickly reject any RSharingAttributeStorage without attributes
return o;
}
- @Specialization(guards = "o.getClass() == oClass")
- protected RAbstractVector dropCached(RAbstractAtomicVector o,
+ @Specialization(guards = {"o.getClass() == oClass", "o.getAttributes() != null"})
+ protected RAbstractVector dropCached(@SuppressWarnings("unused") Object original, RAbstractAtomicVector o,
@Cached("o.getClass()") Class<? extends RAbstractAtomicVector> oClass,
@Cached("createBinaryProfile()") ConditionProfile profile) {
return profile.profile(hasAttributes(oClass, o)) ? oClass.cast(o).copyDropAttributes() : o;
}
- @Specialization(replaces = "dropCached")
- protected RAbstractVector drop(RAbstractAtomicVector o,
+ @Specialization(replaces = "dropCached", guards = "o.getAttributes() != null")
+ protected RAbstractVector drop(@SuppressWarnings("unused") Object original, RAbstractAtomicVector o,
@Cached("createBinaryProfile()") ConditionProfile profile) {
return profile.profile(o.getAttributes() != null) ? o.copyDropAttributes() : o;
}
@Specialization(guards = "o.getAttributes() != null")
- protected static RLanguage drop(RLanguage o) {
+ protected RLanguage drop(@SuppressWarnings("unused") Object original, RLanguage o) {
+ switch (targetType) {
+ case Any:
+ case PairList:
+ case List:
+ return o;
+ }
return RDataFactory.createLanguage(o.getClosure());
}
@Specialization(guards = "o.getAttributes() != null")
- protected static RSymbol drop(RSymbol o) {
- return RDataFactory.createSymbol(o.getName());
+ protected static RSymbol drop(@SuppressWarnings("unused") Object original, RSymbol o) {
+ return original == o ? o : RDataFactory.createSymbol(o.getName());
+ }
+
+ @Specialization(guards = "pairList.getAttributes() != null")
+ protected Object drop(Object original, RPairList pairList) {
+ // dropping already done in the cast node CastPairListNode below
+ return pairList;
+ }
+
+ @Specialization(guards = "list.getAttributes() != null")
+ protected Object drop(Object original, RAbstractListVector list,
+ @Cached("create()") UnaryCopyAttributesNode copyAttributesNode,
+ @Cached("createBinaryProfile()") ConditionProfile originalIsAtomic) {
+ if (originalIsAtomic.profile(getRType(original).isAtomic())) {
+ return list;
+ }
+ if (original instanceof RAbstractVector) {
+ copyAttributesNode.execute(list, (RAbstractVector) original);
+ }
+ return list;
}
@Fallback
- protected Object drop(Object o) {
- // includes RAbstractListVector, RExpression, RPairList
+ protected Object drop(Object original, Object o) {
+ // includes RExpression, RSymbol
return o;
}
+
+ private static RType getRType(Object original) {
+ return original instanceof RTypedValue ? ((RTypedValue) original).getRType() : RType.Any;
+ }
}
+ // NOTE: this cast takes care of attributes dropping too. Names are never dropped, and other
+ // attrs copied only in the case of list, pairlist and expressions (all of them are
+ // RAbstractListVector).
protected abstract static class CastPairListNode extends CastNode {
@Specialization
- @TruffleBoundary
- protected Object castPairlist(RAbstractVector x) {
- // TODO implement non-empty element list conversion; this is a placeholder for type
- // test
- if (x.getLength() == 0) {
- return RNull.instance;
- } else {
- Object list = RNull.instance;
- RStringVector names = x.getNames();
- for (int i = x.getLength() - 1; i >= 0; i--) {
- Object name = names == null ? RNull.instance : RDataFactory.createSymbolInterned(names.getDataAt(i));
- Object data = x.getDataAtAsObject(i);
- list = RDataFactory.createPairList(data, list, name);
- }
- return list;
- }
+ protected Object castPairlist(RExpression x,
+ @Cached("create()") RemoveNamesAttributeNode removeNamesAttributeNode) {
+ return fromVectorWithAttributes(x, removeNamesAttributeNode);
+ }
+
+ @Specialization
+ protected Object castPairlist(RAbstractListVector x,
+ @Cached("create()") RemoveNamesAttributeNode removeNamesAttributeNode) {
+ return fromVectorWithAttributes(x, removeNamesAttributeNode);
+ }
+
+ @Specialization
+ protected Object castPairlist(RAbstractAtomicVector x) {
+ return x.getLength() == 0 ? RNull.instance : fromVector(x);
}
@Specialization
@@ -267,9 +339,44 @@ public abstract class AsVector extends RBuiltinNode.Arg2 {
return list.copy();
}
+ @Specialization
+ protected Object doRLanguage(RLanguage language) {
+ // GNUR just let's language be language...
+ return language;
+ }
+
@Fallback
protected Object castPairlist(Object x) {
- throw RInternalError.unimplemented("non-list casts to pairlist for " + x.getClass().getSimpleName());
+ String name = x instanceof RTypedValue ? ((RTypedValue) x).getRType().getName() : x.getClass().getSimpleName();
+ throw error(Message.CANNOT_COERCE, name, RType.PairList.getName());
+ }
+
+ @TruffleBoundary
+ private Object fromVectorWithAttributes(RAbstractContainer x, RemoveNamesAttributeNode removeNamesAttributeNode) {
+ if (x.getLength() == 0) {
+ return RNull.instance;
+ } else {
+ Object list = fromVector(x);
+ DynamicObject attributes = x.getAttributes();
+ if (attributes != null) {
+ ((RPairList) list).initAttributes(RAttributesLayout.copy(attributes));
+ // names are part of the list already
+ removeNamesAttributeNode.execute(list);
+ }
+ return list;
+ }
+ }
+
+ @TruffleBoundary
+ private static RPairList fromVector(RAbstractContainer x) {
+ Object list = RNull.instance;
+ RStringVector names = x.getNames();
+ for (int i = x.getLength() - 1; i >= 0; i--) {
+ Object name = names == null ? RNull.instance : RDataFactory.createSymbolInterned(names.getDataAt(i));
+ Object data = x.getDataAtAsObject(i);
+ list = RDataFactory.createPairList(data, list, name);
+ }
+ return (RPairList) list;
}
}
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/DoCall.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/DoCall.java
index 626d44088d275eb332c74c7329d32e68948a630a..b84f42df004c7122f61848ed0beb534b3eddaa38 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/DoCall.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/DoCall.java
@@ -116,14 +116,15 @@ public abstract class DoCall extends RBuiltinNode.Arg4 implements InternalRSynta
}
// Note: if the function is in fact a promise, we are evaluating it here slightly earlier
// than GNU R. It should not a be a problem.
- RFunction func = (RFunction) getNode.execute(frame, what.getDataAt(0), env, RType.Function.getName(), true);
- return doCall(frame, func, argsAsList, quote, env, internal);
+ String funcName = what.getDataAt(0);
+ RFunction func = (RFunction) getNode.execute(frame, funcName, env, RType.Function.getName(), true);
+ return internal.execute(frame, funcName, func, argsAsList, quote, env);
}
@Specialization
- protected Object doCall(VirtualFrame virtualFrame, RFunction func, RList argsAsList, boolean quote, REnvironment env,
+ protected Object doCall(VirtualFrame frame, RFunction func, RList argsAsList, boolean quote, REnvironment env,
@Cached("create()") DoCallInternal internal) {
- return internal.execute(virtualFrame, func, argsAsList, quote, env);
+ return internal.execute(frame, null, func, argsAsList, quote, env);
}
protected abstract static class DoCallInternal extends Node {
@@ -137,7 +138,7 @@ public abstract class DoCall extends RBuiltinNode.Arg4 implements InternalRSynta
return DoCallInternalNodeGen.create();
}
- public abstract Object execute(VirtualFrame virtualFrame, RFunction func, RList argsAsList, boolean quote, REnvironment env);
+ public abstract Object execute(VirtualFrame virtualFrame, String funcName, RFunction func, RList argsAsList, boolean quote, REnvironment env);
protected FrameDescriptor getFrameDescriptor(REnvironment env) {
return env.getFrame(frameAccessProfile).getFrameDescriptor();
@@ -149,7 +150,7 @@ public abstract class DoCall extends RBuiltinNode.Arg4 implements InternalRSynta
* {@link GetVisibilityNode} for each {@link FrameDescriptor} we encounter.
*/
@Specialization(guards = {"getFrameDescriptor(env) == fd"}, limit = "20")
- public Object doFastPath(VirtualFrame virtualFrame, RFunction func, RList argsAsList, boolean quote, REnvironment env,
+ public Object doFastPath(VirtualFrame virtualFrame, String funcName, RFunction func, RList argsAsList, boolean quote, REnvironment env,
@Cached("getFrameDescriptor(env)") @SuppressWarnings("unused") FrameDescriptor fd,
@Cached("create()") RExplicitCallNode explicitCallNode,
@Cached("create()") GetVisibilityNode getVisibilityNode,
@@ -157,7 +158,7 @@ public abstract class DoCall extends RBuiltinNode.Arg4 implements InternalRSynta
@Cached("create()") BranchProfile containsRSymbolProfile) {
MaterializedFrame promiseFrame = env.getFrame(frameAccessProfile).materialize();
RArgsValuesAndNames args = getArguments(promiseFrame, quote, quoteProfile, containsRSymbolProfile, argsAsList);
- RCaller caller = getExplicitCaller(virtualFrame, promiseFrame, func, args);
+ RCaller caller = getExplicitCaller(virtualFrame, promiseFrame, funcName, func, args);
MaterializedFrame evalFrame = getEvalFrame(virtualFrame, promiseFrame);
Object resultValue = explicitCallNode.execute(evalFrame, func, args, caller);
@@ -170,13 +171,13 @@ public abstract class DoCall extends RBuiltinNode.Arg4 implements InternalRSynta
* again and again and putting it behind truffle boundary to avoid deoptimization.
*/
@Specialization(replaces = "doFastPath")
- public Object doSlowPath(VirtualFrame virtualFrame, RFunction func, RList argsAsList, boolean quote, REnvironment env,
+ public Object doSlowPath(VirtualFrame virtualFrame, String funcName, RFunction func, RList argsAsList, boolean quote, REnvironment env,
@Cached("create()") SlowPathExplicitCall slowPathExplicitCall,
@Cached("createBinaryProfile()") ConditionProfile quoteProfile,
@Cached("create()") BranchProfile containsRSymbolProfile) {
MaterializedFrame promiseFrame = env.getFrame(frameAccessProfile).materialize();
RArgsValuesAndNames args = getArguments(promiseFrame, quote, quoteProfile, containsRSymbolProfile, argsAsList);
- RCaller caller = getExplicitCaller(virtualFrame, promiseFrame, func, args);
+ RCaller caller = getExplicitCaller(virtualFrame, promiseFrame, funcName, func, args);
MaterializedFrame evalFrame = getEvalFrame(virtualFrame, promiseFrame);
Object resultValue = slowPathExplicitCall.execute(evalFrame, caller, func, args);
@@ -205,8 +206,13 @@ public abstract class DoCall extends RBuiltinNode.Arg4 implements InternalRSynta
* @see RCaller
* @see RArguments
*/
- private RCaller getExplicitCaller(VirtualFrame virtualFrame, MaterializedFrame envFrame, RFunction func, RArgsValuesAndNames args) {
- Supplier<RSyntaxElement> callerSyntax = RCallerHelper.createFromArguments(func, args);
+ private RCaller getExplicitCaller(VirtualFrame virtualFrame, MaterializedFrame envFrame, String funcName, RFunction func, RArgsValuesAndNames args) {
+ Supplier<RSyntaxElement> callerSyntax;
+ if (funcName != null) {
+ callerSyntax = RCallerHelper.createFromArguments(funcName, args);
+ } else {
+ callerSyntax = RCallerHelper.createFromArguments(func, args);
+ }
return RCaller.create(RArguments.getDepth(virtualFrame) + 1, RArguments.getCall(envFrame), callerSyntax);
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NumericalFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NumericalFunctions.java
index e6a1a621f38ddd762a24f2958e136b3d95f7b35e..f37b6bd9498a35ed8e49a426ac15d61ea004dd4f 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NumericalFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NumericalFunctions.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2013, 2018, 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
@@ -35,6 +35,7 @@ import com.oracle.truffle.r.runtime.RError.Message;
import com.oracle.truffle.r.runtime.builtins.RBuiltin;
import com.oracle.truffle.r.runtime.data.RComplex;
import com.oracle.truffle.r.runtime.ops.UnaryArithmetic;
+import com.oracle.truffle.r.runtime.ops.na.NACheck;
public class NumericalFunctions {
@@ -109,7 +110,8 @@ public class NumericalFunctions {
}
@Override
- public double opd(double re, double im) {
+ public double opdChecked(NACheck naCheck, double re, double im) {
+ naCheck.check(re);
return re;
}
}
@@ -143,7 +145,8 @@ public class NumericalFunctions {
}
@Override
- public double opd(double re, double im) {
+ public double opdChecked(NACheck naCheck, double re, double im) {
+ naCheck.check(im);
return im;
}
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Substitute.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Substitute.java
index 0d484b9b5e705265850ec1eed8cfd18e138ceb04..8251eb1da6de0ef5e3fb352da5b2eba3d5f72bb2 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Substitute.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Substitute.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2014, 2018, 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
@@ -57,6 +57,11 @@ public abstract class Substitute extends RBuiltinNode.Arg2 {
casts.arg(1).defaultError(INVALID_ENVIRONMENT_SPECIFIED).allowNullAndMissing().mustBe(instanceOf(RAbstractListVector.class).or(instanceOf(REnvironment.class)));
}
+ @Specialization
+ protected Object doSubstitute(VirtualFrame frame, @SuppressWarnings("unused") RMissing exprMissing, @SuppressWarnings("unused") RMissing envMissing) {
+ return RSymbol.MISSING;
+ }
+
@Specialization
protected Object doSubstitute(VirtualFrame frame, RPromise expr, @SuppressWarnings("unused") RMissing envMissing) {
return doSubstituteWithEnv(expr, REnvironment.frameToEnvironment(frame.materialize()));
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/UpdateNames.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/UpdateNames.java
index a2f76704d12304fa76d7e7e413bd859021cf90b7..a7879e7a0c3589ecca41ff7087dca78b32b651c8 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/UpdateNames.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/UpdateNames.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2013, 2018, 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
@@ -29,6 +29,7 @@ import static com.oracle.truffle.r.runtime.builtins.RBuiltinKind.PRIMITIVE;
import com.oracle.truffle.api.CompilerDirectives;
import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
import com.oracle.truffle.api.dsl.Cached;
+import com.oracle.truffle.api.dsl.Fallback;
import com.oracle.truffle.api.dsl.Specialization;
import com.oracle.truffle.r.nodes.builtin.RBuiltinNode;
import com.oracle.truffle.r.nodes.unary.CastStringNode;
@@ -93,4 +94,9 @@ public abstract class UpdateNames extends RBuiltinNode.Arg2 {
result.setNames(stringVector);
return result;
}
+
+ @Fallback
+ protected Object doOthers(Object target, Object names) {
+ throw error(Message.NAMES_NONVECTOR);
+ }
}
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/attributes/GetAttributesNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/attributes/GetAttributesNode.java
index 9bb878e1ecf6a293769a6c02f05f57060646b28a..18892d089c7ab135eae636fb4987866448547f93 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/attributes/GetAttributesNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/attributes/GetAttributesNode.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2017, 2018, 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
@@ -41,6 +41,9 @@ import com.oracle.truffle.r.runtime.data.RDataFactory;
import com.oracle.truffle.r.runtime.data.RLanguage;
import com.oracle.truffle.r.runtime.data.RList;
import com.oracle.truffle.r.runtime.data.RNull;
+import com.oracle.truffle.r.runtime.data.RPairList;
+import com.oracle.truffle.r.runtime.data.RRaw;
+import com.oracle.truffle.r.runtime.data.RStringVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractContainer;
import com.oracle.truffle.r.runtime.data.model.RAbstractIntVector;
import com.oracle.truffle.r.runtime.env.REnvironment;
@@ -65,16 +68,32 @@ public abstract class GetAttributesNode extends RBaseNode {
public abstract Object execute(RAttributable attributable);
- @Specialization
+ @Specialization(guards = "!isPairList(container)")
protected Object attributesNull(RAbstractContainer container,
@Cached("createBinaryProfile()") ConditionProfile hasAttributesProfile) {
if (hasAttributesProfile.profile(hasAttributes(container))) {
- return createResult(container, container instanceof RLanguage);
+ return createResult(container, container instanceof RLanguage, null);
} else {
return RNull.instance;
}
}
+ @Specialization
+ @TruffleBoundary
+ protected Object attributesPairList(RPairList pairList) {
+ RStringVector names = pairList.getNames();
+ if (hasAttributes(pairList)) {
+ return createResult(pairList, false, names);
+ } else if (names != null) {
+ return RDataFactory.createList(new Object[]{names}, RDataFactory.createStringVector(RRuntime.NAMES_ATTR_KEY));
+ }
+ return RNull.instance;
+ }
+
+ protected static boolean isPairList(RAbstractContainer x) {
+ return x instanceof RPairList;
+ }
+
/**
* Unusual cases that it is not worth specializing on as they are not performance-centric,
* basically any type that is not an {@link RAbstractContainer} but is {@link RAttributable},
@@ -84,7 +103,7 @@ public abstract class GetAttributesNode extends RBaseNode {
@TruffleBoundary
protected Object attributes(RAttributable object) {
if (hasAttributes(object)) {
- return createResult(object, false);
+ return createResult(object, false, null);
} else {
return RNull.instance;
}
@@ -107,12 +126,17 @@ public abstract class GetAttributesNode extends RBaseNode {
/**
* {@code language} objects behave differently regarding "names"; they don't get included.
*/
- private Object createResult(RAttributable attributable, boolean ignoreNames) {
+ private Object createResult(RAttributable attributable, boolean ignoreNames, RStringVector explicitNames) {
DynamicObject attributes = attributable.getAttributes();
- int size = attributes.size();
+ int size = attributes.size() + (explicitNames == null ? 0 : 1);
String[] names = new String[size];
Object[] values = new Object[size];
int z = 0;
+ if (explicitNames != null) {
+ values[0] = explicitNames;
+ names[0] = RRuntime.NAMES_ATTR_KEY;
+ z = 1;
+ }
for (RAttributesLayout.RAttribute attr : arrayAttrAccess.execute(attributes)) {
String name = attr.getName();
if (ignoreNames && name.equals(RRuntime.NAMES_ATTR_KEY)) {
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallBaseNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallBaseNode.java
index ca010cb5525591933fbb4e5edf5512401033cdf7..3b6ea6ba9905dfe5e19850e8b53ca7c302252a8e 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallBaseNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallBaseNode.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2016, 2016, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2016, 2018, 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
@@ -25,9 +25,11 @@ package com.oracle.truffle.r.nodes.function;
import com.oracle.truffle.api.dsl.TypeSystemReference;
import com.oracle.truffle.api.frame.VirtualFrame;
import com.oracle.truffle.api.instrumentation.Instrumentable;
+import com.oracle.truffle.r.runtime.Arguments;
import com.oracle.truffle.r.runtime.data.RTypes;
import com.oracle.truffle.r.runtime.nodes.RInstrumentableNode;
import com.oracle.truffle.r.runtime.nodes.RNode;
+import com.oracle.truffle.r.runtime.nodes.RSyntaxNode;
@TypeSystemReference(RTypes.class)
@Instrumentable(factory = com.oracle.truffle.r.nodes.function.RCallBaseNodeWrapperFactory.class)
@@ -35,4 +37,7 @@ public abstract class RCallBaseNode extends RNode implements RInstrumentableNode
public abstract Object execute(VirtualFrame frame, Object function);
+ public abstract Arguments<RSyntaxNode> getArguments();
+
+ public abstract RNode getFunction();
}
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallBaseNodeWrapperFactory.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallBaseNodeWrapperFactory.java
index 0c46cffa196589aabde68b5c55822d2efe33fb66..a3b54e872e40f1b8ba9ae3a81d7c5c6fad7f5fd6 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallBaseNodeWrapperFactory.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallBaseNodeWrapperFactory.java
@@ -29,6 +29,8 @@ import com.oracle.truffle.api.nodes.Node;
import com.oracle.truffle.api.nodes.NodeCost;
import com.oracle.truffle.api.nodes.NodeInfo;
import com.oracle.truffle.api.source.SourceSection;
+import com.oracle.truffle.r.runtime.Arguments;
+import com.oracle.truffle.r.runtime.nodes.RNode;
import com.oracle.truffle.r.runtime.nodes.RSyntaxNode;
public class RCallBaseNodeWrapperFactory implements InstrumentableFactory<RCallBaseNode> {
@@ -44,6 +46,16 @@ public class RCallBaseNodeWrapperFactory implements InstrumentableFactory<RCallB
this.probeNode = probeNode;
}
+ @Override
+ public Arguments<RSyntaxNode> getArguments() {
+ return delegate.getArguments();
+ }
+
+ @Override
+ public RNode getFunction() {
+ return delegate.getFunction();
+ }
+
@Override
public Node getDelegateNode() {
return delegate;
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallNode.java
index 05bef4fb632320557cb97c385bdf261563219431..84d164a23a5ab3c62cd9473e71a32fa5955e93cf 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallNode.java
@@ -142,8 +142,6 @@ public abstract class RCallNode extends RCallBaseNode implements RSyntaxNode, RS
return this;
}
- public abstract RNode getFunction();
-
private final RSyntaxNode[] arguments;
private final int[] varArgIndexes;
private final ArgumentsSignature signature;
@@ -211,6 +209,7 @@ public abstract class RCallNode extends RCallBaseNode implements RSyntaxNode, RS
return varArgsSymbolIndicesArr;
}
+ @Override
public Arguments<RSyntaxNode> getArguments() {
return Arguments.create(arguments, signature);
}
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallSpecialNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallSpecialNode.java
index 1fb0b4db04f3c0d4883439cf8239325a0f7f1a43..2f46871ba2a4c7184e8a73a3f3bfa0f0a0d531ed 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallSpecialNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/RCallSpecialNode.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2016, 2017, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2016, 2018, 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
@@ -35,6 +35,7 @@ import com.oracle.truffle.api.nodes.NodeCost;
import com.oracle.truffle.api.nodes.NodeInfo;
import com.oracle.truffle.api.source.SourceSection;
import com.oracle.truffle.r.nodes.function.visibility.SetVisibilityNode;
+import com.oracle.truffle.r.runtime.Arguments;
import com.oracle.truffle.r.runtime.ArgumentsSignature;
import com.oracle.truffle.r.runtime.FastROptions;
import com.oracle.truffle.r.runtime.RDeparse;
@@ -103,6 +104,16 @@ public final class RCallSpecialNode extends RCallBaseNode implements RSyntaxNode
// currently cannot be RSourceSectionNode because of TruffleDSL restrictions
@CompilationFinal private SourceSection sourceSection;
+ @Override
+ public Arguments<RSyntaxNode> getArguments() {
+ return Arguments.create(arguments, signature);
+ }
+
+ @Override
+ public RNode getFunction() {
+ return functionNode;
+ }
+
@Override
public void setSourceSection(SourceSection sourceSection) {
assert sourceSection != null;
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastComplexNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastComplexNode.java
index 51a39f03ef08b1362469098c820e58b41adb9716..7d56657deccb7d9132450e7ce132c4dc33eea7aa 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastComplexNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastComplexNode.java
@@ -36,8 +36,10 @@ import com.oracle.truffle.r.runtime.data.RComplex;
import com.oracle.truffle.r.runtime.data.RComplexVector;
import com.oracle.truffle.r.runtime.data.RDataFactory;
import com.oracle.truffle.r.runtime.data.RList;
+import com.oracle.truffle.r.runtime.data.RLogicalVector;
import com.oracle.truffle.r.runtime.data.RMissing;
import com.oracle.truffle.r.runtime.data.RNull;
+import com.oracle.truffle.r.runtime.data.RPairList;
import com.oracle.truffle.r.runtime.data.RRaw;
import com.oracle.truffle.r.runtime.data.model.RAbstractComplexVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractDoubleVector;
@@ -265,6 +267,11 @@ public abstract class CastComplexNode extends CastBaseNode {
return ret;
}
+ @Specialization
+ protected RComplexVector doPairList(RPairList pairList) {
+ return doList(pairList.toRList());
+ }
+
public static CastComplexNode create() {
return CastComplexNodeGen.create(true, true, true);
}
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastDoubleNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastDoubleNode.java
index aadfb63a0ae9d04319a3e2507ce250583d86765a..7ffe25f55cc859ff56f853f37925eb69cdd916bb 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastDoubleNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastDoubleNode.java
@@ -39,6 +39,7 @@ import com.oracle.truffle.r.runtime.data.RComplex;
import com.oracle.truffle.r.runtime.data.RDataFactory;
import com.oracle.truffle.r.runtime.data.RDoubleVector;
import com.oracle.truffle.r.runtime.data.RList;
+import com.oracle.truffle.r.runtime.data.RPairList;
import com.oracle.truffle.r.runtime.data.model.RAbstractComplexVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractContainer;
import com.oracle.truffle.r.runtime.data.model.RAbstractDoubleVector;
@@ -222,6 +223,11 @@ public abstract class CastDoubleNode extends CastDoubleBaseNode {
return ret;
}
+ @Specialization
+ protected RDoubleVector doPairList(RPairList pairList) {
+ return doList(pairList.toRList());
+ }
+
@Specialization(guards = "isForeignObject(obj)")
protected RAbstractDoubleVector doForeignObject(TruffleObject obj,
@Cached("create()") ForeignArray2R foreignArray2R) {
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastIntegerNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastIntegerNode.java
index 39408874cb957b9aadf6e38bf83ab23050a7afe0..ca459c41a3a4019e2475eff38382941e03f6a3ce 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastIntegerNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastIntegerNode.java
@@ -36,9 +36,11 @@ import com.oracle.truffle.r.runtime.data.RArgsValuesAndNames;
import com.oracle.truffle.r.runtime.data.RComplex;
import com.oracle.truffle.r.runtime.data.RDataFactory;
import com.oracle.truffle.r.runtime.data.RDoubleSequence;
+import com.oracle.truffle.r.runtime.data.RDoubleVector;
import com.oracle.truffle.r.runtime.data.RIntSequence;
import com.oracle.truffle.r.runtime.data.RIntVector;
import com.oracle.truffle.r.runtime.data.RList;
+import com.oracle.truffle.r.runtime.data.RPairList;
import com.oracle.truffle.r.runtime.data.model.RAbstractComplexVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractDoubleVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractIntVector;
@@ -230,6 +232,11 @@ public abstract class CastIntegerNode extends CastIntegerBaseNode {
return ret;
}
+ @Specialization
+ protected RIntVector doPairList(RPairList pairList) {
+ return doList(pairList.toRList());
+ }
+
@Specialization(guards = "isForeignObject(obj)")
protected RAbstractIntVector doForeignObject(TruffleObject obj,
@Cached("create()") ForeignArray2R foreignArray2R) {
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastLogicalNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastLogicalNode.java
index 519699e7be0003610df58af2c6862a7b5261a97c..b198081c7e6f0dec794ce242905b1fe067247140 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastLogicalNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastLogicalNode.java
@@ -33,10 +33,12 @@ import com.oracle.truffle.r.nodes.helpers.InheritsCheckNode;
import com.oracle.truffle.r.runtime.RError;
import com.oracle.truffle.r.runtime.RRuntime;
import com.oracle.truffle.r.runtime.data.RDataFactory;
+import com.oracle.truffle.r.runtime.data.RIntVector;
import com.oracle.truffle.r.runtime.data.RList;
import com.oracle.truffle.r.runtime.data.RLogicalVector;
import com.oracle.truffle.r.runtime.data.RMissing;
import com.oracle.truffle.r.runtime.data.RNull;
+import com.oracle.truffle.r.runtime.data.RPairList;
import com.oracle.truffle.r.runtime.data.model.RAbstractComplexVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractDoubleVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractIntVector;
@@ -188,6 +190,11 @@ public abstract class CastLogicalNode extends CastLogicalBaseNode {
return ret;
}
+ @Specialization
+ protected RLogicalVector doPairList(RPairList pairList) {
+ return doList(pairList.toRList());
+ }
+
@Specialization
protected RMissing doMissing(RMissing missing) {
return missing;
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastRawNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastRawNode.java
index 6318bc90ef3353d510c315b37d61cba6e47507aa..d2702020918fe1a8aa6d4f610efa86cabc123339 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastRawNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/CastRawNode.java
@@ -32,8 +32,10 @@ import com.oracle.truffle.r.runtime.RRuntime;
import com.oracle.truffle.r.runtime.RType;
import com.oracle.truffle.r.runtime.data.RComplex;
import com.oracle.truffle.r.runtime.data.RDataFactory;
+import com.oracle.truffle.r.runtime.data.RLogicalVector;
import com.oracle.truffle.r.runtime.data.RMissing;
import com.oracle.truffle.r.runtime.data.RNull;
+import com.oracle.truffle.r.runtime.data.RPairList;
import com.oracle.truffle.r.runtime.data.RRaw;
import com.oracle.truffle.r.runtime.data.RRawVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractComplexVector;
@@ -313,6 +315,11 @@ public abstract class CastRawNode extends CastBaseNode {
return result;
}
+ @Specialization
+ protected RRawVector doPairList(RPairList pairList) {
+ return doList(pairList.toRList());
+ }
+
public static CastRawNode createForRFFI(boolean preserveNames, boolean preserveDimensions, boolean preserveAttributes) {
return CastRawNodeGen.create(preserveNames, preserveDimensions, preserveAttributes, true);
}
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/ScalarUnaryArithmeticNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/ScalarUnaryArithmeticNode.java
index 63dd7dafbd275ce5d91156dc879e9510315b1361..b22a0428eb2ff299a0a7b04d6385dc09c765a6aa 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/ScalarUnaryArithmeticNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/unary/ScalarUnaryArithmeticNode.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2015, 2016, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2015, 2018, 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
@@ -87,11 +87,8 @@ public class ScalarUnaryArithmeticNode extends UnaryMapNAFunctionNode {
@Override
public final double applyDouble(RComplex operand) {
- if (operandNACheck.check(operand)) {
- return RRuntime.DOUBLE_NA;
- }
try {
- return arithmetic.opd(operand.getRealPart(), operand.getImaginaryPart());
+ return arithmetic.opdChecked(operandNACheck, operand.getRealPart(), operand.getImaginaryPart());
} catch (Throwable e) {
CompilerDirectives.transferToInterpreter();
throw Operation.handleException(e);
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/RPairList.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/RPairList.java
index 089225a7db7a1f979fb5b02e0359f783130d70de..e3be9c96ea3e37a40fd7df240ff2bfbe95fa3640 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/RPairList.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/data/RPairList.java
@@ -122,7 +122,6 @@ public final class RPairList extends RSharingAttributeStorage implements RAbstra
/**
* Convert to a {@link RList}.
*/
- // TODO (chumer) too complex for a non truffle boundary
@TruffleBoundary
public RList toRList() {
int len = 0;
@@ -270,9 +269,8 @@ public final class RPairList extends RSharingAttributeStorage implements RAbstra
throw RInternalError.shouldNotReachHere();
}
- @Override
@TruffleBoundary
- public RPairList copy() {
+ public RPairList copy(boolean keepAttributes) {
BaseVectorFactory dataFactory = RDataFactory.getInstance();
RPairList curr = dataFactory.createPairList();
RPairList result = curr;
@@ -289,12 +287,17 @@ public final class RPairList extends RSharingAttributeStorage implements RAbstra
curr.cdr = dataFactory.createPairList();
curr = (RPairList) curr.cdr;
}
- if (getAttributes() != null) {
+ if (keepAttributes && getAttributes() != null) {
result.initAttributes(RAttributesLayout.copy(getAttributes()));
}
return result;
}
+ @Override
+ public RPairList copy() {
+ return copy(true);
+ }
+
@Override
public RShareable deepCopy() {
RInternalError.shouldNotReachHere();
@@ -323,6 +326,9 @@ public final class RPairList extends RSharingAttributeStorage implements RAbstra
@Override
public RStringVector getNames() {
+ if (this.tag == RNull.instance) {
+ return null;
+ }
int l = getLength();
String[] data = new String[l];
RPairList pl = this;
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/UnaryArithmetic.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/UnaryArithmetic.java
index f32b5bd1895888e51be17e5273436b3f63572c36..a5ea580bbd094cb4382be0cdca06e894b699884c 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/UnaryArithmetic.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/UnaryArithmetic.java
@@ -7,7 +7,7 @@
* Copyright (c) 1998, Ross Ihaka
* Copyright (c) 1998-2012, The R Core Team
* Copyright (c) 2005, The R Foundation
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates
*
* All rights reserved.
*/
@@ -15,9 +15,11 @@ package com.oracle.truffle.r.runtime.ops;
import com.oracle.truffle.r.runtime.RError;
import com.oracle.truffle.r.runtime.RError.Message;
+import com.oracle.truffle.r.runtime.RRuntime;
import com.oracle.truffle.r.runtime.RType;
import com.oracle.truffle.r.runtime.data.RComplex;
import com.oracle.truffle.r.runtime.data.RDataFactory;
+import com.oracle.truffle.r.runtime.ops.na.NACheck;
/**
* Base class for the implementation of unary arithmetic operations. This covers functions like "+",
@@ -73,6 +75,16 @@ public abstract class UnaryArithmetic extends Operation {
return RDataFactory.createComplex(op(re), op(im));
}
+ /**
+ * Allows to override the default checking of NA, where NA in either im or re results into NA.
+ */
+ public double opdChecked(NACheck naCheck, double re, double im) {
+ if (naCheck.check(re) || naCheck.check(im)) {
+ return RRuntime.DOUBLE_NA;
+ }
+ return opd(re, im);
+ }
+
public double opd(@SuppressWarnings("unused") double re, @SuppressWarnings("unused") double im) {
throw new UnsupportedOperationException();
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
index 00c3dc83014bedd5f116916b11069b7b3b847f64..3a2b53154616783a847772cb98d3d66d3a8e6622 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
@@ -1131,6 +1131,10 @@ Error in `Encoding<-`(`*tmp*`, value = "UTF-8") :
#Im(c(NaN, 1+1i))
[1] 0 1
+##com.oracle.truffle.r.test.builtins.TestBuiltin_Im.testIm#
+#Im(complex(real=c(1,2,NA), imaginary=3:1))
+[1] 3 2 1
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_Im.testIm#
#{ Im(1) }
[1] 0
@@ -7904,6 +7908,783 @@ $varargs$args
#as.numeric(diff(structure(c(-154401120, 1503191520), class = c('POSIXct', 'POSIXt'), tzone = 'GMT')), units='secs')
[1] 1657592640
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'any'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'character'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'complex'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'double'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'integer'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'list'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'logical'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'symbol'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'double'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'pairlist'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'raw'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.environment(list(a=3,b=4,x=5)); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+Error in as.vector(x, mode) :
+ cannot coerce type 'environment' to vector of type 'symbol'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 3
+
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+[1] "1" "2" "3"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+[1] 1+0i 2+0i 3+0i
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 3
+
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+[1] TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+Error in as.vector(x, mode = "name") :
+ invalid type/length (symbol/3) in vector allocation
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 3
+
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+[1] 01 02 03
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.pairlist(c(1,2,3)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+Error in as.vector(x, mode = "symbol") :
+ invalid type/length (symbol/3) in vector allocation
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+[1] 01 02 04
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+[1] "01" "02" "04"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+[1] 1+0i 2+0i 4+0i
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+$a
+[1] 01
+
+$b
+[1] 02
+
+$c
+[1] 04
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+[1] TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+`01`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+$a
+[1] 01
+
+$b
+[1] 02
+
+$c
+[1] 04
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+[1] 01 02 04
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- as.raw(c(1, 2, 4)); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+`01`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+[1] "1" "2" "4"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+[1] "1" "2" "4"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+[1] 1+0i 2+0i 4+0i
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+$a
+[1] "1"
+
+$b
+[1] "2"
+
+$c
+[1] "4"
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+[1] NA NA NA
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+`1`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+$a
+[1] "1"
+
+$b
+[1] "2"
+
+$c
+[1] "4"
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+[1] 01 02 04
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c('1', '2', '4'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+`1`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1+i, 2+i, 4+i); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+Error: object 'i' not found
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+[1] "1" "2" "4"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+[1] 1+0i 2+0i 4+0i
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 4
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+[1] TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+`1`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 4
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+[1] 01 02 04
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1, 2, 4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+`1`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+[1] "1" "2" "4"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+[1] 1+0i 2+0i 4+0i
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 4
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+[1] TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+`1`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 4
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+[1] 01 02 04
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(1L, 2L, 4L); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+`1`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+[1] TRUE FALSE TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+[1] "TRUE" "FALSE" "TRUE"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+[1] 1+0i 0+0i 1+0i
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+[1] 1 0 1
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+[1] 1 0 1
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+$a
+[1] TRUE
+
+$b
+[1] FALSE
+
+$c
+[1] TRUE
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+[1] TRUE FALSE TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+`TRUE`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+[1] 1 0 1
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+$a
+[1] TRUE
+
+$b
+[1] FALSE
+
+$c
+[1] TRUE
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+[1] 01 00 01
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- c(T, F, T); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+`TRUE`
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 4
+
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+[1] "1" "2" "4"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+[1] 1+0i 2+0i 4+0i
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 4
+
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+[1] TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+Error in as.vector(x, mode = "name") :
+ invalid type/length (symbol/3) in vector allocation
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+[1] 1 2 4
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+$a
+[1] 1
+
+$b
+[1] 2
+
+$c
+[1] 4
+
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+[1] 01 02 04
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- list(1,2,4); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+Error in as.vector(x, mode = "symbol") :
+ invalid type/length (symbol/3) in vector allocation
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='any'); }
+expression(a = x, b = y, c = z)
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='character'); }
+[1] "x" "y" "z"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='complex'); }
+Error in as.vector(x, mode = "complex") :
+ (list) object cannot be coerced to type 'complex'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='double'); }
+Error in as.vector(x, mode = "double") :
+ (list) object cannot be coerced to type 'double'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='integer'); }
+Error in as.vector(x, mode = "integer") :
+ (list) object cannot be coerced to type 'integer'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='list'); }
+$a
+x
+
+$b
+y
+
+$c
+z
+
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='logical'); }
+Error in as.vector(x, mode = "logical") :
+ (list) object cannot be coerced to type 'logical'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='name'); }
+Error in as.vector(x, mode = "name") :
+ (list) object cannot be coerced to type 'symbol'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='numeric'); }
+Error in as.vector(x, mode = "numeric") :
+ (list) object cannot be coerced to type 'double'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='pairlist'); }
+$a
+x
+
+$b
+y
+
+$c
+z
+
+attr(,"myattr")
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='raw'); }
+Error in as.vector(x, mode = "raw") :
+ (list) object cannot be coerced to type 'raw'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.allCombinations#Output.IgnoreErrorMessage#
+#{ x <- parse(text='x; y; z'); names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='symbol'); }
+Error in as.vector(x, mode = "symbol") :
+ (list) object cannot be coerced to type 'symbol'
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.runRSourceTests#
+#{ source("tmptest/asvector/asvector.R") }
+list -> integer result: integer names: no attrs: no
+list -> numeric result: double names: no attrs: no
+list -> double result: double names: no attrs: no
+list -> raw result: raw names: no attrs: no
+list -> logical result: logical names: no attrs: no
+list -> complex result: complex names: no attrs: no
+list -> character result: character names: no attrs: no
+list -> list result: list names: yes attrs: yes
+list -> pairlist result: pairlist names: yes attrs: yes
+list -> symbol result: NULL E names: no attrs: no
+list -> name result: NULL E names: no attrs: no
+list -> any result: list names: yes attrs: yes
+pairlist -> integer result: integer names: no attrs: no
+pairlist -> numeric result: double names: no attrs: no
+pairlist -> double result: double names: no attrs: no
+pairlist -> raw result: raw names: no attrs: no
+pairlist -> logical result: logical names: no attrs: no
+pairlist -> complex result: complex names: no attrs: no
+pairlist -> character result: character names: no attrs: no
+pairlist -> list result: list names: yes attrs: yes
+pairlist -> pairlist result: pairlist names: yes attrs: yes
+pairlist -> symbol result: NULL E names: no attrs: no
+pairlist -> name result: NULL E names: no attrs: no
+pairlist -> any result: pairlist names: yes attrs: yes
+integer -> integer result: integer names: no attrs: no
+integer -> numeric result: double names: no attrs: no
+integer -> double result: double names: no attrs: no
+integer -> raw result: raw names: no attrs: no
+integer -> logical result: logical names: no attrs: no
+integer -> complex result: complex names: no attrs: no
+integer -> character result: character names: no attrs: no
+integer -> list result: list names: yes attrs: no
+integer -> pairlist result: pairlist names: yes attrs: no
+integer -> symbol result: symbol names: no attrs: no
+integer -> name result: symbol names: no attrs: no
+integer -> any result: integer names: no attrs: no
+double -> integer result: integer names: no attrs: no
+double -> numeric result: double names: no attrs: no
+double -> double result: double names: no attrs: no
+double -> raw result: raw names: no attrs: no
+double -> logical result: logical names: no attrs: no
+double -> complex result: complex names: no attrs: no
+double -> character result: character names: no attrs: no
+double -> list result: list names: yes attrs: no
+double -> pairlist result: pairlist names: yes attrs: no
+double -> symbol result: symbol names: no attrs: no
+double -> name result: symbol names: no attrs: no
+double -> any result: double names: no attrs: no
+raw -> integer result: integer names: no attrs: no
+raw -> numeric result: double names: no attrs: no
+raw -> double result: double names: no attrs: no
+raw -> raw result: raw names: no attrs: no
+raw -> logical result: logical names: no attrs: no
+raw -> complex result: complex names: no attrs: no
+raw -> character result: character names: no attrs: no
+raw -> list result: list names: yes attrs: no
+raw -> pairlist result: pairlist names: yes attrs: no
+raw -> symbol result: symbol names: no attrs: no
+raw -> name result: symbol names: no attrs: no
+raw -> any result: raw names: no attrs: no
+character -> integer result: integer names: no attrs: no
+character -> numeric result: double names: no attrs: no
+character -> double result: double names: no attrs: no
+character -> raw result: raw names: no attrs: no
+character -> logical result: logical names: no attrs: no
+character -> complex result: complex names: no attrs: no
+character -> character result: character names: no attrs: no
+character -> list result: list names: yes attrs: no
+character -> pairlist result: pairlist names: yes attrs: no
+character -> symbol result: symbol names: no attrs: no
+character -> name result: symbol names: no attrs: no
+character -> any result: character names: no attrs: no
+logical -> integer result: integer names: no attrs: no
+logical -> numeric result: double names: no attrs: no
+logical -> double result: double names: no attrs: no
+logical -> raw result: raw names: no attrs: no
+logical -> logical result: logical names: no attrs: no
+logical -> complex result: complex names: no attrs: no
+logical -> character result: character names: no attrs: no
+logical -> list result: list names: yes attrs: no
+logical -> pairlist result: pairlist names: yes attrs: no
+logical -> symbol result: symbol names: no attrs: no
+logical -> name result: symbol names: no attrs: no
+logical -> any result: logical names: no attrs: no
+complex -> integer result: NULL W names: no attrs: no
+complex -> numeric result: NULL W names: no attrs: no
+complex -> double result: NULL W names: no attrs: no
+complex -> raw result: NULL W names: no attrs: no
+complex -> logical result: logical names: no attrs: no
+complex -> complex result: complex names: no attrs: no
+complex -> character result: character names: no attrs: no
+complex -> list result: list names: yes attrs: no
+complex -> pairlist result: pairlist names: yes attrs: no
+complex -> symbol result: symbol names: no attrs: no
+complex -> name result: symbol names: no attrs: no
+complex -> any result: complex names: no attrs: no
+expression -> integer result: NULL E names: no attrs: no
+expression -> numeric result: NULL E names: no attrs: no
+expression -> double result: NULL E names: no attrs: no
+expression -> raw result: NULL E names: no attrs: no
+expression -> logical result: NULL E names: no attrs: no
+expression -> complex result: NULL E names: no attrs: no
+expression -> character result: character names: no attrs: no
+expression -> list result: list names: yes attrs: yes
+expression -> pairlist result: pairlist names: yes attrs: yes
+expression -> symbol result: NULL E names: no attrs: no
+expression -> name result: NULL E names: no attrs: no
+expression -> any result: expression names: yes attrs: yes
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsSymbol#
#{ as.symbol("name") }
name
@@ -7936,10 +8717,72 @@ name
[1] 3
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#
+#as.pairlist(mtcars[,1:3])
+ mpg cyl disp
+Mazda RX4 21.0 6 160.0
+Mazda RX4 Wag 21.0 6 160.0
+Datsun 710 22.8 4 108.0
+Hornet 4 Drive 21.4 6 258.0
+Hornet Sportabout 18.7 8 360.0
+Valiant 18.1 6 225.0
+Duster 360 14.3 8 360.0
+Merc 240D 24.4 4 146.7
+Merc 230 22.8 4 140.8
+Merc 280 19.2 6 167.6
+Merc 280C 17.8 6 167.6
+Merc 450SE 16.4 8 275.8
+Merc 450SL 17.3 8 275.8
+Merc 450SLC 15.2 8 275.8
+Cadillac Fleetwood 10.4 8 472.0
+Lincoln Continental 10.4 8 460.0
+Chrysler Imperial 14.7 8 440.0
+Fiat 128 32.4 4 78.7
+Honda Civic 30.4 4 75.7
+Toyota Corolla 33.9 4 71.1
+Toyota Corona 21.5 4 120.1
+Dodge Challenger 15.5 8 318.0
+AMC Javelin 15.2 8 304.0
+Camaro Z28 13.3 8 350.0
+Pontiac Firebird 19.2 8 400.0
+Fiat X1-9 27.3 4 79.0
+Porsche 914-2 26.0 4 120.3
+Lotus Europa 30.4 4 95.1
+Ford Pantera L 15.8 8 351.0
+Ferrari Dino 19.7 6 145.0
+Maserati Bora 15.0 8 301.0
+Volvo 142E 21.4 4 121.0
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#
+#as.pairlist(structure(1:3, myattr=42))
+[[1]]
+[1] 1
+
+[[2]]
+[1] 2
+
+[[3]]
+[1] 3
+
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#
#as.vector(NULL, mode='pairlist')
NULL
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#
+#as.vector(as.pairlist(structure(list(1,2,3), myattr=42)), 'list')
+[[1]]
+[1] 1
+
+[[2]]
+[1] 2
+
+[[3]]
+[1] 3
+
+attr(,"myattr")
+[1] 42
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#
#as.vector(as.symbol('asdf'), 'symbol')
asdf
@@ -9519,6 +10362,31 @@ attr(,"Object created")
a b c
1 2 3
+##com.oracle.truffle.r.test.builtins.TestBuiltin_attributes.testAttributes#
+#attributes(pairlist(1,2,3))
+NULL
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_attributes.testAttributes#
+#attributes(pairlist(a=1, b=2))
+$names
+[1] "a" "b"
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_attributes.testAttributes#
+#attributes(structure(pairlist(1,2,3), myattr=42))
+$myattr
+[1] 42
+
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_attributes.testAttributes#
+#attributes(structure(pairlist(a=1,b=2,c=3), myattr=42))
+$names
+[1] "a" "b" "c"
+
+$myattr
+[1] 42
+
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_attributes.testAttributes#
#{ e <- new.env(); attributes(e) <- list(a=1); attributes(e) }
$a
@@ -23026,6 +23894,10 @@ a
#{ e <- new.env(); assign('foo', function() 42, e); foo <- function(x) 1; do.call('foo', list(), envir=e); }
[1] 42
+##com.oracle.truffle.r.test.builtins.TestBuiltin_docall.testDoCall#
+#{ f <- function() typeof(sys.call(0)[[1]]); do.call('f', list()); }
+[1] "symbol"
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_docall.testDoCall#Output.IgnoreErrorContext#
#{ f <- function(x) x; do.call(f, list(quote(y + 1)))}
Error in (function (x) : object 'y' not found
@@ -40486,6 +41358,18 @@ Error in k() : argument "y" is missing, with no default
#{ x <- quote(plot(x = age, y = weight)); names(x) }
[1] "" "x" "y"
+##com.oracle.truffle.r.test.builtins.TestBuiltin_names.testNames#
+#names(pairlist(1,2,3))
+NULL
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_names.testNames#
+#names(pairlist(a=1,2,q=3))
+[1] "a" "" "q"
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_names.testNames#
+#names(pairlist(a=3, b=4))
+[1] "a" "b"
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_names.testNames#
#v <- parse(text="useDynLib(digest, digest_impl=digest)"); names(v[[1]][3])
[1] "digest_impl"
@@ -40494,6 +41378,10 @@ Error in k() : argument "y" is missing, with no default
#v <- parse(text="useDynLib(digest, digest_impl=digest)"); names(v[[1]][[3]])
NULL
+##com.oracle.truffle.r.test.builtins.TestBuiltin_names.testNames#
+#{ e <- new.env(); names(e) <- c('a'); }
+Error in names(e) <- c("a") : names() applied to a non-vector
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_names.testNames#
#{ symNames <- c("foobar", "bar"); names(symNames) = symNames; names(names(symNames)); }
NULL
@@ -40502,6 +41390,10 @@ NULL
#{ x <- c(10, 20); names(x) <- c('ahoj', 'svete'); y <- c(1,2); z <- choose(x,y); names(z)[[1]] <- 'onlyinz'; names(x) }
[1] "ahoj" "svete"
+##com.oracle.truffle.r.test.builtins.TestBuiltin_names.testNames#Ignored.ImplementationError#
+#{ x <- parse(text='x+y')[[1]]; names(x) <- c('a','b','c'); names(x); }
+[1] "a" "b" "c"
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_names.testNames#
#{ x<-c(1,2,3); dim(x)<-3; dimnames(x)<-list(c(11,12,13)); names(x) }
[1] "11" "12" "13"
@@ -72202,6 +73094,10 @@ quote(x + 1)
Error in substitute(quote(x + 1), setClass("a")) :
invalid environment specified
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#typeof(substitute())
+[1] "symbol"
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
#typeof(substitute(set))
[1] "symbol"
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_Im.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_Im.java
index df96882222cd0eb25fb15a6a5eefa8dd51e31311..5a737bd8204962498d9c8b0ad76ba64a95a3a246 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_Im.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_Im.java
@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html
*
* Copyright (c) 2012-2014, Purdue University
- * Copyright (c) 2013, 2016, Oracle and/or its affiliates
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates
*
* All rights reserved.
*/
@@ -65,5 +65,7 @@ public class TestBuiltin_Im extends TestBase {
assertEval("Im(c(NaN, 1+1i))");
assertEval("Im(NaN)");
+
+ assertEval("Im(complex(real=c(1,2,NA), imaginary=3:1))");
}
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_asvector.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_asvector.java
index c66c7d7df15635fe005e845e5910c4a3896e5b26..a0bf8bc071fa90a0cf2916667f19e845fbddd894 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_asvector.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_asvector.java
@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html
*
* Copyright (c) 2012-2014, Purdue University
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates
*
* All rights reserved.
*/
@@ -13,9 +13,15 @@ package com.oracle.truffle.r.test.builtins;
import org.junit.Test;
import com.oracle.truffle.r.test.TestBase;
+import com.oracle.truffle.r.test.TestRBase;
// Checkstyle: stop line length check
-public class TestBuiltin_asvector extends TestBase {
+public class TestBuiltin_asvector extends TestRBase {
+
+ @Override
+ protected String getTestDir() {
+ return "asvector";
+ }
@Test
public void testasvector1() {
@@ -445,6 +451,10 @@ public class TestBuiltin_asvector extends TestBase {
assertEval("as.vector(NULL, mode='pairlist')");
assertEval("{ as.vector.cls <- function(x, mode) 42; as.vector(structure(c(1,2), class='cls')); }");
assertEval("as.pairlist(as.pairlist(c(1,2,3)))");
+ assertEval("as.pairlist(mtcars[,1:3])");
+ assertEval("as.pairlist(structure(1:3, myattr=42))");
+ assertEval("as.vector(as.pairlist(structure(list(1,2,3), myattr=42)), 'list')");
+
}
@Test
@@ -455,4 +465,51 @@ public class TestBuiltin_asvector extends TestBase {
assertEval("{ as.symbol(as.raw(16)) }");
assertEval("{ as.symbol(3+2i) }");
}
+
+ private final String[] valuesNameableAttributable = new String[]{
+ "list(1,2,4)",
+ "as.pairlist(c(1,2,3))",
+ "c(1L, 2L, 4L)",
+ "c(1, 2, 4)",
+ "as.raw(c(1, 2, 4))",
+ "c('1', '2', '4')",
+ "c(T, F, T)",
+ "c(1+i, 2+i, 4+i)",
+ "parse(text='x; y; z')",
+ // TODO: "parse(text='x+y')[[1]]", -- problem with UpdateNames and RLanguage...
+ // TODO: "function() 42",
+ };
+
+ private final String[] valuesAttributable = new String[]{
+ // TODO: "as.symbol('a')", -- attributes dropping/not dropping is not correct
+ "as.environment(list(a=3,b=4,x=5))",
+ };
+
+ private final String[] otherValues = new String[]{
+ "NULL",
+ };
+
+ private final String[] modes = new String[]{
+ "integer",
+ "numeric",
+ "double",
+ "raw",
+ "logical",
+ "complex",
+ "character",
+ "list",
+ "pairlist",
+ // TODO: "expression", -- too many differences in deparsing
+ "symbol",
+ "name",
+ // TODO: "closure",
+ // TODO: "function",
+ "any"
+ };
+
+ @Test
+ public void allCombinations() {
+ assertEval(Output.IgnoreErrorMessage, template("{ x <- %0; names(x) <- c('a','b','c'); attr(x,'myattr') <- 42; as.vector(x, mode='%1'); }", valuesNameableAttributable, modes));
+ assertEval(Output.IgnoreErrorMessage, template("{ x <- %0; attr(x,'myattr') <- 42; as.vector(x, mode='%1'); }", valuesAttributable, modes));
+ }
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_attributes.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_attributes.java
index af13a6708d2465a36ad8d63b0cd1408130038d9c..d5425ad60c595995c9591d1886dfa45285e53db4 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_attributes.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_attributes.java
@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html
*
* Copyright (c) 2012-2014, Purdue University
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates
*
* All rights reserved.
*/
@@ -195,5 +195,10 @@ public class TestBuiltin_attributes extends TestBase {
assertEval("{ e <- new.env(); attributes(e) <- list(a=1); attributes(e) }");
assertEval("{ e <- new.env(); attributes(e) <- list(class=\"srcfile\"); attributes(e) }");
+
+ assertEval("attributes(pairlist(a=1, b=2))");
+ assertEval("attributes(pairlist(1,2,3))");
+ assertEval("attributes(structure(pairlist(1,2,3), myattr=42))");
+ assertEval("attributes(structure(pairlist(a=1,b=2,c=3), myattr=42))");
}
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_docall.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_docall.java
index 85d9ed9b4db6ea6b7c5de1ecba7517ee1cf65f12..7c616483654c818d93e490d0340424c3e7100746 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_docall.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_docall.java
@@ -50,5 +50,6 @@ public class TestBuiltin_docall extends TestBase {
assertEval("{ f1 <- function(a) ls(parent.frame(2)); f2 <- function(b) f1(b); f3 <- function(c) f2(c); f4 <- function(d) do.call('f3', list(d)); f4(42); }");
assertEval("do.call('c', list())");
+ assertEval("{ f <- function() typeof(sys.call(0)[[1]]); do.call('f', list()); }");
}
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_names.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_names.java
index ccb7410e42ecaaaf0ffce27f0d5ec774215b3e58..147f9137f9ae7786841967d1d25194d966a49e6a 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_names.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_names.java
@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html
*
* Copyright (c) 2012-2014, Purdue University
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates
*
* All rights reserved.
*/
@@ -205,6 +205,12 @@ public class TestBuiltin_names extends TestBase {
assertEval("{ symNames <- c(\"foobar\", \"bar\"); names(symNames) = symNames; names(names(symNames)); }");
assertEval("{ y<-c(d=\"e\"); attr(y, \"foo\")<-\"foo\"; x<-c(42); names(x)<-y; attributes(names(x)) }");
assertEval("{ x <- c(10, 20); names(x) <- c('ahoj', 'svete'); y <- c(1,2); z <- choose(x,y); names(z)[[1]] <- 'onlyinz'; names(x) }");
+ assertEval("{ e <- new.env(); names(e) <- c('a'); }");
+ // FIXME: set names on language does not set the first name
+ assertEval(Ignored.ImplementationError, "{ x <- parse(text='x+y')[[1]]; names(x) <- c('a','b','c'); names(x); }");
+ assertEval("names(pairlist(a=3, b=4))");
+ assertEval("names(pairlist(1,2,3))");
+ assertEval("names(pairlist(a=1,2,q=3))");
}
@Test
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_substitute.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_substitute.java
index 15fc909b40899f88252dc13f4340e51e282b4986..e56810eed18caa79eff5938757fbf1e2b67015a7 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_substitute.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_substitute.java
@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html
*
* Copyright (c) 2012-2014, Purdue University
- * Copyright (c) 2013, 2017, Oracle and/or its affiliates
+ * Copyright (c) 2013, 2018, Oracle and/or its affiliates
*
* All rights reserved.
*/
@@ -138,5 +138,7 @@ public class TestBuiltin_substitute extends TestBase {
assertEval("{ foo <- function(...) bar(3+2); bar <- function(...) { ..1; substitute(..1); }; foo(1+2); }");
assertEval("{ foo <- function(...) bar(3+2); bar <- function(...) { substitute(list(...)); }; foo(1+2); }");
assertEval("{ foo <- function(...) bar(3+2); bar <- function(...) { list(...); substitute(list(...)); }; foo(1+2); }");
+
+ assertEval("typeof(substitute())");
}
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/asvector/R/asvector.R b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/asvector/R/asvector.R
new file mode 100644
index 0000000000000000000000000000000000000000..beaeee13beeb611854a1756fbcaae25d84b66697
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/asvector/R/asvector.R
@@ -0,0 +1,57 @@
+# Runs as.vector with all possible combinations of arguments and prints out:
+# if there was error/warning, result type, and if it retained names and/or custom attributes
+values <- list(list(1,2, 3),
+ as.pairlist(c(1,2,3)),
+ c(1L, 2L, 4L),
+ c(1, 2, 4),
+ as.raw(c(1, 2, 4)),
+ c('1', '2', '4'),
+ c(T, F, T),
+ c(1+1i, 2+1i, 4+2i),
+ parse(text='x; y; z')
+ # parse(text='-y')[[1]],
+ # function() 42
+)
+
+modes <- c(
+ "integer",
+ "numeric",
+ "double",
+ "raw",
+ "logical",
+ "complex",
+ "character",
+ "list",
+ "pairlist",
+ # "expression",
+ "symbol",
+ "name",
+ # "closure",
+ # "function",
+ "any"
+)
+
+padLeft <- function(x, size) {
+ paste0(x, paste0(rep(" ", size - nchar(x)), collapse=""))
+}
+
+for (i in seq_along(values)) {
+ for (m in seq_along(modes)) {
+ x <- values[[i]]
+ if (length(x) > 2) {
+ names(x) <- c('a', 'b', 'c')
+ }
+ attr(x, 'mya') <- 42
+ wasWarn <- F
+ wasError <- F
+ res <- NULL
+ tryCatch(res <<- as.vector(x, mode=modes[[m]]),
+ warning = function(e) wasWarn <<- T,
+ error = function(e) wasError <<- T)
+ cat(padLeft(typeof(x), 10), "->", padLeft(modes[[m]], 10),
+ "result: ", padLeft(typeof(res), 10),
+ if (wasError) "E " else if (wasWarn) "W " else " ",
+ "names:", if (length(names(res)) > 0) "yes " else "no ",
+ "attrs:", if (is.null(attr(res, 'mya'))) "no" else "yes", "\n")
+ }
+}
\ No newline at end of file