80 lines
2 KiB
Text
80 lines
2 KiB
Text
|
|
"Brainfuck->ISBPL transpiler" #
|
|
|
|
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
|
|
|
|
"Write code to ISBPL file" #
|
|
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
|
|
}
|
|
|
|
|
|
"Read BF and convert to ISBPL" #
|
|
func makeCode {
|
|
with s ;
|
|
"Initialization code as stringblock" #
|
|
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
|
|
JIO context debug if {
|
|
stdin itos puts
|
|
}
|
|
} =code
|
|
|
|
def c
|
|
while { s read dup =c "" eq not } {
|
|
code " " strconcat ( c parse ) strconcat =code
|
|
}
|
|
code
|
|
}
|
|
|
|
|
|
"Convert a BF char to ISBPL" #
|
|
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 }
|
|
""
|
|
}
|
|
|
|
|