Language.Modula2.AST

Concrete data types for Modula-2 constructs that make up its Abstract Syntax Tree. Every data type from this module is an instance of a type family declared in Language.Modula2.Abstract. This way it can be replaced by another data type for another language while leaving other types to be reused.

Documentation

data Statement λ l f' f

Constructors

EmptyStatement

Assignment (f (Designator l l f' f')) (f (Expression l l f' f'))

ProcedureCall (f (Designator l l f' f')) (Maybe (ZipList (f (Expression l l f' f'))))

If (f (ConditionalBranch l l f' f')) (ZipList (f (ConditionalBranch l l f' f'))) (Maybe (f (StatementSequence l l f' f')))

CaseStatement (f (Expression l l f' f')) (ZipList (f (Case l l f' f'))) (Maybe (f (StatementSequence l l f' f')))

While (f (Expression l l f' f')) (f (StatementSequence l l f' f'))

Repeat (f (StatementSequence l l f' f')) (f (Expression l l f' f'))

For Ident (f (Expression l l f' f')) (f (Expression l l f' f')) (Maybe (f (Expression l l f' f'))) (f (StatementSequence l l f' f'))

Loop (f (StatementSequence l l f' f'))

With (f (Designator l l f' f')) (f (StatementSequence l l f' f'))

Exit

Return (Maybe (f (Expression l l f' f')))

Instances

