From d83c953ca980b47f57e4e928608b23bf17fe5c78 Mon Sep 17 00:00:00 2001
From: Mick Jordan <mick.jordan@oracle.com>
Date: Fri, 11 Mar 2016 18:54:43 +0100
Subject: [PATCH] changes to build against R-3.2.4
---
.../truffle/r/library/tools/C_ParseRd.java | 24 +-
com.oracle.truffle.r.native/Makefile | 2 +-
.../fficall/src/common/X11_fastr.c | 28 +
.../fficall/src/common/printutils_fastr.c | 27 +-
.../fficall/src/jni/Rinternals.c | 8 +-
.../gnur/Makefile.gnur | 1 +
.../gnur/patchXzMakefile | 3 +
.../library/stats/src/statsR_dummy.c | 119 +-
.../library/tools/src/gramRd.c | 1441 +++++++++--------
.../library/tools/src/tools_dummy.c | 1 +
com.oracle.truffle.r.native/run/Makefile | 2 +-
.../r/nodes/builtin/base/BasePackage.java | 9 +-
.../truffle/r/nodes/builtin/base/Combine.java | 3 +-
.../r/nodes/builtin/base/EnvFunctions.java | 65 +-
.../r/nodes/builtin/base/FileFunctions.java | 35 +-
.../r/nodes/builtin/base/ForceAndCall.java | 124 ++
.../truffle/r/nodes/builtin/base/Format.java | 36 +-
.../r/nodes/builtin/base/FrameFunctions.java | 24 +-
.../r/nodes/builtin/base/GetFunctions.java | 94 +-
.../builtin/base/HiddenInternalFunctions.java | 20 +-
.../truffle/r/nodes/builtin/base/Lengths.java | 119 ++
.../nodes/builtin/base/LoadSaveFunctions.java | 2 +-
.../truffle/r/nodes/builtin/base/Ls.java | 7 +-
.../truffle/r/nodes/builtin/base/Mapply.java | 4 +
.../truffle/r/nodes/builtin/base/NChar.java | 23 +-
.../builtin/base/NamespaceFunctions.java | 36 +-
.../truffle/r/nodes/builtin/base/Options.java | 149 --
.../nodes/builtin/base/OptionsFunctions.java | 171 ++
.../truffle/r/nodes/builtin/base/Order.java | 277 ++--
.../truffle/r/nodes/builtin/base/Rank.java | 18 +-
.../builtin/base/SerializeFunctions.java | 29 +-
.../base/foreign/ForeignFunctions.java | 36 +-
.../truffle/r/nodes/access/FrameSlotNode.java | 6 +-
.../r/nodes/binary/BinaryBooleanNode.java | 17 +-
.../r/nodes/builtin/RExternalBuiltinNode.java | 11 +
.../r/nodes/builtin/RList2EnvNode.java | 3 +
.../r/nodes/function/ClassHierarchyNode.java | 6 +
.../truffle/r/nodes/function/RCallNode.java | 16 +-
.../r/runtime/ffi/generic/Generic_Tools.java | 5 +-
.../oracle/truffle/r/runtime/RChannel.java | 4 +-
.../oracle/truffle/r/runtime/RDeparse.java | 2 +-
.../com/oracle/truffle/r/runtime/RError.java | 6 +-
.../oracle/truffle/r/runtime/RRuntime.java | 4 +-
.../oracle/truffle/r/runtime/RSerialize.java | 27 +-
.../truffle/r/runtime/RVersionNumber.java | 14 +-
.../truffle/r/runtime/ffi/ToolsRFFI.java | 5 +-
.../truffle/r/runtime/gnur/SEXPTYPE.java | 4 +-
.../truffle/r/runtime/ops/BinaryCompare.java | 5 +-
.../truffle/r/runtime/ops/na/NACheck.java | 2 +-
.../truffle/r/test/ExpectedTestOutput.test | 744 ++++-----
.../r/test/builtins/TestBuiltin_format.java | 104 +-
.../r/test/builtins/TestBuiltin_nchar.java | 24 +-
.../test/builtins/TestBuiltin_operators.java | 14 +-
.../r/test/builtins/TestBuiltin_rank.java | 2 +-
.../library/base/TestSimpleDataFrames.java | 4 +-
.../test/library/base/TestSimpleVectors.java | 8 +-
mx.fastr/copyrights/overrides | 1 +
mx.fastr/suite.py | 6 +-
58 files changed, 2378 insertions(+), 1603 deletions(-)
create mode 100644 com.oracle.truffle.r.native/fficall/src/common/X11_fastr.c
create mode 100644 com.oracle.truffle.r.native/gnur/patchXzMakefile
create mode 100644 com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/ForceAndCall.java
create mode 100644 com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Lengths.java
delete mode 100644 com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Options.java
create mode 100644 com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/OptionsFunctions.java
diff --git a/com.oracle.truffle.r.library/src/com/oracle/truffle/r/library/tools/C_ParseRd.java b/com.oracle.truffle.r.library/src/com/oracle/truffle/r/library/tools/C_ParseRd.java
index a355b81e12..baad0c5023 100644
--- a/com.oracle.truffle.r.library/src/com/oracle/truffle/r/library/tools/C_ParseRd.java
+++ b/com.oracle.truffle.r.library/src/com/oracle/truffle/r/library/tools/C_ParseRd.java
@@ -33,10 +33,22 @@ import com.oracle.truffle.r.runtime.data.model.*;
import com.oracle.truffle.r.runtime.env.*;
import com.oracle.truffle.r.runtime.ffi.*;
-public abstract class C_ParseRd extends RExternalBuiltinNode.Arg7 {
+public abstract class C_ParseRd extends RExternalBuiltinNode.Arg9 {
@Specialization
- protected Object parseRd(RConnection con, REnvironment srcfile, @SuppressWarnings("unused") String encoding, byte verboseL, RAbstractStringVector basename, byte fragmentL, byte warningCallsL) {
+ protected Object parseRd(RConnection con, REnvironment srcfile, String encoding, byte verboseL, RAbstractStringVector basename, byte fragmentL, byte warningCallsL,
+ byte macrosL, byte warndupsL) {
+ return doParseRd(con, srcfile, encoding, verboseL, basename, fragmentL, warningCallsL, RDataFactory.createLogicalVectorFromScalar(macrosL), warndupsL);
+ }
+
+ @Specialization
+ protected Object parseRd(RConnection con, REnvironment srcfile, String encoding, byte verboseL, RAbstractStringVector basename, byte fragmentL, byte warningCallsL,
+ REnvironment macros, byte warndupsL) {
+ return doParseRd(con, srcfile, encoding, verboseL, basename, fragmentL, warningCallsL, macros, warndupsL);
+ }
+
+ private Object doParseRd(RConnection con, REnvironment srcfile, @SuppressWarnings("unused") String encoding, byte verboseL, RAbstractStringVector basename, byte fragmentL, byte warningCallsL,
+ Object macros, byte warndupsL) {
if (RRuntime.isNA(warningCallsL)) {
throw RError.error(this, RError.Message.INVALID_ARGUMENT, "warningCalls");
}
@@ -47,18 +59,22 @@ public abstract class C_ParseRd extends RExternalBuiltinNode.Arg7 {
RDataFactory.createLogicalVectorFromScalar(verboseL),
RDataFactory.createLogicalVectorFromScalar(fragmentL),
RDataFactory.createStringVectorFromScalar(basename.getDataAt(0)),
- RDataFactory.createLogicalVectorFromScalar(warningCallsL));
+ RDataFactory.createLogicalVectorFromScalar(warningCallsL),
+ macros,
+ RDataFactory.createLogicalVectorFromScalar(warndupsL));
// @formatter:on
} catch (IOException ex) {
throw RError.error(this, RError.Message.GENERIC, ex.getMessage());
} catch (Throwable ex) {
throw RError.error(this, RError.Message.GENERIC, ex.getMessage());
}
+
}
@SuppressWarnings("unused")
@Fallback
- public Object parseRd(Object con, Object srcfile, Object encoding, Object verbose, Object basename, Object fragment, Object warningCalls) {
+ public Object parseRd(Object con, Object srcfile, Object encoding, Object verbose, Object basename, Object fragment, Object warningCalls,
+ Object macros, Object warndupsL) {
throw RError.error(this, RError.Message.INVALID_OR_UNIMPLEMENTED_ARGUMENTS);
}
diff --git a/com.oracle.truffle.r.native/Makefile b/com.oracle.truffle.r.native/Makefile
index e1d13764ff..0f209bf9e5 100644
--- a/com.oracle.truffle.r.native/Makefile
+++ b/com.oracle.truffle.r.native/Makefile
@@ -27,7 +27,7 @@ export TOPDIR = $(CURDIR)
export FASTR_R_HOME=$(abspath $(TOPDIR)/..)
export FASTR_LIB_DIR=$(FASTR_R_HOME)/lib
export FASTR_NATIVE_DIR = $(TOPDIR)
-export R_VERSION = 3.1.3
+export R_VERSION = 3.2.4
export GNUR_HOME = $(TOPDIR)/gnur/R-$(R_VERSION)
all:
diff --git a/com.oracle.truffle.r.native/fficall/src/common/X11_fastr.c b/com.oracle.truffle.r.native/fficall/src/common/X11_fastr.c
new file mode 100644
index 0000000000..6e77614366
--- /dev/null
+++ b/com.oracle.truffle.r.native/fficall/src/common/X11_fastr.c
@@ -0,0 +1,28 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 1995-2015, The R Core Team
+ * Copyright (c) 2003, The R Foundation
+ * Copyright (c) 2015, 2016, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+
+// Copied from unix/X11.c
+
+#include <Rinternals.h>
+
+SEXP do_bmVersion(void)
+{
+ SEXP ans = PROTECT(allocVector(STRSXP, 3)),
+ nms = PROTECT(allocVector(STRSXP, 3));
+ setAttrib(ans, R_NamesSymbol, nms);
+ SET_STRING_ELT(nms, 0, mkChar("libpng"));
+ SET_STRING_ELT(nms, 1, mkChar("jpeg"));
+ SET_STRING_ELT(nms, 2, mkChar("libtiff"));
+ UNPROTECT(2);
+ return ans;
+}
+
diff --git a/com.oracle.truffle.r.native/fficall/src/common/printutils_fastr.c b/com.oracle.truffle.r.native/fficall/src/common/printutils_fastr.c
index f13eafda63..9a54c34c85 100644
--- a/com.oracle.truffle.r.native/fficall/src/common/printutils_fastr.c
+++ b/com.oracle.truffle.r.native/fficall/src/common/printutils_fastr.c
@@ -24,10 +24,18 @@
#define min(a, b) (((a)<(b))?(a):(b))
#endif
#define NB 1000
-const char *Rf_EncodeReal(double x, int w, int d, int e, char cdec)
+
+const char *EncodeReal(double x, int w, int d, int e, char cdec)
+{
+ char dec[2];
+ dec[0] = cdec; dec[1] = '\0';
+ return EncodeReal0(x, w, d, e, dec);
+}
+
+const char *EncodeReal0(double x, int w, int d, int e, const char *dec)
{
- static char buff[NB];
- char *p, fmt[20];
+ static char buff[NB], buff2[2*NB];
+ char fmt[20], *out = buff;
/* IEEE allows signed zeros (yuck!) */
if (x == 0.0) x = 0.0;
@@ -53,9 +61,16 @@ const char *Rf_EncodeReal(double x, int w, int d, int e, char cdec)
}
buff[NB-1] = '\0';
- if(cdec != '.')
- for(p = buff; *p; p++) if(*p == '.') *p = cdec;
+ if(strcmp(dec, ".")) {
+ char *p, *q;
+ for(p = buff, q = buff2; *p; p++) {
+ if(*p == '.') for(const char *r = dec; *r; r++) *q++ = *r;
+ else *q++ = *p;
+ }
+ *q = '\0';
+ out = buff2;
+ }
- return buff;
+ return out;
}
diff --git a/com.oracle.truffle.r.native/fficall/src/jni/Rinternals.c b/com.oracle.truffle.r.native/fficall/src/jni/Rinternals.c
index c374e66243..bd23d30a26 100644
--- a/com.oracle.truffle.r.native/fficall/src/jni/Rinternals.c
+++ b/com.oracle.truffle.r.native/fficall/src/jni/Rinternals.c
@@ -345,7 +345,13 @@ Rboolean Rf_isObject(SEXP s) {
SEXP Rf_install(const char *name) {
JNIEnv *thisenv = getEnv();
jstring string = (*thisenv)->NewStringUTF(thisenv, name);
- SEXP result = (*thisenv)->CallStaticObjectMethod(thisenv, CallRFFIHelperClass, createSymbolMethodID, string);
+ SEXP result = (*thisenv)->CallStaticObjectMethod(thisenv, RDataFactoryClass, createSymbolMethodID, string);
+ return checkRef(thisenv, result);
+}
+
+SEXP Rf_installChar(SEXP name) {
+ JNIEnv *thisenv = getEnv();
+ SEXP result = (*thisenv)->CallStaticObjectMethod(thisenv, RDataFactoryClass, createSymbolMethodID, name);
return checkRef(thisenv, result);
}
diff --git a/com.oracle.truffle.r.native/gnur/Makefile.gnur b/com.oracle.truffle.r.native/gnur/Makefile.gnur
index bb0f0f2c6a..c15160be48 100644
--- a/com.oracle.truffle.r.native/gnur/Makefile.gnur
+++ b/com.oracle.truffle.r.native/gnur/Makefile.gnur
@@ -114,6 +114,7 @@ endif
# end FORCE_PIC
$(GNUR_HOME)/Makefile:
+ ed $(GNUR_HOME)/src/extra/xz/Makefile.in < patchXzMakefile
(cd $(GNUR_HOME); ./configure --with-x=no --without-recommended-packages $(GNUR_CONFIG_FLAGS) > gnur_configure.log 2>&1)
build: $(GNUR_HOME)/bin/R
diff --git a/com.oracle.truffle.r.native/gnur/patchXzMakefile b/com.oracle.truffle.r.native/gnur/patchXzMakefile
new file mode 100644
index 0000000000..ade46f7204
--- /dev/null
+++ b/com.oracle.truffle.r.native/gnur/patchXzMakefile
@@ -0,0 +1,3 @@
+/\$rm -f/s/\$rm/@rm/
+w
+q
diff --git a/com.oracle.truffle.r.native/library/stats/src/statsR_dummy.c b/com.oracle.truffle.r.native/library/stats/src/statsR_dummy.c
index db2d3e5f17..b4d9d7d6a8 100644
--- a/com.oracle.truffle.r.native/library/stats/src/statsR_dummy.c
+++ b/com.oracle.truffle.r.native/library/stats/src/statsR_dummy.c
@@ -2,18 +2,18 @@
* R : A Computer Language for Statistical Data Analysis
* Copyright (C) 2012 The R Core Team.
*
- * This program is free software; you can redistribute it and/or modify
+ * This program is free software UNIMPLEMENTED you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
+ * the Free Software Foundation UNIMPLEMENTED either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * but WITHOUT ANY WARRANTY UNIMPLEMENTED without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
- * along with this program; if not, a copy is available at
+ * along with this program UNIMPLEMENTED if not, a copy is available at
* http://www.r-project.org/Licenses/
*/
@@ -21,6 +21,7 @@
#define UNIMPLEMENTED { error("unimplemented function at %s:%d", __FILE__, __LINE__); return NULL; }
+/* auxiliary */
SEXP getListElement(SEXP list, char *str) UNIMPLEMENTED
/* Declarations for .Call entry points */
@@ -48,6 +49,109 @@ SEXP lowess(SEXP x, SEXP y, SEXP sf, SEXP siter, SEXP sdelta) UNIMPLEMENTED
SEXP DoubleCentre(SEXP A) UNIMPLEMENTED
SEXP BinDist(SEXP x, SEXP weights, SEXP slo, SEXP sup, SEXP sn) UNIMPLEMENTED
+SEXP do_dchisq(SEXP sa, SEXP sb, SEXP sI) UNIMPLEMENTED
+SEXP do_dexp(SEXP sa, SEXP sb, SEXP sI) UNIMPLEMENTED
+SEXP do_dgeom(SEXP sa, SEXP sb, SEXP sI) UNIMPLEMENTED
+SEXP do_dpois(SEXP sa, SEXP sb, SEXP sI) UNIMPLEMENTED
+SEXP do_dt(SEXP sa, SEXP sb, SEXP sI) UNIMPLEMENTED
+SEXP do_dsignrank(SEXP sa, SEXP sb, SEXP sI) UNIMPLEMENTED
+SEXP do_pchisq(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qchisq(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pexp(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qexp(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pgeom(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qgeom(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_ppois(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qpois(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pt(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qt(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_psignrank(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qsignrank(SEXP sa, SEXP sb, SEXP sI, SEXP sJ) UNIMPLEMENTED
+
+SEXP do_dbeta(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dbinom(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dcauchy(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_df(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dgamma(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dlnorm(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dlogis(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dnbinom(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dnbinom_mu(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dnorm(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dweibull(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dunif(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dnt(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dnchisq(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_dwilcox(SEXP sa, SEXP sb, SEXP sc, SEXP sI) UNIMPLEMENTED
+SEXP do_pbeta(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qbeta(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pbinom(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qbinom(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pcauchy(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qcauchy(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pf(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qf(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pgamma(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qgamma(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_plnorm(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qlnorm(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_plogis(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qlogis(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pnbinom(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qnbinom(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pnbinom_mu(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qnbinom_mu(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pnorm(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qnorm(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pweibull(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qweibull(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_punif(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qunif(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pnt(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qnt(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pnchisq(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qnchisq(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pwilcox(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qwilcox(SEXP sa, SEXP sb, SEXP sc, SEXP sI, SEXP sJ) UNIMPLEMENTED
+
+SEXP do_dhyper(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI) UNIMPLEMENTED
+SEXP do_dnbeta(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI) UNIMPLEMENTED
+SEXP do_dnf(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI) UNIMPLEMENTED
+SEXP do_phyper(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qhyper(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pnbeta(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qnbeta(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_pnf(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qnf(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_ptukey(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI, SEXP sJ) UNIMPLEMENTED
+SEXP do_qtukey(SEXP sa, SEXP sb, SEXP sc, SEXP sd, SEXP sI, SEXP sJ) UNIMPLEMENTED
+
+SEXP do_rchisq(SEXP sn, SEXP sa) UNIMPLEMENTED
+SEXP do_rexp(SEXP sn, SEXP sa) UNIMPLEMENTED
+SEXP do_rgeom(SEXP sn, SEXP sa) UNIMPLEMENTED
+SEXP do_rpois(SEXP sn, SEXP sa) UNIMPLEMENTED
+SEXP do_rt(SEXP sn, SEXP sa) UNIMPLEMENTED
+SEXP do_rsignrank(SEXP sn, SEXP sa) UNIMPLEMENTED
+
+SEXP do_rbeta(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rbinom(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rcauchy(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rf(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rgamma(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rlnorm(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rlogis(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rnbinom(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rnorm(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_runif(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rweibull(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rwilcox(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rnchisq(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+SEXP do_rnbinom_mu(SEXP sn, SEXP sa, SEXP sb) UNIMPLEMENTED
+
+SEXP do_rhyper(SEXP sn, SEXP sa, SEXP sb, SEXP sc) UNIMPLEMENTED
+
+SEXP do_rmultinom(SEXP sn, SEXP ssize, SEXP sprob) UNIMPLEMENTED
+
/* Declarations for .External[2] entry points */
SEXP compcases(SEXP args) UNIMPLEMENTED
@@ -61,15 +165,8 @@ SEXP nlm(SEXP call, SEXP op, SEXP args, SEXP rho) UNIMPLEMENTED
SEXP zeroin2(SEXP call, SEXP op, SEXP args, SEXP rho) UNIMPLEMENTED
SEXP optim(SEXP call, SEXP op, SEXP args, SEXP rho) UNIMPLEMENTED
SEXP optimhess(SEXP call, SEXP op, SEXP args, SEXP rho) UNIMPLEMENTED
-SEXP Rmultinom(SEXP args) UNIMPLEMENTED
SEXP call_dqagi(SEXP x) UNIMPLEMENTED
SEXP call_dqags(SEXP x) UNIMPLEMENTED
-SEXP Random1(SEXP args) UNIMPLEMENTED
-SEXP Random2(SEXP args) UNIMPLEMENTED
-SEXP Random3(SEXP args) UNIMPLEMENTED
-SEXP distn2(SEXP args) UNIMPLEMENTED
-SEXP distn3(SEXP args) UNIMPLEMENTED
-SEXP distn4(SEXP args) UNIMPLEMENTED
SEXP Rsm(SEXP x, SEXP stype, SEXP send) UNIMPLEMENTED
SEXP tukeyline(SEXP x, SEXP y, SEXP call) UNIMPLEMENTED
diff --git a/com.oracle.truffle.r.native/library/tools/src/gramRd.c b/com.oracle.truffle.r.native/library/tools/src/gramRd.c
index ba2ae3a490..bc835d3673 100644
--- a/com.oracle.truffle.r.native/library/tools/src/gramRd.c
+++ b/com.oracle.truffle.r.native/library/tools/src/gramRd.c
@@ -1,14 +1,15 @@
-/* A Bison parser, made by GNU Bison 2.3. */
+// Slightly modified for use by FastR in a JNI environment
-/* Skeleton implementation for Bison's Yacc-like parsers in C
+/* A Bison parser, made by GNU Bison 2.7.12-4996. */
- Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
- Free Software Foundation, Inc.
+/* Bison implementation for Yacc-like parsers in C
- This program is free software; you can redistribute it and/or modify
+ Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
+
+ This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2, or (at your option)
- any later version.
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -16,9 +17,7 @@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor,
- Boston, MA 02110-1301, USA. */
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
/* As a special exception, you may create a larger work that contains
part or all of the Bison parser skeleton and distribute that work
@@ -47,7 +46,7 @@
#define YYBISON 1
/* Bison version. */
-#define YYBISON_VERSION "2.3"
+#define YYBISON_VERSION "2.7.12-4996"
/* Skeleton name. */
#define YYSKELETON_NAME "yacc.c"
@@ -55,102 +54,11 @@
/* Pure parsers. */
#define YYPURE 0
-/* Using locations. */
-#define YYLSP_NEEDED 1
+/* Push parsers. */
+#define YYPUSH 0
-
-
-/* Tokens. */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
- /* Put the tokens into the symbol table, so that GDB and other debuggers
- know about them. */
- enum yytokentype {
- END_OF_INPUT = 258,
- ERROR = 259,
- SECTIONHEADER = 260,
- RSECTIONHEADER = 261,
- VSECTIONHEADER = 262,
- SECTIONHEADER2 = 263,
- RCODEMACRO = 264,
- SEXPR = 265,
- RDOPTS = 266,
- LATEXMACRO = 267,
- VERBMACRO = 268,
- OPTMACRO = 269,
- ESCAPE = 270,
- LISTSECTION = 271,
- ITEMIZE = 272,
- DESCRIPTION = 273,
- NOITEM = 274,
- LATEXMACRO2 = 275,
- VERBMACRO2 = 276,
- VERBLATEX = 277,
- LATEXMACRO3 = 278,
- NEWCOMMAND = 279,
- USERMACRO = 280,
- USERMACRO1 = 281,
- USERMACRO2 = 282,
- USERMACRO3 = 283,
- USERMACRO4 = 284,
- USERMACRO5 = 285,
- USERMACRO6 = 286,
- USERMACRO7 = 287,
- USERMACRO8 = 288,
- USERMACRO9 = 289,
- IFDEF = 290,
- ENDIF = 291,
- TEXT = 292,
- RCODE = 293,
- VERB = 294,
- COMMENT = 295,
- UNKNOWN = 296,
- STARTFILE = 297,
- STARTFRAGMENT = 298
- };
-#endif
-/* Tokens. */
-#define END_OF_INPUT 258
-#define ERROR 259
-#define SECTIONHEADER 260
-#define RSECTIONHEADER 261
-#define VSECTIONHEADER 262
-#define SECTIONHEADER2 263
-#define RCODEMACRO 264
-#define SEXPR 265
-#define RDOPTS 266
-#define LATEXMACRO 267
-#define VERBMACRO 268
-#define OPTMACRO 269
-#define ESCAPE 270
-#define LISTSECTION 271
-#define ITEMIZE 272
-#define DESCRIPTION 273
-#define NOITEM 274
-#define LATEXMACRO2 275
-#define VERBMACRO2 276
-#define VERBLATEX 277
-#define LATEXMACRO3 278
-#define NEWCOMMAND 279
-#define USERMACRO 280
-#define USERMACRO1 281
-#define USERMACRO2 282
-#define USERMACRO3 283
-#define USERMACRO4 284
-#define USERMACRO5 285
-#define USERMACRO6 286
-#define USERMACRO7 287
-#define USERMACRO8 288
-#define USERMACRO9 289
-#define IFDEF 290
-#define ENDIF 291
-#define TEXT 292
-#define RCODE 293
-#define VERB 294
-#define COMMENT 295
-#define UNKNOWN 296
-#define STARTFILE 297
-#define STARTFRAGMENT 298
+/* Pull parsers. */
+#define YYPULL 1
@@ -161,7 +69,7 @@
/*
* R : A Computer Langage for Statistical Data Analysis
* Copyright (C) 1995, 1996, 1997 Robert Gentleman and Ross Ihaka
- * Copyright (C) 1997--2013 The R Core Team
+ * Copyright (C) 1997--2015 The R Core Team
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -175,7 +83,7 @@
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, a copy is available at
- * http://www.r-project.org/Licenses/
+ * https://www.R-project.org/Licenses/
*/
#ifdef HAVE_CONFIG_H
@@ -223,6 +131,7 @@ int imax2(int x, int y)
return (x < y) ? y : x;
}
+
/* bison creates a non-static symbol yylloc in both gramLatex.o and gramRd.o,
so remap */
@@ -232,6 +141,7 @@ int imax2(int x, int y)
#define DEBUGMODE 0 /* 1 causes Bison output of parse state, to stdout or stderr */
static Rboolean wCalls = TRUE;
+static Rboolean warnDups = FALSE;
#define YYERROR_VERBOSE 1
@@ -255,7 +165,7 @@ typedef struct yyltype
# define YYLTYPE yyltype
# define YYLLOC_DEFAULT(Current, Rhs, N) \
do \
- if (YYID (N)) \
+ if (N) \
{ \
(Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
(Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
@@ -273,7 +183,7 @@ typedef struct yyltype
(Current).first_byte = (Current).last_byte = \
YYRHSLOC (Rhs, 0).last_byte; \
} \
- while (YYID (0))
+ while (0)
/* Useful defines so editors don't get confused ... */
@@ -364,10 +274,14 @@ static int mkComment(int);
-/* Enabling traces. */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
+
+# ifndef YY_NULL
+# if defined __cplusplus && 201103L <= __cplusplus
+# define YY_NULL nullptr
+# else
+# define YY_NULL 0
+# endif
+# endif
/* Enabling verbose error messages. */
#ifdef YYERROR_VERBOSE
@@ -377,16 +291,114 @@ static int mkComment(int);
# define YYERROR_VERBOSE 0
#endif
-/* Enabling the token table. */
-#ifndef YYTOKEN_TABLE
-# define YYTOKEN_TABLE 0
+
+/* Enabling traces. */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+#if YYDEBUG
+extern int yydebug;
+#endif
+
+/* Tokens. */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+ /* Put the tokens into the symbol table, so that GDB and other debuggers
+ know about them. */
+ enum yytokentype {
+ END_OF_INPUT = 258,
+ ERROR = 259,
+ SECTIONHEADER = 260,
+ RSECTIONHEADER = 261,
+ VSECTIONHEADER = 262,
+ SECTIONHEADER2 = 263,
+ RCODEMACRO = 264,
+ SEXPR = 265,
+ RDOPTS = 266,
+ LATEXMACRO = 267,
+ VERBMACRO = 268,
+ OPTMACRO = 269,
+ ESCAPE = 270,
+ LISTSECTION = 271,
+ ITEMIZE = 272,
+ DESCRIPTION = 273,
+ NOITEM = 274,
+ LATEXMACRO2 = 275,
+ VERBMACRO2 = 276,
+ VERBLATEX = 277,
+ LATEXMACRO3 = 278,
+ NEWCOMMAND = 279,
+ USERMACRO = 280,
+ USERMACRO1 = 281,
+ USERMACRO2 = 282,
+ USERMACRO3 = 283,
+ USERMACRO4 = 284,
+ USERMACRO5 = 285,
+ USERMACRO6 = 286,
+ USERMACRO7 = 287,
+ USERMACRO8 = 288,
+ USERMACRO9 = 289,
+ IFDEF = 290,
+ ENDIF = 291,
+ TEXT = 292,
+ RCODE = 293,
+ VERB = 294,
+ COMMENT = 295,
+ UNKNOWN = 296,
+ STARTFILE = 297,
+ STARTFRAGMENT = 298
+ };
#endif
+/* Tokens. */
+#define END_OF_INPUT 258
+#define ERROR 259
+#define SECTIONHEADER 260
+#define RSECTIONHEADER 261
+#define VSECTIONHEADER 262
+#define SECTIONHEADER2 263
+#define RCODEMACRO 264
+#define SEXPR 265
+#define RDOPTS 266
+#define LATEXMACRO 267
+#define VERBMACRO 268
+#define OPTMACRO 269
+#define ESCAPE 270
+#define LISTSECTION 271
+#define ITEMIZE 272
+#define DESCRIPTION 273
+#define NOITEM 274
+#define LATEXMACRO2 275
+#define VERBMACRO2 276
+#define VERBLATEX 277
+#define LATEXMACRO3 278
+#define NEWCOMMAND 279
+#define USERMACRO 280
+#define USERMACRO1 281
+#define USERMACRO2 282
+#define USERMACRO3 283
+#define USERMACRO4 284
+#define USERMACRO5 285
+#define USERMACRO6 286
+#define USERMACRO7 287
+#define USERMACRO8 288
+#define USERMACRO9 289
+#define IFDEF 290
+#define ENDIF 291
+#define TEXT 292
+#define RCODE 293
+#define VERB 294
+#define COMMENT 295
+#define UNKNOWN 296
+#define STARTFILE 297
+#define STARTFRAGMENT 298
+
+
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
typedef int YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
# define YYSTYPE_IS_DECLARED 1
-# define YYSTYPE_IS_TRIVIAL 1
#endif
#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
@@ -402,11 +414,26 @@ typedef struct YYLTYPE
# define YYLTYPE_IS_TRIVIAL 1
#endif
+extern YYSTYPE yylval;
+extern YYLTYPE yylloc;
+#ifdef YYPARSE_PARAM
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void *YYPARSE_PARAM);
+#else
+int yyparse ();
+#endif
+#else /* ! YYPARSE_PARAM */
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void);
+#else
+int yyparse ();
+#endif
+#endif /* ! YYPARSE_PARAM */
+
-/* Copy the second part of user declarations. */
+/* Copy the second part of user declarations. */
-/* Line 216 of yacc.c. */
#ifdef short
@@ -460,36 +487,45 @@ typedef short int yytype_int16;
# if defined YYENABLE_NLS && YYENABLE_NLS
# if ENABLE_NLS
# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
-# define YY_(msgid) dgettext ("bison-runtime", msgid)
+# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
# endif
# endif
# ifndef YY_
-# define YY_(msgid) msgid
+# define YY_(Msgid) Msgid
+# endif
+#endif
+
+#ifndef __attribute__
+/* This feature is available in gcc versions 2.5 and later. */
+# if (! defined __GNUC__ || __GNUC__ < 2 \
+ || (__GNUC__ == 2 && __GNUC_MINOR__ < 5))
+# define __attribute__(Spec) /* empty */
# endif
#endif
/* Suppress unused-variable warnings by "using" E. */
#if ! defined lint || defined __GNUC__
-# define YYUSE(e) ((void) (e))
+# define YYUSE(E) ((void) (E))
#else
-# define YYUSE(e) /* empty */
+# define YYUSE(E) /* empty */
#endif
+
/* Identity function, used to suppress warnings about constant conditions. */
#ifndef lint
-# define YYID(n) (n)
+# define YYID(N) (N)
#else
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static int
-YYID (int i)
+YYID (int yyi)
#else
static int
-YYID (i)
- int i;
+YYID (yyi)
+ int yyi;
#endif
{
- return i;
+ return yyi;
}
#endif
@@ -510,11 +546,12 @@ YYID (i)
# define alloca _alloca
# else
# define YYSTACK_ALLOC alloca
-# if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# ifndef _STDLIB_H
-# define _STDLIB_H 1
+ /* Use EXIT_SUCCESS as a witness for stdlib.h. */
+# ifndef EXIT_SUCCESS
+# define EXIT_SUCCESS 0
# endif
# endif
# endif
@@ -537,24 +574,24 @@ YYID (i)
# ifndef YYSTACK_ALLOC_MAXIMUM
# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
# endif
-# if (defined __cplusplus && ! defined _STDLIB_H \
+# if (defined __cplusplus && ! defined EXIT_SUCCESS \
&& ! ((defined YYMALLOC || defined malloc) \
&& (defined YYFREE || defined free)))
# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# ifndef _STDLIB_H
-# define _STDLIB_H 1
+# ifndef EXIT_SUCCESS
+# define EXIT_SUCCESS 0
# endif
# endif
# ifndef YYMALLOC
# define YYMALLOC malloc
-# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+# if ! defined malloc && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
# endif
# endif
# ifndef YYFREE
# define YYFREE free
-# if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+# if ! defined free && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
void free (void *); /* INFRINGES ON USER NAME SPACE */
# endif
@@ -571,9 +608,9 @@ void free (void *); /* INFRINGES ON USER NAME SPACE */
/* A type that is properly aligned for any stack member. */
union yyalloc
{
- yytype_int16 yyss;
- YYSTYPE yyvs;
- YYLTYPE yyls;
+ yytype_int16 yyss_alloc;
+ YYSTYPE yyvs_alloc;
+ YYLTYPE yyls_alloc;
};
/* The size of the maximum gap between one aligned stack and the next. */
@@ -585,35 +622,19 @@ union yyalloc
((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \
+ 2 * YYSTACK_GAP_MAXIMUM)
-/* Copy COUNT objects from FROM to TO. The source and destination do
- not overlap. */
-# ifndef YYCOPY
-# if defined __GNUC__ && 1 < __GNUC__
-# define YYCOPY(To, From, Count) \
- __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
-# else
-# define YYCOPY(To, From, Count) \
- do \
- { \
- YYSIZE_T yyi; \
- for (yyi = 0; yyi < (Count); yyi++) \
- (To)[yyi] = (From)[yyi]; \
- } \
- while (YYID (0))
-# endif
-# endif
+# define YYCOPY_NEEDED 1
/* Relocate STACK from its old location to the new one. The
local variables YYSIZE and YYSTACKSIZE give the old and new number of
elements in the stack, and YYPTR gives the new location of the
stack. Advance YYPTR to a properly aligned location for the next
stack. */
-# define YYSTACK_RELOCATE(Stack) \
+# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
do \
{ \
YYSIZE_T yynewbytes; \
- YYCOPY (&yyptr->Stack, Stack, yysize); \
- Stack = &yyptr->Stack; \
+ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
+ Stack = &yyptr->Stack_alloc; \
yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
yyptr += yynewbytes / sizeof (*yyptr); \
} \
@@ -621,6 +642,26 @@ union yyalloc
#endif
+#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
+/* Copy COUNT objects from SRC to DST. The source and destination do
+ not overlap. */
+# ifndef YYCOPY
+# if defined __GNUC__ && 1 < __GNUC__
+# define YYCOPY(Dst, Src, Count) \
+ __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
+# else
+# define YYCOPY(Dst, Src, Count) \
+ do \
+ { \
+ YYSIZE_T yyi; \
+ for (yyi = 0; yyi < (Count); yyi++) \
+ (Dst)[yyi] = (Src)[yyi]; \
+ } \
+ while (YYID (0))
+# endif
+# endif
+#endif /* !YYCOPY_NEEDED */
+
/* YYFINAL -- State number of the termination state. */
#define YYFINAL 33
/* YYLAST -- Last index in YYTABLE. */
@@ -732,19 +773,19 @@ static const yytype_int8 yyrhs[] =
/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] =
{
- 0, 213, 213, 214, 215, 218, 221, 224, 225, 227,
- 228, 229, 230, 231, 232, 233, 234, 235, 236, 237,
- 238, 239, 240, 242, 243, 245, 246, 247, 248, 249,
- 250, 251, 252, 253, 255, 256, 257, 258, 259, 260,
- 261, 262, 263, 264, 265, 266, 267, 268, 269, 270,
- 271, 273, 274, 275, 276, 278, 280, 282, 284, 286,
- 289, 292, 297, 299, 300, 309, 311, 313, 317, 318,
- 320, 322, 326, 327, 329, 332, 334, 336, 338, 340,
- 342, 344, 346, 348, 350, 351, 352, 353, 354, 356
+ 0, 214, 214, 215, 216, 219, 222, 225, 226, 228,
+ 229, 230, 231, 232, 233, 234, 235, 236, 237, 238,
+ 239, 240, 241, 243, 244, 246, 247, 248, 249, 250,
+ 251, 252, 253, 254, 256, 257, 258, 259, 260, 261,
+ 262, 263, 264, 265, 266, 267, 268, 269, 270, 271,
+ 272, 274, 275, 276, 277, 279, 281, 283, 285, 287,
+ 290, 293, 298, 300, 301, 310, 312, 314, 318, 319,
+ 321, 323, 327, 328, 330, 333, 335, 337, 339, 341,
+ 343, 345, 347, 349, 351, 352, 353, 354, 355, 357
};
#endif
-#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
+#if YYDEBUG || YYERROR_VERBOSE || 0
/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
First, the terminals, then, starting at YYNTOKENS, nonterminals. */
static const char *const yytname[] =
@@ -763,7 +804,7 @@ static const char *const yytname[] =
"RLikeArg", "RLikeArg2", "VerbatimArg", "VerbatimArg1", "VerbatimArg2",
"IfDefTarget", "goLatexLike", "goRLike", "goRLike2", "goOption",
"goVerbatim", "goVerbatim1", "goVerbatim2", "goItem0", "goItem2", "Arg",
- "Option", 0
+ "Option", YY_NULL
};
#endif
@@ -808,8 +849,8 @@ static const yytype_uint8 yyr2[] =
0, 0, 0, 0, 3, 2, 4, 3, 4, 3
};
-/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
- STATE-NUM when YYTABLE doesn't specify something else to do. Zero
+/* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM.
+ Performed when YYTABLE doesn't specify something else to do. Zero
means the default is an error. */
static const yytype_uint8 yydefact[] =
{
@@ -882,8 +923,7 @@ static const yytype_int8 yypgoto[] =
/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
positive, shift that token. If negative, reduce the rule which
- number is the opposite. If zero, do what YYDEFACT says.
- If YYTABLE_NINF, syntax error. */
+ number is the opposite. If YYTABLE_NINF, syntax error. */
#define YYTABLE_NINF -50
static const yytype_int16 yytable[] =
{
@@ -973,6 +1013,12 @@ static const yytype_int16 yytable[] =
0, 0, 26
};
+#define yypact_value_is_default(Yystate) \
+ (!!((Yystate) == (-94)))
+
+#define yytable_value_is_error(Yytable_value) \
+ YYID (0)
+
static const yytype_int16 yycheck[] =
{
11, 9, 95, 5, 15, 16, 17, 18, 19, 20,
@@ -1099,30 +1145,39 @@ static const yytype_uint8 yystos[] =
/* Like YYERROR except do call yyerror. This remains here temporarily
to ease the transition to the new meaning of YYERROR, for GCC.
- Once GCC version 2 has supplanted version 1, this can go. */
+ Once GCC version 2 has supplanted version 1, this can go. However,
+ YYFAIL appears to be in use. Nevertheless, it is formally deprecated
+ in Bison 2.4.2's NEWS entry, where a plan to phase it out is
+ discussed. */
#define YYFAIL goto yyerrlab
+#if defined YYFAIL
+ /* This is here to suppress warnings from the GCC cpp's
+ -Wunused-macros. Normally we don't worry about that warning, but
+ some users do, and we want to make it easy for users to remove
+ YYFAIL uses, which will produce warnings from Bison 2.5. */
+#endif
#define YYRECOVERING() (!!yyerrstatus)
-#define YYBACKUP(Token, Value) \
-do \
- if (yychar == YYEMPTY && yylen == 1) \
- { \
- yychar = (Token); \
- yylval = (Value); \
- yytoken = YYTRANSLATE (yychar); \
- YYPOPSTACK (1); \
- goto yybackup; \
- } \
- else \
- { \
+#define YYBACKUP(Token, Value) \
+do \
+ if (yychar == YYEMPTY) \
+ { \
+ yychar = (Token); \
+ yylval = (Value); \
+ YYPOPSTACK (yylen); \
+ yystate = *yyssp; \
+ goto yybackup; \
+ } \
+ else \
+ { \
yyerror (YY_("syntax error: cannot back up")); \
YYERROR; \
} \
while (YYID (0))
-
+/* Error token number */
#define YYTERROR 1
#define YYERRCODE 256
@@ -1131,27 +1186,28 @@ while (YYID (0))
If N is 0, then set CURRENT to the empty location which ends
the previous symbol: RHS[0] (always defined). */
-#define YYRHSLOC(Rhs, K) ((Rhs)[K])
#ifndef YYLLOC_DEFAULT
-# define YYLLOC_DEFAULT(Current, Rhs, N) \
- do \
- if (YYID (N)) \
- { \
- (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
- (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
- (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
- (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
- } \
- else \
- { \
- (Current).first_line = (Current).last_line = \
- YYRHSLOC (Rhs, 0).last_line; \
- (Current).first_column = (Current).last_column = \
- YYRHSLOC (Rhs, 0).last_column; \
- } \
+# define YYLLOC_DEFAULT(Current, Rhs, N) \
+ do \
+ if (YYID (N)) \
+ { \
+ (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
+ (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
+ (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
+ (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
+ } \
+ else \
+ { \
+ (Current).first_line = (Current).last_line = \
+ YYRHSLOC (Rhs, 0).last_line; \
+ (Current).first_column = (Current).last_column = \
+ YYRHSLOC (Rhs, 0).last_column; \
+ } \
while (YYID (0))
#endif
+#define YYRHSLOC(Rhs, K) ((Rhs)[K])
+
/* YY_LOCATION_PRINT -- Print the location on the stream.
This macro was not mandated originally: define only if we know
@@ -1159,10 +1215,46 @@ while (YYID (0))
#ifndef YY_LOCATION_PRINT
# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL
-# define YY_LOCATION_PRINT(File, Loc) \
- fprintf (File, "%d.%d-%d.%d", \
- (Loc).first_line, (Loc).first_column, \
- (Loc).last_line, (Loc).last_column)
+
+/* Print *YYLOCP on YYO. Private, do not rely on its existence. */
+
+__attribute__((__unused__))
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static unsigned
+yy_location_print_ (FILE *yyo, YYLTYPE const * const yylocp)
+#else
+static unsigned
+yy_location_print_ (yyo, yylocp)
+ FILE *yyo;
+ YYLTYPE const * const yylocp;
+#endif
+{
+ unsigned res = 0;
+ int end_col = 0 != yylocp->last_column ? yylocp->last_column - 1 : 0;
+ if (0 <= yylocp->first_line)
+ {
+ res += fprintf (yyo, "%d", yylocp->first_line);
+ if (0 <= yylocp->first_column)
+ res += fprintf (yyo, ".%d", yylocp->first_column);
+ }
+ if (0 <= yylocp->last_line)
+ {
+ if (yylocp->first_line < yylocp->last_line)
+ {
+ res += fprintf (yyo, "-%d", yylocp->last_line);
+ if (0 <= end_col)
+ res += fprintf (yyo, ".%d", end_col);
+ }
+ else if (0 <= end_col && yylocp->first_column < end_col)
+ res += fprintf (yyo, "-%d", end_col);
+ }
+ return res;
+ }
+
+# define YY_LOCATION_PRINT(File, Loc) \
+ yy_location_print_ (File, &(Loc))
+
# else
# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
# endif
@@ -1170,7 +1262,6 @@ while (YYID (0))
/* YYLEX -- calling `yylex' with the right arguments. */
-
#ifdef YYLEX_PARAM
# define YYLEX yylex (YYLEX_PARAM)
#else
@@ -1221,6 +1312,8 @@ yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp)
YYLTYPE const * const yylocationp;
#endif
{
+ FILE *yyo = yyoutput;
+ YYUSE (yyo);
if (!yyvaluep)
return;
YYUSE (yylocationp);
@@ -1230,11 +1323,7 @@ yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp)
# else
YYUSE (yyoutput);
# endif
- switch (yytype)
- {
- default:
- break;
- }
+ YYUSE (yytype);
}
@@ -1274,17 +1363,20 @@ yy_symbol_print (yyoutput, yytype, yyvaluep, yylocationp)
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static void
-yy_stack_print (yytype_int16 *bottom, yytype_int16 *top)
+yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
#else
static void
-yy_stack_print (bottom, top)
- yytype_int16 *bottom;
- yytype_int16 *top;
+yy_stack_print (yybottom, yytop)
+ yytype_int16 *yybottom;
+ yytype_int16 *yytop;
#endif
{
YYFPRINTF (stderr, "Stack now");
- for (; bottom <= top; ++bottom)
- YYFPRINTF (stderr, " %d", *bottom);
+ for (; yybottom <= yytop; yybottom++)
+ {
+ int yybot = *yybottom;
+ YYFPRINTF (stderr, " %d", yybot);
+ }
YYFPRINTF (stderr, "\n");
}
@@ -1319,11 +1411,11 @@ yy_reduce_print (yyvsp, yylsp, yyrule)
/* The symbols being reduced. */
for (yyi = 0; yyi < yynrhs; yyi++)
{
- fprintf (stderr, " $%d = ", yyi + 1);
+ YYFPRINTF (stderr, " $%d = ", yyi + 1);
yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
&(yyvsp[(yyi + 1) - (yynrhs)])
, &(yylsp[(yyi + 1) - (yynrhs)]) );
- fprintf (stderr, "\n");
+ YYFPRINTF (stderr, "\n");
}
}
@@ -1361,7 +1453,6 @@ int yydebug;
#endif
-
#if YYERROR_VERBOSE
# ifndef yystrlen
@@ -1463,116 +1554,146 @@ yytnamerr (char *yyres, const char *yystr)
}
# endif
-/* Copy into YYRESULT an error message about the unexpected token
- YYCHAR while in state YYSTATE. Return the number of bytes copied,
- including the terminating null byte. If YYRESULT is null, do not
- copy anything; just return the number of bytes that would be
- copied. As a special case, return 0 if an ordinary "syntax error"
- message will do. Return YYSIZE_MAXIMUM if overflow occurs during
- size calculation. */
-static YYSIZE_T
-yysyntax_error (char *yyresult, int yystate, int yychar)
-{
- int yyn = yypact[yystate];
+/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
+ about the unexpected token YYTOKEN for the state stack whose top is
+ YYSSP.
- if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
- return 0;
- else
+ Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
+ not large enough to hold the message. In that case, also set
+ *YYMSG_ALLOC to the required number of bytes. Return 2 if the
+ required number of bytes is too large to store. */
+static int
+yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
+ yytype_int16 *yyssp, int yytoken)
+{
+ YYSIZE_T yysize0 = yytnamerr (YY_NULL, yytname[yytoken]);
+ YYSIZE_T yysize = yysize0;
+ enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
+ /* Internationalized format string. */
+ const char *yyformat = YY_NULL;
+ /* Arguments of yyformat. */
+ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
+ /* Number of reported tokens (one for the "unexpected", one per
+ "expected"). */
+ int yycount = 0;
+
+ /* There are many possibilities here to consider:
+ - Assume YYFAIL is not used. It's too flawed to consider. See
+ <http://lists.gnu.org/archive/html/bison-patches/2009-12/msg00024.html>
+ for details. YYERROR is fine as it does not invoke this
+ function.
+ - If this state is a consistent state with a default action, then
+ the only way this function was invoked is if the default action
+ is an error action. In that case, don't check for expected
+ tokens because there are none.
+ - The only way there can be no lookahead present (in yychar) is if
+ this state is a consistent state with a default action. Thus,
+ detecting the absence of a lookahead is sufficient to determine
+ that there is no unexpected or expected token to report. In that
+ case, just report a simple "syntax error".
+ - Don't assume there isn't a lookahead just because this state is a
+ consistent state with a default action. There might have been a
+ previous inconsistent state, consistent state with a non-default
+ action, or user semantic action that manipulated yychar.
+ - Of course, the expected token list depends on states to have
+ correct lookahead information, and it depends on the parser not
+ to perform extra reductions after fetching a lookahead from the
+ scanner and before detecting a syntax error. Thus, state merging
+ (from LALR or IELR) and default reductions corrupt the expected
+ token list. However, the list is correct for canonical LR with
+ one exception: it will still contain any token that will not be
+ accepted due to an error action in a later state.
+ */
+ if (yytoken != YYEMPTY)
{
- int yytype = YYTRANSLATE (yychar);
- YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
- YYSIZE_T yysize = yysize0;
- YYSIZE_T yysize1;
- int yysize_overflow = 0;
- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
- int yyx;
-
-# if 0
- /* This is so xgettext sees the translatable formats that are
- constructed on the fly. */
- YY_("syntax error, unexpected %s");
- YY_("syntax error, unexpected %s, expecting %s");
- YY_("syntax error, unexpected %s, expecting %s or %s");
- YY_("syntax error, unexpected %s, expecting %s or %s or %s");
- YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
-# endif
- char *yyfmt;
- char const *yyf;
- static char const yyunexpected[] = "syntax error, unexpected %s";
- static char const yyexpecting[] = ", expecting %s";
- static char const yyor[] = " or %s";
- char yyformat[sizeof yyunexpected
- + sizeof yyexpecting - 1
- + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
- * (sizeof yyor - 1))];
- char const *yyprefix = yyexpecting;
-
- /* Start YYX at -YYN if negative to avoid negative indexes in
- YYCHECK. */
- int yyxbegin = yyn < 0 ? -yyn : 0;
-
- /* Stay within bounds of both yycheck and yytname. */
- int yychecklim = YYLAST - yyn + 1;
- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
- int yycount = 1;
-
- yyarg[0] = yytname[yytype];
- yyfmt = yystpcpy (yyformat, yyunexpected);
-
- for (yyx = yyxbegin; yyx < yyxend; ++yyx)
- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
- {
- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
- {
- yycount = 1;
- yysize = yysize0;
- yyformat[sizeof yyunexpected - 1] = '\0';
- break;
- }
- yyarg[yycount++] = yytname[yyx];
- yysize1 = yysize + yytnamerr (0, yytname[yyx]);
- yysize_overflow |= (yysize1 < yysize);
- yysize = yysize1;
- yyfmt = yystpcpy (yyfmt, yyprefix);
- yyprefix = yyor;
- }
+ int yyn = yypact[*yyssp];
+ yyarg[yycount++] = yytname[yytoken];
+ if (!yypact_value_is_default (yyn))
+ {
+ /* Start YYX at -YYN if negative to avoid negative indexes in
+ YYCHECK. In other words, skip the first -YYN actions for
+ this state because they are default actions. */
+ int yyxbegin = yyn < 0 ? -yyn : 0;
+ /* Stay within bounds of both yycheck and yytname. */
+ int yychecklim = YYLAST - yyn + 1;
+ int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
+ int yyx;
+
+ for (yyx = yyxbegin; yyx < yyxend; ++yyx)
+ if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
+ && !yytable_value_is_error (yytable[yyx + yyn]))
+ {
+ if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
+ {
+ yycount = 1;
+ yysize = yysize0;
+ break;
+ }
+ yyarg[yycount++] = yytname[yyx];
+ {
+ YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULL, yytname[yyx]);
+ if (! (yysize <= yysize1
+ && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
+ return 2;
+ yysize = yysize1;
+ }
+ }
+ }
+ }
- yyf = YY_(yyformat);
- yysize1 = yysize + yystrlen (yyf);
- yysize_overflow |= (yysize1 < yysize);
- yysize = yysize1;
+ switch (yycount)
+ {
+# define YYCASE_(N, S) \
+ case N: \
+ yyformat = S; \
+ break
+ YYCASE_(0, YY_("syntax error"));
+ YYCASE_(1, YY_("syntax error, unexpected %s"));
+ YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
+ YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
+ YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
+ YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
+# undef YYCASE_
+ }
- if (yysize_overflow)
- return YYSIZE_MAXIMUM;
+ {
+ YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
+ if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
+ return 2;
+ yysize = yysize1;
+ }
- if (yyresult)
- {
- /* Avoid sprintf, as that infringes on the user's name space.
- Don't have undefined behavior even if the translation
- produced a string with the wrong number of "%s"s. */
- char *yyp = yyresult;
- int yyi = 0;
- while ((*yyp = *yyf) != '\0')
- {
- if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
- {
- yyp += yytnamerr (yyp, yyarg[yyi++]);
- yyf += 2;
- }
- else
- {
- yyp++;
- yyf++;
- }
- }
- }
- return yysize;
+ if (*yymsg_alloc < yysize)
+ {
+ *yymsg_alloc = 2 * yysize;
+ if (! (yysize <= *yymsg_alloc
+ && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
+ *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
+ return 1;
}
+
+ /* Avoid sprintf, as that infringes on the user's name space.
+ Don't have undefined behavior even if the translation
+ produced a string with the wrong number of "%s"s. */
+ {
+ char *yyp = *yymsg;
+ int yyi = 0;
+ while ((*yyp = *yyformat) != '\0')
+ if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
+ {
+ yyp += yytnamerr (yyp, yyarg[yyi++]);
+ yyformat += 2;
+ }
+ else
+ {
+ yyp++;
+ yyformat++;
+ }
+ }
+ return 0;
}
#endif /* YYERROR_VERBOSE */
-
/*-----------------------------------------------.
| Release the memory associated to this symbol. |
`-----------------------------------------------*/
@@ -1600,312 +1721,310 @@ yydestruct (yymsg, yytype, yyvaluep, yylocationp)
switch (yytype)
{
- case 5: /* "SECTIONHEADER" */
+ case 5: /* SECTIONHEADER */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 6: /* "RSECTIONHEADER" */
+ break;
+ case 6: /* RSECTIONHEADER */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 7: /* "VSECTIONHEADER" */
+ break;
+ case 7: /* VSECTIONHEADER */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 8: /* "SECTIONHEADER2" */
+ break;
+ case 8: /* SECTIONHEADER2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 9: /* "RCODEMACRO" */
+ break;
+ case 9: /* RCODEMACRO */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 10: /* "SEXPR" */
+ break;
+ case 10: /* SEXPR */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 12: /* "LATEXMACRO" */
+ break;
+ case 12: /* LATEXMACRO */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 13: /* "VERBMACRO" */
+ break;
+ case 13: /* VERBMACRO */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 14: /* "OPTMACRO" */
+ break;
+ case 14: /* OPTMACRO */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 15: /* "ESCAPE" */
+ break;
+ case 15: /* ESCAPE */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 16: /* "LISTSECTION" */
+ break;
+ case 16: /* LISTSECTION */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 17: /* "ITEMIZE" */
+ break;
+ case 17: /* ITEMIZE */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 18: /* "DESCRIPTION" */
+ break;
+ case 18: /* DESCRIPTION */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 19: /* "NOITEM" */
+ break;
+ case 19: /* NOITEM */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 20: /* "LATEXMACRO2" */
+ break;
+ case 20: /* LATEXMACRO2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 21: /* "VERBMACRO2" */
+ break;
+ case 21: /* VERBMACRO2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 22: /* "VERBLATEX" */
+ break;
+ case 22: /* VERBLATEX */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 23: /* "LATEXMACRO3" */
+ break;
+ case 23: /* LATEXMACRO3 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 24: /* "NEWCOMMAND" */
+ break;
+ case 24: /* NEWCOMMAND */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 25: /* "USERMACRO" */
+ break;
+ case 25: /* USERMACRO */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 26: /* "USERMACRO1" */
+ break;
+ case 26: /* USERMACRO1 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 27: /* "USERMACRO2" */
+ break;
+ case 27: /* USERMACRO2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 28: /* "USERMACRO3" */
+ break;
+ case 28: /* USERMACRO3 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 29: /* "USERMACRO4" */
+ break;
+ case 29: /* USERMACRO4 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 30: /* "USERMACRO5" */
+ break;
+ case 30: /* USERMACRO5 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 31: /* "USERMACRO6" */
+ break;
+ case 31: /* USERMACRO6 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 32: /* "USERMACRO7" */
+ break;
+ case 32: /* USERMACRO7 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 33: /* "USERMACRO8" */
+ break;
+ case 33: /* USERMACRO8 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 34: /* "USERMACRO9" */
+ break;
+ case 34: /* USERMACRO9 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 35: /* "IFDEF" */
+ break;
+ case 35: /* IFDEF */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 36: /* "ENDIF" */
+ break;
+ case 36: /* ENDIF */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 37: /* "TEXT" */
+ break;
+ case 37: /* TEXT */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 38: /* "RCODE" */
+ break;
+ case 38: /* RCODE */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 39: /* "VERB" */
+ break;
+ case 39: /* VERB */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 40: /* "COMMENT" */
+ break;
+ case 40: /* COMMENT */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 41: /* "UNKNOWN" */
+ break;
+ case 41: /* UNKNOWN */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 42: /* "STARTFILE" */
+ break;
+ case 42: /* STARTFILE */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 43: /* "STARTFRAGMENT" */
+ break;
+ case 43: /* STARTFRAGMENT */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 54: /* "ArgItems" */
+ break;
+ case 54: /* ArgItems */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 58: /* "LatexArg" */
+ break;
+ case 58: /* LatexArg */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 63: /* "RLikeArg2" */
+ break;
+ case 63: /* RLikeArg2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 65: /* "VerbatimArg1" */
+ break;
+ case 65: /* VerbatimArg1 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 66: /* "VerbatimArg2" */
+ break;
+ case 66: /* VerbatimArg2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 67: /* "IfDefTarget" */
+ break;
+ case 67: /* IfDefTarget */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 68: /* "goLatexLike" */
+ break;
+ case 68: /* goLatexLike */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 69: /* "goRLike" */
+ break;
+ case 69: /* goRLike */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 70: /* "goRLike2" */
+ break;
+ case 70: /* goRLike2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 71: /* "goOption" */
+ break;
+ case 71: /* goOption */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 72: /* "goVerbatim" */
+ break;
+ case 72: /* goVerbatim */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 73: /* "goVerbatim1" */
+ break;
+ case 73: /* goVerbatim1 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 74: /* "goVerbatim2" */
+ break;
+ case 74: /* goVerbatim2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 75: /* "goItem0" */
+ break;
+ case 75: /* goItem0 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 76: /* "goItem2" */
+ break;
+ case 76: /* goItem2 */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
- case 78: /* "Option" */
+ break;
+ case 78: /* Option */
- { UNPROTECT_PTR((*yyvaluep)); };
+ { UNPROTECT_PTR((*yyvaluep)); };
- break;
+ break;
default:
- break;
+ break;
}
}
-/* Prevent warnings from -Wmissing-prototypes. */
-#ifdef YYPARSE_PARAM
-#if defined __STDC__ || defined __cplusplus
-int yyparse (void *YYPARSE_PARAM);
-#else
-int yyparse ();
+
+/* The lookahead symbol. */
+int yychar;
+
+
+#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END
#endif
-#else /* ! YYPARSE_PARAM */
-#if defined __STDC__ || defined __cplusplus
-int yyparse (void);
-#else
-int yyparse ();
+#ifndef YY_INITIAL_VALUE
+# define YY_INITIAL_VALUE(Value) /* Nothing. */
#endif
-#endif /* ! YYPARSE_PARAM */
+/* The semantic value of the lookahead symbol. */
+YYSTYPE yylval YY_INITIAL_VALUE(yyval_default);
+/* Location data for the lookahead symbol. */
+YYLTYPE yylloc
+# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL
+ = { 1, 1, 1, 1 }
+# endif
+;
-/* The look-ahead symbol. */
-int yychar;
-
-/* The semantic value of the look-ahead symbol. */
-YYSTYPE yylval;
/* Number of syntax errors so far. */
int yynerrs;
-/* Location data for the look-ahead symbol. */
-YYLTYPE yylloc;
-
/*----------.
@@ -1934,14 +2053,47 @@ yyparse ()
#endif
#endif
{
+ int yystate;
+ /* Number of tokens to shift before error messages enabled. */
+ int yyerrstatus;
+
+ /* The stacks and their tools:
+ `yyss': related to states.
+ `yyvs': related to semantic values.
+ `yyls': related to locations.
+
+ Refer to the stacks through separate pointers, to allow yyoverflow
+ to reallocate them elsewhere. */
+
+ /* The state stack. */
+ yytype_int16 yyssa[YYINITDEPTH];
+ yytype_int16 *yyss;
+ yytype_int16 *yyssp;
+
+ /* The semantic value stack. */
+ YYSTYPE yyvsa[YYINITDEPTH];
+ YYSTYPE *yyvs;
+ YYSTYPE *yyvsp;
+
+ /* The location stack. */
+ YYLTYPE yylsa[YYINITDEPTH];
+ YYLTYPE *yyls;
+ YYLTYPE *yylsp;
+
+ /* The locations where the error started and ended. */
+ YYLTYPE yyerror_range[3];
+
+ YYSIZE_T yystacksize;
- int yystate;
int yyn;
int yyresult;
- /* Number of tokens to shift before error messages enabled. */
- int yyerrstatus;
- /* Look-ahead token as an internal (translated) token number. */
+ /* Lookahead token as an internal (translated) token number. */
int yytoken = 0;
+ /* The variables used to return semantic value and location from the
+ action routines. */
+ YYSTYPE yyval;
+ YYLTYPE yyloc;
+
#if YYERROR_VERBOSE
/* Buffer for error messages, and its allocated size. */
char yymsgbuf[128];
@@ -1949,65 +2101,24 @@ yyparse ()
YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
#endif
- /* Three stacks and their tools:
- `yyss': related to states,
- `yyvs': related to semantic values,
- `yyls': related to locations.
-
- Refer to the stacks thru separate pointers, to allow yyoverflow
- to reallocate them elsewhere. */
-
- /* The state stack. */
- yytype_int16 yyssa[YYINITDEPTH];
- yytype_int16 *yyss = yyssa;
- yytype_int16 *yyssp;
-
- /* The semantic value stack. */
- YYSTYPE yyvsa[YYINITDEPTH];
- YYSTYPE *yyvs = yyvsa;
- YYSTYPE *yyvsp;
-
- /* The location stack. */
- YYLTYPE yylsa[YYINITDEPTH];
- YYLTYPE *yyls = yylsa;
- YYLTYPE *yylsp;
- /* The locations where the error started and ended. */
- YYLTYPE yyerror_range[2];
-
#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N))
- YYSIZE_T yystacksize = YYINITDEPTH;
-
- /* The variables used to return semantic value and location from the
- action routines. */
- YYSTYPE yyval;
- YYLTYPE yyloc;
-
/* The number of symbols on the RHS of the reduced rule.
Keep to zero when no symbol should be popped. */
int yylen = 0;
+ yyssp = yyss = yyssa;
+ yyvsp = yyvs = yyvsa;
+ yylsp = yyls = yylsa;
+ yystacksize = YYINITDEPTH;
+
YYDPRINTF ((stderr, "Starting parse\n"));
yystate = 0;
yyerrstatus = 0;
yynerrs = 0;
- yychar = YYEMPTY; /* Cause a token to be read. */
-
- /* Initialize stack pointers.
- Waste one element of value and location stack
- so that they stay on the same level as the state stack.
- The wasted elements are never initialized. */
-
- yyssp = yyss;
- yyvsp = yyvs;
- yylsp = yyls;
-#if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL
- /* Initialize the default location before parsing starts. */
- yylloc.first_line = yylloc.last_line = 1;
- yylloc.first_column = yylloc.last_column = 0;
-#endif
-
+ yychar = YYEMPTY; /* Cause a token to be read. */
+ yylsp[0] = yylloc;
goto yysetstate;
/*------------------------------------------------------------.
@@ -2044,6 +2155,7 @@ yyparse ()
&yyvs1, yysize * sizeof (*yyvsp),
&yyls1, yysize * sizeof (*yylsp),
&yystacksize);
+
yyls = yyls1;
yyss = yyss1;
yyvs = yyvs1;
@@ -2065,9 +2177,9 @@ yyparse ()
(union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
if (! yyptr)
goto yyexhaustedlab;
- YYSTACK_RELOCATE (yyss);
- YYSTACK_RELOCATE (yyvs);
- YYSTACK_RELOCATE (yyls);
+ YYSTACK_RELOCATE (yyss_alloc, yyss);
+ YYSTACK_RELOCATE (yyvs_alloc, yyvs);
+ YYSTACK_RELOCATE (yyls_alloc, yyls);
# undef YYSTACK_RELOCATE
if (yyss1 != yyssa)
YYSTACK_FREE (yyss1);
@@ -2088,6 +2200,9 @@ yyparse ()
YYDPRINTF ((stderr, "Entering state %d\n", yystate));
+ if (yystate == YYFINAL)
+ YYACCEPT;
+
goto yybackup;
/*-----------.
@@ -2096,16 +2211,16 @@ yyparse ()
yybackup:
/* Do appropriate processing given the current state. Read a
- look-ahead token if we need one and don't already have one. */
+ lookahead token if we need one and don't already have one. */
- /* First try to decide what to do without reference to look-ahead token. */
+ /* First try to decide what to do without reference to lookahead token. */
yyn = yypact[yystate];
- if (yyn == YYPACT_NINF)
+ if (yypact_value_is_default (yyn))
goto yydefault;
- /* Not known => get a look-ahead token if don't already have one. */
+ /* Not known => get a lookahead token if don't already have one. */
- /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */
+ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
if (yychar == YYEMPTY)
{
YYDPRINTF ((stderr, "Reading a token: "));
@@ -2131,29 +2246,27 @@ yybackup:
yyn = yytable[yyn];
if (yyn <= 0)
{
- if (yyn == 0 || yyn == YYTABLE_NINF)
- goto yyerrlab;
+ if (yytable_value_is_error (yyn))
+ goto yyerrlab;
yyn = -yyn;
goto yyreduce;
}
- if (yyn == YYFINAL)
- YYACCEPT;
-
/* Count tokens shifted since error; after three, turn off error
status. */
if (yyerrstatus)
yyerrstatus--;
- /* Shift the look-ahead token. */
+ /* Shift the lookahead token. */
YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
- /* Discard the shifted token unless it is eof. */
- if (yychar != YYEOF)
- yychar = YYEMPTY;
+ /* Discard the shifted token. */
+ yychar = YYEMPTY;
yystate = yyn;
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
*++yyvsp = yylval;
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
*++yylsp = yylloc;
goto yynewstate;
@@ -2192,12 +2305,12 @@ yyreduce:
{
case 2:
- { xxsavevalue((yyvsp[(2) - (3)]), &(yyloc)); UNPROTECT_PTR((yyvsp[(1) - (3)])); return 0; }
+ { xxsavevalue((yyvsp[(2) - (3)]), &(yyloc)); UNPROTECT_PTR((yyvsp[(1) - (3)])); YYACCEPT; }
break;
case 3:
- { xxsavevalue((yyvsp[(2) - (3)]), &(yyloc)); UNPROTECT_PTR((yyvsp[(1) - (3)])); return 0; }
+ { xxsavevalue((yyvsp[(2) - (3)]), &(yyloc)); UNPROTECT_PTR((yyvsp[(1) - (3)])); YYACCEPT; }
break;
case 4:
@@ -2638,10 +2751,20 @@ yyreduce:
break;
-/* Line 1267 of yacc.c. */
default: break;
}
+ /* User semantic actions sometimes alter yychar, and that requires
+ that yytoken be updated with the new translation. We take the
+ approach of translating immediately before every use of yytoken.
+ One alternative is translating here after every semantic action,
+ but that translation would be missed if the semantic action invokes
+ YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
+ if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
+ incorrect destructor might then be invoked immediately. In the
+ case of YYERROR or YYBACKUP, subsequent parser actions might lead
+ to an incorrect destructor call or verbose syntax error message
+ before the lookahead is translated. */
YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
YYPOPSTACK (yylen);
@@ -2670,6 +2793,10 @@ yyreduce:
| yyerrlab -- here on detecting error |
`------------------------------------*/
yyerrlab:
+ /* Make sure we have latest lookahead translation. See comments at
+ user semantic actions for why this is necessary. */
+ yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
+
/* If not already recovering from an error, report this error. */
if (!yyerrstatus)
{
@@ -2677,45 +2804,44 @@ yyerrlab:
#if ! YYERROR_VERBOSE
yyerror (YY_("syntax error"));
#else
+# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
+ yyssp, yytoken)
{
- YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
- if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
- {
- YYSIZE_T yyalloc = 2 * yysize;
- if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
- yyalloc = YYSTACK_ALLOC_MAXIMUM;
- if (yymsg != yymsgbuf)
- YYSTACK_FREE (yymsg);
- yymsg = (char *) YYSTACK_ALLOC (yyalloc);
- if (yymsg)
- yymsg_alloc = yyalloc;
- else
- {
- yymsg = yymsgbuf;
- yymsg_alloc = sizeof yymsgbuf;
- }
- }
-
- if (0 < yysize && yysize <= yymsg_alloc)
- {
- (void) yysyntax_error (yymsg, yystate, yychar);
- yyerror (yymsg);
- }
- else
- {
- yyerror (YY_("syntax error"));
- if (yysize != 0)
- goto yyexhaustedlab;
- }
+ char const *yymsgp = YY_("syntax error");
+ int yysyntax_error_status;
+ yysyntax_error_status = YYSYNTAX_ERROR;
+ if (yysyntax_error_status == 0)
+ yymsgp = yymsg;
+ else if (yysyntax_error_status == 1)
+ {
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+ yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
+ if (!yymsg)
+ {
+ yymsg = yymsgbuf;
+ yymsg_alloc = sizeof yymsgbuf;
+ yysyntax_error_status = 2;
+ }
+ else
+ {
+ yysyntax_error_status = YYSYNTAX_ERROR;
+ yymsgp = yymsg;
+ }
+ }
+ yyerror (yymsgp);
+ if (yysyntax_error_status == 2)
+ goto yyexhaustedlab;
}
+# undef YYSYNTAX_ERROR
#endif
}
- yyerror_range[0] = yylloc;
+ yyerror_range[1] = yylloc;
if (yyerrstatus == 3)
{
- /* If just tried and failed to reuse look-ahead token after an
+ /* If just tried and failed to reuse lookahead token after an
error, discard it. */
if (yychar <= YYEOF)
@@ -2732,7 +2858,7 @@ yyerrlab:
}
}
- /* Else will try to reuse look-ahead token after shifting the error
+ /* Else will try to reuse lookahead token after shifting the error
token. */
goto yyerrlab1;
@@ -2748,7 +2874,7 @@ yyerrorlab:
if (/*CONSTCOND*/ 0)
goto yyerrorlab;
- yyerror_range[0] = yylsp[1-yylen];
+ yyerror_range[1] = yylsp[1-yylen];
/* Do not reclaim the symbols of the rule which action triggered
this YYERROR. */
YYPOPSTACK (yylen);
@@ -2767,7 +2893,7 @@ yyerrlab1:
for (;;)
{
yyn = yypact[yystate];
- if (yyn != YYPACT_NINF)
+ if (!yypact_value_is_default (yyn))
{
yyn += YYTERROR;
if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
@@ -2782,7 +2908,7 @@ yyerrlab1:
if (yyssp == yyss)
YYABORT;
- yyerror_range[0] = *yylsp;
+ yyerror_range[1] = *yylsp;
yydestruct ("Error: popping",
yystos[yystate], yyvsp, yylsp);
YYPOPSTACK (1);
@@ -2790,15 +2916,14 @@ yyerrlab1:
YY_STACK_PRINT (yyss, yyssp);
}
- if (yyn == YYFINAL)
- YYACCEPT;
-
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
*++yyvsp = yylval;
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
- yyerror_range[1] = yylloc;
+ yyerror_range[2] = yylloc;
/* Using YYLLOC is tempting, but would change the location of
- the look-ahead. YYLOC is available though. */
- YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2);
+ the lookahead. YYLOC is available though. */
+ YYLLOC_DEFAULT (yyloc, yyerror_range, 2);
*++yylsp = yyloc;
/* Shift the error token. */
@@ -2822,7 +2947,7 @@ yyabortlab:
yyresult = 1;
goto yyreturn;
-#ifndef yyoverflow
+#if !defined yyoverflow || YYERROR_VERBOSE
/*-------------------------------------------------.
| yyexhaustedlab -- memory exhaustion comes here. |
`-------------------------------------------------*/
@@ -2833,9 +2958,14 @@ yyexhaustedlab:
#endif
yyreturn:
- if (yychar != YYEOF && yychar != YYEMPTY)
- yydestruct ("Cleanup: discarding lookahead",
- yytoken, &yylval, &yylloc);
+ if (yychar != YYEMPTY)
+ {
+ /* Make sure we have latest lookahead translation. See comments at
+ user semantic actions for why this is necessary. */
+ yytoken = YYTRANSLATE (yychar);
+ yydestruct ("Cleanup: discarding lookahead",
+ yytoken, &yylval, &yylloc);
+ }
/* Do not reclaim the symbols of the rule which action triggered
this YYABORT or YYACCEPT. */
YYPOPSTACK (yylen);
@@ -2858,6 +2988,10 @@ yyreturn:
return YYID (yyresult);
}
+
+
+
+
static SEXP xxpushMode(int newmode, int newitem, int neweqn)
{
SEXP ans;
@@ -2910,8 +3044,10 @@ static int getDynamicFlag(SEXP item)
static void setDynamicFlag(SEXP item, int flag)
{
- if (flag)
- setAttrib(item, install("dynamicFlag"), ScalarInteger(flag));
+ if (flag) {
+ SEXP s_dynamicFlag = install("dynamicFlag");
+ setAttrib(item, s_dynamicFlag, ScalarInteger(flag));
+ }
}
static SEXP xxnewlist(SEXP item)
@@ -3037,11 +3173,13 @@ static SEXP xxnewcommand(SEXP cmd, SEXP name, SEXP defn, YYLTYPE *lloc)
PROTECT(thedefn = mkString(CHAR(STRING_ELT(thedefn,0))));
else
PROTECT(thedefn = mkString(""));
- prev = findVar(install(CHAR(STRING_ELT(thename, 0))), parseState.xxMacroList);
- if (prev != R_UnboundValue && !strcmp(CHAR(STRING_ELT(cmd,0)), "\renewcommand")) {
- snprintf(buffer, sizeof(buffer), _("Macro '%s' previously defined."),
+ if (warnDups) {
+ prev = findVar(installChar(STRING_ELT(thename, 0)), parseState.xxMacroList);
+ if (prev != R_UnboundValue && strcmp(CHAR(STRING_ELT(cmd,0)), "\\renewcommand")) {
+ snprintf(buffer, sizeof(buffer), _("Macro '%s' previously defined."),
CHAR(STRING_ELT(thename, 0)));
- yyerror(buffer);
+ yyerror(buffer);
+ }
}
for (c = CHAR(STRING_ELT(thedefn, 0)); *c; c++) {
if (*c == '#' && isdigit(*(c+1)))
@@ -3055,7 +3193,7 @@ static SEXP xxnewcommand(SEXP cmd, SEXP name, SEXP defn, YYLTYPE *lloc)
setAttrib(ans, install("Rd_tag"), cmd);
setAttrib(ans, install("definition"), thedefn);
setAttrib(ans, R_SrcrefSymbol, makeSrcref(lloc, SrcFile));
- defineVar(install(CHAR(STRING_ELT(thename, 0))), ans, parseState.xxMacroList);
+ defineVar(installChar(STRING_ELT(thename, 0)), ans, parseState.xxMacroList);
UNPROTECT_PTR(thedefn);
UNPROTECT_PTR(cmd);
@@ -3106,7 +3244,8 @@ static SEXP xxusermacro(SEXP macro, SEXP args, YYLTYPE *lloc)
}
xxungetc(START_MACRO);
- setAttrib(ans, install("Rd_tag"), mkString("USERMACRO"));
+ SEXP s_Rd_tag = install("Rd_tag");
+ setAttrib(ans, s_Rd_tag, mkString("USERMACRO"));
setAttrib(ans, R_SrcrefSymbol, makeSrcref(lloc, SrcFile));
#if DEBUGVALS
Rprintf(" result: %p\n", ans);
@@ -3225,7 +3364,8 @@ static void xxsavevalue(SEXP Rd, YYLTYPE *lloc)
static SEXP xxtag(SEXP item, int type, YYLTYPE *lloc)
{
- setAttrib(item, install("Rd_tag"), mkString(yytname[YYTRANSLATE(type)]));
+ SEXP s_Rd_tag = install("Rd_tag");
+ setAttrib(item, s_Rd_tag, mkString(yytname[YYTRANSLATE(type)]));
setAttrib(item, R_SrcrefSymbol, makeSrcref(lloc, SrcFile));
return item;
}
@@ -3360,7 +3500,7 @@ static SEXP makeSrcref(YYLTYPE *lloc, SEXP srcfile)
INTEGER(val)[3] = lloc->last_byte;
INTEGER(val)[4] = lloc->first_column;
INTEGER(val)[5] = lloc->last_column;
- setAttrib(val, R_SrcfileSymbol, srcfile);
+ setAttrib(val, R_SrcfileSymbol, srcfile);
setAttrib(val, R_ClassSymbol, mkString("srcref"));
UNPROTECT(1);
return val;
@@ -3409,8 +3549,10 @@ static SEXP GrowList(SEXP l, SEXP s)
/*--------------------------------------------------------------------------*/
-static SEXP ParseRd(ParseStatus *status, SEXP srcfile, Rboolean fragment)
+static SEXP ParseRd(ParseStatus *status, SEXP srcfile, Rboolean fragment, SEXP macros)
{
+ Rboolean keepmacros = !isLogical(macros) || asLogical(macros);
+
R_ParseContextLast = 0;
R_ParseContext[0] = '\0';
@@ -3434,13 +3576,21 @@ static SEXP ParseRd(ParseStatus *status, SEXP srcfile, Rboolean fragment)
if (fragment) parseState.xxinitvalue = STARTFRAGMENT;
else parseState.xxinitvalue = STARTFILE;
- parseState.xxMacroList = InstallKeywords();
+ if (!isEnvironment(macros))
+ macros = InstallKeywords();
+
+ PROTECT(macros);
+ PROTECT(parseState.xxMacroList = R_NewHashedEnv(macros, ScalarInteger(0)));
+ UNPROTECT_PTR(macros);
parseState.Value = R_NilValue;
if (yyparse()) *status = PARSE_ERROR;
else *status = PARSE_OK;
+ if (keepmacros && !isNull(parseState.Value))
+ setAttrib(parseState.Value, install("macros"), parseState.xxMacroList);
+
#if DEBUGVALS
Rprintf("ParseRd result: %p\n", parseState.Value);
#endif
@@ -3475,14 +3625,14 @@ static int con_getc(void)
}
static
-SEXP R_ParseRd(Rconnection con, ParseStatus *status, SEXP srcfile, Rboolean fragment)
+SEXP R_ParseRd(Rconnection con, ParseStatus *status, SEXP srcfile, Rboolean fragment, SEXP macros)
{
con_parse = con;
JNIEnv *env = getEnv();
jclass klass = (*env)->FindClass(env, "com/oracle/truffle/r/runtime/conn/RConnection");
getcMethodID = (*env)->GetMethodID(env, klass, "getc", "()I");
ptr_getc = con_getc;
- return ParseRd(status, srcfile, fragment);
+ return ParseRd(status, srcfile, fragment, macros);
}
/*----------------------------------------------------------------------------
@@ -3668,6 +3818,7 @@ static SEXP InstallKeywords()
defineVar(name, val, result);
UNPROTECT(2);
}
+ UNPROTECT(1);
return result;
}
@@ -3682,7 +3833,10 @@ static SEXP UserMacroLookup(const char *s)
{
SEXP rec = findVar(install(s), parseState.xxMacroList);
if (rec == R_UnboundValue) error(_("Unable to find macro %s"), s);
- return getAttrib(rec, install("definition"));
+ PROTECT(rec);
+ SEXP res = getAttrib(rec, install("definition"));
+ UNPROTECT(1);
+ return res;
}
static void yyerror(const char *s)
@@ -4274,7 +4428,7 @@ static void PopState() {
arguments are as per the GnuR version, just passed explicitly (.Call style)
rather then as a list.
*/
-SEXP C_parseRd(SEXP con, SEXP source, SEXP verbose, SEXP fragment, SEXP basename, SEXP warningcalls) {
+SEXP C_parseRd(SEXP con, SEXP source, SEXP verbose, SEXP fragment, SEXP basename, SEXP warningcalls, SEXP macros, SEXP warnDupsArg) {
SEXP s = R_NilValue;
ParseStatus status;
@@ -4290,8 +4444,9 @@ SEXP C_parseRd(SEXP con, SEXP source, SEXP verbose, SEXP fragment, SEXP basename
// parseState.xxDebugTokens = asInteger(verbose);
parseState.xxBasename = CHAR(STRING_ELT(basename, 0));
wCalls = asLogical(warningcalls);
+ warnDups = asLogical(warnDupsArg);
- s = R_ParseRd(con, &status, source, asLogical(fragment));
+ s = R_ParseRd(con, &status, source, asLogical(fragment), macros);
PopState();
if (status != PARSE_OK) {
// TODO throw an exception
diff --git a/com.oracle.truffle.r.native/library/tools/src/tools_dummy.c b/com.oracle.truffle.r.native/library/tools/src/tools_dummy.c
index 42e67576e5..74b44e6c62 100644
--- a/com.oracle.truffle.r.native/library/tools/src/tools_dummy.c
+++ b/com.oracle.truffle.r.native/library/tools/src/tools_dummy.c
@@ -34,6 +34,7 @@ SEXP codeFilesAppend(SEXP f1, SEXP f2) UNIMPLEMENTED
SEXP getfmts(SEXP format) UNIMPLEMENTED
SEXP startHTTPD(SEXP sIP, SEXP sPort) UNIMPLEMENTED
SEXP stopHTTPD(void) UNIMPLEMENTED
+SEXP splitString(SEXP string, SEXP delims) UNIMPLEMENTED
SEXP C_parseLatex(SEXP call, SEXP op, SEXP args, SEXP env) UNIMPLEMENTED
//SEXP C_parseRd(SEXP call, SEXP op, SEXP args, SEXP env);
diff --git a/com.oracle.truffle.r.native/run/Makefile b/com.oracle.truffle.r.native/run/Makefile
index c627402916..8a9cc326b6 100644
--- a/com.oracle.truffle.r.native/run/Makefile
+++ b/com.oracle.truffle.r.native/run/Makefile
@@ -48,7 +48,7 @@ SUPPORT_SCRIPTS := $(addprefix $(GNUR_HOME)/bin/,BATCH COMPILE INSTALL SHLIB Rcm
# Not all of these work unchanged
ETC_FILES := $(addprefix $(GNUR_HOME)/etc/,javaconf ldpaths Renviron repositories)
-SHARE_FILES := $(addprefix $(GNUR_HOME)/share/,R make java)
+SHARE_FILES := $(addprefix $(GNUR_HOME)/share/,R Rd make java encodings)
all: rundirs rcmds includedir
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/BasePackage.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/BasePackage.java
index dfba6c9b08..fb1f000221 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/BasePackage.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/BasePackage.java
@@ -217,6 +217,7 @@ public class BasePackage extends RBuiltinPackage {
add(EnvFunctions.MakeActiveBinding.class, EnvFunctionsFactory.MakeActiveBindingNodeGen::create);
add(EnvFunctions.NewEnv.class, EnvFunctionsFactory.NewEnvNodeGen::create);
add(EnvFunctions.ParentEnv.class, EnvFunctionsFactory.ParentEnvNodeGen::create);
+ add(EnvFunctions.TopEnv.class, EnvFunctionsFactory.TopEnvNodeGen::create);
add(EnvFunctions.Search.class, EnvFunctionsFactory.SearchNodeGen::create);
add(EnvFunctions.SetParentEnv.class, EnvFunctionsFactory.SetParentEnvNodeGen::create);
add(EnvFunctions.UnlockBinding.class, EnvFunctionsFactory.UnlockBindingNodeGen::create);
@@ -227,6 +228,7 @@ public class BasePackage extends RBuiltinPackage {
add(FastR.class, FastRNodeGen::create);
add(FileFunctions.BaseName.class, FileFunctionsFactory.BaseNameNodeGen::create);
add(FileFunctions.DirCreate.class, FileFunctionsFactory.DirCreateNodeGen::create);
+ add(FileFunctions.DirExists.class, FileFunctionsFactory.DirExistsNodeGen::create);
add(FileFunctions.DirName.class, FileFunctionsFactory.DirNameNodeGen::create);
add(FileFunctions.FileAccess.class, FileFunctionsFactory.FileAccessNodeGen::create);
add(FileFunctions.FileAppend.class, FileFunctionsFactory.FileAppendNodeGen::create);
@@ -244,6 +246,7 @@ public class BasePackage extends RBuiltinPackage {
add(FileFunctions.Unlink.class, FileFunctionsFactory.UnlinkNodeGen::create);
add(Floor.class, FloorNodeGen::create);
add(DotC.class, DotCNodeGen::create);
+ add(ForceAndCall.class, ForceAndCallNodeGen::create);
add(ForeignFunctions.DotCall.class, ForeignFunctionsFactory.DotCallNodeGen::create);
add(ForeignFunctions.DotCallGraphics.class, ForeignFunctionsFactory.DotCallGraphicsNodeGen::create);
add(ForeignFunctions.DotExternal.class, ForeignFunctionsFactory.DotExternalNodeGen::create);
@@ -265,8 +268,10 @@ public class BasePackage extends RBuiltinPackage {
add(Gc.class, GcNodeGen::create);
add(GetClass.class, GetClassNodeGen::create);
add(GetFunctions.Get.class, GetFunctionsFactory.GetNodeGen::create);
+ add(GetFunctions.Get0.class, GetFunctionsFactory.Get0NodeGen::create);
add(GetFunctions.MGet.class, GetFunctionsFactory.MGetNodeGen::create);
add(GetOldClass.class, GetOldClassNodeGen::create);
+ add(OptionsFunctions.GetOption.class, OptionsFunctionsFactory.GetOptionNodeGen::create);
add(GetText.class, GetTextNodeGen::create);
add(Getwd.class, GetwdNodeGen::create);
add(GrepFunctions.AGrep.class, GrepFunctionsFactory.AGrepNodeGen::create);
@@ -353,6 +358,7 @@ public class BasePackage extends RBuiltinPackage {
add(LaFunctions.LaSolve.class, LaFunctionsFactory.LaSolveNodeGen::create);
add(Lapply.class, LapplyNodeGen::create);
add(Length.class, LengthNodeGen::create);
+ add(Lengths.class, LengthsNodeGen::create);
add(License.class, LicenseNodeGen::create);
add(ListBuiltin.class, ListBuiltinNodeGen::create);
add(List2Env.class, List2EnvNodeGen::create);
@@ -391,11 +397,12 @@ public class BasePackage extends RBuiltinPackage {
add(NamespaceFunctions.GetNamespaceRegistry.class, NamespaceFunctionsFactory.GetNamespaceRegistryNodeGen::create);
add(NamespaceFunctions.GetRegisteredNamespace.class, NamespaceFunctionsFactory.GetRegisteredNamespaceNodeGen::create);
add(NamespaceFunctions.IsNamespaceEnv.class, NamespaceFunctionsFactory.IsNamespaceEnvNodeGen::create);
+ add(NamespaceFunctions.IsRegisteredNamespace.class, NamespaceFunctionsFactory.IsRegisteredNamespaceNodeGen::create);
add(NamespaceFunctions.RegisterNamespace.class, NamespaceFunctionsFactory.RegisterNamespaceNodeGen::create);
add(NamespaceFunctions.UnregisterNamespace.class, NamespaceFunctionsFactory.UnregisterNamespaceNodeGen::create);
add(NormalizePath.class, NormalizePathNodeGen::create);
add(OnExit.class, OnExitNodeGen::create);
- add(Options.class, OptionsNodeGen::create);
+ add(OptionsFunctions.Options.class, OptionsFunctionsFactory.OptionsNodeGen::create);
add(Order.class, OrderNodeGen::create);
add(PMatch.class, PMatchNodeGen::create);
add(PMinMax.PMax.class, PMinMaxNodeGen.PMaxNodeGen::create);
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Combine.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Combine.java
index 6f9726a8f7..21d43c47a2 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Combine.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Combine.java
@@ -58,6 +58,7 @@ import com.oracle.truffle.r.nodes.unary.PrecedenceNode;
import com.oracle.truffle.r.nodes.unary.PrecedenceNodeGen;
import com.oracle.truffle.r.runtime.ArgumentsSignature;
import com.oracle.truffle.r.runtime.RBuiltin;
+import com.oracle.truffle.r.runtime.RDispatch;
import com.oracle.truffle.r.runtime.RError;
import com.oracle.truffle.r.runtime.RRuntime;
import com.oracle.truffle.r.runtime.data.RArgsValuesAndNames;
@@ -73,7 +74,7 @@ import com.oracle.truffle.r.runtime.data.model.RAbstractVector;
import com.oracle.truffle.r.runtime.nodes.RNode;
import com.oracle.truffle.r.runtime.ops.na.NACheck;
-@RBuiltin(name = "c", kind = PRIMITIVE, parameterNames = {"..."})
+@RBuiltin(name = "c", kind = PRIMITIVE, parameterNames = {"..."}, dispatch = RDispatch.INTERNAL_GENERIC)
public abstract class Combine extends RCastingBuiltinNode {
public static Combine create() {
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/EnvFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/EnvFunctions.java
index 814a1c2d79..839ef8c5c6 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/EnvFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/EnvFunctions.java
@@ -218,6 +218,54 @@ public class EnvFunctions {
}
}
+ @RBuiltin(name = "topenv", kind = INTERNAL, parameterNames = {"envir", "matchThisEnv"})
+ public abstract static class TopEnv extends Adapter {
+
+ @Child private FrameFunctions.ParentFrame parentFrameNode;
+
+ @Specialization
+ protected REnvironment topEnv(REnvironment env, REnvironment matchThisEnv) {
+ return doTopEnv(matchThisEnv, env);
+ }
+
+ @Specialization
+ protected REnvironment topEnv(REnvironment envir, @SuppressWarnings("unused") RNull matchThisEnv) {
+ return doTopEnv(null, envir);
+ }
+
+ @Fallback
+ protected REnvironment topEnv(VirtualFrame frame, Object envir, Object matchThisEnv) {
+ REnvironment env;
+ REnvironment target;
+ if (!(envir instanceof REnvironment)) {
+ if (parentFrameNode == null) {
+ parentFrameNode = insert(FrameFunctionsFactory.ParentFrameNodeGen.create(new RNode[1], null, null));
+ }
+ env = (REnvironment) parentFrameNode.execute(frame, 2);
+ } else {
+ env = (REnvironment) envir;
+ }
+ if (!(matchThisEnv instanceof REnvironment)) {
+ target = null;
+ } else {
+ target = (REnvironment) matchThisEnv;
+ }
+ return doTopEnv(target, env);
+ }
+
+ private static REnvironment doTopEnv(REnvironment target, final REnvironment envArg) {
+ REnvironment env = envArg;
+ while (env != REnvironment.emptyEnv()) {
+ if (env == target || env == REnvironment.globalEnv() || env == REnvironment.baseEnv() || env == REnvironment.baseNamespaceEnv() || env.isPackageEnv() != null || env.isNamespaceEnv() ||
+ env.get(".packageName") != null) {
+ return env;
+ }
+ env = env.getParent();
+ }
+ return REnvironment.globalEnv();
+ }
+ }
+
@RBuiltin(name = "parent.env", kind = INTERNAL, parameterNames = {"env"})
public abstract static class ParentEnv extends Adapter {
@@ -490,7 +538,7 @@ public class EnvFunctions {
}
}
- @RBuiltin(name = "env2list", kind = INTERNAL, parameterNames = {"x", "all.names"})
+ @RBuiltin(name = "env2list", kind = INTERNAL, parameterNames = {"x", "all.names", "sorted"})
public abstract static class EnvToList extends RBuiltinNode {
@Child private CopyNode copy;
@@ -504,12 +552,13 @@ public class EnvFunctions {
}
@Specialization
- protected RList envToListAllNames(VirtualFrame frame, REnvironment env, RAbstractLogicalVector allNamesVec) {
+ protected RList envToListAllNames(VirtualFrame frame, REnvironment env, RAbstractLogicalVector allNamesVec, RAbstractLogicalVector sortedVec) {
// according to the docs it is expected to be slow as it creates a copy of environment
// objects
controlVisibility();
boolean allNames = allNamesVec.getLength() == 0 || allNamesVec.getDataAt(0) == RRuntime.LOGICAL_FALSE ? false : true;
- RStringVector keys = envls(env, allNames);
+ boolean sorted = sortedVec.getLength() == 0 || sortedVec.getDataAt(0) == RRuntime.LOGICAL_FALSE ? false : true;
+ RStringVector keys = envls(env, allNames, sorted);
Object[] data = new Object[keys.getLength()];
for (int i = 0; i < data.length; i++) {
// TODO: not all types are handled (e.g. copying environments)
@@ -521,9 +570,8 @@ public class EnvFunctions {
}
@TruffleBoundary
- private static RStringVector envls(REnvironment env, boolean allNames) {
- // Unlike ls(), not sorted
- return env.ls(allNames, null, false);
+ private static RStringVector envls(REnvironment env, boolean allNames, boolean sorted) {
+ return env.ls(allNames, null, sorted);
}
}
@@ -583,6 +631,11 @@ public class EnvFunctions {
return recursiveCopy(frame, promiseHelper.evaluate(frame, promise));
}
+ @Specialization
+ Object copy(REnvironment env) {
+ return env;
+ }
+
@Fallback
Object copy(@SuppressWarnings("unused") Object o) {
throw RInternalError.unimplemented("copying of object in the environment not supported");
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/FileFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/FileFunctions.java
index 502ebd48b6..228a77e564 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/FileFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/FileFunctions.java
@@ -200,7 +200,7 @@ public class FileFunctions {
}
}
- @RBuiltin(name = "file.info", kind = INTERNAL, parameterNames = {"fn"})
+ @RBuiltin(name = "file.info", kind = INTERNAL, parameterNames = {"fn", "extra_cols"})
public abstract static class FileInfo extends RBuiltinNode {
// @formatter:off
private enum Column {
@@ -213,9 +213,14 @@ public class FileFunctions {
private static final RStringVector NAMES_VECTOR = RDataFactory.createStringVector(NAMES, RDataFactory.COMPLETE_VECTOR);
private static final RStringVector OCTMODE = RDataFactory.createStringVectorFromScalar("octmode");
+ @Override
+ protected void createCasts(CastBuilder casts) {
+ casts.toLogical(1);
+ }
+
@Specialization
@TruffleBoundary
- protected RList doFileInfo(RAbstractStringVector vec) {
+ protected RList doFileInfo(RAbstractStringVector vec, byte extraCols) {
/*
* Create a list, the elements of which are vectors of length vec.getLength() containing
* the information. The R closure that called the .Internal turns the result into a
@@ -225,8 +230,13 @@ public class FileFunctions {
* We try to use the JDK classes, even though they provide a more abstract interface
* than R. In particular there seems to be no way to get the uid/gid values. We might be
* better off justing using a native call.
+ *
+ * TODO implement extras_cols=FALSE
*/
controlVisibility();
+ if (RRuntime.isNA(extraCols)) {
+ throw RError.error(this, RError.Message.INVALID_ARGUMENT, "extra_cols");
+ }
int vecLength = vec.getLength();
Object[] data = new Object[NAMES.length];
boolean[] complete = new boolean[NAMES.length];
@@ -1116,4 +1126,25 @@ public class FileFunctions {
}
}
}
+
+ @RBuiltin(name = "dir.exists", kind = INTERNAL, parameterNames = "paths")
+ public abstract static class DirExists extends RBuiltinNode {
+ @Specialization
+ @TruffleBoundary
+ protected RLogicalVector dirExists(RAbstractStringVector pathVec) {
+ byte[] data = new byte[pathVec.getLength()];
+ for (int i = 0; i < data.length; i++) {
+ String pathString = Utils.tildeExpand(pathVec.getDataAt(i));
+ Path path = FileSystems.getDefault().getPath(pathString);
+ data[i] = RRuntime.asLogical(Files.exists(path) && Files.isDirectory(path));
+ }
+ return RDataFactory.createLogicalVector(data, RDataFactory.COMPLETE_VECTOR);
+ }
+
+ @Fallback
+ protected RLogicalVector dirExists(@SuppressWarnings("unused") Object pathVec) {
+ throw RError.error(this, RError.Message.INVALID_ARGUMENT, "filename");
+ }
+
+ }
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/ForceAndCall.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/ForceAndCall.java
new file mode 100644
index 0000000000..3362b0317c
--- /dev/null
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/ForceAndCall.java
@@ -0,0 +1,124 @@
+/*
+ * Copyright (c) 2016, 2016, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+package com.oracle.truffle.r.nodes.builtin.base;
+
+import static com.oracle.truffle.r.runtime.RBuiltinKind.PRIMITIVE;
+
+import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.api.dsl.Fallback;
+import com.oracle.truffle.api.dsl.Specialization;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.r.nodes.RASTUtils;
+import com.oracle.truffle.r.nodes.builtin.CastBuilder;
+import com.oracle.truffle.r.nodes.builtin.RBuiltinNode;
+import com.oracle.truffle.r.nodes.function.PromiseHelperNode;
+import com.oracle.truffle.r.nodes.function.RCallNode;
+import com.oracle.truffle.r.runtime.ArgumentsSignature;
+import com.oracle.truffle.r.runtime.RBuiltin;
+import com.oracle.truffle.r.runtime.RError;
+import com.oracle.truffle.r.runtime.data.RArgsValuesAndNames;
+import com.oracle.truffle.r.runtime.data.RFunction;
+import com.oracle.truffle.r.runtime.data.RNull;
+import com.oracle.truffle.r.runtime.data.RPromise;
+import com.oracle.truffle.r.runtime.nodes.RNode;
+import com.oracle.truffle.r.runtime.nodes.RSyntaxNode;
+
+@RBuiltin(name = "forceAndCall", kind = PRIMITIVE, parameterNames = {"n", "FUN", "..."}, nonEvalArgs = 2)
+public abstract class ForceAndCall extends RBuiltinNode {
+
+ @Child DoCall doCallNode;
+ @Child PromiseHelperNode promiseHelper;
+
+ protected PromiseHelperNode initPromiseHelper() {
+ if (promiseHelper == null) {
+ CompilerDirectives.transferToInterpreterAndInvalidate();
+ promiseHelper = insert(new PromiseHelperNode());
+ }
+ return promiseHelper;
+ }
+
+ @Override
+ protected void createCasts(CastBuilder casts) {
+ casts.toInteger(0);
+ }
+
+ private DoCall getDoCallNode() {
+ if (doCallNode == null) {
+ doCallNode = insert(DoCallNodeGen.create(new RNode[3], null, null));
+ }
+ return doCallNode;
+ }
+
+ @Specialization(guards = "isBuiltin(fun)")
+ protected Object forceAndCallBuiltin(VirtualFrame frame, @SuppressWarnings("unused") int n, RFunction fun, RArgsValuesAndNames args) {
+ return getDoCallNode().execute(frame, fun, args, RNull.instance);
+ }
+
+ @Specialization(guards = "!isBuiltin(fun)")
+ protected Object forceAndCall(VirtualFrame frame, int n, RFunction fun, RArgsValuesAndNames args) {
+ initPromiseHelper();
+ // In GnuR there appears to be no error checks on n > args.length
+ int an = args.getLength();
+ Object[] newArgValues = new Object[an];
+ for (int i = 0; i < an; i++) {
+ RPromise arg = (RPromise) args.getArgument(i);
+ Object newArg;
+ if (i < n) {
+ newArg = initPromiseHelper().evaluate(frame, arg);
+ } else {
+ newArg = arg;
+ }
+ newArgValues[i] = newArg;
+ }
+ RArgsValuesAndNames newArgs = new RArgsValuesAndNames(newArgValues, args.getSignature());
+ return createCallNode(fun, newArgs).execute(frame, fun);
+ }
+
+ @TruffleBoundary
+ protected RCallNode createCallNode(RFunction fun, RArgsValuesAndNames args) {
+ RSyntaxNode[] synArgs = new RSyntaxNode[args.getLength()];
+ Object[] argValues = args.getArguments();
+ String[] names = new String[synArgs.length];
+ for (int i = 0; i < synArgs.length; i++) {
+ synArgs[i] = (RSyntaxNode) RASTUtils.createNodeForValue(argValues[i]);
+ String name = args.getSignature().getName(i);
+ if (name != null && !name.isEmpty()) {
+ names[i] = name;
+ }
+ }
+ ArgumentsSignature argsSig = ArgumentsSignature.get(names);
+ return (RCallNode) RASTUtils.createCall(fun, true, argsSig, synArgs);
+ }
+
+ @SuppressWarnings("unused")
+ @Fallback
+ protected Object forceAndCall(Object n, Object fun, RArgsValuesAndNames args) {
+ throw RError.error(this, RError.Message.INVALID_OR_UNIMPLEMENTED_ARGUMENTS);
+ }
+
+ public static boolean isBuiltin(RFunction fun) {
+ return fun.isBuiltin();
+ }
+
+}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Format.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Format.java
index d01abecb62..5b9405b93c 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Format.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Format.java
@@ -24,7 +24,7 @@ import com.oracle.truffle.r.runtime.context.*;
import com.oracle.truffle.r.runtime.data.*;
import com.oracle.truffle.r.runtime.data.model.*;
-@RBuiltin(name = "format", kind = INTERNAL, parameterNames = {"x", "trim", "digits", "nsmall", "width", "justify", "na.encode", "scientific"})
+@RBuiltin(name = "format", kind = INTERNAL, parameterNames = {"x", "trim", "digits", "nsmall", "width", "justify", "na.encode", "scientific", "decimal.mark"})
public abstract class Format extends RBuiltinNode {
@Child private CastIntegerNode castInteger;
@@ -102,8 +102,8 @@ public abstract class Format extends RBuiltinNode {
@Specialization
protected RStringVector format(RAbstractLogicalVector value, RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec,
- RLogicalVector naEncodeVec, RAbstractVector sciVec) {
- checkArgs(trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec);
+ RLogicalVector naEncodeVec, RAbstractVector sciVec, RAbstractStringVector decimalMark) {
+ checkArgs(trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec, decimalMark);
if (value.getLength() == 0) {
return RDataFactory.createEmptyStringVector();
} else {
@@ -161,8 +161,8 @@ public abstract class Format extends RBuiltinNode {
@Specialization
protected RStringVector format(RAbstractIntVector value, RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec,
- RLogicalVector naEncodeVec, RAbstractVector sciVec) {
- checkArgs(trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec);
+ RLogicalVector naEncodeVec, RAbstractVector sciVec, RAbstractStringVector decimalMark) {
+ checkArgs(trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec, decimalMark);
if (value.getLength() == 0) {
return RDataFactory.createEmptyStringVector();
} else {
@@ -227,8 +227,8 @@ public abstract class Format extends RBuiltinNode {
@Specialization
protected RStringVector format(RAbstractDoubleVector value, RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec,
- RLogicalVector naEncodeVec, RAbstractVector sciVec) {
- checkArgs(trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec);
+ RLogicalVector naEncodeVec, RAbstractVector sciVec, RAbstractStringVector decimalMark) {
+ checkArgs(trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec, decimalMark);
if (value.getLength() == 0) {
return RDataFactory.createEmptyStringVector();
} else {
@@ -237,7 +237,8 @@ public abstract class Format extends RBuiltinNode {
}
@SuppressWarnings("unused")
- private void processArguments(RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec, RLogicalVector naEncodeVec, RAbstractVector sciVec) {
+ private void processArguments(RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec, RLogicalVector naEncodeVec, RAbstractVector sciVec,
+ RAbstractStringVector decimalMark) {
byte trim = trimVec.getLength() > 0 ? trimVec.getDataAt(0) : RRuntime.LOGICAL_NA;
int digits = digitsVec.getLength() > 0 ? digitsVec.getDataAt(0) : RRuntime.INT_NA;
getConfig().digits = digits;
@@ -246,24 +247,29 @@ public abstract class Format extends RBuiltinNode {
int justify = justifyVec.getLength() > 0 ? justifyVec.getDataAt(0) : RRuntime.INT_NA;
byte naEncode = naEncodeVec.getLength() > 0 ? naEncodeVec.getDataAt(0) : RRuntime.LOGICAL_NA;
int sci = computeSciArg(sciVec);
+ String myOutDec = decimalMark.getDataAt(0);
+ if (RRuntime.isNA(myOutDec)) {
+ myOutDec = ".";
+ }
}
@Specialization
protected RStringVector format(RAbstractStringVector value, RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec,
- RLogicalVector naEncodeVec, RAbstractVector sciVec) {
- checkArgs(trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec);
+ RLogicalVector naEncodeVec, RAbstractVector sciVec, RAbstractStringVector decimalMark) {
+ checkArgs(trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec, decimalMark);
// TODO: implement full semantics
return value.materialize();
}
@Specialization
protected RStringVector format(RFactor value, RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec, RLogicalVector naEncodeVec,
- RAbstractVector sciVec) {
- return format(value.getVector(), trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec);
+ RAbstractVector sciVec, RAbstractStringVector decimalMark) {
+ return format(value.getVector(), trimVec, digitsVec, nsmallVec, widthVec, justifyVec, naEncodeVec, sciVec, decimalMark);
}
// TruffleDSL bug - should not need multiple guards here
- protected void checkArgs(RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec, RLogicalVector naEncodeVec, RAbstractVector sciVec) {
+ protected void checkArgs(RLogicalVector trimVec, RIntVector digitsVec, RIntVector nsmallVec, RIntVector widthVec, RIntVector justifyVec, RLogicalVector naEncodeVec, RAbstractVector sciVec,
+ RAbstractStringVector decimalMark) {
if (trimVec.getLength() > 0 && RRuntime.isNA(trimVec.getDataAt(0))) {
errorProfile.enter();
throw RError.error(this, RError.Message.INVALID_ARGUMENT, "trim");
@@ -292,6 +298,10 @@ public abstract class Format extends RBuiltinNode {
errorProfile.enter();
throw RError.error(this, RError.Message.INVALID_ARGUMENT, "scientific");
}
+ if (decimalMark.getLength() != 1) {
+ errorProfile.enter();
+ throw RError.error(this, RError.Message.INVALID_ARGUMENT, "decmial.mark");
+ }
}
public static class Config {
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/FrameFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/FrameFunctions.java
index a7c4cd0f3e..01b80b57d8 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/FrameFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/FrameFunctions.java
@@ -165,7 +165,7 @@ public class FrameFunctions {
* In summary, although the simple cases are indeed simple, there are many possible variants
* using "..." that make the code a lot more complex that it seems it ought to be.
*/
- @RBuiltin(name = "match.call", kind = INTERNAL, parameterNames = {"definition", "call", "expand.dots"})
+ @RBuiltin(name = "match.call", kind = INTERNAL, parameterNames = {"definition", "call", "expand.dots", "envir"})
public abstract static class MatchCall extends FrameHelper {
@Override
@@ -174,12 +174,7 @@ public class FrameFunctions {
}
@Specialization
- protected RLanguage matchCall(VirtualFrame frame, @SuppressWarnings("unused") RNull definition, Object callObj, byte expandDots) {
- return matchCall(frame, (RFunction) null, callObj, expandDots);
- }
-
- @Specialization
- protected RLanguage matchCall(VirtualFrame frame, RFunction definitionArg, Object callObj, byte expandDotsL) {
+ protected RLanguage matchCall(RFunction definition, Object callObj, byte expandDotsL, REnvironment env) {
/*
* definition==null in the standard (default) case, in which case we get the RFunction
* from the calling frame
@@ -191,20 +186,11 @@ public class FrameFunctions {
}
boolean expandDots = RRuntime.fromLogical(expandDotsL);
- Frame cframe = Utils.getStackFrame(FrameAccess.READ_ONLY, RArguments.getDepth(frame) - 2);
- RFunction definition = definitionArg;
- if (definition == null) {
- Frame defFrame = Utils.getStackFrame(FrameAccess.READ_ONLY, RArguments.getDepth(frame) - 1);
- definition = RArguments.getFunction(defFrame);
- if (definition == null) {
- throw RError.error(this, RError.Message.MATCH_CALL_CALLED_OUTSIDE_FUNCTION);
- }
- }
- return doMatchCall(cframe, definition, call, expandDots);
+ return doMatchCall(env.getFrame(), definition, call, expandDots);
}
@TruffleBoundary
- private static RLanguage doMatchCall(Frame cframe, RFunction definition, RLanguage call, boolean expandDots) {
+ private static RLanguage doMatchCall(MaterializedFrame cframe, RFunction definition, RLanguage call, boolean expandDots) {
/*
* We have to ensure that all parameters are named, in the correct order, and deal with
* "...". This process has a lot in common with MatchArguments, which we use as a
@@ -339,7 +325,7 @@ public class FrameFunctions {
@Specialization
@SuppressWarnings("unused")
- protected RLanguage matchCall(Object definition, Object call, Object expandDots) {
+ protected RLanguage matchCall(Object definition, Object call, Object expandDots, Object envir) {
controlVisibility();
throw RError.error(this, RError.Message.INVALID_OR_UNIMPLEMENTED_ARGUMENTS);
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/GetFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/GetFunctions.java
index 4e983e35cf..0a7d857b94 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/GetFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/GetFunctions.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2014, 2015, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2014, 2016, 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
@@ -49,6 +49,9 @@ public class GetFunctions {
protected final ValueProfile modeProfile = ValueProfile.createIdentityProfile();
protected final BranchProfile inheritsProfile = BranchProfile.create();
@Child private PromiseHelperNode promiseHelper = new PromiseHelperNode();
+ @Child protected TypeFromModeNode typeFromMode = TypeFromModeNodeGen.create();
+
+ public abstract Object execute(VirtualFrame frame, Object name, REnvironment envir, String mode, byte inherits);
protected void unknownObject(String x, RType modeType, String modeString) throws RError {
unknownObjectErrorProfile.enter();
@@ -67,29 +70,24 @@ public class GetFunctions {
}
}
- }
-
- @RBuiltin(name = "get", kind = INTERNAL, parameterNames = {"x", "envir", "mode", "inherits"})
- public abstract static class Get extends Adapter {
-
- @Child private TypeFromModeNode typeFromMode = TypeFromModeNodeGen.create();
-
- public abstract Object execute(VirtualFrame frame, Object name, REnvironment envir, String mode, byte inherits);
-
public static boolean isInherits(byte inherits) {
return inherits == RRuntime.LOGICAL_TRUE;
}
- @Specialization(guards = "!isInherits(inherits)")
- protected Object getNonInherit(VirtualFrame frame, RAbstractStringVector xv, REnvironment envir, String mode, @SuppressWarnings("unused") byte inherits) {
- controlVisibility();
- RType modeType = typeFromMode.execute(mode);
- return getAndCheck(frame, xv, envir, modeType, true);
+ protected Object getAndCheck(VirtualFrame frame, RAbstractStringVector xv, REnvironment env, RType modeType, boolean fail) throws RError {
+ String x = xv.getDataAt(0);
+ Object obj = checkPromise(frame, env.get(x));
+ if (obj != null && RRuntime.checkType(obj, modeType)) {
+ return obj;
+ } else {
+ if (fail) {
+ unknownObject(x, modeType, modeType.getName());
+ }
+ return null;
+ }
}
- @Specialization(guards = "isInherits(inherits)")
- protected Object getInherit(VirtualFrame frame, RAbstractStringVector xv, REnvironment envir, String mode, @SuppressWarnings("unused") byte inherits) {
- controlVisibility();
+ protected Object getInherits(VirtualFrame frame, RAbstractStringVector xv, REnvironment envir, String mode, boolean fail) {
RType modeType = typeFromMode.execute(mode);
Object r = getAndCheck(frame, xv, envir, modeType, false);
if (r == null) {
@@ -105,24 +103,54 @@ public class GetFunctions {
}
}
}
- if (r == null) {
+ if (r == null && fail) {
unknownObject(x, modeType, mode);
}
}
return r;
}
+ }
- protected Object getAndCheck(VirtualFrame frame, RAbstractStringVector xv, REnvironment env, RType modeType, boolean fail) throws RError {
- String x = xv.getDataAt(0);
- Object obj = checkPromise(frame, env.get(x));
- if (obj != null && RRuntime.checkType(obj, modeType)) {
- return obj;
- } else {
- if (fail) {
- unknownObject(x, modeType, modeType.getName());
- }
- return null;
+ @RBuiltin(name = "get", kind = INTERNAL, parameterNames = {"x", "envir", "mode", "inherits"})
+ public abstract static class Get extends Adapter {
+
+ @Specialization(guards = "!isInherits(inherits)")
+ protected Object getNonInherit(VirtualFrame frame, RAbstractStringVector xv, REnvironment envir, String mode, @SuppressWarnings("unused") byte inherits) {
+ controlVisibility();
+ RType modeType = typeFromMode.execute(mode);
+ return getAndCheck(frame, xv, envir, modeType, true);
+ }
+
+ @Specialization(guards = "isInherits(inherits)")
+ protected Object getInherit(VirtualFrame frame, RAbstractStringVector xv, REnvironment envir, String mode, @SuppressWarnings("unused") byte inherits) {
+ controlVisibility();
+ Object result = getInherits(frame, xv, envir, mode, true);
+ return result;
+ }
+
+ }
+
+ @RBuiltin(name = "get0", kind = INTERNAL, parameterNames = {"x", "envir", "mode", "inherits", "ifnotfound"})
+ public abstract static class Get0 extends Adapter {
+ @Specialization(guards = "!isInherits(inherits)")
+ protected Object get0NonInherit(VirtualFrame frame, RAbstractStringVector xv, REnvironment envir, String mode, @SuppressWarnings("unused") byte inherits, Object ifnotfound) {
+ controlVisibility();
+ RType modeType = typeFromMode.execute(mode);
+ Object result = getAndCheck(frame, xv, envir, modeType, false);
+ if (result == null) {
+ result = ifnotfound;
+ }
+ return result;
+ }
+
+ @Specialization(guards = "isInherits(inherits)")
+ protected Object get0Inherit(VirtualFrame frame, RAbstractStringVector xv, REnvironment envir, String mode, @SuppressWarnings("unused") byte inherits, Object ifnotfound) {
+ controlVisibility();
+ Object result = getInherits(frame, xv, envir, mode, false);
+ if (result == null) {
+ result = ifnotfound;
}
+ return result;
}
}
@@ -151,7 +179,7 @@ public class GetFunctions {
final String[] names;
boolean complete = RDataFactory.COMPLETE_VECTOR;
- State(RStringVector xv, RAbstractStringVector mode, RList ifNotFound) {
+ State(RAbstractStringVector xv, RAbstractStringVector mode, RList ifNotFound) {
this.svLength = xv.getLength();
this.modeLength = mode.getLength();
this.ifNotFoundLength = ifNotFound.getLength();
@@ -176,7 +204,7 @@ public class GetFunctions {
}
}
- private State checkArgs(RStringVector xv, RAbstractStringVector mode, RList ifNotFound) {
+ private State checkArgs(RAbstractStringVector xv, RAbstractStringVector mode, RList ifNotFound) {
State state = new State(xv, mode, ifNotFound);
if (!(state.modeLength == 1 || state.modeLength == state.svLength)) {
wrongLengthErrorProfile.enter();
@@ -191,7 +219,7 @@ public class GetFunctions {
}
@Specialization(guards = "!isInherits(inherits)")
- protected RList mgetNonInherit(VirtualFrame frame, RStringVector xv, REnvironment env, RAbstractStringVector mode, RList ifNotFound, @SuppressWarnings("unused") byte inherits) {
+ protected RList mgetNonInherit(VirtualFrame frame, RAbstractStringVector xv, REnvironment env, RAbstractStringVector mode, RList ifNotFound, @SuppressWarnings("unused") byte inherits) {
controlVisibility();
State state = checkArgs(xv, mode, ifNotFound);
for (int i = 0; i < state.svLength; i++) {
@@ -209,7 +237,7 @@ public class GetFunctions {
}
@Specialization(guards = "isInherits(inherits)")
- protected RList mgetInherit(VirtualFrame frame, RStringVector xv, REnvironment envir, RAbstractStringVector mode, RList ifNotFound, @SuppressWarnings("unused") byte inherits) {
+ protected RList mgetInherit(VirtualFrame frame, RAbstractStringVector xv, REnvironment envir, RAbstractStringVector mode, RList ifNotFound, @SuppressWarnings("unused") byte inherits) {
controlVisibility();
State state = checkArgs(xv, mode, ifNotFound);
for (int i = 0; i < state.svLength; i++) {
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/HiddenInternalFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/HiddenInternalFunctions.java
index 2df69c8cbc..8ce6311f25 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/HiddenInternalFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/HiddenInternalFunctions.java
@@ -347,16 +347,16 @@ public class HiddenInternalFunctions {
@Override
protected void createCasts(CastBuilder casts) {
- casts.toInteger(3);
+ casts.toInteger(2).toInteger(3);
}
@Specialization
- protected RIntVector lazyLoadDBinsertValue(VirtualFrame frame, Object value, RAbstractStringVector file, byte asciiL, int compression, RFunction hook) {
+ protected RIntVector lazyLoadDBinsertValue(VirtualFrame frame, Object value, RAbstractStringVector file, int asciiL, int compression, RFunction hook) {
return lazyLoadDBinsertValueInternal(frame.materialize(), value, file, asciiL, compression, hook);
}
@TruffleBoundary
- private RIntVector lazyLoadDBinsertValueInternal(MaterializedFrame frame, Object value, RAbstractStringVector file, byte asciiL, int compression, RFunction hook) {
+ private RIntVector lazyLoadDBinsertValueInternal(MaterializedFrame frame, Object value, RAbstractStringVector file, int type, int compression, RFunction hook) {
if (!(compression == 1 || compression == 3)) {
throw RError.error(this, Message.GENERIC, "unsupported compression");
}
@@ -369,27 +369,27 @@ public class HiddenInternalFunctions {
};
try {
- byte[] data = RSerialize.serialize(value, RRuntime.fromLogical(asciiL), false, RSerialize.DEFAULT_VERSION, callHook);
+ byte[] data = RSerialize.serialize(value, type, RSerialize.DEFAULT_VERSION, callHook);
// See comment in LazyLoadDBFetch for format
int outLen;
int offset;
- RCompression.Type type;
+ RCompression.Type ctype;
byte[] cdata;
if (compression == 1) {
- type = RCompression.Type.GZIP;
+ ctype = RCompression.Type.GZIP;
offset = 4;
outLen = (int) (1.001 * data.length) + 20;
cdata = new byte[outLen];
- boolean rc = RCompression.compress(type, data, cdata);
+ boolean rc = RCompression.compress(ctype, data, cdata);
if (!rc) {
throw RError.error(this, Message.GENERIC, "zlib compress error");
}
} else if (compression == 3) {
- type = RCompression.Type.LZMA;
+ ctype = RCompression.Type.LZMA;
offset = 5;
outLen = data.length;
cdata = new byte[outLen];
- boolean rc = RCompression.compress(type, data, cdata);
+ boolean rc = RCompression.compress(ctype, data, cdata);
if (!rc) {
throw RError.error(this, Message.GENERIC, "lzma compress error");
}
@@ -398,7 +398,7 @@ public class HiddenInternalFunctions {
}
int[] intData = new int[2];
intData[1] = outLen + offset; // include length + type (compression == 3)
- intData[0] = appendFile(file.getDataAt(0), cdata, data.length, type);
+ intData[0] = appendFile(file.getDataAt(0), cdata, data.length, ctype);
return RDataFactory.createIntVector(intData, RDataFactory.COMPLETE_VECTOR);
} catch (Throwable ex) {
// Exceptions have been observed that were masked and very hard to find
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Lengths.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Lengths.java
new file mode 100644
index 0000000000..db6a0beeb4
--- /dev/null
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Lengths.java
@@ -0,0 +1,119 @@
+/*
+ * Copyright (c) 2016, 2016, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+package com.oracle.truffle.r.nodes.builtin.base;
+
+import java.util.Arrays;
+
+import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.dsl.Fallback;
+import com.oracle.truffle.api.dsl.Specialization;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.r.nodes.builtin.CastBuilder;
+import com.oracle.truffle.r.nodes.builtin.RBuiltinNode;
+import com.oracle.truffle.r.nodes.builtin.base.IsTypeFunctions.IsAtomic;
+import com.oracle.truffle.r.nodes.builtin.base.IsTypeFunctionsFactory.IsAtomicNodeGen;
+import com.oracle.truffle.r.runtime.RBuiltin;
+import com.oracle.truffle.r.runtime.RBuiltinKind;
+import com.oracle.truffle.r.runtime.RError;
+import com.oracle.truffle.r.runtime.RInternalError;
+import com.oracle.truffle.r.runtime.RRuntime;
+import com.oracle.truffle.r.runtime.data.RAttributeProfiles;
+import com.oracle.truffle.r.runtime.data.RDataFactory;
+import com.oracle.truffle.r.runtime.data.RDataFrame;
+import com.oracle.truffle.r.runtime.data.RIntVector;
+import com.oracle.truffle.r.runtime.data.RList;
+import com.oracle.truffle.r.runtime.data.RNull;
+import com.oracle.truffle.r.runtime.data.model.RAbstractVector;
+import com.oracle.truffle.r.runtime.nodes.RNode;
+
+@RBuiltin(name = "lengths", kind = RBuiltinKind.INTERNAL, parameterNames = {"x", "use.names"})
+public abstract class Lengths extends RBuiltinNode {
+ @Child IsAtomic isAtomicNode;
+ @Child private Length lengthNode;
+
+ RAttributeProfiles attrProfiles = RAttributeProfiles.create();
+
+ @Override
+ protected void createCasts(CastBuilder casts) {
+ casts.toLogical(1);
+ }
+
+ private void initLengthNode() {
+ if (lengthNode == null) {
+ CompilerDirectives.transferToInterpreterAndInvalidate();
+ lengthNode = insert(LengthNodeGen.create(new RNode[1], null, null));
+ }
+ }
+
+ @Specialization
+ protected RIntVector doList(VirtualFrame frame, RList list, byte useNames) {
+ initLengthNode();
+ int[] data = new int[list.getLength()];
+ for (int i = 0; i < data.length; i++) {
+ Object elem = list.getDataAt(i);
+ data[i] = lengthNode.executeInt(frame, elem);
+ }
+ return createResult(list, data, useNames);
+ }
+
+ @Specialization(guards = "isList(list)")
+ protected RIntVector doList(VirtualFrame frame, RDataFrame list, byte useNames) {
+ return doList(frame, (RList) list.getVector(), useNames);
+ }
+
+ @Specialization
+ protected RIntVector doNull(@SuppressWarnings("unused") RNull x, @SuppressWarnings("unused") byte useNames) {
+ return RDataFactory.createIntVectorFromScalar(1);
+ }
+
+ @Fallback
+ protected RIntVector doObject(VirtualFrame frame, Object x, Object useNames) {
+ if (isAtomicNode == null) {
+ isAtomicNode = insert(IsAtomicNodeGen.create(new RNode[1], null, null));
+ }
+ byte isAtomic = (byte) isAtomicNode.execute(frame, x);
+ if (!RRuntime.fromLogical(isAtomic)) {
+ throw RError.error(this, RError.Message.X_LIST_ATOMIC);
+ }
+ if (x instanceof RAbstractVector) {
+ RAbstractVector xa = (RAbstractVector) x;
+ int[] data = new int[xa.getLength()];
+ Arrays.fill(data, 1);
+ return createResult(xa, data, (byte) useNames);
+ } else {
+ throw RInternalError.unimplemented();
+ }
+ }
+
+ private RIntVector createResult(RAbstractVector x, int[] data, byte useNames) {
+ RIntVector result = RDataFactory.createIntVector(data, RDataFactory.COMPLETE_VECTOR);
+ if (RRuntime.fromLogical(useNames)) {
+ result.copyNamesFrom(attrProfiles, x);
+ }
+ return result;
+ }
+
+ public static boolean isList(RDataFrame dataFrame) {
+ return dataFrame.getVector() instanceof RList;
+ }
+}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/LoadSaveFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/LoadSaveFunctions.java
index 4212f158c1..b6a071e905 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/LoadSaveFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/LoadSaveFunctions.java
@@ -201,7 +201,7 @@ public class LoadSaveFunctions {
throw RError.error(this, RError.Message.CONN_XDR);
}
openConn.writeChar(ascii ? ASCII_HEADER : XDR_HEADER, 0, "", false);
- RSerialize.serialize(openConn, toSave, ascii, false, RSerialize.DEFAULT_VERSION, null);
+ RSerialize.serialize(openConn, toSave, ascii ? RSerialize.ASCII : RSerialize.XDR, RSerialize.DEFAULT_VERSION, null);
} catch (IOException ex) {
throw RError.error(this, RError.Message.GENERIC, ex.getMessage());
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Ls.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Ls.java
index 8dd55bdcf6..4e71066688 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Ls.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Ls.java
@@ -31,15 +31,14 @@ import com.oracle.truffle.r.runtime.*;
import com.oracle.truffle.r.runtime.data.*;
import com.oracle.truffle.r.runtime.env.*;
-@RBuiltin(name = "ls", aliases = {"objects"}, kind = INTERNAL, parameterNames = {"envir", "all.names"})
+@RBuiltin(name = "ls", aliases = {"objects"}, kind = INTERNAL, parameterNames = {"envir", "all.names", "sorted"})
public abstract class Ls extends RBuiltinNode {
@Specialization
@TruffleBoundary
- protected RStringVector ls(REnvironment envir, byte allNames) {
+ protected RStringVector ls(REnvironment envir, byte allNames, byte sorted) {
controlVisibility();
- // ls always sorts the result
- return envir.ls(RRuntime.fromLogical(allNames), null, true);
+ return envir.ls(RRuntime.fromLogical(allNames), null, RRuntime.fromLogical(sorted));
}
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Mapply.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Mapply.java
index 4feef08b25..121043bf46 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Mapply.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Mapply.java
@@ -128,6 +128,10 @@ public abstract class Mapply extends RBuiltinNode {
// TODO scalar types are a nuisance!
if (listElem instanceof String) {
vec = RDataFactory.createStringVectorFromScalar((String) listElem);
+ } else if (listElem instanceof Integer) {
+ vec = RDataFactory.createIntVectorFromScalar((int) listElem);
+ } else if (listElem instanceof Double) {
+ vec = RDataFactory.createDoubleVectorFromScalar((double) listElem);
} else {
throw RInternalError.unimplemented();
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NChar.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NChar.java
index 10c20b7dad..0226ae8ecb 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NChar.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NChar.java
@@ -33,13 +33,18 @@ import com.oracle.truffle.r.runtime.data.*;
import com.oracle.truffle.r.runtime.data.model.*;
// TODO interpret "type" and "allowNA" arguments
-@RBuiltin(name = "nchar", kind = INTERNAL, parameterNames = {"x", "type", "allowNA"})
+@RBuiltin(name = "nchar", kind = INTERNAL, parameterNames = {"x", "type", "allowNA", "keepNA"})
public abstract class NChar extends RBuiltinNode {
@Child private CastStringNode convertString;
private final RAttributeProfiles attrProfiles = RAttributeProfiles.create();
+ @Override
+ protected void createCasts(CastBuilder casts) {
+ casts.toLogical(2).toLogical(3);
+ }
+
private String coerceContent(Object content) {
if (convertString == null) {
CompilerDirectives.transferToInterpreterAndInvalidate();
@@ -54,49 +59,49 @@ public abstract class NChar extends RBuiltinNode {
@SuppressWarnings("unused")
@Specialization
- protected RIntVector nchar(RNull value, String type, byte allowNA) {
+ protected RIntVector nchar(RNull value, String type, byte allowNA, byte keepNA) {
controlVisibility();
return RDataFactory.createEmptyIntVector();
}
@SuppressWarnings("unused")
@Specialization
- protected int nchar(int value, String type, byte allowNA) {
+ protected int nchar(int value, String type, byte allowNA, byte keepNA) {
controlVisibility();
return coerceContent(value).length();
}
@SuppressWarnings("unused")
@Specialization
- protected int nchar(double value, String type, byte allowNA) {
+ protected int nchar(double value, String type, byte allowNA, byte keepNA) {
controlVisibility();
return coerceContent(value).length();
}
@SuppressWarnings("unused")
@Specialization
- protected int nchar(byte value, String type, byte allowNA) {
+ protected int nchar(byte value, String type, byte allowNA, byte keepNA) {
controlVisibility();
return coerceContent(value).length();
}
@SuppressWarnings("unused")
@Specialization(guards = "vector.getLength() == 0")
- protected RIntVector ncharL0(RAbstractStringVector vector, String type, byte allowNA) {
+ protected RIntVector ncharL0(RAbstractStringVector vector, String type, byte allowNA, byte keepNA) {
controlVisibility();
return RDataFactory.createEmptyIntVector();
}
@SuppressWarnings("unused")
@Specialization(guards = "vector.getLength() == 1")
- protected int ncharL1(RAbstractStringVector vector, String type, byte allowNA) {
+ protected int ncharL1(RAbstractStringVector vector, String type, byte allowNA, byte keepNA) {
controlVisibility();
return vector.getDataAt(0).length();
}
@SuppressWarnings("unused")
@Specialization(guards = "vector.getLength() > 1")
- protected RIntVector nchar(RAbstractStringVector vector, String type, byte allowNA) {
+ protected RIntVector nchar(RAbstractStringVector vector, String type, byte allowNA, byte keepNA) {
controlVisibility();
int len = vector.getLength();
int[] result = new int[len];
@@ -108,7 +113,7 @@ public abstract class NChar extends RBuiltinNode {
@SuppressWarnings("unused")
@Fallback
- protected RIntVector nchar(Object obj, Object type, Object allowNA) {
+ protected RIntVector nchar(Object obj, Object type, Object allowNA, Object keepNA) {
controlVisibility();
if (obj instanceof RFactor) {
throw RError.error(this, RError.Message.REQUIRES_CHAR_VECTOR, "nchar");
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NamespaceFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NamespaceFunctions.java
index d340eda99c..e9de672ff0 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NamespaceFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/NamespaceFunctions.java
@@ -36,9 +36,9 @@ public class NamespaceFunctions {
@RBuiltin(name = "getRegisteredNamespace", kind = INTERNAL, parameterNames = {"name"})
public abstract static class GetRegisteredNamespace extends RBuiltinNode {
@Specialization
- protected Object doGetRegisteredNamespace(String name) {
+ protected Object doGetRegisteredNamespace(RAbstractStringVector name) {
controlVisibility();
- Object result = REnvironment.getRegisteredNamespace(name);
+ Object result = REnvironment.getRegisteredNamespace(name.getDataAt(0));
if (result == null) {
return RNull.instance;
} else {
@@ -49,7 +49,37 @@ public class NamespaceFunctions {
@Specialization
protected Object doGetRegisteredNamespace(RSymbol name) {
controlVisibility();
- return doGetRegisteredNamespace(name.getName());
+ Object result = REnvironment.getRegisteredNamespace(name.getName());
+ if (result == null) {
+ return RNull.instance;
+ } else {
+ return result;
+ }
+ }
+ }
+
+ @RBuiltin(name = "isRegisteredNamespace", kind = INTERNAL, parameterNames = {"name"})
+ public abstract static class IsRegisteredNamespace extends RBuiltinNode {
+ @Specialization
+ protected byte doIsRegisteredNamespace(RAbstractStringVector name) {
+ controlVisibility();
+ Object result = REnvironment.getRegisteredNamespace(name.getDataAt(0));
+ if (result == null) {
+ return RRuntime.LOGICAL_FALSE;
+ } else {
+ return RRuntime.LOGICAL_TRUE;
+ }
+ }
+
+ @Specialization
+ protected Object doIsRegisteredNamespace(RSymbol name) {
+ controlVisibility();
+ Object result = REnvironment.getRegisteredNamespace(name.getName());
+ if (result == null) {
+ return RRuntime.LOGICAL_FALSE;
+ } else {
+ return RRuntime.LOGICAL_TRUE;
+ }
}
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Options.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Options.java
deleted file mode 100644
index 1297d59400..0000000000
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Options.java
+++ /dev/null
@@ -1,149 +0,0 @@
-/*
- * Copyright (c) 2014, 2016, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.r.nodes.builtin.base;
-
-import static com.oracle.truffle.r.runtime.RBuiltinKind.*;
-
-import java.util.*;
-
-import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
-import com.oracle.truffle.api.dsl.*;
-import com.oracle.truffle.api.profiles.*;
-import com.oracle.truffle.r.nodes.builtin.*;
-import com.oracle.truffle.r.runtime.*;
-import com.oracle.truffle.r.runtime.RError.Message;
-import com.oracle.truffle.r.runtime.ROptions.OptionsException;
-import com.oracle.truffle.r.runtime.context.*;
-import com.oracle.truffle.r.runtime.data.*;
-
-@RBuiltin(name = "options", kind = INTERNAL, parameterNames = {"..."})
-/**
- * This could be refactored using a recursive child node to handle simple cases, but it's unlikely to be the fast path.
- */
-public abstract class Options extends RBuiltinNode {
-
- private final ConditionProfile argNameNull = ConditionProfile.createBinaryProfile();
- private final RAttributeProfiles attrProfiles = RAttributeProfiles.create();
-
- @Specialization
- @TruffleBoundary
- protected RList options(@SuppressWarnings("unused") RMissing x) {
- controlVisibility();
- Set<Map.Entry<String, Object>> optionSettings = RContext.getInstance().stateROptions.getValues();
- Object[] data = new Object[optionSettings.size()];
- String[] names = new String[data.length];
- int i = 0;
- for (Map.Entry<String, Object> entry : optionSettings) {
- names[i] = entry.getKey();
- data[i] = entry.getValue();
- i++;
- }
- return RDataFactory.createList(data, RDataFactory.createStringVector(names, RDataFactory.COMPLETE_VECTOR));
- }
-
- @Specialization(guards = "isMissing(args)")
- protected Object optionsMissing(@SuppressWarnings("unused") RArgsValuesAndNames args) {
- return options(RMissing.instance);
- }
-
- @Specialization(guards = "!isMissing(args)")
- @TruffleBoundary
- protected Object options(RArgsValuesAndNames args) {
- try {
- ROptions.ContextStateImpl options = RContext.getInstance().stateROptions;
- Object[] values = args.getArguments();
- ArgumentsSignature signature = args.getSignature();
- Object[] data = new Object[values.length];
- String[] names = new String[values.length];
- for (int i = 0; i < values.length; i++) {
- String argName = signature.getName(i);
- Object value = values[i];
- if (argNameNull.profile(argName == null)) {
- // getting
- String optionName = null;
- if (value instanceof RStringVector) {
- optionName = ((RStringVector) value).getDataAt(0); // ignore rest (cf GnuR)
- } else if (value instanceof String) {
- optionName = (String) value;
- } else if (value instanceof RList) {
- // setting
- RList list = (RList) value;
- RStringVector thisListnames = null;
- Object nn = list.getNames(attrProfiles);
- if (nn instanceof RStringVector) {
- thisListnames = (RStringVector) nn;
- } else {
- throw RInternalError.shouldNotReachHere();
- }
- Object[] listData = new Object[list.getLength()];
- String[] listNames = new String[listData.length];
- for (int j = 0; j < listData.length; j++) {
- String name = thisListnames.getDataAt(j);
- Object previousVal = options.getValue(name);
- listData[j] = previousVal == null ? RNull.instance : previousVal;
- listNames[j] = name;
- options.setValue(name, list.getDataAtAsObject(j));
- }
- // if this is the only argument, no need to copy, can just return
- if (values.length == 1) {
- data = listData;
- names = listNames;
- break;
- } else {
- // resize and copy
- int newSize = values.length - 1 + listData.length;
- Object[] newData = new Object[newSize];
- String[] newNames = new String[newSize];
- System.arraycopy(data, 0, newData, 0, i);
- System.arraycopy(names, 0, newNames, 0, i);
- System.arraycopy(listData, 0, newData, i, listData.length);
- System.arraycopy(listNames, 0, newNames, i, listNames.length);
- data = newData;
- names = newNames;
- }
- } else {
- throw RError.error(this, Message.INVALID_UNNAMED_ARGUMENT);
- }
- Object optionVal = options.getValue(optionName);
- data[i] = optionVal == null ? RNull.instance : optionVal;
- names[i] = optionName;
- } else {
- // setting
- Object previousVal = options.getValue(argName);
- data[i] = previousVal == null ? RNull.instance : previousVal;
- names[i] = argName;
- options.setValue(argName, value);
- // any settings means result is invisible
- RContext.getInstance().setVisible(false);
- }
- }
- return RDataFactory.createList(data, RDataFactory.createStringVector(names, RDataFactory.COMPLETE_VECTOR));
- } catch (OptionsException ex) {
- throw RError.error(this, ex);
- }
- }
-
- protected boolean isMissing(RArgsValuesAndNames args) {
- return args.isEmpty(); // length() == 1 && args.getValue(0) == RMissing.instance;
- }
-}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/OptionsFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/OptionsFunctions.java
new file mode 100644
index 0000000000..d33c389f66
--- /dev/null
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/OptionsFunctions.java
@@ -0,0 +1,171 @@
+/*
+ * Copyright (c) 2014, 2016, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+package com.oracle.truffle.r.nodes.builtin.base;
+
+import static com.oracle.truffle.r.runtime.RBuiltinKind.*;
+
+import java.util.*;
+
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.api.dsl.*;
+import com.oracle.truffle.api.profiles.*;
+import com.oracle.truffle.r.nodes.builtin.*;
+import com.oracle.truffle.r.runtime.*;
+import com.oracle.truffle.r.runtime.RError.Message;
+import com.oracle.truffle.r.runtime.ROptions.OptionsException;
+import com.oracle.truffle.r.runtime.context.*;
+import com.oracle.truffle.r.runtime.data.*;
+import com.oracle.truffle.r.runtime.data.model.RAbstractStringVector;
+
+public class OptionsFunctions {
+ /*
+ * This could be refactored using a recursive child node to handle simple cases, but it's
+ * unlikely to be the fast path.
+ */
+ @RBuiltin(name = "options", kind = INTERNAL, parameterNames = {"..."})
+ public abstract static class Options extends RBuiltinNode {
+
+ private final ConditionProfile argNameNull = ConditionProfile.createBinaryProfile();
+ private final RAttributeProfiles attrProfiles = RAttributeProfiles.create();
+
+ @Specialization
+ @TruffleBoundary
+ protected RList options(@SuppressWarnings("unused") RMissing x) {
+ controlVisibility();
+ Set<Map.Entry<String, Object>> optionSettings = RContext.getInstance().stateROptions.getValues();
+ Object[] data = new Object[optionSettings.size()];
+ String[] names = new String[data.length];
+ int i = 0;
+ for (Map.Entry<String, Object> entry : optionSettings) {
+ names[i] = entry.getKey();
+ data[i] = entry.getValue();
+ i++;
+ }
+ return RDataFactory.createList(data, RDataFactory.createStringVector(names, RDataFactory.COMPLETE_VECTOR));
+ }
+
+ @Specialization(guards = "isMissing(args)")
+ protected Object optionsMissing(@SuppressWarnings("unused") RArgsValuesAndNames args) {
+ return options(RMissing.instance);
+ }
+
+ @Specialization(guards = "!isMissing(args)")
+ @TruffleBoundary
+ protected Object options(RArgsValuesAndNames args) {
+ try {
+ ROptions.ContextStateImpl options = RContext.getInstance().stateROptions;
+ Object[] values = args.getArguments();
+ ArgumentsSignature signature = args.getSignature();
+ Object[] data = new Object[values.length];
+ String[] names = new String[values.length];
+ for (int i = 0; i < values.length; i++) {
+ String argName = signature.getName(i);
+ Object value = values[i];
+ if (argNameNull.profile(argName == null)) {
+ // getting
+ String optionName = null;
+ if (value instanceof RStringVector) {
+ // ignore rest (cf GnuR)
+ optionName = ((RStringVector) value).getDataAt(0);
+ } else if (value instanceof String) {
+ optionName = (String) value;
+ } else if (value instanceof RList) {
+ // setting
+ RList list = (RList) value;
+ RStringVector thisListnames = null;
+ Object nn = list.getNames(attrProfiles);
+ if (nn instanceof RStringVector) {
+ thisListnames = (RStringVector) nn;
+ } else {
+ throw RInternalError.shouldNotReachHere();
+ }
+ Object[] listData = new Object[list.getLength()];
+ String[] listNames = new String[listData.length];
+ for (int j = 0; j < listData.length; j++) {
+ String name = thisListnames.getDataAt(j);
+ Object previousVal = options.getValue(name);
+ listData[j] = previousVal == null ? RNull.instance : previousVal;
+ listNames[j] = name;
+ options.setValue(name, list.getDataAtAsObject(j));
+ }
+ // if this is the only argument, no need to copy, can just return
+ if (values.length == 1) {
+ data = listData;
+ names = listNames;
+ break;
+ } else {
+ // resize and copy
+ int newSize = values.length - 1 + listData.length;
+ Object[] newData = new Object[newSize];
+ String[] newNames = new String[newSize];
+ System.arraycopy(data, 0, newData, 0, i);
+ System.arraycopy(names, 0, newNames, 0, i);
+ System.arraycopy(listData, 0, newData, i, listData.length);
+ System.arraycopy(listNames, 0, newNames, i, listNames.length);
+ data = newData;
+ names = newNames;
+ }
+ } else {
+ throw RError.error(this, Message.INVALID_UNNAMED_ARGUMENT);
+ }
+ Object optionVal = options.getValue(optionName);
+ data[i] = optionVal == null ? RNull.instance : optionVal;
+ names[i] = optionName;
+ } else {
+ // setting
+ Object previousVal = options.getValue(argName);
+ data[i] = previousVal == null ? RNull.instance : previousVal;
+ names[i] = argName;
+ options.setValue(argName, value);
+ // any settings means result is invisible
+ RContext.getInstance().setVisible(false);
+ }
+ }
+ return RDataFactory.createList(data, RDataFactory.createStringVector(names, RDataFactory.COMPLETE_VECTOR));
+ } catch (OptionsException ex) {
+ throw RError.error(this, ex);
+ }
+ }
+
+ protected boolean isMissing(RArgsValuesAndNames args) {
+ return args.isEmpty(); // length() == 1 && args.getValue(0) == RMissing.instance;
+ }
+ }
+
+ @RBuiltin(name = "getOption", kind = INTERNAL, parameterNames = "x")
+ public abstract static class GetOption extends RBuiltinNode {
+ @Specialization
+ protected Object getOption(RAbstractStringVector x) {
+ if (x.getLength() != 1) {
+ throw RError.error(this, RError.Message.MUST_BE_STRING);
+ }
+ ROptions.ContextStateImpl options = RContext.getInstance().stateROptions;
+ return options.getValue(x.getDataAt(0));
+ }
+
+ @Fallback
+ Object getOption(@SuppressWarnings("unused") Object x) {
+ throw RError.error(this, RError.Message.MUST_BE_STRING);
+ }
+ }
+}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Order.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Order.java
index 812743c670..12c5de4b22 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Order.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Order.java
@@ -45,7 +45,7 @@ public abstract class Order extends RPrecedenceBuiltinNode {
private OrderVector1Node initOrderVector1() {
if (orderVector1Node == null) {
- orderVector1Node = insert(OrderVector1NodeGen.create(null, null, null, null));
+ orderVector1Node = insert(OrderVector1NodeGen.create(null, null, null, null, null));
}
return orderVector1Node;
}
@@ -74,6 +74,13 @@ public abstract class Order extends RPrecedenceBuiltinNode {
return cmpNode.executeInt(v, i, j, naLast);
}
+ private byte checkLogicalArg(RAbstractLogicalVector arg, String name) {
+ if (arg.getLength() == 0 || arg.getDataAt(0) == RRuntime.LOGICAL_NA) {
+ throw RError.error(this, RError.Message.INVALID_ARGUMENT, name);
+ }
+ return arg.getDataAt(0);
+ }
+
@SuppressWarnings("unused")
@Specialization(guards = "noVec(args)")
Object orderEmpty(RAbstractLogicalVector naLastVec, RAbstractLogicalVector decVec, RArgsValuesAndNames args) {
@@ -86,22 +93,15 @@ public abstract class Order extends RPrecedenceBuiltinNode {
RAbstractIntVector v = (RAbstractIntVector) castVector(vectors[0]);
int n = v.getLength();
- byte naLastL = RRuntime.LOGICAL_TRUE;
- byte decL = RRuntime.LOGICAL_TRUE;
-
- if (naLastVec.getLength() == 0 || naLastVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- naLastL = RRuntime.LOGICAL_FALSE;
- }
- if (decVec.getLength() == 0 || decVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- decL = RRuntime.LOGICAL_FALSE;
- }
+ byte naLastL = checkLogicalArg(naLastVec, "na.last");
+ byte decL = checkLogicalArg(decVec, "decreasing");
int[] indx = new int[n];
for (int i = 0; i < indx.length; i++) {
indx[i] = i;
}
RIntVector indxVec = RDataFactory.createIntVector(indx, RDataFactory.COMPLETE_VECTOR);
- initOrderVector1().execute(indxVec, v, naLastL, decL);
+ initOrderVector1().execute(indxVec, v, naLastL, decL, null);
for (int i = 0; i < indx.length; i++) {
indx[i] = indx[i] + 1;
}
@@ -115,22 +115,15 @@ public abstract class Order extends RPrecedenceBuiltinNode {
RAbstractDoubleVector v = (RAbstractDoubleVector) castVector(vectors[0]);
int n = v.getLength();
- byte naLastL = RRuntime.LOGICAL_TRUE;
- byte decL = RRuntime.LOGICAL_TRUE;
-
- if (naLastVec.getLength() == 0 || naLastVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- naLastL = RRuntime.LOGICAL_FALSE;
- }
- if (decVec.getLength() == 0 || decVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- decL = RRuntime.LOGICAL_FALSE;
- }
+ byte naLastL = checkLogicalArg(naLastVec, "na.last");
+ byte decL = checkLogicalArg(decVec, "decreasing");
int[] indx = new int[n];
for (int i = 0; i < indx.length; i++) {
indx[i] = i;
}
RIntVector indxVec = RDataFactory.createIntVector(indx, RDataFactory.COMPLETE_VECTOR);
- initOrderVector1().execute(indxVec, v, naLastL, decL);
+ initOrderVector1().execute(indxVec, v, naLastL, decL, null);
for (int i = 0; i < indx.length; i++) {
indx[i] = indx[i] + 1;
}
@@ -151,22 +144,15 @@ public abstract class Order extends RPrecedenceBuiltinNode {
RAbstractStringVector v = (RAbstractStringVector) castVector(vectors[0]);
int n = v.getLength();
- byte naLastL = RRuntime.LOGICAL_TRUE;
- byte decL = RRuntime.LOGICAL_TRUE;
-
- if (naLastVec.getLength() == 0 || naLastVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- naLastL = RRuntime.LOGICAL_FALSE;
- }
- if (decVec.getLength() == 0 || decVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- decL = RRuntime.LOGICAL_FALSE;
- }
+ byte naLastL = checkLogicalArg(naLastVec, "na.last");
+ byte decL = checkLogicalArg(decVec, "decreasing");
int[] indx = new int[n];
for (int i = 0; i < indx.length; i++) {
indx[i] = i;
}
RIntVector indxVec = RDataFactory.createIntVector(indx, RDataFactory.COMPLETE_VECTOR);
- initOrderVector1().execute(indxVec, v, naLastL, decL);
+ initOrderVector1().execute(indxVec, v, naLastL, decL, null);
for (int i = 0; i < indx.length; i++) {
indx[i] = indx[i] + 1;
}
@@ -180,22 +166,15 @@ public abstract class Order extends RPrecedenceBuiltinNode {
RAbstractComplexVector v = (RAbstractComplexVector) castVector(vectors[0]);
int n = v.getLength();
- byte naLastL = RRuntime.LOGICAL_TRUE;
- byte decL = RRuntime.LOGICAL_TRUE;
-
- if (naLastVec.getLength() == 0 || naLastVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- naLastL = RRuntime.LOGICAL_FALSE;
- }
- if (decVec.getLength() == 0 || decVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- decL = RRuntime.LOGICAL_FALSE;
- }
+ byte naLastL = checkLogicalArg(naLastVec, "na.last");
+ byte decL = checkLogicalArg(decVec, "decreasing");
int[] indx = new int[n];
for (int i = 0; i < indx.length; i++) {
indx[i] = i;
}
RIntVector indxVec = RDataFactory.createIntVector(indx, RDataFactory.COMPLETE_VECTOR);
- initOrderVector1().execute(indxVec, v, naLastL, decL);
+ initOrderVector1().execute(indxVec, v, naLastL, decL, null);
for (int i = 0; i < indx.length; i++) {
indx[i] = indx[i] + 1;
}
@@ -203,6 +182,25 @@ public abstract class Order extends RPrecedenceBuiltinNode {
return RDataFactory.createIntVector(indx, RDataFactory.COMPLETE_VECTOR);
}
+ @SuppressWarnings("unused")
+ @Specialization(guards = {"oneVec(args)", "isFirstListPrecedence( args)"})
+ Object orderList(RAbstractLogicalVector naLastVec, RAbstractLogicalVector decVec, RArgsValuesAndNames args) {
+ /*
+ * Lists are not actually supported by GnuR but there is a corner case of a length < 2 list
+ * that produces a result in GnuR and there is a unit test for that (when called via
+ * .Internal)
+ */
+ RList list = (RList) args.getArgument(0);
+ switch (list.getLength()) {
+ case 0:
+ return RDataFactory.createIntVector(0);
+ case 1:
+ return RDataFactory.createIntVectorFromScalar(1);
+ default:
+ throw RError.error(RError.NO_CALLER, RError.Message.UNIMPLEMENTED_TYPE_IN_FUNCTION, "list", "orderVector1");
+ }
+ }
+
private int preprocessVectors(RArgsValuesAndNames args, ValueProfile lengthProfile) {
Object[] vectors = args.getArguments();
RAbstractVector v = castVector(vectors[0]);
@@ -225,21 +223,14 @@ public abstract class Order extends RPrecedenceBuiltinNode {
@Cached("createEqualityProfile()") ValueProfile lengthProfile) {
int n = preprocessVectors(args, lengthProfile);
- byte naLast = RRuntime.LOGICAL_TRUE;
- boolean dec = true;
-
- if (naLastVec.getLength() == 0 || naLastVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- naLast = RRuntime.LOGICAL_FALSE;
- }
- if (decVec.getLength() == 0 || decVec.getDataAt(0) == RRuntime.LOGICAL_FALSE) {
- dec = false;
- }
+ byte naLastL = checkLogicalArg(naLastVec, "na.last");
+ byte decL = checkLogicalArg(decVec, "decreasing");
int[] indx = new int[n];
for (int i = 0; i < indx.length; i++) {
indx[i] = i;
}
- orderVector(indx, args.getArguments(), naLast, dec);
+ orderVector(indx, args.getArguments(), naLastL, RRuntime.fromLogical(decL));
for (int i = 0; i < indx.length; i++) {
indx[i] = indx[i] + 1;
}
@@ -286,42 +277,48 @@ public abstract class Order extends RPrecedenceBuiltinNode {
}
/**
- * Also used by {@link Rank}.
+ * Also used by {@link Rank}, where the "rho" parameter is not null. TODO handle S4 objects
+ * (which involves rho)
*/
- @NodeChildren({@NodeChild("indx"), @NodeChild("dv"), @NodeChild("naLast"), @NodeChild("dec")})
+ @NodeChildren({@NodeChild("indx"), @NodeChild("dv"), @NodeChild("naLast"), @NodeChild("dec"), @NodeChild("rho")})
abstract static class OrderVector1Node extends RNode {
private final ConditionProfile decProfile = ConditionProfile.createBinaryProfile();
- public abstract Object execute(Object v, Object dv, byte naLast, byte dec);
+ public abstract Object execute(Object v, Object dv, byte naLast, byte dec, Object rho);
@Specialization
- protected Object orderVector1(RIntVector indxVec, RAbstractIntVector dv, byte naLastL, byte decL) {
+ protected Object orderVector1(RIntVector indxVec, RAbstractIntVector dv, byte naLastL, byte decL, Object rho) {
+ if (indxVec.getLength() < 2) {
+ return indxVec;
+ }
int[] indx = indxVec.getDataWithoutCopying();
boolean naLast = RRuntime.fromLogical(naLastL);
boolean dec = RRuntime.fromLogical(decL);
int lo = 0;
int hi = indx.length - 1;
- int numNa = 0;
- if (!dv.isComplete()) {
- boolean[] isNa = new boolean[indx.length];
- for (int i = 0; i < isNa.length; i++) {
- if (RRuntime.isNA(dv.getDataAt(i))) {
- isNa[i] = true;
- numNa++;
+ if (rho == null) {
+ int numNa = 0;
+ if (!dv.isComplete()) {
+ boolean[] isNa = new boolean[indx.length];
+ for (int i = 0; i < isNa.length; i++) {
+ if (RRuntime.isNA(dv.getDataAt(i))) {
+ isNa[i] = true;
+ numNa++;
+ }
}
- }
- if (numNa > 0) {
- if (!naLast) {
- for (int i = 0; i < isNa.length; i++) {
- isNa[i] = !isNa[i];
+ if (numNa > 0) {
+ if (!naLast) {
+ for (int i = 0; i < isNa.length; i++) {
+ isNa[i] = !isNa[i];
+ }
+ }
+ sortNA(indx, isNa, lo, hi);
+ if (naLast) {
+ hi -= numNa;
+ } else {
+ lo += numNa;
}
- }
- sortNA(indx, isNa, lo, hi);
- if (naLast) {
- hi -= numNa;
- } else {
- lo += numNa;
}
}
}
@@ -331,51 +328,20 @@ public abstract class Order extends RPrecedenceBuiltinNode {
}
@Specialization
- protected Object orderVector1(RIntVector indxVec, RAbstractDoubleVector dv, byte naLastL, byte decL) {
- int[] indx = indxVec.getDataWithoutCopying();
- boolean naLast = RRuntime.fromLogical(naLastL);
- boolean dec = RRuntime.fromLogical(decL);
- int lo = 0;
- int hi = indx.length - 1;
- int numNa = 0;
- boolean[] isNa = new boolean[indx.length];
- for (int i = 0; i < isNa.length; i++) {
- if (RRuntime.isNAorNaN(dv.getDataAt(i))) {
- isNa[i] = true;
- numNa++;
- }
+ protected Object orderVector1(RIntVector indxVec, RAbstractDoubleVector dv, byte naLastL, byte decL, Object rho) {
+ if (indxVec.getLength() < 2) {
+ return indxVec;
}
-
- if (numNa > 0) {
- if (!naLast) {
- for (int i = 0; i < isNa.length; i++) {
- isNa[i] = !isNa[i];
- }
- }
- sortNA(indx, isNa, lo, hi);
- if (naLast) {
- hi -= numNa;
- } else {
- lo += numNa;
- }
- }
-
- sort(indx, dv, lo, hi, dec);
- return indxVec;
- }
-
- @Specialization
- protected Object orderVector1(RIntVector indxVec, RAbstractStringVector dv, byte naLastL, byte decL) {
int[] indx = indxVec.getDataWithoutCopying();
boolean naLast = RRuntime.fromLogical(naLastL);
boolean dec = RRuntime.fromLogical(decL);
int lo = 0;
int hi = indx.length - 1;
- int numNa = 0;
- if (!dv.isComplete()) {
+ if (rho == null) {
+ int numNa = 0;
boolean[] isNa = new boolean[indx.length];
for (int i = 0; i < isNa.length; i++) {
- if (RRuntime.isNA(dv.getDataAt(i))) {
+ if (RRuntime.isNAorNaN(dv.getDataAt(i))) {
isNa[i] = true;
numNa++;
}
@@ -401,33 +367,79 @@ public abstract class Order extends RPrecedenceBuiltinNode {
}
@Specialization
- protected Object orderVector1(RIntVector indxVec, RAbstractComplexVector dv, byte naLastL, byte decL) {
+ protected Object orderVector1(RIntVector indxVec, RAbstractStringVector dv, byte naLastL, byte decL, Object rho) {
+ if (indxVec.getLength() < 2) {
+ return indxVec;
+ }
int[] indx = indxVec.getDataWithoutCopying();
boolean naLast = RRuntime.fromLogical(naLastL);
boolean dec = RRuntime.fromLogical(decL);
int lo = 0;
int hi = indx.length - 1;
- int numNa = 0;
- if (!dv.isComplete()) {
- boolean[] isNa = new boolean[indx.length];
- for (int i = 0; i < isNa.length; i++) {
- if (RRuntime.isNA(dv.getDataAt(i))) {
- isNa[i] = true;
- numNa++;
+ if (rho == null) {
+ int numNa = 0;
+ if (!dv.isComplete()) {
+ boolean[] isNa = new boolean[indx.length];
+ for (int i = 0; i < isNa.length; i++) {
+ if (RRuntime.isNA(dv.getDataAt(i))) {
+ isNa[i] = true;
+ numNa++;
+ }
+ }
+
+ if (numNa > 0) {
+ if (!naLast) {
+ for (int i = 0; i < isNa.length; i++) {
+ isNa[i] = !isNa[i];
+ }
+ }
+ sortNA(indx, isNa, lo, hi);
+ if (naLast) {
+ hi -= numNa;
+ } else {
+ lo += numNa;
+ }
}
}
+ }
- if (numNa > 0) {
- if (!naLast) {
- for (int i = 0; i < isNa.length; i++) {
- isNa[i] = !isNa[i];
+ sort(indx, dv, lo, hi, dec);
+ return indxVec;
+ }
+
+ @Specialization
+ protected Object orderVector1(RIntVector indxVec, RAbstractComplexVector dv, byte naLastL, byte decL, Object rho) {
+ if (indxVec.getLength() < 2) {
+ return indxVec;
+ }
+ int[] indx = indxVec.getDataWithoutCopying();
+ boolean naLast = RRuntime.fromLogical(naLastL);
+ boolean dec = RRuntime.fromLogical(decL);
+ int lo = 0;
+ int hi = indx.length - 1;
+ if (rho == null) {
+ int numNa = 0;
+ if (!dv.isComplete()) {
+ boolean[] isNa = new boolean[indx.length];
+ for (int i = 0; i < isNa.length; i++) {
+ if (RRuntime.isNA(dv.getDataAt(i))) {
+ isNa[i] = true;
+ numNa++;
}
}
- sortNA(indx, isNa, lo, hi);
- if (naLast) {
- hi -= numNa;
- } else {
- lo += numNa;
+
+ if (numNa > 0) {
+ if (!naLast) {
+ for (int i = 0; i < isNa.length; i++) {
+ isNa[i] = !isNa[i];
+ }
+ }
+ sortNA(indx, isNa, lo, hi);
+ if (naLast) {
+ hi -= numNa;
+ } else {
+ lo += numNa;
+ }
}
}
}
@@ -436,6 +448,13 @@ public abstract class Order extends RPrecedenceBuiltinNode {
return indxVec;
}
+ @SuppressWarnings("unused")
+ @Specialization
+ protected Object orderVector1(RIntVector indxVec, RList dv, byte naLastL, byte decL, Object rho) {
+ /* Only needed to satisfy .Internal(rank) in unit test */
+ return indxVec;
+ }
+
private void sort(int[] indx, RAbstractDoubleVector dv, int lo, int hi, boolean dec) {
int t = 0;
for (; SINCS[t] > hi - lo + 1; t++) {
@@ -617,6 +636,10 @@ public abstract class Order extends RPrecedenceBuiltinNode {
return isComplexPrecedence(args.getArgument(0));
}
+ protected boolean isFirstListPrecedence(RArgsValuesAndNames args) {
+ return isListPrecedence(args.getArgument(0));
+ }
+
protected boolean noVec(RArgsValuesAndNames args) {
return args.isEmpty();
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Rank.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Rank.java
index a1d23026cf..df064fc410 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Rank.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Rank.java
@@ -3,8 +3,9 @@
* Version 2. You may review the terms of this license at
* http://www.gnu.org/licenses/gpl-2.0.html
*
- * Copyright (c) 1995, 1996 Robert Gentleman and Ross Ihaka
- * Copyright (c) 1997-2013, The R Core Team
+ * Copyright (c) 1995, 1996, 1997 Robert Gentleman and Ross Ihaka
+ * Copyright (c) 1995-2014, The R Core Team
+ * Copyright (c) 2002-2008, The R Foundation
* Copyright (c) 2016, Oracle and/or its affiliates
*
* All rights reserved.
@@ -24,6 +25,8 @@ 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.RRawVector;
+import com.oracle.truffle.r.runtime.data.closures.RClosures;
+import com.oracle.truffle.r.runtime.data.model.RAbstractLogicalVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractStringVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractVector;
@@ -32,6 +35,8 @@ public abstract class Rank extends RBuiltinNode {
@Child Order.OrderVector1Node orderVector1Node;
@Child Order.CmpNode orderCmpNode;
+ private static final Object rho = new Object();
+
private enum TiesKind {
AVERAGE,
MAX,
@@ -45,7 +50,7 @@ public abstract class Rank extends RBuiltinNode {
Order.OrderVector1Node initOrderVector1() {
if (orderVector1Node == null) {
- orderVector1Node = insert(OrderVector1NodeGen.create(null, null, null, null));
+ orderVector1Node = insert(OrderVector1NodeGen.create(null, null, null, null, null));
}
return orderVector1Node;
}
@@ -58,11 +63,11 @@ public abstract class Rank extends RBuiltinNode {
}
@Specialization
- protected Object rank(RAbstractVector x, int n, RAbstractStringVector tiesMethod) {
+ protected Object rank(RAbstractVector xa, int n, RAbstractStringVector tiesMethod) {
if (n < 0 || RRuntime.isNA(n)) {
throw RError.error(this, RError.Message.INVALID_ARGUMENT, "length(xx)");
}
- if (x instanceof RRawVector) {
+ if (xa instanceof RRawVector) {
throw RError.error(this, RError.Message.RAW_SORT);
}
TiesKind tiesKind;
@@ -94,7 +99,8 @@ public abstract class Rank extends RBuiltinNode {
indx[i] = i;
}
RIntVector indxVec = RDataFactory.createIntVector(indx, RDataFactory.COMPLETE_VECTOR);
- initOrderVector1().execute(indxVec, x, RRuntime.LOGICAL_TRUE, RRuntime.LOGICAL_FALSE);
+ RAbstractVector x = xa instanceof RAbstractLogicalVector ? RClosures.createLogicalToIntVector((RAbstractLogicalVector) xa) : xa;
+ initOrderVector1().execute(indxVec, x, RRuntime.LOGICAL_TRUE, RRuntime.LOGICAL_FALSE, rho);
initOrderCmp();
int j;
for (int i = 0; i < n; i = j + 1) {
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/SerializeFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/SerializeFunctions.java
index 9d38721c38..e590548151 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/SerializeFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/SerializeFunctions.java
@@ -52,18 +52,17 @@ public class SerializeFunctions {
}
@TruffleBoundary
- protected Object doSerializeToConnBase(Object object, RConnection conn, byte asciiLogical, byte xdrLogical, @SuppressWarnings("unused") RNull version, @SuppressWarnings("unused") RNull refhook) {
+ protected Object doSerializeToConnBase(Object object, RConnection conn, int type, byte xdrLogical, @SuppressWarnings("unused") RNull version, @SuppressWarnings("unused") RNull refhook) {
controlVisibility();
- boolean ascii = RRuntime.fromLogical(asciiLogical);
// xdr is only relevant if ascii is false
- try (RConnection openConn = conn.forceOpen(ascii ? "wt" : "wb")) {
+ try (RConnection openConn = conn.forceOpen(type != RSerialize.XDR ? "wt" : "wb")) {
if (!openConn.canWrite()) {
throw RError.error(this, RError.Message.CONNECTION_NOT_OPEN_WRITE);
}
- if (!ascii && openConn.isTextMode()) {
+ if (type == RSerialize.XDR && openConn.isTextMode()) {
throw RError.error(this, RError.Message.BINARY_CONNECTION_REQUIRED);
}
- RSerialize.serialize(openConn, object, ascii, RRuntime.fromLogical(xdrLogical), RSerialize.DEFAULT_VERSION, null);
+ RSerialize.serialize(openConn, object, type, RSerialize.DEFAULT_VERSION, null);
return RNull.instance;
} catch (IOException ex) {
throw RError.error(this, RError.Message.GENERIC, ex.getMessage());
@@ -89,7 +88,15 @@ public class SerializeFunctions {
public abstract static class SerializeToConn extends Adapter {
@Specialization
protected Object doSerializeToConn(Object object, RConnection conn, byte asciiLogical, RNull version, RNull refhook) {
- return doSerializeToConnBase(object, conn, asciiLogical, RRuntime.LOGICAL_NA, version, refhook);
+ int type;
+ if (asciiLogical == RRuntime.LOGICAL_NA) {
+ type = RSerialize.ASCII_HEX;
+ } else if (asciiLogical == RRuntime.LOGICAL_TRUE) {
+ type = RSerialize.ASCII;
+ } else {
+ type = RSerialize.XDR;
+ }
+ return doSerializeToConnBase(object, conn, type, RRuntime.LOGICAL_NA, version, refhook);
}
}
@@ -103,17 +110,17 @@ public class SerializeFunctions {
}
}
- @RBuiltin(name = "serialize", kind = INTERNAL, parameterNames = {"object", "conn", "ascii", "version", "refhook"})
+ @RBuiltin(name = "serialize", kind = INTERNAL, parameterNames = {"object", "conn", "type", "version", "refhook"})
public abstract static class Serialize extends Adapter {
@Specialization
- protected Object serialize(Object object, RConnection conn, byte asciiLogical, RNull version, RNull refhook) {
- return doSerializeToConnBase(object, conn, asciiLogical, RRuntime.LOGICAL_NA, version, refhook);
+ protected Object serialize(Object object, RConnection conn, int type, RNull version, RNull refhook) {
+ return doSerializeToConnBase(object, conn, type, RRuntime.LOGICAL_NA, version, refhook);
}
@SuppressWarnings("unused")
@Specialization
- protected Object serialize(Object object, RNull conn, byte asciiLogical, RNull version, RNull refhook) {
- byte[] data = RSerialize.serialize(object, RRuntime.fromLogical(asciiLogical), false, RSerialize.DEFAULT_VERSION, null);
+ protected Object serialize(Object object, RNull conn, int type, RNull version, RNull refhook) {
+ byte[] data = RSerialize.serialize(object, type, RSerialize.DEFAULT_VERSION, null);
return RDataFactory.createRawVector(data);
}
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/foreign/ForeignFunctions.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/foreign/ForeignFunctions.java
index e4f2f95411..a332219b8a 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/foreign/ForeignFunctions.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/foreign/ForeignFunctions.java
@@ -290,6 +290,24 @@ public class ForeignFunctions {
return SplineCoefNodeGen.create();
case "SplineEval":
return SplineEvalNodeGen.create();
+ case "pnorm":
+ return StatsFunctionsFactory.Function3_2NodeGen.create(new Pnorm());
+ case "qnorm":
+ return StatsFunctionsFactory.Function3_2NodeGen.create(new Qnorm());
+ case "rnorm":
+ return RnormNodeGen.create();
+ case "runif":
+ return RunifNodeGen.create();
+ case "qgamma":
+ return QgammaNodeGen.create();
+ case "dbinom":
+ return StatsFunctionsFactory.Function3_1NodeGen.create(new Dbinom());
+ case "qbinom":
+ return StatsFunctionsFactory.Function3_2NodeGen.create(new Qbinom());
+ case "rbinom":
+ return RbinomNodeGen.create();
+ case "pbinom":
+ return StatsFunctionsFactory.Function3_2NodeGen.create(new Pbinom());
case "cutree":
case "isoreg":
case "monoFC_m":
@@ -492,24 +510,6 @@ public class ForeignFunctions {
return new CountFields();
case "readtablehead":
return new ReadTableHead();
- case "pnorm":
- return StatsFunctionsFactory.Function3_2NodeGen.create(new Pnorm());
- case "qnorm":
- return StatsFunctionsFactory.Function3_2NodeGen.create(new Qnorm());
- case "rnorm":
- return RnormNodeGen.create();
- case "runif":
- return RunifNodeGen.create();
- case "qgamma":
- return QgammaNodeGen.create();
- case "dbinom":
- return StatsFunctionsFactory.Function3_1NodeGen.create(new Dbinom());
- case "qbinom":
- return StatsFunctionsFactory.Function3_2NodeGen.create(new Qbinom());
- case "rbinom":
- return RbinomNodeGen.create();
- case "pbinom":
- return StatsFunctionsFactory.Function3_2NodeGen.create(new Pbinom());
case "download":
return new Download();
case "unzip":
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/access/FrameSlotNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/access/FrameSlotNode.java
index 0717adf1f3..42ca449d57 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/access/FrameSlotNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/access/FrameSlotNode.java
@@ -144,7 +144,7 @@ public abstract class FrameSlotNode extends RBaseNode {
}
}
- private static final class PresentFrameSlotNode extends FrameSlotNode {
+ public static final class PresentFrameSlotNode extends FrameSlotNode {
private final ConditionProfile isObjectProfile = ConditionProfile.createBinaryProfile();
private final ConditionProfile isNullProfile = ConditionProfile.createBinaryProfile();
@@ -156,6 +156,10 @@ public abstract class FrameSlotNode extends RBaseNode {
this.frameSlot = frameSlot;
}
+ public FrameSlot getFrameSlot() {
+ return frameSlot;
+ }
+
@Override
public FrameSlot executeFrameSlot(Frame frame) {
return frameSlot;
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/binary/BinaryBooleanNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/binary/BinaryBooleanNode.java
index 3da8e3d204..cce58941c3 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/binary/BinaryBooleanNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/binary/BinaryBooleanNode.java
@@ -177,11 +177,26 @@ public abstract class BinaryBooleanNode extends RBuiltinNode {
}
@SuppressWarnings("unused")
- @Specialization(guards = {"(isRNull(left) || isEmpty(left)) || (isRNull(right) || isEmpty(right))"})
+ @Specialization(guards = {"isRNullOrEmptyAndNotMissing(left, right)"})
protected static Object doEmptyOrNull(Object left, Object right) {
return RType.Logical.getEmpty();
}
+ @SuppressWarnings("unused")
+ @Specialization(guards = {"(isRMissing(left) || isRMissing(right))"})
+ protected Object doOneArg(Object left, Object right) {
+ RBuiltinFactory builtin = getBuiltin();
+ throw RError.error(this, RError.Message.IS_OF_WRONG_ARITY, 1, builtin.getName(), 2);
+ }
+
+ protected static boolean isRNullOrEmptyAndNotMissing(Object left, Object right) {
+ return (isRNullOrEmpty(left) || isRNullOrEmpty(right)) && !(isRMissing(left) || isRMissing(right));
+ }
+
+ protected static boolean isRNullOrEmpty(Object value) {
+ return isRNull(value) || isEmpty(value);
+ }
+
protected static boolean isEmpty(Object value) {
return (isRAbstractVector(value) && ((RAbstractVector) value).getLength() == 0);
}
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/RExternalBuiltinNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/RExternalBuiltinNode.java
index ae77c6a5eb..8e392b99ae 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/RExternalBuiltinNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/RExternalBuiltinNode.java
@@ -217,4 +217,15 @@ public abstract class RExternalBuiltinNode extends RBaseNode {
return execute(castArg(args, 0), castArg(args, 1), castArg(args, 2), castArg(args, 3), castArg(args, 4), castArg(args, 5), castArg(args, 6), castArg(args, 7));
}
}
+
+ public abstract static class Arg9 extends RExternalBuiltinNode {
+
+ public abstract Object execute(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7, Object arg8, Object arg9);
+
+ @Override
+ public final Object call(RArgsValuesAndNames args) {
+ checkLength(args, 9);
+ return execute(castArg(args, 0), castArg(args, 1), castArg(args, 2), castArg(args, 3), castArg(args, 4), castArg(args, 5), castArg(args, 6), castArg(args, 7), castArg(args, 8));
+ }
+ }
}
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/RList2EnvNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/RList2EnvNode.java
index 4acca084fc..ba7f380257 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/RList2EnvNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/builtin/RList2EnvNode.java
@@ -39,6 +39,9 @@ public abstract class RList2EnvNode extends RBaseNode {
@Specialization
protected REnvironment doList2Env(RList list, REnvironment env) {
+ if (list.getLength() == 0) {
+ return env;
+ }
RStringVector names = list.getNames();
if (names == null) {
throw RError.error(this, RError.Message.LIST_NAMES_SAME_LENGTH);
diff --git a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/ClassHierarchyNode.java b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/ClassHierarchyNode.java
index b798c97bb8..766c97bdc3 100644
--- a/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/ClassHierarchyNode.java
+++ b/com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/function/ClassHierarchyNode.java
@@ -38,6 +38,7 @@ import com.oracle.truffle.r.nodes.unary.UnaryNode;
import com.oracle.truffle.r.runtime.RInternalError;
import com.oracle.truffle.r.runtime.RRuntime;
import com.oracle.truffle.r.runtime.context.RContext;
+import com.oracle.truffle.r.runtime.data.RArgsValuesAndNames;
import com.oracle.truffle.r.runtime.data.RAttributable;
import com.oracle.truffle.r.runtime.data.RAttributeStorage;
import com.oracle.truffle.r.runtime.data.RAttributes;
@@ -151,6 +152,11 @@ public abstract class ClassHierarchyNode extends UnaryNode {
return truffleObjectClassHeader;
}
+ @Specialization
+ protected RStringVector getClassHrVarArgs(RArgsValuesAndNames args) {
+ return RDataFactory.createEmptyStringVector();
+ }
+
@Fallback
protected RStringVector getClassHr(Object obj) {
throw RInternalError.shouldNotReachHere("type: " + (obj == null ? "null" : obj.getClass().getSimpleName()));
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 302407bc04..41552050b2 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
@@ -286,14 +286,6 @@ public final class RCallNode extends RSourceSectionNode implements RSyntaxNode,
arguments.v[index] = value;
}
- @Override
- public Node deepCopy() {
- RCallNode copy = (RCallNode) super.deepCopy();
- // execution (frame) specific due to temp identifiers, so reset
- copy.internalDispatchCall = null;
- return copy;
- }
-
@Override
public Object execute(VirtualFrame frame) {
return execute(frame, executeFunctionNode(frame));
@@ -304,6 +296,14 @@ public final class RCallNode extends RSourceSectionNode implements RSyntaxNode,
return e.getMessage() != null ? e.getMessage() : e.toString();
}
+ @Override
+ public Node deepCopy() {
+ RCallNode copy = (RCallNode) super.deepCopy();
+ // execution (frame) specific due to temp identifiers, so reset
+ copy.internalDispatchCall = null;
+ return copy;
+ }
+
public Object execute(VirtualFrame frame, Object functionObject) {
RFunction function;
if (isRFunctionProfile.profile(functionObject instanceof RFunction)) {
diff --git a/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/generic/Generic_Tools.java b/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/generic/Generic_Tools.java
index 3c1e19f091..d32053e815 100644
--- a/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/generic/Generic_Tools.java
+++ b/com.oracle.truffle.r.runtime.ffi/src/com/oracle/truffle/r/runtime/ffi/generic/Generic_Tools.java
@@ -63,12 +63,13 @@ public class Generic_Tools implements ToolsRFFI {
private static final Semaphore parseRdCritical = new Semaphore(1, false);
- public Object parseRd(RConnection con, REnvironment srcfile, RLogicalVector verbose, RLogicalVector fragment, RStringVector basename, RLogicalVector warningCalls) {
+ public Object parseRd(RConnection con, REnvironment srcfile, RLogicalVector verbose, RLogicalVector fragment, RStringVector basename, RLogicalVector warningCalls, Object macros,
+ RLogicalVector warndups) {
// The C code is not thread safe.
try {
parseRdCritical.acquire();
SymbolInfo parseRd = ToolsProvider.toolsProvider().getParseRd();
- return RFFIFactory.getRFFI().getCallRFFI().invokeCall(parseRd.address, parseRd.symbol, new Object[]{con, srcfile, verbose, fragment, basename, warningCalls});
+ return RFFIFactory.getRFFI().getCallRFFI().invokeCall(parseRd.address, parseRd.symbol, new Object[]{con, srcfile, verbose, fragment, basename, warningCalls, macros, warndups});
} catch (Throwable ex) {
throw RInternalError.shouldNotReachHere();
} finally {
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RChannel.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RChannel.java
index 2256112edf..eaa5032f66 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RChannel.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RChannel.java
@@ -229,7 +229,7 @@ public class RChannel {
return o;
}
} else {
- return RSerialize.serialize(o, false, true, RSerialize.DEFAULT_VERSION, null);
+ return RSerialize.serialize(o, RSerialize.XDR, RSerialize.DEFAULT_VERSION, null);
}
}
@@ -298,7 +298,7 @@ public class RChannel {
throw RError.error(RError.SHOW_CALLER2, RError.Message.GENERIC, "error creating channel message");
}
} else {
- msg = RSerialize.serialize(msg, false, true, RSerialize.DEFAULT_VERSION, null);
+ msg = RSerialize.serialize(msg, RSerialize.XDR, RSerialize.DEFAULT_VERSION, null);
}
try {
int i = 0;
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RDeparse.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RDeparse.java
index df891dbce7..b3f5322abd 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RDeparse.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RDeparse.java
@@ -570,7 +570,7 @@ public class RDeparse {
break;
case LISTSXP: {
- state.append("list(");
+ state.append("pairlist(");
RPairList s = (RPairList) obj;
RPairList t = s;
while (t != null && t.cdr() != RNull.instance) {
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RError.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RError.java
index 55788818a2..41c06849ac 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RError.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RError.java
@@ -167,7 +167,7 @@ public final class RError extends RuntimeException {
assert node != null;
// thrown from a builtin specified by "node"
RErrorHandling.signalError(node, msg, args);
- return RErrorHandling.errorcallDflt(true, node, msg, args);
+ return RErrorHandling.errorcallDflt(node != NO_CALLER, node, msg, args);
}
/**
@@ -289,8 +289,10 @@ public final class RError extends RuntimeException {
ONLY_MATRIX_DIAGONALS("only matrix diagonals can be replaced"),
REPLACEMENT_DIAGONAL_LENGTH("replacement diagonal has wrong length"),
NA_INTRODUCED_COERCION("NAs introduced by coercion"),
+ NA_INTRODUCED_COERCION_INT("NAs introduced by coercion to integer range"),
ARGUMENT_WHICH_NOT_LOGICAL("argument to 'which' is not logical"),
X_NUMERIC("'x' must be numeric"),
+ X_LIST_ATOMIC("'x' must be list or atomic vector"),
X_ARRAY_TWO("'x' must be an array of at least two dimensions"),
ACCURACY_MODULUS("probable complete loss of accuracy in modulus"),
INVALID_SEPARATOR("invalid separator"),
@@ -431,7 +433,7 @@ public final class RError extends RuntimeException {
ARGUMENT_MUST_BE_RAW_VECTOR("argument '%s' must be a raw vector"),
MUST_BE_NONNULL_STRING("'%s' must be non-null character string"),
IS_OF_WRONG_LENGTH("'%s' is of wrong length %d (!= %d)"),
- IS_OF_WRONG_ARITY("'%d' argument passed to '%s' which requires '%d'"),
+ IS_OF_WRONG_ARITY("%d argument passed to '%s' which requires %d"),
OBJECT_NOT_SUBSETTABLE("object of type '%s' is not subsettable"),
WRONG_ARGS_SUBSET_ENV("wrong arguments for subsetting an environment"),
DIMS_DONT_MATCH_LENGTH("dims [product %d] do not match the length of object [%d]"),
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RRuntime.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RRuntime.java
index 19cdf3964a..01a897a56f 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RRuntime.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RRuntime.java
@@ -30,8 +30,8 @@ public class RRuntime {
public static final String WELCOME_MESSAGE =
"FastR version " + RVersionNumber.FULL + "\n" +
"Copyright (c) 2013-16, Oracle and/or its affiliates\n" +
- "Copyright (c) 1995-2015, The R Core Team\n" +
- "Copyright (c) 2015 The R Foundation\n" +
+ "Copyright (c) 1995-2016, The R Core Team\n" +
+ "Copyright (c) 2016 The R Foundation for Statistical Computing\n" +
"Copyright (c) 2012-4 Purdue University\n" +
"Copyright (c) 1997-2002, Makoto Matsumoto and Takuji Nishimura\n" +
"All rights reserved.\n" +
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RSerialize.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RSerialize.java
index d729d3d55d..498e32b489 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RSerialize.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RSerialize.java
@@ -1245,27 +1245,32 @@ public class RSerialize {
}
+ public static final int XDR = 0; // actually any value other than the following
+ public static final int ASCII = 1;
+ public static final int ASCII_HEX = 2;
+ public static final int BINARY = 3;
+
private static class Output extends Common {
+
private State state;
protected final POutputStream stream;
private int version;
- private Output(RConnection conn, char format, int version, CallHook hook) throws IOException {
+ private Output(RConnection conn, int format, int version, CallHook hook) throws IOException {
this(conn.getOutputStream(), format, version, hook);
}
- private Output(OutputStream os, char format, int version, CallHook hook) throws IOException {
+ private Output(OutputStream os, int format, int version, CallHook hook) throws IOException {
super(hook);
this.version = version;
switch (format) {
- case 'A':
- case 'B':
+ case ASCII:
+ case ASCII_HEX:
+ case BINARY:
throw formatError((byte) format, true);
- case 'X':
+ default:
stream = new XdrOutputFormat(os);
break;
- default:
- throw formatError((byte) format, false);
}
}
@@ -2081,10 +2086,10 @@ public class RSerialize {
* For {@code lazyLoadDBinsertValue}.
*/
@TruffleBoundary
- public static byte[] serialize(Object obj, boolean ascii, @SuppressWarnings("unused") boolean xdr, int version, Object refhook) {
+ public static byte[] serialize(Object obj, int type, int version, Object refhook) {
ByteArrayOutputStream out = new ByteArrayOutputStream();
try {
- Output output = new Output(out, ascii ? 'A' : 'X', version, (CallHook) refhook);
+ Output output = new Output(out, type, version, (CallHook) refhook);
State state = new PLState(output);
output.serialize(state, obj);
return out.toByteArray();
@@ -2094,8 +2099,8 @@ public class RSerialize {
}
@TruffleBoundary
- public static void serialize(RConnection conn, Object obj, boolean ascii, @SuppressWarnings("unused") boolean xdr, int version, Object refhook) throws IOException {
- Output output = new Output(conn, ascii ? 'A' : 'X', version, (CallHook) refhook);
+ public static void serialize(RConnection conn, Object obj, int type, int version, Object refhook) throws IOException {
+ Output output = new Output(conn, type, version, (CallHook) refhook);
State state = new PLState(output);
output.serialize(state, obj);
}
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RVersionNumber.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RVersionNumber.java
index 625a32ab06..7bb6438454 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RVersionNumber.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RVersionNumber.java
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 2014, 2015, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2014, 2016, 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
@@ -32,18 +32,18 @@ package com.oracle.truffle.r.runtime;
*/
public class RVersionNumber {
public static final String MAJOR = "3";
- public static final String MINOR = "1";
- public static final String PATCH = "3";
+ public static final String MINOR = "2";
+ public static final String PATCH = "4";
- public static final int R_VERSION = (3 << 16) + (1 << 8) + 3;
+ public static final int R_VERSION = (3 << 16) + (2 << 8) + 4;
public static final String MAJOR_MINOR = MAJOR + "." + MINOR;
public static final String MINOR_PATCH = MINOR + "." + PATCH;
public static final String FULL = MAJOR + "." + MINOR + "." + PATCH;
- public static final String RELEASE_YEAR = "2015";
- public static final String RELEASE_MONTH = "05";
- public static final String RELEASE_DAY = "09";
+ public static final String RELEASE_YEAR = "2016";
+ public static final String RELEASE_MONTH = "03";
+ public static final String RELEASE_DAY = "10";
public static final String VERSION_STRING = "FastR version " + FULL + " (" + RELEASE_YEAR + "-" + RELEASE_MONTH + "-" + RELEASE_DAY + ")";
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ffi/ToolsRFFI.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ffi/ToolsRFFI.java
index 45bf274c10..61b333ac93 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ffi/ToolsRFFI.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ffi/ToolsRFFI.java
@@ -33,10 +33,11 @@ public interface ToolsRFFI {
/**
* This invokes the Rd parser, written in C, and part of GnuR, that does its work using the R
* FFI interface. The R code initially invokes this via {@code .External2(C_parseRd, ...)},
- * which has a custom specialization in the implementation of the {@code .External2} buitin.
+ * which has a custom specialization in the implementation of the {@code .External2} builtin.
* That does some work in Java, and then calls this method to invoke the actual C code. We can't
* go straight to the GnuR C entry point as that makes GnuR-specific assumptions about, for
* example, how connections are implemented.
*/
- Object parseRd(RConnection con, REnvironment srcfile, RLogicalVector verbose, RLogicalVector fragment, RStringVector basename, RLogicalVector warningCalls);
+ Object parseRd(RConnection con, REnvironment srcfile, RLogicalVector verbose, RLogicalVector fragment, RStringVector basename, RLogicalVector warningCalls, Object macros,
+ RLogicalVector warndups);
}
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/gnur/SEXPTYPE.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/gnur/SEXPTYPE.java
index 79bff3df03..9ca0b914dc 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/gnur/SEXPTYPE.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/gnur/SEXPTYPE.java
@@ -147,11 +147,13 @@ public enum SEXPTYPE {
}
}
}
- // (only) environments and connections have subtypes
+ // (only) promises, environments and connections have subtypes
if (REnvironment.class.isAssignableFrom(fastRClass)) {
return ENVSXP;
} else if (RConnection.class.isAssignableFrom(fastRClass)) {
return FASTR_CONNECTION;
+ } else if (RPromise.class.isAssignableFrom(fastRClass)) {
+ return PROMSXP;
}
throw RInternalError.shouldNotReachHere(fastRClass.getName());
}
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/BinaryCompare.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/BinaryCompare.java
index ee136e8047..0919026a3e 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/BinaryCompare.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/BinaryCompare.java
@@ -22,6 +22,8 @@
*/
package com.oracle.truffle.r.runtime.ops;
+import java.text.Collator;
+
import com.oracle.truffle.r.runtime.*;
import com.oracle.truffle.r.runtime.data.*;
@@ -251,7 +253,8 @@ public abstract class BinaryCompare extends BooleanOperation {
@Override
public boolean op(String left, String right) {
- return left.compareTo(right) < 0;
+ // Assume this is already cached by JDK
+ return Collator.getInstance().compare(left, right) < 0;
}
@Override
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/na/NACheck.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/na/NACheck.java
index 9216e08e9d..bb1220a97e 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/na/NACheck.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ops/na/NACheck.java
@@ -322,7 +322,7 @@ public final class NACheck {
int result = (int) value;
if (result == Integer.MIN_VALUE || value > Integer.MAX_VALUE) {
conversionOverflowReached.enter();
- RError.warning(RError.SHOW_CALLER2, RError.Message.NA_INTRODUCED_COERCION);
+ RError.warning(RError.SHOW_CALLER2, RError.Message.NA_INTRODUCED_COERCION_INT);
check(RRuntime.INT_NA); // na encountered
return RRuntime.INT_NA;
}
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 6b5087fcb5..5f0607e32e 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
@@ -87,7 +87,7 @@ description class mode text opened can read
##com.oracle.truffle.r.test.S4.TestS4.runRSourceTests
#{ source("com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/S4/R/methods3.R") }
-Error in .valueClassTest({ :
+Error in .valueClassTest(ans, "numeric", "sides") :
invalid value from generic function ‘sides’, class “characterâ€, expected “numericâ€
##com.oracle.truffle.r.test.S4.TestS4.runRSourceTests
@@ -157,7 +157,7 @@ Error: unexpected '}' in "{ asS4(NULL); isS4(NULL }"
#{ gen<-function(object) 0; setGeneric("gen"); res<-print(gen); removeGeneric("gen"); res }
function (object)
standardGeneric("gen")
-<environment: 0x7fa971ee8c78>
+<environment: 0x2072e68>
attr(,"generic")
[1] "gen"
attr(,"generic")attr(,"package")
@@ -191,7 +191,7 @@ standardGeneric for "gen" defined from package ".GlobalEnv"
function (object)
standardGeneric("gen")
-<environment: 0x7fa971ee8c78>
+<environment: 0x2072e68>
Methods may be defined for arguments: object
Use showMethods("gen") for currently available ones.
@@ -213,7 +213,7 @@ Use showMethods("gen") for currently available ones.
##com.oracle.truffle.r.test.S4.TestS4.testMethods
#{ setGeneric("gen", function(object) standardGeneric("gen")); res<-print(gen); removeGeneric("gen"); res }
function(object) standardGeneric("gen")
-<environment: 0x7feb710c8bc8>
+<environment: 0x382d668>
attr(,"generic")
[1] "gen"
attr(,"generic")attr(,"package")
@@ -240,7 +240,7 @@ standardGeneric for "gen" defined from package ".GlobalEnv"
function (object)
standardGeneric("gen")
-<environment: 0x7feb710c8bc8>
+<environment: 0x382d668>
Methods may be defined for arguments: object
Use showMethods("gen") for currently available ones.
@@ -316,17 +316,17 @@ Error in slot(x, virtual) : object 'virtual' not found
##com.oracle.truffle.r.test.S4.TestS4.testSlotUpdate
#{ x<-NULL; `@<-`(x, foo, "bar") }
-Error in checkAtAssignment("NULL", "foo", "character") :
+Error in (function (cl, name, valueClass) :
‘foo’ is not a slot in class “NULLâ€
##com.oracle.truffle.r.test.S4.TestS4.testSlotUpdate
#{ x<-NULL; x@foo<-"bar" }
-Error in checkAtAssignment("NULL", "foo", "character") :
+Error in (function (cl, name, valueClass) :
‘foo’ is not a slot in class “NULLâ€
##com.oracle.truffle.r.test.S4.TestS4.testSlotUpdate
#{ x<-function() 42; attr(x, "foo")<-7; y<-asS4(x); y@foo<-42 }
-Error in checkAtAssignment("function", "foo", "numeric") :
+Error in (function (cl, name, valueClass) :
‘foo’ is not a slot in class “functionâ€
##com.oracle.truffle.r.test.S4.TestS4.testSlotUpdate
@@ -1325,11 +1325,11 @@ character(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_abs.testAbs
#{ abs((-0-1i)/(0+0i)) }
-[1] NaN
+[1] Inf
##com.oracle.truffle.r.test.builtins.TestBuiltin_abs.testAbs
#{ abs((-1-0i)/(0+0i)) }
-[1] NaN
+[1] Inf
##com.oracle.truffle.r.test.builtins.TestBuiltin_abs.testAbs
#{ abs((0+0i)/0) }
@@ -5914,7 +5914,7 @@ NAs introduced by coercion
#{ as.integer(-10000000000) }
[1] NA
Warning message:
-NAs introduced by coercion
+NAs introduced by coercion to integer range
##com.oracle.truffle.r.test.builtins.TestBuiltin_asinteger.testAsInteger
#{ as.integer(0/0) }
@@ -5934,13 +5934,13 @@ imaginary parts discarded in coercion
#{ as.integer(10000000000) }
[1] NA
Warning message:
-NAs introduced by coercion
+NAs introduced by coercion to integer range
##com.oracle.truffle.r.test.builtins.TestBuiltin_asinteger.testAsInteger
#{ as.integer(10000000000000) }
[1] NA
Warning message:
-NAs introduced by coercion
+NAs introduced by coercion to integer range
##com.oracle.truffle.r.test.builtins.TestBuiltin_asinteger.testAsInteger
#{ as.integer(NULL) }
@@ -6016,9 +6016,9 @@ NULL
##com.oracle.truffle.r.test.builtins.TestBuiltin_asinteger.testasinteger11
#argv <- list(c('3', '14159265358979'));as.integer(argv[[1]]);
-[1] 3 2147483647
+[1] 3 NA
Warning message:
-inaccurate integer conversion in coercion
+NAs introduced by coercion to integer range
##com.oracle.truffle.r.test.builtins.TestBuiltin_asinteger.testasinteger12
#argv <- list(TRUE);as.integer(argv[[1]]);
@@ -6044,7 +6044,7 @@ integer(0)
#argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));as.integer(argv[[1]]);
[1] 100 0 NA NA NA 3 NA
Warning message:
-NAs introduced by coercion
+NAs introduced by coercion to integer range
##com.oracle.truffle.r.test.builtins.TestBuiltin_asinteger.testasinteger18
#argv <- list(structure(c(1L, 2L, 3L, 2L), .Label = c('1', '2', NA), class = 'factor'));as.integer(argv[[1]]);
@@ -6089,7 +6089,7 @@ NAs introduced by coercion
#argv <- list(c(-Inf, -8.5, -2.83333333333333, -1.41666666666667, -0.85, -0.566666666666666, -0.404761904761905, -0.303571428571428, -0.236111111111111, -0.188888888888889));as.integer(argv[[1]]);
[1] NA -8 -2 -1 0 0 0 0 0 0
Warning message:
-NAs introduced by coercion
+NAs introduced by coercion to integer range
##com.oracle.truffle.r.test.builtins.TestBuiltin_asinteger.testasinteger4
#argv <- list(c(0, 1, NA, NA, 1, 1, -1, 1, 3, -2, -2, 7, -1, -1, -1, -1, -1, -1, -1, -1, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0));as.integer(argv[[1]]);
@@ -8729,7 +8729,7 @@ character(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_bcVersion.testbcVersion1
# .Internal(bcVersion())
-[1] 7
+[1] 8
##com.oracle.truffle.r.test.builtins.TestBuiltin_besselI.testbesselI1
#argv <- list(FALSE, FALSE, 1); .Internal(besselI(argv[[1]], argv[[2]], argv[[3]]))
@@ -8909,7 +8909,7 @@ numeric(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_bitwiseAnd.testBitwiseFunctions
#{ bitwAnd(NULL, NULL) }
-Error in bitwAnd(NULL, NULL) : negative length vectors are not allowed
+Error in bitwAnd(NULL, NULL) : unimplemented type 'NULL' in 'bitwAnd'
##com.oracle.truffle.r.test.builtins.TestBuiltin_bitwiseAnd.testBitwiseFunctions
#{ bitwAnd(c(), c(1,2,3)) }
@@ -14690,7 +14690,7 @@ character(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_date.testDate
#{date()}
-[1] "Wed May 27 17:39:15 2015"
+[1] "Thu Mar 10 23:54:03 2016"
##com.oracle.truffle.r.test.builtins.TestBuiltin_delayedAssign.testDelayedAssign
#{ delayedAssign("x", a+b); a <- 1 ; b <- 3 ; x }
@@ -18520,7 +18520,7 @@ In Ops.ordered(x, "a") : '+' is not meaningful for ordered factors
##com.oracle.truffle.r.test.builtins.TestBuiltin_factor.testFactor
#{ x<-c(1L,2L,3L); class(x)<-"factor"; x }
-Error in print.factor(1:3) : replacement has length zero
+Error in print.factor(x) : replacement has length zero
##com.oracle.truffle.r.test.builtins.TestBuiltin_factor.testFactor
#{ x<-factor(c("a", "b", "a")); attr(x, "levels")<-NULL; as.character(x) }
@@ -18564,7 +18564,7 @@ Levels: FALSE TRUE
##com.oracle.truffle.r.test.builtins.TestBuiltin_factor.testFactor
#{ x<-factor(c("a", "b", "a")); attr(x, "levels")<-c(as.raw(7), as.raw(42)); x }
-Error in print.factor(c(1L, 2L, 1L)) :
+Error in print.factor(x) :
incompatible types (from raw to integer) in subassignment type fix
##com.oracle.truffle.r.test.builtins.TestBuiltin_factor.testFactor
@@ -18843,69 +18843,11 @@ logical(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_fileinfo.testfileinfo1
#argv <- list('/home/lzhao/hg/r-instrumented/library/codetools/data'); .Internal(file.info(argv[[1]]))
-$size
-[1] NA
-
-$isdir
-[1] NA
-
-$mode
-[1] NA
-
-$mtime
-[1] NA
-
-$ctime
-[1] NA
-
-$atime
-[1] NA
-
-$uid
-[1] NA
-
-$gid
-[1] NA
-
-$uname
-[1] NA
-
-$grname
-[1] NA
-
+Error: 1 argument passed to .Internal(file.info) which requires 2
##com.oracle.truffle.r.test.builtins.TestBuiltin_fileinfo.testfileinfo2
#argv <- list(character(0)); .Internal(file.info(argv[[1]]))
-$size
-numeric(0)
-
-$isdir
-logical(0)
-
-$mode
-character(0)
-
-$mtime
-numeric(0)
-
-$ctime
-numeric(0)
-
-$atime
-numeric(0)
-
-$uid
-integer(0)
-
-$gid
-integer(0)
-
-$uname
-character(0)
-
-$grname
-character(0)
-
+Error: 1 argument passed to .Internal(file.info) which requires 2
##com.oracle.truffle.r.test.builtins.TestBuiltin_filepath.testfilepath1
#argv <- list(list('/home/lzhao/hg/r-instrumented/tests/Packages/rpart/R', 'summary.rpart.R'), '/'); .Internal(file.path(argv[[1]], argv[[2]]))
@@ -19091,82 +19033,80 @@ NULL
NULL
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat1
-#argv <- list(structure(c(0, 72.7, 56.4, 72.7, 0, 63.3, 56.4, 63.3, 0), .Dim = c(3L, 3L), .Dimnames = list(c('Girth', 'Height', 'Volume'), c('Girth', 'Height', 'Volume'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
- Girth Height Volume
-Girth " 0.0" "72.7" "56.4"
-Height "72.7" " 0.0" "63.3"
-Volume "56.4" "63.3" " 0.0"
+#argv <- list(structure(c(0, 72.7, 56.4, 72.7, 0, 63.3, 56.4, 63.3, 0), .Dim = c(3L, 3L), .Dimnames = list(c('Girth', 'Height', 'Volume'), c('Girth', 'Height', 'Volume'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]], , argv[[9]]))
+Error in .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], :
+ argument 10 is empty
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat10
-#argv <- list(c(FALSE, NA, TRUE), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(FALSE, NA, TRUE), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "FALSE" " NA" " TRUE"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat11
-#argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
1 2 <NA>
"1" "2" "1"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat12
-#argv <- list(c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "Min. " "1st Qu." "Median " "Mean " "3rd Qu." "Max. "
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat13
-#argv <- list(c(1L, 2L, 3L, 4L, 5L, -1L, -2L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(1L, 2L, 3L, 4L, 5L, -1L, -2L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] " 1" " 2" " 3" " 4" " 5" "-1" "-2"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat14
-#argv <- list(structure(c(NA, 1, 1, 1), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(NA, 1, 1, 1), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
<none> - x4 - x2 - x1
"NA" " 1" " 1" " 1"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat15
-#argv <- list(2.22044604925031e-16, FALSE, 1, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(2.22044604925031e-16, FALSE, 1, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "2e-16"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat16
-#argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "1960" "1960" "1960" "1960" "1960" "1960" "1960" "1960" "1960" "1960"
[11] "1960" "1961" "1961" "1961" "1961" "1961" "1961" "1961" "1961" "1961"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat17
-#argv <- list(c(2.3e-05, 4.5e-06), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(2.3e-05, 4.5e-06), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "2.3e-05" "4.5e-06"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat18
-#argv <- list(c(2L, 4L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(2L, 4L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "2" "4"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat19
-#argv <- list(c(1L, NA, 1L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
-[1] " 1" "NA" " 1"
+#argv <- list(c(1L, NA, 1L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
+Error in argv[[9]] : subscript out of bounds
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat2
-#argv <- list('\\ab\\c', FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list('\\ab\\c', FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "\\ab\\c"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat20
-#argv <- list(c('abc', NA, 'def'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c('abc', NA, 'def'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "abc" NA "def"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat23
-#argv <- list(c(NA, 2L, 4L, 7L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(NA, 2L, 4L, 7L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "NA" " 2" " 4" " 7"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat24
-#argv <- list(c(1.1+0i, NA, 3+0i), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(1.1+0i, NA, 3+0i), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "1.1+0i" " NA" "3.0+0i"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat25
-#argv <- list(c(' 9 ', ' 13 ', ' 13+', ' 18 ', ' 23 ', ' 28+', ' 31 ', ' 34 ', ' 45+', ' 48 '), TRUE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(' 9 ', ' 13 ', ' 13+', ' 18 ', ' 23 ', ' 28+', ' 31 ', ' 34 ', ' 45+', ' 48 '), TRUE, NULL, 0L, NULL, 0L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] " 9 " " 13 " " 13+" " 18 " " 23 " " 28+" " 31 " " 34 " " 45+" " 48 "
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat26
-#argv <- list(c(172, 88, 88, 55, 92, 92, 72, 72, 63, 63), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(172, 88, 88, 55, 92, 92, 72, 72, 63, 63), TRUE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "172" "88" "88" "55" "92" "92" "72" "72" "63" "63"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat27
-#argv <- list(structure(c(142L, 104L, 71L, 250L), .Dim = 4L, .Dimnames = structure(list(c('(1) Approve STRONGLY', '(2) Approve SOMEWHAT', '(3) Disapprove SOMEWHAT', '(4) Disapprove STRONGLY')), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(142L, 104L, 71L, 250L), .Dim = 4L, .Dimnames = structure(list(c('(1) Approve STRONGLY', '(2) Approve SOMEWHAT', '(3) Disapprove SOMEWHAT', '(4) Disapprove STRONGLY')), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
(1) Approve STRONGLY (2) Approve SOMEWHAT (3) Disapprove SOMEWHAT
"142" "104" " 71"
@@ -19174,11 +19114,11 @@ Volume "56.4" "63.3" " 0.0"
"250"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat28
-#argv <- list(structure(c('***', '*', ' ', ' ', ' '), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c('***', '*', ' ', ' ', ' '), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "***" "* " " " " " " "
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat29
-#argv <- list(structure(c(0, 5, 118, 57, 0, 1, 4, 140, 0, 11, 154, 14, 0, 13, 13, 80, 35, 13, 387, 75, 17, 14, 89, 76, 0, 0, 670, 192, 0, 0, 3, 20), .Dim = c(1L, 32L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c('1st', '2nd', '3rd', 'Crew'), Sex = c('Male', 'Female'), Age = c('Child', 'Adult'), Survived = c('No', 'Yes')), .Names = c('Class', 'Sex', 'Age', 'Survived'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(0, 5, 118, 57, 0, 1, 4, 140, 0, 11, 154, 14, 0, 13, 13, 80, 35, 13, 387, 75, 17, 14, 89, 76, 0, 0, 670, 192, 0, 0, 3, 20), .Dim = c(1L, 32L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c('1st', '2nd', '3rd', 'Crew'), Sex = c('Male', 'Female'), Age = c('Child', 'Adult'), Survived = c('No', 'Yes')), .Names = c('Class', 'Sex', 'Age', 'Survived'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,] " 0" " 5" "118" " 57" " 0" " 1" " 4" "140" " 0" " 11" "154" " 14"
[,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24]
@@ -19187,34 +19127,34 @@ Volume "56.4" "63.3" " 0.0"
[1,] " 0" " 0" "670" "192" " 0" " 0" " 3" " 20"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat3
-#argv <- list(c('Inf', '-Inf', 'NaN', 'NA'), FALSE, NULL, 0L, 4, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c('Inf', '-Inf', 'NaN', 'NA'), FALSE, NULL, 0L, 4, 1L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] " Inf" "-Inf" " NaN" " NA"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat30
-#argv <- list(c('', '', '\'Adult\'', '\'No\'', '', '387'), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c('', '', '\'Adult\'', '\'No\'', '', '387'), FALSE, NULL, 0L, NULL, 1L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] " " " " "'Adult'" " 'No'" " " " 387"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat31
-#argv <- list(2.2250738585072e-308, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(2.2250738585072e-308, TRUE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "2.225074e-308"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat32
-#argv <- list(c(-0.318309886183791+0i, 0-0.564189583547756i, 1+0i, 0+1.77245385090552i, -3.14159265358979+0i), TRUE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(-0.318309886183791+0i, 0-0.564189583547756i, 1+0i, 0+1.77245385090552i, -3.14159265358979+0i), TRUE, 2, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "-0.32+0.00i" "0.00-0.56i" "1.00+0.00i" "0.00+1.77i" "-3.14+0.00i"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat33
-#argv <- list(0+1i, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(0+1i, TRUE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "0+1i"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat34
-#argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
Min. 1st Qu. Median Mean 3rd Qu.
" -Inf" " -Inf" "-2.248e+263" " -Inf" "-3.777e+116"
Max.
" -1.000e+00"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat35
-#argv <- list(c(-41L, -36L, -12L, -18L, NA, -28L, -23L, -19L, -8L, NA, -7L, -16L, -11L, -14L, -18L, -14L, -34L, -6L, -30L, -11L, -1L, -11L, -4L, -32L, NA, NA, NA, -23L, -45L, -115L, -37L, NA, NA, NA, NA, NA, NA, -29L, NA, -71L, -39L, NA, NA, -23L, NA, NA, -21L, -37L, -20L, -12L, -13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, -135L, -49L, -32L, NA, -64L, -40L, -77L, -97L, -97L, -85L, NA, -10L, -27L, NA, -7L, -48L, -35L, -61L, -79L, -63L, -16L, NA, NA, -80L, -108L, -20L, -52L, -82L, -50L, -64L, -59L, -39L, -9L, -16L, -78L, -35L, -66L, -122L, -89L, -110L, NA, NA, -44L, -28L, -65L, NA, -22L, -59L, -23L, -31L, -44L, -21L, -9L, NA, -45L, -168L, -73L, NA, -76L, -118L, -84L, -85L, -96L, -78L, -73L, -91L, -47L, -32L, -20L, -23L, -21L, -24L, -44L, -21L, -28L, -9L, -13L, -46L, -18L, -13L, -24L, -16L, -13L, -23L, -36L, -7L, -14L, -30L, NA, -14L, -18L, -20L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(-41L, -36L, -12L, -18L, NA, -28L, -23L, -19L, -8L, NA, -7L, -16L, -11L, -14L, -18L, -14L, -34L, -6L, -30L, -11L, -1L, -11L, -4L, -32L, NA, NA, NA, -23L, -45L, -115L, -37L, NA, NA, NA, NA, NA, NA, -29L, NA, -71L, -39L, NA, NA, -23L, NA, NA, -21L, -37L, -20L, -12L, -13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, -135L, -49L, -32L, NA, -64L, -40L, -77L, -97L, -97L, -85L, NA, -10L, -27L, NA, -7L, -48L, -35L, -61L, -79L, -63L, -16L, NA, NA, -80L, -108L, -20L, -52L, -82L, -50L, -64L, -59L, -39L, -9L, -16L, -78L, -35L, -66L, -122L, -89L, -110L, NA, NA, -44L, -28L, -65L, NA, -22L, -59L, -23L, -31L, -44L, -21L, -9L, NA, -45L, -168L, -73L, NA, -76L, -118L, -84L, -85L, -96L, -78L, -73L, -91L, -47L, -32L, -20L, -23L, -21L, -24L, -44L, -21L, -28L, -9L, -13L, -46L, -18L, -13L, -24L, -16L, -13L, -23L, -36L, -7L, -14L, -30L, NA, -14L, -18L, -20L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] " -41" " -36" " -12" " -18" " NA" " -28" " -23" " -19" " -8" " NA"
[11] " -7" " -16" " -11" " -14" " -18" " -14" " -34" " -6" " -30" " -11"
[21] " -1" " -11" " -4" " -32" " NA" " NA" " NA" " -23" " -45" "-115"
@@ -19233,35 +19173,35 @@ Volume "56.4" "63.3" " 0.0"
[151] " -14" " -18" " -20"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat36
-#argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), TRUE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), TRUE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
character(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat37
-#argv <- list(structure(c(213198964, 652424.52183908), .Names = c('null.deviance', 'deviance')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(213198964, 652424.52183908), .Names = c('null.deviance', 'deviance')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
null.deviance deviance
"213198964" " 652425"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat38
-#argv <- list(structure(integer(0), .Dim = c(1L, 0L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(df0 = NULL), .Names = 'df0')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(integer(0), .Dim = c(1L, 0L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(df0 = NULL), .Names = 'df0')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1,]
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat39
-#argv <- list(FALSE, FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(FALSE, FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "FALSE"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat4
-#argv <- list(structure(c('axx', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), .Dim = c(2L, 4L)), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c('axx', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), .Dim = c(2L, 4L)), FALSE, NULL, 0L, NULL, 1L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[,1] [,2] [,3] [,4]
[1,] "axx" " c" " e" " g"
[2,] " b" " d" " f" " h"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat40
-#argv <- list(1e-07, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(1e-07, TRUE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "1e-07"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat41
-#argv <- list(structure(c(3035, 2552, 2704, 2554, 2014, 1655, 1721, 1524, 1596, 2074, 2199, 2512, 2933, 2889, 2938, 2497, 1870, 1726, 1607, 1545, 1396, 1787, 2076, 2837, 2787, 3891, 3179, 2011, 1636, 1580, 1489, 1300, 1356, 1653, 2013, 2823, 3102, 2294, 2385, 2444, 1748, 1554, 1498, 1361, 1346, 1564, 1640, 2293, 2815, 3137, 2679, 1969, 1870, 1633, 1529, 1366, 1357, 1570, 1535, 2491, 3084, 2605, 2573, 2143, 1693, 1504, 1461, 1354, 1333, 1492, 1781, 1915), .Tsp = c(1973, 1978.91666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(3035, 2552, 2704, 2554, 2014, 1655, 1721, 1524, 1596, 2074, 2199, 2512, 2933, 2889, 2938, 2497, 1870, 1726, 1607, 1545, 1396, 1787, 2076, 2837, 2787, 3891, 3179, 2011, 1636, 1580, 1489, 1300, 1356, 1653, 2013, 2823, 3102, 2294, 2385, 2444, 1748, 1554, 1498, 1361, 1346, 1564, 1640, 2293, 2815, 3137, 2679, 1969, 1870, 1633, 1529, 1366, 1357, 1570, 1535, 2491, 3084, 2605, 2573, 2143, 1693, 1504, 1461, 1354, 1333, 1492, 1781, 1915), .Tsp = c(1973, 1978.91666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "3035" "2552" "2704" "2554" "2014" "1655" "1721" "1524" "1596" "2074"
[11] "2199" "2512" "2933" "2889" "2938" "2497" "1870" "1726" "1607" "1545"
[21] "1396" "1787" "2076" "2837" "2787" "3891" "3179" "2011" "1636" "1580"
@@ -19272,63 +19212,63 @@ null.deviance deviance
[71] "1781" "1915"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat42
-#argv <- list(c(2.5, 97.5), TRUE, 3, 0L, NULL, 3L, TRUE, FALSE); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(2.5, 97.5), TRUE, 3, 0L, NULL, 3L, TRUE, FALSE, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "2.5" "97.5"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat43
-#argv <- list(structure(c(9.4, 10.2, 9.2, 4.4, 3.5, 2.7), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('Estimate', 'Std.Err'))), FALSE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(9.4, 10.2, 9.2, 4.4, 3.5, 2.7), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('Estimate', 'Std.Err'))), FALSE, 2, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
Estimate Std.Err
[1,] " 9.4" " 4.4"
[2,] "10.2" " 3.5"
[3,] " 9.2" " 2.7"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat44
-#argv <- list(95, 2, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(95, 2, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "95"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat46
-#argv <- list(1.2e+07, FALSE, NULL, 9L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(1.2e+07, FALSE, NULL, 9L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "1.2e+07"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat47
-#argv <- list(-0.01234+3.14159265358979i, FALSE, NULL, 14L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(-0.01234+3.14159265358979i, FALSE, NULL, 14L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "-0.01234000000000+3.14159265358979i"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat48
-#argv <- list(c(TRUE, FALSE, TRUE, FALSE, FALSE, FALSE), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(TRUE, FALSE, TRUE, FALSE, FALSE, FALSE), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] " TRUE" "FALSE" " TRUE" "FALSE" "FALSE" "FALSE"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat49
-#argv <- list(3.141, FALSE, NULL, 13L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(3.141, FALSE, NULL, 13L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "3.1410000000000"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat50
-#argv <- list(c(Inf, -Inf), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(Inf, -Inf), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] " Inf" "-Inf"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat51
-#argv <- list(structure(c(2, NA), .Names = c('N:P:K', 'Residuals')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(2, NA), .Names = c('N:P:K', 'Residuals')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
N:P:K Residuals
" 2" "NA"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat52
-#argv <- list(structure('def\'gh', class = 'AsIs'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure('def\'gh', class = 'AsIs'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "def'gh"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat53
-#argv <- list(structure(4:9, .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', 'b'))), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(4:9, .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', 'b'))), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
a b
[1,] "4" "7"
[2,] "5" "8"
[3,] "6" "9"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat54
-#argv <- list(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] NA NA NA NA
[5] NA "Ripley" "Venables & Smith"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat55
-#argv <- list(1e-11, FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(1e-11, FALSE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "1e-11"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat56
@@ -19336,24 +19276,24 @@ null.deviance deviance
[1] "0.040"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat57
-#x <- c(1.0,2.0);names(x) <- c("x","y");argv <- list(x, FALSE, NULL, 0L, NULL, 0L, FALSE, FALSE);names(.Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]])))
+#x <- c(1.0,2.0);names(x) <- c("x","y");argv <- list(x, FALSE, NULL, 0L, NULL, 0L, FALSE, FALSE, ".");names(.Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]])))
[1] "x" "y"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat6
-#argv <- list(structure(c(47.97, 57.9, 74.76, 868.88), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(structure(c(47.97, 57.9, 74.76, 868.88), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
<none> - x4 - x2 - x1
" 47.97" " 57.90" " 74.76" "868.88"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat7
-#argv <- list(c('a', 'NA', NA, 'b'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(c('a', 'NA', NA, 'b'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "a " "NA" "NA" "b "
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat8
-#argv <- list(NA_real_, FALSE, 4L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(NA_real_, FALSE, 4L, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
[1] "NA"
##com.oracle.truffle.r.test.builtins.TestBuiltin_format.testformat9
-#argv <- list(integer(0), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+#argv <- list(integer(0), TRUE, NULL, 0L, NULL, 3L, TRUE, NA, "."); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))
character(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_formatAsIs.testformatAsIs1
@@ -19677,7 +19617,7 @@ description class mode text opened can read
##com.oracle.truffle.r.test.builtins.TestBuiltin_getNamespaceVersion.testgetNamespaceVersion1
#argv <- structure(list(ns = 'stats'), .Names = 'ns');do.call('getNamespaceVersion', argv)
version
-"3.1.3"
+"3.2.4"
##com.oracle.truffle.r.test.builtins.TestBuiltin_getRestart.testgetRestart1
#argv <- list(2L); .Internal(.getRestart(argv[[1]]))
@@ -20161,7 +20101,7 @@ In gsub("a", "aa", "prAgue alley", fixed = TRUE, ignore.case = TRUE) :
##com.oracle.truffle.r.test.builtins.TestBuiltin_gsub.testgsub13
#argv <- list('\\b', '|', 'The quick brown èé', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
-[1] "|The| |quick| |brown| |èé|"
+[1] "|The| |quick| |brown| èé"
##com.oracle.truffle.r.test.builtins.TestBuiltin_gsub.testgsub14
#argv <- list('/home/lzhao/hg/r-instrumented/src/library/utils', '', '/home/lzhao/hg/r-instrumented/src/library/utils/vignettes', FALSE, FALSE, TRUE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
@@ -20340,6 +20280,8 @@ Error: unexpected symbol in "argv <- list(structure(c('Q.1 Opinion of president'
##com.oracle.truffle.r.test.builtins.TestBuiltin_icuSetCollate.testicuSetCollate1
# .Internal(icuSetCollate())
+Warning message:
+ICU is not supported on this build
##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testIdentical
#{ f1<-function(x=1) 42; f2<-function(x=1) 7; identical(formals(f1), formals(f2)) }
@@ -26697,7 +26639,9 @@ character(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_listfiles.testlistfiles3
#argv <- list('.', '^CITATION.*', FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
-[1] "library/base/CITATION"
+[1] "com.oracle.truffle.r.native/gnur/R-3.2.4/library/base/CITATION"
+[2] "com.oracle.truffle.r.native/gnur/R-3.2.4/src/library/base/inst/CITATION"
+[3] "library/base/CITATION"
##com.oracle.truffle.r.test.builtins.TestBuiltin_listfiles.testlistfiles4
#argv <- list('mgcv', NULL, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
@@ -27498,7 +27442,7 @@ integer(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#fn3 <- function(...) { (function(...) match.call(cat, call("cat", "abc", p=3,as.symbol("...")), expand.dots = FALSE))(...) }; fn3(sep=x,lab="b",fill=13)
-cat(... = list("abc", p = 3, lab = "b"), sep = ..1, fill = 13)
+cat(... = pairlist("abc", p = 3, lab = "b"), sep = ..1, fill = 13)
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#fn3 <- function(...) { (function(...) match.call(cat, call("cat", "abc", p=3,as.symbol("...")), expand.dots = TRUE))(...) }; fn3(sep=x,lab="b",fill=13)
@@ -27606,15 +27550,15 @@ fdf()
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdf <- function(...) match.call(expand.dots=F); fdf(1, 2) }
-fdf(... = list(1, 2))
+fdf(... = pairlist(1, 2))
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdf <- function(...) match.call(expand.dots=F); fdf(x=1,y=2) }
-fdf(... = list(x = 1, y = 2))
+fdf(... = pairlist(x = 1, y = 2))
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdf <- function(...) match.call(expand.dots=F); fdf(y=2, x=1) }
-fdf(... = list(y = 2, x = 1))
+fdf(... = pairlist(y = 2, x = 1))
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdx <- function(x, ...) match.call(); fdx() }
@@ -27638,15 +27582,15 @@ fdxf()
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdxf <- function(x, ...) match.call(expand.dots=F); fdxf(1, 2) }
-fdxf(x = 1, ... = list(2))
+fdxf(x = 1, ... = pairlist(2))
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdxf <- function(x, ...) match.call(expand.dots=F); fdxf(x=1,y=2) }
-fdxf(x = 1, ... = list(y = 2))
+fdxf(x = 1, ... = pairlist(y = 2))
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdxf <- function(x, ...) match.call(expand.dots=F); fdxf(y=2, x=1) }
-fdxf(x = 1, ... = list(y = 2))
+fdxf(x = 1, ... = pairlist(y = 2))
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdxy <- function(x, ..., y) match.call(); fdxy() }
@@ -27674,19 +27618,19 @@ fdxyf()
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdxyf <- function(x, ..., y) match.call(expand.dots=F); fdxyf(1, 2, 3) }
-fdxyf(x = 1, ... = list(2, 3))
+fdxyf(x = 1, ... = pairlist(2, 3))
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdxyf <- function(x, ..., y) match.call(expand.dots=F); fdxyf(2, 3, x=1) }
-fdxyf(x = 1, ... = list(2, 3))
+fdxyf(x = 1, ... = pairlist(2, 3))
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdxyf <- function(x, ..., y) match.call(expand.dots=F); fdxyf(y=4, 1, 2, 3) }
-fdxyf(x = 1, ... = list(2, 3), y = 4)
+fdxyf(x = 1, ... = pairlist(2, 3), y = 4)
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fdxyf <- function(x, ..., y) match.call(expand.dots=F); fdxyf(y=4, 2, 3, x=1) }
-fdxyf(x = 1, ... = list(2, 3), y = 4)
+fdxyf(x = 1, ... = pairlist(2, 3), y = 4)
##com.oracle.truffle.r.test.builtins.TestBuiltin_matchcall.testMatchCall
#{ fxy <- function(x, y) match.call(); fxy() }
@@ -28660,7 +28604,7 @@ In max() : no non-missing arguments to max; returning -Inf
##com.oracle.truffle.r.test.builtins.TestBuiltin_max.testmax9
#argv <- list(structure(list(x = c(-1, 1, 1, -1, -1, 1, 1, -1), y = c(-0.701149425287356, -0.701149425287356, -0.701149425287356, -0.701149425287356, 0.701149425287356, 0.701149425287356, 0.701149425287356, 0.701149425287356), z = c(-0.4, -0.4, 0.4, 0.4, -0.4, -0.4, 0.4, 0.4)), .Names = c('x', 'y', 'z'), row.names = c(NA, -8L), class = 'data.frame'), na.rm = FALSE);max(argv[[1]],argv[[2]]);
-Error in FUN(X[[2L]], ...) :
+Error in FUN(X[[i]], ...) :
only defined on a data frame with all numeric variables
##com.oracle.truffle.r.test.builtins.TestBuiltin_maxcol.testmaxcol1
@@ -30259,56 +30203,51 @@ Wyoming 97203 West
[1] 2 3
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar1
-#argv <- list('DtTmCl> format(.leap.seconds) # all 24 leap seconds in your timezone', 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list('DtTmCl> format(.leap.seconds) # all 24 leap seconds in your timezone', 'c', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 76
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar10
-#argv <- list(FALSE, 'chars', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list(FALSE, 'chars', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 5
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar11
-#argv <- list('> contour(x, y, volcano, levels = lev, col=\'yellow\', lty=\'solid\', add=TRUE)', 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list('> contour(x, y, volcano, levels = lev, col=\'yellow\', lty=\'solid\', add=TRUE)', 'c', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 75
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar12
-#argv <- list(character(0), 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list(character(0), 'c', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
integer(0)
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar13
-#argv <- list(structure(c('rpart', 'recommended', '4.1-1', '2013-03-20', 'c(person(\'Terry\', \'Therneau\', role = \'aut\',\n\t email = \'therneau@mayo.edu\'),\n person(\'Beth\', \'Atkinson\', role = \'aut\',\t\n\t email = \'atkinson@mayo.edu\'),\n person(\'Brian\', \'Ripley\', role = c(\'aut\', \'trl\', \'cre\'),\n email = \'ripley@stats.ox.ac.uk\',\n\t\t comment = \'author of R port\'))', 'Recursive partitioning and regression trees', 'Recursive Partitioning', 'R (>= 2.14.0), graphics, stats, grDevices', 'survival', 'GPL-2 | GPL-3', 'yes', 'yes', 'Maintainers are not available to give advice on using a package\nthey did not author.', '2013-03-20 07:27:05 UTC; ripley', 'Terry Therneau [aut],\n Beth Atkinson [aut],\n Brian Ripley [aut, trl, cre] (author of R port)', 'Brian Ripley <ripley@stats.ox.ac.uk>'), .Names = c('Package', 'Priority', 'Version', 'Date', 'Authors@R', 'Description', 'Title', 'Depends', 'Suggests', 'License', 'LazyData', 'ByteCompile', 'Note', 'Packaged', 'Author', 'Maintainer')), 'c', TRUE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
- Package Priority Version Date Authors@R Description
- 5 11 5 10 345 43
- Title Depends Suggests License LazyData ByteCompile
- 22 41 8 13 3 3
- Note Packaged Author Maintainer
- 84 31 94 36
+#argv <- list(structure(c('rpart', 'recommended', '4.1-1', '2013-03-20', 'c(person(\'Terry\', \'Therneau\', role = \'aut\',\n\t email = \'therneau@mayo.edu\'),\n person(\'Beth\', \'Atkinson\', role = \'aut\',\t\n\t email = \'atkinson@mayo.edu\'),\n person(\'Brian\', \'Ripley\', role = c(\'aut\', \'trl\', \'cre\'),\n email = \'ripley@stats.ox.ac.uk\',\n\t\t comment = \'author of R port\'))', 'Recursive partitioning and regression trees', 'Recursive Partitioning', 'R (>= 2.14.0), graphics, stats, grDevices', 'survival', 'GPL-2 | GPL-3', 'yes', 'yes', 'Maintainers are not available to give advice on using a package\nthey did not author.', '2013-03-20 07:27:05 UTC; ripley', 'Terry Therneau [aut],\n Beth Atkinson [aut],\n Brian Ripley [aut, trl, cre] (author of R port)', 'Brian Ripley <ripley@stats.ox.ac.uk>'), .Names = c('Package', 'Priority', 'Version', 'Date', 'Authors@R', 'Description', 'Title', 'Depends', 'Suggests', 'License', 'LazyData', 'ByteCompile', 'Note', 'Packaged', 'Author', 'Maintainer')), 'c', TRUE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+Error in argv[[4]] : subscript out of bounds
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar2
-#argv <- list(c('\'a\'', '\'b\'', NA, NA, NA, '\'f\'', '\'g\'', '\'h\'', '\'i\'', '\'j\'', '\'k\'', '\'l\''), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list(c('\'a\'', '\'b\'', NA, NA, NA, '\'f\'', '\'g\'', '\'h\'', '\'i\'', '\'j\'', '\'k\'', '\'l\''), 'w', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 3 3 2 2 2 3 3 3 3 3 3 3
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar3
-#argv <- list('\'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\'', 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list('\'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\'', 'w', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 2602
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar4
-#argv <- list(structure(c('1', '2', '3', '4', '5', '1', '2', '3', '4', '5'), .Dim = 10L), 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list(structure(c('1', '2', '3', '4', '5', '1', '2', '3', '4', '5'), .Dim = 10L), 'c', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 1 1 1 1 1 1 1 1 1 1
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar5
-#argv <- list(c('Var1', 'Var2'), 'bytes', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list(c('Var1', 'Var2'), 'bytes', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 4 4
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar6
-#argv <- list(c('0.0470', '0.0130', '0.0020', '0.0001', '2.3e-05', '4.5e-06'), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list(c('0.0470', '0.0130', '0.0020', '0.0001', '2.3e-05', '4.5e-06'), 'w', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 6 6 6 6 7 7
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar7
-#argv <- list(c('x1', 'x.2', 'x3'), 'bytes', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list(c('x1', 'x.2', 'x3'), 'bytes', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 2 3 2
##com.oracle.truffle.r.test.builtins.TestBuiltin_nchar.testnchar9
-#argv <- list(c('\'1\'', '\'2\'', NA), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+#argv <- list(c('\'1\'', '\'2\'', NA), 'w', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
[1] 3 3 2
##com.oracle.truffle.r.test.builtins.TestBuiltin_ncol.testncol1
@@ -31809,8 +31748,8 @@ Frequency = 1
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators142
#argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('2.13.2', .Names = 'SweaveListingUtils'));`>`(argv[[1]],argv[[2]]);
-SweaveListingUtils
- TRUE
+
+TRUE
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators143
#argv <- list(c(8262, 2889), 1e+05);`>`(argv[[1]],argv[[2]]);
@@ -33409,7 +33348,7 @@ In Ops.factor(argv[[1]]) : ‘^’ not meaningful for factors
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators308
#argv <- list(list());`|`(argv[[1]]);
-logical(0)
+Error in |argv[[1]] : 1 argument passed to '|' which requires 2
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators309
#argv <- list(structure(c(TRUE, FALSE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)), structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)));`|`(argv[[1]],argv[[2]]);
@@ -33823,7 +33762,7 @@ In Ops.factor(left, right) : ‘%/%’ not meaningful for factors
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators335
#argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));`&`(argv[[1]]);
-<0 x 0 matrix>
+Error in &argv[[1]] : 1 argument passed to '&' which requires 2
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators336
#argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`&`(argv[[1]]);
@@ -34011,7 +33950,7 @@ Frequency = 1
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators344
#argv <- list(list());`&`(argv[[1]]);
-logical(0)
+Error in &argv[[1]] : 1 argument passed to '&' which requires 2
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators345
#argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));`(`(argv[[1]]);
@@ -35217,8 +35156,8 @@ attr(,"class")attr(,"package")
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators91
#argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('3.1', .Names = 'gridSVG2'));`<`(argv[[1]],argv[[2]]);
-gridSVG2
- TRUE
+
+TRUE
##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators92
#argv <- list(structure(c(0, 0.414213562373095, 0.732050807568877, 0, 0.23606797749979, 0.449489742783178, 0.645751311064591, 0.82842712474619, 0, 0.16227766016838), id = 'test 1', class = structure('withId', package = '.GlobalEnv')), 0.01);`<`(argv[[1]],argv[[2]]);
@@ -36533,7 +36472,7 @@ $summary
One Sample t-test
data: x
-t = 0.879, df = 19, p-value = 0.3904
+t = 0.87901, df = 19, p-value = 0.3904
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
-0.3326680 0.8144072
@@ -37723,8 +37662,8 @@ Error in Summary.ordered(c(3L, 2L, 1L), FALSE, na.rm = FALSE) :
##com.oracle.truffle.r.test.builtins.TestBuiltin_range.testrange9
#argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L), hour = c(8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 15L, 15L, 15L, 15L, 15L, 15L, 16L, 16L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 17L, 17L, 18L, 18L, 18L, 18L, 18L, 18L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 21L, 21L, 21L, 22L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 23L, 23L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), mday = c(12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L), mon = c(11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L), year = c(90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L), wday = c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), yday = c(345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')), na.rm = FALSE);range(argv[[1]],argv[[2]]);
-Error in as.POSIXct.default(X[[2L]], ...) :
- do not know how to convert 'X[[2L]]' to class “POSIXctâ€
+Error in as.POSIXct.default(X[[i]], ...) :
+ do not know how to convert 'X[[i]]' to class “POSIXctâ€
##com.oracle.truffle.r.test.builtins.TestBuiltin_rank.testRank
#{ rank(c(10,100,100,1000)) }
@@ -37816,8 +37755,11 @@ numeric(0)
[46] 46.0 47.0 48.0 49.0 50.0 51.0 52.0 53.0 54.0 55.0 56.0 57.0 58.0 59.0 60.0
##com.oracle.truffle.r.test.builtins.TestBuiltin_rank.testrank5
-#argv <- list(structure(c(9.96, 84.84, 93.4, 33.77, 5.16, 90.57, 92.85, 97.16, 97.67, 91.38, 98.61, 8.52, 2.27, 4.43, 2.82, 24.2, 3.3, 12.11, 2.15, 2.84, 5.23, 4.52, 15.14, 4.2, 5.23, 2.56, 7.72, 18.46, 6.1, 99.71, 99.68, 100, 98.96, 98.22, 99.06, 99.46, 96.83, 5.62, 13.79, 11.22, 16.92, 4.97, 8.65, 42.34, 50.43, 58.33), .Names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux', 'Morges', 'Moudon', 'Nyone', 'Orbe', 'Payerne', 'Paysd'enhaut', 'Rolle', 'Vevey', 'Yverdon', 'Conthey', 'Entremont', 'Herens', 'Martigwy', 'Monthey', 'St Maurice', 'Sierre', 'Sion', 'Boudry', 'La Chauxdfnd', 'Le Locle', 'Neuchatel', 'Val de Ruz', 'ValdeTravers', 'V. De Geneve', 'Rive Droite', 'Rive Gauche')), 46L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))
-Error: unexpected symbol in " 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux'"
+#argv <- list(structure(c(9.96, 84.84, 93.4, 33.77, 5.16, 90.57, 92.85, 97.16, 97.67, 91.38, 98.61, 8.52, 2.27, 4.43, 2.82, 24.2, 3.3, 12.11, 2.15, 2.84, 5.23, 4.52, 15.14, 4.2, 5.23, 2.56, 7.72, 18.46, 6.1, 99.71, 99.68, 100, 98.96, 98.22, 99.06, 99.46, 96.83, 5.62, 13.79, 11.22, 16.92, 4.97, 8.65, 42.34, 50.43, 58.33), .Names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux', 'Morges', 'Moudon', 'Nyone', 'Orbe', 'Payerne', 'Paysd\'enhaut', 'Rolle', 'Vevey', 'Yverdon', 'Conthey', 'Entremont', 'Herens', 'Martigwy', 'Monthey', 'St Maurice', 'Sierre', 'Sion', 'Boudry', 'La Chauxdfnd', 'Le Locle', 'Neuchatel', 'Val de Ruz', 'ValdeTravers', 'V. De Geneve', 'Rive Droite', 'Rive Gauche')), 46L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))
+ [1] 19.0 31.0 35.0 27.0 11.0 32.0 34.0 37.0 38.0 33.0 40.0 17.0 2.0 8.0 4.0
+[16] 26.0 6.0 21.0 1.0 5.0 12.5 9.0 23.0 7.0 12.5 3.0 16.0 25.0 15.0 45.0
+[31] 44.0 46.0 41.0 39.0 42.0 43.0 36.0 14.0 22.0 20.0 24.0 10.0 18.0 28.0 29.0
+[46] 30.0
##com.oracle.truffle.r.test.builtins.TestBuiltin_rank.testrank6
#argv <- list(structure(c(3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5), .Names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k')), 11L, 'max'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))
@@ -43484,32 +43426,32 @@ B FALSE TRUE
##com.oracle.truffle.r.test.builtins.TestBuiltin_strptime.teststrptime10
#argv <- list(c('1937/01/01', '1916/01/01', '1913/01/01', '1927/01/01', '1947/01/01', '1913/01/01', '1917/01/01', '1923/01/01', '1921/01/01', '1926/01/01', '1920/01/01', '1915/01/01', '1914/01/01', '1914/01/01', '1914/01/01', '1919/01/01', '1948/01/01', '1911/01/01', '1909/01/01', '1913/01/01', '1925/01/01', '1926/01/01', '1910/01/01', '1917/01/01', '1936/01/01', '1938/01/01', '1960/01/01', '1915/01/01', '1919/01/01', '1924/01/01', '1914/01/01', '1905/01/01', '1921/01/01', '1929/01/01', '1926/01/01', '1921/01/01', '1908/01/01', '1928/01/01', '1919/01/01', '1921/01/01', '1925/01/01', '1934/01/01', '1927/01/01', '1928/01/01', '1934/01/01', '1922/01/01', '1923/01/01', '1915/01/01', '1934/01/01', '1925/01/01', '1922/01/01', '1930/01/01', '1924/01/01', '1923/01/01', '1919/01/01', '1932/01/01', '1930/01/01', '1923/01/01', '1930/01/01', '1922/01/01', '1919/01/01', '1932/01/01', '1939/01/01', '1923/01/01', '1920/01/01', '1919/01/01', '1952/01/01', '1927/01/01', '1924/01/01', '1919/01/01', '1925/01/01', '1945/01/01', '1916/01/01', '1943/01/01', '1920/01/01', '1920/01/01', '1931/01/01', '1924/01/01', '1919/01/01', '1926/01/01', '1920/01/01', '1942/01/01', '1919/01/01', '1930/01/01', '1925/01/01', '1924/01/01', '1926/01/01', '1918/01/01', '1922/01/01', '1921/01/01', '1925/01/01', '1928/01/01', '1925/01/01', '1929/01/01', '1933/01/01', '1947/01/01', '1950/01/01', '1945/01/01', '1924/01/01', '1939/01/01', '1924/01/01', '1933/01/01', '1928/01/01'), '%Y/%m/%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))
- [1] "1937-01-01 CET" "1916-01-01 CET" "1913-01-01 CET" "1927-01-01 CET"
- [5] "1947-01-01 CET" "1913-01-01 CET" "1917-01-01 CET" "1923-01-01 CET"
- [9] "1921-01-01 CET" "1926-01-01 CET" "1920-01-01 CET" "1915-01-01 CET"
- [13] "1914-01-01 CET" "1914-01-01 CET" "1914-01-01 CET" "1919-01-01 CET"
- [17] "1948-01-01 CET" "1911-01-01 CET" "1909-01-01 CET" "1913-01-01 CET"
- [21] "1925-01-01 CET" "1926-01-01 CET" "1910-01-01 CET" "1917-01-01 CET"
- [25] "1936-01-01 CET" "1938-01-01 CET" "1960-01-01 CET" "1915-01-01 CET"
- [29] "1919-01-01 CET" "1924-01-01 CET" "1914-01-01 CET" "1905-01-01 CET"
- [33] "1921-01-01 CET" "1929-01-01 CET" "1926-01-01 CET" "1921-01-01 CET"
- [37] "1908-01-01 CET" "1928-01-01 CET" "1919-01-01 CET" "1921-01-01 CET"
- [41] "1925-01-01 CET" "1934-01-01 CET" "1927-01-01 CET" "1928-01-01 CET"
- [45] "1934-01-01 CET" "1922-01-01 CET" "1923-01-01 CET" "1915-01-01 CET"
- [49] "1934-01-01 CET" "1925-01-01 CET" "1922-01-01 CET" "1930-01-01 CET"
- [53] "1924-01-01 CET" "1923-01-01 CET" "1919-01-01 CET" "1932-01-01 CET"
- [57] "1930-01-01 CET" "1923-01-01 CET" "1930-01-01 CET" "1922-01-01 CET"
- [61] "1919-01-01 CET" "1932-01-01 CET" "1939-01-01 CET" "1923-01-01 CET"
- [65] "1920-01-01 CET" "1919-01-01 CET" "1952-01-01 CET" "1927-01-01 CET"
- [69] "1924-01-01 CET" "1919-01-01 CET" "1925-01-01 CET" "1945-01-01 CET"
- [73] "1916-01-01 CET" "1943-01-01 CET" "1920-01-01 CET" "1920-01-01 CET"
- [77] "1931-01-01 CET" "1924-01-01 CET" "1919-01-01 CET" "1926-01-01 CET"
- [81] "1920-01-01 CET" "1942-01-01 CEST" "1919-01-01 CET" "1930-01-01 CET"
- [85] "1925-01-01 CET" "1924-01-01 CET" "1926-01-01 CET" "1918-01-01 CET"
- [89] "1922-01-01 CET" "1921-01-01 CET" "1925-01-01 CET" "1928-01-01 CET"
- [93] "1925-01-01 CET" "1929-01-01 CET" "1933-01-01 CET" "1947-01-01 CET"
- [97] "1950-01-01 CET" "1945-01-01 CET" "1924-01-01 CET" "1939-01-01 CET"
-[101] "1924-01-01 CET" "1933-01-01 CET" "1928-01-01 CET"
+ [1] "1937-01-01 CET" "1916-01-01 CET" "1913-01-01 CET" "1927-01-01 CET"
+ [5] "1947-01-01 CET" "1913-01-01 CET" "1917-01-01 CET" "1923-01-01 CET"
+ [9] "1921-01-01 CET" "1926-01-01 CET" "1920-01-01 CET" "1915-01-01 CET"
+ [13] "1914-01-01 CET" "1914-01-01 CET" "1914-01-01 CET" "1919-01-01 CET"
+ [17] "1948-01-01 CET" "1911-01-01 CET" "1909-01-01 CET" "1913-01-01 CET"
+ [21] "1925-01-01 CET" "1926-01-01 CET" "1910-01-01 CET" "1917-01-01 CET"
+ [25] "1936-01-01 CET" "1938-01-01 CET" "1960-01-01 CET" "1915-01-01 CET"
+ [29] "1919-01-01 CET" "1924-01-01 CET" "1914-01-01 CET" "1905-01-01 CET"
+ [33] "1921-01-01 CET" "1929-01-01 CET" "1926-01-01 CET" "1921-01-01 CET"
+ [37] "1908-01-01 CET" "1928-01-01 CET" "1919-01-01 CET" "1921-01-01 CET"
+ [41] "1925-01-01 CET" "1934-01-01 CET" "1927-01-01 CET" "1928-01-01 CET"
+ [45] "1934-01-01 CET" "1922-01-01 CET" "1923-01-01 CET" "1915-01-01 CET"
+ [49] "1934-01-01 CET" "1925-01-01 CET" "1922-01-01 CET" "1930-01-01 CET"
+ [53] "1924-01-01 CET" "1923-01-01 CET" "1919-01-01 CET" "1932-01-01 CET"
+ [57] "1930-01-01 CET" "1923-01-01 CET" "1930-01-01 CET" "1922-01-01 CET"
+ [61] "1919-01-01 CET" "1932-01-01 CET" "1939-01-01 CET" "1923-01-01 CET"
+ [65] "1920-01-01 CET" "1919-01-01 CET" "1952-01-01 CET" "1927-01-01 CET"
+ [69] "1924-01-01 CET" "1919-01-01 CET" "1925-01-01 CET" "1945-01-01 CET"
+ [73] "1916-01-01 CET" "1943-01-01 CET" "1920-01-01 CET" "1920-01-01 CET"
+ [77] "1931-01-01 CET" "1924-01-01 CET" "1919-01-01 CET" "1926-01-01 CET"
+ [81] "1920-01-01 CET" "1942-01-01 CET" "1919-01-01 CET" "1930-01-01 CET"
+ [85] "1925-01-01 CET" "1924-01-01 CET" "1926-01-01 CET" "1918-01-01 CET"
+ [89] "1922-01-01 CET" "1921-01-01 CET" "1925-01-01 CET" "1928-01-01 CET"
+ [93] "1925-01-01 CET" "1929-01-01 CET" "1933-01-01 CET" "1947-01-01 CET"
+ [97] "1950-01-01 CET" "1945-01-01 CET" "1924-01-01 CET" "1939-01-01 CET"
+[101] "1924-01-01 CET" "1933-01-01 CET" "1928-01-01 CET"
##com.oracle.truffle.r.test.builtins.TestBuiltin_strptime.teststrptime2
#argv <- list(character(0), '%X', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))
@@ -44502,7 +44444,6 @@ factor(0)
#argv <- list(structure(list(Df = c(NA, 1, 1, 1, 1), `Sum of Sq` = c(NA, 25.9509113775335, 2.97247824113524, 0.109090049888117, 0.246974722154086), RSS = c(47.863639350499, 73.8145507280325, 50.8361175916342, 47.9727294003871, 48.1106140726531), AIC = c(26.9442879283302, 30.5758847476115, 25.7275503692601, 24.9738836085411, 25.0111950072736)), .Names = c('Df', 'Sum of Sq', 'RSS', 'AIC'), row.names = c('<none>', '- x1', '- x2', '- x3', '- x4'), class = c('anova', 'data.frame')), 2L);.subset2(argv[[1]],argv[[2]]);
[1] NA 25.9509114 2.9724782 0.1090900 0.2469747
-
##com.oracle.truffle.r.test.builtins.TestBuiltin_subset2.testsubset229
#argv <- list(structure(list(mtime = structure(1342423171, class = c('POSIXct', 'POSIXt'))), .Names = 'mtime'), 1L);.subset2(argv[[1]],argv[[2]]);
[1] "2012-07-16 09:19:31 CEST"
@@ -44704,7 +44645,7 @@ x + y
##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute
#{ substitute(a[x], list(a = quote(x + y), x = 1)) }
-x + y[1]
+(x + y)[1]
##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute
#{ substitute(function(x, a) { x + a }, list(a = quote(x + y), x = 1)) }
@@ -49066,25 +49007,11 @@ Error in eval(expr, envir, enclos) : argument is missing, with no default
##com.oracle.truffle.r.test.builtins.TestBuiltin_xtfrm.testxtfrm11
#argv <- list(structure(list(c(2L, 10L, 0L), c(2L, 10L, 1L), c(2L, 10L, 1L, 1L), c(2L, 11L, 0L), c(2L, 11L, 1L), c(2L, 11L, 1L, 1L), c(2L, 12L, 0L), c(2L, 12L, 1L), c(2L, 12L, 2L), c(2L, 12L, 2L, 1L), c(2L, 13L, 0L), c(2L, 13L, 1L), c(2L, 13L, 2L), c(2L, 14L, 0L), c(2L, 14L, 1L), c(2L, 14L, 2L), c(2L, 15L, 0L), c(2L, 15L, 1L), c(2L, 15L, 2L), c(2L, 15L, 3L), c(3L, 0L, 0L), c(3L, 0L, 1L)), class = 'numeric_version'));xtfrm(argv[[1]]);
- [1] 2.625000 2.628906 2.629150 2.687500 2.691406 2.691650 2.750000 2.753906
- [9] 2.757812 2.758057 2.812500 2.816406 2.820312 2.875000 2.878906 2.882812
-[17] 2.937500 2.941406 2.945312 2.949219 3.000000 3.003906
-attr(,"base")
-[1] 16
-attr(,"lens")
- [1] 3 3 4 3 3 4 3 3 3 4 3 3 3 3 3 3 3 3 3 3 3 3
-attr(,".classes")
-[1] "numeric_version"
+ [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
##com.oracle.truffle.r.test.builtins.TestBuiltin_xtfrm.testxtfrm12
#argv <- list(structure(list(c(2L, 11L, 0L)), class = 'numeric_version'));xtfrm(argv[[1]]);
-[1] 2.916667
-attr(,"base")
-[1] 12
-attr(,"lens")
-[1] 3
-attr(,".classes")
-[1] "numeric_version"
+[1] 1
##com.oracle.truffle.r.test.builtins.TestBuiltin_xtfrm.testxtfrm13
#argv <- list(structure(c(607L, 30L, 3L, 11L, 44L, 67L, 17L, 16L, 67L, 6L, 1L, 13L, 672L, 46L, 8L, 18L, 10L, 22L, 16L, 5L, 55L, 2L), .Dim = 22L, .Dimnames = structure(list(c('BUG FIXES', 'C-LEVEL FACILITIES', 'CODE MIGRATION', 'COMPRESSION', 'DEPRECATED & DEFUNCT', 'DEPRECATED AND DEFUNCT', 'GRAPHICS DEVICES', 'HELP & Rd FILE CHANGES', 'INSTALLATION', 'INTERNATIONALIZATION', 'LICENCE', 'LONG VECTORS', 'NEW FEATURES', 'PACKAGE INSTALLATION', 'PACKAGE parallel', 'PERFORMANCE IMPROVEMENTS', 'REGULAR EXPRESSIONS', 'SIGNIFICANT USER-VISIBLE CHANGES', 'SWEAVE & VIGNETTES', 'SWEAVE CHANGES', 'UTILITIES', 'WINDOWS-SPECIFIC CHANGES')), .Names = ''), class = 'table'));xtfrm(argv[[1]]);
@@ -51768,7 +51695,7 @@ Error: attempt to apply non-function
function (x, where = -1, envir = if (missing(frame)) as.environment(where) else sys.frame(frame),
frame, mode = "any", inherits = TRUE)
.Internal(exists(x, envir, mode, inherits))
-<bytecode: 0x7fc444921640>
+<bytecode: 0x1ac7f20>
<environment: namespace:base>
##com.oracle.truffle.r.test.functions.TestFunctions.testFunctionPrinting
@@ -51857,7 +51784,7 @@ Error in rnorm(s = 1, s = 1) :
##com.oracle.truffle.r.test.functions.TestFunctions.testInvocation
#{ round( rnorm(1,), digits = 5 ) }
-[1] -1.50717
+[1] 0.80642
##com.oracle.truffle.r.test.functions.TestFunctions.testInvokeIndirectly
#{ f <- function(x) x+1 ; g <- function(x) x+2 ; funs <- list(f,g) ; funs[[1]](1) }
@@ -53175,31 +53102,31 @@ Error in get("x") : object 'x' not found
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ ((0+1i)/0) * ((0+1i)/0) }
-[1] NaN+NaNi
+[1] -Inf+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ ((0-1i)/0) * ((-1-1i)/0) }
-[1] NaN+NaNi
+[1] -Inf+Infi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ ((0-1i)/0) * ((0+1i)/0) }
-[1] NaN+NaNi
+[1] Inf+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ ((0-1i)/0) * ((0-1i)/0) }
-[1] NaN+NaNi
+[1] -Inf+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ ((0-1i)/0) * ((1-1i)/0) }
-[1] NaN+NaNi
+[1] -Inf-Infi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ (-1+0i)/(0+0i) }
-[1] NaN+NaNi
+[1] -Inf+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ (-1-1i)/(0+0i) }
-[1] NaN+NaNi
+[1] -Inf-Infi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ (0+0i)/(0+0i) }
@@ -53207,15 +53134,15 @@ Error in get("x") : object 'x' not found
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ (0+1i)/(0+0i) }
-[1] NaN+NaNi
+[1] NaN+Infi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ (1+0i)/(0+0i) }
-[1] NaN+NaNi
+[1] Inf+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ (1+1i)/(0+0i) }
-[1] NaN+NaNi
+[1] Inf+Infi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testComplexNaNInfinity
#{ (1+2i) / ((0-0i)/(0+0i)) }
@@ -54262,7 +54189,7 @@ raw(0)
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testScalarsComplex
#{ (1+2i) / ((0-1i)/(0+0i)) }
-[1] NaN+NaNi
+[1] 0+0i
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testScalarsComplex
#{ (1+2i)*(3+4i) }
@@ -54282,7 +54209,7 @@ raw(0)
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testScalarsComplex
#{ 1/((1+0i)/(0+0i)) }
-[1] NaN+NaNi
+[1] 0+0i
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testScalarsComplex
#{ c(-1+2i,1.1+2.1i) }
@@ -54410,11 +54337,11 @@ raw(0)
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testScalarsComplexIgnore
#{ ((1+0i)/(0+0i)) ^ (-3) }
-[1] NaN+NaNi
+[1] 0+0i
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testScalarsComplexIgnore
#{ ((1+1i)/(0+0i)) ^ (-3) }
-[1] NaN+NaNi
+[1] 0+0i
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testScalarsComplexIgnore
#{ (1+2i)^(-2) }
@@ -54572,11 +54499,11 @@ complex(0)
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testUnaryMinusComplex
#{ -((0+1i)/0) }
-[1] NaN+NaNi
+[1] NaN-Infi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testUnaryMinusComplex
#{ -((1+0i)/0) }
-[1] NaN+NaNi
+[1] -Inf+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testUnaryMinusComplex
#{ -(2+1i) }
@@ -54584,7 +54511,7 @@ complex(0)
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testUnaryMinusComplex
#{ -c((1+0i)/0,2) }
-[1] NaN+NaNi -2+ 0i
+[1] -Inf+NaNi -2+ 0i
##com.oracle.truffle.r.test.library.base.TestSimpleArithmetic.testUnaryMinusDimensions
#{ xx <- double(0); dim(xx) <- c(0,0); dim(-xx) }
@@ -58046,11 +57973,11 @@ Error in x >= y : invalid comparison with complex values
##com.oracle.truffle.r.test.library.base.TestSimpleComparison.testVectors
#{ x<-c("0","1");y<-c("a","-1"); x<y }
-[1] TRUE FALSE
+[1] TRUE TRUE
##com.oracle.truffle.r.test.library.base.TestSimpleComparison.testVectors
#{ x<-c("0","1","-1", "2");y<-c("a","-1", "0", "2"); x<y }
-[1] TRUE FALSE TRUE FALSE
+[1] TRUE TRUE FALSE FALSE
##com.oracle.truffle.r.test.library.base.TestSimpleComparison.testVectors
#{ x<-c(1,2,3,4);y<-2.5; x<=y }
@@ -58291,11 +58218,14 @@ $names
[1] "x"
$row.names
-[1] "r1"
+[1] 1 2
$class
[1] "data.frame"
+Warning message:
+In as.data.frame.integer(x, row.names = "r1", nm = "x") :
+ 'row.names' is not a character vector of length 2 -- omitting it. Will be an error!
##com.oracle.truffle.r.test.library.base.TestSimpleDataFrames.testAsDataFrame
#{ x<-c(7L,42L); y<-as.data.frame(x, row.names=NULL, nm="x"); attributes(y); }
@@ -58331,11 +58261,14 @@ $names
[1] "x"
$row.names
-[1] "r1" "r2" "r3"
+[1] 1 2
$class
[1] "data.frame"
+Warning message:
+In as.data.frame.integer(x, row.names = c("r1", "r2", "r3"), nm = "x") :
+ 'row.names' is not a character vector of length 2 -- omitting it. Will be an error!
##com.oracle.truffle.r.test.library.base.TestSimpleDataFrames.testAsDataFrame
#{ x<-list(1,2); class(x)<-"data.frame"; row.names(x)<-"r1"; y<-as.data.frame(x, "r2"); attributes(x) }
@@ -59281,7 +59214,7 @@ Error in for (i in s) { : invalid for() loop sequence
##com.oracle.truffle.r.test.library.base.TestSimpleLoop.testLoopsErrorsIgnore
#{ l <- quote({ for(i in s) { x <- i } ; x }) ; f <- function(s) { eval(l) } ; f(1:3) ; s <- function(){} ; f(s) ; x }
-Error in eval(expr, envir, enclos) : object 'x' not found
+Error in for (i in s) { : invalid for() loop sequence
##com.oracle.truffle.r.test.library.base.TestSimpleLoop.testOneIterationLoops
#{ for (a in "xyz") cat(a) }
@@ -61188,7 +61121,7 @@ In c(1, 2) < c(1, 2, 3) :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testAmbiguousExpression
#exp(-abs((0+1i)/(0+0i)))
-[1] NaN
+[1] 0
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testAttributes
#x <- 1; attr(x, "a") <- "hello"; attr(x, "a");
@@ -62248,7 +62181,7 @@ Error in ((0/0) + (0+1i)) * "hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)*(-(1/0))
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)*(-0.0)
@@ -62264,7 +62197,7 @@ Error in ((0/0) + (0+1i)) * "hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)*(1/0)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)*(1i+NA)
@@ -62688,15 +62621,15 @@ Error in ((0/0) + (0+1i))^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^(-(0/0))
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^(-(1/0))
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^(-0.0)
@@ -62704,23 +62637,23 @@ Error in ((0/0) + (0+1i))^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^(0/0)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^(1+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^(1/0)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^(3.4+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^1
@@ -62732,11 +62665,11 @@ Error in ((0/0) + (0+1i))^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^1i
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^3.4
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^FALSE
@@ -62770,11 +62703,11 @@ Error in ((0/0) + (0+1i))^c("hello", "hello", "hello") :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^c(1i,1i,1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^c(3.4,3.4,3.4)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#((0/0)+1i)^c(FALSE,FALSE,FALSE)
@@ -62929,7 +62862,7 @@ Error in (-(0/0)) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))*(1+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))*(1/0)
@@ -62941,7 +62874,7 @@ Error in (-(0/0)) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))*(3.4+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))*1
@@ -63039,7 +62972,7 @@ Error in (-(0/0)) + "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))+(1+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))+(1/0)
@@ -63051,7 +62984,7 @@ Error in (-(0/0)) + "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))+(3.4+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))+1
@@ -63349,7 +63282,7 @@ Error in (-(0/0))^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^(-(0/0))
@@ -63369,7 +63302,7 @@ Error in (-(0/0))^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^(1+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^(1/0)
@@ -63377,11 +63310,11 @@ Error in (-(0/0))^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^(3.4+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^1
@@ -63393,7 +63326,7 @@ Error in (-(0/0))^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^1i
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^3.4
@@ -63430,7 +63363,7 @@ Error in (-(0/0))^c("hello", "hello", "hello") :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^c(1i,1i,1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(0/0))^c(3.4,3.4,3.4)
@@ -63569,7 +63502,7 @@ Error in (-(1/0)) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(1/0))*((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(1/0))*(-(0/0))
@@ -63597,7 +63530,7 @@ Error in (-(1/0)) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(1/0))*(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(1/0))*(3.4+NA)
@@ -64009,7 +63942,7 @@ Error in (-(1/0))^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(1/0))^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(1/0))^(-(0/0))
@@ -64037,7 +63970,7 @@ Error in (-(1/0))^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(1/0))^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(-(1/0))^(3.4+NA)
@@ -64909,7 +64842,7 @@ Error in (0/0) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)*(1+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)*(1/0)
@@ -64921,7 +64854,7 @@ Error in (0/0) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)*(3.4+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)*1
@@ -65019,7 +64952,7 @@ Error in (0/0) + "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)+(1+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)+(1/0)
@@ -65031,7 +64964,7 @@ Error in (0/0) + "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)+(3.4+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)+1
@@ -65329,7 +65262,7 @@ Error in (0/0)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^(-(0/0))
@@ -65349,7 +65282,7 @@ Error in (0/0)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^(1+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^(1/0)
@@ -65357,11 +65290,11 @@ Error in (0/0)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^(3.4+NA)
-[1] NaN
+[1] NA
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^1
@@ -65373,7 +65306,7 @@ Error in (0/0)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^1i
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^3.4
@@ -65410,7 +65343,7 @@ Error in (0/0)^c("hello", "hello", "hello") :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^c(1i,1i,1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(0/0)^c(3.4,3.4,3.4)
@@ -65553,7 +65486,7 @@ Error in (1 + NA) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)*(-(0/0))
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)*(-(1/0))
@@ -65565,7 +65498,7 @@ Error in (1 + NA) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)*(0/0)
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)*(1+NA)
@@ -65663,7 +65596,7 @@ Error in (1 + NA) + "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)+(-(0/0))
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)+(-(1/0))
@@ -65675,7 +65608,7 @@ Error in (1 + NA) + "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)+(0/0)
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)+(1+NA)
@@ -65989,11 +65922,11 @@ Error in (1 + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^(-(0/0))
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^(-(1/0))
@@ -66005,7 +65938,7 @@ Error in (1 + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^(0/0)
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^(1+NA)
@@ -66017,7 +65950,7 @@ Error in (1 + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^(3.4+NA)
@@ -66033,7 +65966,7 @@ Error in (1 + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^1i
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^3.4
@@ -66070,7 +66003,7 @@ Error in (1 + NA)^c("hello", "hello", "hello") :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^c(1i,1i,1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1+NA)^c(3.4,3.4,3.4)
@@ -66209,7 +66142,7 @@ Error in (1/0) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1/0)*((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1/0)*(-(0/0))
@@ -66237,7 +66170,7 @@ Error in (1/0) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1/0)*(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1/0)*(3.4+NA)
@@ -66649,7 +66582,7 @@ Error in (1/0)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1/0)^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1/0)^(-(0/0))
@@ -66677,7 +66610,7 @@ Error in (1/0)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1/0)^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1/0)^(3.4+NA)
@@ -66878,7 +66811,7 @@ Error in (0+1i + NA) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)*(-(1/0))
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)*(-0.0)
@@ -66894,7 +66827,7 @@ Error in (0+1i + NA) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)*(1/0)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)*(1i+NA)
@@ -67313,15 +67246,15 @@ Error in (0+1i + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^(-(0/0))
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^(-(1/0))
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^(-0.0)
@@ -67329,23 +67262,23 @@ Error in (0+1i + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^(0/0)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^(1+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^(1/0)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^(3.4+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^1
@@ -67357,11 +67290,11 @@ Error in (0+1i + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^1i
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^3.4
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^FALSE
@@ -67394,11 +67327,11 @@ Error in (0+1i + NA)^c("hello", "hello", "hello") :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^c(1i,1i,1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^c(3.4,3.4,3.4)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(1i+NA)^c(FALSE,FALSE,FALSE)
@@ -67537,7 +67470,7 @@ Error in (3.4 + NA) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)*(-(0/0))
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)*(-(1/0))
@@ -67549,7 +67482,7 @@ Error in (3.4 + NA) * "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)*(0/0)
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)*(1+NA)
@@ -67648,7 +67581,7 @@ Error in (3.4 + NA) + "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)+(-(0/0))
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)+(-(1/0))
@@ -67660,7 +67593,7 @@ Error in (3.4 + NA) + "hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)+(0/0)
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)+(1+NA)
@@ -67976,11 +67909,11 @@ Error in (3.4 + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^(-(0/0))
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^(-(1/0))
@@ -67992,7 +67925,7 @@ Error in (3.4 + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^(0/0)
-[1] NA
+[1] NaN
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^(1+NA)
@@ -68004,7 +67937,7 @@ Error in (3.4 + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^(3.4+NA)
@@ -68020,7 +67953,7 @@ Error in (3.4 + NA)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^1i
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^3.4
@@ -68057,7 +67990,7 @@ Error in (3.4 + NA)^c("hello", "hello", "hello") :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^c(1i,1i,1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#(3.4+NA)^c(3.4,3.4,3.4)
@@ -69186,7 +69119,7 @@ Error in 1L^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1L^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1L^(-(0/0))
@@ -69214,7 +69147,7 @@ Error in 1L^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1L^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1L^(3.4+NA)
@@ -69296,7 +69229,7 @@ Error in 1^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1^(-(0/0))
@@ -69324,7 +69257,7 @@ Error in 1^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1^(3.4+NA)
@@ -69854,11 +69787,11 @@ Error in (0+1i)/"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/(-(1/0))
-[1] NaN+NaNi
+[1] 0+0i
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/(-0.0)
-[1] NaN+NaNi
+[1] NaN-Infi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/(0/0)
@@ -69870,7 +69803,7 @@ Error in (0+1i)/"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/(1/0)
-[1] NaN+NaNi
+[1] 0+0i
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/(1i+NA)
@@ -69898,7 +69831,7 @@ Error in (0+1i)/"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/FALSE
-[1] NaN+NaNi
+[1] NaN+Infi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/NULL
@@ -69935,7 +69868,7 @@ Error in (0+1i)/c("hello", "hello", "hello") :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/c(FALSE,FALSE,FALSE)
-[1] NaN+NaNi NaN+NaNi NaN+NaNi
+[1] NaN+Infi NaN+Infi NaN+Infi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i/c(NULL,NULL,NULL)
@@ -69956,11 +69889,11 @@ Error in (0+1i)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^(-(0/0))
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^(-(1/0))
@@ -69972,11 +69905,11 @@ Error in (0+1i)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^(0/0)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^(1+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^(1/0)
@@ -69984,11 +69917,11 @@ Error in (0+1i)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^(3.4+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#1i^1
@@ -70616,7 +70549,7 @@ Error in 3.4^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#3.4^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#3.4^(-(0/0))
@@ -70644,7 +70577,7 @@ Error in 3.4^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#3.4^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#3.4^(3.4+NA)
@@ -72600,7 +72533,7 @@ Error in TRUE^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#TRUE^((0/0)+1i)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#TRUE^(-(0/0))
@@ -72628,7 +72561,7 @@ Error in TRUE^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#TRUE^(1i+NA)
-[1] NA
+[1] NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#TRUE^(3.4+NA)
@@ -74788,7 +74721,7 @@ Error in c(1, 1, 1)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1,1,1)^((0/0)+1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1,1,1)^(-(0/0))
@@ -74816,7 +74749,7 @@ Error in c(1, 1, 1)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1,1,1)^(1i+NA)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1,1,1)^(3.4+NA)
@@ -75456,7 +75389,7 @@ Error in c(1L, 1L, 1L)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1L,1L,1L)^((0/0)+1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1L,1L,1L)^(-(0/0))
@@ -75484,7 +75417,7 @@ Error in c(1L, 1L, 1L)^"hello" : non-numeric argument to binary operator
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1L,1L,1L)^(1i+NA)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1L,1L,1L)^(3.4+NA)
@@ -76024,11 +75957,11 @@ Error in c(0+1i, 0+1i, 0+1i)/"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/(-(1/0))
-[1] NaN+NaNi NaN+NaNi NaN+NaNi
+[1] 0+0i 0+0i 0+0i
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/(-0.0)
-[1] NaN+NaNi NaN+NaNi NaN+NaNi
+[1] NaN-Infi NaN-Infi NaN-Infi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/(0/0)
@@ -76040,7 +75973,7 @@ Error in c(0+1i, 0+1i, 0+1i)/"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/(1/0)
-[1] NaN+NaNi NaN+NaNi NaN+NaNi
+[1] 0+0i 0+0i 0+0i
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/(1i+NA)
@@ -76068,7 +76001,7 @@ Error in c(0+1i, 0+1i, 0+1i)/"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/FALSE
-[1] NaN+NaNi NaN+NaNi NaN+NaNi
+[1] NaN+Infi NaN+Infi NaN+Infi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/NULL
@@ -76106,7 +76039,7 @@ Error in c(0+1i, 0+1i, 0+1i)/c("hello", "hello", "hello") :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/c(FALSE,FALSE,FALSE)
-[1] NaN+NaNi NaN+NaNi NaN+NaNi
+[1] NaN+Infi NaN+Infi NaN+Infi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)/c(NULL,NULL,NULL)
@@ -76128,11 +76061,11 @@ Error in c(0+1i, 0+1i, 0+1i)^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^((0/0)+1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^(-(0/0))
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^(-(1/0))
@@ -76144,11 +76077,11 @@ Error in c(0+1i, 0+1i, 0+1i)^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^(0/0)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^(1+NA)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^(1/0)
@@ -76156,11 +76089,11 @@ Error in c(0+1i, 0+1i, 0+1i)^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^(1i+NA)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^(3.4+NA)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(1i,1i,1i)^1
@@ -76800,7 +76733,7 @@ Error in c(3.4, 3.4, 3.4)^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(3.4,3.4,3.4)^((0/0)+1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(3.4,3.4,3.4)^(-(0/0))
@@ -76828,7 +76761,7 @@ Error in c(3.4, 3.4, 3.4)^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(3.4,3.4,3.4)^(1i+NA)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(3.4,3.4,3.4)^(3.4+NA)
@@ -78816,7 +78749,7 @@ Error in c(TRUE, TRUE, TRUE)^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(TRUE,TRUE,TRUE)^((0/0)+1i)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(TRUE,TRUE,TRUE)^(-(0/0))
@@ -78844,7 +78777,7 @@ Error in c(TRUE, TRUE, TRUE)^"hello" :
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(TRUE,TRUE,TRUE)^(1i+NA)
-[1] NA NA NA
+[1] NaN+NaNi NaN+NaNi NaN+NaNi
##com.oracle.truffle.r.test.library.base.TestSimpleValues.testBinaryArithmetic
#c(TRUE,TRUE,TRUE)^(3.4+NA)
@@ -94241,8 +94174,7 @@ Error in b[[i]] <- v : more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testListUpdate
#{ f <- function(b,i,v) { b[[i]] <- v ; b } ; f(list(1,2,list(3)), c(3,1), 4) ; f(c(1,2,3), 2L, NULL) }
-Error in b[[i]] <- v :
- incompatible types (from NULL to double) in [[ assignment
+Error in b[[i]] <- v : more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testListUpdate
#{ f <- function(b,i,v) { b[[i]] <- v ; b } ; f(list(1,2,list(3)), c(3,1), 4) ; f(c(1,2,3), f, 2) }
@@ -95465,7 +95397,7 @@ Error in b[[0]] <- NULL :
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ b<-3:5; dim(b) <- c(1,3) ; b[[c(1)]] <- NULL ; b }
Error in b[[c(1)]] <- NULL :
- incompatible types (from NULL to integer) in [[ assignment
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ b<-3:5; dim(b) <- c(1,3) ; b[[c(1,2)]] <- NULL ; b }
@@ -95956,23 +95888,28 @@ Error in x[[NA]] <- NULL :
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x <- c(1); x[[-4]] <- NULL }
-Error in x[[-4]] <- NULL : attempt to select less than one element
+Error in x[[-4]] <- NULL :
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x <- c(1,2) ; x[[NA]] <- NULL ; x }
-Error in x[[NA]] <- NULL : attempt to select more than one element
+Error in x[[NA]] <- NULL :
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x <- c(1,2,3) ; x[[NA]] <- NULL ; x }
-Error in x[[NA]] <- NULL : attempt to select more than one element
+Error in x[[NA]] <- NULL :
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x <- c(1,2,3); x[[-1]] <- NULL }
-Error in x[[-1]] <- NULL : attempt to select more than one element
+Error in x[[-1]] <- NULL :
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x <- integer() ; x[[NA]] <- NULL ; x }
-Error in x[[NA]] <- NULL : attempt to select less than one element
+Error in x[[NA]] <- NULL :
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x <- list() ; x[[NA]] <- NULL ; x }
@@ -96518,7 +96455,8 @@ In x[1] <- c(1, 1) :
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x<-1:4; x[[0]]<-NULL; x }
-Error in x[[0]] <- NULL : attempt to select less than one element
+Error in x[[0]] <- NULL :
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x<-1:4; x[[1]]<-NULL; x }
@@ -96812,7 +96750,8 @@ Error in x[[-4]] <- 7 : attempt to select more than one element
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x<-c(1,2,3); x[[-4]]<-NULL }
-Error in x[[-4]] <- NULL : attempt to select more than one element
+Error in x[[-4]] <- NULL :
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x<-c(1,2,3,4); dim(x)<-c(2,2); x[1,1]<-NULL; x }
@@ -96826,12 +96765,12 @@ Error in x[1] <- NULL : replacement has length zero
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x<-c(1,2,3,4); dim(x)<-c(2,2); x[[1,1]]<-NULL; x }
Error in x[[1, 1]] <- NULL :
- incompatible types (from NULL to double) in [[ assignment
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x<-c(1,2,3,4); dim(x)<-c(2,2); x[[1]]<-NULL; x }
Error in x[[1]] <- NULL :
- incompatible types (from NULL to double) in [[ assignment
+ more elements supplied than there are to replace
##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther
#{ x<-c(1,2,3,4); dim(x)<-c(2,2); x[[as.raw(1), 1]]<-NULL }
@@ -104284,55 +104223,55 @@ In qnorm(c(0.1, 0.9, 0.5, 1.00001, 0.99999), 100, c(20, 1)) : NaNs produced
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rbinom(3,10,(1:5)/5), digits = 5 ) }
-[1] 3 3 5
+[1] 0 2 5
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rbinom(3,3,0.9), digits = 5 ) }
-[1] 1 3 3
+[1] 2 2 3
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rcauchy(3), digits = 5 ) }
-[1] 43.89147 -0.05349 3.33575
+[1] -15.11183 -0.92188 0.98099
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rcauchy(3, scale=4, location=1:3), digits = 5 ) }
-[1] 56.29827 4.13683 -16.08426
+[1] 0.21299 -16.15650 1.05942
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rgamma(3,0.5,rate=1:3), digits = 5 ) }
-[1] 0.25178 0.02155 0.21181
+[1] 0.05390 0.03285 0.00659
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rgamma(3,0.5,scale=1:3), digits = 5 ) }
-[1] 2.62762 1.78664 0.52814
+[1] 0.01605 0.05866 0.64889
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rgamma(3,1), digits = 5 ) }
-[1] 3.02747 0.10669 1.82794
+[1] 0.58059 0.06937 0.06347
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rlnorm(3), digits = 5 ) }
-[1] 4.18468 2.80678 0.15043
+[1] 0.26290 0.52463 3.25929
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rlnorm(3,sdlog=c(10,3,0.5)), digits = 5 ) }
-[1] 806490.72600 0.90902 1.13035
+[1] 8.16534 1.69155 0.88552
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( rnorm(3,c(1000,2,3),c(10,11)), digits = 5 ) }
-[1] 997.39286 17.86059 7.30944
+[1] 997.00152 16.52071 6.31252
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( runif(3), digits = 5 ) }
-[1] 0.95154 0.37429 0.37681
+[1] 0.35346 0.25754 0.31771
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( runif(3,1,10), digits = 5 ) }
-[1] 3.49109 4.77258 4.75406
+[1] 5.67056 4.02348 7.49731
##com.oracle.truffle.r.test.library.stats.TestStats.testRandomIgnore
#{ round( runif(3,1:3,3:2), digits = 5 ) }
-[1] 1.65443 2.00000 3.00000
+[1] 2.23571 2.00000 3.00000
##com.oracle.truffle.r.test.library.stats.TestStats.testRbinom
#set.seed(123); rbinom(1,20,c(0.3,0.2))
@@ -104413,18 +104352,17 @@ exiting from: f(5)
##com.oracle.truffle.r.test.library.utils.TestUtils.testMethods
#methods(plot)
- [1] plot.HoltWinters* plot.TukeyHSD* plot.acf*
- [4] plot.data.frame* plot.decomposed.ts* plot.default
- [7] plot.dendrogram* plot.density* plot.ecdf
-[10] plot.factor* plot.formula* plot.function
-[13] plot.hclust* plot.histogram* plot.isoreg*
-[16] plot.lm* plot.medpolish* plot.mlm*
-[19] plot.ppr* plot.prcomp* plot.princomp*
-[22] plot.profile.nls* plot.spec* plot.stepfun
+ [1] plot.acf* plot.data.frame* plot.decomposed.ts*
+ [4] plot.default plot.dendrogram* plot.density*
+ [7] plot.ecdf plot.factor* plot.formula*
+[10] plot.function plot.hclust* plot.histogram*
+[13] plot.HoltWinters* plot.isoreg* plot.lm*
+[16] plot.medpolish* plot.mlm* plot.ppr*
+[19] plot.prcomp* plot.princomp* plot.profile.nls*
+[22] plot.raster* plot.spec* plot.stepfun
[25] plot.stl* plot.table* plot.ts
-[28] plot.tskernel*
-
- Non-visible functions are asterisked
+[28] plot.tskernel* plot.TukeyHSD*
+see '?methods' for accessing help and source code
##com.oracle.truffle.r.test.parser.TestParser.testNegativePow
#10^(1+1)
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_format.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_format.java
index d1a96e99ee..556d04f31f 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_format.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_format.java
@@ -20,284 +20,284 @@ public class TestBuiltin_format extends TestBase {
@Test
public void testformat1() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c(0, 72.7, 56.4, 72.7, 0, 63.3, 56.4, 63.3, 0), .Dim = c(3L, 3L), .Dimnames = list(c('Girth', 'Height', 'Volume'), c('Girth', 'Height', 'Volume'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c(0, 72.7, 56.4, 72.7, 0, 63.3, 56.4, 63.3, 0), .Dim = c(3L, 3L), .Dimnames = list(c('Girth', 'Height', 'Volume'), c('Girth', 'Height', 'Volume'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]], , argv[[9]]))");
}
@Test
public void testformat2() {
- assertEval("argv <- list('\\\\ab\\\\c', FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list('\\\\ab\\\\c', FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat3() {
assertEval(Ignored.Unknown,
- "argv <- list(c('Inf', '-Inf', 'NaN', 'NA'), FALSE, NULL, 0L, 4, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c('Inf', '-Inf', 'NaN', 'NA'), FALSE, NULL, 0L, 4, 1L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat4() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c('axx', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), .Dim = c(2L, 4L)), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c('axx', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), .Dim = c(2L, 4L)), FALSE, NULL, 0L, NULL, 1L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat6() {
- assertEval("argv <- list(structure(c(47.97, 57.9, 74.76, 868.88), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(structure(c(47.97, 57.9, 74.76, 868.88), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat7() {
assertEval(Ignored.Unknown,
- "argv <- list(c('a', 'NA', NA, 'b'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c('a', 'NA', NA, 'b'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat8() {
assertEval(Ignored.Unknown,
- "argv <- list(NA_real_, FALSE, 4L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(NA_real_, FALSE, 4L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat9() {
- assertEval("argv <- list(integer(0), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(integer(0), TRUE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat10() {
- assertEval("argv <- list(c(FALSE, NA, TRUE), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(FALSE, NA, TRUE), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat11() {
- assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat12() {
assertEval(Ignored.Unknown,
- "argv <- list(c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat13() {
- assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, -1L, -2L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, -1L, -2L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat14() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c(NA, 1, 1, 1), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c(NA, 1, 1, 1), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat15() {
assertEval(Ignored.Unknown,
- "argv <- list(2.22044604925031e-16, FALSE, 1, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(2.22044604925031e-16, FALSE, 1, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat16() {
- assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat17() {
assertEval(Ignored.Unknown,
- "argv <- list(c(2.3e-05, 4.5e-06), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c(2.3e-05, 4.5e-06), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat18() {
- assertEval("argv <- list(c(2L, 4L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(2L, 4L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat19() {
- assertEval("argv <- list(c(1L, NA, 1L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(1L, NA, 1L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat20() {
- assertEval("argv <- list(c('abc', NA, 'def'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c('abc', NA, 'def'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat23() {
assertEval(Ignored.Unknown,
- "argv <- list(c(NA, 2L, 4L, 7L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c(NA, 2L, 4L, 7L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat24() {
assertEval(Ignored.Unknown,
- "argv <- list(c(1.1+0i, NA, 3+0i), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c(1.1+0i, NA, 3+0i), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat25() {
- assertEval("argv <- list(c(' 9 ', ' 13 ', ' 13+', ' 18 ', ' 23 ', ' 28+', ' 31 ', ' 34 ', ' 45+', ' 48 '), TRUE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(' 9 ', ' 13 ', ' 13+', ' 18 ', ' 23 ', ' 28+', ' 31 ', ' 34 ', ' 45+', ' 48 '), TRUE, NULL, 0L, NULL, 0L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat26() {
- assertEval("argv <- list(c(172, 88, 88, 55, 92, 92, 72, 72, 63, 63), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(172, 88, 88, 55, 92, 92, 72, 72, 63, 63), TRUE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat27() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c(142L, 104L, 71L, 250L), .Dim = 4L, .Dimnames = structure(list(c('(1) Approve STRONGLY', '(2) Approve SOMEWHAT', '(3) Disapprove SOMEWHAT', '(4) Disapprove STRONGLY')), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c(142L, 104L, 71L, 250L), .Dim = 4L, .Dimnames = structure(list(c('(1) Approve STRONGLY', '(2) Approve SOMEWHAT', '(3) Disapprove SOMEWHAT', '(4) Disapprove STRONGLY')), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat28() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c('***', '*', ' ', ' ', ' '), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c('***', '*', ' ', ' ', ' '), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat29() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c(0, 5, 118, 57, 0, 1, 4, 140, 0, 11, 154, 14, 0, 13, 13, 80, 35, 13, 387, 75, 17, 14, 89, 76, 0, 0, 670, 192, 0, 0, 3, 20), .Dim = c(1L, 32L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c('1st', '2nd', '3rd', 'Crew'), Sex = c('Male', 'Female'), Age = c('Child', 'Adult'), Survived = c('No', 'Yes')), .Names = c('Class', 'Sex', 'Age', 'Survived'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c(0, 5, 118, 57, 0, 1, 4, 140, 0, 11, 154, 14, 0, 13, 13, 80, 35, 13, 387, 75, 17, 14, 89, 76, 0, 0, 670, 192, 0, 0, 3, 20), .Dim = c(1L, 32L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c('1st', '2nd', '3rd', 'Crew'), Sex = c('Male', 'Female'), Age = c('Child', 'Adult'), Survived = c('No', 'Yes')), .Names = c('Class', 'Sex', 'Age', 'Survived'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat30() {
assertEval(Ignored.Unknown,
- "argv <- list(c('', '', '\\\'Adult\\\'', '\\\'No\\\'', '', '387'), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c('', '', '\\\'Adult\\\'', '\\\'No\\\'', '', '387'), FALSE, NULL, 0L, NULL, 1L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat31() {
assertEval(Ignored.Unknown,
- "argv <- list(2.2250738585072e-308, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(2.2250738585072e-308, TRUE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat32() {
assertEval(Ignored.Unknown,
- "argv <- list(c(-0.318309886183791+0i, 0-0.564189583547756i, 1+0i, 0+1.77245385090552i, -3.14159265358979+0i), TRUE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c(-0.318309886183791+0i, 0-0.564189583547756i, 1+0i, 0+1.77245385090552i, -3.14159265358979+0i), TRUE, 2, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat33() {
assertEval(Ignored.Unknown,
- "argv <- list(0+1i, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(0+1i, TRUE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat34() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat35() {
- assertEval("argv <- list(c(-41L, -36L, -12L, -18L, NA, -28L, -23L, -19L, -8L, NA, -7L, -16L, -11L, -14L, -18L, -14L, -34L, -6L, -30L, -11L, -1L, -11L, -4L, -32L, NA, NA, NA, -23L, -45L, -115L, -37L, NA, NA, NA, NA, NA, NA, -29L, NA, -71L, -39L, NA, NA, -23L, NA, NA, -21L, -37L, -20L, -12L, -13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, -135L, -49L, -32L, NA, -64L, -40L, -77L, -97L, -97L, -85L, NA, -10L, -27L, NA, -7L, -48L, -35L, -61L, -79L, -63L, -16L, NA, NA, -80L, -108L, -20L, -52L, -82L, -50L, -64L, -59L, -39L, -9L, -16L, -78L, -35L, -66L, -122L, -89L, -110L, NA, NA, -44L, -28L, -65L, NA, -22L, -59L, -23L, -31L, -44L, -21L, -9L, NA, -45L, -168L, -73L, NA, -76L, -118L, -84L, -85L, -96L, -78L, -73L, -91L, -47L, -32L, -20L, -23L, -21L, -24L, -44L, -21L, -28L, -9L, -13L, -46L, -18L, -13L, -24L, -16L, -13L, -23L, -36L, -7L, -14L, -30L, NA, -14L, -18L, -20L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(-41L, -36L, -12L, -18L, NA, -28L, -23L, -19L, -8L, NA, -7L, -16L, -11L, -14L, -18L, -14L, -34L, -6L, -30L, -11L, -1L, -11L, -4L, -32L, NA, NA, NA, -23L, -45L, -115L, -37L, NA, NA, NA, NA, NA, NA, -29L, NA, -71L, -39L, NA, NA, -23L, NA, NA, -21L, -37L, -20L, -12L, -13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, -135L, -49L, -32L, NA, -64L, -40L, -77L, -97L, -97L, -85L, NA, -10L, -27L, NA, -7L, -48L, -35L, -61L, -79L, -63L, -16L, NA, NA, -80L, -108L, -20L, -52L, -82L, -50L, -64L, -59L, -39L, -9L, -16L, -78L, -35L, -66L, -122L, -89L, -110L, NA, NA, -44L, -28L, -65L, NA, -22L, -59L, -23L, -31L, -44L, -21L, -9L, NA, -45L, -168L, -73L, NA, -76L, -118L, -84L, -85L, -96L, -78L, -73L, -91L, -47L, -32L, -20L, -23L, -21L, -24L, -44L, -21L, -28L, -9L, -13L, -46L, -18L, -13L, -24L, -16L, -13L, -23L, -36L, -7L, -14L, -30L, NA, -14L, -18L, -20L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat36() {
- assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), TRUE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), TRUE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat37() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c(213198964, 652424.52183908), .Names = c('null.deviance', 'deviance')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c(213198964, 652424.52183908), .Names = c('null.deviance', 'deviance')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat38() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(integer(0), .Dim = c(1L, 0L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(df0 = NULL), .Names = 'df0')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(integer(0), .Dim = c(1L, 0L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(df0 = NULL), .Names = 'df0')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat39() {
- assertEval("argv <- list(FALSE, FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(FALSE, FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat40() {
assertEval(Ignored.Unknown,
- "argv <- list(1e-07, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(1e-07, TRUE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat41() {
- assertEval("argv <- list(structure(c(3035, 2552, 2704, 2554, 2014, 1655, 1721, 1524, 1596, 2074, 2199, 2512, 2933, 2889, 2938, 2497, 1870, 1726, 1607, 1545, 1396, 1787, 2076, 2837, 2787, 3891, 3179, 2011, 1636, 1580, 1489, 1300, 1356, 1653, 2013, 2823, 3102, 2294, 2385, 2444, 1748, 1554, 1498, 1361, 1346, 1564, 1640, 2293, 2815, 3137, 2679, 1969, 1870, 1633, 1529, 1366, 1357, 1570, 1535, 2491, 3084, 2605, 2573, 2143, 1693, 1504, 1461, 1354, 1333, 1492, 1781, 1915), .Tsp = c(1973, 1978.91666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(structure(c(3035, 2552, 2704, 2554, 2014, 1655, 1721, 1524, 1596, 2074, 2199, 2512, 2933, 2889, 2938, 2497, 1870, 1726, 1607, 1545, 1396, 1787, 2076, 2837, 2787, 3891, 3179, 2011, 1636, 1580, 1489, 1300, 1356, 1653, 2013, 2823, 3102, 2294, 2385, 2444, 1748, 1554, 1498, 1361, 1346, 1564, 1640, 2293, 2815, 3137, 2679, 1969, 1870, 1633, 1529, 1366, 1357, 1570, 1535, 2491, 3084, 2605, 2573, 2143, 1693, 1504, 1461, 1354, 1333, 1492, 1781, 1915), .Tsp = c(1973, 1978.91666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat42() {
assertEval(Ignored.Unknown,
- "argv <- list(c(2.5, 97.5), TRUE, 3, 0L, NULL, 3L, TRUE, FALSE); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(c(2.5, 97.5), TRUE, 3, 0L, NULL, 3L, TRUE, FALSE, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat43() {
assertEval(Ignored.Unknown,
- "argv <- list(structure(c(9.4, 10.2, 9.2, 4.4, 3.5, 2.7), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('Estimate', 'Std.Err'))), FALSE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(structure(c(9.4, 10.2, 9.2, 4.4, 3.5, 2.7), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('Estimate', 'Std.Err'))), FALSE, 2, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat44() {
- assertEval("argv <- list(95, 2, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(95, 2, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat46() {
assertEval(Ignored.Unknown,
- "argv <- list(1.2e+07, FALSE, NULL, 9L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(1.2e+07, FALSE, NULL, 9L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat47() {
assertEval(Ignored.Unknown,
- "argv <- list(-0.01234+3.14159265358979i, FALSE, NULL, 14L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(-0.01234+3.14159265358979i, FALSE, NULL, 14L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat48() {
- assertEval("argv <- list(c(TRUE, FALSE, TRUE, FALSE, FALSE, FALSE), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, FALSE, FALSE, FALSE), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat49() {
assertEval(Ignored.Unknown,
- "argv <- list(3.141, FALSE, NULL, 13L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(3.141, FALSE, NULL, 13L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat50() {
- assertEval("argv <- list(c(Inf, -Inf), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(Inf, -Inf), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat51() {
- assertEval("argv <- list(structure(c(2, NA), .Names = c('N:P:K', 'Residuals')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(structure(c(2, NA), .Names = c('N:P:K', 'Residuals')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat52() {
- assertEval("argv <- list(structure('def\\\'gh', class = 'AsIs'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(structure('def\\\'gh', class = 'AsIs'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat53() {
- assertEval("argv <- list(structure(4:9, .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', 'b'))), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(structure(4:9, .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', 'b'))), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat54() {
- assertEval("argv <- list(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
public void testformat55() {
assertEval(Ignored.Unknown,
- "argv <- list(1e-11, FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ "argv <- list(1e-11, FALSE, NULL, 0L, NULL, 3L, TRUE, NA, \".\"); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
}
@Test
@@ -311,7 +311,7 @@ public class TestBuiltin_format extends TestBase {
*/
@Test
public void testformat57() {
- assertEval("x <- c(1.0,2.0);names(x) <- c(\"x\",\"y\");argv <- list(x, FALSE, NULL, 0L, NULL, 0L, FALSE, FALSE);names(.Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]])))");
+ assertEval("x <- c(1.0,2.0);names(x) <- c(\"x\",\"y\");argv <- list(x, FALSE, NULL, 0L, NULL, 0L, FALSE, FALSE, \".\");names(.Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]])))");
}
public void testFormat() {
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_nchar.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_nchar.java
index ec3ab65815..561de03d9d 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_nchar.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_nchar.java
@@ -19,62 +19,62 @@ public class TestBuiltin_nchar extends TestBase {
@Test
public void testnchar1() {
- assertEval("argv <- list('DtTmCl> format(.leap.seconds) # all 24 leap seconds in your timezone', 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list('DtTmCl> format(.leap.seconds) # all 24 leap seconds in your timezone', 'c', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar2() {
- assertEval("argv <- list(c('\\\'a\\\'', '\\\'b\\\'', NA, NA, NA, '\\\'f\\\'', '\\\'g\\\'', '\\\'h\\\'', '\\\'i\\\'', '\\\'j\\\'', '\\\'k\\\'', '\\\'l\\\''), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(c('\\\'a\\\'', '\\\'b\\\'', NA, NA, NA, '\\\'f\\\'', '\\\'g\\\'', '\\\'h\\\'', '\\\'i\\\'', '\\\'j\\\'', '\\\'k\\\'', '\\\'l\\\''), 'w', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar3() {
- assertEval("argv <- list('\\\'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\\\'', 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list('\\\'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\\\'', 'w', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar4() {
- assertEval("argv <- list(structure(c('1', '2', '3', '4', '5', '1', '2', '3', '4', '5'), .Dim = 10L), 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(structure(c('1', '2', '3', '4', '5', '1', '2', '3', '4', '5'), .Dim = 10L), 'c', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar5() {
- assertEval("argv <- list(c('Var1', 'Var2'), 'bytes', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(c('Var1', 'Var2'), 'bytes', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar6() {
- assertEval("argv <- list(c('0.0470', '0.0130', '0.0020', '0.0001', '2.3e-05', '4.5e-06'), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(c('0.0470', '0.0130', '0.0020', '0.0001', '2.3e-05', '4.5e-06'), 'w', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar7() {
- assertEval("argv <- list(c('x1', 'x.2', 'x3'), 'bytes', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(c('x1', 'x.2', 'x3'), 'bytes', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar9() {
- assertEval("argv <- list(c('\\\'1\\\'', '\\\'2\\\'', NA), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(c('\\\'1\\\'', '\\\'2\\\'', NA), 'w', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar10() {
- assertEval("argv <- list(FALSE, 'chars', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(FALSE, 'chars', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar11() {
- assertEval("argv <- list('> contour(x, y, volcano, levels = lev, col=\\\'yellow\\\', lty=\\\'solid\\\', add=TRUE)', 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list('> contour(x, y, volcano, levels = lev, col=\\\'yellow\\\', lty=\\\'solid\\\', add=TRUE)', 'c', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar12() {
- assertEval("argv <- list(character(0), 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(character(0), 'c', FALSE, FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
public void testnchar13() {
- assertEval("argv <- list(structure(c('rpart', 'recommended', '4.1-1', '2013-03-20', 'c(person(\\\'Terry\\\', \\\'Therneau\\\', role = \\\'aut\\\',\\n\\t email = \\\'therneau@mayo.edu\\\'),\\n person(\\\'Beth\\\', \\\'Atkinson\\\', role = \\\'aut\\\',\\t\\n\\t email = \\\'atkinson@mayo.edu\\\'),\\n person(\\\'Brian\\\', \\\'Ripley\\\', role = c(\\\'aut\\\', \\\'trl\\\', \\\'cre\\\'),\\n email = \\\'ripley@stats.ox.ac.uk\\\',\\n\\t\\t comment = \\\'author of R port\\\'))', 'Recursive partitioning and regression trees', 'Recursive Partitioning', 'R (>= 2.14.0), graphics, stats, grDevices', 'survival', 'GPL-2 | GPL-3', 'yes', 'yes', 'Maintainers are not available to give advice on using a package\\nthey did not author.', '2013-03-20 07:27:05 UTC; ripley', 'Terry Therneau [aut],\\n Beth Atkinson [aut],\\n Brian Ripley [aut, trl, cre] (author of R port)', 'Brian Ripley <ripley@stats.ox.ac.uk>'), .Names = c('Package', 'Priority', 'Version', 'Date', 'Authors@R', 'Description', 'Title', 'Depends', 'Suggests', 'License', 'LazyData', 'ByteCompile', 'Note', 'Packaged', 'Author', 'Maintainer')), 'c', TRUE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(structure(c('rpart', 'recommended', '4.1-1', '2013-03-20', 'c(person(\\\'Terry\\\', \\\'Therneau\\\', role = \\\'aut\\\',\\n\\t email = \\\'therneau@mayo.edu\\\'),\\n person(\\\'Beth\\\', \\\'Atkinson\\\', role = \\\'aut\\\',\\t\\n\\t email = \\\'atkinson@mayo.edu\\\'),\\n person(\\\'Brian\\\', \\\'Ripley\\\', role = c(\\\'aut\\\', \\\'trl\\\', \\\'cre\\\'),\\n email = \\\'ripley@stats.ox.ac.uk\\\',\\n\\t\\t comment = \\\'author of R port\\\'))', 'Recursive partitioning and regression trees', 'Recursive Partitioning', 'R (>= 2.14.0), graphics, stats, grDevices', 'survival', 'GPL-2 | GPL-3', 'yes', 'yes', 'Maintainers are not available to give advice on using a package\\nthey did not author.', '2013-03-20 07:27:05 UTC; ripley', 'Terry Therneau [aut],\\n Beth Atkinson [aut],\\n Brian Ripley [aut, trl, cre] (author of R port)', 'Brian Ripley <ripley@stats.ox.ac.uk>'), .Names = c('Package', 'Priority', 'Version', 'Date', 'Authors@R', 'Description', 'Title', 'Depends', 'Suggests', 'License', 'LazyData', 'ByteCompile', 'Note', 'Packaged', 'Author', 'Maintainer')), 'c', TRUE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
}
@Test
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_operators.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_operators.java
index c3a2f1dca7..31fdef617d 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_operators.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_operators.java
@@ -473,7 +473,9 @@ public class TestBuiltin_operators extends TestBase {
@Test
public void testoperators91() {
- assertEval("argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('3.1', .Names = 'gridSVG2'));`<`(argv[[1]],argv[[2]]);");
+ // GnuR outputs "TRUE" not "[1] TRUE"
+ assertEval(Ignored.OutputFormatting,
+ "argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('3.1', .Names = 'gridSVG2'));`<`(argv[[1]],argv[[2]]);");
}
@Test
@@ -731,7 +733,9 @@ public class TestBuiltin_operators extends TestBase {
@Test
public void testoperators142() {
- assertEval("argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('2.13.2', .Names = 'SweaveListingUtils'));`>`(argv[[1]],argv[[2]]);");
+ // GnuR outputs "TRUE" not "[1] TRUE"
+ assertEval(Ignored.OutputFormatting,
+ "argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('2.13.2', .Names = 'SweaveListingUtils'));`>`(argv[[1]],argv[[2]]);");
}
@Test
@@ -1551,7 +1555,8 @@ public class TestBuiltin_operators extends TestBase {
@Test
public void testoperators308() {
- assertEval("argv <- list(list());`|`(argv[[1]]);");
+ assertEval(Ignored.WrongCaller, "argv <- list(list());`|`(argv[[1]]);"); // GnuR formats as
+// !argv[[1]] not as a call
}
@Test
@@ -1741,7 +1746,8 @@ public class TestBuiltin_operators extends TestBase {
@Test
public void testoperators344() {
- assertEval("argv <- list(list());`&`(argv[[1]]);");
+ // GnuR formats as &argv[[1]] not as a call
+ assertEval(Ignored.WrongCaller, "argv <- list(list());`&`(argv[[1]]);");
}
@Test
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_rank.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_rank.java
index 37808f9d0c..5cbddabc5a 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_rank.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_rank.java
@@ -39,7 +39,7 @@ public class TestBuiltin_rank extends TestBase {
@Test
public void testrank5() {
- assertEval("argv <- list(structure(c(9.96, 84.84, 93.4, 33.77, 5.16, 90.57, 92.85, 97.16, 97.67, 91.38, 98.61, 8.52, 2.27, 4.43, 2.82, 24.2, 3.3, 12.11, 2.15, 2.84, 5.23, 4.52, 15.14, 4.2, 5.23, 2.56, 7.72, 18.46, 6.1, 99.71, 99.68, 100, 98.96, 98.22, 99.06, 99.46, 96.83, 5.62, 13.79, 11.22, 16.92, 4.97, 8.65, 42.34, 50.43, 58.33), .Names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux', 'Morges', 'Moudon', 'Nyone', 'Orbe', 'Payerne', 'Paysd'enhaut', 'Rolle', 'Vevey', 'Yverdon', 'Conthey', 'Entremont', 'Herens', 'Martigwy', 'Monthey', 'St Maurice', 'Sierre', 'Sion', 'Boudry', 'La Chauxdfnd', 'Le Locle', 'Neuchatel', 'Val de Ruz', 'ValdeTravers', 'V. De Geneve', 'Rive Droite', 'Rive Gauche')), 46L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ assertEval("argv <- list(structure(c(9.96, 84.84, 93.4, 33.77, 5.16, 90.57, 92.85, 97.16, 97.67, 91.38, 98.61, 8.52, 2.27, 4.43, 2.82, 24.2, 3.3, 12.11, 2.15, 2.84, 5.23, 4.52, 15.14, 4.2, 5.23, 2.56, 7.72, 18.46, 6.1, 99.71, 99.68, 100, 98.96, 98.22, 99.06, 99.46, 96.83, 5.62, 13.79, 11.22, 16.92, 4.97, 8.65, 42.34, 50.43, 58.33), .Names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux', 'Morges', 'Moudon', 'Nyone', 'Orbe', 'Payerne', 'Paysd\\'enhaut', 'Rolle', 'Vevey', 'Yverdon', 'Conthey', 'Entremont', 'Herens', 'Martigwy', 'Monthey', 'St Maurice', 'Sierre', 'Sion', 'Boudry', 'La Chauxdfnd', 'Le Locle', 'Neuchatel', 'Val de Ruz', 'ValdeTravers', 'V. De Geneve', 'Rive Droite', 'Rive Gauche')), 46L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
}
@Test
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleDataFrames.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleDataFrames.java
index 18b347d4fd..3b9f8667e8 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleDataFrames.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleDataFrames.java
@@ -100,9 +100,9 @@ public class TestSimpleDataFrames extends TestBase {
assertEval("{ x<-as.character(c(7L,42L)); y<-as.data.frame(x, row.names=NULL, nm=\"x\"); is.data.frame(y); }");
assertEval("{ x<-as.complex(c(7L,42L)); y<-as.data.frame(x, row.names=NULL, nm=\"x\"); is.data.frame(y); }");
assertEval("{ x<-as.raw(c(7L,42L)); y<-as.data.frame(x, row.names=NULL, nm=\"x\"); is.data.frame(y); }");
- assertEval("{ x<-c(7L,42L); y<-as.data.frame(x, row.names=\"r1\", nm=\"x\"); attributes(y); }");
+ assertEval(Output.ContainsWarning, "{ x<-c(7L,42L); y<-as.data.frame(x, row.names=\"r1\", nm=\"x\"); attributes(y); }");
assertEval("{ x<-c(7L,42L); y<-as.data.frame(x, row.names=c(\"r1\", \"r2\"), nm=\"x\"); attributes(y); }");
- assertEval("{ x<-c(7L,42L); y<-as.data.frame(x, row.names=c(\"r1\", \"r2\", \"r3\"), nm=\"x\"); attributes(y); }");
+ assertEval(Output.ContainsWarning, "{ x<-c(7L,42L); y<-as.data.frame(x, row.names=c(\"r1\", \"r2\", \"r3\"), nm=\"x\"); attributes(y); }");
assertEval("{ x<-matrix(c(1,2,3,4), nrow=2); y<-as.data.frame(x, row.names=NULL, optional=FALSE); attributes(y); }");
assertEval("{ x<-matrix(c(1,2,3,4), nrow=2); y<-as.data.frame(x, row.names=\"r1\", optional=FALSE); attributes(y); }");
assertEval(Output.ContainsError, "{ x<-1; class(x)<-\"foo\"; y<-as.data.frame(x) }");
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleVectors.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleVectors.java
index 239a31a61b..2b362ce8d0 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleVectors.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestSimpleVectors.java
@@ -653,13 +653,13 @@ public class TestSimpleVectors extends TestBase {
// this came from testRawIndex
// weird problems with fluctuating error messages in GNU R
- assertEval(Output.ContainsError, "{ x<-1:4; x[[0]]<-NULL; x }");
+ assertEval(Ignored.Unknown, Output.ContainsError, "{ x<-1:4; x[[0]]<-NULL; x }");
assertEval(Ignored.Unknown, Output.ContainsError, "{ b<-3:5; dim(b) <- c(1,3) ; b[[c(1)]] <- NULL ; b }");
assertEval(Ignored.Unknown, Output.ContainsError, "{ b<-3:5; dim(b) <- c(1,3) ; b[[0]] <- NULL ; b }");
- assertEval("{ x <- integer() ; x[[NA]] <- NULL ; x }");
+ assertEval(Ignored.Unknown, Output.ContainsError, "{ x <- integer() ; x[[NA]] <- NULL ; x }");
assertEval(Ignored.Unknown, Output.ContainsError, "{ x <- c(1) ; x[[NA]] <- NULL ; x }");
- assertEval("{ x <- c(1,2) ; x[[NA]] <- NULL ; x }");
- assertEval("{ x <- c(1,2,3) ; x[[NA]] <- NULL ; x }");
+ assertEval(Ignored.Unknown, Output.ContainsError, "{ x <- c(1,2) ; x[[NA]] <- NULL ; x }");
+ assertEval(Ignored.Unknown, Output.ContainsError, "{ x <- c(1,2,3) ; x[[NA]] <- NULL ; x }");
assertEval(Ignored.Unknown, Output.ContainsError, "{ x<-c(1,2,3,4); dim(x)<-c(2,2); x[[1]]<-NULL; x }");
// inconsistent error messages in expected output and shell
diff --git a/mx.fastr/copyrights/overrides b/mx.fastr/copyrights/overrides
index 6ae4b8c513..56e6ce88a2 100644
--- a/mx.fastr/copyrights/overrides
+++ b/mx.fastr/copyrights/overrides
@@ -145,6 +145,7 @@ com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/L
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Order.java,gnu_r_gentleman_ihaka.copyright
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Rank.java,gnu_r_gentleman_ihaka.copyright
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Prod.java,purdue.copyright
+com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Rank.java,gnu_r_gentleman_ihaka.copyright
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/RepeatLength.java,purdue.copyright
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/RowMeans.java,purdue.copyright
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/RowSums.java,purdue.copyright
diff --git a/mx.fastr/suite.py b/mx.fastr/suite.py
index 8e91aa5b89..d328ebedcf 100644
--- a/mx.fastr/suite.py
+++ b/mx.fastr/suite.py
@@ -41,9 +41,9 @@ suite = {
# relative to the suite root and not the mx cache
"libraries" : {
"GNUR" : {
- "path" : "libdownloads/R-3.1.3.tar.gz",
- "urls" : ["http://cran.rstudio.com/src/base/R-3/R-3.1.3.tar.gz"],
- "sha1" : "2c9165060b91e45ac73d8cb7507ee9e52816f8b3",
+ "path" : "libdownloads/R-3.2.4.tar.gz",
+ "urls" : ["http://cran.rstudio.com/src/base/R-3/R-3.2.4.tar.gz"],
+ "sha1" : "632664b3caa8d39f5fe6ac2ee9611b0f89ad6ed9",
"resource" : "true"
},
--
GitLab