}
`swank:autodoc` <- function(slimeConnection, sldbState, rawForm, ...) {
- "No Arglist Information"
+ list("No Arglist Information", TRUE)
}
`swank:operator-arglist` <- function(slimeConnection, sldbState, op, package) {
}
}
+`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))
ifelse(x[3]==1, x[6]+colOffset-1, x[6]))))
}
transformSrcrefs <- function(s) {
+ ## horrendous KLUDGE: we need to short-circuit here for "name"
+ ## objects, rather than having a nice uniform behaviour, because
+ ## for expressions of the form x[y,] there is an empty "name"
+ ## which ends up becoming a `missing' object when passed through
+ ## the switch; why, I do not know, but it is then impossible to
+ ## return it, because returning it attempts to evaluate it and
+ ## evaluating it is an error. Fortunately it appears that names
+ ## don't have srcrefs attached.
+ if(mode(s) == "name") {
+ return(s)
+ }
+ if(is(s, "srcref")) {
+ ## more monumental KLUDGE: parsing (in 2.14, at least) appears
+ ## to put srcrefs directly in `length 2' objects, which we need
+ ## to frob directly.
+ return(frob(list(s))[[1]])
+ }
srcrefs <- attr(s, "srcref")
attribs <- attributes(s)
new <-
if(!is.null(attr(s, "srcref"))) {
attr(new, "srcref") <- frob(srcrefs)
}
+ if(!is.null(attr(s, "wholeSrcref"))) {
+ attr(new, "wholeSrcref") <- frob(list(attr(s, "wholeSrcref")))[[1]]
+ }
new
}
withRestarts({
valuePart <- function(istate, object, string) {
list(quote(`:value`),
- if(is.null(string)) printToString(object) else string,
+ if(is.null(string)) prin1ToString(object) else string,
assignIndexInParts(object, istate))
}
switch(as.character(part[[1]]),
`:newline` = list("\n"),
`:value` = valuePart(istate, part[[2]], part[[3]]),
- `:line` = list(printToString(part[[2]]), ": ",
+ `:line` = list(prin1ToString(part[[2]]), ": ",
valuePart(istate, part[[3]], NULL), "\n"))
}
}