SchemeParser.hs

module SchemeParser where

import Control.Applicative

import Text.ParserCombinators.Parsec hiding ((<|>))

data Ast = Term String | List [Ast]

    deriving Show

program :: Parser Ast
program = do
    spaces 

    List <$> node `sepEndBy` spaces

node :: Parser Ast
node = term <|> list

term :: Parser Ast
term = Term <$> many1 nameSymbols

nameSymbols :: Parser Char
nameSymbols = noneOf "\t\r\n ()"

list :: Parser Ast
list = do 
    char '(' 

    result <- program

    char ')'

    return result