equal
deleted
inserted
replaced
292 |
292 |
293 "/ re-evaluate these in the loop, so they can be changed dynamically |
293 "/ re-evaluate these in the loop, so they can be changed dynamically |
294 input := self inputStream. |
294 input := self inputStream. |
295 output := self outputStream. |
295 output := self outputStream. |
296 error := self errorStream. |
296 error := self errorStream. |
297 compilerClass := compiler ? Compiler. |
297 compilerClass := compiler ? Compiler ? Parser. |
|
298 compilerClass isNil ifTrue:[ |
|
299 self errorStream nextPutLine:('oops - no Compiler class found'). |
|
300 ^ self. |
|
301 ]. |
298 |
302 |
299 prompt notNil ifTrue:[ |
303 prompt notNil ifTrue:[ |
300 error nextPutAll:prompt. |
304 error nextPutAll:prompt. |
301 ]. |
305 ]. |
302 |
306 |
365 " |
369 " |
366 (ReadEvalPrintLoop new prompt:'>') readEvalPrintLoop |
370 (ReadEvalPrintLoop new prompt:'>') readEvalPrintLoop |
367 " |
371 " |
368 |
372 |
369 "Created: / 07-12-2006 / 17:27:21 / cg" |
373 "Created: / 07-12-2006 / 17:27:21 / cg" |
370 "Modified: / 09-02-2011 / 14:00:49 / cg" |
374 "Modified: / 06-10-2011 / 21:02:22 / cg" |
371 ! ! |
375 ! ! |
372 |
376 |
373 !ReadEvalPrintLoop class methodsFor:'documentation'! |
377 !ReadEvalPrintLoop class methodsFor:'documentation'! |
374 |
378 |
375 version |
379 version |
376 ^ '$Id: ReadEvalPrintLoop.st 10700 2011-09-29 15:44:37Z vranyj1 $' |
380 ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.29 2011/10/06 19:02:31 cg Exp $' |
377 ! |
381 ! |
378 |
382 |
379 version_CVS |
383 version_CVS |
380 ^ '§Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.28 2011/02/09 13:03:41 cg Exp §' |
384 ^ 'Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.29 2011/10/06 19:02:31 cg Exp ' |
381 ! |
385 ! |
382 |
386 |
383 version_SVN |
387 version_SVN |
384 ^ '$Id: ReadEvalPrintLoop.st 10700 2011-09-29 15:44:37Z vranyj1 $' |
388 ^ '$Id: ReadEvalPrintLoop.st 10729 2011-10-31 22:19:21Z vranyj1 $' |
385 ! ! |
389 ! ! |
|
390 |