 MACRO: run-brainfuck ( code -- )
     [ <brainfuck> ] swap parse-brainfuck [ drop flush ] 3append ;
 
-: get-brainfuck ( code -- result ) 
-    [ run-brainfuck ] with-string-writer ; inline 
+: get-brainfuck ( code -- result )
+    [ run-brainfuck ] with-string-writer ; inline
 

! Copyright (C) 2009 John Benediktsson
! See http://factorcode.org/license.txt for BSD license

USING: accessors assocs fry io io.streams.string kernel macros math 
peg.ebnf prettyprint quotations sequences strings ;

IN: brainfuck


: (>) ( brainfuck n -- brainfuck )
    [ dup pointer>> ] dip + >>pointer ;

: (<) ( brainfuck n -- brainfuck )
    [ dup pointer>> ] dip - >>pointer ;

: (#) ( brainfuck -- brainfuck )
    dup
    [ "ptr=" write pointer>> pprint ]
    [ ",mem=" write memory>> pprint nl ] bi ;

: compose-all ( seq -- quot )
    [ ] [ compose ] reduce ;

EBNF: parse-brainfuck

inc-ptr  = (">")+  => [[ length [ (>) ] curry ]]
dec-ptr  = ("<")+  => [[ length [ (<) ] curry ]]
inc-mem  = ("+")+  => [[ length [ (+) ] curry ]]
dec-mem  = ("-")+  => [[ length [ (-) ] curry ]]
output   = "."  => [[ [ (.) ] ]]
input    = ","  => [[ [ (,) ] ]]
debug    = "#"  => [[ [ (#) ] ]]
space    = (" "|"\t"|"\r\n"|"\n")+ => [[ [ ] ]]
unknown  = (.)  => [[ "Invalid input" throw ]]

ops   = inc-ptr|dec-ptr|inc-mem|dec-mem|output|input|debug|space
loop  = "[" {loop|ops}+ "]" => [[ second compose-all [ while ] curry [ (?) ] prefix ]]

code  = (loop|ops|unknown)*  => [[ compose-all ]]

