mirror of
https://github.com/kanaka/mal.git
synced 2024-09-19 09:38:28 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
45 lines
1.1 KiB
R
45 lines
1.1 KiB
R
..readline.. <- TRUE
|
|
|
|
HISTORY_FILE = paste(path.expand("~"), "/.mal-history", sep="")
|
|
|
|
library(rdyncall, lib.loc="lib/")
|
|
|
|
#.rllib <- dynfind(c("edit"))
|
|
.rllib <- dynfind(c("readline"))
|
|
.call_readline <- .dynsym(.rllib,"readline")
|
|
.call_add_history <- .dynsym(.rllib,"add_history")
|
|
|
|
.state <- new.env()
|
|
.state$rl_history_loaded = FALSE
|
|
|
|
.readline <- function(prompt) {
|
|
res <- .dyncall(.call_readline, "Z)p", prompt)
|
|
if (is.nullptr(res)) {
|
|
return(NULL)
|
|
} else {
|
|
return(ptr2str(res))
|
|
}
|
|
}
|
|
|
|
readline <- function(prompt) {
|
|
if (!.state$rl_history_loaded) {
|
|
.state$rl_history_loaded <- TRUE
|
|
|
|
if (file.access(HISTORY_FILE, 4) == 0) {
|
|
lines <- scan(HISTORY_FILE, what="", sep="\n", quiet=TRUE)
|
|
for(add_line in lines) {
|
|
.dyncall(.call_add_history, "Z)v", add_line)
|
|
}
|
|
}
|
|
}
|
|
|
|
line <- .readline(prompt)
|
|
if (is.null(line)) return(NULL)
|
|
.dyncall(.call_add_history, "Z)v", line)
|
|
if (file.access(HISTORY_FILE, 2) == 0) {
|
|
write(line, file=HISTORY_FILE, append=TRUE)
|
|
}
|
|
|
|
line
|
|
}
|