Commit fdb4f4d7 authored by Christophe Rhodes's avatar Christophe Rhodes
Browse files

`swank:describe-function` and `swank:describe-symbol` implementations

from Philipp Marek, about an eternity ago.
parent 22705b4a
......@@ -42,9 +42,7 @@ makeMediaReplResult.matrix <- function(value) {
}
makeMediaReplResult.help_files_with_topic <- function(value) {
output <- capture.output(tools:::Rd2txt(utils:::.getHelpFile(value),
options=list(underline_titles=FALSE)))
string <- paste(output, collapse="\n")
string <- helpFilesWithTopicString(value)
list(quote(`:popup-buffer`), sprintf("*slime-help(%s)*", attr(value, "topic")),
string, quote(`ess-help-mode`))
}
......
......@@ -361,6 +361,22 @@ sendReplResultFunction <- sendReplResult
}
}
`swank:describe-function` <- function(slimeConnection, sldbState, op, package) {
## FIXME: maybe not the best match?
`swank:operator-arglist`(slimeConnection, sldbState, op, package)
}
helpFilesWithTopicString <- function(value) {
output <- capture.output(tools:::Rd2txt(utils:::.getHelpFile(value),
options=list(underline_titles=FALSE)))
paste(output, collapse="\n")
}
`swank:describe-symbol` <- function(slimeConnection, sldbState, op, package) {
value <- help(op)
helpFilesWithTopicString(value)
}
`swank:throw-to-toplevel` <- function(slimeConnection, sldbState) {
condition <- simpleCondition("Throw to toplevel")
class(condition) <- c("swankTopLevel", class(condition))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment