From 48be05102fb649b50bb65779f789ba9a6563de46 Mon Sep 17 00:00:00 2001
From: Florian Angerer <florian.angerer@oracle.com>
Date: Mon, 29 May 2017 09:39:55 +0200
Subject: [PATCH] Overriding makeLazyLoad to keep original package source in
installation dir.
---
.../r/nodes/builtin/tools/R/tools_overrides.R | 59 +++++++++++++++++++
1 file changed, 59 insertions(+)
create mode 100644 com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/tools/R/tools_overrides.R
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/tools/R/tools_overrides.R b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/tools/R/tools_overrides.R
new file mode 100644
index 0000000000..d7aedd7b69
--- /dev/null
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/tools/R/tools_overrides.R
@@ -0,0 +1,59 @@
+# Copyright (c) 2017, 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.
+
+eval(expression({
+makeLazyLoading <-
+ function(package, lib.loc = NULL, compress = TRUE,
+ keep.source = getOption("keep.source.pkgs"))
+{
+ if(!is.logical(compress) && ! compress %in% c(2,3))
+ stop("invalid value for 'compress': should be FALSE, TRUE, 2 or 3")
+ options(warn = 1L)
+ findpack <- function(package, lib.loc) {
+ pkgpath <- find.package(package, lib.loc, quiet = TRUE)
+ if(!length(pkgpath))
+ stop(gettextf("there is no package called '%s'", package),
+ domain = NA)
+ pkgpath
+ }
+
+ if (package == "base")
+ stop("this cannot be used for package 'base'")
+
+ loaderFile <- file.path(R.home("share"), "R", "nspackloader.R")
+ pkgpath <- findpack(package, lib.loc)
+ codeFile <- file.path(pkgpath, "R", package)
+
+ if (!file.exists(codeFile)) {
+ warning("package contains no R code")
+ return(invisible())
+ }
+ if (file.size(codeFile) == file.size(loaderFile))
+ warning("package seems to be using lazy loading already")
+ else {
+ code2LazyLoadDB(package, lib.loc = lib.loc,
+ keep.source = keep.source, compress = compress)
+ #file.copy(loaderFile, codeFile, TRUE)
+ }
+
+ invisible()
+}
+}), asNamespace("tools"))
--
GitLab