isbpl/bf.isbpl

"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
    "---\n" puts
    "Java" try {
        s Context new eval
    } {
        pop pop printStackTrace0
    }
    0
}

func read {
    with s ;
    [ s STREAM.read stream dup -1 eq if { pop 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 } {
        c puts
        code " " strconcat ( c parse ) strconcat =code
    }
    "\n" puts
    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 }
    ""
}