*
* Little Smalltalk, 
* Script comamnd for Budd's Little SmallTalk
* Written by David H. Lorenz, May 1993
* Ver. 1.1
*
* to use, first file in this file, then send smalltalk the message
* script: with a file name
*
*	'script.st' r
*   smalltalk script: 'session.log'
*   #Script>  ...
*   #Script>  ...
*   #Script>  quit
*
* Known bugs: Only printable results are properly saved.

Methods Smalltalk 
	script: scriptFile |sFile inp cmd res|
			sFile <- File new; name: scriptFile; mode: 'w'; open.
			inp <- ' '.
			[inp ~= 'quit']
				whileTrue: [
					inp <- self getPrompt: #Script>.
					cmd <- '^[',inp,'] value'.
					res <- cmd execute.
					res print.
					sFile print: inp.
					sFile print: res printString
				].
			sFile close.
]