Anonymous user
Execute Brain****/Elena: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 1:
<lang elena>#define system.
#define system'routines.
#define extensions'text.
// --- Tape ---
#class
{
#field theArray.
#field thePointer.
#constructor new &
[
thePointer := Integer new:0.
theArray :=
]
#method
#method append
Line 40 ⟶ 41:
#method input
[
(theArray@thePointer) write &
]
Line 69 ⟶ 70:
]
#method
#method append
Line 103 ⟶ 104:
#method repeatUntil
[
theTape run:
^ theTape.
Line 125 ⟶ 126:
]
#method eval &
[
control foreach:aLiteral &do:$self.
]
#method eval &
[
aChar =>
Line 148 ⟶ 149:
#symbol program =
[
('program'arguments
[ console write:"Please provide the path to the file to interpret". #throw BreakException new. ].
textFileControl forEachLine:('program'arguments@1) &do:(Interpreter new:(
].</lang>
| |||