1- # Copyright (C) 2010 - 2013 Dirk Eddelbuettel and Romain Francois
1+ # Copyright (C) 2010 - 2018 Dirk Eddelbuettel and Romain Francois
22#
33# This file is part of Rcpp.
44#
@@ -23,6 +23,8 @@ Rcpp.system.file <- function(...){
2323# # Use R's internal knowledge of path settings to find the lib/ directory
2424# # plus optinally an arch-specific directory on system building multi-arch
2525RcppLdPath <- function () {
26+ .Deprecated(msg = paste(" This function is now deprecated as it has not" ,
27+ " been needed since 2013." ))
2628 " "
2729}
2830
@@ -33,8 +35,12 @@ RcppLdPath <- function() {
3335# # Updated Jan 2010: We now default to static linking but allow the use
3436# # of rpath on Linux if static==FALSE has been chosen
3537# # Note that this is probably being called from LdFlags()
36- # # Updated Nov 2013: We no longer build a library. This should be deprecated.
37- RcppLdFlags <- function () { " " }
38+ # # Updated Nov 2013: We no longer build a library. This should be deprecated.
39+ RcppLdFlags <- function () {
40+ .Deprecated(msg = paste(" This function is now deprecated as it has not" ,
41+ " been needed since 2013." ))
42+ " "
43+ }
3844
3945# indicates if Rcpp was compiled with GCC >= 4.3
4046canUseCXX0X <- function () { TRUE } # .Call( "canUseCXX0X", PACKAGE = "Rcpp" )
@@ -52,8 +58,11 @@ RcppCxxFlags <- function(cxx0x=FALSE) {
5258# # Shorter names, and call cat() directly
5359# # CxxFlags defaults to no using c++0x extensions are these are considered non-portable
5460CxxFlags <- function (cxx0x = FALSE ) {
61+ .Deprecated(msg = paste(" This function is now deprecated as R uses minimally" ,
62+ " viable compilers om all platforme." ))
5563 cat(RcppCxxFlags(cxx0x = cxx0x ))
5664}
65+
5766# # LdFlags defaults to static linking on the non-Linux platforms Windows and OS X
5867LdFlags <- function () {
5968 cat(RcppLdFlags())
@@ -64,11 +73,14 @@ RcppCapabilities <- capabilities <- function() .Call( rcpp_capabilities )
6473
6574# compile, load and call the cxx0x.c script to identify whether
6675# the compiler is GCC >= 4.3
67- RcppCxx0xFlags <- function (){
76+ RcppCxx0xFlags <- function () {
77+ .Deprecated(msg = paste(" This function is now deprecated as R uses minimally" ,
78+ " viable compilers om all platforme." ))
6879 script <- Rcpp.system.file( " discovery" , " cxx0x.R" )
6980 flag <- capture.output( source( script ) )
7081 flag
7182}
7283
73- Cxx0xFlags <- function () cat( RcppCxx0xFlags() )
74-
84+ Cxx0xFlags <- function () {
85+ cat( RcppCxx0xFlags() )
86+ }
0 commit comments