The R Project SVN R

Rev

Rev 61623 | Rev 71201 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61623 Rev 61636
Line 110... Line 110...
110 
 
 110 
 
111 
 
 111 
 
112 
## populate C/Fortran symbols
 112 
## populate C/Fortran symbols
113 
local({
 113 
local({
114 
    routines <- getDLLRegisteredRoutines("base")
 114 
    routines <- getDLLRegisteredRoutines("base")
115 
    for (i in c("dchdc", "dqrcf", "dqrdc2",
 115 
    for (i in c("dchdc", # chol, deprecated
116 
                "dqrqty", "dqrqy", "dqrrsd", "dqrxb", "dtrco"))
 116 
                "dqrcf", "dqrdc2", "dqrqty", "dqrqy", "dqrrsd", "dqrxb", # qr
- 
 
 117 
                "dtrco")) # .kappa_tri
117 
        assign(paste0(".F_", i), routines[[3]][[i]], envir = .BaseNamespaceEnv)
 118 
        assign(paste0(".F_", i), routines[[3]][[i]], envir = .BaseNamespaceEnv)
118 
    for(i in 1:2)
 119 
    for(i in 1:2)
119 
        lapply(routines[[i]],
 120 
        lapply(routines[[i]],
120 
               function(sym) assign(paste0(".C_", sym$name), sym, envir = .BaseNamespaceEnv))
 121 
               function(sym) assign(paste0(".C_", sym$name), sym, envir = .BaseNamespaceEnv))
121 
})
 122 
})