| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758 |
- Object subclass: #Repl
- instanceVariableNames: 'readline interface util'
- category: 'REPL'!
- !Repl methodsFor: 'accessing'!
- prompt
- ^'amber >> '
- ! !
- !Repl methodsFor: 'actions'!
- createInterface
- "No completion for now"
- "(readline createInterface numArgs < 3)
- ifTrue: [
- console log: '0.4...'.
- interface := readline createInterface: process stdin autocomplete: null.
- stdin on: 'data' do: [:buffer | interface write: buffer]]
- ifFalse: ["
- interface := readline createInterface: process stdin stdout: process stdout" autocomplete: null]".
- interface on: 'line' do: [:buffer | self eval: buffer].
- interface on: 'close' do: [self close].
- self setPrompt.
- interface prompt
- !
- setPrompt
- interface setPrompt: self prompt
- !
- close
- process stdin destroy
- !
- eval: buffer
- | result |
- buffer isEmpty ifFalse: [
- result := Compiler new loadExpression: buffer.
- Transcript show: result].
- self setPrompt.
- interface prompt
- ! !
- !Repl methodsFor: 'initialization'!
- initialize
- super initialize.
- readline := require value: 'readline'.
- util := require value: 'util'
- ! !
- !Repl class methodsFor: 'not yet classified'!
- main
- self new createInterface
- ! !
|
