Rosetta Code

Execute Brain****/Elena: Difference between revisions

Page Discussion

Execute Brain****/Elena (view source)

Revision as of 20:01, 24 March 2017

160 bytes added ,  7 years ago
no edit summary
No edit summary
No edit summary
Line 7:
#import extensions'scripting.
 
#class BFTape▼
// --- Tape ---
 
▲#class BFTape
{
#fieldobject theArray.
#fieldobject thePointer.
#fieldobject theBrackets.
 
#constructor new:aLength
[
theArray := Array new:aLength set &every: (&int:n) [ Integer new:0 ].
Line 24 ⟶ 22:
]
 
#method append
[
(theArray@thePointer) += 1.
]
#method reduce
[
(theArray@thePointer) -= 1.
]
#method next
[
thePointer += 1.
]
 
#method previous
[
thePointer -= 1.
]
#method push : bookmark
[
theBrackets push:bookmark.
]
#method pop
=> theBrackets.
#method input
[
theArray@thePointer := console readChar toInt.
]
#method output
[
console write:((theArray@thePointer) toChar).
]
 
#method check = theArray@thePointer != 0.
}
 
#symbol program =
[
console
writeLine:"++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.".
#var program := scriptEngine
load &path:"rules.es"
eval:"++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.".
Line 78 ⟶ 76:
The grammar:
<lang elena>[[
[[
#grammar transform
#grammar cf
 
#define start ::= <= [( > += " 2" += " %""system'dynamic'tapeOp.var&args$[]""" => commands <= " *" "system'dynamic'Tape" ]"=" == ) =>;
 
#define commands ::= command commands;
Line 86:
#define commands ::= $eof;
 
#define command ::= <= += " %""output[0]"" " => ".";
#define command ::= <= += " %""input[0]"" " => ",";
#define command ::= <= += " %""previous[0]"" " => "<";
#define command ::= <= += " %""next[0]"" " => ">";
#define command ::= <= += " %""append[0]"" " => "+";
#define command ::= <= += " %""reduce[0]"" " => "-";
#define command ::= <= += " -2" += " %""system'dynamic'tapeOp.ptr&args$[]"" " += " 1" += " %""system'dynamic'tapeOp.stack&args$[]" %"push[1]" =>" "[";
+= "%""push[1]"" " => "[";
#define command ::= <= 0 %"system'dynamic'tapeOp.stack&args$[]" %"check[0]" 1 %"system'dynamic'tapeOp.stack&args$[]" %"pop[0]" %"system'dynamic'tapeOp.jumpif&args$[13]" => "]";▼
#define command ::= <= += " 0" += " %""system'dynamic'tapeOp.stack&args$[]"" " += " %""check[0]"" " += " 1" += "
▲ #define command ::= <= 0 %""system'dynamic'tapeOp.stack&args$[]"" %"check[0]" 1+= %"system'dynamic'tapeOp.stack&args$[]" %""pop[0]"" " += " %""system'dynamic'tapeOp.jumpif&args$[13]"" " => "]";
 
#define comment ::= " " comments;
Line 104 ⟶ 106:
 
#mode symbolic;
]]
 
]]</lang>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/236488"