Data.SCargot.Repr.Basic

Basic SExpr representation

data SExpr atom

All S-Expressions can be understood as a sequence of cons cells (represented here by SCons), the empty list nil (represented by SNil) or an atom.

Constructors

SCons (SExpr atom) (SExpr atom)

SAtom atom

SNil

Instances

Functor SExpr

Methods

fmap :: (a -> b) -> SExpr a -> SExpr b

(<$) :: a -> SExpr b -> SExpr a

Foldable SExpr

Methods

fold :: Monoid m => SExpr m -> m

foldMap :: Monoid m => (a -> m) -> SExpr a -> m

foldr :: (a -> b -> b) -> b -> SExpr a -> b

foldr' :: (a -> b -> b) -> b -> SExpr a -> b

foldl :: (b -> a -> b) -> b -> SExpr a -> b

foldl' :: (b -> a -> b) -> b -> SExpr a -> b

foldr1 :: (a -> a -> a) -> SExpr a -> a

foldl1 :: (a -> a -> a) -> SExpr a -> a

toList :: SExpr a -> [a]

null :: SExpr a -> Bool

length :: SExpr a -> Int

elem :: Eq a => a -> SExpr a -> Bool

maximum :: Ord a => SExpr a -> a

minimum :: Ord a => SExpr a -> a

sum :: Num a => SExpr a -> a

product :: Num a => SExpr a -> a

Traversable SExpr

Methods

traverse :: Applicative f => (a -> f b) -> SExpr a -> f (SExpr b)

sequenceA :: Applicative f => SExpr (f a) -> f (SExpr a)

mapM :: Monad m => (a -> m b) -> SExpr a -> m (SExpr b)

sequence :: Monad m => SExpr (m a) -> m (SExpr a)

IsList (SExpr atom)

Associated Types

type Item (SExpr atom) :: *

Methods

fromList :: [Item (SExpr atom)] -> SExpr atom

fromListN :: Int -> [Item (SExpr atom)] -> SExpr atom

toList :: SExpr atom -> [Item (SExpr atom)]

Eq atom => Eq (SExpr atom)

Methods

(==) :: SExpr atom -> SExpr atom -> Bool

(/=) :: SExpr atom -> SExpr atom -> Bool

Data atom => Data (SExpr atom)

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> SExpr atom -> c (SExpr atom)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (SExpr atom)

toConstr :: SExpr atom -> Constr

dataTypeOf :: SExpr atom -> DataType

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c (SExpr atom))

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (SExpr atom))

gmapT :: (forall b. Data b => b -> b) -> SExpr atom -> SExpr atom

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> SExpr atom -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> SExpr atom -> r

gmapQ :: (forall d. Data d => d -> u) -> SExpr atom -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> SExpr atom -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> SExpr atom -> m (SExpr atom)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> SExpr atom -> m (SExpr atom)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> SExpr atom -> m (SExpr atom)

Read atom => Read (SExpr atom)

Methods

readsPrec :: Int -> ReadS (SExpr atom)

readList :: ReadS [SExpr atom]

readPrec :: ReadPrec (SExpr atom)

readListPrec :: ReadPrec [SExpr atom]

Show atom => Show (SExpr atom)

Methods

showsPrec :: Int -> SExpr atom -> ShowS

show :: SExpr atom -> String

showList :: [SExpr atom] -> ShowS

IsString atom => IsString (SExpr atom)

Methods

fromString :: String -> SExpr atom

type Item (SExpr atom)

type Item (SExpr atom) = SExpr atom

Constructing and Deconstructing

cons :: SExpr a -> SExpr a -> SExpr a

Combine the two s-expressions into a new one.

