make brainfuck interpreter
This commit is contained in:
parent
1421317515
commit
6102f9ec09
2 changed files with 70 additions and 0 deletions
69
bf.isbpl
Normal file
69
bf.isbpl
Normal file
|
@ -0,0 +1,69 @@
|
|||
|
||||
native acopy
|
||||
"#stream.isbpl" include
|
||||
"#multi.isbpl" include
|
||||
|
||||
|
||||
func main {
|
||||
with args ;
|
||||
args alen 0 eq if {
|
||||
"Error: Couldn't find file [no]\n" puts
|
||||
1
|
||||
2 stop
|
||||
}
|
||||
def filename args 0 aget =filename
|
||||
def s args 0 aget STREAM.create.file.in stream =s
|
||||
s makeCode =s
|
||||
|
||||
filename ".isbpl" strconcat STREAM.create.file.out stream
|
||||
! s swap stream.write
|
||||
STREAM.close stream
|
||||
"Java" try {
|
||||
s Context new eval
|
||||
} {
|
||||
pop pop printStackTrace0
|
||||
}
|
||||
0
|
||||
}
|
||||
|
||||
func read {
|
||||
with s ;
|
||||
[ s STREAM.read stream dup -1 eq if { ] pop "" 2 stop } _char ] _string
|
||||
}
|
||||
|
||||
func makeCode {
|
||||
with s ;
|
||||
def code string! {
|
||||
"#stream.isbpl" include
|
||||
def stdin "/dev/stdin" STREAM.create.file.in stream =stdin
|
||||
def idx 0 =idx
|
||||
def arr 10000 anew =arr
|
||||
while { idx 10000 lt } {
|
||||
arr idx 0 aput
|
||||
idx ++ =idx
|
||||
}
|
||||
1000 =idx
|
||||
} =code
|
||||
|
||||
def c
|
||||
while { s read dup =c "" eq not } {
|
||||
code " " strconcat ( c parse ) strconcat =code
|
||||
}
|
||||
code
|
||||
}
|
||||
|
||||
func parse {
|
||||
with c ;
|
||||
|
||||
c "+" eq if { "arr idx arr idx aget ++ 256 % aput" 2 stop }
|
||||
c "-" eq if { "arr idx arr idx aget -- 256 % aput" 2 stop }
|
||||
c ">" eq if { "idx ++ =idx" 2 stop }
|
||||
c "<" eq if { "idx -- =idx" 2 stop }
|
||||
c "[" eq if { "while { arr idx aget } {" 2 stop }
|
||||
c "]" eq if { "}" 2 stop }
|
||||
c "." eq if { "arr idx aget _char putchar" 2 stop }
|
||||
c "," eq if { "arr idx stdin STREAM.read stream _int 256 % aput" 2 stop }
|
||||
""
|
||||
}
|
||||
|
||||
|
1
helloworld.bf
Normal file
1
helloworld.bf
Normal file
|
@ -0,0 +1 @@
|
|||
++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.
|
Loading…
Reference in a new issue