 #=============================================================================#
 # Copyright (c) 2010, 2018 Stephan Wahlbrink and others.
 # 
 # This program and the accompanying materials are made available under the
 # terms of the Eclipse Public License 2.0 which is available at
 # https://www.eclipse.org/legal/epl-2.0, or the Apache License, Version 2.0
 # which is available at https://www.apache.org/licenses/LICENSE-2.0.
 # 
 # SPDX-License-Identifier: EPL-2.0 OR Apache-2.0
 # 
 # Contributors:
 #     Stephan Wahlbrink <sw@wahlbrink.eu> - initial API and implementation
 #=============================================================================#


.console.loadHistory <- function(filename = ".Rhistory") {
	if (!is.character(filename) || length(filename) != 1) {
		stop("Illegal argument: filename")
	}
	.rj_ui.execCommand("console/loadHistory", list(
					filename = filename ), TRUE)
	return (invisible())
}
.console.saveHistory <- function(filename = ".Rhistory") {
	if (!is.character(filename) || length(filename) != 1) {
		stop("Illegal argument: filename")
	}
	.rj_ui.execCommand("console/saveHistory", list(
					filename = filename ), TRUE)
	return (invisible())
}
.console.addtoHistory <- function(line) {
	if (missing(line) || !is.character(line) || length(line) != 1) {
		stop("Illegal argument: line")
	}
	.rj_ui.execCommand("console/addtoHistory", list(
					line = line ), FALSE)
	return (invisible())
}