Copyright	(C) 2012-2016 University of Twente 2016 Myrtle Software Ltd 2017 Google Inc.
License	BSD2 (see the file LICENSE)
Maintainer	Christiaan Baaij <christiaan.baaij@gmail.com>
Safe Haskell	None
Language	Haskell2010

Clash.Rewrite.Types

Description

Type and instance definitions for Rewrite modules

Synopsis

data RewriteStep = RewriteStep {
- t_ctx :: Context
- t_name :: String
- t_bndrS :: String
- t_before :: Term
- t_after :: Term
}
data RewriteState extra = RewriteState {
- _transformCounter :: !Int
- _bindings :: !BindingMap
- _uniqSupply :: !Supply
- _curFun :: (Id, SrcSpan)
- _nameCounter :: !Int
- _globalHeap :: PrimHeap
- _extra :: !extra
}
uniqSupply :: forall extra. Lens' (RewriteState extra) Supply
transformCounter :: forall extra. Lens' (RewriteState extra) Int
nameCounter :: forall extra. Lens' (RewriteState extra) Int
globalHeap :: forall extra. Lens' (RewriteState extra) PrimHeap
extra :: forall extra extra. Lens (RewriteState extra) (RewriteState extra) extra extra
curFun :: forall extra. Lens' (RewriteState extra) (Id, SrcSpan)
bindings :: forall extra. Lens' (RewriteState extra) BindingMap
data RewriteEnv = RewriteEnv {
- _dbgLevel :: DebugLevel
- _dbgTransformations :: Set String
- _aggressiveXOpt :: Bool
- _typeTranslator :: CustomReprs -> TyConMap -> Type -> State HWMap (Maybe (Either String FilteredHWType))
- _tcCache :: TyConMap
- _tupleTcCache :: IntMap TyConName
- _evaluator :: (PrimStep, PrimUnwind)
- _topEntities :: VarSet
- _customReprs :: CustomReprs
}
typeTranslator :: Lens' RewriteEnv (CustomReprs -> TyConMap -> Type -> State HWMap (Maybe (Either String FilteredHWType)))
tupleTcCache :: Lens' RewriteEnv (IntMap TyConName)
topEntities :: Lens' RewriteEnv VarSet
tcCache :: Lens' RewriteEnv TyConMap
evaluator :: Lens' RewriteEnv (PrimStep, PrimUnwind)
dbgTransformations :: Lens' RewriteEnv (Set String)
dbgLevel :: Lens' RewriteEnv DebugLevel
customReprs :: Lens' RewriteEnv CustomReprs
aggressiveXOpt :: Lens' RewriteEnv Bool
newtype RewriteMonad extra a = R {
- unR :: RewriteEnv -> RewriteState extra -> Any -> (a, RewriteState extra, Any)
}
runR :: RewriteMonad extra a -> RewriteEnv -> RewriteState extra -> (a, RewriteState extra, Any)
censor :: (Any -> Any) -> RewriteMonad extra a -> RewriteMonad extra a
data TransformContext = TransformContext {
- tfInScope :: !InScopeSet
- tfContext :: Context
}
type Transform m = TransformContext -> Term -> m Term
type Rewrite extra = Transform (RewriteMonad extra)

Documentation

data RewriteStep Source #

State used by the inspection mechanism for recording rewrite steps.

Constructors

RewriteStep
Fields t_ctx :: Context current context t_name :: String Name of the transformation t_bndrS :: String Name of the current binder t_before :: Term Term before `apply` t_after :: Term Term after `apply`

Instances

Instances details