>>> cons (A "el") (L ["eph", A "ant"])
SCons (SAtom "el) (SCons (SAtom "eph") (SCons (SAtom "ant") SNil))

uncons :: SExpr a -> Maybe (SExpr a, SExpr a)

Produce the head and tail of the s-expression (if possible).

>>> uncons (A "el" ::: A "eph" ::: A "ant" ::: Nil)
Just (A "el",SCons (SAtom "eph") (SCons (SAtom "ant") SNil))

Shorthand Patterns

pattern (:::) :: forall a. SExpr a -> SExpr a -> SExpr a infixr 5

A shorter infix alias for SCons

>>> A "pachy" ::: A "derm"
SCons (SAtom "pachy") (SAtom "derm")

pattern A :: forall a. a -> SExpr a

A shorter alias for SAtom

>>> A "elephant"
SAtom "elephant"

pattern L :: forall a. [SExpr a] -> SExpr a

An alias for matching a proper list.

>>> L [A "pachy", A "derm"]
SExpr (SAtom "pachy") (SExpr (SAtom "derm") SNil)

pattern DL :: forall a. [SExpr a] -> a -> SExpr a

An alias for matching a dotted list.

>>> DL [A "pachy"] A "derm"
SExpr (SAtom "pachy") (SAtom "derm")

pattern Nil :: forall a. SExpr a

A (slightly) shorter alias for SNil

>>> Nil
SNil

Lenses

_car :: Applicative f => (SExpr a -> f (SExpr a)) -> SExpr a -> f (SExpr a)

A traversal with access to the first element of a pair.

>>> import Lens.Family
>>> set _car (A "elephant") (A "one" ::: A "two" ::: A "three" ::: Nil)
A "elelphant" ::: A "two" ::: A "three" ::: Nil
>>> set _car (A "two" ::: A "three" ::: Nil) (A "one" ::: A "elephant")
(A "two" ::: A "three" ::: Nil) ::: A "elephant"

_cdr :: Applicative f => (SExpr a -> f (SExpr a)) -> SExpr a -> f (SExpr a)

A traversal with access to the second element of a pair.

>>> import Lens.Family
>>> set _cdr (A "elephant") (A "one" ::: A "two" ::: A "three" ::: Nil)
A "one" ::: A "elephant"
>>> set _cdr (A "two" ::: A "three" ::: Nil) (A "one" ::: A "elephant")
A "one" ::: A "two" ::: A "three" ::: Nil

Useful processing functions

fromPair :: (SExpr t -> Either String a) -> (SExpr t -> Either String b) -> SExpr t -> Either String (a, b)

Utility function for parsing a pair of things.

>>> fromPair (isAtom "pachy") (asAtom return) (A "pachy" ::: A "derm" ::: Nil)
Right ((), "derm")
>>> fromPair (isAtom "pachy") fromAtom (A "pachy" ::: Nil)
Left "Expected two-element list"

fromList :: (SExpr t -> Either String a) -> SExpr t -> Either String [a]

Utility function for parsing a list of things.

fromAtom :: SExpr t -> Either String t

Utility function for parsing a single atom

asPair :: ((SExpr t, SExpr t) -> Either String a) -> SExpr t -> Either String a

Parse a two-element list (NOT a dotted pair) using the provided function.

>>> let go (A l) (A r) = return (l ++ r); go _ _ = Left "expected atoms"
>>> asPair go (A "pachy" ::: A "derm" ::: Nil)
Right "pachyderm"
>>> asPair go (A "elephant" ::: Nil)
Left "asPair: expected two-element list; found list of length 1"

asList :: ([SExpr t] -> Either String a) -> SExpr t -> Either String a

Parse an arbitrary-length list using the provided function.

>>> let go xs = concat <$> mapM fromAtom xs
>>> asList go (A "el" ::: A "eph" ::: A "ant" ::: Nil)
Right "elephant"
>>> asList go (A "el" ::: A "eph" ::: A "ant")
Left "asList: expected list; found dotted list of length 3"

isAtom :: Eq t => t -> SExpr t -> Either String ()

Match a given literal atom, failing otherwise.

>>> isAtom "elephant" (A "elephant")
Right ()
>>> isAtom "elephant" (A "elephant" ::: Nil)
Left "isAtom: expected atom; found list"

asAtom :: (t -> Either String a) -> SExpr t -> Either String a

Parse an atom using the provided function.

>>> import Data.Char (toUpper)
>>> asAtom (return . map toUpper) (A "elephant")
Right "ELEPHANT"
>>> asAtom (return . map toUpper) Nil
Left "asAtom: expected atom; found empty list"

asAssoc :: ([(SExpr t, SExpr t)] -> Either String a) -> SExpr t -> Either String a

Parse an assoc-list using the provided function.

>>> let def (x, y) = do { a <- fromAtom x; b <- fromAtom y; return (a ++ ": " ++ b) }
>>> let defList xs = do { defs <- mapM def xs; return (unlines defs) }
>>> asAssoc defList ((A "legs" ::: A "four" ::: Nil) ::: (A "trunk" ::: A "one" ::: Nil) ::: Nil)
Right "legs: four\ntrunk: one\n"
>>> asAssoc defList ((A "legs" ::: A "four" ::: Nil) ::: (A "elephant") ::: Nil)
Left "asAssoc: expected pair; found list of length 1"