Dario48/bfhs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Compare commits

base: Dario48:9aa14f7a2aa06ae84616fb372d233e30bcba7089
Branches Tags
Dario48:main
...
compare: Dario48:482152c303387e0a3f117e6d811a1fabb59a8333
Branches Tags
Dario48:main

2 commits
9aa14f7a2a ... 482152c303

Author SHA1 Message Date
Dario48
482152c303 added :s to the help text and fixed copy-pasting error 2026-03-02 22:20:14 +01:00
Dario48
68326a19a1 added symbol table for repl mode 2026-03-02 22:20:14 +01:00
1 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/bfhs.hs
View file

@ -21,6 +21,7 @@ repl interpreter = do
putStrLn " :h = this text"
putStrLn " :q = quit"
putStrLn " :d = print the state of the array around the index"
putStrLn " :s = print a table of all symbols and their functionality"
repl interpreter
":q" -> return ()
":d" ->
@ -36,6 +37,28 @@ repl interpreter = do
| other == size - 0 -> printf "... %u %u |%u| ]\n" (arr ! (size - 2)) (arr ! (size - 1)) (arr ! size)
| otherwise -> printf "... %u %u |%u| %u %u ...\n" (arr ! (other - 2)) (arr ! (other - 1)) (arr ! other) (arr ! (other + 1)) (arr ! (other + 2))
>> repl interpreter
":s" ->
return ()
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> putStrLn "| symbol | description |"
>> putStrLn "|========+=======================================================================================================|"
>> putStrLn "| > | Increment the data pointer by one (to point to the next cell to the right). |"
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> putStrLn "| < | Decrement the data pointer by one (to point to the next cell to the left). Undefined if at 0. |"
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> putStrLn "| + | Increment the byte at the data pointer by one modulo 256. |"
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> putStrLn "| - | Decrement the byte at the data pointer by one modulo 256. |"
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> putStrLn "| . | Output the byte at the data pointer. |"
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> putStrLn "| , | Accept one byte of input, storing its value in the byte at the data pointer. |"
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> putStrLn "| [ | If the byte at the data pointer is zero, jump forward to the command after the matching ] command. |"
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> putStrLn "| ] | If the byte at the data pointer is nonzero, jump back to the command after the matching [ command. |"
>> putStrLn "|--------+-------------------------------------------------------------------------------------------------------|"
>> repl interpreter
brainfuck -> interpreter `execStr` brainfuck >>= repl
main :: IO ()