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
|
..env.. <- TRUE
if(!exists("..types..")) source("types.r")
new.Env <- function(outer=emptyenv(), binds=list(), exprs=list()) {
e <- structure(new.env(parent=outer), class="Env")
if (length(binds) > 0) {
for(i in seq(length(binds))) {
b <- binds[[i]]
if (b == "&") {
e[[binds[[i+1]]]] <-
slice(exprs, i, length(exprs))
break
} else {
e[[b]] <- exprs[[i]]
}
}
}
e
}
Env.find <- function(e, key) {
if (exists(key, envir=e, inherits=FALSE)) {
e
} else if (!identical(parent.env(e), emptyenv())) {
Env.find(parent.env(e), key)
} else {
nil
}
}
Env.set <- function(e, key, val) {
e[[key]] <- val
invisible(val)
}
Env.get <- function(e, key) {
e <- Env.find(e, key)
if (.nil_q(e)) throw(concat("'", key, "' not found"))
e[[key]]
}
|
