[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R internal.R,1.17,1.18

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30667/rkward/rbackend/rpackages/rkward/R

Modified Files:
	internal.R 
Log Message:
Finished moving away from file-sinks to more direct method of retrieving output. Unfortunately, there is no way, yet, to reliably identify warning messages

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** internal.R	14 Sep 2005 16:32:25 -0000	1.17
--- internal.R	23 Sep 2005 14:29:47 -0000	1.18
***************
*** 74,77 ****
--- 74,81 ----
  }
  
+ ".rk.do.error" <- function () {
+ 	.Call ("rk.do.error", c (geterrmessage ()));
+ }
+ 
  ".rk.do.call" <- function (x, args=NULL) {
  	.Call ("rk.do.command", c (x, args));
***************
*** 124,127 ****
--- 128,136 ----
  }
  
+ #".rk.init.handlers" <- function () {
+ #	options (warning.expression = expression ())
+ #	.Internal (.addCondHands (c ("message", "warning", "error"), list (function (m) { .Call ("rk.do.condition", c ("m", conditionMessage (m))) }, function (w) { .Call ("rk.do.condition", c ("w", conditionMessage (w))) }, function (e) { .Call ("rk.do.condition", c ("e", conditionMessage (e))) }), globalenv (), NULL, TRUE))
+ #}
+ 
  ".rk.catch.window" <- function (title_begin, corresponding_device) {
  	.rk.do.call ("catchWindow", c (as.character (title_begin), as.character (corresponding_device)))