Language.Syntactic.Decoration

Construct for decorating symbols or expressions with additional information

Documentation

data (expr :&: info) sig where

Decorating symbols or expressions with additional information

One usage of :&: is to decorate every node of a syntax tree. This is done simply by changing

AST sym sig

to

AST (sym :&: info) sig

Constructors

(:&:)

Fields

• :: { decorExpr :: expr sig
•    , decorInfo :: info (DenResult sig)
•    } -> (expr :&: info) sig

Instances

Project sub sup => Project sub (sup :&: info)

Defined in Language.Syntactic.Decoration

Methods

prj :: (sup :&: info) a -> Maybe (sub a)

(NFData1 sym, NFData1 info) => NFData1 (sym :&: info)

Defined in Language.Syntactic.Decoration

Methods

rnf1 :: (sym :&: info) a -> ()

Symbol sym => Symbol (sym :&: info)

Defined in Language.Syntactic.Decoration

Methods

symSig :: (sym :&: info) sig -> SigRep sig

StringTree expr => StringTree (expr :&: info)

Defined in Language.Syntactic.Decoration

Methods

stringTreeSym :: [Tree String] -> (expr :&: info) a -> Tree String

Render expr => Render (expr :&: info)

Defined in Language.Syntactic.Decoration

Methods

renderSym :: (expr :&: info) sig -> String

renderArgs :: [String] -> (expr :&: info) sig -> String

Equality expr => Equality (expr :&: info)

Defined in Language.Syntactic.Decoration

Methods

equal :: (expr :&: info) a -> (expr :&: info) b -> Bool

hash :: (expr :&: info) a -> Hash

Eval sym => Eval (sym :&: info)

Defined in Language.Syntactic.Functional

Methods

evalSym :: (sym :&: info) sig -> Denotation sig

BindingDomain sym => BindingDomain (sym :&: i)

Defined in Language.Syntactic.Functional

Methods

prVar :: (sym :&: i) sig -> Maybe Name

prLam :: (sym :&: i) sig -> Maybe Name

renameBind :: (Name -> Name) -> (sym :&: i) sig -> (sym :&: i) sig

EvalEnv sym env => EvalEnv (sym :&: info) env

Defined in Language.Syntactic.Functional

Methods

compileSym :: proxy env -> (sym :&: info) sig -> DenotationM (Reader env) sig

mapDecor :: (sym1 sig -> sym2 sig) -> (info1 (DenResult sig) -> info2 (DenResult sig)) -> (sym1 :&: info1) sig -> (sym2 :&: info2) sig

Map over a decoration

getDecor :: AST (sym :&: info) sig -> info (DenResult sig)

Get the decoration of the top-level node

updateDecor :: forall info sym a. (info a -> info a) -> ASTF (sym :&: info) a -> ASTF (sym :&: info) a

Update the decoration of the top-level node

liftDecor :: (expr s -> info (DenResult s) -> b) -> (expr :&: info) s -> b

Lift a function that operates on expressions with associated information to operate on a :&: expression. This function is convenient to use together with e.g. queryNodeSimple when the domain has the form (sym :&: info).

stripDecor :: AST (sym :&: info) sig -> AST sym sig

Strip decorations from an AST

stringTreeDecor :: forall info sym a. StringTree sym => (forall a. info a -> String) -> ASTF (sym :&: info) a -> Tree String

Rendering of decorated syntax trees

showDecorWith :: StringTree sym => (forall a. info a -> String) -> ASTF (sym :&: info) a -> String

Show an decorated syntax tree using ASCII art

drawDecorWith :: StringTree sym => (forall a. info a -> String) -> ASTF (sym :&: info) a -> IO ()

Print an decorated syntax tree using ASCII art

writeHtmlDecorWith :: forall info sym a. StringTree sym => (forall b. info b -> String) -> FilePath -> ASTF (sym :&: info) a -> IO ()

smartSymDecor :: (Signature sig, f ~ SmartFun (sup :&: info) sig, sig ~ SmartSig f, (sup :&: info) ~ SmartSym f, sub :<: sup) => info (DenResult sig) -> sub sig -> f

Make a smart constructor of a symbol. smartSymDecor has any type of the form:

smartSymDecor :: (sub :<: AST (sup :&: info))
    => info x
    -> sub (a :-> b :-> ... :-> Full x)
    -> (ASTF sup a -> ASTF sup b -> ... -> ASTF sup x)

sugarSymDecor :: (Signature sig, fi ~ SmartFun (sup :&: info) sig, sig ~ SmartSig fi, (sup :&: info) ~ SmartSym fi, SyntacticN f fi, sub :<: sup) => info (DenResult sig) -> sub sig -> f

"Sugared" symbol application

sugarSymDecor has any type of the form:

sugarSymDecor ::
    ( sub :<: AST (sup :&: info)
    , Syntactic a
    , Syntactic b
    , ...
    , Syntactic x
    , Domain a ~ Domain b ~ ... ~ Domain x
    ) => info (Internal x)
      -> sub (Internal a :-> Internal b :-> ... :-> Full (Internal x))
      -> (a -> b -> ... -> x)