all repos

gbf @ 919c98139903ba476d952e0a29e1134b7dbbefd9

⭐ gleaming brainfuck

gbf/src/gbf.gleam(view raw) 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
import gbf/internal/ascii
import gbf/internal/eval
import gbf/internal/lexer
import gbf/internal/parser
import gbf/internal/vm.{type VirtualMachine}
import gleam/list
import gleam/result
import gleam/string

pub type Error {
  Parser(reason: parser.Error)
  Eval(reason: eval.Error)
}

pub fn run(source: String) -> Result(VirtualMachine, Error) {
  let bvm =
    source
    |> string.split(on: "")
    |> list.map(ascii.to_code)
    |> vm.new

  use ast <- result.try(parse_ast(source))
  use bvm <- result.try(eval_ast(bvm, ast))

  Ok(bvm)
}

pub fn output(virtual_machine: VirtualMachine) -> String {
  vm.output(virtual_machine)
}

fn parse_ast(source: String) {
  source
  |> lexer.new
  |> lexer.lex
  |> parser.parse
  |> result.map_error(fn(e) { Parser(e) })
}

fn eval_ast(vm, ast) {
  eval.eval(vm, ast)
  |> result.map_error(fn(e) { Eval(e) })
}