素朴なlispインタープリター - Qiita

{-# LANGUAGE TupleSections #-} module Lisp.Parser where import Lisp.AST import Control.Applicative import qualified Text.Parsec as P parse :: String -> Either P.ParseError AST parse = P.parse sexpr "" -- top = List <$> pos <*> (P.many (sexpr <* spaces) <* P.eof) sexpr = atom <|> list pos = ((,) <$> P.sourceLine <*> P.sourceColumn) <$> P.getPosition spaces = P.skipMany (P.space <|> P.tab <|> P.newl