The R Project SVN – R – Diff – /trunk/src/library/base/makebasedb.R



 
        envtable <- function() {
            idx <- 0
            envs <- NULL
            enames <- character(0)
            find <- function(v, keys, vals) {
                for (i in seq_along(keys))
                    if (identical(v, keys[[i]]))
                        return(vals[i])
		NULL
	    }
            getname <- function(e) find(e, envs, enames)
            getenv <- function(n) find(n, enames, envs)
            insert <- function(e) {
                idx <<- idx + 1
                name <- paste("env", idx, sep="::")

Rev 47570	Rev 48780
Line 11...	Line 11...
11		11
12	`envtable <- function() {`	12	`envtable <- function() {`
13	`idx <- 0`	13	`idx <- 0`
14	`envs <- NULL`	14	`envs <- NULL`
15	`enames <- character(0)`	15	`enames <- character(0)`
16	`find <- function(v, keys, vals)`	16	`find <- function(v, keys, vals) {`
17	`for (i in seq_along(keys))`	17	`for (i in seq_along(keys))`
18	`if (identical(v, keys[[i]]))`	18	`if (identical(v, keys[[i]]))`
19	`return(vals[i])`	19	`return(vals[i])`
-		20	`NULL`
-		21	`}`
20	`getname <- function(e) find(e, envs, enames)`	22	`getname <- function(e) find(e, envs, enames)`
21	`getenv <- function(n) find(n, enames, envs)`	23	`getenv <- function(n) find(n, enames, envs)`
22	`insert <- function(e) {`	24	`insert <- function(e) {`
23	`idx <<- idx + 1`	25	`idx <<- idx + 1`
24	`name <- paste("env", idx, sep="::")`	26	`name <- paste("env", idx, sep="::")`

The R Project SVN R

(root)/trunk/src/library/base/makebasedb.R @ 63243 – Rev 47570 → 48780