Show RewriteStep Source #
Instance details Defined in Clash.Rewrite.Types Methods showsPrec :: Int -> RewriteStep -> ShowS # show :: RewriteStep -> String # showList :: [RewriteStep] -> ShowS #
Generic RewriteStep Source #
Instance details Defined in Clash.Rewrite.Types Associated Types type Rep RewriteStep :: Type -> Type # Methods from :: RewriteStep -> Rep RewriteStep x # to :: Rep RewriteStep x -> RewriteStep #
Hashable RewriteStep Source #
Instance details Defined in Clash.Rewrite.Types Methods hashWithSalt :: Int -> RewriteStep -> Int # hash :: RewriteStep -> Int #
Binary RewriteStep Source #
Instance details Defined in Clash.Rewrite.Types Methods put :: RewriteStep -> Put # get :: Get RewriteStep # putList :: [RewriteStep] -> Put #
NFData RewriteStep Source #
Instance details Defined in Clash.Rewrite.Types Methods rnf :: RewriteStep -> () #
type Rep RewriteStep Source #
Instance details Defined in Clash.Rewrite.Types type Rep RewriteStep = D1 ('MetaData "RewriteStep" "Clash.Rewrite.Types" "clash-lib-1.1.0-inplace" 'False) (C1 ('MetaCons "RewriteStep" 'PrefixI 'True) ((S1 ('MetaSel ('Just "t_ctx") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Context) :: S1 ('MetaSel ('Just "t_name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :: (S1 ('MetaSel ('Just "t_bndrS") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :: (S1 ('MetaSel ('Just "t_before") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Term) :: S1 ('MetaSel ('Just "t_after") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Term)))))

data RewriteState extra Source #

State of a rewriting session

Constructors

RewriteState
Fields _transformCounter :: !Int Number of applied transformations _bindings :: !BindingMap Global binders _uniqSupply :: !Supply Supply of unique numbers _curFun :: (Id, SrcSpan) Function which is currently normalized _nameCounter :: !Int Used for `Fresh` _globalHeap :: PrimHeap Used as a heap for compile-time evaluation of primitives that live in I/O _extra :: !extra Additional state

Instances

Instances details

MonadState (RewriteState extra) (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods get :: RewriteMonad extra (RewriteState extra) # put :: RewriteState extra -> RewriteMonad extra () # state :: (RewriteState extra -> (a, RewriteState extra)) -> RewriteMonad extra a #

uniqSupply :: forall extra. Lens' (RewriteState extra) Supply Source #

transformCounter :: forall extra. Lens' (RewriteState extra) Int Source #

nameCounter :: forall extra. Lens' (RewriteState extra) Int Source #

globalHeap :: forall extra. Lens' (RewriteState extra) PrimHeap Source #

extra :: forall extra extra. Lens (RewriteState extra) (RewriteState extra) extra extra Source #

curFun :: forall extra. Lens' (RewriteState extra) (Id, SrcSpan) Source #

bindings :: forall extra. Lens' (RewriteState extra) BindingMap Source #

data RewriteEnv Source #

Read-only environment of a rewriting session

Constructors

RewriteEnv

Fields

_dbgLevel :: DebugLevel
Level at which we print debugging messages
_dbgTransformations :: Set String
_aggressiveXOpt :: Bool
Transformations to print debugging info for
_typeTranslator :: CustomReprs -> TyConMap -> Type -> State HWMap (Maybe (Either String FilteredHWType))
Hardcode Type -> FilteredHWType translator
_tcCache :: TyConMap
TyCon cache
_tupleTcCache :: IntMap TyConName
Tuple TyCon cache
_evaluator :: (PrimStep, PrimUnwind)
Hardcoded evaluator (delta-reduction)}
_topEntities :: VarSet
Functions that are considered TopEntities
_customReprs :: CustomReprs
Custom bit representations

Instances

Instances details

MonadReader RewriteEnv (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods ask :: RewriteMonad extra RewriteEnv # local :: (RewriteEnv -> RewriteEnv) -> RewriteMonad extra a -> RewriteMonad extra a # reader :: (RewriteEnv -> a) -> RewriteMonad extra a #

typeTranslator :: Lens' RewriteEnv (CustomReprs -> TyConMap -> Type -> State HWMap (Maybe (Either String FilteredHWType))) Source #

tupleTcCache :: Lens' RewriteEnv (IntMap TyConName) Source #

topEntities :: Lens' RewriteEnv VarSet Source #

tcCache :: Lens' RewriteEnv TyConMap Source #

evaluator :: Lens' RewriteEnv (PrimStep, PrimUnwind) Source #

dbgTransformations :: Lens' RewriteEnv (Set String) Source #

dbgLevel :: Lens' RewriteEnv DebugLevel Source #

customReprs :: Lens' RewriteEnv CustomReprs Source #

aggressiveXOpt :: Lens' RewriteEnv Bool Source #

newtype RewriteMonad extra a Source #

Monad that keeps track how many transformations have been applied and can generate fresh variables and unique identifiers. In addition, it keeps track if a transformation/rewrite has been successfully applied.

Constructors

R
Fields unR :: RewriteEnv -> RewriteState extra -> Any -> (a, RewriteState extra, Any)

Instances

Instances details

MonadReader RewriteEnv (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods ask :: RewriteMonad extra RewriteEnv # local :: (RewriteEnv -> RewriteEnv) -> RewriteMonad extra a -> RewriteMonad extra a # reader :: (RewriteEnv -> a) -> RewriteMonad extra a #
MonadWriter Any (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods writer :: (a, Any) -> RewriteMonad extra a # tell :: Any -> RewriteMonad extra () # listen :: RewriteMonad extra a -> RewriteMonad extra (a, Any) # pass :: RewriteMonad extra (a, Any -> Any) -> RewriteMonad extra a #
Monad (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods (>>=) :: RewriteMonad extra a -> (a -> RewriteMonad extra b) -> RewriteMonad extra b # (>>) :: RewriteMonad extra a -> RewriteMonad extra b -> RewriteMonad extra b # return :: a -> RewriteMonad extra a #
Functor (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods fmap :: (a -> b) -> RewriteMonad extra a -> RewriteMonad extra b # (<$) :: a -> RewriteMonad extra b -> RewriteMonad extra a #
MonadFix (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods mfix :: (a -> RewriteMonad extra a) -> RewriteMonad extra a #
MonadFail (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods fail :: String -> RewriteMonad extra a #
Applicative (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods pure :: a -> RewriteMonad extra a # (<>) :: RewriteMonad extra (a -> b) -> RewriteMonad extra a -> RewriteMonad extra b # liftA2 :: (a -> b -> c) -> RewriteMonad extra a -> RewriteMonad extra b -> RewriteMonad extra c # (>) :: RewriteMonad extra a -> RewriteMonad extra b -> RewriteMonad extra b # (<*) :: RewriteMonad extra a -> RewriteMonad extra b -> RewriteMonad extra a #
MonadUnique (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods getUniqueM :: RewriteMonad extra Int Source #
MonadState (RewriteState extra) (RewriteMonad extra) Source #
Instance details Defined in Clash.Rewrite.Types Methods get :: RewriteMonad extra (RewriteState extra) # put :: RewriteState extra -> RewriteMonad extra () # state :: (RewriteState extra -> (a, RewriteState extra)) -> RewriteMonad extra a #

runR :: RewriteMonad extra a -> RewriteEnv -> RewriteState extra -> (a, RewriteState extra, Any) Source #

Run the computation in the RewriteMonad

censor :: (Any -> Any) -> RewriteMonad extra a -> RewriteMonad extra a Source #

data TransformContext Source #

Constructors

TransformContext
Fields tfInScope :: !InScopeSet tfContext :: Context

type Transform m = TransformContext -> Term -> m Term Source #

Monadic action that transforms a term given a certain context

type Rewrite extra = Transform (RewriteMonad extra) Source #

A Transform action in the context of the RewriteMonad