app/Main.hs

   1 module Main where
   2 import Text.ParserCombinators.Parsec hiding (spaces)
   3 import System.Environment
   4
   5 data LispVal = Atom String
   6              | List [LispVal]
   7              | DottedList [LispVal] LispVal
   8              | Number Integer
   9              | String String
  10              | Bool Bool
  11
  12 symbol :: Parser Char
  13 symbol = oneOf "!#$%&|*+-/:<=>?@^_~"
  14
  15 spaces :: Parser ()
  16 spaces = skipMany space
  17
  18 parseString :: Parser LispVal
  19 parseString = do
  20     char '"'
  21     x <- many (noneOf "\"")
  22     char '"'
  23     return $ String x
  24
  25 readExpr :: String -> String
  26 readExpr input = case parse (spaces >> symbol) "lisp" input of
  27     Left err -> "No match: " ++ show err
  28     Right val -> "Found value"
  29
  30 main :: IO ()
  31 main = do
  32     args <- getLine
  33     putStrLn (readExpr args)