[rkward-cvs] rkward/rkward/rbackend rembedinternal.cpp,1.32,1.33

[Thomas Friedrichsmeier]

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

Modified Files:
	rembedinternal.cpp 
Log Message:
Clean up R temp files on shutdown

Index: rembedinternal.cpp
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rembedinternal.cpp,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** rembedinternal.cpp	13 Nov 2005 14:31:29 -0000	1.32
--- rembedinternal.cpp	29 Mar 2006 16:34:41 -0000	1.33
***************
*** 129,132 ****
--- 129,140 ----
  		}
  
+ 		// clean up temp directory
+ 		char *tmpdir;
+ 		if((tmpdir = getenv ("R_SESSION_TMPDIR"))) {
+ 			char buf[1024];
+ 			snprintf ((char *) buf, 1024, "rm -rf %s", tmpdir);
+ 			R_system ((char *) buf);
+ 		}
+ 
  		REmbedInternal::this_pointer->shutdown (false);
  	}