home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / PROGRAMM.PAK / SESSIONL.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  781 b   |  33 lines
  1.  
  2. (*********************************************************************
  3.  
  4.         Adapted from
  5.         Roman E. Maeder: Programming in Mathematica,
  6.         Second Edition, Addison-Wesley, 1991.
  7.  
  8.  *********************************************************************)
  9.  
  10.  
  11. OpenLog::usage = "OpenLog[filename] starts logging all input and output to filename."
  12. CloseLog::usage = "CloseLog[] closes the logfile opened by OpenLog[]."
  13.  
  14. Begin["`Private`"]
  15.  
  16. `logfile=""
  17.  
  18. OpenLog[filename_String] := (
  19.     logfile = OpenWrite[filename];
  20.     If[ logfile === $Failed, Return[] ];
  21.     AppendTo[$Echo, logfile];
  22.     AppendTo[$Output, logfile];
  23.     )
  24.  
  25. CloseLog[] := (
  26.     $Echo = Complement[$Echo, {logfile}];
  27.     $Output = Complement[$Output, {logfile}];
  28.     Close[logfile];
  29.     )
  30.  
  31. End[]
  32. Null
  33.