~tim/scheme-vm: parser.rb - sourcehut git


                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
class Parser
  PARENS_RE = /(\((?>[^()]|\g<1>)*\)|[^\(\)]+)/

  def initialize(code = nil)
    @code = code
  end

  def parse(code = @code)
    code.scan(PARENS_RE).flat_map do |(sexp)|
      if sexp[0] == '('
        [parse(sexp[1..-1])]
      else
        sexp.strip.split
      end
    end
  end
end