Unpack.hs

module Unpack where

import Expr

unpackFloat :: Expr -> Double
unpackFloat (LispFloat val) = val
unpackFloat _ = error "Expected Float type"

unpackInteger :: Expr -> Integer
unpackInteger (LispInteger val) = val
unpackInteger _ = error "Expected Integer type"

unpackBool :: Expr -> Bool
unpackBool (LispBoolean val) = val
unpackBool _ = error "Expected Boolean type"

unpackChar :: Expr -> Char
unpackChar (LispChar val) = val
unpackChar _ = error "Expected Character type"

unpackFunc :: Expr -> Context -> [Expr] -> (Context, Expr)
unpackFunc (LispFunction val) = val
unpackFunc _ = error "Expected Function type"

unpackSymbol :: Expr -> String
unpackSymbol (LispSymbol val) = val
unpackSymbol _ = error "Expected Symbol type"

unpackDataList :: Expr -> [Expr]
unpackDataList (LispDataList val) = val
unpackDataList _ = error "Expected ConsList type"

unpackList :: Expr -> [Expr]
unpackList (LispList val) = val
unpackList _ = error "Exepcted List type"