imgsrc/repl.st

   1 CLASS REPL  Object
   2
   3 METHODS FOR REPL
   4 REPL [
   5   "main execution loop"
   6   | cmd res |
   7   [
   8     System isStdInTTY ifTrue: [ '-> ' print ].
   9     cmd := String input.
  10     cmd notNil
  11    ] whileTrue: [
  12      res := cmd doIt.
  13      cmd removeTrailingBlanks lastChar == $. ifFalse: [ res printNl ].
  14   ].
  15 ]
  16 !