(Transformation t, Functor t (Designator l l), Functor t (Expression l l), Functor t (Designator l l), Functor t (Expression l l), Functor t (ConditionalBranch l l), Functor t (ConditionalBranch l l), Functor t (StatementSequence l l), Functor t (Expression l l), Functor t (Case l l), Functor t (StatementSequence l l), Functor t (Expression l l), Functor t (StatementSequence l l), Functor t (StatementSequence l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (StatementSequence l l), Functor t (StatementSequence l l), Functor t (Designator l l), Functor t (StatementSequence l l), Functor t (Expression l l)) => Functor t (Statement λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Statement λ l (Domain t) (Domain t) -> Statement λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Designator l l), Foldable t (Expression l l), Foldable t (Designator l l), Foldable t (Expression l l), Foldable t (ConditionalBranch l l), Foldable t (ConditionalBranch l l), Foldable t (StatementSequence l l), Foldable t (Expression l l), Foldable t (Case l l), Foldable t (StatementSequence l l), Foldable t (Expression l l), Foldable t (StatementSequence l l), Foldable t (StatementSequence l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (StatementSequence l l), Foldable t (StatementSequence l l), Foldable t (Designator l l), Foldable t (StatementSequence l l), Foldable t (Expression l l)) => Foldable t (Statement λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Statement λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Designator l l), Traversable t (Expression l l), Traversable t (Designator l l), Traversable t (Expression l l), Traversable t (ConditionalBranch l l), Traversable t (ConditionalBranch l l), Traversable t (StatementSequence l l), Traversable t (Expression l l), Traversable t (Case l l), Traversable t (StatementSequence l l), Traversable t (Expression l l), Traversable t (StatementSequence l l), Traversable t (StatementSequence l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (StatementSequence l l), Traversable t (StatementSequence l l), Traversable t (Designator l l), Traversable t (StatementSequence l l), Traversable t (Expression l l)) => Traversable t (Statement λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Statement λ l (Domain t) (Domain t) -> m (Statement λ l f f)

(Transformation t, At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (ConditionalBranch l l f' f'), At t (ConditionalBranch l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (Case l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (StatementSequence l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (StatementSequence l l f' f'), At t (StatementSequence l l f' f'), At t (Designator l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f')) => Functor t (Statement λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Statement λ l f' (Domain t) -> Statement λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (ConditionalBranch l l f' f'), At t (ConditionalBranch l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (Case l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (StatementSequence l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (StatementSequence l l f' f'), At t (StatementSequence l l f' f'), At t (Designator l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f')) => Foldable t (Statement λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Statement λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (ConditionalBranch l l f' f'), At t (ConditionalBranch l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (Case l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (StatementSequence l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (StatementSequence l l f' f'), At t (StatementSequence l l f' f'), At t (Designator l l f' f'), At t (StatementSequence l l f' f'), At t (Expression l l f' f')) => Traversable t (Statement λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Statement λ l f' (Domain t) -> m (Statement λ l f' f)

(Functor (Auto ConstantFold) (Statement l l), At (Auto ConstantFold) (Statement l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Statement l l)

Defined in Language.Modula2.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Statement l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Statement l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Statement λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Statement λ l f' p -> Statement λ l f' q

Foldable (Statement λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Statement λ l f' p -> m

Traversable (Statement λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Statement λ l f' p -> m (Statement λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Statement λ l f' (Compose m p) -> m (Statement λ l f' p)

Apply (Statement λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Statement λ l f' (p ~> q) -> Statement λ l f' p -> Statement λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Statement λ l f' p -> Statement λ l f' q -> Statement λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Statement λ l f' p -> Statement λ l f' q -> Statement λ l f' r -> Statement λ l f' s

Attribution (Auto ConstantFold) (Statement l l) Sem Placed => At (Auto ConstantFold) (Statement l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Statement l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Statement l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (Designator l l f' f')), Data (f (Expression l l f' f')), Data (f (Case l l f' f')), Data (f (ConditionalBranch l l f' f')), Data (f (StatementSequence l l f' f'))) => Data (Statement λ l f' f)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Statement λ l f' f -> c (Statement λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Statement λ l f' f)

toConstr :: Statement λ l f' f -> Constr

dataTypeOf :: Statement λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Statement λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Statement λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Statement λ l f' f -> Statement λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Statement λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Statement λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Statement λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Statement λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Statement λ l f' f -> m (Statement λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Statement λ l f' f -> m (Statement λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Statement λ l f' f -> m (Statement λ l f' f)

(Show (f (Designator l l f' f')), Show (f (Expression l l f' f')), Show (f (Case l l f' f')), Show (f (ConditionalBranch l l f' f')), Show (f (StatementSequence l l f' f'))) => Show (Statement λ l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Statement λ l f' f -> ShowS

show :: Statement λ l f' f -> String

showList :: [Statement λ l f' f] -> ShowS

(Pretty (ConstExpression l l Identity Identity), Pretty (Designator l l Identity Identity), Pretty (Case l l Identity Identity), Pretty (ConditionalBranch l l Identity Identity), Pretty (WithAlternative l l Identity Identity), Pretty (StatementSequence l l Identity Identity)) => Pretty (Statement Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Statement Language l Identity Identity -> Doc ann

prettyList :: [Statement Language l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (Statement λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Statement λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (Statement λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Statement λ l _1 _2) = SynCF' (Statement λ l)

data ProcedureHeading λ l f' f

Constructors

ProcedureHeading Ident (Maybe (f (FormalParameters l l f' f')))

Instances

(Transformation t, Functor t (FormalParameters l l)) => Functor t (ProcedureHeading λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> ProcedureHeading λ l (Domain t) (Domain t) -> ProcedureHeading λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (FormalParameters l l)) => Foldable t (ProcedureHeading λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> ProcedureHeading λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (FormalParameters l l)) => Traversable t (ProcedureHeading λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> ProcedureHeading λ l (Domain t) (Domain t) -> m (ProcedureHeading λ l f f)

(Transformation t, At t (FormalParameters l l f' f')) => Functor t (ProcedureHeading λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> ProcedureHeading λ l f' (Domain t) -> ProcedureHeading λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (FormalParameters l l f' f')) => Foldable t (ProcedureHeading λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> ProcedureHeading λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (FormalParameters l l f' f')) => Traversable t (ProcedureHeading λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> ProcedureHeading λ l f' (Domain t) -> m (ProcedureHeading λ l f' f)

(Functor (Auto ConstantFold) (ProcedureHeading l l), At (Auto ConstantFold) (ProcedureHeading l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (ProcedureHeading l l)

Defined in Language.Modula2.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (ProcedureHeading l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (ProcedureHeading l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (ProcedureHeading λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> ProcedureHeading λ l f' p -> ProcedureHeading λ l f' q

Foldable (ProcedureHeading λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> ProcedureHeading λ l f' p -> m

Traversable (ProcedureHeading λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> ProcedureHeading λ l f' p -> m (ProcedureHeading λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => ProcedureHeading λ l f' (Compose m p) -> m (ProcedureHeading λ l f' p)

Apply (ProcedureHeading λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). ProcedureHeading λ l f' (p ~> q) -> ProcedureHeading λ l f' p -> ProcedureHeading λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> ProcedureHeading λ l f' p -> ProcedureHeading λ l f' q -> ProcedureHeading λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> ProcedureHeading λ l f' p -> ProcedureHeading λ l f' q -> ProcedureHeading λ l f' r -> ProcedureHeading λ l f' s

Attribution (Auto ConstantFold) (ProcedureHeading l l) Sem Placed => At (Auto ConstantFold) (ProcedureHeading l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (ProcedureHeading l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (ProcedureHeading l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (FormalParameters l l f' f'))) => Data (ProcedureHeading λ l f' f)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ProcedureHeading λ l f' f -> c (ProcedureHeading λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (ProcedureHeading λ l f' f)

toConstr :: ProcedureHeading λ l f' f -> Constr

dataTypeOf :: ProcedureHeading λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (ProcedureHeading λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (ProcedureHeading λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> ProcedureHeading λ l f' f -> ProcedureHeading λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ProcedureHeading λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ProcedureHeading λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> ProcedureHeading λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> ProcedureHeading λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ProcedureHeading λ l f' f -> m (ProcedureHeading λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ProcedureHeading λ l f' f -> m (ProcedureHeading λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ProcedureHeading λ l f' f -> m (ProcedureHeading λ l f' f)

Show (f (FormalParameters l l f' f')) => Show (ProcedureHeading λ l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> ProcedureHeading λ l f' f -> ShowS

show :: ProcedureHeading λ l f' f -> String

showList :: [ProcedureHeading λ l f' f] -> ShowS

(Pretty (IdentDef l), Pretty (FormalParameters l l Identity Identity), Pretty (Type l l Identity Identity)) => Pretty (ProcedureHeading l l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: ProcedureHeading l l Identity Identity -> Doc ann

prettyList :: [ProcedureHeading l l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (ProcedureHeading λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (ProcedureHeading λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (ProcedureHeading λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (ProcedureHeading λ l _1 _2) = SynCF' (ProcedureHeading λ l)

data Variant λ l f' f

Constructors

Variant (f (CaseLabels l l f' f')) (ZipList (f (CaseLabels l l f' f'))) (ZipList (f (FieldList l l f' f')))

Instances

(Transformation t, Functor t (CaseLabels l l), Functor t (CaseLabels l l), Functor t (FieldList l l)) => Functor t (Variant λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Variant λ l (Domain t) (Domain t) -> Variant λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (CaseLabels l l), Foldable t (CaseLabels l l), Foldable t (FieldList l l)) => Foldable t (Variant λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Variant λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (CaseLabels l l), Traversable t (CaseLabels l l), Traversable t (FieldList l l)) => Traversable t (Variant λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Variant λ l (Domain t) (Domain t) -> m (Variant λ l f f)

(Transformation t, At t (CaseLabels l l f' f'), At t (CaseLabels l l f' f'), At t (FieldList l l f' f')) => Functor t (Variant λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Variant λ l f' (Domain t) -> Variant λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (CaseLabels l l f' f'), At t (CaseLabels l l f' f'), At t (FieldList l l f' f')) => Foldable t (Variant λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Variant λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (CaseLabels l l f' f'), At t (CaseLabels l l f' f'), At t (FieldList l l f' f')) => Traversable t (Variant λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Variant λ l f' (Domain t) -> m (Variant λ l f' f)

(Functor (Auto ConstantFold) (Variant l l), At (Auto ConstantFold) (Variant l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Variant l l)

Defined in Language.Modula2.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Variant l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Variant l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Variant λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Variant λ l f' p -> Variant λ l f' q

Foldable (Variant λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Variant λ l f' p -> m

Traversable (Variant λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Variant λ l f' p -> m (Variant λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Variant λ l f' (Compose m p) -> m (Variant λ l f' p)

Apply (Variant λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Variant λ l f' (p ~> q) -> Variant λ l f' p -> Variant λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Variant λ l f' p -> Variant λ l f' q -> Variant λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Variant λ l f' p -> Variant λ l f' q -> Variant λ l f' r -> Variant λ l f' s

Attribution (Auto ConstantFold) (Variant l l) Sem Placed => At (Auto ConstantFold) (Variant l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Variant l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Variant l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (CaseLabels l l f' f')), Data (f (FieldList l l f' f'))) => Data (Variant λ l f' f)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Variant λ l f' f -> c (Variant λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Variant λ l f' f)

toConstr :: Variant λ l f' f -> Constr

dataTypeOf :: Variant λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Variant λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Variant λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Variant λ l f' f -> Variant λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Variant λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Variant λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Variant λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Variant λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Variant λ l f' f -> m (Variant λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Variant λ l f' f -> m (Variant λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Variant λ l f' f -> m (Variant λ l f' f)

(Show (f (CaseLabels l l f' f')), Show (f (FieldList l l f' f'))) => Show (Variant λ l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Variant λ l f' f -> ShowS

show :: Variant λ l f' f -> String

showList :: [Variant λ l f' f] -> ShowS

(Pretty (CaseLabels l l Identity Identity), Pretty (FieldList l l Identity Identity)) => Pretty (Variant λ l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Variant λ l Identity Identity -> Doc ann

prettyList :: [Variant λ l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (Variant λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Variant λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (Variant λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Variant λ l _1 _2) = SynCF' (Variant λ l)

data FieldList λ l f' f

Constructors

FieldList (IdentList l) (f (Type l l f' f'))

CaseFieldList (Maybe Ident) (QualIdent l) (f (Variant l l f' f')) (ZipList (f (Variant l l f' f'))) (ZipList (f (FieldList l l f' f')))

Instances

(Transformation t, Functor t (Type l l), Functor t (Variant l l), Functor t (Variant l l), Functor t (FieldList l l)) => Functor t (FieldList λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> FieldList λ l (Domain t) (Domain t) -> FieldList λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Type l l), Foldable t (Variant l l), Foldable t (Variant l l), Foldable t (FieldList l l)) => Foldable t (FieldList λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> FieldList λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Type l l), Traversable t (Variant l l), Traversable t (Variant l l), Traversable t (FieldList l l)) => Traversable t (FieldList λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> FieldList λ l (Domain t) (Domain t) -> m (FieldList λ l f f)

(Transformation t, At t (Type l l f' f'), At t (Variant l l f' f'), At t (Variant l l f' f'), At t (FieldList l l f' f')) => Functor t (FieldList λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> FieldList λ l f' (Domain t) -> FieldList λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Type l l f' f'), At t (Variant l l f' f'), At t (Variant l l f' f'), At t (FieldList l l f' f')) => Foldable t (FieldList λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> FieldList λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Type l l f' f'), At t (Variant l l f' f'), At t (Variant l l f' f'), At t (FieldList l l f' f')) => Traversable t (FieldList λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> FieldList λ l f' (Domain t) -> m (FieldList λ l f' f)

(Functor (Auto ConstantFold) (FieldList l l), At (Auto ConstantFold) (FieldList l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (FieldList l l)

Defined in Language.Modula2.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (FieldList l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (FieldList l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (FieldList λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> FieldList λ l f' p -> FieldList λ l f' q

Foldable (FieldList λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> FieldList λ l f' p -> m

Traversable (FieldList λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> FieldList λ l f' p -> m (FieldList λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => FieldList λ l f' (Compose m p) -> m (FieldList λ l f' p)

Apply (FieldList λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). FieldList λ l f' (p ~> q) -> FieldList λ l f' p -> FieldList λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> FieldList λ l f' p -> FieldList λ l f' q -> FieldList λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> FieldList λ l f' p -> FieldList λ l f' q -> FieldList λ l f' r -> FieldList λ l f' s

Attribution (Auto ConstantFold) (FieldList l l) Sem Placed => At (Auto ConstantFold) (FieldList l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (FieldList l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (FieldList l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (QualIdent l), Data (IdentList l), Data (f (Type l l f' f')), Data (f (Expression l l f' f')), Data (f (Variant l l f' f')), Data (f (FieldList l l f' f'))) => Data (FieldList λ l f' f)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> FieldList λ l f' f -> c (FieldList λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (FieldList λ l f' f)

toConstr :: FieldList λ l f' f -> Constr

dataTypeOf :: FieldList λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (FieldList λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (FieldList λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> FieldList λ l f' f -> FieldList λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> FieldList λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> FieldList λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> FieldList λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> FieldList λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> FieldList λ l f' f -> m (FieldList λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> FieldList λ l f' f -> m (FieldList λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> FieldList λ l f' f -> m (FieldList λ l f' f)

(Show (QualIdent l), Show (IdentList l), Show (f (Type l l f' f')), Show (f (Expression l l f' f')), Show (f (Variant l l f' f')), Show (f (FieldList l l f' f'))) => Show (FieldList λ l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> FieldList λ l f' f -> ShowS

show :: FieldList λ l f' f -> String

showList :: [FieldList λ l f' f] -> ShowS

(Pretty (IdentDef l), Pretty (QualIdent l), Pretty (Type l l Identity Identity), Pretty (Value l l Identity Identity), Pretty (FieldList l l Identity Identity), Pretty (Variant l l Identity Identity)) => Pretty (FieldList Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: FieldList Language l Identity Identity -> Doc ann

prettyList :: [FieldList Language l Identity Identity] -> Doc ann

(Pretty (IdentDef l), Pretty (QualIdent l), Pretty (Type l l Identity Identity), Pretty (Value l l Identity Identity), Pretty (FieldList l l Identity Identity), Pretty (Variant l l Identity Identity)) => Pretty (FieldList Language l Identity Identity)

Defined in Language.Modula2.ISO.Pretty

Methods

pretty :: FieldList Language l Identity Identity -> Doc ann

prettyList :: [FieldList Language l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (FieldList λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (FieldList λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (FieldList λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (FieldList λ l _1 _2) = SynCF' (FieldList λ l)

data Type λ l f' f

Constructors

TypeReference (QualIdent l)

ArrayType (ZipList (f (Type l l f' f'))) (f (Type l l f' f'))

EnumerationType (IdentList l)

SubrangeType (Maybe (QualIdent l)) (f (ConstExpression l l f' f')) (f (ConstExpression l l f' f'))

SetType (f (Type l l f' f'))

RecordType (ZipList (f (FieldList l l f' f')))

PointerType (f (Type l l f' f'))

ProcedureType (Maybe (f (FormalParameters l l f' f')))

Instances

(Transformation t, Functor t (Type l l), Functor t (Type l l), Functor t (ConstExpression l l), Functor t (ConstExpression l l), Functor t (Type l l), Functor t (FieldList l l), Functor t (Type l l), Functor t (FormalParameters l l)) => Functor t (Type λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Type λ l (Domain t) (Domain t) -> Type λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Type l l), Foldable t (Type l l), Foldable t (ConstExpression l l), Foldable t (ConstExpression l l), Foldable t (Type l l), Foldable t (FieldList l l), Foldable t (Type l l), Foldable t (FormalParameters l l)) => Foldable t (Type λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Type λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Type l l), Traversable t (Type l l), Traversable t (ConstExpression l l), Traversable t (ConstExpression l l), Traversable t (Type l l), Traversable t (FieldList l l), Traversable t (Type l l), Traversable t (FormalParameters l l)) => Traversable t (Type λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type0 -> Type0). Codomain t ~ Compose m f => t -> Type λ l (Domain t) (Domain t) -> m (Type λ l f f)

(Transformation t, At t (Type l l f' f'), At t (Type l l f' f'), At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f'), At t (Type l l f' f'), At t (FieldList l l f' f'), At t (Type l l f' f'), At t (FormalParameters l l f' f')) => Functor t (Type λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Type λ l f' (Domain t) -> Type λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Type l l f' f'), At t (Type l l f' f'), At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f'), At t (Type l l f' f'), At t (FieldList l l f' f'), At t (Type l l f' f'), At t (FormalParameters l l f' f')) => Foldable t (Type λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Type λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Type l l f' f'), At t (Type l l f' f'), At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f'), At t (Type l l f' f'), At t (FieldList l l f' f'), At t (Type l l f' f'), At t (FormalParameters l l f' f')) => Traversable t (Type λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type0 -> Type0). Codomain t ~ Compose m f => t -> Type λ l f' (Domain t) -> m (Type λ l f' f)

(Functor (Auto ConstantFold) (Type l l), At (Auto ConstantFold) (Type l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Type l l)

Defined in Language.Modula2.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Type l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Type l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Type λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Type λ l f' p -> Type λ l f' q

Foldable (Type λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Type λ l f' p -> m

Traversable (Type λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Type λ l f' p -> m (Type λ l f' q)

sequence :: forall m (p :: k -> Type0). Applicative m => Type λ l f' (Compose m p) -> m (Type λ l f' p)

Apply (Type λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type0) (q :: k -> Type0). Type λ l f' (p ~> q) -> Type λ l f' p -> Type λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Type λ l f' p -> Type λ l f' q -> Type λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Type λ l f' p -> Type λ l f' q -> Type λ l f' r -> Type λ l f' s

Attribution (Auto ConstantFold) (Type l l) Sem Placed => At (Auto ConstantFold) (Type l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Type l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Type l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (QualIdent l), Data (IdentList l), Data (f (Type l l f' f')), Data (f (ConstExpression l l f' f')), Data (f (FormalParameters l l f' f')), Data (f (FieldList l l f' f'))) => Data (Type λ l f' f)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Type λ l f' f -> c (Type λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Type λ l f' f)

toConstr :: Type λ l f' f -> Constr

dataTypeOf :: Type λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Type λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Type λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Type λ l f' f -> Type λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Type λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Type λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Type λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Type λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Type λ l f' f -> m (Type λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Type λ l f' f -> m (Type λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Type λ l f' f -> m (Type λ l f' f)

(Show (QualIdent l), Show (IdentList l), Show (f (Type l l f' f')), Show (f (ConstExpression l l f' f')), Show (f (FormalParameters l l f' f')), Show (f (FieldList l l f' f'))) => Show (Type λ l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Type λ l f' f -> ShowS

show :: Type λ l f' f -> String

showList :: [Type λ l f' f] -> ShowS

(Pretty (IdentDef l), Pretty (FormalParameters l l Identity Identity), Pretty (FieldList l l Identity Identity), Pretty (ConstExpression l l Identity Identity), Pretty (Type l l Identity Identity), Pretty (BaseType l)) => Pretty (Type Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Type Language l Identity Identity -> Doc ann

prettyList :: [Type Language l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (Type λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Type λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (Type λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Type λ l _1 _2) = SynCF' (Type λ l)

data Designator λ l f' f

Constructors

Variable (QualIdent l)

Field (f (Designator l l f' f')) Ident

Index (f (Designator l l f' f')) (f (Expression l l f' f')) (ZipList (f (Expression l l f' f')))

Dereference (f (Designator l l f' f'))

Instances

(Transformation t, Functor t (Designator l l), Functor t (Designator l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Designator l l)) => Functor t (Designator λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Designator λ l (Domain t) (Domain t) -> Designator λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Designator l l), Foldable t (Designator l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Designator l l)) => Foldable t (Designator λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Designator λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Designator l l), Traversable t (Designator l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Designator l l)) => Traversable t (Designator λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Designator λ l (Domain t) (Domain t) -> m (Designator λ l f f)

(Transformation t, At t (Designator l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Designator l l f' f')) => Functor t (Designator λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Designator λ l f' (Domain t) -> Designator λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Designator l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Designator l l f' f')) => Foldable t (Designator λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Designator λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Designator l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Designator l l f' f')) => Traversable t (Designator λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Designator λ l f' (Domain t) -> m (Designator λ l f' f)

(Functor (Auto ConstantFold) (Designator l l), At (Auto ConstantFold) (Designator l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Designator l l)

Defined in Language.Modula2.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Designator l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Designator l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Designator λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Designator λ l f' p -> Designator λ l f' q

Foldable (Designator λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Designator λ l f' p -> m

Traversable (Designator λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Designator λ l f' p -> m (Designator λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Designator λ l f' (Compose m p) -> m (Designator λ l f' p)

Apply (Designator λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Designator λ l f' (p ~> q) -> Designator λ l f' p -> Designator λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Designator λ l f' p -> Designator λ l f' q -> Designator λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Designator λ l f' p -> Designator λ l f' q -> Designator λ l f' r -> Designator λ l f' s

Attribution (Auto ConstantFold) (Designator l l) Sem Placed => At (Auto ConstantFold) (Designator l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Designator l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Designator l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Eq (QualIdent l), Eq (f (Designator l l f' f')), Eq (f (Expression l l f' f'))) => Eq (Designator λ l f' f)

Defined in Language.Modula2.AST

Methods

(==) :: Designator λ l f' f -> Designator λ l f' f -> Bool

(/=) :: Designator λ l f' f -> Designator λ l f' f -> Bool

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (QualIdent l), Data (f (Designator l l f' f')), Data (f (Expression l l f' f'))) => Data (Designator λ l f' f)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Designator λ l f' f -> c (Designator λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Designator λ l f' f)

toConstr :: Designator λ l f' f -> Constr

dataTypeOf :: Designator λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Designator λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Designator λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Designator λ l f' f -> Designator λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Designator λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Designator λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Designator λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Designator λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Designator λ l f' f -> m (Designator λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Designator λ l f' f -> m (Designator λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Designator λ l f' f -> m (Designator λ l f' f)

(Show (QualIdent l), Show (f (Designator l l f' f')), Show (f (Expression l l f' f'))) => Show (Designator λ l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Designator λ l f' f -> ShowS

show :: Designator λ l f' f -> String

showList :: [Designator λ l f' f] -> ShowS

(Pretty (QualIdent l), Pretty (Designator l l Identity Identity), Pretty (Expression l l Identity Identity)) => Pretty (Designator Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Designator Language l Identity Identity -> Doc ann

prettyList :: [Designator Language l Identity Identity] -> Doc ann

(Pretty (QualIdent l), Pretty (Designator l l Identity Identity), Pretty (Expression l l Identity Identity)) => Pretty (Designator Language l Identity Identity)

Defined in Language.Modula2.ISO.Pretty

Methods

pretty :: Designator Language l Identity Identity -> Doc ann

prettyList :: [Designator Language l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (Designator λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Designator λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (Designator λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Designator λ l _1 _2) = SynCFDesignator l

data Expression λ l f' f

Constructors

Relation RelOp (f (Expression l l f' f')) (f (Expression l l f' f'))

Positive (f (Expression l l f' f'))

Negative (f (Expression l l f' f'))

Add (f (Expression l l f' f')) (f (Expression l l f' f'))

Subtract (f (Expression l l f' f')) (f (Expression l l f' f'))

Or (f (Expression l l f' f')) (f (Expression l l f' f'))

Multiply (f (Expression l l f' f')) (f (Expression l l f' f'))

Divide (f (Expression l l f' f')) (f (Expression l l f' f'))

IntegerDivide (f (Expression l l f' f')) (f (Expression l l f' f'))

Modulo (f (Expression l l f' f')) (f (Expression l l f' f'))

And (f (Expression l l f' f')) (f (Expression l l f' f'))

Set (Maybe (QualIdent l)) (ZipList (f (Element l l f' f')))

Read (f (Designator l l f' f'))

FunctionCall (f (Designator l l f' f')) (ZipList (f (Expression l l f' f')))

Not (f (Expression l l f' f'))

Literal (f (Value l l f' f'))

Instances

(Transformation t, Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Element l l), Functor t (Designator l l), Functor t (Designator l l), Functor t (Expression l l), Functor t (Expression l l), Functor t (Value l l)) => Functor t (Expression λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Expression λ l (Domain t) (Domain t) -> Expression λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Element l l), Foldable t (Designator l l), Foldable t (Designator l l), Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Value l l)) => Foldable t (Expression λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Expression λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Element l l), Traversable t (Designator l l), Traversable t (Designator l l), Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Value l l)) => Traversable t (Expression λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Expression λ l (Domain t) (Domain t) -> m (Expression λ l f f)

(Transformation t, At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Element l l f' f'), At t (Designator l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Value l l f' f')) => Functor t (Expression λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Expression λ l f' (Domain t) -> Expression λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Element l l f' f'), At t (Designator l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Value l l f' f')) => Foldable t (Expression λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Expression λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Element l l f' f'), At t (Designator l l f' f'), At t (Designator l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Value l l f' f')) => Traversable t (Expression λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Expression λ l f' (Domain t) -> m (Expression λ l f' f)

(Pretty (Precedence (Expression l l Identity Identity)), Pretty (Value l l Identity Identity), Pretty (Expression l l Identity Identity), Pretty (Element l l Identity Identity), Pretty (Designator l l Identity Identity), Pretty (QualIdent l)) => Pretty (Precedence (Expression Language l Identity Identity))

Defined in Language.Modula2.Pretty

Methods

pretty :: Precedence (Expression Language l Identity Identity) -> Doc ann

prettyList :: [Precedence (Expression Language l Identity Identity)] -> Doc ann

(Functor (Auto ConstantFold) (Expression l l), At (Auto ConstantFold) (Expression l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Expression l l)

Defined in Language.Modula2.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Expression l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Expression l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Expression λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Expression λ l f' p -> Expression λ l f' q

Foldable (Expression λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Expression λ l f' p -> m

Traversable (Expression λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Expression λ l f' p -> m (Expression λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Expression λ l f' (Compose m p) -> m (Expression λ l f' p)

Apply (Expression λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Expression λ l f' (p ~> q) -> Expression λ l f' p -> Expression λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Expression λ l f' p -> Expression λ l f' q -> Expression λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Expression λ l f' p -> Expression λ l f' q -> Expression λ l f' r -> Expression λ l f' s

Attribution (Auto ConstantFold) (Expression l l) Sem Placed => At (Auto ConstantFold) (Expression l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Expression l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Expression l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Eq (QualIdent l), Eq (f (Designator l l f' f')), Eq (f (Element l l f' f')), Eq (f (Value l l f' f')), Eq (f (Expression l l f' f'))) => Eq (Expression λ l f' f)

Defined in Language.Modula2.AST

Methods

(==) :: Expression λ l f' f -> Expression λ l f' f -> Bool

(/=) :: Expression λ l f' f -> Expression λ l f' f -> Bool

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (QualIdent l), Data (f (Designator l l f' f')), Data (f (Element l l f' f')), Data (f (Value l l f' f')), Data (f (Expression l l f' f'))) => Data (Expression λ l f' f)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Expression λ l f' f -> c (Expression λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Expression λ l f' f)

toConstr :: Expression λ l f' f -> Constr

dataTypeOf :: Expression λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Expression λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Expression λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Expression λ l f' f -> Expression λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Expression λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Expression λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Expression λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Expression λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Expression λ l f' f -> m (Expression λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Expression λ l f' f -> m (Expression λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Expression λ l f' f -> m (Expression λ l f' f)

(Show (QualIdent l), Show (f (Designator l l f' f')), Show (f (Element l l f' f')), Show (f (Value l l f' f')), Show (f (Expression l l f' f'))) => Show (Expression λ l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Expression λ l f' f -> ShowS

show :: Expression λ l f' f -> String

showList :: [Expression λ l f' f] -> ShowS

(Pretty (Precedence (Expression l l Identity Identity)), Pretty (Value l l Identity Identity), Pretty (Expression l l Identity Identity), Pretty (Element l l Identity Identity), Pretty (Designator l l Identity Identity), Pretty (QualIdent l)) => Pretty (Expression Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Expression Language l Identity Identity -> Doc ann

prettyList :: [Expression Language l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (Expression λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Expression λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (Expression λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Expression λ l _1 _2) = SynCFExp λ l

data QualIdent l

Constructors

QualIdent [Ident] Ident

Instances

Eq (QualIdent l)

Defined in Language.Modula2.AST

Methods

(==) :: QualIdent l -> QualIdent l -> Bool

(/=) :: QualIdent l -> QualIdent l -> Bool

Data l => Data (QualIdent l)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> QualIdent l -> c (QualIdent l)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (QualIdent l)

toConstr :: QualIdent l -> Constr

dataTypeOf :: QualIdent l -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (QualIdent l))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (QualIdent l))

gmapT :: (forall b. Data b => b -> b) -> QualIdent l -> QualIdent l

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> QualIdent l -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> QualIdent l -> r

gmapQ :: (forall d. Data d => d -> u) -> QualIdent l -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> QualIdent l -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> QualIdent l -> m (QualIdent l)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> QualIdent l -> m (QualIdent l)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> QualIdent l -> m (QualIdent l)

Ord (QualIdent l)

Defined in Language.Modula2.AST

Methods

compare :: QualIdent l -> QualIdent l -> Ordering

(<) :: QualIdent l -> QualIdent l -> Bool

(<=) :: QualIdent l -> QualIdent l -> Bool

(>) :: QualIdent l -> QualIdent l -> Bool

(>=) :: QualIdent l -> QualIdent l -> Bool

max :: QualIdent l -> QualIdent l -> QualIdent l

min :: QualIdent l -> QualIdent l -> QualIdent l

Show (QualIdent l)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> QualIdent l -> ShowS

show :: QualIdent l -> String

showList :: [QualIdent l] -> ShowS

Pretty (QualIdent l)

Defined in Language.Modula2.Pretty

Methods

pretty :: QualIdent l -> Doc ann

prettyList :: [QualIdent l] -> Doc ann

data Declaration (full :: Bool) λ l (f' :: * -> *) (f :: * -> *) where

Constructors

ConstantDeclaration :: IdentDef l -> f (ConstExpression l l f' f') -> Declaration x λ l f' f

TypeDeclaration :: IdentDef l -> f (Type l l f' f') -> Declaration x λ l f' f

OpaqueTypeDeclaration :: IdentDef l -> Declaration False λ l f' f

VariableDeclaration :: IdentList l -> f (Type l l f' f') -> Declaration x λ l f' f

ProcedureDeclaration :: f (ProcedureHeading l l f' f') -> f (Block l l f' f') -> Declaration True λ l f' f

ProcedureDefinition :: f (ProcedureHeading l l f' f') -> Declaration False λ l f' f

ModuleDeclaration :: Ident -> Maybe (f (Priority l l f' f')) -> [Import l] -> Maybe (Export l) -> f (Block l l f' f') -> Declaration True λ l f' f

Instances

(Transformation t, Functor t (ConstExpression l l), Functor t (Type l l), Functor t (Type l l), Functor t (ProcedureHeading l l), Functor t (Block l l), Functor t (ProcedureHeading l l), Functor t (Priority l l), Functor t (Block l l)) => Functor t (Declaration full λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Declaration full λ l (Domain t) (Domain t) -> Declaration full λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (ConstExpression l l), Foldable t (Type l l), Foldable t (Type l l), Foldable t (ProcedureHeading l l), Foldable t (Block l l), Foldable t (ProcedureHeading l l), Foldable t (Priority l l), Foldable t (Block l l)) => Foldable t (Declaration full λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Declaration full λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (ConstExpression l l), Traversable t (Type l l), Traversable t (Type l l), Traversable t (ProcedureHeading l l), Traversable t (Block l l), Traversable t (ProcedureHeading l l), Traversable t (Priority l l), Traversable t (Block l l)) => Traversable t (Declaration full λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Declaration full λ l (Domain t) (Domain t) -> m (Declaration full λ l f f)

(Transformation t, At t (ConstExpression l l f' f'), At t (Type l l f' f'), At t (Type l l f' f'), At t (ProcedureHeading l l f' f'), At t (Block l l f' f'), At t (ProcedureHeading l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f')) => Functor t (Declaration full λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Declaration full λ l f' (Domain t) -> Declaration full λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (ConstExpression l l f' f'), At t (Type l l f' f'), At t (Type l l f' f'), At t (ProcedureHeading l l f' f'), At t (Block l l f' f'), At t (ProcedureHeading l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f')) => Foldable t (Declaration full λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Declaration full λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (ConstExpression l l f' f'), At t (Type l l f' f'), At t (Type l l f' f'), At t (ProcedureHeading l l f' f'), At t (Block l l f' f'), At t (ProcedureHeading l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f')) => Traversable t (Declaration full λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Declaration full λ l f' (Domain t) -> m (Declaration full λ l f' f)

(Functor (Auto ConstantFold) (Declaration full l l), At (Auto ConstantFold) (Declaration full l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Declaration full l l)

Defined in Language.Modula2.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Declaration full l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Declaration full l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Declaration full λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Declaration full λ l f' p -> Declaration full λ l f' q

Foldable (Declaration full λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Declaration full λ l f' p -> m

Traversable (Declaration full λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Declaration full λ l f' p -> m (Declaration full λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Declaration full λ l f' (Compose m p) -> m (Declaration full λ l f' p)

Apply (Declaration full λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Declaration full λ l f' (p ~> q) -> Declaration full λ l f' p -> Declaration full λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Declaration full λ l f' p -> Declaration full λ l f' q -> Declaration full λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Declaration full λ l f' p -> Declaration full λ l f' q -> Declaration full λ l f' r -> Declaration full λ l f' s

Attribution (Auto ConstantFold) (Declaration full l l) Sem Placed => At (Auto ConstantFold) (Declaration full l l Sem Sem)

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Declaration full l l Sem Sem) -> Codomain (Auto ConstantFold) (Declaration full l l Sem Sem)

(Show (Export l), Show (Import l), Show (f (Type l l f' f')), Show (f (ConstExpression l l f' f')), Show (f (FormalParameters l l f' f')), Show (f (ProcedureHeading l l f' f')), Show (f (Block l l f' f')), Show (f (Block l l f' f')), Show (IdentDef l)) => Show (Declaration λ x l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Declaration λ x l f' f -> ShowS

show :: Declaration λ x l f' f -> String

showList :: [Declaration λ x l f' f] -> ShowS

(Nameable l, Pretty (IdentDef l), Pretty (Export l), Pretty (Import l), Pretty (Type l l Identity Identity), Pretty (Declaration l l Identity Identity), Pretty (Expression l l Identity Identity), Pretty (FormalParameters l l Identity Identity), Pretty (ProcedureHeading l l Identity Identity), Pretty (Block l l Identity Identity)) => Pretty (Declaration 'False Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Declaration 'False Language l Identity Identity -> Doc ann

prettyList :: [Declaration 'False Language l Identity Identity] -> Doc ann

(Nameable l, Pretty (IdentDef l), Pretty (Export l), Pretty (Import l), Pretty (Type l l Identity Identity), Pretty (Declaration l l Identity Identity), Pretty (Expression l l Identity Identity), Pretty (FormalParameters l l Identity Identity), Pretty (ProcedureHeading l l Identity Identity), Pretty (Block l l Identity Identity)) => Pretty (Declaration 'True Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Declaration 'True Language l Identity Identity -> Doc ann

prettyList :: [Declaration 'True Language l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (Declaration full λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Declaration full λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (Declaration full λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Declaration full λ l _1 _2) = SynCFMod' l (Declaration full λ l)

data Export λ

Constructors

Export Bool (NonEmpty Ident)

Instances

Data λ => Data (Export λ)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Export λ -> c (Export λ)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Export λ)

toConstr :: Export λ -> Constr

dataTypeOf :: Export λ -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Export λ))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Export λ))

gmapT :: (forall b. Data b => b -> b) -> Export λ -> Export λ

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Export λ -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Export λ -> r

gmapQ :: (forall d. Data d => d -> u) -> Export λ -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Export λ -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Export λ -> m (Export λ)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Export λ -> m (Export λ)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Export λ -> m (Export λ)

Show (Export λ)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Export λ -> ShowS

show :: Export λ -> String

showList :: [Export λ] -> ShowS

Pretty (IdentDef l) => Pretty (Export l)

Defined in Language.Modula2.Pretty

Methods

pretty :: Export l -> Doc ann

prettyList :: [Export l] -> Doc ann

data Import λ

Constructors

Import (Maybe Ident) (NonEmpty Ident)

Instances

Data λ => Data (Import λ)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Import λ -> c (Import λ)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Import λ)

toConstr :: Import λ -> Constr

dataTypeOf :: Import λ -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Import λ))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Import λ))

gmapT :: (forall b. Data b => b -> b) -> Import λ -> Import λ

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Import λ -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Import λ -> r

gmapQ :: (forall d. Data d => d -> u) -> Import λ -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Import λ -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Import λ -> m (Import λ)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Import λ -> m (Import λ)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Import λ -> m (Import λ)

Show (Import λ)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Import λ -> ShowS

show :: Import λ -> String

showList :: [Import λ] -> ShowS

Pretty (IdentDef l) => Pretty (Import l)

Defined in Language.Modula2.Pretty

Methods

pretty :: Import l -> Doc ann

prettyList :: [Import l] -> Doc ann

data Module λ l f' f

Constructors

DefinitionModule Ident [Import l] (Maybe (Export l)) (ZipList (f (Definition l l f' f')))

ImplementationModule Ident (Maybe (f (Priority l l f' f'))) [Import l] (f (Block l l f' f'))

ProgramModule Ident (Maybe (f (Priority l l f' f'))) [Import l] (f (Block l l f' f'))

Instances

(Transformation t, Functor t (Definition l l), Functor t (Priority l l), Functor t (Block l l), Functor t (Priority l l), Functor t (Block l l)) => Functor t (Module λ l)

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Module λ l (Domain t) (Domain t) -> Module λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Definition l l), Foldable t (Priority l l), Foldable t (Block l l), Foldable t (Priority l l), Foldable t (Block l l)) => Foldable t (Module λ l)

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Module λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Definition l l), Traversable t (Priority l l), Traversable t (Block l l), Traversable t (Priority l l), Traversable t (Block l l)) => Traversable t (Module λ l)

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Module λ l (Domain t) (Domain t) -> m (Module λ l f f)

(Transformation t, At t (Definition l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f')) => Functor t (Module λ l f')

Defined in Language.Modula2.AST

Methods

(<$>) :: t -> Module λ l f' (Domain t) -> Module λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Definition l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f')) => Foldable t (Module λ l f')

Defined in Language.Modula2.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Module λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Definition l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f'), At t (Priority l l f' f'), At t (Block l l f' f')) => Traversable t (Module λ l f')

Defined in Language.Modula2.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Module λ l f' (Domain t) -> m (Module λ l f' f)

Functor (Module λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Module λ l f' p -> Module λ l f' q

Foldable (Module λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Module λ l f' p -> m

Traversable (Module λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Module λ l f' p -> m (Module λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Module λ l f' (Compose m p) -> m (Module λ l f' p)

Apply (Module λ l f' :: (Type -> Type) -> Type)

Defined in Language.Modula2.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Module λ l f' (p ~> q) -> Module λ l f' p -> Module λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Module λ l f' p -> Module λ l f' q -> Module λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Module λ l f' p -> Module λ l f' q -> Module λ l f' r -> Module λ l f' s

Attribution (Auto ConstantFold) (Module l l) Sem Placed => At (Auto ConstantFold) (Module l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Modula2.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Module l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Module l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (Import l), Data (Export l), Data (f (Priority l l f' f')), Data (f (Declaration l l f' f')), Data (f (Definition l l f' f')), Data (f (Block l l f' f'))) => Data (Module λ l f' f)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Module λ l f' f -> c (Module λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Module λ l f' f)

toConstr :: Module λ l f' f -> Constr

dataTypeOf :: Module λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Module λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Module λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Module λ l f' f -> Module λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Module λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Module λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Module λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Module λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Module λ l f' f -> m (Module λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Module λ l f' f -> m (Module λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Module λ l f' f -> m (Module λ l f' f)

(Show (Import l), Show (Export l), Show (f (Priority l l f' f')), Show (f (Declaration l l f' f')), Show (f (Definition l l f' f')), Show (f (Block l l f' f'))) => Show (Module λ l f' f)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> Module λ l f' f -> ShowS

show :: Module λ l f' f -> String

showList :: [Module λ l f' f] -> ShowS

(Pretty (Priority l l Identity Identity), Pretty (Export l), Pretty (Import l), Pretty (Declaration l l Identity Identity), Pretty (Definition l l Identity Identity), Pretty (Block l l Identity Identity)) => Pretty (Module λ l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Module λ l Identity Identity -> Doc ann

prettyList :: [Module λ l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (Module λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Module λ l _1 _2) = InhCF λ

type Atts (Synthesized (Auto ConstantFold)) (Module λ l _1 _2)

Defined in Language.Modula2.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Module λ l _1 _2) = SynCFMod' l (Module λ l)

newtype IdentDef l

Constructors

IdentDef Ident

Instances

Eq (IdentDef l)

Defined in Language.Modula2.AST

Methods

(==) :: IdentDef l -> IdentDef l -> Bool

(/=) :: IdentDef l -> IdentDef l -> Bool

Data l => Data (IdentDef l)

Defined in Language.Modula2.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> IdentDef l -> c (IdentDef l)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (IdentDef l)

toConstr :: IdentDef l -> Constr

dataTypeOf :: IdentDef l -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (IdentDef l))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (IdentDef l))

gmapT :: (forall b. Data b => b -> b) -> IdentDef l -> IdentDef l

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> IdentDef l -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> IdentDef l -> r

gmapQ :: (forall d. Data d => d -> u) -> IdentDef l -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> IdentDef l -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> IdentDef l -> m (IdentDef l)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> IdentDef l -> m (IdentDef l)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> IdentDef l -> m (IdentDef l)

Ord (IdentDef l)

Defined in Language.Modula2.AST

Methods

compare :: IdentDef l -> IdentDef l -> Ordering

(<) :: IdentDef l -> IdentDef l -> Bool

(<=) :: IdentDef l -> IdentDef l -> Bool

(>) :: IdentDef l -> IdentDef l -> Bool

(>=) :: IdentDef l -> IdentDef l -> Bool

max :: IdentDef l -> IdentDef l -> IdentDef l

min :: IdentDef l -> IdentDef l -> IdentDef l

Show (IdentDef l)

Defined in Language.Modula2.AST

Methods

showsPrec :: Int -> IdentDef l -> ShowS

show :: IdentDef l -> String

showList :: [IdentDef l] -> ShowS

Pretty (IdentDef l)

Defined in Language.Modula2.Pretty

Methods

pretty :: IdentDef l -> Doc ann

prettyList :: [IdentDef l] -> Doc ann

data Language

Data type representing the Modula-2 language, as originally specified by ''Report on the Programming Language Modula-2''.

Constructors

Language

Instances

Data Language

Defined in Language.Modula2.AST

Methods

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

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

toConstr :: Language -> Constr

dataTypeOf :: Language -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Language)

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

gmapT :: (forall b. Data b => b -> b) -> Language -> Language

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

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

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

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

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

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

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

Wirthy Language

Defined in Language.Modula2.AST

Associated Types

type Module Language = (m :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Declaration Language = (d :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Type Language = (t :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Statement Language = (s :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Expression Language = (e :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Designator Language = (d :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Value Language = (v :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type FieldList Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type ProcedureHeading Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type FormalParameters Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type FPSection Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Block Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type StatementSequence Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Case Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type CaseLabels Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type ConditionalBranch Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Element Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Import Language = (x :: Type)

type IdentDef Language = (x :: Type)

type QualIdent Language = (x :: Type)

Methods

constantDeclaration :: forall l' f (f' :: Type -> Type). IdentDef l' -> f (ConstExpression l' l' f' f') -> Declaration Language l' f' f

typeDeclaration :: forall l' f (f' :: Type -> Type). IdentDef l' -> f (Type l' l' f' f') -> Declaration Language l' f' f

variableDeclaration :: forall l' f (f' :: Type -> Type). IdentList l' -> f (Type l' l' f' f') -> Declaration Language l' f' f

procedureDeclaration :: forall f l' (f' :: Type -> Type). f (ProcedureHeading l' l' f' f') -> f (Block l' l' f' f') -> Declaration Language l' f' f

formalParameters :: forall f l' (f' :: Type -> Type). [f (FPSection l' l' f' f')] -> Maybe (ReturnType l') -> FormalParameters Language l' f' f

fpSection :: forall f l' (f' :: Type -> Type). Bool -> [Ident] -> f (Type l' l' f' f') -> FPSection Language l' f' f

block :: forall f l' (f' :: Type -> Type). [f (Declaration l' l' f' f')] -> Maybe (f (StatementSequence l' l' f' f')) -> Block Language l' f' f

fieldList :: forall l' f (f' :: Type -> Type). NonEmpty (IdentDef l') -> f (Type l' l' f' f') -> FieldList Language l' f' f

pointerType :: forall f l' (f' :: Type -> Type). f (Type l' l' f' f') -> Type Language l' f' f

procedureType :: forall f l' (f' :: Type -> Type). Maybe (f (FormalParameters l' l' f' f')) -> Type Language l' f' f

typeReference :: forall l' (f' :: Type -> Type) (f :: Type -> Type). QualIdent l' -> Type Language l' f' f

assignment :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> f (Expression l' l' f' f') -> Statement Language l' f' f

caseStatement :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> [f (Case l' l' f' f')] -> Maybe (f (StatementSequence l' l' f' f')) -> Statement Language l' f' f

emptyStatement :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Statement Language l' f' f

exitStatement :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Statement Language l' f' f

ifStatement :: forall f l' (f' :: Type -> Type). NonEmpty (f (ConditionalBranch l' l' f' f')) -> Maybe (f (StatementSequence l' l' f' f')) -> Statement Language l' f' f

loopStatement :: forall f l' (f' :: Type -> Type). f (StatementSequence l' l' f' f') -> Statement Language l' f' f

procedureCall :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> Maybe [f (Expression l' l' f' f')] -> Statement Language l' f' f

repeatStatement :: forall f l' (f' :: Type -> Type). f (StatementSequence l' l' f' f') -> f (Expression l' l' f' f') -> Statement Language l' f' f

returnStatement :: forall f l' (f' :: Type -> Type). Maybe (f (Expression l' l' f' f')) -> Statement Language l' f' f

whileStatement :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (StatementSequence l' l' f' f') -> Statement Language l' f' f

conditionalBranch :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (StatementSequence l' l' f' f') -> ConditionalBranch Language l' f' f

caseAlternative :: forall f l' (f' :: Type -> Type). NonEmpty (f (CaseLabels l' l' f' f')) -> f (StatementSequence l' l' f' f') -> Case Language l' f' f

singleLabel :: forall f l' (f' :: Type -> Type). f (ConstExpression l' l' f' f') -> CaseLabels Language l' f' f

labelRange :: forall f l' (f' :: Type -> Type). f (ConstExpression l' l' f' f') -> f (ConstExpression l' l' f' f') -> CaseLabels Language l' f' f

statementSequence :: forall f l' (f' :: Type -> Type). [f (Statement l' l' f' f')] -> StatementSequence Language l' f' f

add :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

subtract :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

and :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

or :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

divide :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

integerDivide :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

modulo :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

multiply :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

functionCall :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> [f (Expression l' l' f' f')] -> Expression Language l' f' f

literal :: forall f l' (f' :: Type -> Type). f (Value l' l' f' f') -> Expression Language l' f' f

negative :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> Expression Language l' f' f

positive :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> Expression Language l' f' f

not :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> Expression Language l' f' f

read :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> Expression Language l' f' f

relation :: forall f l' (f' :: Type -> Type). RelOp -> f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Expression Language l' f' f

element :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> Element Language l' f' f

range :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Element Language l' f' f

integer :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Integer -> Value Language l' f' f

nil :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Value Language l' f' f

false :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Value Language l' f' f

true :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Value Language l' f' f

real :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Double -> Value Language l' f' f

string :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Text -> Value Language l' f' f

charCode :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Int -> Value Language l' f' f

builtin :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Text -> Value Language l' f' f

variable :: forall l' (f' :: Type -> Type) (f :: Type -> Type). QualIdent l' -> Designator Language l' f' f

field :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> Ident -> Designator Language l' f' f

index :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> NonEmpty (f (Expression l' l' f' f')) -> Designator Language l' f' f

dereference :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> Designator Language l' f' f

identDef :: Ident -> IdentDef Language

nonQualIdent :: Ident -> QualIdent Language

CoWirthy Language

Defined in Language.Modula2.AST

Associated Types

type TargetClass Language :: Type -> Constraint

Methods

coDeclaration :: forall l' l'' (f' :: Type -> Type) (f :: Type -> Type). TargetClass Language l' => Declaration Language l'' f' f -> Declaration l' l'' f' f

coType :: forall l' l'' (f' :: Type -> Type) (f :: Type -> Type). TargetClass Language l' => Type Language l'' f' f -> Type l' l'' f' f

coStatement :: forall l' l'' (f' :: Type -> Type) (f :: Type -> Type). TargetClass Language l' => Statement Language l'' f' f -> Statement l' l'' f' f

coExpression :: forall l' l'' (f' :: Type -> Type) (f :: Type -> Type). TargetClass Language l' => Expression Language l'' f' f -> Expression l' l'' f' f

coDesignator :: forall l' l'' (f' :: Type -> Type) (f :: Type -> Type). TargetClass Language l' => Designator Language l'' f' f -> Designator l' l'' f' f

coValue :: forall l' l'' (f' :: Type -> Type) (f :: Type -> Type). TargetClass Language l' => Value Language l'' f' f -> Value l' l'' f' f

Nameable Language

Defined in Language.Modula2.AST

Methods

getProcedureName :: forall l' (f' :: Type -> Type) (f :: Type -> Type). Nameable l' => ProcedureHeading Language l' f' f -> Ident

getIdentDefName :: IdentDef Language -> Ident

getNonQualIdentName :: QualIdent Language -> Maybe Ident

Oberon Language

Defined in Language.Modula2.Pretty

Associated Types

type WithAlternative Language = (x :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

Methods

moduleUnit :: forall f l' (f' :: Type -> Type). Ident -> [Import Language] -> f (Block l' l' f' f') -> Module Language l' f' f

moduleImport :: Maybe Ident -> Ident -> Import Language

qualIdent :: Ident -> Ident -> QualIdent Language

getQualIdentNames :: QualIdent Language -> Maybe (Ident, Ident)

exported :: Ident -> IdentDef Language

forwardDeclaration :: forall l' f (f' :: Type -> Type). IdentDef l' -> Maybe (f (FormalParameters l' l' f' f')) -> Declaration Language l' f' f

procedureHeading :: forall l' f (f' :: Type -> Type). Bool -> IdentDef l' -> Maybe (f (FormalParameters l' l' f' f')) -> ProcedureHeading Language l' f' f

arrayType :: forall f l' (f' :: Type -> Type). [f (ConstExpression l' l' f' f')] -> f (Type l' l' f' f') -> Type Language l' f' f

recordType :: forall l' f (f' :: Type -> Type). Maybe (BaseType l') -> [f (FieldList l' l' f' f')] -> Type Language l' f' f

withStatement :: forall f l' (f' :: Type -> Type). f (WithAlternative l' l' f' f') -> Statement Language l' f' f

withAlternative :: forall l' f (f' :: Type -> Type). QualIdent l' -> QualIdent l' -> f (StatementSequence l' l' f' f') -> WithAlternative Language l' f' f

is :: forall f l' (f' :: Type -> Type). f (Expression l' l' f' f') -> QualIdent l' -> Expression Language l' f' f

set :: forall f l' (f' :: Type -> Type). [f (Element l' l' f' f')] -> Expression Language l' f' f

typeGuard :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> QualIdent l' -> Designator Language l' f' f

Modula2 Language

Defined in Language.Modula2.AST

Associated Types

type Export Language = (x :: Type)

type Definition Language = (d :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

type Variant Language = (v :: Type -> (Type -> Type) -> (Type -> Type) -> Type)

Methods

definitionModule :: forall l' f (f' :: Type -> Type). Ident -> [Import l'] -> Maybe (Export l') -> [f (Definition l' l' f' f')] -> Module Language l' f' f

implementationModule :: forall f l' (f' :: Type -> Type). Ident -> Maybe (f (Priority l' l' f' f')) -> [Import l'] -> f (Block l' l' f' f') -> Module Language l' f' f

programModule :: forall f l' (f' :: Type -> Type). Ident -> Maybe (f (Priority l' l' f' f')) -> [Import l'] -> f (Block l' l' f' f') -> Module Language l' f' f

moduleExport :: Bool -> NonEmpty Ident -> Export Language

moduleImport :: Maybe Ident -> NonEmpty Ident -> Import Language

constantDefinition :: forall l' f (f' :: Type -> Type). IdentDef l' -> f (ConstExpression l' l' f' f') -> Definition Language l' f' f

typeDefinition :: forall l' f (f' :: Type -> Type). IdentDef l' -> Maybe (f (Type l' l' f' f')) -> Definition Language l' f' f

variableDefinition :: forall l' f (f' :: Type -> Type). IdentList l' -> f (Type l' l' f' f') -> Definition Language l' f' f

procedureDefinition :: forall f l' (f' :: Type -> Type). f (ProcedureHeading l' l' f' f') -> Definition Language l' f' f

moduleDeclaration :: forall f l' (f' :: Type -> Type). Ident -> Maybe (f (Priority l' l' f' f')) -> [Import l'] -> Maybe (Export l') -> f (Block l' l' f' f') -> Declaration Language l' f' f

procedureHeading :: forall f l' (f' :: Type -> Type). Ident -> Maybe (f (FormalParameters l' l' f' f')) -> ProcedureHeading Language l' f' f

caseFieldList :: forall l' f (f' :: Type -> Type). Maybe Ident -> QualIdent l' -> NonEmpty (f (Variant l' l' f' f')) -> [f (FieldList l' l' f' f')] -> FieldList Language l' f' f

variant :: forall f l' (f' :: Type -> Type). NonEmpty (f (CaseLabels l' l' f' f')) -> [f (FieldList l' l' f' f')] -> Variant Language l' f' f

enumeration :: forall l' (f' :: Type -> Type) (f :: Type -> Type). IdentList l' -> Type Language l' f' f

subRange :: forall l' f (f' :: Type -> Type). Maybe (QualIdent l') -> f (ConstExpression l' l' f' f') -> f (ConstExpression l' l' f' f') -> Type Language l' f' f

arrayType :: forall f l' (f' :: Type -> Type). [f (Type l' l' f' f')] -> f (Type l' l' f' f') -> Type Language l' f' f

setType :: forall f l' (f' :: Type -> Type). f (Type l' l' f' f') -> Type Language l' f' f

recordType :: forall f l' (f' :: Type -> Type). [f (FieldList l' l' f' f')] -> Type Language l' f' f

withStatement :: forall f l' (f' :: Type -> Type). f (Designator l' l' f' f') -> f (StatementSequence l' l' f' f') -> Statement Language l' f' f

forStatement :: forall f l' (f' :: Type -> Type). Ident -> f (Expression l' l' f' f') -> f (Expression l' l' f' f') -> Maybe (f (Expression l' l' f' f')) -> f (StatementSequence l' l' f' f') -> Statement Language l' f' f

set :: forall l' f (f' :: Type -> Type). Maybe (QualIdent l') -> [f (Element l' l' f' f')] -> Expression Language l' f' f

qualIdent :: [Ident] -> Ident -> QualIdent Language

(Pretty (Precedence (Expression l l Identity Identity)), Pretty (Value l l Identity Identity), Pretty (Expression l l Identity Identity), Pretty (Element l l Identity Identity), Pretty (Designator l l Identity Identity), Pretty (QualIdent l)) => Pretty (Precedence (Expression Language l Identity Identity))

Defined in Language.Modula2.Pretty

Methods

pretty :: Precedence (Expression Language l Identity Identity) -> Doc ann

prettyList :: [Precedence (Expression Language l Identity Identity)] -> Doc ann

Pretty (Value l l Identity Identity) => Pretty (Value Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Value Language l Identity Identity -> Doc ann

prettyList :: [Value Language l Identity Identity] -> Doc ann

(Pretty (ConstExpression l l Identity Identity), Pretty (Designator l l Identity Identity), Pretty (Case l l Identity Identity), Pretty (ConditionalBranch l l Identity Identity), Pretty (WithAlternative l l Identity Identity), Pretty (StatementSequence l l Identity Identity)) => Pretty (Statement Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Statement Language l Identity Identity -> Doc ann

prettyList :: [Statement Language l Identity Identity] -> Doc ann

(Pretty (IdentDef l), Pretty (QualIdent l), Pretty (Type l l Identity Identity), Pretty (Value l l Identity Identity), Pretty (FieldList l l Identity Identity), Pretty (Variant l l Identity Identity)) => Pretty (FieldList Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: FieldList Language l Identity Identity -> Doc ann

prettyList :: [FieldList Language l Identity Identity] -> Doc ann

(Pretty (IdentDef l), Pretty (FormalParameters l l Identity Identity), Pretty (FieldList l l Identity Identity), Pretty (ConstExpression l l Identity Identity), Pretty (Type l l Identity Identity), Pretty (BaseType l)) => Pretty (Type Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Type Language l Identity Identity -> Doc ann

prettyList :: [Type Language l Identity Identity] -> Doc ann

(Pretty (QualIdent l), Pretty (Designator l l Identity Identity), Pretty (Expression l l Identity Identity)) => Pretty (Designator Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Designator Language l Identity Identity -> Doc ann

prettyList :: [Designator Language l Identity Identity] -> Doc ann

(Pretty (Precedence (Expression l l Identity Identity)), Pretty (Value l l Identity Identity), Pretty (Expression l l Identity Identity), Pretty (Element l l Identity Identity), Pretty (Designator l l Identity Identity), Pretty (QualIdent l)) => Pretty (Expression Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Expression Language l Identity Identity -> Doc ann

prettyList :: [Expression Language l Identity Identity] -> Doc ann

(Nameable l, Pretty (IdentDef l), Pretty (Export l), Pretty (Import l), Pretty (Type l l Identity Identity), Pretty (Declaration l l Identity Identity), Pretty (Expression l l Identity Identity), Pretty (FormalParameters l l Identity Identity), Pretty (ProcedureHeading l l Identity Identity), Pretty (Block l l Identity Identity)) => Pretty (Declaration 'False Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Declaration 'False Language l Identity Identity -> Doc ann

prettyList :: [Declaration 'False Language l Identity Identity] -> Doc ann

(Nameable l, Pretty (IdentDef l), Pretty (Export l), Pretty (Import l), Pretty (Type l l Identity Identity), Pretty (Declaration l l Identity Identity), Pretty (Expression l l Identity Identity), Pretty (FormalParameters l l Identity Identity), Pretty (ProcedureHeading l l Identity Identity), Pretty (Block l l Identity Identity)) => Pretty (Declaration 'True Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Declaration 'True Language l Identity Identity -> Doc ann

prettyList :: [Declaration 'True Language l Identity Identity] -> Doc ann

type QualIdent Language

Defined in Language.Modula2.AST

type QualIdent Language = QualIdent Language

type IdentDef Language

Defined in Language.Modula2.AST

type IdentDef Language = IdentDef Language

type Import Language

Defined in Language.Modula2.AST

type Import Language = Import Language

type Element Language

Defined in Language.Modula2.AST

type Element Language = Element Language

type ConditionalBranch Language

Defined in Language.Modula2.AST

type ConditionalBranch Language = ConditionalBranch Language

type CaseLabels Language

Defined in Language.Modula2.AST

type CaseLabels Language = CaseLabels Language

type Case Language

Defined in Language.Modula2.AST

type Case Language = Case Language

type StatementSequence Language

Defined in Language.Modula2.AST

type StatementSequence Language = StatementSequence Language

type Block Language

Defined in Language.Modula2.AST

type Block Language = Block Language

type FPSection Language

Defined in Language.Modula2.AST

type FPSection Language = FPSection Language

type FormalParameters Language

Defined in Language.Modula2.AST

type FormalParameters Language = FormalParameters Language

type ProcedureHeading Language

Defined in Language.Modula2.AST

type ProcedureHeading Language = ProcedureHeading Language

type FieldList Language

Defined in Language.Modula2.AST

type FieldList Language = FieldList Language

type Value Language

Defined in Language.Modula2.AST

type Value Language = Value Language

type Designator Language

Defined in Language.Modula2.AST

type Designator Language = Designator Language

type Expression Language

Defined in Language.Modula2.AST

type Expression Language = Expression Language

type Statement Language

Defined in Language.Modula2.AST

type Statement Language = Statement Language

type Type Language

Defined in Language.Modula2.AST

type Type Language = Type Language

type Declaration Language

Defined in Language.Modula2.AST

type Declaration Language = Declaration 'True Language

type Module Language

Defined in Language.Modula2.AST

type Module Language = Module Language

type TargetClass Language

Defined in Language.Modula2.AST

type TargetClass Language = Modula2

type WithAlternative Language

Defined in Language.Modula2.Pretty

type WithAlternative Language = WithAlternative Language

type Export Language

Defined in Language.Modula2.AST

type Export Language = Export Language

type Definition Language

Defined in Language.Modula2.AST

type Definition Language = Declaration 'False Language

type Variant Language

Defined in Language.Modula2.AST

type Variant Language = Variant Language

type Ident = Text

data Value λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

Boolean Bool

Builtin Text

CharCode Int

Integer Integer

Nil

Real Double

String Text

Instances

Transformation t => Functor t (Value λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> Value λ l (Domain t) (Domain t) -> Value λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m) => Foldable t (Value λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Value λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m) => Traversable t (Value λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Value λ l (Domain t) (Domain t) -> m (Value λ l f f)

Transformation t => Functor t (Value λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> Value λ l f' (Domain t) -> Value λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m) => Foldable t (Value λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Value λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m) => Traversable t (Value λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Value λ l f' (Domain t) -> m (Value λ l f' f)

Functor (Auto ConstantFold) (Value l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Value l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Value l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Value λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Value λ l f' p -> Value λ l f' q

Foldable (Value λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Value λ l f' p -> m

Traversable (Value λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Value λ l f' p -> m (Value λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Value λ l f' (Compose m p) -> m (Value λ l f' p)

Apply (Value λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Value λ l f' (p ~> q) -> Value λ l f' p -> Value λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Value λ l f' p -> Value λ l f' q -> Value λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Value λ l f' p -> Value λ l f' q -> Value λ l f' r -> Value λ l f' s

Eq (Value λ l f' f)

Defined in Language.Oberon.AST

Methods

(==) :: Value λ l f' f -> Value λ l f' f -> Bool

(/=) :: Value λ l f' f -> Value λ l f' f -> Bool

(Typeable λ, Typeable l, Typeable f, Typeable f') => Data (Value λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Value λ l f' f -> c (Value λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Value λ l f' f)

toConstr :: Value λ l f' f -> Constr

dataTypeOf :: Value λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Value λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Value λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Value λ l f' f -> Value λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Value λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Value λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Value λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Value λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Value λ l f' f -> m (Value λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Value λ l f' f -> m (Value λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Value λ l f' f -> m (Value λ l f' f)

Show (Value λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> Value λ l f' f -> ShowS

show :: Value λ l f' f -> String

showList :: [Value λ l f' f] -> ShowS

Pretty (Value l l Identity Identity) => Pretty (Value Language l Identity Identity)

Defined in Language.Modula2.Pretty

Methods

pretty :: Value Language l Identity Identity -> Doc ann

prettyList :: [Value Language l Identity Identity] -> Doc ann

Pretty (Value l l Identity Identity) => Pretty (Value Language l Identity Identity)

Defined in Language.Modula2.ISO.Pretty

Methods

pretty :: Value Language l Identity Identity -> Doc ann

prettyList :: [Value Language l Identity Identity] -> Doc ann

type Atts (Inherited (Auto ConstantFold)) (Value l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Value l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (Value l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Value l l _1 _2) = SynCF' (Value l l)

data Element λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

Element (f (Expression l l f' f'))

Range (f (Expression l l f' f')) (f (Expression l l f' f'))

Instances

(Transformation t, Functor t (Expression l l), Functor t (Expression l l), Functor t (Expression l l)) => Functor t (Element λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> Element λ l (Domain t) (Domain t) -> Element λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Expression l l), Foldable t (Expression l l), Foldable t (Expression l l)) => Foldable t (Element λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Element λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Expression l l), Traversable t (Expression l l), Traversable t (Expression l l)) => Traversable t (Element λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Element λ l (Domain t) (Domain t) -> m (Element λ l f f)

(Transformation t, At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f')) => Functor t (Element λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> Element λ l f' (Domain t) -> Element λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f')) => Foldable t (Element λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Element λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Expression l l f' f'), At t (Expression l l f' f'), At t (Expression l l f' f')) => Traversable t (Element λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Element λ l f' (Domain t) -> m (Element λ l f' f)

(Functor (Auto ConstantFold) (Element l l), At (Auto ConstantFold) (Element l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Element l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Element l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Element l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Element λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Element λ l f' p -> Element λ l f' q

Foldable (Element λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Element λ l f' p -> m

Traversable (Element λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Element λ l f' p -> m (Element λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Element λ l f' (Compose m p) -> m (Element λ l f' p)

Apply (Element λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Element λ l f' (p ~> q) -> Element λ l f' p -> Element λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Element λ l f' p -> Element λ l f' q -> Element λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Element λ l f' p -> Element λ l f' q -> Element λ l f' r -> Element λ l f' s

Attribution (Auto ConstantFold) (Element l l) Sem Placed => At (Auto ConstantFold) (Element l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Oberon.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Element l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Element l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Eq (f (Expression l l f' f')) => Eq (Element λ l f' f)

Defined in Language.Oberon.AST

Methods

(==) :: Element λ l f' f -> Element λ l f' f -> Bool

(/=) :: Element λ l f' f -> Element λ l f' f -> Bool

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (Expression l l f' f'))) => Data (Element λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Element λ l f' f -> c (Element λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Element λ l f' f)

toConstr :: Element λ l f' f -> Constr

dataTypeOf :: Element λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Element λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Element λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Element λ l f' f -> Element λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Element λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Element λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Element λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Element λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Element λ l f' f -> m (Element λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Element λ l f' f -> m (Element λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Element λ l f' f -> m (Element λ l f' f)

Show (f (Expression l l f' f')) => Show (Element λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> Element λ l f' f -> ShowS

show :: Element λ l f' f -> String

showList :: [Element λ l f' f] -> ShowS

type Atts (Inherited (Auto ConstantFold)) (Element l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Element l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (Element l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Element l l _1 _2) = SynCF' (Element l l)

data FormalParameters λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

FormalParameters (ZipList (f (FPSection l l f' f'))) (Maybe (ReturnType l))

Instances

(Transformation t, Functor t (FPSection l l)) => Functor t (FormalParameters λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> FormalParameters λ l (Domain t) (Domain t) -> FormalParameters λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (FPSection l l)) => Foldable t (FormalParameters λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> FormalParameters λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (FPSection l l)) => Traversable t (FormalParameters λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> FormalParameters λ l (Domain t) (Domain t) -> m (FormalParameters λ l f f)

(Transformation t, At t (FPSection l l f' f')) => Functor t (FormalParameters λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> FormalParameters λ l f' (Domain t) -> FormalParameters λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (FPSection l l f' f')) => Foldable t (FormalParameters λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> FormalParameters λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (FPSection l l f' f')) => Traversable t (FormalParameters λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> FormalParameters λ l f' (Domain t) -> m (FormalParameters λ l f' f)

(Functor (Auto ConstantFold) (FormalParameters l l), At (Auto ConstantFold) (FormalParameters l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (FormalParameters l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (FormalParameters l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (FormalParameters l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (FormalParameters λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> FormalParameters λ l f' p -> FormalParameters λ l f' q

Foldable (FormalParameters λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> FormalParameters λ l f' p -> m

Traversable (FormalParameters λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> FormalParameters λ l f' p -> m (FormalParameters λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => FormalParameters λ l f' (Compose m p) -> m (FormalParameters λ l f' p)

Apply (FormalParameters λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). FormalParameters λ l f' (p ~> q) -> FormalParameters λ l f' p -> FormalParameters λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> FormalParameters λ l f' p -> FormalParameters λ l f' q -> FormalParameters λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> FormalParameters λ l f' p -> FormalParameters λ l f' q -> FormalParameters λ l f' r -> FormalParameters λ l f' s

Attribution (Auto ConstantFold) (FormalParameters l l) Sem Placed => At (Auto ConstantFold) (FormalParameters l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Oberon.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (FormalParameters l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (FormalParameters l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (ReturnType l), Data (f (FPSection l l f' f')), Data (f (Expression l l f' f'))) => Data (FormalParameters λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> FormalParameters λ l f' f -> c (FormalParameters λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (FormalParameters λ l f' f)

toConstr :: FormalParameters λ l f' f -> Constr

dataTypeOf :: FormalParameters λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (FormalParameters λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (FormalParameters λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> FormalParameters λ l f' f -> FormalParameters λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> FormalParameters λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> FormalParameters λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> FormalParameters λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> FormalParameters λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> FormalParameters λ l f' f -> m (FormalParameters λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> FormalParameters λ l f' f -> m (FormalParameters λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> FormalParameters λ l f' f -> m (FormalParameters λ l f' f)

(Show (f (FPSection l l f' f')), Show (ReturnType l), Show (f (Expression l l f' f'))) => Show (FormalParameters λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> FormalParameters λ l f' f -> ShowS

show :: FormalParameters λ l f' f -> String

showList :: [FormalParameters λ l f' f] -> ShowS

type Atts (Inherited (Auto ConstantFold)) (FormalParameters l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (FormalParameters l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (FormalParameters l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (FormalParameters l l _1 _2) = SynCF' (FormalParameters l l)

data FPSection λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

FPSection Bool [Ident] (f (Type l l f' f'))

Instances

(Transformation t, Functor t (Type l l)) => Functor t (FPSection λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> FPSection λ l (Domain t) (Domain t) -> FPSection λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Type l l)) => Foldable t (FPSection λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> FPSection λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Type l l)) => Traversable t (FPSection λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> FPSection λ l (Domain t) (Domain t) -> m (FPSection λ l f f)

(Transformation t, At t (Type l l f' f')) => Functor t (FPSection λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> FPSection λ l f' (Domain t) -> FPSection λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Type l l f' f')) => Foldable t (FPSection λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> FPSection λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Type l l f' f')) => Traversable t (FPSection λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> FPSection λ l f' (Domain t) -> m (FPSection λ l f' f)

(Functor (Auto ConstantFold) (FPSection l l), At (Auto ConstantFold) (FPSection l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (FPSection l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (FPSection l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (FPSection l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (FPSection λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> FPSection λ l f' p -> FPSection λ l f' q

Foldable (FPSection λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> FPSection λ l f' p -> m

Traversable (FPSection λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> FPSection λ l f' p -> m (FPSection λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => FPSection λ l f' (Compose m p) -> m (FPSection λ l f' p)

Apply (FPSection λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). FPSection λ l f' (p ~> q) -> FPSection λ l f' p -> FPSection λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> FPSection λ l f' p -> FPSection λ l f' q -> FPSection λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> FPSection λ l f' p -> FPSection λ l f' q -> FPSection λ l f' r -> FPSection λ l f' s

Attribution (Auto ConstantFold) (FPSection l l) Sem Placed => At (Auto ConstantFold) (FPSection l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Oberon.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (FPSection l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (FPSection l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (Type l l f' f')), Data (f (Expression l l f' f'))) => Data (FPSection λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> FPSection λ l f' f -> c (FPSection λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (FPSection λ l f' f)

toConstr :: FPSection λ l f' f -> Constr

dataTypeOf :: FPSection λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (FPSection λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (FPSection λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> FPSection λ l f' f -> FPSection λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> FPSection λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> FPSection λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> FPSection λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> FPSection λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> FPSection λ l f' f -> m (FPSection λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> FPSection λ l f' f -> m (FPSection λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> FPSection λ l f' f -> m (FPSection λ l f' f)

(Show (f (Type l l f' f')), Show (f (Expression l l f' f'))) => Show (FPSection λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> FPSection λ l f' f -> ShowS

show :: FPSection λ l f' f -> String

showList :: [FPSection λ l f' f] -> ShowS

type Atts (Inherited (Auto ConstantFold)) (FPSection l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (FPSection l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (FPSection l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (FPSection l l _1 _2) = SynCF' (FPSection l l)

data Block λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

Block (ZipList (f (Declaration l l f' f'))) (Maybe (f (StatementSequence l l f' f')))

Instances

(Transformation t, Functor t (Declaration l l), Functor t (StatementSequence l l)) => Functor t (Block λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> Block λ l (Domain t) (Domain t) -> Block λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Declaration l l), Foldable t (StatementSequence l l)) => Foldable t (Block λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Block λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Declaration l l), Traversable t (StatementSequence l l)) => Traversable t (Block λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Block λ l (Domain t) (Domain t) -> m (Block λ l f f)

(Nameable l, k ~ QualIdent l, v ~ Value l l Placed Placed, Ord k, Atts (Synthesized (Auto ConstantFold)) (Declaration l l Sem Sem) ~ SynCFMod' l (Declaration l l)) => SynthesizedField "moduleEnv" (Map k (Maybe v)) (Auto ConstantFold) (Block l l) Sem Placed

Defined in Language.Oberon.ConstantFolder

Methods

synthesizedField :: forall (sem :: Type -> Type). sem ~ Semantics (Auto ConstantFold) => Proxy "moduleEnv" -> Auto ConstantFold -> Placed (Block l l Sem Sem) -> Atts (Inherited (Auto ConstantFold)) (Block l l sem sem) -> Block l l sem (Synthesized (Auto ConstantFold)) -> Map k (Maybe v)

(Transformation t, At t (Declaration l l f' f'), At t (StatementSequence l l f' f')) => Functor t (Block λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> Block λ l f' (Domain t) -> Block λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Declaration l l f' f'), At t (StatementSequence l l f' f')) => Foldable t (Block λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Block λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Declaration l l f' f'), At t (StatementSequence l l f' f')) => Traversable t (Block λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Block λ l f' (Domain t) -> m (Block λ l f' f)

(Functor (Auto ConstantFold) (Block l l), At (Auto ConstantFold) (Block l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Block l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Block l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Block l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

(Nameable l, Ord (QualIdent l), Atts (Synthesized (Auto ConstantFold)) (Declaration l l Sem Sem) ~ SynCFMod' l (Declaration l l), Atts (Inherited (Auto ConstantFold)) (StatementSequence l l Sem Sem) ~ InhCF l, Atts (Inherited (Auto ConstantFold)) (Declaration l l Sem Sem) ~ InhCF l) => Bequether (Auto ConstantFold) (Block l l) Sem Placed

Defined in Language.Oberon.ConstantFolder

Methods

bequest :: forall (sem :: Type -> Type). sem ~ Semantics (Auto ConstantFold) => Auto ConstantFold -> Placed (Block l l Sem Sem) -> Atts (Inherited (Auto ConstantFold)) (Block l l sem sem) -> Block l l sem (Synthesized (Auto ConstantFold)) -> Block l l sem (Inherited (Auto ConstantFold))

Functor (Block λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Block λ l f' p -> Block λ l f' q

Foldable (Block λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Block λ l f' p -> m

Traversable (Block λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Block λ l f' p -> m (Block λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Block λ l f' (Compose m p) -> m (Block λ l f' p)

Apply (Block λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Block λ l f' (p ~> q) -> Block λ l f' p -> Block λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Block λ l f' p -> Block λ l f' q -> Block λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Block λ l f' p -> Block λ l f' q -> Block λ l f' r -> Block λ l f' s

Attribution (Auto ConstantFold) (Block l l) Sem Placed => At (Auto ConstantFold) (Block l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Oberon.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Block l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Block l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (Declaration l l f' f')), Data (f (Designator l l f' f')), Data (f (Expression l l f' f')), Data (f (StatementSequence l l f' f'))) => Data (Block λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Block λ l f' f -> c (Block λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Block λ l f' f)

toConstr :: Block λ l f' f -> Constr

dataTypeOf :: Block λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Block λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Block λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Block λ l f' f -> Block λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Block λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Block λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Block λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Block λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Block λ l f' f -> m (Block λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Block λ l f' f -> m (Block λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Block λ l f' f -> m (Block λ l f' f)

(Show (f (Declaration l l f' f')), Show (f (Designator l l f' f')), Show (f (Expression l l f' f')), Show (f (StatementSequence l l f' f'))) => Show (Block λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> Block λ l f' f -> ShowS

show :: Block λ l f' f -> String

showList :: [Block λ l f' f] -> ShowS

type Atts (Inherited (Auto ConstantFold)) (Block l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Block l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (Block l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Block l l _1 _2) = SynCFMod' l (Block l l)

newtype StatementSequence λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

StatementSequence (ZipList (f (Statement l l f' f')))

Instances

(Transformation t, Functor t (Statement l l)) => Functor t (StatementSequence λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> StatementSequence λ l (Domain t) (Domain t) -> StatementSequence λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Statement l l)) => Foldable t (StatementSequence λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> StatementSequence λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Statement l l)) => Traversable t (StatementSequence λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> StatementSequence λ l (Domain t) (Domain t) -> m (StatementSequence λ l f f)

(Transformation t, At t (Statement l l f' f')) => Functor t (StatementSequence λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> StatementSequence λ l f' (Domain t) -> StatementSequence λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Statement l l f' f')) => Foldable t (StatementSequence λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> StatementSequence λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Statement l l f' f')) => Traversable t (StatementSequence λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> StatementSequence λ l f' (Domain t) -> m (StatementSequence λ l f' f)

(Functor (Auto ConstantFold) (StatementSequence l l), At (Auto ConstantFold) (StatementSequence l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (StatementSequence l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (StatementSequence l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (StatementSequence l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (StatementSequence λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> StatementSequence λ l f' p -> StatementSequence λ l f' q

Foldable (StatementSequence λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> StatementSequence λ l f' p -> m

Traversable (StatementSequence λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> StatementSequence λ l f' p -> m (StatementSequence λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => StatementSequence λ l f' (Compose m p) -> m (StatementSequence λ l f' p)

Apply (StatementSequence λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). StatementSequence λ l f' (p ~> q) -> StatementSequence λ l f' p -> StatementSequence λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> StatementSequence λ l f' p -> StatementSequence λ l f' q -> StatementSequence λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> StatementSequence λ l f' p -> StatementSequence λ l f' q -> StatementSequence λ l f' r -> StatementSequence λ l f' s

Attribution (Auto ConstantFold) (StatementSequence l l) Sem Placed => At (Auto ConstantFold) (StatementSequence l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Oberon.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (StatementSequence l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (StatementSequence l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (Statement l l f' f'))) => Data (StatementSequence λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> StatementSequence λ l f' f -> c (StatementSequence λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (StatementSequence λ l f' f)

toConstr :: StatementSequence λ l f' f -> Constr

dataTypeOf :: StatementSequence λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (StatementSequence λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (StatementSequence λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> StatementSequence λ l f' f -> StatementSequence λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> StatementSequence λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> StatementSequence λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> StatementSequence λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> StatementSequence λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> StatementSequence λ l f' f -> m (StatementSequence λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> StatementSequence λ l f' f -> m (StatementSequence λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> StatementSequence λ l f' f -> m (StatementSequence λ l f' f)

Show (f (Statement l l f' f')) => Show (StatementSequence λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> StatementSequence λ l f' f -> ShowS

show :: StatementSequence λ l f' f -> String

showList :: [StatementSequence λ l f' f] -> ShowS

type Atts (Inherited (Auto ConstantFold)) (StatementSequence l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (StatementSequence l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (StatementSequence l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (StatementSequence l l _1 _2) = SynCF' (StatementSequence l l)

data Case λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

Case (f (CaseLabels l l f' f')) (ZipList (f (CaseLabels l l f' f'))) (f (StatementSequence l l f' f'))

Instances

(Transformation t, Functor t (CaseLabels l l), Functor t (CaseLabels l l), Functor t (StatementSequence l l)) => Functor t (Case λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> Case λ l (Domain t) (Domain t) -> Case λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (CaseLabels l l), Foldable t (CaseLabels l l), Foldable t (StatementSequence l l)) => Foldable t (Case λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Case λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (CaseLabels l l), Traversable t (CaseLabels l l), Traversable t (StatementSequence l l)) => Traversable t (Case λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Case λ l (Domain t) (Domain t) -> m (Case λ l f f)

(Transformation t, At t (CaseLabels l l f' f'), At t (CaseLabels l l f' f'), At t (StatementSequence l l f' f')) => Functor t (Case λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> Case λ l f' (Domain t) -> Case λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (CaseLabels l l f' f'), At t (CaseLabels l l f' f'), At t (StatementSequence l l f' f')) => Foldable t (Case λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> Case λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (CaseLabels l l f' f'), At t (CaseLabels l l f' f'), At t (StatementSequence l l f' f')) => Traversable t (Case λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> Case λ l f' (Domain t) -> m (Case λ l f' f)

(Functor (Auto ConstantFold) (Case l l), At (Auto ConstantFold) (Case l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (Case l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Case l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Case l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (Case λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> Case λ l f' p -> Case λ l f' q

Foldable (Case λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> Case λ l f' p -> m

Traversable (Case λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> Case λ l f' p -> m (Case λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => Case λ l f' (Compose m p) -> m (Case λ l f' p)

Apply (Case λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). Case λ l f' (p ~> q) -> Case λ l f' p -> Case λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> Case λ l f' p -> Case λ l f' q -> Case λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> Case λ l f' p -> Case λ l f' q -> Case λ l f' r -> Case λ l f' s

Attribution (Auto ConstantFold) (Case l l) Sem Placed => At (Auto ConstantFold) (Case l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Oberon.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (Case l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (Case l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (CaseLabels l l f' f')), Data (f (StatementSequence l l f' f'))) => Data (Case λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Case λ l f' f -> c (Case λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (Case λ l f' f)

toConstr :: Case λ l f' f -> Constr

dataTypeOf :: Case λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (Case λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (Case λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> Case λ l f' f -> Case λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Case λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Case λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> Case λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Case λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Case λ l f' f -> m (Case λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Case λ l f' f -> m (Case λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Case λ l f' f -> m (Case λ l f' f)

(Show (f (CaseLabels l l f' f')), Show (f (StatementSequence l l f' f'))) => Show (Case λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> Case λ l f' f -> ShowS

show :: Case λ l f' f -> String

showList :: [Case λ l f' f] -> ShowS

type Atts (Inherited (Auto ConstantFold)) (Case l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (Case l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (Case l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (Case l l _1 _2) = SynCF' (Case l l)

data CaseLabels λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

SingleLabel (f (ConstExpression l l f' f'))

LabelRange (f (ConstExpression l l f' f')) (f (ConstExpression l l f' f'))

Instances

(Transformation t, Functor t (ConstExpression l l), Functor t (ConstExpression l l), Functor t (ConstExpression l l)) => Functor t (CaseLabels λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> CaseLabels λ l (Domain t) (Domain t) -> CaseLabels λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (ConstExpression l l), Foldable t (ConstExpression l l), Foldable t (ConstExpression l l)) => Foldable t (CaseLabels λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> CaseLabels λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (ConstExpression l l), Traversable t (ConstExpression l l), Traversable t (ConstExpression l l)) => Traversable t (CaseLabels λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> CaseLabels λ l (Domain t) (Domain t) -> m (CaseLabels λ l f f)

(Transformation t, At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f')) => Functor t (CaseLabels λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> CaseLabels λ l f' (Domain t) -> CaseLabels λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f')) => Foldable t (CaseLabels λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> CaseLabels λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f'), At t (ConstExpression l l f' f')) => Traversable t (CaseLabels λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> CaseLabels λ l f' (Domain t) -> m (CaseLabels λ l f' f)

(Functor (Auto ConstantFold) (CaseLabels l l), At (Auto ConstantFold) (CaseLabels l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (CaseLabels l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (CaseLabels l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (CaseLabels l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (CaseLabels λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> CaseLabels λ l f' p -> CaseLabels λ l f' q

Foldable (CaseLabels λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> CaseLabels λ l f' p -> m

Traversable (CaseLabels λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> CaseLabels λ l f' p -> m (CaseLabels λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => CaseLabels λ l f' (Compose m p) -> m (CaseLabels λ l f' p)

Apply (CaseLabels λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). CaseLabels λ l f' (p ~> q) -> CaseLabels λ l f' p -> CaseLabels λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> CaseLabels λ l f' p -> CaseLabels λ l f' q -> CaseLabels λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> CaseLabels λ l f' p -> CaseLabels λ l f' q -> CaseLabels λ l f' r -> CaseLabels λ l f' s

Attribution (Auto ConstantFold) (CaseLabels l l) Sem Placed => At (Auto ConstantFold) (CaseLabels l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Oberon.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (CaseLabels l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (CaseLabels l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (ConstExpression l l f' f'))) => Data (CaseLabels λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> CaseLabels λ l f' f -> c (CaseLabels λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (CaseLabels λ l f' f)

toConstr :: CaseLabels λ l f' f -> Constr

dataTypeOf :: CaseLabels λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (CaseLabels λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (CaseLabels λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> CaseLabels λ l f' f -> CaseLabels λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> CaseLabels λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> CaseLabels λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> CaseLabels λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> CaseLabels λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> CaseLabels λ l f' f -> m (CaseLabels λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> CaseLabels λ l f' f -> m (CaseLabels λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> CaseLabels λ l f' f -> m (CaseLabels λ l f' f)

Show (f (ConstExpression l l f' f')) => Show (CaseLabels λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> CaseLabels λ l f' f -> ShowS

show :: CaseLabels λ l f' f -> String

showList :: [CaseLabels λ l f' f] -> ShowS

type Atts (Inherited (Auto ConstantFold)) (CaseLabels l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (CaseLabels l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (CaseLabels l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (CaseLabels l l _1 _2) = SynCF' (CaseLabels l l)

data ConditionalBranch λ l (f' :: Type -> Type) (f :: Type -> Type)

Constructors

ConditionalBranch (f (Expression l l f' f')) (f (StatementSequence l l f' f'))

Instances

(Transformation t, Functor t (Expression l l), Functor t (StatementSequence l l)) => Functor t (ConditionalBranch λ l)

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> ConditionalBranch λ l (Domain t) (Domain t) -> ConditionalBranch λ l (Codomain t) (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, Foldable t (Expression l l), Foldable t (StatementSequence l l)) => Foldable t (ConditionalBranch λ l)

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> ConditionalBranch λ l (Domain t) (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, Traversable t (Expression l l), Traversable t (StatementSequence l l)) => Traversable t (ConditionalBranch λ l)

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> ConditionalBranch λ l (Domain t) (Domain t) -> m (ConditionalBranch λ l f f)

(Transformation t, At t (Expression l l f' f'), At t (StatementSequence l l f' f')) => Functor t (ConditionalBranch λ l f')

Defined in Language.Oberon.AST

Methods

(<$>) :: t -> ConditionalBranch λ l f' (Domain t) -> ConditionalBranch λ l f' (Codomain t)

(Transformation t, Codomain t ~ (Const m :: Type -> Type), Monoid m, At t (Expression l l f' f'), At t (StatementSequence l l f' f')) => Foldable t (ConditionalBranch λ l f')

Defined in Language.Oberon.AST

Methods

foldMap :: (Codomain t ~ Const m, Monoid m) => t -> ConditionalBranch λ l f' (Domain t) -> m

(Transformation t, Codomain t ~ Compose m f, Applicative m, At t (Expression l l f' f'), At t (StatementSequence l l f' f')) => Traversable t (ConditionalBranch λ l f')

Defined in Language.Oberon.AST

Methods

traverse :: forall m (f :: Type -> Type). Codomain t ~ Compose m f => t -> ConditionalBranch λ l f' (Domain t) -> m (ConditionalBranch λ l f' f)

(Functor (Auto ConstantFold) (ConditionalBranch l l), At (Auto ConstantFold) (ConditionalBranch l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))) => Functor (Auto ConstantFold) (ConditionalBranch l l)

Defined in Language.Oberon.ConstantFolder

Methods

(<$>) :: Auto ConstantFold -> Domain (Auto ConstantFold) (ConditionalBranch l l (Domain (Auto ConstantFold)) (Domain (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (ConditionalBranch l l (Codomain (Auto ConstantFold)) (Codomain (Auto ConstantFold)))

Functor (ConditionalBranch λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<$>) :: (forall (a :: k). p a -> q a) -> ConditionalBranch λ l f' p -> ConditionalBranch λ l f' q

Foldable (ConditionalBranch λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

foldMap :: Monoid m => (forall (a :: k). p a -> m) -> ConditionalBranch λ l f' p -> m

Traversable (ConditionalBranch λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

traverse :: Applicative m => (forall (a :: k). p a -> m (q a)) -> ConditionalBranch λ l f' p -> m (ConditionalBranch λ l f' q)

sequence :: forall m (p :: k -> Type). Applicative m => ConditionalBranch λ l f' (Compose m p) -> m (ConditionalBranch λ l f' p)

Apply (ConditionalBranch λ l f' :: (Type -> Type) -> Type)

Defined in Language.Oberon.AST

Methods

(<*>) :: forall (p :: k -> Type) (q :: k -> Type). ConditionalBranch λ l f' (p ~> q) -> ConditionalBranch λ l f' p -> ConditionalBranch λ l f' q

liftA2 :: (forall (a :: k). p a -> q a -> r a) -> ConditionalBranch λ l f' p -> ConditionalBranch λ l f' q -> ConditionalBranch λ l f' r

liftA3 :: (forall (a :: k). p a -> q a -> r a -> s a) -> ConditionalBranch λ l f' p -> ConditionalBranch λ l f' q -> ConditionalBranch λ l f' r -> ConditionalBranch λ l f' s

Attribution (Auto ConstantFold) (ConditionalBranch l l) Sem Placed => At (Auto ConstantFold) (ConditionalBranch l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

Defined in Language.Oberon.ConstantFolder

Methods

($) :: Auto ConstantFold -> Domain (Auto ConstantFold) (ConditionalBranch l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold))) -> Codomain (Auto ConstantFold) (ConditionalBranch l l (Semantics (Auto ConstantFold)) (Semantics (Auto ConstantFold)))

(Typeable λ, Typeable l, Typeable f, Typeable f', Data (f (Expression l l f' f')), Data (f (StatementSequence l l f' f'))) => Data (ConditionalBranch λ l f' f)

Defined in Language.Oberon.AST

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ConditionalBranch λ l f' f -> c (ConditionalBranch λ l f' f)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (ConditionalBranch λ l f' f)

toConstr :: ConditionalBranch λ l f' f -> Constr

dataTypeOf :: ConditionalBranch λ l f' f -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (ConditionalBranch λ l f' f))

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (ConditionalBranch λ l f' f))

gmapT :: (forall b. Data b => b -> b) -> ConditionalBranch λ l f' f -> ConditionalBranch λ l f' f

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ConditionalBranch λ l f' f -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ConditionalBranch λ l f' f -> r

gmapQ :: (forall d. Data d => d -> u) -> ConditionalBranch λ l f' f -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> ConditionalBranch λ l f' f -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ConditionalBranch λ l f' f -> m (ConditionalBranch λ l f' f)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ConditionalBranch λ l f' f -> m (ConditionalBranch λ l f' f)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ConditionalBranch λ l f' f -> m (ConditionalBranch λ l f' f)

(Show (f (Expression l l f' f')), Show (f (StatementSequence l l f' f'))) => Show (ConditionalBranch λ l f' f)

Defined in Language.Oberon.AST

Methods

showsPrec :: Int -> ConditionalBranch λ l f' f -> ShowS

show :: ConditionalBranch λ l f' f -> String

showList :: [ConditionalBranch λ l f' f] -> ShowS

type Atts (Inherited (Auto ConstantFold)) (ConditionalBranch l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Inherited (Auto ConstantFold)) (ConditionalBranch l l _1 _2) = InhCF l

type Atts (Synthesized (Auto ConstantFold)) (ConditionalBranch l l _1 _2)

Defined in Language.Oberon.ConstantFolder

type Atts (Synthesized (Auto ConstantFold)) (ConditionalBranch l l _1 _2) = SynCF' (ConditionalBranch l l)

data RelOp

Relational operators

Constructors

Equal

Unequal

Less

LessOrEqual

Greater

GreaterOrEqual

In

Instances

Eq RelOp

Defined in Language.Oberon.Abstract

Methods

(==) :: RelOp -> RelOp -> Bool

(/=) :: RelOp -> RelOp -> Bool

Data RelOp

Defined in Language.Oberon.Abstract

Methods

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

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

toConstr :: RelOp -> Constr

dataTypeOf :: RelOp -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c RelOp)

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

gmapT :: (forall b. Data b => b -> b) -> RelOp -> RelOp

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

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

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

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

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

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

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

Show RelOp

Defined in Language.Oberon.Abstract

Methods

showsPrec :: Int -> RelOp -> ShowS

show :: RelOp -> String

showList :: [RelOp] -> ShowS