The R Project SVN R

Rev

Rev 88125 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88125 Rev 88153
Line 1... Line 1...
1 
#  File src/library/base/baseloader.R
 1 
#  File src/library/base/baseloader.R
2 
#  Part of the R package, https://www.R-project.org
 2 
#  Part of the R package, https://www.R-project.org
3 
#
 3 
#
4 
#  Copyright (C) 1995-2020 The R Core Team
 4 
#  Copyright (C) 1995-2025 The R Core Team
5 
#
 5 
#
6 
#  This program is free software; you can redistribute it and/or modify
 6 
#  This program is free software; you can redistribute it and/or modify
7 
#  it under the terms of the GNU General Public License as published by
 7 
#  it under the terms of the GNU General Public License as published by
8 
#  the Free Software Foundation; either version 2 of the License, or
 8 
#  the Free Software Foundation; either version 2 of the License, or
9 
#  (at your option) any later version.
 9 
#  (at your option) any later version.
Line 105... Line 105...
105 
 
 105 
 
106 
 
 106 
 
107 
## populate C/Fortran symbols
 107 
## populate C/Fortran symbols
108 
local({
 108 
local({
109 
    routines <- getDLLRegisteredRoutines("base")
 109 
    routines <- getDLLRegisteredRoutines("base")
110 
    for (i in c("dchdc", # chol, deprecated
 - 
 
111 
                "dqrcf", "dqrdc2", "dqrqty", "dqrqy", "dqrrsd", "dqrxb", # qr
 110 
    for (i in c("dqrcf", "dqrdc2", "dqrqty", "dqrqy", "dqrrsd", "dqrxb", # qr
112 
                "dtrco")) # .kappa_tri
 111 
                "dtrco")) # .kappa_tri
113 
        assign(paste0(".F_", i), routines[[3]][[i]], envir = .BaseNamespaceEnv)
 112 
        assign(paste0(".F_", i), routines[[3]][[i]], envir = .BaseNamespaceEnv)
114 
    for(i in 1:2)
 113 
    for(i in 1:2)
115 
        lapply(routines[[i]],
 114 
        lapply(routines[[i]],
116 
               function(sym) assign(paste0(".C_", sym$name), sym, envir = .BaseNamespaceEnv))
 115 
               function(sym) assign(paste0(".C_", sym$name), sym, envir = .BaseNamespaceEnv))