{-# LANGUAGE Rank2Types, GADTs #-}
{-# LANGUAGE ScopedTypeVariables #-}
module TfmToMirage where
{-# LINE 2 "src-ag/Patterns.ag" #-}
import UU.Scanner.Position(Pos)
import CommonTypes (ConstructorIdent,Identifier)
{-# LINE 11 "src-generated/TfmToMirage.hs" #-}
{-# LINE 10 "src-ag/Order.ag" #-}
import CommonTypes
import Patterns
import ErrorMessages
import AbstractSyntax
import Code hiding (Type)
import qualified Code
import Expression
import Options
import SequentialComputation
import SequentialTypes
import CodeSyntax
import GrammarInfo
import HsToken(HsTokensRoot(HsTokensRoot))
import SemHsTokens(sem_HsTokensRoot,wrap_HsTokensRoot, Syn_HsTokensRoot(..),Inh_HsTokensRoot(..))
import qualified Data.Map as Map
import qualified Data.Set as Set
import qualified Data.Sequence as Seq
import Data.Map(Map)
import Data.Set(Set)
import Data.Sequence(Seq, (><))
import UU.Util.Utils
import UU.Scanner.Position(Pos(..),initPos)
import Data.Foldable(toList)
import Control.Monad(liftM)
import qualified Data.Array as Array
import Data.Array((!),bounds,inRange)
import Data.List(elemIndex,partition,sort,mapAccumL,find,nubBy,intersperse,groupBy,transpose)
import qualified Data.Tree as Tree
import Data.Maybe
{-# LINE 48 "src-generated/TfmToMirage.hs" #-}
{-# LINE 2 "src-ag/Expression.ag" #-}
import UU.Scanner.Position(Pos)
import HsToken
{-# LINE 54 "src-generated/TfmToMirage.hs" #-}
{-# LINE 2 "src-ag/AbstractSyntax.ag" #-}
import Data.Set(Set)
import Data.Map(Map)
import Patterns (Pattern(..),Patterns)
import Expression (Expression(..))
import Macro
import CommonTypes
import ErrorMessages
{-# LINE 66 "src-generated/TfmToMirage.hs" #-}
{-# LINE 5 "src-ag/TfmToMirage.ag" #-}
import AbstractSyntax
import qualified Data.Map as Map
import Pretty
import TokenDef
import qualified MirageSyntax as Mirage
{-# LINE 75 "src-generated/TfmToMirage.hs" #-}
import Control.Monad.Identity (Identity)
import qualified Control.Monad.Identity
{-# LINE 46 "src-ag/Order.ag" #-}
findWithErr1 :: (Ord k, Show k) => String -> k -> Map k a -> a
findWithErr1 s k
= Map.findWithDefault (error ("findWithErr1 " ++ s ++ ": key " ++ show k ++ " not in map.")) k
findWithErr2 :: (Ord k, Show k, Show a) => k -> Map k a -> a
findWithErr2 k m
= Map.findWithDefault (error ("findWithErr2: key " ++ show k ++ " not in map: " ++ show m)) k m
{-# LINE 88 "src-generated/TfmToMirage.hs" #-}
{-# LINE 71 "src-ag/Order.ag" #-}
startsWith :: String -> String -> Bool
startsWith k h = k == take (length k) h
{-# LINE 94 "src-generated/TfmToMirage.hs" #-}
{-# LINE 138 "src-ag/Order.ag" #-}
getNtName :: Type -> NontermIdent
getNtName (NT nt _ _) = nt
getNtName _ = nullIdent
{-# LINE 101 "src-generated/TfmToMirage.hs" #-}
{-# LINE 166 "src-ag/Order.ag" #-}
data AltAttr = AltAttr Identifier Identifier Bool
deriving (Eq, Ord, Show)
{-# LINE 107 "src-generated/TfmToMirage.hs" #-}
{-# LINE 239 "src-ag/Order.ag" #-}
substSelf nt tp
= case tp of
NT n tps defor | n == _SELF -> NT nt tps defor
_ -> tp
haskellTupel :: [Type] -> Maybe Type
haskellTupel ts = Just ( Haskell ( '(' : (concat (intersperse "," (map show ts))) ++ ")" ))
{-# LINE 118 "src-generated/TfmToMirage.hs" #-}
{-# LINE 692 "src-ag/Order.ag" #-}
swap (a,b) = (b,a)
showPath :: Table CRule -> [Vertex] -> [String]
showPath ruleTable path
= let look a | inRange (bounds ruleTable) a = [showOrigin (ruleTable ! a)]
| otherwise = ["Vertex " ++ show a]
showOrigin cr | getHasCode cr && getName (getAttr cr) /= "self" = prettyCRule cr ++ " (" ++ show (getPos (getAttr cr)) ++ ")"
| otherwise = prettyCRule cr
in concatMap look path
showPathLocal :: Table CRule -> [Vertex] -> [String]
showPathLocal _ [] = []
showPathLocal ruleTable xs = showP (xs++[-1])
where showP [] = []
showP (v1:v2:vs) = let line = step v1 v2
lines = showP vs
in line:lines
step v1 v2 = " - " ++ a1
where r1 = ruleTable ! v1
a1 = show (getAttr r1)
limitTo :: Int -> [String] -> [String]
limitTo _ [] = []
limitTo 0 _ = ["....etcetera, etcetera...."]
limitTo n (x:xs) = x : limitTo (n-1) xs
showPathNice :: Table CRule -> [Vertex] -> [String]
showPathNice _ [] = []
showPathNice ruleTable xs = limitTo 100 (showP ((-1):xs++[-1]))
where [maxf, maxa, maxn, maxc] = maxWidths ruleTable (take 100 xs)
showP [] = []
showP (v1:v2:vs) = let line = step v1 v2
lines = showP vs
in if null line then lines else line:lines
step v1 v2 | last && first = induced
| last && isSyn r1 = "pass up " ++ alignR maxf "" ++ " " ++ alignL maxa a1 ++ " in " ++ alignR maxn n1 ++ "|" ++ c1 ++ induced
| first&& not(isSyn r2) = "get from above " ++ alignR maxf "" ++ " " ++ alignL maxa a2 ++ " in " ++ alignR maxn n2 ++ "|" ++ c2
| last = "pass down " ++ alignR maxf f1 ++ "." ++ a1 ++ induced
| isSyn r2 = "get from below " ++ alignR maxf f2 ++ "." ++ alignL maxa a2 ++ " in " ++ alignR maxn n2 ++ "|" ++ c2
| isLocal r1 = if head a1 == '_'
then ""
else "calculate " ++ alignR maxf "loc" ++ "." ++ a1
| otherwise = "pass down " ++ alignR maxf f1 ++ "." ++ alignL maxa a1 ++ " to " ++ alignR maxn n2 ++ "|" ++ c2
where
first = v1<0
last = v2<0
r1 = ruleTable ! v1
r2 = ruleTable ! v2
a1 = show (getAttr r1)
a2 = show (getAttr r2)
f1 = show (getField r1)
f2 = show (getField r2)
n1 = show (getLhsNt r1)
n2 = show (getLhsNt r2)
c1 = show (getCon r1)
c2 = show (getCon r2)
induced | v2== -2 = " INDUCED dependency to "
| otherwise = ""
maxWidths ruleTable vs
= map maximum (transpose (map getWidth vs))
where getWidth v | v<0 = [0,0,0,0]
| otherwise = map (length . show . ($ (ruleTable!v))) [getField, getAttr, getLhsNt, getCon]
alignL n xs | k<n = xs ++ replicate (n-k) ' '
| otherwise = xs
where k = length xs
alignR n xs | k<n = replicate (n-k) ' ' ++ xs
| otherwise = xs
where k = length xs
localCycleErr :: Table CRule -> Bool -> Route -> Error
localCycleErr ruleTable o_visit (s:path)
= let cr = ruleTable ! s
attr = getAttr cr
nt = getLhsNt cr
con = getCon cr
in LocalCirc nt con attr o_visit (showPathLocal ruleTable path)
instCycleErr :: Table CRule -> Bool -> Route -> Error
instCycleErr ruleTable o_visit (s:path)
= let cr = ruleTable ! s
attr = getAttr cr
nt = getLhsNt cr
con = getCon cr
in InstCirc nt con attr o_visit (showPathLocal ruleTable path)
directCycleErrs :: Table NTAttr -> Table CRule -> Bool -> [EdgeRoutes] -> [Error]
directCycleErrs attrTable ruleTable o_visit xs
= let getNont v = case attrTable ! v of
NTASyn nt _ _ -> nt
NTAInh nt _ _ -> nt
getAttr v = case attrTable ! v of
NTASyn _ a _ -> a
NTAInh _ a _ -> a
sameNont ((v1,_),_,_) ((v2,_),_,_) = getNont v1 == getNont v2
procCycle ((v1,v2),p1,p2) = ((getAttr v1, getAttr v2), showPathNice ruleTable p1, showPathNice ruleTable p2)
wrapGroup gr@(((v1,_),_,_):_) = DirectCirc (getNont v1) o_visit (map procCycle gr)
in map wrapGroup (groupBy sameNont xs)
inducedCycleErrs :: Table NTAttr -> Table CRule -> CInterfaceMap -> [EdgeRoutes] -> [Error]
inducedCycleErrs attrTable ruleTable cim xs
= let getNont v = case attrTable ! v of
NTASyn nt _ _ -> nt
NTAInh nt _ _ -> nt
getAttr v = case attrTable ! v of
NTASyn _ a _ -> a
NTAInh _ a _ -> a
sameNont ((v1,_),_,_) ((v2,_),_,_) = getNont v1 == getNont v2
procCycle ((v1,v2),p1,p2) = ((getAttr v1, getAttr v2), showPathNice ruleTable p1, showPathNice ruleTable p2)
wrapGroup gr@(((v1,_),_,_):_) = InducedCirc (getNont v1) (findWithErr1 "inducedCycleErr.cinter" (getNont v1) cim) (map procCycle gr)
in map wrapGroup (groupBy sameNont xs)
{-# LINE 238 "src-generated/TfmToMirage.hs" #-}
{-# LINE 13 "src-ag/TfmToMirage.ag" #-}
typeToMirage :: Type -> Mirage.Type
typeToMirage x = case x of
Haskell y -> Mirage.Haskell y
NT y ys _ -> Mirage.NT (getName y) ys
Self -> Mirage.Self
{-# LINE 247 "src-generated/TfmToMirage.hs" #-}
data Inh_Child = Inh_Child { Inh_Child -> [(Identifier, Type, ChildKind)]
allfields_Inh_Child :: ([(Identifier,Type,ChildKind)]), Inh_Child -> [Identifier]
allnts_Inh_Child :: ([Identifier]), Inh_Child -> [(Identifier, Identifier)]
attrs_Inh_Child :: ([(Identifier,Identifier)]), Inh_Child -> Identifier
con_Inh_Child :: (Identifier), Inh_Child -> Attributes
inh_Inh_Child :: (Attributes), Inh_Child -> Map Identifier Attributes
inhMap_Inh_Child :: (Map Identifier Attributes), Inh_Child -> Map Identifier (Identifier, [Identifier])
mergeMap_Inh_Child :: (Map Identifier (Identifier,[Identifier])), Inh_Child -> Identifier
nt_Inh_Child :: (Identifier), Inh_Child -> Bool
o_unbox_Inh_Child :: (Bool), Inh_Child -> Attributes
syn_Inh_Child :: (Attributes), Inh_Child -> Map Identifier Attributes
synMap_Inh_Child :: (Map Identifier Attributes) }
data Syn_Child = Syn_Child { Syn_Child -> [(Identifier, Attributes, Attributes)]
attributes_Syn_Child :: ([(Identifier,Attributes,Attributes)]), Syn_Child -> Map Identifier Attributes
collectChildrenInhs_Syn_Child :: (Map Identifier Attributes ), Syn_Child -> Map Identifier Attributes
collectChildrenSyns_Syn_Child :: (Map Identifier Attributes ), Syn_Child -> Seq Error
errors_Syn_Child :: (Seq Error), Syn_Child -> (Identifier, Type, ChildKind)
field_Syn_Child :: ((Identifier,Type,ChildKind)), Syn_Child -> [AltAttr]
gathAltAttrs_Syn_Child :: ([AltAttr]), Syn_Child -> Seq CRule
gathRules_Syn_Child :: (Seq CRule), Syn_Child -> Seq (Identifier, Attributes)
inhs_Syn_Child :: (Seq (Identifier,Attributes)), Syn_Child -> Child
mirage_Syn_Child :: (Mirage.Child), Syn_Child -> Seq (Identifier, Identifier)
nts_Syn_Child :: (Seq (Identifier,NontermIdent)), Syn_Child -> [CRule]
singlevisits_Syn_Child :: ([CRule]), Syn_Child -> [Identifier]
terminals_Syn_Child :: ([Identifier]) }
{-# INLINABLE wrap_Child #-}
wrap_Child :: T_Child -> Inh_Child -> (Syn_Child )
wrap_Child :: T_Child -> Inh_Child -> Syn_Child
wrap_Child (T_Child Identity T_Child_s2
act) (Inh_Child [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_unbox Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Child_s2
sem <- Identity T_Child_s2
act
let arg1 :: T_Child_vIn1
arg1 = [(Identifier, Type, ChildKind)]
-> [Identifier]
-> [(Identifier, Identifier)]
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Attributes
-> Map Identifier Attributes
-> T_Child_vIn1
T_Child_vIn1 [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_unbox Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap
(T_Child_vOut1 [(Identifier, Attributes, Attributes)]
_lhsOattributes Map Identifier Attributes
_lhsOcollectChildrenInhs Map Identifier Attributes
_lhsOcollectChildrenSyns Seq Error
_lhsOerrors (Identifier, Type, ChildKind)
_lhsOfield [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Identifier, Attributes)
_lhsOinhs Child
_lhsOmirage Seq (Identifier, Identifier)
_lhsOnts [CRule]
_lhsOsinglevisits [Identifier]
_lhsOterminals) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Child_s2 -> T_Child_v1
inv_Child_s2 T_Child_s2
sem T_Child_vIn1
arg1)
forall (m :: * -> *) a. Monad m => a -> m a
return ([(Identifier, Attributes, Attributes)]
-> Map Identifier Attributes
-> Map Identifier Attributes
-> Seq Error
-> (Identifier, Type, ChildKind)
-> [AltAttr]
-> Seq CRule
-> Seq (Identifier, Attributes)
-> Child
-> Seq (Identifier, Identifier)
-> [CRule]
-> [Identifier]
-> Syn_Child
Syn_Child [(Identifier, Attributes, Attributes)]
_lhsOattributes Map Identifier Attributes
_lhsOcollectChildrenInhs Map Identifier Attributes
_lhsOcollectChildrenSyns Seq Error
_lhsOerrors (Identifier, Type, ChildKind)
_lhsOfield [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Identifier, Attributes)
_lhsOinhs Child
_lhsOmirage Seq (Identifier, Identifier)
_lhsOnts [CRule]
_lhsOsinglevisits [Identifier]
_lhsOterminals)
)
{-# INLINE sem_Child #-}
sem_Child :: Child -> T_Child
sem_Child :: Child -> T_Child
sem_Child ( Child Identifier
name_ Type
tp_ ChildKind
kind_ ) = Identifier -> Type -> ChildKind -> T_Child
sem_Child_Child Identifier
name_ Type
tp_ ChildKind
kind_
newtype T_Child = T_Child {
T_Child -> Identity T_Child_s2
attach_T_Child :: Identity (T_Child_s2 )
}
newtype T_Child_s2 = C_Child_s2 {
T_Child_s2 -> T_Child_v1
inv_Child_s2 :: (T_Child_v1 )
}
data T_Child_s3 = C_Child_s3
type T_Child_v1 = (T_Child_vIn1 ) -> (T_Child_vOut1 )
data T_Child_vIn1 = T_Child_vIn1 ([(Identifier,Type,ChildKind)]) ([Identifier]) ([(Identifier,Identifier)]) (Identifier) (Attributes) (Map Identifier Attributes) (Map Identifier (Identifier,[Identifier])) (Identifier) (Bool) (Attributes) (Map Identifier Attributes)
data T_Child_vOut1 = T_Child_vOut1 ([(Identifier,Attributes,Attributes)]) (Map Identifier Attributes ) (Map Identifier Attributes ) (Seq Error) ((Identifier,Type,ChildKind)) ([AltAttr]) (Seq CRule) (Seq (Identifier,Attributes)) (Mirage.Child) (Seq (Identifier,NontermIdent)) ([CRule]) ([Identifier])
{-# NOINLINE sem_Child_Child #-}
sem_Child_Child :: (Identifier) -> (Type) -> (ChildKind) -> T_Child
sem_Child_Child :: Identifier -> Type -> ChildKind -> T_Child
sem_Child_Child Identifier
arg_name_ Type
arg_tp_ ChildKind
arg_kind_ = Identity T_Child_s2 -> T_Child
T_Child (forall (m :: * -> *) a. Monad m => a -> m a
return T_Child_s2
st2) where
{-# NOINLINE st2 #-}
st2 :: T_Child_s2
st2 = let
v1 :: T_Child_v1
v1 :: T_Child_v1
v1 = \ (T_Child_vIn1 [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_unbox Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap) -> ( let
_chnt :: Identifier
_chnt = Identifier -> Type -> Identifier
rule0 Identifier
arg_name_ Type
arg_tp_
_inh :: Attributes
_inh = Identifier -> Map Identifier Attributes -> Attributes
rule1 Identifier
_chnt Map Identifier Attributes
_lhsIinhMap
_syn :: Attributes
_syn = Identifier -> Map Identifier Attributes -> Attributes
rule2 Identifier
_chnt Map Identifier Attributes
_lhsIsynMap
_maptolocal :: Bool
_maptolocal = forall {k} {a}. Map k a -> Type -> Bool
rule3 Attributes
_syn Type
arg_tp_
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = forall {a}. Bool -> Map Identifier a -> Identifier -> [AltAttr]
rule4 Bool
_maptolocal Attributes
_syn Identifier
arg_name_
_lhsOnts :: Seq (Identifier,NontermIdent)
_lhsOnts :: Seq (Identifier, Identifier)
_lhsOnts = forall {a}. a -> Type -> Seq (a, Identifier)
rule5 Identifier
arg_name_ Type
arg_tp_
_lhsOinhs :: Seq (Identifier,Attributes)
_lhsOinhs :: Seq (Identifier, Attributes)
_lhsOinhs = forall {b} {a}. b -> a -> Seq (a, b)
rule6 Attributes
_inh Identifier
arg_name_
_gathRules :: Seq CRule
_gathRules = Identifier
-> Identifier
-> Bool
-> Attributes
-> Identifier
-> Type
-> Seq CRule
rule7 Identifier
_lhsIcon Identifier
_lhsInt Bool
_maptolocal Attributes
_syn Identifier
arg_name_ Type
arg_tp_
_lhsOcollectChildrenSyns :: Map Identifier Attributes
_lhsOcollectChildrenSyns :: Map Identifier Attributes
_lhsOcollectChildrenSyns = forall {a} {k}. a -> k -> Map k a
rule8 Attributes
_syn Identifier
arg_name_
_lhsOcollectChildrenInhs :: Map Identifier Attributes
_lhsOcollectChildrenInhs :: Map Identifier Attributes
_lhsOcollectChildrenInhs = forall {a} {k}. a -> k -> Map k a
rule9 Attributes
_inh Identifier
arg_name_
_lhsOsinglevisits :: [CRule]
_lhsOsinglevisits :: [CRule]
_lhsOsinglevisits = Attributes -> Bool -> Attributes -> Identifier -> Type -> [CRule]
rule10 Attributes
_inh Bool
_maptolocal Attributes
_syn Identifier
arg_name_ Type
arg_tp_
_lhsOterminals :: [Identifier]
_lhsOterminals :: [Identifier]
_lhsOterminals = forall {a}. Bool -> a -> [a]
rule11 Bool
_maptolocal Identifier
arg_name_
_lhsOattributes :: [(Identifier,Attributes,Attributes)]
_lhsOattributes :: [(Identifier, Attributes, Attributes)]
_lhsOattributes = forall {b} {c} {a}. b -> c -> a -> [(a, b, c)]
rule12 Attributes
_inh Attributes
_syn Identifier
arg_name_
_lhsOfield :: (Identifier,Type,ChildKind)
_lhsOfield :: (Identifier, Type, ChildKind)
_lhsOfield = forall {c} {a} {b}. c -> a -> b -> (a, b, c)
rule13 ChildKind
arg_kind_ Identifier
arg_name_ Type
arg_tp_
_lhsOmirage :: Mirage.Child
_lhsOmirage :: Child
_lhsOmirage = Identifier -> Type -> Child
rule14 Identifier
arg_name_ Type
arg_tp_
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = forall {a}. () -> Seq a
rule15 ()
_lhsOgathRules :: Seq CRule
_lhsOgathRules :: Seq CRule
_lhsOgathRules = forall {p}. p -> p
rule16 Seq CRule
_gathRules
__result_ :: T_Child_vOut1
__result_ = [(Identifier, Attributes, Attributes)]
-> Map Identifier Attributes
-> Map Identifier Attributes
-> Seq Error
-> (Identifier, Type, ChildKind)
-> [AltAttr]
-> Seq CRule
-> Seq (Identifier, Attributes)
-> Child
-> Seq (Identifier, Identifier)
-> [CRule]
-> [Identifier]
-> T_Child_vOut1
T_Child_vOut1 [(Identifier, Attributes, Attributes)]
_lhsOattributes Map Identifier Attributes
_lhsOcollectChildrenInhs Map Identifier Attributes
_lhsOcollectChildrenSyns Seq Error
_lhsOerrors (Identifier, Type, ChildKind)
_lhsOfield [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Identifier, Attributes)
_lhsOinhs Child
_lhsOmirage Seq (Identifier, Identifier)
_lhsOnts [CRule]
_lhsOsinglevisits [Identifier]
_lhsOterminals
in T_Child_vOut1
__result_ )
in T_Child_v1 -> T_Child_s2
C_Child_s2 T_Child_v1
v1
{-# INLINE rule0 #-}
{-# LINE 19 "src-ag/DistChildAttr.ag" #-}
rule0 = \ name_ tp_ ->
{-# LINE 19 "src-ag/DistChildAttr.ag" #-}
case tp_ of
NT nt _ _ -> nt
Self -> error ("The type of child " ++ show name_ ++ " should not be a Self type.")
Haskell t -> identifier ""
{-# LINE 325 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule1 #-}
{-# LINE 23 "src-ag/DistChildAttr.ag" #-}
rule1 = \ _chnt ((_lhsIinhMap) :: Map Identifier Attributes) ->
{-# LINE 23 "src-ag/DistChildAttr.ag" #-}
Map.findWithDefault Map.empty _chnt _lhsIinhMap
{-# LINE 331 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule2 #-}
{-# LINE 24 "src-ag/DistChildAttr.ag" #-}
rule2 = \ _chnt ((_lhsIsynMap) :: Map Identifier Attributes) ->
{-# LINE 24 "src-ag/DistChildAttr.ag" #-}
Map.findWithDefault Map.empty _chnt _lhsIsynMap
{-# LINE 337 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule3 #-}
{-# LINE 180 "src-ag/Order.ag" #-}
rule3 = \ _syn tp_ ->
{-# LINE 180 "src-ag/Order.ag" #-}
case tp_ of
NT nt _ _ -> Map.null _syn
_ -> True
{-# LINE 345 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule4 #-}
{-# LINE 183 "src-ag/Order.ag" #-}
rule4 = \ _maptolocal _syn name_ ->
{-# LINE 183 "src-ag/Order.ag" #-}
if _maptolocal
then [ AltAttr _LOC name_ True ]
else [ AltAttr name_ syn True | syn <- Map.keys _syn ]
{-# LINE 353 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule5 #-}
{-# LINE 198 "src-ag/Order.ag" #-}
rule5 = \ name_ tp_ ->
{-# LINE 198 "src-ag/Order.ag" #-}
Seq.singleton (name_,getNtName tp_)
{-# LINE 359 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule6 #-}
{-# LINE 199 "src-ag/Order.ag" #-}
rule6 = \ _inh name_ ->
{-# LINE 199 "src-ag/Order.ag" #-}
Seq.singleton (name_,_inh )
{-# LINE 365 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule7 #-}
{-# LINE 215 "src-ag/Order.ag" #-}
rule7 = \ ((_lhsIcon) :: Identifier) ((_lhsInt) :: Identifier) _maptolocal _syn name_ tp_ ->
{-# LINE 215 "src-ag/Order.ag" #-}
if _maptolocal
then Seq.singleton (cRuleTerminal name_ _lhsInt _lhsIcon tp_)
else Seq.fromList [ cRuleRhsSyn syn _lhsInt _lhsIcon tp name_ (getNtName tp_) | (syn,tp) <- Map.assocs _syn ]
{-# LINE 373 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule8 #-}
{-# LINE 347 "src-ag/Order.ag" #-}
rule8 = \ _syn name_ ->
{-# LINE 347 "src-ag/Order.ag" #-}
Map.singleton name_ _syn
{-# LINE 379 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule9 #-}
{-# LINE 348 "src-ag/Order.ag" #-}
rule9 = \ _inh name_ ->
{-# LINE 348 "src-ag/Order.ag" #-}
Map.singleton name_ _inh
{-# LINE 385 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule10 #-}
{-# LINE 618 "src-ag/Order.ag" #-}
rule10 = \ _inh _maptolocal _syn name_ tp_ ->
{-# LINE 618 "src-ag/Order.ag" #-}
if _maptolocal
then []
else [CChildVisit name_ (getNtName tp_) 0 _inh _syn True]
{-# LINE 393 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule11 #-}
{-# LINE 643 "src-ag/Order.ag" #-}
rule11 = \ _maptolocal name_ ->
{-# LINE 643 "src-ag/Order.ag" #-}
if _maptolocal
then [name_]
else []
{-# LINE 401 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule12 #-}
{-# LINE 672 "src-ag/Order.ag" #-}
rule12 = \ _inh _syn name_ ->
{-# LINE 672 "src-ag/Order.ag" #-}
[(name_, _inh , _syn )]
{-# LINE 407 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule13 #-}
{-# LINE 676 "src-ag/Order.ag" #-}
rule13 = \ kind_ name_ tp_ ->
{-# LINE 676 "src-ag/Order.ag" #-}
(name_, tp_, kind_)
{-# LINE 413 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule14 #-}
{-# LINE 50 "src-ag/TfmToMirage.ag" #-}
rule14 = \ name_ tp_ ->
{-# LINE 50 "src-ag/TfmToMirage.ag" #-}
Mirage.Child (getName name_) (typeToMirage tp_)
{-# LINE 419 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule15 #-}
rule15 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule16 #-}
rule16 = \ _gathRules ->
_gathRules
data Inh_Children = Inh_Children { Inh_Children -> [(Identifier, Type, ChildKind)]
allfields_Inh_Children :: ([(Identifier,Type,ChildKind)]), Inh_Children -> [Identifier]
allnts_Inh_Children :: ([Identifier]), Inh_Children -> [(Identifier, Identifier)]
attrs_Inh_Children :: ([(Identifier,Identifier)]), Inh_Children -> Identifier
con_Inh_Children :: (Identifier), Inh_Children -> Attributes
inh_Inh_Children :: (Attributes), Inh_Children -> Map Identifier Attributes
inhMap_Inh_Children :: (Map Identifier Attributes), Inh_Children -> Map Identifier (Identifier, [Identifier])
mergeMap_Inh_Children :: (Map Identifier (Identifier,[Identifier])), Inh_Children -> Identifier
nt_Inh_Children :: (Identifier), Inh_Children -> Bool
o_unbox_Inh_Children :: (Bool), Inh_Children -> Attributes
syn_Inh_Children :: (Attributes), Inh_Children -> Map Identifier Attributes
synMap_Inh_Children :: (Map Identifier Attributes) }
data Syn_Children = Syn_Children { Syn_Children -> [(Identifier, Attributes, Attributes)]
attributes_Syn_Children :: ([(Identifier,Attributes,Attributes)]), Syn_Children -> Map Identifier Attributes
collectChildrenInhs_Syn_Children :: (Map Identifier Attributes ), Syn_Children -> Map Identifier Attributes
collectChildrenSyns_Syn_Children :: (Map Identifier Attributes ), Syn_Children -> Seq Error
errors_Syn_Children :: (Seq Error), Syn_Children -> [(Identifier, Type, ChildKind)]
fields_Syn_Children :: ([(Identifier,Type,ChildKind)]), Syn_Children -> [AltAttr]
gathAltAttrs_Syn_Children :: ([AltAttr]), Syn_Children -> Seq CRule
gathRules_Syn_Children :: (Seq CRule), Syn_Children -> Seq (Identifier, Attributes)
inhs_Syn_Children :: (Seq (Identifier,Attributes)), Syn_Children -> [Child]
mirages_Syn_Children :: ([Mirage.Child]), Syn_Children -> Seq (Identifier, Identifier)
nts_Syn_Children :: (Seq (Identifier,NontermIdent)), Syn_Children -> [CRule]
singlevisits_Syn_Children :: ([CRule]), Syn_Children -> [Identifier]
terminals_Syn_Children :: ([Identifier]) }
{-# INLINABLE wrap_Children #-}
wrap_Children :: T_Children -> Inh_Children -> (Syn_Children )
wrap_Children :: T_Children -> Inh_Children -> Syn_Children
wrap_Children (T_Children Identity T_Children_s5
act) (Inh_Children [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_unbox Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Children_s5
sem <- Identity T_Children_s5
act
let arg4 :: T_Children_vIn4
arg4 = [(Identifier, Type, ChildKind)]
-> [Identifier]
-> [(Identifier, Identifier)]
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Attributes
-> Map Identifier Attributes
-> T_Children_vIn4
T_Children_vIn4 [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_unbox Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap
(T_Children_vOut4 [(Identifier, Attributes, Attributes)]
_lhsOattributes Map Identifier Attributes
_lhsOcollectChildrenInhs Map Identifier Attributes
_lhsOcollectChildrenSyns Seq Error
_lhsOerrors [(Identifier, Type, ChildKind)]
_lhsOfields [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Identifier, Attributes)
_lhsOinhs [Child]
_lhsOmirages Seq (Identifier, Identifier)
_lhsOnts [CRule]
_lhsOsinglevisits [Identifier]
_lhsOterminals) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Children_s5 -> T_Children_v4
inv_Children_s5 T_Children_s5
sem T_Children_vIn4
arg4)
forall (m :: * -> *) a. Monad m => a -> m a
return ([(Identifier, Attributes, Attributes)]
-> Map Identifier Attributes
-> Map Identifier Attributes
-> Seq Error
-> [(Identifier, Type, ChildKind)]
-> [AltAttr]
-> Seq CRule
-> Seq (Identifier, Attributes)
-> [Child]
-> Seq (Identifier, Identifier)
-> [CRule]
-> [Identifier]
-> Syn_Children
Syn_Children [(Identifier, Attributes, Attributes)]
_lhsOattributes Map Identifier Attributes
_lhsOcollectChildrenInhs Map Identifier Attributes
_lhsOcollectChildrenSyns Seq Error
_lhsOerrors [(Identifier, Type, ChildKind)]
_lhsOfields [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Identifier, Attributes)
_lhsOinhs [Child]
_lhsOmirages Seq (Identifier, Identifier)
_lhsOnts [CRule]
_lhsOsinglevisits [Identifier]
_lhsOterminals)
)
{-# NOINLINE sem_Children #-}
sem_Children :: Children -> T_Children
sem_Children :: Children -> T_Children
sem_Children Children
list = forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
Prelude.foldr T_Child -> T_Children -> T_Children
sem_Children_Cons T_Children
sem_Children_Nil (forall a b. (a -> b) -> [a] -> [b]
Prelude.map Child -> T_Child
sem_Child Children
list)
newtype T_Children = T_Children {
T_Children -> Identity T_Children_s5
attach_T_Children :: Identity (T_Children_s5 )
}
newtype T_Children_s5 = C_Children_s5 {
T_Children_s5 -> T_Children_v4
inv_Children_s5 :: (T_Children_v4 )
}
data T_Children_s6 = C_Children_s6
type T_Children_v4 = (T_Children_vIn4 ) -> (T_Children_vOut4 )
data T_Children_vIn4 = T_Children_vIn4 ([(Identifier,Type,ChildKind)]) ([Identifier]) ([(Identifier,Identifier)]) (Identifier) (Attributes) (Map Identifier Attributes) (Map Identifier (Identifier,[Identifier])) (Identifier) (Bool) (Attributes) (Map Identifier Attributes)
data T_Children_vOut4 = T_Children_vOut4 ([(Identifier,Attributes,Attributes)]) (Map Identifier Attributes ) (Map Identifier Attributes ) (Seq Error) ([(Identifier,Type,ChildKind)]) ([AltAttr]) (Seq CRule) (Seq (Identifier,Attributes)) ([Mirage.Child]) (Seq (Identifier,NontermIdent)) ([CRule]) ([Identifier])
{-# NOINLINE sem_Children_Cons #-}
sem_Children_Cons :: T_Child -> T_Children -> T_Children
sem_Children_Cons :: T_Child -> T_Children -> T_Children
sem_Children_Cons T_Child
arg_hd_ T_Children
arg_tl_ = Identity T_Children_s5 -> T_Children
T_Children (forall (m :: * -> *) a. Monad m => a -> m a
return T_Children_s5
st5) where
{-# NOINLINE st5 #-}
st5 :: T_Children_s5
st5 = let
v4 :: T_Children_v4
v4 :: T_Children_v4
v4 = \ (T_Children_vIn4 [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_unbox Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap) -> ( let
_hdX2 :: T_Child_s2
_hdX2 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Child -> Identity T_Child_s2
attach_T_Child (T_Child
arg_hd_))
_tlX5 :: T_Children_s5
_tlX5 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Children -> Identity T_Children_s5
attach_T_Children (T_Children
arg_tl_))
(T_Child_vOut1 [(Identifier, Attributes, Attributes)]
_hdIattributes Map Identifier Attributes
_hdIcollectChildrenInhs Map Identifier Attributes
_hdIcollectChildrenSyns Seq Error
_hdIerrors (Identifier, Type, ChildKind)
_hdIfield [AltAttr]
_hdIgathAltAttrs Seq CRule
_hdIgathRules Seq (Identifier, Attributes)
_hdIinhs Child
_hdImirage Seq (Identifier, Identifier)
_hdInts [CRule]
_hdIsinglevisits [Identifier]
_hdIterminals) = T_Child_s2 -> T_Child_v1
inv_Child_s2 T_Child_s2
_hdX2 ([(Identifier, Type, ChildKind)]
-> [Identifier]
-> [(Identifier, Identifier)]
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Attributes
-> Map Identifier Attributes
-> T_Child_vIn1
T_Child_vIn1 [(Identifier, Type, ChildKind)]
_hdOallfields [Identifier]
_hdOallnts [(Identifier, Identifier)]
_hdOattrs Identifier
_hdOcon Attributes
_hdOinh Map Identifier Attributes
_hdOinhMap Map Identifier (Identifier, [Identifier])
_hdOmergeMap Identifier
_hdOnt Bool
_hdOo_unbox Attributes
_hdOsyn Map Identifier Attributes
_hdOsynMap)
(T_Children_vOut4 [(Identifier, Attributes, Attributes)]
_tlIattributes Map Identifier Attributes
_tlIcollectChildrenInhs Map Identifier Attributes
_tlIcollectChildrenSyns Seq Error
_tlIerrors [(Identifier, Type, ChildKind)]
_tlIfields [AltAttr]
_tlIgathAltAttrs Seq CRule
_tlIgathRules Seq (Identifier, Attributes)
_tlIinhs [Child]
_tlImirages Seq (Identifier, Identifier)
_tlInts [CRule]
_tlIsinglevisits [Identifier]
_tlIterminals) = T_Children_s5 -> T_Children_v4
inv_Children_s5 T_Children_s5
_tlX5 ([(Identifier, Type, ChildKind)]
-> [Identifier]
-> [(Identifier, Identifier)]
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Attributes
-> Map Identifier Attributes
-> T_Children_vIn4
T_Children_vIn4 [(Identifier, Type, ChildKind)]
_tlOallfields [Identifier]
_tlOallnts [(Identifier, Identifier)]
_tlOattrs Identifier
_tlOcon Attributes
_tlOinh Map Identifier Attributes
_tlOinhMap Map Identifier (Identifier, [Identifier])
_tlOmergeMap Identifier
_tlOnt Bool
_tlOo_unbox Attributes
_tlOsyn Map Identifier Attributes
_tlOsynMap)
_lhsOfields :: [(Identifier,Type,ChildKind)]
_lhsOfields :: [(Identifier, Type, ChildKind)]
_lhsOfields = (Identifier, Type, ChildKind)
-> [(Identifier, Type, ChildKind)]
-> [(Identifier, Type, ChildKind)]
rule17 (Identifier, Type, ChildKind)
_hdIfield [(Identifier, Type, ChildKind)]
_tlIfields
_lhsOmirages :: [Mirage.Child]
_lhsOmirages :: [Child]
_lhsOmirages = Child -> [Child] -> [Child]
rule18 Child
_hdImirage [Child]
_tlImirages
_lhsOattributes :: [(Identifier,Attributes,Attributes)]
_lhsOattributes :: [(Identifier, Attributes, Attributes)]
_lhsOattributes = [(Identifier, Attributes, Attributes)]
-> [(Identifier, Attributes, Attributes)]
-> [(Identifier, Attributes, Attributes)]
rule19 [(Identifier, Attributes, Attributes)]
_hdIattributes [(Identifier, Attributes, Attributes)]
_tlIattributes
_lhsOcollectChildrenInhs :: Map Identifier Attributes
_lhsOcollectChildrenInhs :: Map Identifier Attributes
_lhsOcollectChildrenInhs = Map Identifier Attributes
-> Map Identifier Attributes -> Map Identifier Attributes
rule20 Map Identifier Attributes
_hdIcollectChildrenInhs Map Identifier Attributes
_tlIcollectChildrenInhs
_lhsOcollectChildrenSyns :: Map Identifier Attributes
_lhsOcollectChildrenSyns :: Map Identifier Attributes
_lhsOcollectChildrenSyns = Map Identifier Attributes
-> Map Identifier Attributes -> Map Identifier Attributes
rule21 Map Identifier Attributes
_hdIcollectChildrenSyns Map Identifier Attributes
_tlIcollectChildrenSyns
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error -> Seq Error
rule22 Seq Error
_hdIerrors Seq Error
_tlIerrors
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = [AltAttr] -> [AltAttr] -> [AltAttr]
rule23 [AltAttr]
_hdIgathAltAttrs [AltAttr]
_tlIgathAltAttrs
_lhsOgathRules :: Seq CRule
_lhsOgathRules :: Seq CRule
_lhsOgathRules = Seq CRule -> Seq CRule -> Seq CRule
rule24 Seq CRule
_hdIgathRules Seq CRule
_tlIgathRules
_lhsOinhs :: Seq (Identifier,Attributes)
_lhsOinhs :: Seq (Identifier, Attributes)
_lhsOinhs = Seq (Identifier, Attributes)
-> Seq (Identifier, Attributes) -> Seq (Identifier, Attributes)
rule25 Seq (Identifier, Attributes)
_hdIinhs Seq (Identifier, Attributes)
_tlIinhs
_lhsOnts :: Seq (Identifier,NontermIdent)
_lhsOnts :: Seq (Identifier, Identifier)
_lhsOnts = Seq (Identifier, Identifier)
-> Seq (Identifier, Identifier) -> Seq (Identifier, Identifier)
rule26 Seq (Identifier, Identifier)
_hdInts Seq (Identifier, Identifier)
_tlInts
_lhsOsinglevisits :: [CRule]
_lhsOsinglevisits :: [CRule]
_lhsOsinglevisits = [CRule] -> [CRule] -> [CRule]
rule27 [CRule]
_hdIsinglevisits [CRule]
_tlIsinglevisits
_lhsOterminals :: [Identifier]
_lhsOterminals :: [Identifier]
_lhsOterminals = [Identifier] -> [Identifier] -> [Identifier]
rule28 [Identifier]
_hdIterminals [Identifier]
_tlIterminals
_hdOallfields :: [(Identifier, Type, ChildKind)]
_hdOallfields = [(Identifier, Type, ChildKind)] -> [(Identifier, Type, ChildKind)]
rule29 [(Identifier, Type, ChildKind)]
_lhsIallfields
_hdOallnts :: [Identifier]
_hdOallnts = [Identifier] -> [Identifier]
rule30 [Identifier]
_lhsIallnts
_hdOattrs :: [(Identifier, Identifier)]
_hdOattrs = [(Identifier, Identifier)] -> [(Identifier, Identifier)]
rule31 [(Identifier, Identifier)]
_lhsIattrs
_hdOcon :: Identifier
_hdOcon = Identifier -> Identifier
rule32 Identifier
_lhsIcon
_hdOinh :: Attributes
_hdOinh = Attributes -> Attributes
rule33 Attributes
_lhsIinh
_hdOinhMap :: Map Identifier Attributes
_hdOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule34 Map Identifier Attributes
_lhsIinhMap
_hdOmergeMap :: Map Identifier (Identifier, [Identifier])
_hdOmergeMap = Map Identifier (Identifier, [Identifier])
-> Map Identifier (Identifier, [Identifier])
rule35 Map Identifier (Identifier, [Identifier])
_lhsImergeMap
_hdOnt :: Identifier
_hdOnt = Identifier -> Identifier
rule36 Identifier
_lhsInt
_hdOo_unbox :: Bool
_hdOo_unbox = Bool -> Bool
rule37 Bool
_lhsIo_unbox
_hdOsyn :: Attributes
_hdOsyn = Attributes -> Attributes
rule38 Attributes
_lhsIsyn
_hdOsynMap :: Map Identifier Attributes
_hdOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule39 Map Identifier Attributes
_lhsIsynMap
_tlOallfields :: [(Identifier, Type, ChildKind)]
_tlOallfields = [(Identifier, Type, ChildKind)] -> [(Identifier, Type, ChildKind)]
rule40 [(Identifier, Type, ChildKind)]
_lhsIallfields
_tlOallnts :: [Identifier]
_tlOallnts = [Identifier] -> [Identifier]
rule41 [Identifier]
_lhsIallnts
_tlOattrs :: [(Identifier, Identifier)]
_tlOattrs = [(Identifier, Identifier)] -> [(Identifier, Identifier)]
rule42 [(Identifier, Identifier)]
_lhsIattrs
_tlOcon :: Identifier
_tlOcon = Identifier -> Identifier
rule43 Identifier
_lhsIcon
_tlOinh :: Attributes
_tlOinh = Attributes -> Attributes
rule44 Attributes
_lhsIinh
_tlOinhMap :: Map Identifier Attributes
_tlOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule45 Map Identifier Attributes
_lhsIinhMap
_tlOmergeMap :: Map Identifier (Identifier, [Identifier])
_tlOmergeMap = Map Identifier (Identifier, [Identifier])
-> Map Identifier (Identifier, [Identifier])
rule46 Map Identifier (Identifier, [Identifier])
_lhsImergeMap
_tlOnt :: Identifier
_tlOnt = Identifier -> Identifier
rule47 Identifier
_lhsInt
_tlOo_unbox :: Bool
_tlOo_unbox = Bool -> Bool
rule48 Bool
_lhsIo_unbox
_tlOsyn :: Attributes
_tlOsyn = Attributes -> Attributes
rule49 Attributes
_lhsIsyn
_tlOsynMap :: Map Identifier Attributes
_tlOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule50 Map Identifier Attributes
_lhsIsynMap
__result_ :: T_Children_vOut4
__result_ = [(Identifier, Attributes, Attributes)]
-> Map Identifier Attributes
-> Map Identifier Attributes
-> Seq Error
-> [(Identifier, Type, ChildKind)]
-> [AltAttr]
-> Seq CRule
-> Seq (Identifier, Attributes)
-> [Child]
-> Seq (Identifier, Identifier)
-> [CRule]
-> [Identifier]
-> T_Children_vOut4
T_Children_vOut4 [(Identifier, Attributes, Attributes)]
_lhsOattributes Map Identifier Attributes
_lhsOcollectChildrenInhs Map Identifier Attributes
_lhsOcollectChildrenSyns Seq Error
_lhsOerrors [(Identifier, Type, ChildKind)]
_lhsOfields [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Identifier, Attributes)
_lhsOinhs [Child]
_lhsOmirages Seq (Identifier, Identifier)
_lhsOnts [CRule]
_lhsOsinglevisits [Identifier]
_lhsOterminals
in T_Children_vOut4
__result_ )
in T_Children_v4 -> T_Children_s5
C_Children_s5 T_Children_v4
v4
{-# INLINE rule17 #-}
{-# LINE 679 "src-ag/Order.ag" #-}
rule17 = \ ((_hdIfield) :: (Identifier,Type,ChildKind)) ((_tlIfields) :: [(Identifier,Type,ChildKind)]) ->
{-# LINE 679 "src-ag/Order.ag" #-}
_hdIfield : _tlIfields
{-# LINE 522 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule18 #-}
{-# LINE 46 "src-ag/TfmToMirage.ag" #-}
rule18 = \ ((_hdImirage) :: Mirage.Child) ((_tlImirages) :: [Mirage.Child]) ->
{-# LINE 46 "src-ag/TfmToMirage.ag" #-}
_hdImirage : _tlImirages
{-# LINE 528 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule19 #-}
rule19 = \ ((_hdIattributes) :: [(Identifier,Attributes,Attributes)]) ((_tlIattributes) :: [(Identifier,Attributes,Attributes)]) ->
_hdIattributes ++ _tlIattributes
{-# INLINE rule20 #-}
rule20 = \ ((_hdIcollectChildrenInhs) :: Map Identifier Attributes ) ((_tlIcollectChildrenInhs) :: Map Identifier Attributes ) ->
_hdIcollectChildrenInhs `Map.union` _tlIcollectChildrenInhs
{-# INLINE rule21 #-}
rule21 = \ ((_hdIcollectChildrenSyns) :: Map Identifier Attributes ) ((_tlIcollectChildrenSyns) :: Map Identifier Attributes ) ->
_hdIcollectChildrenSyns `Map.union` _tlIcollectChildrenSyns
{-# INLINE rule22 #-}
rule22 = \ ((_hdIerrors) :: Seq Error) ((_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# INLINE rule23 #-}
rule23 = \ ((_hdIgathAltAttrs) :: [AltAttr]) ((_tlIgathAltAttrs) :: [AltAttr]) ->
_hdIgathAltAttrs ++ _tlIgathAltAttrs
{-# INLINE rule24 #-}
rule24 = \ ((_hdIgathRules) :: Seq CRule) ((_tlIgathRules) :: Seq CRule) ->
_hdIgathRules Seq.>< _tlIgathRules
{-# INLINE rule25 #-}
rule25 = \ ((_hdIinhs) :: Seq (Identifier,Attributes)) ((_tlIinhs) :: Seq (Identifier,Attributes)) ->
_hdIinhs Seq.>< _tlIinhs
{-# INLINE rule26 #-}
rule26 = \ ((_hdInts) :: Seq (Identifier,NontermIdent)) ((_tlInts) :: Seq (Identifier,NontermIdent)) ->
_hdInts Seq.>< _tlInts
{-# INLINE rule27 #-}
rule27 = \ ((_hdIsinglevisits) :: [CRule]) ((_tlIsinglevisits) :: [CRule]) ->
_hdIsinglevisits ++ _tlIsinglevisits
{-# INLINE rule28 #-}
rule28 = \ ((_hdIterminals) :: [Identifier]) ((_tlIterminals) :: [Identifier]) ->
_hdIterminals ++ _tlIterminals
{-# INLINE rule29 #-}
rule29 = \ ((_lhsIallfields) :: [(Identifier,Type,ChildKind)]) ->
_lhsIallfields
{-# INLINE rule30 #-}
rule30 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule31 #-}
rule31 = \ ((_lhsIattrs) :: [(Identifier,Identifier)]) ->
_lhsIattrs
{-# INLINE rule32 #-}
rule32 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule33 #-}
rule33 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule34 #-}
rule34 = \ ((_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# INLINE rule35 #-}
rule35 = \ ((_lhsImergeMap) :: Map Identifier (Identifier,[Identifier])) ->
_lhsImergeMap
{-# INLINE rule36 #-}
rule36 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule37 #-}
rule37 = \ ((_lhsIo_unbox) :: Bool) ->
_lhsIo_unbox
{-# INLINE rule38 #-}
rule38 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule39 #-}
rule39 = \ ((_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# INLINE rule40 #-}
rule40 = \ ((_lhsIallfields) :: [(Identifier,Type,ChildKind)]) ->
_lhsIallfields
{-# INLINE rule41 #-}
rule41 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule42 #-}
rule42 = \ ((_lhsIattrs) :: [(Identifier,Identifier)]) ->
_lhsIattrs
{-# INLINE rule43 #-}
rule43 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule44 #-}
rule44 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule45 #-}
rule45 = \ ((_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# INLINE rule46 #-}
rule46 = \ ((_lhsImergeMap) :: Map Identifier (Identifier,[Identifier])) ->
_lhsImergeMap
{-# INLINE rule47 #-}
rule47 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule48 #-}
rule48 = \ ((_lhsIo_unbox) :: Bool) ->
_lhsIo_unbox
{-# INLINE rule49 #-}
rule49 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule50 #-}
rule50 = \ ((_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE sem_Children_Nil #-}
sem_Children_Nil :: T_Children
sem_Children_Nil :: T_Children
sem_Children_Nil = Identity T_Children_s5 -> T_Children
T_Children (forall (m :: * -> *) a. Monad m => a -> m a
return T_Children_s5
st5) where
{-# NOINLINE st5 #-}
st5 :: T_Children_s5
st5 = let
v4 :: T_Children_v4
v4 :: T_Children_v4
v4 = \ (T_Children_vIn4 [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_unbox Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap) -> ( let
_lhsOfields :: [(Identifier,Type,ChildKind)]
_lhsOfields :: [(Identifier, Type, ChildKind)]
_lhsOfields = forall {a}. () -> [a]
rule51 ()
_lhsOmirages :: [Mirage.Child]
_lhsOmirages :: [Child]
_lhsOmirages = forall {a}. () -> [a]
rule52 ()
_lhsOattributes :: [(Identifier,Attributes,Attributes)]
_lhsOattributes :: [(Identifier, Attributes, Attributes)]
_lhsOattributes = forall {a}. () -> [a]
rule53 ()
_lhsOcollectChildrenInhs :: Map Identifier Attributes
_lhsOcollectChildrenInhs :: Map Identifier Attributes
_lhsOcollectChildrenInhs = forall {k} {a}. () -> Map k a
rule54 ()
_lhsOcollectChildrenSyns :: Map Identifier Attributes
_lhsOcollectChildrenSyns :: Map Identifier Attributes
_lhsOcollectChildrenSyns = forall {k} {a}. () -> Map k a
rule55 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = forall {a}. () -> Seq a
rule56 ()
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = forall {a}. () -> [a]
rule57 ()
_lhsOgathRules :: Seq CRule
_lhsOgathRules :: Seq CRule
_lhsOgathRules = forall {a}. () -> Seq a
rule58 ()
_lhsOinhs :: Seq (Identifier,Attributes)
_lhsOinhs :: Seq (Identifier, Attributes)
_lhsOinhs = forall {a}. () -> Seq a
rule59 ()
_lhsOnts :: Seq (Identifier,NontermIdent)
_lhsOnts :: Seq (Identifier, Identifier)
_lhsOnts = forall {a}. () -> Seq a
rule60 ()
_lhsOsinglevisits :: [CRule]
_lhsOsinglevisits :: [CRule]
_lhsOsinglevisits = forall {a}. () -> [a]
rule61 ()
_lhsOterminals :: [Identifier]
_lhsOterminals :: [Identifier]
_lhsOterminals = forall {a}. () -> [a]
rule62 ()
__result_ :: T_Children_vOut4
__result_ = [(Identifier, Attributes, Attributes)]
-> Map Identifier Attributes
-> Map Identifier Attributes
-> Seq Error
-> [(Identifier, Type, ChildKind)]
-> [AltAttr]
-> Seq CRule
-> Seq (Identifier, Attributes)
-> [Child]
-> Seq (Identifier, Identifier)
-> [CRule]
-> [Identifier]
-> T_Children_vOut4
T_Children_vOut4 [(Identifier, Attributes, Attributes)]
_lhsOattributes Map Identifier Attributes
_lhsOcollectChildrenInhs Map Identifier Attributes
_lhsOcollectChildrenSyns Seq Error
_lhsOerrors [(Identifier, Type, ChildKind)]
_lhsOfields [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Identifier, Attributes)
_lhsOinhs [Child]
_lhsOmirages Seq (Identifier, Identifier)
_lhsOnts [CRule]
_lhsOsinglevisits [Identifier]
_lhsOterminals
in T_Children_vOut4
__result_ )
in T_Children_v4 -> T_Children_s5
C_Children_s5 T_Children_v4
v4
{-# INLINE rule51 #-}
{-# LINE 680 "src-ag/Order.ag" #-}
rule51 = \ (_ :: ()) ->
{-# LINE 680 "src-ag/Order.ag" #-}
[]
{-# LINE 664 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule52 #-}
{-# LINE 47 "src-ag/TfmToMirage.ag" #-}
rule52 = \ (_ :: ()) ->
{-# LINE 47 "src-ag/TfmToMirage.ag" #-}
[]
{-# LINE 670 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule53 #-}
rule53 = \ (_ :: ()) ->
[]
{-# INLINE rule54 #-}
rule54 = \ (_ :: ()) ->
Map.empty
{-# INLINE rule55 #-}
rule55 = \ (_ :: ()) ->
Map.empty
{-# INLINE rule56 #-}
rule56 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule57 #-}
rule57 = \ (_ :: ()) ->
[]
{-# INLINE rule58 #-}
rule58 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule59 #-}
rule59 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule60 #-}
rule60 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule61 #-}
rule61 = \ (_ :: ()) ->
[]
{-# INLINE rule62 #-}
rule62 = \ (_ :: ()) ->
[]
data Inh_Expression = Inh_Expression { Inh_Expression -> [(Identifier, Type, ChildKind)]
allfields_Inh_Expression :: ([(Identifier,Type,ChildKind)]), Inh_Expression -> [Identifier]
allnts_Inh_Expression :: ([Identifier]), Inh_Expression -> [(Identifier, Identifier)]
attrs_Inh_Expression :: ([(Identifier,Identifier)]), Inh_Expression -> Identifier
con_Inh_Expression :: (Identifier), Inh_Expression -> Map Identifier (Identifier, [Identifier])
mergeMap_Inh_Expression :: (Map Identifier (Identifier,[Identifier])), Inh_Expression -> Identifier
nt_Inh_Expression :: (Identifier), Inh_Expression -> Options
options_Inh_Expression :: (Options) }
data Syn_Expression = Syn_Expression { Syn_Expression -> Set (Identifier, Identifier)
allRhsVars_Syn_Expression :: (Set (Identifier,Identifier)), Syn_Expression -> Expression
copy_Syn_Expression :: (Expression), Syn_Expression -> Seq Error
errors_Syn_Expression :: (Seq Error), Syn_Expression -> [String]
lns_Syn_Expression :: ([String]), Syn_Expression -> [String]
textLines_Syn_Expression :: ([String]), Syn_Expression -> [(Identifier, Identifier)]
usedAttrs_Syn_Expression :: ([(Identifier,Identifier)]), Syn_Expression -> [Identifier]
usedFields_Syn_Expression :: ([Identifier]), Syn_Expression -> [Identifier]
usedLocals_Syn_Expression :: ([Identifier]) }
{-# INLINABLE wrap_Expression #-}
wrap_Expression :: T_Expression -> Inh_Expression -> (Syn_Expression )
wrap_Expression :: T_Expression -> Inh_Expression -> Syn_Expression
wrap_Expression (T_Expression Identity T_Expression_s8
act) (Inh_Expression [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Options
_lhsIoptions) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Expression_s8
sem <- Identity T_Expression_s8
act
let arg7 :: T_Expression_vIn7
arg7 = [(Identifier, Type, ChildKind)]
-> [Identifier]
-> [(Identifier, Identifier)]
-> Identifier
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Options
-> T_Expression_vIn7
T_Expression_vIn7 [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Options
_lhsIoptions
(T_Expression_vOut7 Set (Identifier, Identifier)
_lhsOallRhsVars Expression
_lhsOcopy Seq Error
_lhsOerrors [String]
_lhsOlns [String]
_lhsOtextLines [(Identifier, Identifier)]
_lhsOusedAttrs [Identifier]
_lhsOusedFields [Identifier]
_lhsOusedLocals) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Expression_s8 -> T_Expression_v7
inv_Expression_s8 T_Expression_s8
sem T_Expression_vIn7
arg7)
forall (m :: * -> *) a. Monad m => a -> m a
return (Set (Identifier, Identifier)
-> Expression
-> Seq Error
-> [String]
-> [String]
-> [(Identifier, Identifier)]
-> [Identifier]
-> [Identifier]
-> Syn_Expression
Syn_Expression Set (Identifier, Identifier)
_lhsOallRhsVars Expression
_lhsOcopy Seq Error
_lhsOerrors [String]
_lhsOlns [String]
_lhsOtextLines [(Identifier, Identifier)]
_lhsOusedAttrs [Identifier]
_lhsOusedFields [Identifier]
_lhsOusedLocals)
)
{-# INLINE sem_Expression #-}
sem_Expression :: Expression -> T_Expression
sem_Expression :: Expression -> T_Expression
sem_Expression ( Expression Pos
pos_ HsTokens
tks_ ) = Pos -> HsTokens -> T_Expression
sem_Expression_Expression Pos
pos_ HsTokens
tks_
newtype T_Expression = T_Expression {
T_Expression -> Identity T_Expression_s8
attach_T_Expression :: Identity (T_Expression_s8 )
}
newtype T_Expression_s8 = C_Expression_s8 {
T_Expression_s8 -> T_Expression_v7
inv_Expression_s8 :: (T_Expression_v7 )
}
data T_Expression_s9 = C_Expression_s9
type T_Expression_v7 = (T_Expression_vIn7 ) -> (T_Expression_vOut7 )
data T_Expression_vIn7 = T_Expression_vIn7 ([(Identifier,Type,ChildKind)]) ([Identifier]) ([(Identifier,Identifier)]) (Identifier) (Map Identifier (Identifier,[Identifier])) (Identifier) (Options)
data T_Expression_vOut7 = T_Expression_vOut7 (Set (Identifier,Identifier)) (Expression) (Seq Error) ([String]) ([String]) ([(Identifier,Identifier)]) ([Identifier]) ([Identifier])
{-# NOINLINE sem_Expression_Expression #-}
sem_Expression_Expression :: (Pos) -> ([HsToken]) -> T_Expression
sem_Expression_Expression :: Pos -> HsTokens -> T_Expression
sem_Expression_Expression Pos
arg_pos_ HsTokens
arg_tks_ = Identity T_Expression_s8 -> T_Expression
T_Expression (forall (m :: * -> *) a. Monad m => a -> m a
return T_Expression_s8
st8) where
{-# NOINLINE st8 #-}
st8 :: T_Expression_s8
st8 = let
v7 :: T_Expression_v7
v7 :: T_Expression_v7
v7 = \ (T_Expression_vIn7 [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Options
_lhsIoptions) -> ( let
([String]
_textLines,[(Identifier, Identifier)]
_usedAttrs,[Identifier]
_usedLocals,[Identifier]
_usedFields) = [(Identifier, Type, ChildKind)]
-> [Identifier]
-> [(Identifier, Identifier)]
-> Identifier
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Options
-> HsTokens
-> ([String], [(Identifier, Identifier)], [Identifier],
[Identifier])
rule63 [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts [(Identifier, Identifier)]
_lhsIattrs Identifier
_lhsIcon Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Options
_lhsIoptions HsTokens
arg_tks_
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = forall {a}. () -> Seq a
rule64 ()
_lhsOallRhsVars :: Set (Identifier,Identifier)
_lhsOallRhsVars :: Set (Identifier, Identifier)
_lhsOallRhsVars = [(Identifier, Identifier)]
-> [Identifier] -> [Identifier] -> Set (Identifier, Identifier)
rule65 [(Identifier, Identifier)]
_usedAttrs [Identifier]
_usedFields [Identifier]
_usedLocals
_lhsOlns :: [String]
_lhsOlns :: [String]
_lhsOlns = HsTokens -> [String]
rule66 HsTokens
arg_tks_
_copy :: Expression
_copy = Pos -> HsTokens -> Expression
rule67 Pos
arg_pos_ HsTokens
arg_tks_
_lhsOcopy :: Expression
_lhsOcopy :: Expression
_lhsOcopy = forall {p}. p -> p
rule68 Expression
_copy
_lhsOtextLines :: [String]
_lhsOtextLines :: [String]
_lhsOtextLines = forall {p}. p -> p
rule69 [String]
_textLines
_lhsOusedAttrs :: [(Identifier,Identifier)]
_lhsOusedAttrs :: [(Identifier, Identifier)]
_lhsOusedAttrs = forall {p}. p -> p
rule70 [(Identifier, Identifier)]
_usedAttrs
_lhsOusedFields :: [Identifier]
_lhsOusedFields :: [Identifier]
_lhsOusedFields = forall {p}. p -> p
rule71 [Identifier]
_usedFields
_lhsOusedLocals :: [Identifier]
_lhsOusedLocals :: [Identifier]
_lhsOusedLocals = forall {p}. p -> p
rule72 [Identifier]
_usedLocals
__result_ :: T_Expression_vOut7
__result_ = Set (Identifier, Identifier)
-> Expression
-> Seq Error
-> [String]
-> [String]
-> [(Identifier, Identifier)]
-> [Identifier]
-> [Identifier]
-> T_Expression_vOut7
T_Expression_vOut7 Set (Identifier, Identifier)
_lhsOallRhsVars Expression
_lhsOcopy Seq Error
_lhsOerrors [String]
_lhsOlns [String]
_lhsOtextLines [(Identifier, Identifier)]
_lhsOusedAttrs [Identifier]
_lhsOusedFields [Identifier]
_lhsOusedLocals
in T_Expression_vOut7
__result_ )
in T_Expression_v7 -> T_Expression_s8
C_Expression_s8 T_Expression_v7
v7
{-# INLINE rule63 #-}
{-# LINE 469 "src-ag/Order.ag" #-}
rule63 = \ ((_lhsIallfields) :: [(Identifier,Type,ChildKind)]) ((_lhsIallnts) :: [Identifier]) ((_lhsIattrs) :: [(Identifier,Identifier)]) ((_lhsIcon) :: Identifier) ((_lhsImergeMap) :: Map Identifier (Identifier,[Identifier])) ((_lhsInt) :: Identifier) ((_lhsIoptions) :: Options) tks_ ->
{-# LINE 469 "src-ag/Order.ag" #-}
let mergedChildren = [ x | (_,xs) <- Map.elems _lhsImergeMap, x <- xs ]
attrsIn = filter (\(fld,_) -> not (fld `elem` mergedChildren)) _lhsIattrs
inherited = Inh_HsTokensRoot
{ attrs_Inh_HsTokensRoot = attrsIn
, con_Inh_HsTokensRoot = _lhsIcon
, allfields_Inh_HsTokensRoot = _lhsIallfields
, allnts_Inh_HsTokensRoot = _lhsIallnts
, nt_Inh_HsTokensRoot = _lhsInt
, options_Inh_HsTokensRoot = _lhsIoptions
}
synthesized = wrap_HsTokensRoot (sem_HsTokensRoot (HsTokensRoot tks_)) inherited
in case synthesized of
Syn_HsTokensRoot
{ textLines_Syn_HsTokensRoot = textLines
, usedAttrs_Syn_HsTokensRoot = usedAttrs
, usedLocals_Syn_HsTokensRoot = usedLocals
, usedFields_Syn_HsTokensRoot = usedFields
} -> let extraAttrs = [ (src,attr)
| (fld,attr) <- usedAttrs, let mbMerged = Map.lookup fld _lhsImergeMap, isJust mbMerged
, let (Just (_, srcs)) = mbMerged, src <- srcs ]
usedAttrs' = usedAttrs ++ extraAttrs
in (textLines,usedAttrs',usedLocals,usedFields)
{-# LINE 786 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule64 #-}
{-# LINE 492 "src-ag/Order.ag" #-}
rule64 = \ (_ :: ()) ->
{-# LINE 492 "src-ag/Order.ag" #-}
Seq.empty
{-# LINE 792 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule65 #-}
{-# LINE 493 "src-ag/Order.ag" #-}
rule65 = \ _usedAttrs _usedFields _usedLocals ->
{-# LINE 493 "src-ag/Order.ag" #-}
Set.fromList _usedAttrs
`Set.union`
Set.fromList [ (_LOC, l) | l <- _usedLocals ]
`Set.union`
Set.fromList [ (_FIELD, fld) | fld <- _usedFields ]
{-# LINE 802 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule66 #-}
{-# LINE 71 "src-ag/TfmToMirage.ag" #-}
rule66 = \ tks_ ->
{-# LINE 71 "src-ag/TfmToMirage.ag" #-}
showTokens . tokensToStrings $ tks_
{-# LINE 808 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule67 #-}
rule67 = \ pos_ tks_ ->
Expression pos_ tks_
{-# INLINE rule68 #-}
rule68 = \ _copy ->
_copy
{-# INLINE rule69 #-}
rule69 = \ _textLines ->
_textLines
{-# INLINE rule70 #-}
rule70 = \ _usedAttrs ->
_usedAttrs
{-# INLINE rule71 #-}
rule71 = \ _usedFields ->
_usedFields
{-# INLINE rule72 #-}
rule72 = \ _usedLocals ->
_usedLocals
data Inh_Grammar = Inh_Grammar { Inh_Grammar -> Options
options_Inh_Grammar :: (Options) }
data Syn_Grammar = Syn_Grammar { Syn_Grammar -> Seq Error
errors_Syn_Grammar :: (Seq Error), Syn_Grammar -> Grammar
mirage_Syn_Grammar :: (Mirage.Grammar), Syn_Grammar -> Int
nAutoRules_Syn_Grammar :: (Int), Syn_Grammar -> Int
nExplicitRules_Syn_Grammar :: (Int), Syn_Grammar -> CGrammar
output_Syn_Grammar :: (CGrammar) }
{-# INLINABLE wrap_Grammar #-}
wrap_Grammar :: T_Grammar -> Inh_Grammar -> (Syn_Grammar )
wrap_Grammar :: T_Grammar -> Inh_Grammar -> Syn_Grammar
wrap_Grammar (T_Grammar Identity T_Grammar_s11
act) (Inh_Grammar Options
_lhsIoptions) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Grammar_s11
sem <- Identity T_Grammar_s11
act
let arg10 :: T_Grammar_vIn10
arg10 = Options -> T_Grammar_vIn10
T_Grammar_vIn10 Options
_lhsIoptions
(T_Grammar_vOut10 Seq Error
_lhsOerrors Grammar
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules CGrammar
_lhsOoutput) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Grammar_s11 -> T_Grammar_v10
inv_Grammar_s11 T_Grammar_s11
sem T_Grammar_vIn10
arg10)
forall (m :: * -> *) a. Monad m => a -> m a
return (Seq Error -> Grammar -> Int -> Int -> CGrammar -> Syn_Grammar
Syn_Grammar Seq Error
_lhsOerrors Grammar
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules CGrammar
_lhsOoutput)
)
{-# INLINE sem_Grammar #-}
sem_Grammar :: Grammar -> T_Grammar
sem_Grammar :: Grammar -> T_Grammar
sem_Grammar ( Grammar TypeSyns
typeSyns_ UseMap
useMap_ Map Identifier (Set Identifier)
derivings_ Set Identifier
wrappers_ Nonterminals
nonts_ Map Identifier (Map Identifier (Set Identifier))
pragmas_ AttrOrderMap
manualAttrOrderMap_ ParamMap
paramMap_ ContextMap
contextMap_ QuantMap
quantMap_ UniqueMap
uniqueMap_ Map Identifier (Map Identifier (Map Identifier [Expression]))
augmentsMap_ Map Identifier (Map Identifier (Map Identifier [Expression]))
aroundsMap_ Map
Identifier
(Map
Identifier (Map Identifier (Identifier, [Identifier], Expression)))
mergeMap_ ) = TypeSyns
-> UseMap
-> Map Identifier (Set Identifier)
-> Set Identifier
-> T_Nonterminals
-> Map Identifier (Map Identifier (Set Identifier))
-> AttrOrderMap
-> ParamMap
-> ContextMap
-> QuantMap
-> UniqueMap
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> Map
Identifier
(Map
Identifier (Map Identifier (Identifier, [Identifier], Expression)))
-> T_Grammar
sem_Grammar_Grammar TypeSyns
typeSyns_ UseMap
useMap_ Map Identifier (Set Identifier)
derivings_ Set Identifier
wrappers_ ( Nonterminals -> T_Nonterminals
sem_Nonterminals Nonterminals
nonts_ ) Map Identifier (Map Identifier (Set Identifier))
pragmas_ AttrOrderMap
manualAttrOrderMap_ ParamMap
paramMap_ ContextMap
contextMap_ QuantMap
quantMap_ UniqueMap
uniqueMap_ Map Identifier (Map Identifier (Map Identifier [Expression]))
augmentsMap_ Map Identifier (Map Identifier (Map Identifier [Expression]))
aroundsMap_ Map
Identifier
(Map
Identifier (Map Identifier (Identifier, [Identifier], Expression)))
mergeMap_
newtype T_Grammar = T_Grammar {
T_Grammar -> Identity T_Grammar_s11
attach_T_Grammar :: Identity (T_Grammar_s11 )
}
newtype T_Grammar_s11 = C_Grammar_s11 {
T_Grammar_s11 -> T_Grammar_v10
inv_Grammar_s11 :: (T_Grammar_v10 )
}
data T_Grammar_s12 = C_Grammar_s12
type T_Grammar_v10 = (T_Grammar_vIn10 ) -> (T_Grammar_vOut10 )
data T_Grammar_vIn10 = T_Grammar_vIn10 (Options)
data T_Grammar_vOut10 = T_Grammar_vOut10 (Seq Error) (Mirage.Grammar) (Int) (Int) (CGrammar)
{-# NOINLINE sem_Grammar_Grammar #-}
sem_Grammar_Grammar :: (TypeSyns) -> (UseMap) -> (Derivings) -> (Set NontermIdent) -> T_Nonterminals -> (PragmaMap) -> (AttrOrderMap) -> (ParamMap) -> (ContextMap) -> (QuantMap) -> (UniqueMap) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) -> T_Grammar
sem_Grammar_Grammar :: TypeSyns
-> UseMap
-> Map Identifier (Set Identifier)
-> Set Identifier
-> T_Nonterminals
-> Map Identifier (Map Identifier (Set Identifier))
-> AttrOrderMap
-> ParamMap
-> ContextMap
-> QuantMap
-> UniqueMap
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> Map
Identifier
(Map
Identifier (Map Identifier (Identifier, [Identifier], Expression)))
-> T_Grammar
sem_Grammar_Grammar TypeSyns
arg_typeSyns_ UseMap
_ Map Identifier (Set Identifier)
arg_derivings_ Set Identifier
arg_wrappers_ T_Nonterminals
arg_nonts_ Map Identifier (Map Identifier (Set Identifier))
arg_pragmas_ AttrOrderMap
arg_manualAttrOrderMap_ ParamMap
arg_paramMap_ ContextMap
arg_contextMap_ QuantMap
arg_quantMap_ UniqueMap
_ Map Identifier (Map Identifier (Map Identifier [Expression]))
_ Map Identifier (Map Identifier (Map Identifier [Expression]))
arg_aroundsMap_ Map
Identifier
(Map
Identifier (Map Identifier (Identifier, [Identifier], Expression)))
arg_mergeMap_ = Identity T_Grammar_s11 -> T_Grammar
T_Grammar (forall (m :: * -> *) a. Monad m => a -> m a
return T_Grammar_s11
st11) where
{-# NOINLINE st11 #-}
st11 :: T_Grammar_s11
st11 = let
v10 :: T_Grammar_v10
v10 :: T_Grammar_v10
v10 = \ (T_Grammar_vIn10 Options
_lhsIoptions) -> ( let
_nontsX17 :: T_Nonterminals_s17
_nontsX17 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Nonterminals -> Identity T_Nonterminals_s17
attach_T_Nonterminals (T_Nonterminals
arg_nonts_))
(T_Nonterminals_vOut16 Int
_nontsIacount Seq (Int, Int)
_nontsIadditionalDep Seq (Int, Int, Int)
_nontsIaranges Seq (Int, Int)
_nontsIaroundDep CNonterminals
_nontsIcNonterminals Seq (Int, Int)
_nontsIdirectDep Seq Error
_nontsIerrors Map Identifier Attributes
_nontsIinhMap' Seq (Int, Int)
_nontsIinstDep Seq (Int, Int)
_nontsImergeDep [Nonterminal]
_nontsImirages Int
_nontsInAutoRules Int
_nontsInExplicitRules [(Identifier, [Identifier])]
_nontsInonts Seq (Int, NTAttr)
_nontsIntattrs Seq (Int, CRule)
_nontsIrules Map Identifier Attributes
_nontsIsynMap' Int
_nontsIvcount) = T_Nonterminals_s17 -> T_Nonterminals_v16
inv_Nonterminals_s17 T_Nonterminals_s17
_nontsX17 (Int
-> [Identifier]
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> CInterfaceMap
-> CVisitsMap
-> Map Identifier Attributes
-> AttrOrderMap
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Map Identifier Attributes
-> Int
-> T_Nonterminals_vIn16
T_Nonterminals_vIn16 Int
_nontsOacount [Identifier]
_nontsOallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_nontsOaroundMap CInterfaceMap
_nontsOcInterfaceMap CVisitsMap
_nontsOcVisitsMap Map Identifier Attributes
_nontsOinhMap AttrOrderMap
_nontsOmanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_nontsOmergeMap Bool
_nontsOo_case Bool
_nontsOo_cata Bool
_nontsOo_data Bool
_nontsOo_dovisit Bool
_nontsOo_newtypes Bool
_nontsOo_rename Bool
_nontsOo_sem Bool
_nontsOo_sig Bool
_nontsOo_unbox Bool
_nontsOo_wantvisit Options
_nontsOoptions String
_nontsOprefix Map Identifier Attributes
_nontsOsynMap Int
_nontsOvcount)
_nontsOinhMap :: Map Identifier Attributes
_nontsOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule73 Map Identifier Attributes
_nontsIinhMap'
_nontsOsynMap :: Map Identifier Attributes
_nontsOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule74 Map Identifier Attributes
_nontsIsynMap'
_o_dovisit :: Bool
_o_dovisit = forall {a}. [a] -> Options -> Bool
rule75 [Error]
_cyclesErrors Options
_lhsIoptions
_nontsOo_cata :: Bool
_nontsOo_cata = Options -> Bool
rule76 Options
_lhsIoptions
_nontsOo_data :: Bool
_nontsOo_data = Options -> Bool
rule77 Options
_lhsIoptions
_nontsOo_sig :: Bool
_nontsOo_sig = Options -> Bool
rule78 Options
_lhsIoptions
_nontsOo_sem :: Bool
_nontsOo_sem = Options -> Bool
rule79 Options
_lhsIoptions
_nontsOo_rename :: Bool
_nontsOo_rename = Options -> Bool
rule80 Options
_lhsIoptions
_nontsOo_newtypes :: Bool
_nontsOo_newtypes = Options -> Bool
rule81 Options
_lhsIoptions
_nontsOo_wantvisit :: Bool
_nontsOo_wantvisit = Options -> Bool
rule82 Options
_lhsIoptions
_nontsOo_unbox :: Bool
_nontsOo_unbox = Options -> Bool
rule83 Options
_lhsIoptions
_nontsOo_case :: Bool
_nontsOo_case = Options -> Bool
rule84 Options
_lhsIoptions
_nontsOprefix :: String
_nontsOprefix = Options -> String
rule85 Options
_lhsIoptions
_nontsOvcount :: Int
_nontsOvcount = () -> Int
rule86 ()
_nontsOmanualAttrDepMap :: AttrOrderMap
_nontsOmanualAttrDepMap = forall {p}. p -> p
rule87 AttrOrderMap
arg_manualAttrOrderMap_
_nontsOaroundMap :: Map Identifier (Map Identifier (Map Identifier [Expression]))
_nontsOaroundMap = forall {p}. p -> p
rule88 Map Identifier (Map Identifier (Map Identifier [Expression]))
arg_aroundsMap_
_nontsOacount :: Int
_nontsOacount = () -> Int
rule89 ()
_ruleTable :: Array Int CRule
_ruleTable = Seq (Int, CRule) -> Int -> Array Int CRule
rule90 Seq (Int, CRule)
_nontsIrules Int
_nontsIvcount
_attrTable :: Array Int NTAttr
_attrTable = Int -> Seq (Int, NTAttr) -> Array Int NTAttr
rule91 Int
_nontsIacount Seq (Int, NTAttr)
_nontsIntattrs
_attrVertex :: Map NTAttr Int
_attrVertex = Seq (Int, NTAttr) -> Map NTAttr Int
rule92 Seq (Int, NTAttr)
_nontsIntattrs
_tdpToTds :: [(Int, Int)]
_tdpToTds = Map NTAttr Int -> Seq (Int, CRule) -> [(Int, Int)]
rule93 Map NTAttr Int
_attrVertex Seq (Int, CRule)
_nontsIrules
_tdsToTdp :: [(Int, [Int])]
_tdsToTdp = forall {a}. [(a, Int)] -> [(Int, [a])]
rule94 [(Int, Int)]
_tdpToTds
_directDep :: [(Int, Int)]
_directDep = Seq (Int, Int) -> Seq (Int, Int) -> [(Int, Int)]
rule95 Seq (Int, Int)
_nontsIadditionalDep Seq (Int, Int)
_nontsIdirectDep
_instDep :: [(Int, Int)]
_instDep = Seq (Int, Int) -> [(Int, Int)]
rule96 Seq (Int, Int)
_nontsIinstDep
_aroundDep :: [(Int, Int)]
_aroundDep = Seq (Int, Int) -> [(Int, Int)]
rule97 Seq (Int, Int)
_nontsIaroundDep
_mergeDep :: [(Int, Int)]
_mergeDep = Seq (Int, Int) -> [(Int, Int)]
rule98 Seq (Int, Int)
_nontsImergeDep
_info :: Info
_info = Array Int NTAttr
-> Int
-> Seq (Int, Int, Int)
-> [(Identifier, [Identifier])]
-> Int
-> Array Int CRule
-> [(Int, Int)]
-> [(Int, [Int])]
-> Set Identifier
-> Info
rule99 Array Int NTAttr
_attrTable Int
_nontsIacount Seq (Int, Int, Int)
_nontsIaranges [(Identifier, [Identifier])]
_nontsInonts Int
_nontsIvcount Array Int CRule
_ruleTable [(Int, Int)]
_tdpToTds [(Int, [Int])]
_tdsToTdp Set Identifier
arg_wrappers_
(CInterfaceMap
_cInterfaceMap,CVisitsMap
_cVisitsMap,[Error]
_cyclesErrors) = [(Int, Int)]
-> Array Int NTAttr
-> [(Int, Int)]
-> Info
-> [(Int, Int)]
-> Options
-> [(Int, Int)]
-> Array Int CRule
-> (CInterfaceMap, CVisitsMap, [Error])
rule100 [(Int, Int)]
_aroundDep Array Int NTAttr
_attrTable [(Int, Int)]
_directDep Info
_info [(Int, Int)]
_instDep Options
_lhsIoptions [(Int, Int)]
_mergeDep Array Int CRule
_ruleTable
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = [Error] -> Options -> Seq Error -> Seq Error
rule101 [Error]
_cyclesErrors Options
_lhsIoptions Seq Error
_nontsIerrors
_lhsOoutput :: CGrammar
_lhsOoutput :: CGrammar
_lhsOoutput = Map Identifier (Map Identifier (Set Identifier))
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> CNonterminals
-> Bool
-> ContextMap
-> Map Identifier (Set Identifier)
-> ParamMap
-> Map Identifier (Map Identifier (Set Identifier))
-> QuantMap
-> TypeSyns
-> Set Identifier
-> CGrammar
rule102 Map Identifier (Map Identifier (Set Identifier))
_aroundMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_mergeMap CNonterminals
_nontsIcNonterminals Bool
_o_dovisit ContextMap
arg_contextMap_ Map Identifier (Set Identifier)
arg_derivings_ ParamMap
arg_paramMap_ Map Identifier (Map Identifier (Set Identifier))
arg_pragmas_ QuantMap
arg_quantMap_ TypeSyns
arg_typeSyns_ Set Identifier
arg_wrappers_
_aroundMap :: Map Identifier (Map Identifier (Set Identifier))
_aroundMap = forall {k} {k} {k} {a}.
Map k (Map k (Map k a)) -> Map k (Map k (Set k))
rule103 Map Identifier (Map Identifier (Map Identifier [Expression]))
arg_aroundsMap_
_mergeMap :: Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_mergeMap = forall {k} {k} {k} {a} {b} {c}.
Map k (Map k (Map k (a, b, c))) -> Map k (Map k (Map k (a, b)))
rule104 Map
Identifier
(Map
Identifier (Map Identifier (Identifier, [Identifier], Expression)))
arg_mergeMap_
_nontsOallnts :: [Identifier]
_nontsOallnts = [(Identifier, [Identifier])] -> [Identifier]
rule105 [(Identifier, [Identifier])]
_nontsInonts
_lhsOmirage :: Mirage.Grammar
_lhsOmirage :: Grammar
_lhsOmirage = [Nonterminal] -> Grammar
rule106 [Nonterminal]
_nontsImirages
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = Int -> Int
rule107 Int
_nontsInAutoRules
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = Int -> Int
rule108 Int
_nontsInExplicitRules
_nontsOcInterfaceMap :: CInterfaceMap
_nontsOcInterfaceMap = forall {p}. p -> p
rule109 CInterfaceMap
_cInterfaceMap
_nontsOcVisitsMap :: CVisitsMap
_nontsOcVisitsMap = forall {p}. p -> p
rule110 CVisitsMap
_cVisitsMap
_nontsOmergeMap :: Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_nontsOmergeMap = forall {p}. p -> p
rule111 Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_mergeMap
_nontsOo_dovisit :: Bool
_nontsOo_dovisit = forall {p}. p -> p
rule112 Bool
_o_dovisit
_nontsOoptions :: Options
_nontsOoptions = Options -> Options
rule113 Options
_lhsIoptions
__result_ :: T_Grammar_vOut10
__result_ = Seq Error -> Grammar -> Int -> Int -> CGrammar -> T_Grammar_vOut10
T_Grammar_vOut10 Seq Error
_lhsOerrors Grammar
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules CGrammar
_lhsOoutput
in T_Grammar_vOut10
__result_ )
in T_Grammar_v10 -> T_Grammar_s11
C_Grammar_s11 T_Grammar_v10
v10
{-# INLINE rule73 #-}
{-# LINE 15 "src-ag/DistChildAttr.ag" #-}
rule73 = \ ((_nontsIinhMap') :: Map Identifier Attributes) ->
{-# LINE 15 "src-ag/DistChildAttr.ag" #-}
_nontsIinhMap'
{-# LINE 921 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule74 #-}
{-# LINE 16 "src-ag/DistChildAttr.ag" #-}
rule74 = \ ((_nontsIsynMap') :: Map Identifier Attributes) ->
{-# LINE 16 "src-ag/DistChildAttr.ag" #-}
_nontsIsynMap'
{-# LINE 927 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule75 #-}
{-# LINE 123 "src-ag/Order.ag" #-}
rule75 = \ _cyclesErrors ((_lhsIoptions) :: Options) ->
{-# LINE 123 "src-ag/Order.ag" #-}
visit _lhsIoptions && null _cyclesErrors
{-# LINE 933 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule76 #-}
{-# LINE 124 "src-ag/Order.ag" #-}
rule76 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 124 "src-ag/Order.ag" #-}
folds _lhsIoptions
{-# LINE 939 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule77 #-}
{-# LINE 125 "src-ag/Order.ag" #-}
rule77 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 125 "src-ag/Order.ag" #-}
dataTypes _lhsIoptions
{-# LINE 945 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule78 #-}
{-# LINE 126 "src-ag/Order.ag" #-}
rule78 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 126 "src-ag/Order.ag" #-}
typeSigs _lhsIoptions
{-# LINE 951 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule79 #-}
{-# LINE 127 "src-ag/Order.ag" #-}
rule79 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 127 "src-ag/Order.ag" #-}
semfuns _lhsIoptions
{-# LINE 957 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule80 #-}
{-# LINE 128 "src-ag/Order.ag" #-}
rule80 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 128 "src-ag/Order.ag" #-}
rename _lhsIoptions
{-# LINE 963 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule81 #-}
{-# LINE 129 "src-ag/Order.ag" #-}
rule81 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 129 "src-ag/Order.ag" #-}
newtypes _lhsIoptions
{-# LINE 969 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule82 #-}
{-# LINE 130 "src-ag/Order.ag" #-}
rule82 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 130 "src-ag/Order.ag" #-}
visit _lhsIoptions
{-# LINE 975 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule83 #-}
{-# LINE 131 "src-ag/Order.ag" #-}
rule83 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 131 "src-ag/Order.ag" #-}
unbox _lhsIoptions
{-# LINE 981 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule84 #-}
{-# LINE 132 "src-ag/Order.ag" #-}
rule84 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 132 "src-ag/Order.ag" #-}
cases _lhsIoptions
{-# LINE 987 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule85 #-}
{-# LINE 133 "src-ag/Order.ag" #-}
rule85 = \ ((_lhsIoptions) :: Options) ->
{-# LINE 133 "src-ag/Order.ag" #-}
prefix _lhsIoptions
{-# LINE 993 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule86 #-}
{-# LINE 262 "src-ag/Order.ag" #-}
rule86 = \ (_ :: ()) ->
{-# LINE 262 "src-ag/Order.ag" #-}
0
{-# LINE 999 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule87 #-}
{-# LINE 288 "src-ag/Order.ag" #-}
rule87 = \ manualAttrOrderMap_ ->
{-# LINE 288 "src-ag/Order.ag" #-}
manualAttrOrderMap_
{-# LINE 1005 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule88 #-}
{-# LINE 417 "src-ag/Order.ag" #-}
rule88 = \ aroundsMap_ ->
{-# LINE 417 "src-ag/Order.ag" #-}
aroundsMap_
{-# LINE 1011 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule89 #-}
{-# LINE 508 "src-ag/Order.ag" #-}
rule89 = \ (_ :: ()) ->
{-# LINE 508 "src-ag/Order.ag" #-}
0
{-# LINE 1017 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule90 #-}
{-# LINE 546 "src-ag/Order.ag" #-}
rule90 = \ ((_nontsIrules) :: Seq (Vertex,CRule)) ((_nontsIvcount) :: Int) ->
{-# LINE 546 "src-ag/Order.ag" #-}
Array.array (0,_nontsIvcount-1) (toList _nontsIrules)
{-# LINE 1023 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule91 #-}
{-# LINE 547 "src-ag/Order.ag" #-}
rule91 = \ ((_nontsIacount) :: Int) ((_nontsIntattrs) :: Seq (Vertex,NTAttr)) ->
{-# LINE 547 "src-ag/Order.ag" #-}
Array.array (0,_nontsIacount-1) (toList _nontsIntattrs)
{-# LINE 1029 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule92 #-}
{-# LINE 548 "src-ag/Order.ag" #-}
rule92 = \ ((_nontsIntattrs) :: Seq (Vertex,NTAttr)) ->
{-# LINE 548 "src-ag/Order.ag" #-}
Map.fromList (map swap (toList _nontsIntattrs))
{-# LINE 1035 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule93 #-}
{-# LINE 549 "src-ag/Order.ag" #-}
rule93 = \ _attrVertex ((_nontsIrules) :: Seq (Vertex,CRule)) ->
{-# LINE 549 "src-ag/Order.ag" #-}
[ (s, maybe (-1) (\v -> findWithErr1 "Grammar.tdpToTds" v _attrVertex) (ntattr cr))
| (s,cr) <- toList _nontsIrules]
{-# LINE 1042 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule94 #-}
{-# LINE 551 "src-ag/Order.ag" #-}
rule94 = \ _tdpToTds ->
{-# LINE 551 "src-ag/Order.ag" #-}
let eq (_,v) (_,v') = v == v'
conv ((s,v):svs) | v == -1 = Nothing
| otherwise = Just (v,s:map fst svs)
in mapMaybe conv (eqClasses eq _tdpToTds)
{-# LINE 1051 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule95 #-}
{-# LINE 555 "src-ag/Order.ag" #-}
rule95 = \ ((_nontsIadditionalDep) :: Seq Edge) ((_nontsIdirectDep) :: Seq Edge) ->
{-# LINE 555 "src-ag/Order.ag" #-}
toList (_nontsIdirectDep Seq.>< _nontsIadditionalDep)
{-# LINE 1057 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule96 #-}
{-# LINE 556 "src-ag/Order.ag" #-}
rule96 = \ ((_nontsIinstDep) :: Seq Edge) ->
{-# LINE 556 "src-ag/Order.ag" #-}
toList _nontsIinstDep
{-# LINE 1063 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule97 #-}
{-# LINE 557 "src-ag/Order.ag" #-}
rule97 = \ ((_nontsIaroundDep) :: Seq Edge) ->
{-# LINE 557 "src-ag/Order.ag" #-}
toList _nontsIaroundDep
{-# LINE 1069 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule98 #-}
{-# LINE 558 "src-ag/Order.ag" #-}
rule98 = \ ((_nontsImergeDep) :: Seq Edge) ->
{-# LINE 558 "src-ag/Order.ag" #-}
toList _nontsImergeDep
{-# LINE 1075 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule99 #-}
{-# LINE 559 "src-ag/Order.ag" #-}
rule99 = \ _attrTable ((_nontsIacount) :: Int) ((_nontsIaranges) :: Seq (Int,Int,Int)) ((_nontsInonts) :: [(NontermIdent,[ConstructorIdent])]) ((_nontsIvcount) :: Int) _ruleTable _tdpToTds _tdsToTdp wrappers_ ->
{-# LINE 559 "src-ag/Order.ag" #-}
let def [] = -1
def (v:vs) = v
in Info { tdsToTdp = Array.array (0,_nontsIacount-1) _tdsToTdp
, tdpToTds = Array.array (0,_nontsIvcount-1) _tdpToTds
, attrTable = _attrTable
, ruleTable = _ruleTable
, lmh = toList _nontsIaranges
, nonts = _nontsInonts
, wraps = wrappers_
}
{-# LINE 1090 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule100 #-}
{-# LINE 571 "src-ag/Order.ag" #-}
rule100 = \ _aroundDep _attrTable _directDep _info _instDep ((_lhsIoptions) :: Options) _mergeDep _ruleTable ->
{-# LINE 571 "src-ag/Order.ag" #-}
case computeSequential _info _directDep (_instDep ++ _aroundDep ++ _mergeDep ) of
CycleFree cim cvm -> ( cim
, cvm
, []
)
LocalCycle errs -> ( error "No interfaces for AG with local cycles"
, error "No visit sub-sequences for AG with local cycles"
, map (localCycleErr _ruleTable (visit _lhsIoptions)) errs
)
InstCycle errs -> ( error "No interfaces for AG with cycles through insts"
, error "No visit sub-sequences for AG with cycles through insts"
, map (instCycleErr _ruleTable (visit _lhsIoptions)) errs
)
DirectCycle errs -> ( error "No interfaces for AG with direct cycles"
, error "No visit sub-sequences for AG with direct cycles"
, directCycleErrs _attrTable _ruleTable (visit _lhsIoptions) errs
)
InducedCycle cim errs -> ( cim
, error "No visit sub-sequences for AG with induced cycles"
, inducedCycleErrs _attrTable _ruleTable cim errs
)
{-# LINE 1116 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule101 #-}
{-# LINE 592 "src-ag/Order.ag" #-}
rule101 = \ _cyclesErrors ((_lhsIoptions) :: Options) ((_nontsIerrors) :: Seq Error) ->
{-# LINE 592 "src-ag/Order.ag" #-}
(if withCycle _lhsIoptions then Seq.fromList _cyclesErrors else Seq.empty)
Seq.>< _nontsIerrors
{-# LINE 1123 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule102 #-}
{-# LINE 624 "src-ag/Order.ag" #-}
rule102 = \ _aroundMap _mergeMap ((_nontsIcNonterminals) :: CNonterminals) _o_dovisit contextMap_ derivings_ paramMap_ pragmas_ quantMap_ typeSyns_ wrappers_ ->
{-# LINE 624 "src-ag/Order.ag" #-}
CGrammar typeSyns_ derivings_ wrappers_ _nontsIcNonterminals pragmas_ paramMap_ contextMap_ quantMap_ _aroundMap _mergeMap _o_dovisit
{-# LINE 1129 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule103 #-}
{-# LINE 637 "src-ag/Order.ag" #-}
rule103 = \ aroundsMap_ ->
{-# LINE 637 "src-ag/Order.ag" #-}
Map.map (Map.map Map.keysSet) aroundsMap_
{-# LINE 1135 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule104 #-}
{-# LINE 638 "src-ag/Order.ag" #-}
rule104 = \ mergeMap_ ->
{-# LINE 638 "src-ag/Order.ag" #-}
Map.map (Map.map (Map.map (\(nt,srcs,_) -> (nt,srcs)))) mergeMap_
{-# LINE 1141 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule105 #-}
{-# LINE 655 "src-ag/Order.ag" #-}
rule105 = \ ((_nontsInonts) :: [(NontermIdent,[ConstructorIdent])]) ->
{-# LINE 655 "src-ag/Order.ag" #-}
map fst (_nontsInonts)
{-# LINE 1147 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule106 #-}
{-# LINE 22 "src-ag/TfmToMirage.ag" #-}
rule106 = \ ((_nontsImirages) :: [Mirage.Nonterminal]) ->
{-# LINE 22 "src-ag/TfmToMirage.ag" #-}
Mirage.Grammar _nontsImirages
{-# LINE 1153 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule107 #-}
rule107 = \ ((_nontsInAutoRules) :: Int) ->
_nontsInAutoRules
{-# INLINE rule108 #-}
rule108 = \ ((_nontsInExplicitRules) :: Int) ->
_nontsInExplicitRules
{-# INLINE rule109 #-}
rule109 = \ _cInterfaceMap ->
_cInterfaceMap
{-# INLINE rule110 #-}
rule110 = \ _cVisitsMap ->
_cVisitsMap
{-# INLINE rule111 #-}
rule111 = \ _mergeMap ->
_mergeMap
{-# INLINE rule112 #-}
rule112 = \ _o_dovisit ->
_o_dovisit
{-# INLINE rule113 #-}
rule113 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
data Inh_Nonterminal = Inh_Nonterminal { Inh_Nonterminal -> Int
acount_Inh_Nonterminal :: (Int), Inh_Nonterminal -> [Identifier]
allnts_Inh_Nonterminal :: ([Identifier]), Inh_Nonterminal
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
aroundMap_Inh_Nonterminal :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))), Inh_Nonterminal -> CInterfaceMap
cInterfaceMap_Inh_Nonterminal :: (CInterfaceMap), Inh_Nonterminal -> CVisitsMap
cVisitsMap_Inh_Nonterminal :: (CVisitsMap), Inh_Nonterminal -> Map Identifier Attributes
inhMap_Inh_Nonterminal :: (Map Identifier Attributes), Inh_Nonterminal -> AttrOrderMap
manualAttrDepMap_Inh_Nonterminal :: (AttrOrderMap), Inh_Nonterminal
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
mergeMap_Inh_Nonterminal :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))), Inh_Nonterminal -> Bool
o_case_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_cata_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_data_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_dovisit_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_newtypes_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_rename_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_sem_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_sig_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_unbox_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Bool
o_wantvisit_Inh_Nonterminal :: (Bool), Inh_Nonterminal -> Options
options_Inh_Nonterminal :: (Options), Inh_Nonterminal -> String
prefix_Inh_Nonterminal :: (String), Inh_Nonterminal -> Map Identifier Attributes
synMap_Inh_Nonterminal :: (Map Identifier Attributes), Inh_Nonterminal -> Int
vcount_Inh_Nonterminal :: (Int) }
data Syn_Nonterminal = Syn_Nonterminal { Syn_Nonterminal -> Int
acount_Syn_Nonterminal :: (Int), Syn_Nonterminal -> Seq (Int, Int)
additionalDep_Syn_Nonterminal :: (Seq Edge), Syn_Nonterminal -> Seq (Int, Int, Int)
aranges_Syn_Nonterminal :: (Seq (Int,Int,Int)), Syn_Nonterminal -> Seq (Int, Int)
aroundDep_Syn_Nonterminal :: (Seq Edge), Syn_Nonterminal -> CNonterminal
cNonterminal_Syn_Nonterminal :: (CNonterminal), Syn_Nonterminal -> Seq (Int, Int)
directDep_Syn_Nonterminal :: (Seq Edge), Syn_Nonterminal -> Seq Error
errors_Syn_Nonterminal :: (Seq Error), Syn_Nonterminal -> Map Identifier Attributes
inhMap'_Syn_Nonterminal :: (Map Identifier Attributes), Syn_Nonterminal -> Seq (Int, Int)
instDep_Syn_Nonterminal :: (Seq Edge), Syn_Nonterminal -> Seq (Int, Int)
mergeDep_Syn_Nonterminal :: (Seq Edge), Syn_Nonterminal -> Nonterminal
mirage_Syn_Nonterminal :: (Mirage.Nonterminal), Syn_Nonterminal -> Int
nAutoRules_Syn_Nonterminal :: (Int), Syn_Nonterminal -> Int
nExplicitRules_Syn_Nonterminal :: (Int), Syn_Nonterminal -> [(Identifier, [Identifier])]
nonts_Syn_Nonterminal :: ([(NontermIdent,[ConstructorIdent])]), Syn_Nonterminal -> Seq (Int, NTAttr)
ntattrs_Syn_Nonterminal :: (Seq (Vertex,NTAttr)), Syn_Nonterminal -> Seq (Int, CRule)
rules_Syn_Nonterminal :: (Seq (Vertex,CRule)), Syn_Nonterminal -> Map Identifier Attributes
synMap'_Syn_Nonterminal :: (Map Identifier Attributes), Syn_Nonterminal -> Int
vcount_Syn_Nonterminal :: (Int) }
{-# INLINABLE wrap_Nonterminal #-}
wrap_Nonterminal :: T_Nonterminal -> Inh_Nonterminal -> (Syn_Nonterminal )
wrap_Nonterminal :: T_Nonterminal -> Inh_Nonterminal -> Syn_Nonterminal
wrap_Nonterminal (T_Nonterminal Identity T_Nonterminal_s14
act) (Inh_Nonterminal Int
_lhsIacount [Identifier]
_lhsIallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap CInterfaceMap
_lhsIcInterfaceMap CVisitsMap
_lhsIcVisitsMap Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_data Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Nonterminal_s14
sem <- Identity T_Nonterminal_s14
act
let arg13 :: T_Nonterminal_vIn13
arg13 = Int
-> [Identifier]
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> CInterfaceMap
-> CVisitsMap
-> Map Identifier Attributes
-> AttrOrderMap
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Map Identifier Attributes
-> Int
-> T_Nonterminal_vIn13
T_Nonterminal_vIn13 Int
_lhsIacount [Identifier]
_lhsIallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap CInterfaceMap
_lhsIcInterfaceMap CVisitsMap
_lhsIcVisitsMap Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_data Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount
(T_Nonterminal_vOut13 Int
_lhsOacount Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int, Int)
_lhsOaranges Seq (Int, Int)
_lhsOaroundDep CNonterminal
_lhsOcNonterminal Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Map Identifier Attributes
_lhsOinhMap' Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep Nonterminal
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules [(Identifier, [Identifier])]
_lhsOnonts Seq (Int, NTAttr)
_lhsOntattrs Seq (Int, CRule)
_lhsOrules Map Identifier Attributes
_lhsOsynMap' Int
_lhsOvcount) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Nonterminal_s14 -> T_Nonterminal_v13
inv_Nonterminal_s14 T_Nonterminal_s14
sem T_Nonterminal_vIn13
arg13)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int
-> Seq (Int, Int)
-> Seq (Int, Int, Int)
-> Seq (Int, Int)
-> CNonterminal
-> Seq (Int, Int)
-> Seq Error
-> Map Identifier Attributes
-> Seq (Int, Int)
-> Seq (Int, Int)
-> Nonterminal
-> Int
-> Int
-> [(Identifier, [Identifier])]
-> Seq (Int, NTAttr)
-> Seq (Int, CRule)
-> Map Identifier Attributes
-> Int
-> Syn_Nonterminal
Syn_Nonterminal Int
_lhsOacount Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int, Int)
_lhsOaranges Seq (Int, Int)
_lhsOaroundDep CNonterminal
_lhsOcNonterminal Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Map Identifier Attributes
_lhsOinhMap' Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep Nonterminal
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules [(Identifier, [Identifier])]
_lhsOnonts Seq (Int, NTAttr)
_lhsOntattrs Seq (Int, CRule)
_lhsOrules Map Identifier Attributes
_lhsOsynMap' Int
_lhsOvcount)
)
{-# INLINE sem_Nonterminal #-}
sem_Nonterminal :: Nonterminal -> T_Nonterminal
sem_Nonterminal :: Nonterminal -> T_Nonterminal
sem_Nonterminal ( Nonterminal Identifier
nt_ [Identifier]
params_ Attributes
inh_ Attributes
syn_ Productions
prods_ ) = Identifier
-> [Identifier]
-> Attributes
-> Attributes
-> T_Productions
-> T_Nonterminal
sem_Nonterminal_Nonterminal Identifier
nt_ [Identifier]
params_ Attributes
inh_ Attributes
syn_ ( Productions -> T_Productions
sem_Productions Productions
prods_ )
newtype T_Nonterminal = T_Nonterminal {
T_Nonterminal -> Identity T_Nonterminal_s14
attach_T_Nonterminal :: Identity (T_Nonterminal_s14 )
}
newtype T_Nonterminal_s14 = C_Nonterminal_s14 {
T_Nonterminal_s14 -> T_Nonterminal_v13
inv_Nonterminal_s14 :: (T_Nonterminal_v13 )
}
data T_Nonterminal_s15 = C_Nonterminal_s15
type T_Nonterminal_v13 = (T_Nonterminal_vIn13 ) -> (T_Nonterminal_vOut13 )
data T_Nonterminal_vIn13 = T_Nonterminal_vIn13 (Int) ([Identifier]) (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) (CInterfaceMap) (CVisitsMap) (Map Identifier Attributes) (AttrOrderMap) (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Options) (String) (Map Identifier Attributes) (Int)
data T_Nonterminal_vOut13 = T_Nonterminal_vOut13 (Int) (Seq Edge) (Seq (Int,Int,Int)) (Seq Edge) (CNonterminal) (Seq Edge) (Seq Error) (Map Identifier Attributes) (Seq Edge) (Seq Edge) (Mirage.Nonterminal) (Int) (Int) ([(NontermIdent,[ConstructorIdent])]) (Seq (Vertex,NTAttr)) (Seq (Vertex,CRule)) (Map Identifier Attributes) (Int)
{-# NOINLINE sem_Nonterminal_Nonterminal #-}
sem_Nonterminal_Nonterminal :: (NontermIdent) -> ([Identifier]) -> (Attributes) -> (Attributes) -> T_Productions -> T_Nonterminal
sem_Nonterminal_Nonterminal :: Identifier
-> [Identifier]
-> Attributes
-> Attributes
-> T_Productions
-> T_Nonterminal
sem_Nonterminal_Nonterminal Identifier
arg_nt_ [Identifier]
arg_params_ Attributes
arg_inh_ Attributes
arg_syn_ T_Productions
arg_prods_ = Identity T_Nonterminal_s14 -> T_Nonterminal
T_Nonterminal (forall (m :: * -> *) a. Monad m => a -> m a
return T_Nonterminal_s14
st14) where
{-# NOINLINE st14 #-}
st14 :: T_Nonterminal_s14
st14 = let
v13 :: T_Nonterminal_v13
v13 :: T_Nonterminal_v13
v13 = \ (T_Nonterminal_vIn13 Int
_lhsIacount [Identifier]
_lhsIallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap CInterfaceMap
_lhsIcInterfaceMap CVisitsMap
_lhsIcVisitsMap Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_data Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) -> ( let
_prodsX29 :: T_Productions_s29
_prodsX29 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Productions -> Identity T_Productions_s29
attach_T_Productions (T_Productions
arg_prods_))
(T_Productions_vOut28 Seq (Int, Int)
_prodsIadditionalDep Seq (Int, Int)
_prodsIaroundDep CProductions
_prodsIcProductions [Identifier]
_prodsIcons Seq (Int, Int)
_prodsIdirectDep Seq Error
_prodsIerrors Seq (Int, Int)
_prodsIinstDep Seq (Int, Int)
_prodsImergeDep [Production]
_prodsImirages Int
_prodsInAutoRules Int
_prodsInExplicitRules Seq (Int, CRule)
_prodsIrules Int
_prodsIvcount) = T_Productions_s29 -> T_Productions_v28
inv_Productions_s29 T_Productions_s29
_prodsX29 ([Identifier]
-> Map Identifier (Map Identifier [Expression])
-> CVisitsMap
-> Attributes
-> Map Identifier Attributes
-> AttrOrderMap
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> Int
-> T_Productions_vIn28
T_Productions_vIn28 [Identifier]
_prodsOallnts Map Identifier (Map Identifier [Expression])
_prodsOaroundMap CVisitsMap
_prodsOcVisitsMap Attributes
_prodsOinh Map Identifier Attributes
_prodsOinhMap AttrOrderMap
_prodsOmanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_prodsOmergeMap Identifier
_prodsOnt Bool
_prodsOo_case Bool
_prodsOo_cata Bool
_prodsOo_dovisit Bool
_prodsOo_newtypes Bool
_prodsOo_rename Bool
_prodsOo_sem Bool
_prodsOo_sig Bool
_prodsOo_unbox Bool
_prodsOo_wantvisit Options
_prodsOoptions String
_prodsOprefix Attributes
_prodsOsyn Map Identifier Attributes
_prodsOsynMap Int
_prodsOvcount)
_lhsOinhMap' :: Map Identifier Attributes
_lhsOinhMap' :: Map Identifier Attributes
_lhsOinhMap' = forall {a} {k}. a -> k -> Map k a
rule114 Attributes
arg_inh_ Identifier
arg_nt_
_lhsOsynMap' :: Map Identifier Attributes
_lhsOsynMap' :: Map Identifier Attributes
_lhsOsynMap' = forall k a. k -> a -> Map k a
rule115 Identifier
arg_nt_ Attributes
arg_syn_
_prodsOnt :: Identifier
_prodsOnt = forall {p}. p -> p
rule116 Identifier
arg_nt_
_prodsOinh :: Attributes
_prodsOinh = forall {p}. p -> p
rule117 Attributes
arg_inh_
_prodsOsyn :: Attributes
_prodsOsyn = forall {p}. p -> p
rule118 Attributes
arg_syn_
_mergeMap :: Map Identifier (Map Identifier (Identifier, [Identifier]))
_mergeMap = Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> Identifier
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
rule119 Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap Identifier
arg_nt_
_aroundMap :: Map Identifier (Map Identifier [Expression])
_aroundMap = Map Identifier (Map Identifier (Map Identifier [Expression]))
-> Identifier -> Map Identifier (Map Identifier [Expression])
rule120 Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap Identifier
arg_nt_
_ntattrs :: [NTAttr]
_ntattrs = Attributes -> Identifier -> Attributes -> [NTAttr]
rule121 Attributes
arg_inh_ Identifier
arg_nt_ Attributes
arg_syn_
_lhsOntattrs :: Seq (Vertex,NTAttr)
_lhsOntattrs :: Seq (Int, NTAttr)
_lhsOntattrs = forall {b}. Int -> [b] -> Seq (Int, b)
rule122 Int
_lhsIacount [NTAttr]
_ntattrs
_lhsOacount :: Int
_lhsOacount :: Int
_lhsOacount = forall {k} {a} {k} {a}. Int -> Map k a -> Map k a -> Int
rule123 Int
_lhsIacount Attributes
arg_inh_ Attributes
arg_syn_
_lhsOaranges :: Seq (Int,Int,Int)
_lhsOaranges :: Seq (Int, Int, Int)
_lhsOaranges = forall {k} {a} {k} {a}.
Int -> Map k a -> Map k a -> Seq (Int, Int, Int)
rule124 Int
_lhsIacount Attributes
arg_inh_ Attributes
arg_syn_
_lhsOnonts :: [(NontermIdent,[ConstructorIdent])]
_lhsOnonts :: [(Identifier, [Identifier])]
_lhsOnonts = forall {a}. [Identifier] -> a -> [(a, [Identifier])]
rule125 [Identifier]
_prodsIcons Identifier
arg_nt_
_cInter :: CInterface
_cInter = CInterfaceMap
-> Bool -> Attributes -> Identifier -> Attributes -> CInterface
rule126 CInterfaceMap
_lhsIcInterfaceMap Bool
_lhsIo_dovisit Attributes
arg_inh_ Identifier
arg_nt_ Attributes
arg_syn_
_lhsOcNonterminal :: CNonterminal
_lhsOcNonterminal :: CNonterminal
_lhsOcNonterminal = CInterface
-> CProductions
-> Attributes
-> Identifier
-> [Identifier]
-> Attributes
-> CNonterminal
rule127 CInterface
_cInter CProductions
_prodsIcProductions Attributes
arg_inh_ Identifier
arg_nt_ [Identifier]
arg_params_ Attributes
arg_syn_
_lhsOmirage :: Mirage.Nonterminal
_lhsOmirage :: Nonterminal
_lhsOmirage = [Production]
-> Attributes
-> Identifier
-> [Identifier]
-> Attributes
-> Nonterminal
rule128 [Production]
_prodsImirages Attributes
arg_inh_ Identifier
arg_nt_ [Identifier]
arg_params_ Attributes
arg_syn_
_lhsOadditionalDep :: Seq Edge
_lhsOadditionalDep :: Seq (Int, Int)
_lhsOadditionalDep = Seq (Int, Int) -> Seq (Int, Int)
rule129 Seq (Int, Int)
_prodsIadditionalDep
_lhsOaroundDep :: Seq Edge
_lhsOaroundDep :: Seq (Int, Int)
_lhsOaroundDep = Seq (Int, Int) -> Seq (Int, Int)
rule130 Seq (Int, Int)
_prodsIaroundDep
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = Seq (Int, Int) -> Seq (Int, Int)
rule131 Seq (Int, Int)
_prodsIdirectDep
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error
rule132 Seq Error
_prodsIerrors
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = Seq (Int, Int) -> Seq (Int, Int)
rule133 Seq (Int, Int)
_prodsIinstDep
_lhsOmergeDep :: Seq Edge
_lhsOmergeDep :: Seq (Int, Int)
_lhsOmergeDep = Seq (Int, Int) -> Seq (Int, Int)
rule134 Seq (Int, Int)
_prodsImergeDep
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = Int -> Int
rule135 Int
_prodsInAutoRules
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = Int -> Int
rule136 Int
_prodsInExplicitRules
_lhsOrules :: Seq (Vertex,CRule)
_lhsOrules :: Seq (Int, CRule)
_lhsOrules = Seq (Int, CRule) -> Seq (Int, CRule)
rule137 Seq (Int, CRule)
_prodsIrules
_lhsOvcount :: Int
_lhsOvcount :: Int
_lhsOvcount = Int -> Int
rule138 Int
_prodsIvcount
_prodsOallnts :: [Identifier]
_prodsOallnts = [Identifier] -> [Identifier]
rule139 [Identifier]
_lhsIallnts
_prodsOaroundMap :: Map Identifier (Map Identifier [Expression])
_prodsOaroundMap = forall {p}. p -> p
rule140 Map Identifier (Map Identifier [Expression])
_aroundMap
_prodsOcVisitsMap :: CVisitsMap
_prodsOcVisitsMap = CVisitsMap -> CVisitsMap
rule141 CVisitsMap
_lhsIcVisitsMap
_prodsOinhMap :: Map Identifier Attributes
_prodsOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule142 Map Identifier Attributes
_lhsIinhMap
_prodsOmanualAttrDepMap :: AttrOrderMap
_prodsOmanualAttrDepMap = AttrOrderMap -> AttrOrderMap
rule143 AttrOrderMap
_lhsImanualAttrDepMap
_prodsOmergeMap :: Map Identifier (Map Identifier (Identifier, [Identifier]))
_prodsOmergeMap = forall {p}. p -> p
rule144 Map Identifier (Map Identifier (Identifier, [Identifier]))
_mergeMap
_prodsOo_case :: Bool
_prodsOo_case = Bool -> Bool
rule145 Bool
_lhsIo_case
_prodsOo_cata :: Bool
_prodsOo_cata = Bool -> Bool
rule146 Bool
_lhsIo_cata
_prodsOo_dovisit :: Bool
_prodsOo_dovisit = Bool -> Bool
rule147 Bool
_lhsIo_dovisit
_prodsOo_newtypes :: Bool
_prodsOo_newtypes = Bool -> Bool
rule148 Bool
_lhsIo_newtypes
_prodsOo_rename :: Bool
_prodsOo_rename = Bool -> Bool
rule149 Bool
_lhsIo_rename
_prodsOo_sem :: Bool
_prodsOo_sem = Bool -> Bool
rule150 Bool
_lhsIo_sem
_prodsOo_sig :: Bool
_prodsOo_sig = Bool -> Bool
rule151 Bool
_lhsIo_sig
_prodsOo_unbox :: Bool
_prodsOo_unbox = Bool -> Bool
rule152 Bool
_lhsIo_unbox
_prodsOo_wantvisit :: Bool
_prodsOo_wantvisit = Bool -> Bool
rule153 Bool
_lhsIo_wantvisit
_prodsOoptions :: Options
_prodsOoptions = Options -> Options
rule154 Options
_lhsIoptions
_prodsOprefix :: String
_prodsOprefix = ShowS
rule155 String
_lhsIprefix
_prodsOsynMap :: Map Identifier Attributes
_prodsOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule156 Map Identifier Attributes
_lhsIsynMap
_prodsOvcount :: Int
_prodsOvcount = Int -> Int
rule157 Int
_lhsIvcount
__result_ :: T_Nonterminal_vOut13
__result_ = Int
-> Seq (Int, Int)
-> Seq (Int, Int, Int)
-> Seq (Int, Int)
-> CNonterminal
-> Seq (Int, Int)
-> Seq Error
-> Map Identifier Attributes
-> Seq (Int, Int)
-> Seq (Int, Int)
-> Nonterminal
-> Int
-> Int
-> [(Identifier, [Identifier])]
-> Seq (Int, NTAttr)
-> Seq (Int, CRule)
-> Map Identifier Attributes
-> Int
-> T_Nonterminal_vOut13
T_Nonterminal_vOut13 Int
_lhsOacount Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int, Int)
_lhsOaranges Seq (Int, Int)
_lhsOaroundDep CNonterminal
_lhsOcNonterminal Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Map Identifier Attributes
_lhsOinhMap' Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep Nonterminal
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules [(Identifier, [Identifier])]
_lhsOnonts Seq (Int, NTAttr)
_lhsOntattrs Seq (Int, CRule)
_lhsOrules Map Identifier Attributes
_lhsOsynMap' Int
_lhsOvcount
in T_Nonterminal_vOut13
__result_ )
in T_Nonterminal_v13 -> T_Nonterminal_s14
C_Nonterminal_s14 T_Nonterminal_v13
v13
{-# INLINE rule114 #-}
{-# LINE 7 "src-ag/DistChildAttr.ag" #-}
rule114 = \ inh_ nt_ ->
{-# LINE 7 "src-ag/DistChildAttr.ag" #-}
Map.singleton nt_ inh_
{-# LINE 1285 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule115 #-}
{-# LINE 8 "src-ag/DistChildAttr.ag" #-}
rule115 = \ nt_ syn_ ->
{-# LINE 8 "src-ag/DistChildAttr.ag" #-}
Map.singleton nt_ syn_
{-# LINE 1291 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule116 #-}
{-# LINE 97 "src-ag/Order.ag" #-}
rule116 = \ nt_ ->
{-# LINE 97 "src-ag/Order.ag" #-}
nt_
{-# LINE 1297 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule117 #-}
{-# LINE 100 "src-ag/Order.ag" #-}
rule117 = \ inh_ ->
{-# LINE 100 "src-ag/Order.ag" #-}
inh_
{-# LINE 1303 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule118 #-}
{-# LINE 101 "src-ag/Order.ag" #-}
rule118 = \ syn_ ->
{-# LINE 101 "src-ag/Order.ag" #-}
syn_
{-# LINE 1309 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule119 #-}
{-# LINE 360 "src-ag/Order.ag" #-}
rule119 = \ ((_lhsImergeMap) :: Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) nt_ ->
{-# LINE 360 "src-ag/Order.ag" #-}
Map.findWithDefault Map.empty nt_ _lhsImergeMap
{-# LINE 1315 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule120 #-}
{-# LINE 413 "src-ag/Order.ag" #-}
rule120 = \ ((_lhsIaroundMap) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) nt_ ->
{-# LINE 413 "src-ag/Order.ag" #-}
Map.findWithDefault Map.empty nt_ _lhsIaroundMap
{-# LINE 1321 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule121 #-}
{-# LINE 511 "src-ag/Order.ag" #-}
rule121 = \ inh_ nt_ syn_ ->
{-# LINE 511 "src-ag/Order.ag" #-}
[ NTAInh nt_ inh tp | (inh,tp) <- Map.assocs inh_ ]
++ [NTASyn nt_ syn tp | (syn,tp) <- Map.assocs syn_ ]
{-# LINE 1328 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule122 #-}
{-# LINE 513 "src-ag/Order.ag" #-}
rule122 = \ ((_lhsIacount) :: Int) _ntattrs ->
{-# LINE 513 "src-ag/Order.ag" #-}
Seq.fromList (zip [_lhsIacount ..] _ntattrs)
{-# LINE 1334 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule123 #-}
{-# LINE 514 "src-ag/Order.ag" #-}
rule123 = \ ((_lhsIacount) :: Int) inh_ syn_ ->
{-# LINE 514 "src-ag/Order.ag" #-}
_lhsIacount + Map.size inh_ + Map.size syn_
{-# LINE 1340 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule124 #-}
{-# LINE 515 "src-ag/Order.ag" #-}
rule124 = \ ((_lhsIacount) :: Int) inh_ syn_ ->
{-# LINE 515 "src-ag/Order.ag" #-}
Seq.singleton
(_lhsIacount
,_lhsIacount + Map.size inh_
,_lhsIacount + Map.size syn_ + Map.size inh_ - 1)
{-# LINE 1349 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule125 #-}
{-# LINE 524 "src-ag/Order.ag" #-}
rule125 = \ ((_prodsIcons) :: [ConstructorIdent]) nt_ ->
{-# LINE 524 "src-ag/Order.ag" #-}
[(nt_,_prodsIcons)]
{-# LINE 1355 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule126 #-}
{-# LINE 601 "src-ag/Order.ag" #-}
rule126 = \ ((_lhsIcInterfaceMap) :: CInterfaceMap) ((_lhsIo_dovisit) :: Bool) inh_ nt_ syn_ ->
{-# LINE 601 "src-ag/Order.ag" #-}
if _lhsIo_dovisit
then findWithErr1 "Nonterminal.cInter" nt_ _lhsIcInterfaceMap
else CInterface [CSegment inh_ syn_]
{-# LINE 1363 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule127 #-}
{-# LINE 629 "src-ag/Order.ag" #-}
rule127 = \ _cInter ((_prodsIcProductions) :: CProductions) inh_ nt_ params_ syn_ ->
{-# LINE 629 "src-ag/Order.ag" #-}
CNonterminal nt_ params_ inh_ syn_ _prodsIcProductions _cInter
{-# LINE 1369 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule128 #-}
{-# LINE 30 "src-ag/TfmToMirage.ag" #-}
rule128 = \ ((_prodsImirages) :: [Mirage.Production]) inh_ nt_ params_ syn_ ->
{-# LINE 30 "src-ag/TfmToMirage.ag" #-}
Mirage.Nonterminal
(getName nt_)
(map getName params_)
(Map.foldrWithKey (\k x xs -> Mirage.Attribute (getName k) (typeToMirage x) : xs) [] inh_)
(Map.foldrWithKey (\k x xs -> Mirage.Attribute (getName k) (typeToMirage x) : xs) [] syn_)
_prodsImirages
{-# LINE 1380 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule129 #-}
rule129 = \ ((_prodsIadditionalDep) :: Seq Edge) ->
_prodsIadditionalDep
{-# INLINE rule130 #-}
rule130 = \ ((_prodsIaroundDep) :: Seq Edge) ->
_prodsIaroundDep
{-# INLINE rule131 #-}
rule131 = \ ((_prodsIdirectDep) :: Seq Edge) ->
_prodsIdirectDep
{-# INLINE rule132 #-}
rule132 = \ ((_prodsIerrors) :: Seq Error) ->
_prodsIerrors
{-# INLINE rule133 #-}
rule133 = \ ((_prodsIinstDep) :: Seq Edge) ->
_prodsIinstDep
{-# INLINE rule134 #-}
rule134 = \ ((_prodsImergeDep) :: Seq Edge) ->
_prodsImergeDep
{-# INLINE rule135 #-}
rule135 = \ ((_prodsInAutoRules) :: Int) ->
_prodsInAutoRules
{-# INLINE rule136 #-}
rule136 = \ ((_prodsInExplicitRules) :: Int) ->
_prodsInExplicitRules
{-# INLINE rule137 #-}
rule137 = \ ((_prodsIrules) :: Seq (Vertex,CRule)) ->
_prodsIrules
{-# INLINE rule138 #-}
rule138 = \ ((_prodsIvcount) :: Int) ->
_prodsIvcount
{-# INLINE rule139 #-}
rule139 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule140 #-}
rule140 = \ _aroundMap ->
_aroundMap
{-# INLINE rule141 #-}
rule141 = \ ((_lhsIcVisitsMap) :: CVisitsMap) ->
_lhsIcVisitsMap
{-# INLINE rule142 #-}
rule142 = \ ((_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# INLINE rule143 #-}
rule143 = \ ((_lhsImanualAttrDepMap) :: AttrOrderMap) ->
_lhsImanualAttrDepMap
{-# INLINE rule144 #-}
rule144 = \ _mergeMap ->
_mergeMap
{-# INLINE rule145 #-}
rule145 = \ ((_lhsIo_case) :: Bool) ->
_lhsIo_case
{-# INLINE rule146 #-}
rule146 = \ ((_lhsIo_cata) :: Bool) ->
_lhsIo_cata
{-# INLINE rule147 #-}
rule147 = \ ((_lhsIo_dovisit) :: Bool) ->
_lhsIo_dovisit
{-# INLINE rule148 #-}
rule148 = \ ((_lhsIo_newtypes) :: Bool) ->
_lhsIo_newtypes
{-# INLINE rule149 #-}
rule149 = \ ((_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# INLINE rule150 #-}
rule150 = \ ((_lhsIo_sem) :: Bool) ->
_lhsIo_sem
{-# INLINE rule151 #-}
rule151 = \ ((_lhsIo_sig) :: Bool) ->
_lhsIo_sig
{-# INLINE rule152 #-}
rule152 = \ ((_lhsIo_unbox) :: Bool) ->
_lhsIo_unbox
{-# INLINE rule153 #-}
rule153 = \ ((_lhsIo_wantvisit) :: Bool) ->
_lhsIo_wantvisit
{-# INLINE rule154 #-}
rule154 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
{-# INLINE rule155 #-}
rule155 = \ ((_lhsIprefix) :: String) ->
_lhsIprefix
{-# INLINE rule156 #-}
rule156 = \ ((_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# INLINE rule157 #-}
rule157 = \ ((_lhsIvcount) :: Int) ->
_lhsIvcount
data Inh_Nonterminals = Inh_Nonterminals { Inh_Nonterminals -> Int
acount_Inh_Nonterminals :: (Int), Inh_Nonterminals -> [Identifier]
allnts_Inh_Nonterminals :: ([Identifier]), Inh_Nonterminals
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
aroundMap_Inh_Nonterminals :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))), Inh_Nonterminals -> CInterfaceMap
cInterfaceMap_Inh_Nonterminals :: (CInterfaceMap), Inh_Nonterminals -> CVisitsMap
cVisitsMap_Inh_Nonterminals :: (CVisitsMap), Inh_Nonterminals -> Map Identifier Attributes
inhMap_Inh_Nonterminals :: (Map Identifier Attributes), Inh_Nonterminals -> AttrOrderMap
manualAttrDepMap_Inh_Nonterminals :: (AttrOrderMap), Inh_Nonterminals
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
mergeMap_Inh_Nonterminals :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))), Inh_Nonterminals -> Bool
o_case_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_cata_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_data_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_dovisit_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_newtypes_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_rename_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_sem_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_sig_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_unbox_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Bool
o_wantvisit_Inh_Nonterminals :: (Bool), Inh_Nonterminals -> Options
options_Inh_Nonterminals :: (Options), Inh_Nonterminals -> String
prefix_Inh_Nonterminals :: (String), Inh_Nonterminals -> Map Identifier Attributes
synMap_Inh_Nonterminals :: (Map Identifier Attributes), Inh_Nonterminals -> Int
vcount_Inh_Nonterminals :: (Int) }
data Syn_Nonterminals = Syn_Nonterminals { Syn_Nonterminals -> Int
acount_Syn_Nonterminals :: (Int), Syn_Nonterminals -> Seq (Int, Int)
additionalDep_Syn_Nonterminals :: (Seq Edge), Syn_Nonterminals -> Seq (Int, Int, Int)
aranges_Syn_Nonterminals :: (Seq (Int,Int,Int)), Syn_Nonterminals -> Seq (Int, Int)
aroundDep_Syn_Nonterminals :: (Seq Edge), Syn_Nonterminals -> CNonterminals
cNonterminals_Syn_Nonterminals :: (CNonterminals), Syn_Nonterminals -> Seq (Int, Int)
directDep_Syn_Nonterminals :: (Seq Edge), Syn_Nonterminals -> Seq Error
errors_Syn_Nonterminals :: (Seq Error), Syn_Nonterminals -> Map Identifier Attributes
inhMap'_Syn_Nonterminals :: (Map Identifier Attributes), Syn_Nonterminals -> Seq (Int, Int)
instDep_Syn_Nonterminals :: (Seq Edge), Syn_Nonterminals -> Seq (Int, Int)
mergeDep_Syn_Nonterminals :: (Seq Edge), Syn_Nonterminals -> [Nonterminal]
mirages_Syn_Nonterminals :: ([Mirage.Nonterminal]), Syn_Nonterminals -> Int
nAutoRules_Syn_Nonterminals :: (Int), Syn_Nonterminals -> Int
nExplicitRules_Syn_Nonterminals :: (Int), Syn_Nonterminals -> [(Identifier, [Identifier])]
nonts_Syn_Nonterminals :: ([(NontermIdent,[ConstructorIdent])]), Syn_Nonterminals -> Seq (Int, NTAttr)
ntattrs_Syn_Nonterminals :: (Seq (Vertex,NTAttr)), Syn_Nonterminals -> Seq (Int, CRule)
rules_Syn_Nonterminals :: (Seq (Vertex,CRule)), Syn_Nonterminals -> Map Identifier Attributes
synMap'_Syn_Nonterminals :: (Map Identifier Attributes), Syn_Nonterminals -> Int
vcount_Syn_Nonterminals :: (Int) }
{-# INLINABLE wrap_Nonterminals #-}
wrap_Nonterminals :: T_Nonterminals -> Inh_Nonterminals -> (Syn_Nonterminals )
wrap_Nonterminals :: T_Nonterminals -> Inh_Nonterminals -> Syn_Nonterminals
wrap_Nonterminals (T_Nonterminals Identity T_Nonterminals_s17
act) (Inh_Nonterminals Int
_lhsIacount [Identifier]
_lhsIallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap CInterfaceMap
_lhsIcInterfaceMap CVisitsMap
_lhsIcVisitsMap Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_data Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Nonterminals_s17
sem <- Identity T_Nonterminals_s17
act
let arg16 :: T_Nonterminals_vIn16
arg16 = Int
-> [Identifier]
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> CInterfaceMap
-> CVisitsMap
-> Map Identifier Attributes
-> AttrOrderMap
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Map Identifier Attributes
-> Int
-> T_Nonterminals_vIn16
T_Nonterminals_vIn16 Int
_lhsIacount [Identifier]
_lhsIallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap CInterfaceMap
_lhsIcInterfaceMap CVisitsMap
_lhsIcVisitsMap Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_data Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount
(T_Nonterminals_vOut16 Int
_lhsOacount Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int, Int)
_lhsOaranges Seq (Int, Int)
_lhsOaroundDep CNonterminals
_lhsOcNonterminals Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Map Identifier Attributes
_lhsOinhMap' Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep [Nonterminal]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules [(Identifier, [Identifier])]
_lhsOnonts Seq (Int, NTAttr)
_lhsOntattrs Seq (Int, CRule)
_lhsOrules Map Identifier Attributes
_lhsOsynMap' Int
_lhsOvcount) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Nonterminals_s17 -> T_Nonterminals_v16
inv_Nonterminals_s17 T_Nonterminals_s17
sem T_Nonterminals_vIn16
arg16)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int
-> Seq (Int, Int)
-> Seq (Int, Int, Int)
-> Seq (Int, Int)
-> CNonterminals
-> Seq (Int, Int)
-> Seq Error
-> Map Identifier Attributes
-> Seq (Int, Int)
-> Seq (Int, Int)
-> [Nonterminal]
-> Int
-> Int
-> [(Identifier, [Identifier])]
-> Seq (Int, NTAttr)
-> Seq (Int, CRule)
-> Map Identifier Attributes
-> Int
-> Syn_Nonterminals
Syn_Nonterminals Int
_lhsOacount Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int, Int)
_lhsOaranges Seq (Int, Int)
_lhsOaroundDep CNonterminals
_lhsOcNonterminals Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Map Identifier Attributes
_lhsOinhMap' Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep [Nonterminal]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules [(Identifier, [Identifier])]
_lhsOnonts Seq (Int, NTAttr)
_lhsOntattrs Seq (Int, CRule)
_lhsOrules Map Identifier Attributes
_lhsOsynMap' Int
_lhsOvcount)
)
{-# NOINLINE sem_Nonterminals #-}
sem_Nonterminals :: Nonterminals -> T_Nonterminals
sem_Nonterminals :: Nonterminals -> T_Nonterminals
sem_Nonterminals Nonterminals
list = forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
Prelude.foldr T_Nonterminal -> T_Nonterminals -> T_Nonterminals
sem_Nonterminals_Cons T_Nonterminals
sem_Nonterminals_Nil (forall a b. (a -> b) -> [a] -> [b]
Prelude.map Nonterminal -> T_Nonterminal
sem_Nonterminal Nonterminals
list)
newtype T_Nonterminals = T_Nonterminals {
T_Nonterminals -> Identity T_Nonterminals_s17
attach_T_Nonterminals :: Identity (T_Nonterminals_s17 )
}
newtype T_Nonterminals_s17 = C_Nonterminals_s17 {
T_Nonterminals_s17 -> T_Nonterminals_v16
inv_Nonterminals_s17 :: (T_Nonterminals_v16 )
}
data T_Nonterminals_s18 = C_Nonterminals_s18
type T_Nonterminals_v16 = (T_Nonterminals_vIn16 ) -> (T_Nonterminals_vOut16 )
data T_Nonterminals_vIn16 = T_Nonterminals_vIn16 (Int) ([Identifier]) (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) (CInterfaceMap) (CVisitsMap) (Map Identifier Attributes) (AttrOrderMap) (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Options) (String) (Map Identifier Attributes) (Int)
data T_Nonterminals_vOut16 = T_Nonterminals_vOut16 (Int) (Seq Edge) (Seq (Int,Int,Int)) (Seq Edge) (CNonterminals) (Seq Edge) (Seq Error) (Map Identifier Attributes) (Seq Edge) (Seq Edge) ([Mirage.Nonterminal]) (Int) (Int) ([(NontermIdent,[ConstructorIdent])]) (Seq (Vertex,NTAttr)) (Seq (Vertex,CRule)) (Map Identifier Attributes) (Int)
{-# NOINLINE sem_Nonterminals_Cons #-}
sem_Nonterminals_Cons :: T_Nonterminal -> T_Nonterminals -> T_Nonterminals
sem_Nonterminals_Cons :: T_Nonterminal -> T_Nonterminals -> T_Nonterminals
sem_Nonterminals_Cons T_Nonterminal
arg_hd_ T_Nonterminals
arg_tl_ = Identity T_Nonterminals_s17 -> T_Nonterminals
T_Nonterminals (forall (m :: * -> *) a. Monad m => a -> m a
return T_Nonterminals_s17
st17) where
{-# NOINLINE st17 #-}
st17 :: T_Nonterminals_s17
st17 = let
v16 :: T_Nonterminals_v16
v16 :: T_Nonterminals_v16
v16 = \ (T_Nonterminals_vIn16 Int
_lhsIacount [Identifier]
_lhsIallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap CInterfaceMap
_lhsIcInterfaceMap CVisitsMap
_lhsIcVisitsMap Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_data Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) -> ( let
_hdX14 :: T_Nonterminal_s14
_hdX14 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Nonterminal -> Identity T_Nonterminal_s14
attach_T_Nonterminal (T_Nonterminal
arg_hd_))
_tlX17 :: T_Nonterminals_s17
_tlX17 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Nonterminals -> Identity T_Nonterminals_s17
attach_T_Nonterminals (T_Nonterminals
arg_tl_))
(T_Nonterminal_vOut13 Int
_hdIacount Seq (Int, Int)
_hdIadditionalDep Seq (Int, Int, Int)
_hdIaranges Seq (Int, Int)
_hdIaroundDep CNonterminal
_hdIcNonterminal Seq (Int, Int)
_hdIdirectDep Seq Error
_hdIerrors Map Identifier Attributes
_hdIinhMap' Seq (Int, Int)
_hdIinstDep Seq (Int, Int)
_hdImergeDep Nonterminal
_hdImirage Int
_hdInAutoRules Int
_hdInExplicitRules [(Identifier, [Identifier])]
_hdInonts Seq (Int, NTAttr)
_hdIntattrs Seq (Int, CRule)
_hdIrules Map Identifier Attributes
_hdIsynMap' Int
_hdIvcount) = T_Nonterminal_s14 -> T_Nonterminal_v13
inv_Nonterminal_s14 T_Nonterminal_s14
_hdX14 (Int
-> [Identifier]
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> CInterfaceMap
-> CVisitsMap
-> Map Identifier Attributes
-> AttrOrderMap
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Map Identifier Attributes
-> Int
-> T_Nonterminal_vIn13
T_Nonterminal_vIn13 Int
_hdOacount [Identifier]
_hdOallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_hdOaroundMap CInterfaceMap
_hdOcInterfaceMap CVisitsMap
_hdOcVisitsMap Map Identifier Attributes
_hdOinhMap AttrOrderMap
_hdOmanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_hdOmergeMap Bool
_hdOo_case Bool
_hdOo_cata Bool
_hdOo_data Bool
_hdOo_dovisit Bool
_hdOo_newtypes Bool
_hdOo_rename Bool
_hdOo_sem Bool
_hdOo_sig Bool
_hdOo_unbox Bool
_hdOo_wantvisit Options
_hdOoptions String
_hdOprefix Map Identifier Attributes
_hdOsynMap Int
_hdOvcount)
(T_Nonterminals_vOut16 Int
_tlIacount Seq (Int, Int)
_tlIadditionalDep Seq (Int, Int, Int)
_tlIaranges Seq (Int, Int)
_tlIaroundDep CNonterminals
_tlIcNonterminals Seq (Int, Int)
_tlIdirectDep Seq Error
_tlIerrors Map Identifier Attributes
_tlIinhMap' Seq (Int, Int)
_tlIinstDep Seq (Int, Int)
_tlImergeDep [Nonterminal]
_tlImirages Int
_tlInAutoRules Int
_tlInExplicitRules [(Identifier, [Identifier])]
_tlInonts Seq (Int, NTAttr)
_tlIntattrs Seq (Int, CRule)
_tlIrules Map Identifier Attributes
_tlIsynMap' Int
_tlIvcount) = T_Nonterminals_s17 -> T_Nonterminals_v16
inv_Nonterminals_s17 T_Nonterminals_s17
_tlX17 (Int
-> [Identifier]
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
-> CInterfaceMap
-> CVisitsMap
-> Map Identifier Attributes
-> AttrOrderMap
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Map Identifier Attributes
-> Int
-> T_Nonterminals_vIn16
T_Nonterminals_vIn16 Int
_tlOacount [Identifier]
_tlOallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_tlOaroundMap CInterfaceMap
_tlOcInterfaceMap CVisitsMap
_tlOcVisitsMap Map Identifier Attributes
_tlOinhMap AttrOrderMap
_tlOmanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_tlOmergeMap Bool
_tlOo_case Bool
_tlOo_cata Bool
_tlOo_data Bool
_tlOo_dovisit Bool
_tlOo_newtypes Bool
_tlOo_rename Bool
_tlOo_sem Bool
_tlOo_sig Bool
_tlOo_unbox Bool
_tlOo_wantvisit Options
_tlOoptions String
_tlOprefix Map Identifier Attributes
_tlOsynMap Int
_tlOvcount)
_lhsOcNonterminals :: CNonterminals
_lhsOcNonterminals :: CNonterminals
_lhsOcNonterminals = CNonterminal -> CNonterminals -> CNonterminals
rule158 CNonterminal
_hdIcNonterminal CNonterminals
_tlIcNonterminals
_lhsOmirages :: [Mirage.Nonterminal]
_lhsOmirages :: [Nonterminal]
_lhsOmirages = Nonterminal -> [Nonterminal] -> [Nonterminal]
rule159 Nonterminal
_hdImirage [Nonterminal]
_tlImirages
_lhsOadditionalDep :: Seq Edge
_lhsOadditionalDep :: Seq (Int, Int)
_lhsOadditionalDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule160 Seq (Int, Int)
_hdIadditionalDep Seq (Int, Int)
_tlIadditionalDep
_lhsOaranges :: Seq (Int,Int,Int)
_lhsOaranges :: Seq (Int, Int, Int)
_lhsOaranges = Seq (Int, Int, Int) -> Seq (Int, Int, Int) -> Seq (Int, Int, Int)
rule161 Seq (Int, Int, Int)
_hdIaranges Seq (Int, Int, Int)
_tlIaranges
_lhsOaroundDep :: Seq Edge
_lhsOaroundDep :: Seq (Int, Int)
_lhsOaroundDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule162 Seq (Int, Int)
_hdIaroundDep Seq (Int, Int)
_tlIaroundDep
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule163 Seq (Int, Int)
_hdIdirectDep Seq (Int, Int)
_tlIdirectDep
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error -> Seq Error
rule164 Seq Error
_hdIerrors Seq Error
_tlIerrors
_lhsOinhMap' :: Map Identifier Attributes
_lhsOinhMap' :: Map Identifier Attributes
_lhsOinhMap' = Map Identifier Attributes
-> Map Identifier Attributes -> Map Identifier Attributes
rule165 Map Identifier Attributes
_hdIinhMap' Map Identifier Attributes
_tlIinhMap'
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule166 Seq (Int, Int)
_hdIinstDep Seq (Int, Int)
_tlIinstDep
_lhsOmergeDep :: Seq Edge
_lhsOmergeDep :: Seq (Int, Int)
_lhsOmergeDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule167 Seq (Int, Int)
_hdImergeDep Seq (Int, Int)
_tlImergeDep
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = Int -> Int -> Int
rule168 Int
_hdInAutoRules Int
_tlInAutoRules
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = Int -> Int -> Int
rule169 Int
_hdInExplicitRules Int
_tlInExplicitRules
_lhsOnonts :: [(NontermIdent,[ConstructorIdent])]
_lhsOnonts :: [(Identifier, [Identifier])]
_lhsOnonts = [(Identifier, [Identifier])]
-> [(Identifier, [Identifier])] -> [(Identifier, [Identifier])]
rule170 [(Identifier, [Identifier])]
_hdInonts [(Identifier, [Identifier])]
_tlInonts
_lhsOntattrs :: Seq (Vertex,NTAttr)
_lhsOntattrs :: Seq (Int, NTAttr)
_lhsOntattrs = Seq (Int, NTAttr) -> Seq (Int, NTAttr) -> Seq (Int, NTAttr)
rule171 Seq (Int, NTAttr)
_hdIntattrs Seq (Int, NTAttr)
_tlIntattrs
_lhsOrules :: Seq (Vertex,CRule)
_lhsOrules :: Seq (Int, CRule)
_lhsOrules = Seq (Int, CRule) -> Seq (Int, CRule) -> Seq (Int, CRule)
rule172 Seq (Int, CRule)
_hdIrules Seq (Int, CRule)
_tlIrules
_lhsOsynMap' :: Map Identifier Attributes
_lhsOsynMap' :: Map Identifier Attributes
_lhsOsynMap' = Map Identifier Attributes
-> Map Identifier Attributes -> Map Identifier Attributes
rule173 Map Identifier Attributes
_hdIsynMap' Map Identifier Attributes
_tlIsynMap'
_lhsOacount :: Int
_lhsOacount :: Int
_lhsOacount = Int -> Int
rule174 Int
_tlIacount
_lhsOvcount :: Int
_lhsOvcount :: Int
_lhsOvcount = Int -> Int
rule175 Int
_tlIvcount
_hdOacount :: Int
_hdOacount = Int -> Int
rule176 Int
_lhsIacount
_hdOallnts :: [Identifier]
_hdOallnts = [Identifier] -> [Identifier]
rule177 [Identifier]
_lhsIallnts
_hdOaroundMap :: Map Identifier (Map Identifier (Map Identifier [Expression]))
_hdOaroundMap = Map Identifier (Map Identifier (Map Identifier [Expression]))
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
rule178 Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap
_hdOcInterfaceMap :: CInterfaceMap
_hdOcInterfaceMap = CInterfaceMap -> CInterfaceMap
rule179 CInterfaceMap
_lhsIcInterfaceMap
_hdOcVisitsMap :: CVisitsMap
_hdOcVisitsMap = CVisitsMap -> CVisitsMap
rule180 CVisitsMap
_lhsIcVisitsMap
_hdOinhMap :: Map Identifier Attributes
_hdOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule181 Map Identifier Attributes
_lhsIinhMap
_hdOmanualAttrDepMap :: AttrOrderMap
_hdOmanualAttrDepMap = AttrOrderMap -> AttrOrderMap
rule182 AttrOrderMap
_lhsImanualAttrDepMap
_hdOmergeMap :: Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_hdOmergeMap = Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
rule183 Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap
_hdOo_case :: Bool
_hdOo_case = Bool -> Bool
rule184 Bool
_lhsIo_case
_hdOo_cata :: Bool
_hdOo_cata = Bool -> Bool
rule185 Bool
_lhsIo_cata
_hdOo_data :: Bool
_hdOo_data = Bool -> Bool
rule186 Bool
_lhsIo_data
_hdOo_dovisit :: Bool
_hdOo_dovisit = Bool -> Bool
rule187 Bool
_lhsIo_dovisit
_hdOo_newtypes :: Bool
_hdOo_newtypes = Bool -> Bool
rule188 Bool
_lhsIo_newtypes
_hdOo_rename :: Bool
_hdOo_rename = Bool -> Bool
rule189 Bool
_lhsIo_rename
_hdOo_sem :: Bool
_hdOo_sem = Bool -> Bool
rule190 Bool
_lhsIo_sem
_hdOo_sig :: Bool
_hdOo_sig = Bool -> Bool
rule191 Bool
_lhsIo_sig
_hdOo_unbox :: Bool
_hdOo_unbox = Bool -> Bool
rule192 Bool
_lhsIo_unbox
_hdOo_wantvisit :: Bool
_hdOo_wantvisit = Bool -> Bool
rule193 Bool
_lhsIo_wantvisit
_hdOoptions :: Options
_hdOoptions = Options -> Options
rule194 Options
_lhsIoptions
_hdOprefix :: String
_hdOprefix = ShowS
rule195 String
_lhsIprefix
_hdOsynMap :: Map Identifier Attributes
_hdOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule196 Map Identifier Attributes
_lhsIsynMap
_hdOvcount :: Int
_hdOvcount = Int -> Int
rule197 Int
_lhsIvcount
_tlOacount :: Int
_tlOacount = Int -> Int
rule198 Int
_hdIacount
_tlOallnts :: [Identifier]
_tlOallnts = [Identifier] -> [Identifier]
rule199 [Identifier]
_lhsIallnts
_tlOaroundMap :: Map Identifier (Map Identifier (Map Identifier [Expression]))
_tlOaroundMap = Map Identifier (Map Identifier (Map Identifier [Expression]))
-> Map Identifier (Map Identifier (Map Identifier [Expression]))
rule200 Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap
_tlOcInterfaceMap :: CInterfaceMap
_tlOcInterfaceMap = CInterfaceMap -> CInterfaceMap
rule201 CInterfaceMap
_lhsIcInterfaceMap
_tlOcVisitsMap :: CVisitsMap
_tlOcVisitsMap = CVisitsMap -> CVisitsMap
rule202 CVisitsMap
_lhsIcVisitsMap
_tlOinhMap :: Map Identifier Attributes
_tlOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule203 Map Identifier Attributes
_lhsIinhMap
_tlOmanualAttrDepMap :: AttrOrderMap
_tlOmanualAttrDepMap = AttrOrderMap -> AttrOrderMap
rule204 AttrOrderMap
_lhsImanualAttrDepMap
_tlOmergeMap :: Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_tlOmergeMap = Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
-> Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
rule205 Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap
_tlOo_case :: Bool
_tlOo_case = Bool -> Bool
rule206 Bool
_lhsIo_case
_tlOo_cata :: Bool
_tlOo_cata = Bool -> Bool
rule207 Bool
_lhsIo_cata
_tlOo_data :: Bool
_tlOo_data = Bool -> Bool
rule208 Bool
_lhsIo_data
_tlOo_dovisit :: Bool
_tlOo_dovisit = Bool -> Bool
rule209 Bool
_lhsIo_dovisit
_tlOo_newtypes :: Bool
_tlOo_newtypes = Bool -> Bool
rule210 Bool
_lhsIo_newtypes
_tlOo_rename :: Bool
_tlOo_rename = Bool -> Bool
rule211 Bool
_lhsIo_rename
_tlOo_sem :: Bool
_tlOo_sem = Bool -> Bool
rule212 Bool
_lhsIo_sem
_tlOo_sig :: Bool
_tlOo_sig = Bool -> Bool
rule213 Bool
_lhsIo_sig
_tlOo_unbox :: Bool
_tlOo_unbox = Bool -> Bool
rule214 Bool
_lhsIo_unbox
_tlOo_wantvisit :: Bool
_tlOo_wantvisit = Bool -> Bool
rule215 Bool
_lhsIo_wantvisit
_tlOoptions :: Options
_tlOoptions = Options -> Options
rule216 Options
_lhsIoptions
_tlOprefix :: String
_tlOprefix = ShowS
rule217 String
_lhsIprefix
_tlOsynMap :: Map Identifier Attributes
_tlOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule218 Map Identifier Attributes
_lhsIsynMap
_tlOvcount :: Int
_tlOvcount = Int -> Int
rule219 Int
_hdIvcount
__result_ :: T_Nonterminals_vOut16
__result_ = Int
-> Seq (Int, Int)
-> Seq (Int, Int, Int)
-> Seq (Int, Int)
-> CNonterminals
-> Seq (Int, Int)
-> Seq Error
-> Map Identifier Attributes
-> Seq (Int, Int)
-> Seq (Int, Int)
-> [Nonterminal]
-> Int
-> Int
-> [(Identifier, [Identifier])]
-> Seq (Int, NTAttr)
-> Seq (Int, CRule)
-> Map Identifier Attributes
-> Int
-> T_Nonterminals_vOut16
T_Nonterminals_vOut16 Int
_lhsOacount Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int, Int)
_lhsOaranges Seq (Int, Int)
_lhsOaroundDep CNonterminals
_lhsOcNonterminals Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Map Identifier Attributes
_lhsOinhMap' Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep [Nonterminal]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules [(Identifier, [Identifier])]
_lhsOnonts Seq (Int, NTAttr)
_lhsOntattrs Seq (Int, CRule)
_lhsOrules Map Identifier Attributes
_lhsOsynMap' Int
_lhsOvcount
in T_Nonterminals_vOut16
__result_ )
in T_Nonterminals_v16 -> T_Nonterminals_s17
C_Nonterminals_s17 T_Nonterminals_v16
v16
{-# INLINE rule158 #-}
{-# LINE 626 "src-ag/Order.ag" #-}
rule158 = \ ((_hdIcNonterminal) :: CNonterminal) ((_tlIcNonterminals) :: CNonterminals) ->
{-# LINE 626 "src-ag/Order.ag" #-}
_hdIcNonterminal : _tlIcNonterminals
{-# LINE 1598 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule159 #-}
{-# LINE 25 "src-ag/TfmToMirage.ag" #-}
rule159 = \ ((_hdImirage) :: Mirage.Nonterminal) ((_tlImirages) :: [Mirage.Nonterminal]) ->
{-# LINE 25 "src-ag/TfmToMirage.ag" #-}
_hdImirage : _tlImirages
{-# LINE 1604 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule160 #-}
rule160 = \ ((_hdIadditionalDep) :: Seq Edge) ((_tlIadditionalDep) :: Seq Edge) ->
_hdIadditionalDep Seq.>< _tlIadditionalDep
{-# INLINE rule161 #-}
rule161 = \ ((_hdIaranges) :: Seq (Int,Int,Int)) ((_tlIaranges) :: Seq (Int,Int,Int)) ->
_hdIaranges Seq.>< _tlIaranges
{-# INLINE rule162 #-}
rule162 = \ ((_hdIaroundDep) :: Seq Edge) ((_tlIaroundDep) :: Seq Edge) ->
_hdIaroundDep Seq.>< _tlIaroundDep
{-# INLINE rule163 #-}
rule163 = \ ((_hdIdirectDep) :: Seq Edge) ((_tlIdirectDep) :: Seq Edge) ->
_hdIdirectDep Seq.>< _tlIdirectDep
{-# INLINE rule164 #-}
rule164 = \ ((_hdIerrors) :: Seq Error) ((_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# INLINE rule165 #-}
rule165 = \ ((_hdIinhMap') :: Map Identifier Attributes) ((_tlIinhMap') :: Map Identifier Attributes) ->
_hdIinhMap' `Map.union` _tlIinhMap'
{-# INLINE rule166 #-}
rule166 = \ ((_hdIinstDep) :: Seq Edge) ((_tlIinstDep) :: Seq Edge) ->
_hdIinstDep Seq.>< _tlIinstDep
{-# INLINE rule167 #-}
rule167 = \ ((_hdImergeDep) :: Seq Edge) ((_tlImergeDep) :: Seq Edge) ->
_hdImergeDep Seq.>< _tlImergeDep
{-# INLINE rule168 #-}
rule168 = \ ((_hdInAutoRules) :: Int) ((_tlInAutoRules) :: Int) ->
_hdInAutoRules + _tlInAutoRules
{-# INLINE rule169 #-}
rule169 = \ ((_hdInExplicitRules) :: Int) ((_tlInExplicitRules) :: Int) ->
_hdInExplicitRules + _tlInExplicitRules
{-# INLINE rule170 #-}
rule170 = \ ((_hdInonts) :: [(NontermIdent,[ConstructorIdent])]) ((_tlInonts) :: [(NontermIdent,[ConstructorIdent])]) ->
_hdInonts ++ _tlInonts
{-# INLINE rule171 #-}
rule171 = \ ((_hdIntattrs) :: Seq (Vertex,NTAttr)) ((_tlIntattrs) :: Seq (Vertex,NTAttr)) ->
_hdIntattrs Seq.>< _tlIntattrs
{-# INLINE rule172 #-}
rule172 = \ ((_hdIrules) :: Seq (Vertex,CRule)) ((_tlIrules) :: Seq (Vertex,CRule)) ->
_hdIrules Seq.>< _tlIrules
{-# INLINE rule173 #-}
rule173 = \ ((_hdIsynMap') :: Map Identifier Attributes) ((_tlIsynMap') :: Map Identifier Attributes) ->
_hdIsynMap' `Map.union` _tlIsynMap'
{-# INLINE rule174 #-}
rule174 = \ ((_tlIacount) :: Int) ->
_tlIacount
{-# INLINE rule175 #-}
rule175 = \ ((_tlIvcount) :: Int) ->
_tlIvcount
{-# INLINE rule176 #-}
rule176 = \ ((_lhsIacount) :: Int) ->
_lhsIacount
{-# INLINE rule177 #-}
rule177 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule178 #-}
rule178 = \ ((_lhsIaroundMap) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->
_lhsIaroundMap
{-# INLINE rule179 #-}
rule179 = \ ((_lhsIcInterfaceMap) :: CInterfaceMap) ->
_lhsIcInterfaceMap
{-# INLINE rule180 #-}
rule180 = \ ((_lhsIcVisitsMap) :: CVisitsMap) ->
_lhsIcVisitsMap
{-# INLINE rule181 #-}
rule181 = \ ((_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# INLINE rule182 #-}
rule182 = \ ((_lhsImanualAttrDepMap) :: AttrOrderMap) ->
_lhsImanualAttrDepMap
{-# INLINE rule183 #-}
rule183 = \ ((_lhsImergeMap) :: Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->
_lhsImergeMap
{-# INLINE rule184 #-}
rule184 = \ ((_lhsIo_case) :: Bool) ->
_lhsIo_case
{-# INLINE rule185 #-}
rule185 = \ ((_lhsIo_cata) :: Bool) ->
_lhsIo_cata
{-# INLINE rule186 #-}
rule186 = \ ((_lhsIo_data) :: Bool) ->
_lhsIo_data
{-# INLINE rule187 #-}
rule187 = \ ((_lhsIo_dovisit) :: Bool) ->
_lhsIo_dovisit
{-# INLINE rule188 #-}
rule188 = \ ((_lhsIo_newtypes) :: Bool) ->
_lhsIo_newtypes
{-# INLINE rule189 #-}
rule189 = \ ((_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# INLINE rule190 #-}
rule190 = \ ((_lhsIo_sem) :: Bool) ->
_lhsIo_sem
{-# INLINE rule191 #-}
rule191 = \ ((_lhsIo_sig) :: Bool) ->
_lhsIo_sig
{-# INLINE rule192 #-}
rule192 = \ ((_lhsIo_unbox) :: Bool) ->
_lhsIo_unbox
{-# INLINE rule193 #-}
rule193 = \ ((_lhsIo_wantvisit) :: Bool) ->
_lhsIo_wantvisit
{-# INLINE rule194 #-}
rule194 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
{-# INLINE rule195 #-}
rule195 = \ ((_lhsIprefix) :: String) ->
_lhsIprefix
{-# INLINE rule196 #-}
rule196 = \ ((_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# INLINE rule197 #-}
rule197 = \ ((_lhsIvcount) :: Int) ->
_lhsIvcount
{-# INLINE rule198 #-}
rule198 = \ ((_hdIacount) :: Int) ->
_hdIacount
{-# INLINE rule199 #-}
rule199 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule200 #-}
rule200 = \ ((_lhsIaroundMap) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->
_lhsIaroundMap
{-# INLINE rule201 #-}
rule201 = \ ((_lhsIcInterfaceMap) :: CInterfaceMap) ->
_lhsIcInterfaceMap
{-# INLINE rule202 #-}
rule202 = \ ((_lhsIcVisitsMap) :: CVisitsMap) ->
_lhsIcVisitsMap
{-# INLINE rule203 #-}
rule203 = \ ((_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# INLINE rule204 #-}
rule204 = \ ((_lhsImanualAttrDepMap) :: AttrOrderMap) ->
_lhsImanualAttrDepMap
{-# INLINE rule205 #-}
rule205 = \ ((_lhsImergeMap) :: Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->
_lhsImergeMap
{-# INLINE rule206 #-}
rule206 = \ ((_lhsIo_case) :: Bool) ->
_lhsIo_case
{-# INLINE rule207 #-}
rule207 = \ ((_lhsIo_cata) :: Bool) ->
_lhsIo_cata
{-# INLINE rule208 #-}
rule208 = \ ((_lhsIo_data) :: Bool) ->
_lhsIo_data
{-# INLINE rule209 #-}
rule209 = \ ((_lhsIo_dovisit) :: Bool) ->
_lhsIo_dovisit
{-# INLINE rule210 #-}
rule210 = \ ((_lhsIo_newtypes) :: Bool) ->
_lhsIo_newtypes
{-# INLINE rule211 #-}
rule211 = \ ((_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# INLINE rule212 #-}
rule212 = \ ((_lhsIo_sem) :: Bool) ->
_lhsIo_sem
{-# INLINE rule213 #-}
rule213 = \ ((_lhsIo_sig) :: Bool) ->
_lhsIo_sig
{-# INLINE rule214 #-}
rule214 = \ ((_lhsIo_unbox) :: Bool) ->
_lhsIo_unbox
{-# INLINE rule215 #-}
rule215 = \ ((_lhsIo_wantvisit) :: Bool) ->
_lhsIo_wantvisit
{-# INLINE rule216 #-}
rule216 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
{-# INLINE rule217 #-}
rule217 = \ ((_lhsIprefix) :: String) ->
_lhsIprefix
{-# INLINE rule218 #-}
rule218 = \ ((_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# INLINE rule219 #-}
rule219 = \ ((_hdIvcount) :: Int) ->
_hdIvcount
{-# NOINLINE sem_Nonterminals_Nil #-}
sem_Nonterminals_Nil :: T_Nonterminals
sem_Nonterminals_Nil :: T_Nonterminals
sem_Nonterminals_Nil = Identity T_Nonterminals_s17 -> T_Nonterminals
T_Nonterminals (forall (m :: * -> *) a. Monad m => a -> m a
return T_Nonterminals_s17
st17) where
{-# NOINLINE st17 #-}
st17 :: T_Nonterminals_s17
st17 = let
v16 :: T_Nonterminals_v16
v16 :: T_Nonterminals_v16
v16 = \ (T_Nonterminals_vIn16 Int
_lhsIacount [Identifier]
_lhsIallnts Map Identifier (Map Identifier (Map Identifier [Expression]))
_lhsIaroundMap CInterfaceMap
_lhsIcInterfaceMap CVisitsMap
_lhsIcVisitsMap Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map
Identifier
(Map Identifier (Map Identifier (Identifier, [Identifier])))
_lhsImergeMap Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_data Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) -> ( let
_lhsOcNonterminals :: CNonterminals
_lhsOcNonterminals :: CNonterminals
_lhsOcNonterminals = forall {a}. () -> [a]
rule220 ()
_lhsOmirages :: [Mirage.Nonterminal]
_lhsOmirages :: [Nonterminal]
_lhsOmirages = forall {a}. () -> [a]
rule221 ()
_lhsOadditionalDep :: Seq Edge
_lhsOadditionalDep :: Seq (Int, Int)
_lhsOadditionalDep = forall {a}. () -> Seq a
rule222 ()
_lhsOaranges :: Seq (Int,Int,Int)
_lhsOaranges :: Seq (Int, Int, Int)
_lhsOaranges = forall {a}. () -> Seq a
rule223 ()
_lhsOaroundDep :: Seq Edge
_lhsOaroundDep :: Seq (Int, Int)
_lhsOaroundDep = forall {a}. () -> Seq a
rule224 ()
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = forall {a}. () -> Seq a
rule225 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = forall {a}. () -> Seq a
rule226 ()
_lhsOinhMap' :: Map Identifier Attributes
_lhsOinhMap' :: Map Identifier Attributes
_lhsOinhMap' = forall {k} {a}. () -> Map k a
rule227 ()
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = forall {a}. () -> Seq a
rule228 ()
_lhsOmergeDep :: Seq Edge
_lhsOmergeDep :: Seq (Int, Int)
_lhsOmergeDep = forall {a}. () -> Seq a
rule229 ()
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = () -> Int
rule230 ()
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = () -> Int
rule231 ()
_lhsOnonts :: [(NontermIdent,[ConstructorIdent])]
_lhsOnonts :: [(Identifier, [Identifier])]
_lhsOnonts = forall {a}. () -> [a]
rule232 ()
_lhsOntattrs :: Seq (Vertex,NTAttr)
_lhsOntattrs :: Seq (Int, NTAttr)
_lhsOntattrs = forall {a}. () -> Seq a
rule233 ()
_lhsOrules :: Seq (Vertex,CRule)
_lhsOrules :: Seq (Int, CRule)
_lhsOrules = forall {a}. () -> Seq a
rule234 ()
_lhsOsynMap' :: Map Identifier Attributes
_lhsOsynMap' :: Map Identifier Attributes
_lhsOsynMap' = forall {k} {a}. () -> Map k a
rule235 ()
_lhsOacount :: Int
_lhsOacount :: Int
_lhsOacount = Int -> Int
rule236 Int
_lhsIacount
_lhsOvcount :: Int
_lhsOvcount :: Int
_lhsOvcount = Int -> Int
rule237 Int
_lhsIvcount
__result_ :: T_Nonterminals_vOut16
__result_ = Int
-> Seq (Int, Int)
-> Seq (Int, Int, Int)
-> Seq (Int, Int)
-> CNonterminals
-> Seq (Int, Int)
-> Seq Error
-> Map Identifier Attributes
-> Seq (Int, Int)
-> Seq (Int, Int)
-> [Nonterminal]
-> Int
-> Int
-> [(Identifier, [Identifier])]
-> Seq (Int, NTAttr)
-> Seq (Int, CRule)
-> Map Identifier Attributes
-> Int
-> T_Nonterminals_vOut16
T_Nonterminals_vOut16 Int
_lhsOacount Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int, Int)
_lhsOaranges Seq (Int, Int)
_lhsOaroundDep CNonterminals
_lhsOcNonterminals Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Map Identifier Attributes
_lhsOinhMap' Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep [Nonterminal]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules [(Identifier, [Identifier])]
_lhsOnonts Seq (Int, NTAttr)
_lhsOntattrs Seq (Int, CRule)
_lhsOrules Map Identifier Attributes
_lhsOsynMap' Int
_lhsOvcount
in T_Nonterminals_vOut16
__result_ )
in T_Nonterminals_v16 -> T_Nonterminals_s17
C_Nonterminals_s17 T_Nonterminals_v16
v16
{-# INLINE rule220 #-}
{-# LINE 627 "src-ag/Order.ag" #-}
rule220 = \ (_ :: ()) ->
{-# LINE 627 "src-ag/Order.ag" #-}
[]
{-# LINE 1836 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule221 #-}
{-# LINE 26 "src-ag/TfmToMirage.ag" #-}
rule221 = \ (_ :: ()) ->
{-# LINE 26 "src-ag/TfmToMirage.ag" #-}
[]
{-# LINE 1842 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule222 #-}
rule222 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule223 #-}
rule223 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule224 #-}
rule224 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule225 #-}
rule225 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule226 #-}
rule226 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule227 #-}
rule227 = \ (_ :: ()) ->
Map.empty
{-# INLINE rule228 #-}
rule228 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule229 #-}
rule229 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule230 #-}
rule230 = \ (_ :: ()) ->
0
{-# INLINE rule231 #-}
rule231 = \ (_ :: ()) ->
0
{-# INLINE rule232 #-}
rule232 = \ (_ :: ()) ->
[]
{-# INLINE rule233 #-}
rule233 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule234 #-}
rule234 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule235 #-}
rule235 = \ (_ :: ()) ->
Map.empty
{-# INLINE rule236 #-}
rule236 = \ ((_lhsIacount) :: Int) ->
_lhsIacount
{-# INLINE rule237 #-}
rule237 = \ ((_lhsIvcount) :: Int) ->
_lhsIvcount
data Inh_Pattern = Inh_Pattern { Inh_Pattern -> Attributes
allTypeSigs_Inh_Pattern :: (Map Identifier Type), Inh_Pattern -> Map AltAttr Int
altAttrs_Inh_Pattern :: (Map AltAttr Vertex), Inh_Pattern -> Bool
belowIrrefutable_Inh_Pattern :: (Bool), Inh_Pattern -> Identifier
con_Inh_Pattern :: (Identifier), Inh_Pattern -> Attributes
inh_Inh_Pattern :: (Attributes), Inh_Pattern -> Identifier
nt_Inh_Pattern :: (Identifier), Inh_Pattern -> Attributes
syn_Inh_Pattern :: (Attributes) }
data Syn_Pattern = Syn_Pattern { Syn_Pattern -> Pattern
copy_Syn_Pattern :: (Pattern), Syn_Pattern -> Seq Error
errors_Syn_Pattern :: (Seq Error), Syn_Pattern -> [AltAttr]
gathAltAttrs_Syn_Pattern :: ([AltAttr]), Syn_Pattern -> [Identifier]
instVars_Syn_Pattern :: ([Identifier]), Syn_Pattern -> Bool
isUnderscore_Syn_Pattern :: (Bool), Syn_Pattern -> [Identifier]
locVars_Syn_Pattern :: ([Identifier]), Syn_Pattern -> [(Identifier, Identifier, Bool)]
patternAttrs_Syn_Pattern :: ([(Identifier,Identifier,Bool)]), Syn_Pattern -> PP_Doc
pp_Syn_Pattern :: (PP_Doc) }
{-# INLINABLE wrap_Pattern #-}
wrap_Pattern :: T_Pattern -> Inh_Pattern -> (Syn_Pattern )
wrap_Pattern :: T_Pattern -> Inh_Pattern -> Syn_Pattern
wrap_Pattern (T_Pattern Identity T_Pattern_s20
act) (Inh_Pattern Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Pattern_s20
sem <- Identity T_Pattern_s20
act
let arg19 :: T_Pattern_vIn19
arg19 = Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Pattern_vIn19
T_Pattern_vIn19 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn
(T_Pattern_vOut19 Pattern
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars Bool
_lhsOisUnderscore [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs PP_Doc
_lhsOpp) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Pattern_s20 -> T_Pattern_v19
inv_Pattern_s20 T_Pattern_s20
sem T_Pattern_vIn19
arg19)
forall (m :: * -> *) a. Monad m => a -> m a
return (Pattern
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> Bool
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> PP_Doc
-> Syn_Pattern
Syn_Pattern Pattern
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars Bool
_lhsOisUnderscore [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs PP_Doc
_lhsOpp)
)
{-# NOINLINE sem_Pattern #-}
sem_Pattern :: Pattern -> T_Pattern
sem_Pattern :: Pattern -> T_Pattern
sem_Pattern ( Constr Identifier
name_ Patterns
pats_ ) = Identifier -> T_Patterns -> T_Pattern
sem_Pattern_Constr Identifier
name_ ( Patterns -> T_Patterns
sem_Patterns Patterns
pats_ )
sem_Pattern ( Product Pos
pos_ Patterns
pats_ ) = Pos -> T_Patterns -> T_Pattern
sem_Pattern_Product Pos
pos_ ( Patterns -> T_Patterns
sem_Patterns Patterns
pats_ )
sem_Pattern ( Alias Identifier
field_ Identifier
attr_ Pattern
pat_ ) = Identifier -> Identifier -> T_Pattern -> T_Pattern
sem_Pattern_Alias Identifier
field_ Identifier
attr_ ( Pattern -> T_Pattern
sem_Pattern Pattern
pat_ )
sem_Pattern ( Irrefutable Pattern
pat_ ) = T_Pattern -> T_Pattern
sem_Pattern_Irrefutable ( Pattern -> T_Pattern
sem_Pattern Pattern
pat_ )
sem_Pattern ( Underscore Pos
pos_ ) = Pos -> T_Pattern
sem_Pattern_Underscore Pos
pos_
newtype T_Pattern = T_Pattern {
T_Pattern -> Identity T_Pattern_s20
attach_T_Pattern :: Identity (T_Pattern_s20 )
}
newtype T_Pattern_s20 = C_Pattern_s20 {
T_Pattern_s20 -> T_Pattern_v19
inv_Pattern_s20 :: (T_Pattern_v19 )
}
data T_Pattern_s21 = C_Pattern_s21
type T_Pattern_v19 = (T_Pattern_vIn19 ) -> (T_Pattern_vOut19 )
data T_Pattern_vIn19 = T_Pattern_vIn19 (Map Identifier Type) (Map AltAttr Vertex) (Bool) (Identifier) (Attributes) (Identifier) (Attributes)
data T_Pattern_vOut19 = T_Pattern_vOut19 (Pattern) (Seq Error) ([AltAttr]) ([Identifier]) (Bool) ([Identifier]) ([(Identifier,Identifier,Bool)]) (PP_Doc)
{-# NOINLINE sem_Pattern_Constr #-}
sem_Pattern_Constr :: (ConstructorIdent) -> T_Patterns -> T_Pattern
sem_Pattern_Constr :: Identifier -> T_Patterns -> T_Pattern
sem_Pattern_Constr Identifier
arg_name_ T_Patterns
arg_pats_ = Identity T_Pattern_s20 -> T_Pattern
T_Pattern (forall (m :: * -> *) a. Monad m => a -> m a
return T_Pattern_s20
st20) where
{-# NOINLINE st20 #-}
st20 :: T_Pattern_s20
st20 = let
v19 :: T_Pattern_v19
v19 :: T_Pattern_v19
v19 = \ (T_Pattern_vIn19 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) -> ( let
_patsX23 :: T_Patterns_s23
_patsX23 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Patterns -> Identity T_Patterns_s23
attach_T_Patterns (T_Patterns
arg_pats_))
(T_Patterns_vOut22 Patterns
_patsIcopy Seq Error
_patsIerrors [AltAttr]
_patsIgathAltAttrs [Identifier]
_patsIinstVars [Identifier]
_patsIlocVars [(Identifier, Identifier, Bool)]
_patsIpatternAttrs [PP_Doc]
_patsIpps) = T_Patterns_s23 -> T_Patterns_v22
inv_Patterns_s23 T_Patterns_s23
_patsX23 (Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Patterns_vIn22
T_Patterns_vIn22 Attributes
_patsOallTypeSigs Map AltAttr Int
_patsOaltAttrs Bool
_patsObelowIrrefutable Identifier
_patsOcon Attributes
_patsOinh Identifier
_patsOnt Attributes
_patsOsyn)
_lhsOpp :: PP_Doc
_lhsOpp :: PP_Doc
_lhsOpp = [PP_Doc] -> Identifier -> PP_Doc
rule238 [PP_Doc]
_patsIpps Identifier
arg_name_
_lhsOisUnderscore :: Bool
_lhsOisUnderscore :: Bool
_lhsOisUnderscore = () -> Bool
rule239 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error
rule240 Seq Error
_patsIerrors
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = [AltAttr] -> [AltAttr]
rule241 [AltAttr]
_patsIgathAltAttrs
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = [Identifier] -> [Identifier]
rule242 [Identifier]
_patsIinstVars
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = [Identifier] -> [Identifier]
rule243 [Identifier]
_patsIlocVars
_lhsOpatternAttrs :: [(Identifier,Identifier,Bool)]
_lhsOpatternAttrs :: [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs = [(Identifier, Identifier, Bool)]
-> [(Identifier, Identifier, Bool)]
rule244 [(Identifier, Identifier, Bool)]
_patsIpatternAttrs
_copy :: Pattern
_copy = Patterns -> Identifier -> Pattern
rule245 Patterns
_patsIcopy Identifier
arg_name_
_lhsOcopy :: Pattern
_lhsOcopy :: Pattern
_lhsOcopy = forall {p}. p -> p
rule246 Pattern
_copy
_patsOallTypeSigs :: Attributes
_patsOallTypeSigs = Attributes -> Attributes
rule247 Attributes
_lhsIallTypeSigs
_patsOaltAttrs :: Map AltAttr Int
_patsOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule248 Map AltAttr Int
_lhsIaltAttrs
_patsObelowIrrefutable :: Bool
_patsObelowIrrefutable = Bool -> Bool
rule249 Bool
_lhsIbelowIrrefutable
_patsOcon :: Identifier
_patsOcon = Identifier -> Identifier
rule250 Identifier
_lhsIcon
_patsOinh :: Attributes
_patsOinh = Attributes -> Attributes
rule251 Attributes
_lhsIinh
_patsOnt :: Identifier
_patsOnt = Identifier -> Identifier
rule252 Identifier
_lhsInt
_patsOsyn :: Attributes
_patsOsyn = Attributes -> Attributes
rule253 Attributes
_lhsIsyn
__result_ :: T_Pattern_vOut19
__result_ = Pattern
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> Bool
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> PP_Doc
-> T_Pattern_vOut19
T_Pattern_vOut19 Pattern
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars Bool
_lhsOisUnderscore [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs PP_Doc
_lhsOpp
in T_Pattern_vOut19
__result_ )
in T_Pattern_v19 -> T_Pattern_s20
C_Pattern_s20 T_Pattern_v19
v19
{-# INLINE rule238 #-}
{-# LINE 80 "src-ag/TfmToMirage.ag" #-}
rule238 = \ ((_patsIpps) :: [PP_Doc]) name_ ->
{-# LINE 80 "src-ag/TfmToMirage.ag" #-}
pp_parens $ name_ >#< hv_sp _patsIpps
{-# LINE 1967 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule239 #-}
{-# LINE 91 "src-ag/TfmToMirage.ag" #-}
rule239 = \ (_ :: ()) ->
{-# LINE 91 "src-ag/TfmToMirage.ag" #-}
False
{-# LINE 1973 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule240 #-}
rule240 = \ ((_patsIerrors) :: Seq Error) ->
_patsIerrors
{-# INLINE rule241 #-}
rule241 = \ ((_patsIgathAltAttrs) :: [AltAttr]) ->
_patsIgathAltAttrs
{-# INLINE rule242 #-}
rule242 = \ ((_patsIinstVars) :: [Identifier]) ->
_patsIinstVars
{-# INLINE rule243 #-}
rule243 = \ ((_patsIlocVars) :: [Identifier]) ->
_patsIlocVars
{-# INLINE rule244 #-}
rule244 = \ ((_patsIpatternAttrs) :: [(Identifier,Identifier,Bool)]) ->
_patsIpatternAttrs
{-# INLINE rule245 #-}
rule245 = \ ((_patsIcopy) :: Patterns) name_ ->
Constr name_ _patsIcopy
{-# INLINE rule246 #-}
rule246 = \ _copy ->
_copy
{-# INLINE rule247 #-}
rule247 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule248 #-}
rule248 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule249 #-}
rule249 = \ ((_lhsIbelowIrrefutable) :: Bool) ->
_lhsIbelowIrrefutable
{-# INLINE rule250 #-}
rule250 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule251 #-}
rule251 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule252 #-}
rule252 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule253 #-}
rule253 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# NOINLINE sem_Pattern_Product #-}
sem_Pattern_Product :: (Pos) -> T_Patterns -> T_Pattern
sem_Pattern_Product :: Pos -> T_Patterns -> T_Pattern
sem_Pattern_Product Pos
arg_pos_ T_Patterns
arg_pats_ = Identity T_Pattern_s20 -> T_Pattern
T_Pattern (forall (m :: * -> *) a. Monad m => a -> m a
return T_Pattern_s20
st20) where
{-# NOINLINE st20 #-}
st20 :: T_Pattern_s20
st20 = let
v19 :: T_Pattern_v19
v19 :: T_Pattern_v19
v19 = \ (T_Pattern_vIn19 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) -> ( let
_patsX23 :: T_Patterns_s23
_patsX23 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Patterns -> Identity T_Patterns_s23
attach_T_Patterns (T_Patterns
arg_pats_))
(T_Patterns_vOut22 Patterns
_patsIcopy Seq Error
_patsIerrors [AltAttr]
_patsIgathAltAttrs [Identifier]
_patsIinstVars [Identifier]
_patsIlocVars [(Identifier, Identifier, Bool)]
_patsIpatternAttrs [PP_Doc]
_patsIpps) = T_Patterns_s23 -> T_Patterns_v22
inv_Patterns_s23 T_Patterns_s23
_patsX23 (Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Patterns_vIn22
T_Patterns_vIn22 Attributes
_patsOallTypeSigs Map AltAttr Int
_patsOaltAttrs Bool
_patsObelowIrrefutable Identifier
_patsOcon Attributes
_patsOinh Identifier
_patsOnt Attributes
_patsOsyn)
_lhsOpp :: PP_Doc
_lhsOpp :: PP_Doc
_lhsOpp = [PP_Doc] -> PP_Doc
rule254 [PP_Doc]
_patsIpps
_lhsOisUnderscore :: Bool
_lhsOisUnderscore :: Bool
_lhsOisUnderscore = () -> Bool
rule255 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error
rule256 Seq Error
_patsIerrors
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = [AltAttr] -> [AltAttr]
rule257 [AltAttr]
_patsIgathAltAttrs
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = [Identifier] -> [Identifier]
rule258 [Identifier]
_patsIinstVars
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = [Identifier] -> [Identifier]
rule259 [Identifier]
_patsIlocVars
_lhsOpatternAttrs :: [(Identifier,Identifier,Bool)]
_lhsOpatternAttrs :: [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs = [(Identifier, Identifier, Bool)]
-> [(Identifier, Identifier, Bool)]
rule260 [(Identifier, Identifier, Bool)]
_patsIpatternAttrs
_copy :: Pattern
_copy = Patterns -> Pos -> Pattern
rule261 Patterns
_patsIcopy Pos
arg_pos_
_lhsOcopy :: Pattern
_lhsOcopy :: Pattern
_lhsOcopy = forall {p}. p -> p
rule262 Pattern
_copy
_patsOallTypeSigs :: Attributes
_patsOallTypeSigs = Attributes -> Attributes
rule263 Attributes
_lhsIallTypeSigs
_patsOaltAttrs :: Map AltAttr Int
_patsOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule264 Map AltAttr Int
_lhsIaltAttrs
_patsObelowIrrefutable :: Bool
_patsObelowIrrefutable = Bool -> Bool
rule265 Bool
_lhsIbelowIrrefutable
_patsOcon :: Identifier
_patsOcon = Identifier -> Identifier
rule266 Identifier
_lhsIcon
_patsOinh :: Attributes
_patsOinh = Attributes -> Attributes
rule267 Attributes
_lhsIinh
_patsOnt :: Identifier
_patsOnt = Identifier -> Identifier
rule268 Identifier
_lhsInt
_patsOsyn :: Attributes
_patsOsyn = Attributes -> Attributes
rule269 Attributes
_lhsIsyn
__result_ :: T_Pattern_vOut19
__result_ = Pattern
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> Bool
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> PP_Doc
-> T_Pattern_vOut19
T_Pattern_vOut19 Pattern
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars Bool
_lhsOisUnderscore [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs PP_Doc
_lhsOpp
in T_Pattern_vOut19
__result_ )
in T_Pattern_v19 -> T_Pattern_s20
C_Pattern_s20 T_Pattern_v19
v19
{-# INLINE rule254 #-}
{-# LINE 81 "src-ag/TfmToMirage.ag" #-}
rule254 = \ ((_patsIpps) :: [PP_Doc]) ->
{-# LINE 81 "src-ag/TfmToMirage.ag" #-}
pp_block "(" ")" "," _patsIpps
{-# LINE 2057 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule255 #-}
{-# LINE 92 "src-ag/TfmToMirage.ag" #-}
rule255 = \ (_ :: ()) ->
{-# LINE 92 "src-ag/TfmToMirage.ag" #-}
False
{-# LINE 2063 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule256 #-}
rule256 = \ ((_patsIerrors) :: Seq Error) ->
_patsIerrors
{-# INLINE rule257 #-}
rule257 = \ ((_patsIgathAltAttrs) :: [AltAttr]) ->
_patsIgathAltAttrs
{-# INLINE rule258 #-}
rule258 = \ ((_patsIinstVars) :: [Identifier]) ->
_patsIinstVars
{-# INLINE rule259 #-}
rule259 = \ ((_patsIlocVars) :: [Identifier]) ->
_patsIlocVars
{-# INLINE rule260 #-}
rule260 = \ ((_patsIpatternAttrs) :: [(Identifier,Identifier,Bool)]) ->
_patsIpatternAttrs
{-# INLINE rule261 #-}
rule261 = \ ((_patsIcopy) :: Patterns) pos_ ->
Product pos_ _patsIcopy
{-# INLINE rule262 #-}
rule262 = \ _copy ->
_copy
{-# INLINE rule263 #-}
rule263 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule264 #-}
rule264 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule265 #-}
rule265 = \ ((_lhsIbelowIrrefutable) :: Bool) ->
_lhsIbelowIrrefutable
{-# INLINE rule266 #-}
rule266 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule267 #-}
rule267 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule268 #-}
rule268 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule269 #-}
rule269 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# NOINLINE sem_Pattern_Alias #-}
sem_Pattern_Alias :: (Identifier) -> (Identifier) -> T_Pattern -> T_Pattern
sem_Pattern_Alias :: Identifier -> Identifier -> T_Pattern -> T_Pattern
sem_Pattern_Alias Identifier
arg_field_ Identifier
arg_attr_ T_Pattern
arg_pat_ = Identity T_Pattern_s20 -> T_Pattern
T_Pattern (forall (m :: * -> *) a. Monad m => a -> m a
return T_Pattern_s20
st20) where
{-# NOINLINE st20 #-}
st20 :: T_Pattern_s20
st20 = let
v19 :: T_Pattern_v19
v19 :: T_Pattern_v19
v19 = \ (T_Pattern_vIn19 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) -> ( let
_patX20 :: T_Pattern_s20
_patX20 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Pattern -> Identity T_Pattern_s20
attach_T_Pattern (T_Pattern
arg_pat_))
(T_Pattern_vOut19 Pattern
_patIcopy Seq Error
_patIerrors [AltAttr]
_patIgathAltAttrs [Identifier]
_patIinstVars Bool
_patIisUnderscore [Identifier]
_patIlocVars [(Identifier, Identifier, Bool)]
_patIpatternAttrs PP_Doc
_patIpp) = T_Pattern_s20 -> T_Pattern_v19
inv_Pattern_s20 T_Pattern_s20
_patX20 (Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Pattern_vIn19
T_Pattern_vIn19 Attributes
_patOallTypeSigs Map AltAttr Int
_patOaltAttrs Bool
_patObelowIrrefutable Identifier
_patOcon Attributes
_patOinh Identifier
_patOnt Attributes
_patOsyn)
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = Identifier -> Identifier -> [AltAttr]
rule270 Identifier
arg_attr_ Identifier
arg_field_
_lhsOpatternAttrs :: [(Identifier,Identifier,Bool)]
_lhsOpatternAttrs :: [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs = forall {b}. b -> Identifier -> [(Identifier, b, Bool)]
rule271 Identifier
arg_attr_ Identifier
arg_field_
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = forall {a}. a -> Identifier -> [a]
rule272 Identifier
arg_attr_ Identifier
arg_field_
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = forall {a}. a -> Identifier -> [a]
rule273 Identifier
arg_attr_ Identifier
arg_field_
_ppVar :: PP_Doc
_ppVar = Identifier -> Identifier -> PP_Doc
rule274 Identifier
arg_attr_ Identifier
arg_field_
_ppVarBang :: PP_Doc
_ppVarBang = forall {p}. p -> p
rule275 PP_Doc
_ppVar
_lhsOpp :: PP_Doc
_lhsOpp :: PP_Doc
_lhsOpp = Bool -> PP_Doc -> PP_Doc -> PP_Doc
rule276 Bool
_patIisUnderscore PP_Doc
_patIpp PP_Doc
_ppVarBang
_lhsOisUnderscore :: Bool
_lhsOisUnderscore :: Bool
_lhsOisUnderscore = () -> Bool
rule277 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error
rule278 Seq Error
_patIerrors
_copy :: Pattern
_copy = Pattern -> Identifier -> Identifier -> Pattern
rule279 Pattern
_patIcopy Identifier
arg_attr_ Identifier
arg_field_
_lhsOcopy :: Pattern
_lhsOcopy :: Pattern
_lhsOcopy = forall {p}. p -> p
rule280 Pattern
_copy
_patOallTypeSigs :: Attributes
_patOallTypeSigs = Attributes -> Attributes
rule281 Attributes
_lhsIallTypeSigs
_patOaltAttrs :: Map AltAttr Int
_patOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule282 Map AltAttr Int
_lhsIaltAttrs
_patObelowIrrefutable :: Bool
_patObelowIrrefutable = Bool -> Bool
rule283 Bool
_lhsIbelowIrrefutable
_patOcon :: Identifier
_patOcon = Identifier -> Identifier
rule284 Identifier
_lhsIcon
_patOinh :: Attributes
_patOinh = Attributes -> Attributes
rule285 Attributes
_lhsIinh
_patOnt :: Identifier
_patOnt = Identifier -> Identifier
rule286 Identifier
_lhsInt
_patOsyn :: Attributes
_patOsyn = Attributes -> Attributes
rule287 Attributes
_lhsIsyn
__result_ :: T_Pattern_vOut19
__result_ = Pattern
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> Bool
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> PP_Doc
-> T_Pattern_vOut19
T_Pattern_vOut19 Pattern
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars Bool
_lhsOisUnderscore [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs PP_Doc
_lhsOpp
in T_Pattern_vOut19
__result_ )
in T_Pattern_v19 -> T_Pattern_s20
C_Pattern_s20 T_Pattern_v19
v19
{-# INLINE rule270 #-}
{-# LINE 187 "src-ag/Order.ag" #-}
rule270 = \ attr_ field_ ->
{-# LINE 187 "src-ag/Order.ag" #-}
[AltAttr field_ attr_ (field_ == _LOC || field_ == _INST)]
{-# LINE 2149 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule271 #-}
{-# LINE 253 "src-ag/Order.ag" #-}
rule271 = \ attr_ field_ ->
{-# LINE 253 "src-ag/Order.ag" #-}
[(field_,attr_,(field_ == _LOC || field_ == _INST))]
{-# LINE 2155 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule272 #-}
{-# LINE 685 "src-ag/Order.ag" #-}
rule272 = \ attr_ field_ ->
{-# LINE 685 "src-ag/Order.ag" #-}
if field_ == _LOC
then [attr_]
else []
{-# LINE 2163 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule273 #-}
{-# LINE 688 "src-ag/Order.ag" #-}
rule273 = \ attr_ field_ ->
{-# LINE 688 "src-ag/Order.ag" #-}
if field_ == _INST
then [attr_]
else []
{-# LINE 2171 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule274 #-}
{-# LINE 82 "src-ag/TfmToMirage.ag" #-}
rule274 = \ attr_ field_ ->
{-# LINE 82 "src-ag/TfmToMirage.ag" #-}
pp field_ >|< "." >|< pp attr_
{-# LINE 2177 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule275 #-}
{-# LINE 83 "src-ag/TfmToMirage.ag" #-}
rule275 = \ _ppVar ->
{-# LINE 83 "src-ag/TfmToMirage.ag" #-}
_ppVar
{-# LINE 2183 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule276 #-}
{-# LINE 84 "src-ag/TfmToMirage.ag" #-}
rule276 = \ ((_patIisUnderscore) :: Bool) ((_patIpp) :: PP_Doc) _ppVarBang ->
{-# LINE 84 "src-ag/TfmToMirage.ag" #-}
if _patIisUnderscore
then _ppVarBang
else _ppVarBang >|< "@" >|< _patIpp
{-# LINE 2191 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule277 #-}
{-# LINE 93 "src-ag/TfmToMirage.ag" #-}
rule277 = \ (_ :: ()) ->
{-# LINE 93 "src-ag/TfmToMirage.ag" #-}
False
{-# LINE 2197 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule278 #-}
rule278 = \ ((_patIerrors) :: Seq Error) ->
_patIerrors
{-# INLINE rule279 #-}
rule279 = \ ((_patIcopy) :: Pattern) attr_ field_ ->
Alias field_ attr_ _patIcopy
{-# INLINE rule280 #-}
rule280 = \ _copy ->
_copy
{-# INLINE rule281 #-}
rule281 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule282 #-}
rule282 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule283 #-}
rule283 = \ ((_lhsIbelowIrrefutable) :: Bool) ->
_lhsIbelowIrrefutable
{-# INLINE rule284 #-}
rule284 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule285 #-}
rule285 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule286 #-}
rule286 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule287 #-}
rule287 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# NOINLINE sem_Pattern_Irrefutable #-}
sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern
sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern
sem_Pattern_Irrefutable T_Pattern
arg_pat_ = Identity T_Pattern_s20 -> T_Pattern
T_Pattern (forall (m :: * -> *) a. Monad m => a -> m a
return T_Pattern_s20
st20) where
{-# NOINLINE st20 #-}
st20 :: T_Pattern_s20
st20 = let
v19 :: T_Pattern_v19
v19 :: T_Pattern_v19
v19 = \ (T_Pattern_vIn19 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) -> ( let
_patX20 :: T_Pattern_s20
_patX20 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Pattern -> Identity T_Pattern_s20
attach_T_Pattern (T_Pattern
arg_pat_))
(T_Pattern_vOut19 Pattern
_patIcopy Seq Error
_patIerrors [AltAttr]
_patIgathAltAttrs [Identifier]
_patIinstVars Bool
_patIisUnderscore [Identifier]
_patIlocVars [(Identifier, Identifier, Bool)]
_patIpatternAttrs PP_Doc
_patIpp) = T_Pattern_s20 -> T_Pattern_v19
inv_Pattern_s20 T_Pattern_s20
_patX20 (Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Pattern_vIn19
T_Pattern_vIn19 Attributes
_patOallTypeSigs Map AltAttr Int
_patOaltAttrs Bool
_patObelowIrrefutable Identifier
_patOcon Attributes
_patOinh Identifier
_patOnt Attributes
_patOsyn)
_lhsOpp :: PP_Doc
_lhsOpp :: PP_Doc
_lhsOpp = PP_Doc -> PP_Doc
rule288 PP_Doc
_patIpp
_patObelowIrrefutable :: Bool
_patObelowIrrefutable = () -> Bool
rule289 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error
rule290 Seq Error
_patIerrors
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = [AltAttr] -> [AltAttr]
rule291 [AltAttr]
_patIgathAltAttrs
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = [Identifier] -> [Identifier]
rule292 [Identifier]
_patIinstVars
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = [Identifier] -> [Identifier]
rule293 [Identifier]
_patIlocVars
_lhsOpatternAttrs :: [(Identifier,Identifier,Bool)]
_lhsOpatternAttrs :: [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs = [(Identifier, Identifier, Bool)]
-> [(Identifier, Identifier, Bool)]
rule294 [(Identifier, Identifier, Bool)]
_patIpatternAttrs
_copy :: Pattern
_copy = Pattern -> Pattern
rule295 Pattern
_patIcopy
_lhsOcopy :: Pattern
_lhsOcopy :: Pattern
_lhsOcopy = forall {p}. p -> p
rule296 Pattern
_copy
_lhsOisUnderscore :: Bool
_lhsOisUnderscore :: Bool
_lhsOisUnderscore = Bool -> Bool
rule297 Bool
_patIisUnderscore
_patOallTypeSigs :: Attributes
_patOallTypeSigs = Attributes -> Attributes
rule298 Attributes
_lhsIallTypeSigs
_patOaltAttrs :: Map AltAttr Int
_patOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule299 Map AltAttr Int
_lhsIaltAttrs
_patOcon :: Identifier
_patOcon = Identifier -> Identifier
rule300 Identifier
_lhsIcon
_patOinh :: Attributes
_patOinh = Attributes -> Attributes
rule301 Attributes
_lhsIinh
_patOnt :: Identifier
_patOnt = Identifier -> Identifier
rule302 Identifier
_lhsInt
_patOsyn :: Attributes
_patOsyn = Attributes -> Attributes
rule303 Attributes
_lhsIsyn
__result_ :: T_Pattern_vOut19
__result_ = Pattern
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> Bool
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> PP_Doc
-> T_Pattern_vOut19
T_Pattern_vOut19 Pattern
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars Bool
_lhsOisUnderscore [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs PP_Doc
_lhsOpp
in T_Pattern_vOut19
__result_ )
in T_Pattern_v19 -> T_Pattern_s20
C_Pattern_s20 T_Pattern_v19
v19
{-# INLINE rule288 #-}
{-# LINE 87 "src-ag/TfmToMirage.ag" #-}
rule288 = \ ((_patIpp) :: PP_Doc) ->
{-# LINE 87 "src-ag/TfmToMirage.ag" #-}
text "~" >|< pp_parens _patIpp
{-# LINE 2269 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule289 #-}
{-# LINE 100 "src-ag/TfmToMirage.ag" #-}
rule289 = \ (_ :: ()) ->
{-# LINE 100 "src-ag/TfmToMirage.ag" #-}
True
{-# LINE 2275 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule290 #-}
rule290 = \ ((_patIerrors) :: Seq Error) ->
_patIerrors
{-# INLINE rule291 #-}
rule291 = \ ((_patIgathAltAttrs) :: [AltAttr]) ->
_patIgathAltAttrs
{-# INLINE rule292 #-}
rule292 = \ ((_patIinstVars) :: [Identifier]) ->
_patIinstVars
{-# INLINE rule293 #-}
rule293 = \ ((_patIlocVars) :: [Identifier]) ->
_patIlocVars
{-# INLINE rule294 #-}
rule294 = \ ((_patIpatternAttrs) :: [(Identifier,Identifier,Bool)]) ->
_patIpatternAttrs
{-# INLINE rule295 #-}
rule295 = \ ((_patIcopy) :: Pattern) ->
Irrefutable _patIcopy
{-# INLINE rule296 #-}
rule296 = \ _copy ->
_copy
{-# INLINE rule297 #-}
rule297 = \ ((_patIisUnderscore) :: Bool) ->
_patIisUnderscore
{-# INLINE rule298 #-}
rule298 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule299 #-}
rule299 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule300 #-}
rule300 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule301 #-}
rule301 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule302 #-}
rule302 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule303 #-}
rule303 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# NOINLINE sem_Pattern_Underscore #-}
sem_Pattern_Underscore :: (Pos) -> T_Pattern
sem_Pattern_Underscore :: Pos -> T_Pattern
sem_Pattern_Underscore Pos
arg_pos_ = Identity T_Pattern_s20 -> T_Pattern
T_Pattern (forall (m :: * -> *) a. Monad m => a -> m a
return T_Pattern_s20
st20) where
{-# NOINLINE st20 #-}
st20 :: T_Pattern_s20
st20 = let
v19 :: T_Pattern_v19
v19 :: T_Pattern_v19
v19 = \ (T_Pattern_vIn19 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) -> ( let
_lhsOpp :: PP_Doc
_lhsOpp :: PP_Doc
_lhsOpp = () -> PP_Doc
rule304 ()
_lhsOisUnderscore :: Bool
_lhsOisUnderscore :: Bool
_lhsOisUnderscore = () -> Bool
rule305 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = forall {a}. () -> Seq a
rule306 ()
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = forall {a}. () -> [a]
rule307 ()
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = forall {a}. () -> [a]
rule308 ()
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = forall {a}. () -> [a]
rule309 ()
_lhsOpatternAttrs :: [(Identifier,Identifier,Bool)]
_lhsOpatternAttrs :: [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs = forall {a}. () -> [a]
rule310 ()
_copy :: Pattern
_copy = Pos -> Pattern
rule311 Pos
arg_pos_
_lhsOcopy :: Pattern
_lhsOcopy :: Pattern
_lhsOcopy = forall {p}. p -> p
rule312 Pattern
_copy
__result_ :: T_Pattern_vOut19
__result_ = Pattern
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> Bool
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> PP_Doc
-> T_Pattern_vOut19
T_Pattern_vOut19 Pattern
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars Bool
_lhsOisUnderscore [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs PP_Doc
_lhsOpp
in T_Pattern_vOut19
__result_ )
in T_Pattern_v19 -> T_Pattern_s20
C_Pattern_s20 T_Pattern_v19
v19
{-# INLINE rule304 #-}
{-# LINE 88 "src-ag/TfmToMirage.ag" #-}
rule304 = \ (_ :: ()) ->
{-# LINE 88 "src-ag/TfmToMirage.ag" #-}
text "_"
{-# LINE 2350 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule305 #-}
{-# LINE 94 "src-ag/TfmToMirage.ag" #-}
rule305 = \ (_ :: ()) ->
{-# LINE 94 "src-ag/TfmToMirage.ag" #-}
True
{-# LINE 2356 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule306 #-}
rule306 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule307 #-}
rule307 = \ (_ :: ()) ->
[]
{-# INLINE rule308 #-}
rule308 = \ (_ :: ()) ->
[]
{-# INLINE rule309 #-}
rule309 = \ (_ :: ()) ->
[]
{-# INLINE rule310 #-}
rule310 = \ (_ :: ()) ->
[]
{-# INLINE rule311 #-}
rule311 = \ pos_ ->
Underscore pos_
{-# INLINE rule312 #-}
rule312 = \ _copy ->
_copy
data Inh_Patterns = Inh_Patterns { Inh_Patterns -> Attributes
allTypeSigs_Inh_Patterns :: (Map Identifier Type), Inh_Patterns -> Map AltAttr Int
altAttrs_Inh_Patterns :: (Map AltAttr Vertex), Inh_Patterns -> Bool
belowIrrefutable_Inh_Patterns :: (Bool), Inh_Patterns -> Identifier
con_Inh_Patterns :: (Identifier), Inh_Patterns -> Attributes
inh_Inh_Patterns :: (Attributes), Inh_Patterns -> Identifier
nt_Inh_Patterns :: (Identifier), Inh_Patterns -> Attributes
syn_Inh_Patterns :: (Attributes) }
data Syn_Patterns = Syn_Patterns { Syn_Patterns -> Patterns
copy_Syn_Patterns :: (Patterns), Syn_Patterns -> Seq Error
errors_Syn_Patterns :: (Seq Error), Syn_Patterns -> [AltAttr]
gathAltAttrs_Syn_Patterns :: ([AltAttr]), Syn_Patterns -> [Identifier]
instVars_Syn_Patterns :: ([Identifier]), Syn_Patterns -> [Identifier]
locVars_Syn_Patterns :: ([Identifier]), Syn_Patterns -> [(Identifier, Identifier, Bool)]
patternAttrs_Syn_Patterns :: ([(Identifier,Identifier,Bool)]), Syn_Patterns -> [PP_Doc]
pps_Syn_Patterns :: ([PP_Doc]) }
{-# INLINABLE wrap_Patterns #-}
wrap_Patterns :: T_Patterns -> Inh_Patterns -> (Syn_Patterns )
wrap_Patterns :: T_Patterns -> Inh_Patterns -> Syn_Patterns
wrap_Patterns (T_Patterns Identity T_Patterns_s23
act) (Inh_Patterns Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Patterns_s23
sem <- Identity T_Patterns_s23
act
let arg22 :: T_Patterns_vIn22
arg22 = Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Patterns_vIn22
T_Patterns_vIn22 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn
(T_Patterns_vOut22 Patterns
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs [PP_Doc]
_lhsOpps) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Patterns_s23 -> T_Patterns_v22
inv_Patterns_s23 T_Patterns_s23
sem T_Patterns_vIn22
arg22)
forall (m :: * -> *) a. Monad m => a -> m a
return (Patterns
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> [PP_Doc]
-> Syn_Patterns
Syn_Patterns Patterns
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs [PP_Doc]
_lhsOpps)
)
{-# NOINLINE sem_Patterns #-}
sem_Patterns :: Patterns -> T_Patterns
sem_Patterns :: Patterns -> T_Patterns
sem_Patterns Patterns
list = forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
Prelude.foldr T_Pattern -> T_Patterns -> T_Patterns
sem_Patterns_Cons T_Patterns
sem_Patterns_Nil (forall a b. (a -> b) -> [a] -> [b]
Prelude.map Pattern -> T_Pattern
sem_Pattern Patterns
list)
newtype T_Patterns = T_Patterns {
T_Patterns -> Identity T_Patterns_s23
attach_T_Patterns :: Identity (T_Patterns_s23 )
}
newtype T_Patterns_s23 = C_Patterns_s23 {
T_Patterns_s23 -> T_Patterns_v22
inv_Patterns_s23 :: (T_Patterns_v22 )
}
data T_Patterns_s24 = C_Patterns_s24
type T_Patterns_v22 = (T_Patterns_vIn22 ) -> (T_Patterns_vOut22 )
data T_Patterns_vIn22 = T_Patterns_vIn22 (Map Identifier Type) (Map AltAttr Vertex) (Bool) (Identifier) (Attributes) (Identifier) (Attributes)
data T_Patterns_vOut22 = T_Patterns_vOut22 (Patterns) (Seq Error) ([AltAttr]) ([Identifier]) ([Identifier]) ([(Identifier,Identifier,Bool)]) ([PP_Doc])
{-# NOINLINE sem_Patterns_Cons #-}
sem_Patterns_Cons :: T_Pattern -> T_Patterns -> T_Patterns
sem_Patterns_Cons :: T_Pattern -> T_Patterns -> T_Patterns
sem_Patterns_Cons T_Pattern
arg_hd_ T_Patterns
arg_tl_ = Identity T_Patterns_s23 -> T_Patterns
T_Patterns (forall (m :: * -> *) a. Monad m => a -> m a
return T_Patterns_s23
st23) where
{-# NOINLINE st23 #-}
st23 :: T_Patterns_s23
st23 = let
v22 :: T_Patterns_v22
v22 :: T_Patterns_v22
v22 = \ (T_Patterns_vIn22 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) -> ( let
_hdX20 :: T_Pattern_s20
_hdX20 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Pattern -> Identity T_Pattern_s20
attach_T_Pattern (T_Pattern
arg_hd_))
_tlX23 :: T_Patterns_s23
_tlX23 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Patterns -> Identity T_Patterns_s23
attach_T_Patterns (T_Patterns
arg_tl_))
(T_Pattern_vOut19 Pattern
_hdIcopy Seq Error
_hdIerrors [AltAttr]
_hdIgathAltAttrs [Identifier]
_hdIinstVars Bool
_hdIisUnderscore [Identifier]
_hdIlocVars [(Identifier, Identifier, Bool)]
_hdIpatternAttrs PP_Doc
_hdIpp) = T_Pattern_s20 -> T_Pattern_v19
inv_Pattern_s20 T_Pattern_s20
_hdX20 (Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Pattern_vIn19
T_Pattern_vIn19 Attributes
_hdOallTypeSigs Map AltAttr Int
_hdOaltAttrs Bool
_hdObelowIrrefutable Identifier
_hdOcon Attributes
_hdOinh Identifier
_hdOnt Attributes
_hdOsyn)
(T_Patterns_vOut22 Patterns
_tlIcopy Seq Error
_tlIerrors [AltAttr]
_tlIgathAltAttrs [Identifier]
_tlIinstVars [Identifier]
_tlIlocVars [(Identifier, Identifier, Bool)]
_tlIpatternAttrs [PP_Doc]
_tlIpps) = T_Patterns_s23 -> T_Patterns_v22
inv_Patterns_s23 T_Patterns_s23
_tlX23 (Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Patterns_vIn22
T_Patterns_vIn22 Attributes
_tlOallTypeSigs Map AltAttr Int
_tlOaltAttrs Bool
_tlObelowIrrefutable Identifier
_tlOcon Attributes
_tlOinh Identifier
_tlOnt Attributes
_tlOsyn)
_lhsOpps :: [PP_Doc]
_lhsOpps :: [PP_Doc]
_lhsOpps = PP_Doc -> [PP_Doc] -> [PP_Doc]
rule313 PP_Doc
_hdIpp [PP_Doc]
_tlIpps
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error -> Seq Error
rule314 Seq Error
_hdIerrors Seq Error
_tlIerrors
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = [AltAttr] -> [AltAttr] -> [AltAttr]
rule315 [AltAttr]
_hdIgathAltAttrs [AltAttr]
_tlIgathAltAttrs
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = [Identifier] -> [Identifier] -> [Identifier]
rule316 [Identifier]
_hdIinstVars [Identifier]
_tlIinstVars
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = [Identifier] -> [Identifier] -> [Identifier]
rule317 [Identifier]
_hdIlocVars [Identifier]
_tlIlocVars
_lhsOpatternAttrs :: [(Identifier,Identifier,Bool)]
_lhsOpatternAttrs :: [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs = [(Identifier, Identifier, Bool)]
-> [(Identifier, Identifier, Bool)]
-> [(Identifier, Identifier, Bool)]
rule318 [(Identifier, Identifier, Bool)]
_hdIpatternAttrs [(Identifier, Identifier, Bool)]
_tlIpatternAttrs
_copy :: Patterns
_copy = Pattern -> Patterns -> Patterns
rule319 Pattern
_hdIcopy Patterns
_tlIcopy
_lhsOcopy :: Patterns
_lhsOcopy :: Patterns
_lhsOcopy = forall {p}. p -> p
rule320 Patterns
_copy
_hdOallTypeSigs :: Attributes
_hdOallTypeSigs = Attributes -> Attributes
rule321 Attributes
_lhsIallTypeSigs
_hdOaltAttrs :: Map AltAttr Int
_hdOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule322 Map AltAttr Int
_lhsIaltAttrs
_hdObelowIrrefutable :: Bool
_hdObelowIrrefutable = Bool -> Bool
rule323 Bool
_lhsIbelowIrrefutable
_hdOcon :: Identifier
_hdOcon = Identifier -> Identifier
rule324 Identifier
_lhsIcon
_hdOinh :: Attributes
_hdOinh = Attributes -> Attributes
rule325 Attributes
_lhsIinh
_hdOnt :: Identifier
_hdOnt = Identifier -> Identifier
rule326 Identifier
_lhsInt
_hdOsyn :: Attributes
_hdOsyn = Attributes -> Attributes
rule327 Attributes
_lhsIsyn
_tlOallTypeSigs :: Attributes
_tlOallTypeSigs = Attributes -> Attributes
rule328 Attributes
_lhsIallTypeSigs
_tlOaltAttrs :: Map AltAttr Int
_tlOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule329 Map AltAttr Int
_lhsIaltAttrs
_tlObelowIrrefutable :: Bool
_tlObelowIrrefutable = Bool -> Bool
rule330 Bool
_lhsIbelowIrrefutable
_tlOcon :: Identifier
_tlOcon = Identifier -> Identifier
rule331 Identifier
_lhsIcon
_tlOinh :: Attributes
_tlOinh = Attributes -> Attributes
rule332 Attributes
_lhsIinh
_tlOnt :: Identifier
_tlOnt = Identifier -> Identifier
rule333 Identifier
_lhsInt
_tlOsyn :: Attributes
_tlOsyn = Attributes -> Attributes
rule334 Attributes
_lhsIsyn
__result_ :: T_Patterns_vOut22
__result_ = Patterns
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> [PP_Doc]
-> T_Patterns_vOut22
T_Patterns_vOut22 Patterns
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs [PP_Doc]
_lhsOpps
in T_Patterns_vOut22
__result_ )
in T_Patterns_v22 -> T_Patterns_s23
C_Patterns_s23 T_Patterns_v22
v22
{-# INLINE rule313 #-}
{-# LINE 76 "src-ag/TfmToMirage.ag" #-}
rule313 = \ ((_hdIpp) :: PP_Doc) ((_tlIpps) :: [PP_Doc]) ->
{-# LINE 76 "src-ag/TfmToMirage.ag" #-}
_hdIpp : _tlIpps
{-# LINE 2457 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule314 #-}
rule314 = \ ((_hdIerrors) :: Seq Error) ((_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# INLINE rule315 #-}
rule315 = \ ((_hdIgathAltAttrs) :: [AltAttr]) ((_tlIgathAltAttrs) :: [AltAttr]) ->
_hdIgathAltAttrs ++ _tlIgathAltAttrs
{-# INLINE rule316 #-}
rule316 = \ ((_hdIinstVars) :: [Identifier]) ((_tlIinstVars) :: [Identifier]) ->
_hdIinstVars ++ _tlIinstVars
{-# INLINE rule317 #-}
rule317 = \ ((_hdIlocVars) :: [Identifier]) ((_tlIlocVars) :: [Identifier]) ->
_hdIlocVars ++ _tlIlocVars
{-# INLINE rule318 #-}
rule318 = \ ((_hdIpatternAttrs) :: [(Identifier,Identifier,Bool)]) ((_tlIpatternAttrs) :: [(Identifier,Identifier,Bool)]) ->
_hdIpatternAttrs ++ _tlIpatternAttrs
{-# INLINE rule319 #-}
rule319 = \ ((_hdIcopy) :: Pattern) ((_tlIcopy) :: Patterns) ->
(:) _hdIcopy _tlIcopy
{-# INLINE rule320 #-}
rule320 = \ _copy ->
_copy
{-# INLINE rule321 #-}
rule321 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule322 #-}
rule322 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule323 #-}
rule323 = \ ((_lhsIbelowIrrefutable) :: Bool) ->
_lhsIbelowIrrefutable
{-# INLINE rule324 #-}
rule324 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule325 #-}
rule325 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule326 #-}
rule326 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule327 #-}
rule327 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule328 #-}
rule328 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule329 #-}
rule329 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule330 #-}
rule330 = \ ((_lhsIbelowIrrefutable) :: Bool) ->
_lhsIbelowIrrefutable
{-# INLINE rule331 #-}
rule331 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule332 #-}
rule332 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule333 #-}
rule333 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule334 #-}
rule334 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# NOINLINE sem_Patterns_Nil #-}
sem_Patterns_Nil :: T_Patterns
sem_Patterns_Nil :: T_Patterns
sem_Patterns_Nil = Identity T_Patterns_s23 -> T_Patterns
T_Patterns (forall (m :: * -> *) a. Monad m => a -> m a
return T_Patterns_s23
st23) where
{-# NOINLINE st23 #-}
st23 :: T_Patterns_s23
st23 = let
v22 :: T_Patterns_v22
v22 :: T_Patterns_v22
v22 = \ (T_Patterns_vIn22 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Bool
_lhsIbelowIrrefutable Identifier
_lhsIcon Attributes
_lhsIinh Identifier
_lhsInt Attributes
_lhsIsyn) -> ( let
_lhsOpps :: [PP_Doc]
_lhsOpps :: [PP_Doc]
_lhsOpps = forall {a}. () -> [a]
rule335 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = forall {a}. () -> Seq a
rule336 ()
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = forall {a}. () -> [a]
rule337 ()
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = forall {a}. () -> [a]
rule338 ()
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = forall {a}. () -> [a]
rule339 ()
_lhsOpatternAttrs :: [(Identifier,Identifier,Bool)]
_lhsOpatternAttrs :: [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs = forall {a}. () -> [a]
rule340 ()
_copy :: [a]
_copy = forall {a}. () -> [a]
rule341 ()
_lhsOcopy :: Patterns
_lhsOcopy :: Patterns
_lhsOcopy = forall {p}. p -> p
rule342 forall a. [a]
_copy
__result_ :: T_Patterns_vOut22
__result_ = Patterns
-> Seq Error
-> [AltAttr]
-> [Identifier]
-> [Identifier]
-> [(Identifier, Identifier, Bool)]
-> [PP_Doc]
-> T_Patterns_vOut22
T_Patterns_vOut22 Patterns
_lhsOcopy Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars [(Identifier, Identifier, Bool)]
_lhsOpatternAttrs [PP_Doc]
_lhsOpps
in T_Patterns_vOut22
__result_ )
in T_Patterns_v22 -> T_Patterns_s23
C_Patterns_s23 T_Patterns_v22
v22
{-# INLINE rule335 #-}
{-# LINE 77 "src-ag/TfmToMirage.ag" #-}
rule335 = \ (_ :: ()) ->
{-# LINE 77 "src-ag/TfmToMirage.ag" #-}
[]
{-# LINE 2551 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule336 #-}
rule336 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule337 #-}
rule337 = \ (_ :: ()) ->
[]
{-# INLINE rule338 #-}
rule338 = \ (_ :: ()) ->
[]
{-# INLINE rule339 #-}
rule339 = \ (_ :: ()) ->
[]
{-# INLINE rule340 #-}
rule340 = \ (_ :: ()) ->
[]
{-# INLINE rule341 #-}
rule341 = \ (_ :: ()) ->
[]
{-# INLINE rule342 #-}
rule342 = \ _copy ->
_copy
data Inh_Production = Inh_Production { Inh_Production -> [Identifier]
allnts_Inh_Production :: ([Identifier]), Inh_Production -> Map Identifier (Map Identifier [Expression])
aroundMap_Inh_Production :: (Map ConstructorIdent (Map Identifier [Expression])), Inh_Production -> CVisitsMap
cVisitsMap_Inh_Production :: (CVisitsMap), Inh_Production -> Attributes
inh_Inh_Production :: (Attributes), Inh_Production -> Map Identifier Attributes
inhMap_Inh_Production :: (Map Identifier Attributes), Inh_Production -> AttrOrderMap
manualAttrDepMap_Inh_Production :: (AttrOrderMap), Inh_Production
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
mergeMap_Inh_Production :: (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))), Inh_Production -> Identifier
nt_Inh_Production :: (Identifier), Inh_Production -> Bool
o_case_Inh_Production :: (Bool), Inh_Production -> Bool
o_cata_Inh_Production :: (Bool), Inh_Production -> Bool
o_dovisit_Inh_Production :: (Bool), Inh_Production -> Bool
o_newtypes_Inh_Production :: (Bool), Inh_Production -> Bool
o_rename_Inh_Production :: (Bool), Inh_Production -> Bool
o_sem_Inh_Production :: (Bool), Inh_Production -> Bool
o_sig_Inh_Production :: (Bool), Inh_Production -> Bool
o_unbox_Inh_Production :: (Bool), Inh_Production -> Bool
o_wantvisit_Inh_Production :: (Bool), Inh_Production -> Options
options_Inh_Production :: (Options), Inh_Production -> String
prefix_Inh_Production :: (String), Inh_Production -> Attributes
syn_Inh_Production :: (Attributes), Inh_Production -> Map Identifier Attributes
synMap_Inh_Production :: (Map Identifier Attributes), Inh_Production -> Int
vcount_Inh_Production :: (Int) }
data Syn_Production = Syn_Production { Syn_Production -> Seq (Int, Int)
additionalDep_Syn_Production :: (Seq Edge), Syn_Production -> Seq (Int, Int)
aroundDep_Syn_Production :: (Seq Edge), Syn_Production -> CProduction
cProduction_Syn_Production :: (CProduction), Syn_Production -> [Identifier]
cons_Syn_Production :: ([ConstructorIdent]), Syn_Production -> Seq (Int, Int)
directDep_Syn_Production :: (Seq Edge), Syn_Production -> Seq Error
errors_Syn_Production :: (Seq Error), Syn_Production -> Seq (Int, Int)
instDep_Syn_Production :: (Seq Edge), Syn_Production -> Seq (Int, Int)
mergeDep_Syn_Production :: (Seq Edge), Syn_Production -> Production
mirage_Syn_Production :: (Mirage.Production), Syn_Production -> Int
nAutoRules_Syn_Production :: (Int), Syn_Production -> Int
nExplicitRules_Syn_Production :: (Int), Syn_Production -> Seq (Int, CRule)
rules_Syn_Production :: (Seq (Vertex,CRule)), Syn_Production -> Int
vcount_Syn_Production :: (Int) }
{-# INLINABLE wrap_Production #-}
wrap_Production :: T_Production -> Inh_Production -> (Syn_Production )
wrap_Production :: T_Production -> Inh_Production -> Syn_Production
wrap_Production (T_Production Identity T_Production_s26
act) (Inh_Production [Identifier]
_lhsIallnts Map Identifier (Map Identifier [Expression])
_lhsIaroundMap CVisitsMap
_lhsIcVisitsMap Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Production_s26
sem <- Identity T_Production_s26
act
let arg25 :: T_Production_vIn25
arg25 = [Identifier]
-> Map Identifier (Map Identifier [Expression])
-> CVisitsMap
-> Attributes
-> Map Identifier Attributes
-> AttrOrderMap
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> Int
-> T_Production_vIn25
T_Production_vIn25 [Identifier]
_lhsIallnts Map Identifier (Map Identifier [Expression])
_lhsIaroundMap CVisitsMap
_lhsIcVisitsMap Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount
(T_Production_vOut25 Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int)
_lhsOaroundDep CProduction
_lhsOcProduction [Identifier]
_lhsOcons Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep Production
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules Seq (Int, CRule)
_lhsOrules Int
_lhsOvcount) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Production_s26 -> T_Production_v25
inv_Production_s26 T_Production_s26
sem T_Production_vIn25
arg25)
forall (m :: * -> *) a. Monad m => a -> m a
return (Seq (Int, Int)
-> Seq (Int, Int)
-> CProduction
-> [Identifier]
-> Seq (Int, Int)
-> Seq Error
-> Seq (Int, Int)
-> Seq (Int, Int)
-> Production
-> Int
-> Int
-> Seq (Int, CRule)
-> Int
-> Syn_Production
Syn_Production Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int)
_lhsOaroundDep CProduction
_lhsOcProduction [Identifier]
_lhsOcons Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep Production
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules Seq (Int, CRule)
_lhsOrules Int
_lhsOvcount)
)
{-# INLINE sem_Production #-}
sem_Production :: Production -> T_Production
sem_Production :: Production -> T_Production
sem_Production ( Production Identifier
con_ [Identifier]
params_ [Type]
constraints_ Children
children_ Rules
rules_ TypeSigs
typeSigs_ MaybeMacro
macro_ ) = Identifier
-> [Identifier]
-> [Type]
-> T_Children
-> T_Rules
-> T_TypeSigs
-> MaybeMacro
-> T_Production
sem_Production_Production Identifier
con_ [Identifier]
params_ [Type]
constraints_ ( Children -> T_Children
sem_Children Children
children_ ) ( Rules -> T_Rules
sem_Rules Rules
rules_ ) ( TypeSigs -> T_TypeSigs
sem_TypeSigs TypeSigs
typeSigs_ ) MaybeMacro
macro_
newtype T_Production = T_Production {
T_Production -> Identity T_Production_s26
attach_T_Production :: Identity (T_Production_s26 )
}
newtype T_Production_s26 = C_Production_s26 {
T_Production_s26 -> T_Production_v25
inv_Production_s26 :: (T_Production_v25 )
}
data T_Production_s27 = C_Production_s27
type T_Production_v25 = (T_Production_vIn25 ) -> (T_Production_vOut25 )
data T_Production_vIn25 = T_Production_vIn25 ([Identifier]) (Map ConstructorIdent (Map Identifier [Expression])) (CVisitsMap) (Attributes) (Map Identifier Attributes) (AttrOrderMap) (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) (Identifier) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Options) (String) (Attributes) (Map Identifier Attributes) (Int)
data T_Production_vOut25 = T_Production_vOut25 (Seq Edge) (Seq Edge) (CProduction) ([ConstructorIdent]) (Seq Edge) (Seq Error) (Seq Edge) (Seq Edge) (Mirage.Production) (Int) (Int) (Seq (Vertex,CRule)) (Int)
{-# NOINLINE sem_Production_Production #-}
sem_Production_Production :: (ConstructorIdent) -> ([Identifier]) -> ([Type]) -> T_Children -> T_Rules -> T_TypeSigs -> (MaybeMacro) -> T_Production
sem_Production_Production :: Identifier
-> [Identifier]
-> [Type]
-> T_Children
-> T_Rules
-> T_TypeSigs
-> MaybeMacro
-> T_Production
sem_Production_Production Identifier
arg_con_ [Identifier]
_ [Type]
_ T_Children
arg_children_ T_Rules
arg_rules_ T_TypeSigs
arg_typeSigs_ MaybeMacro
_ = Identity T_Production_s26 -> T_Production
T_Production (forall (m :: * -> *) a. Monad m => a -> m a
return T_Production_s26
st26) where
{-# NOINLINE st26 #-}
st26 :: T_Production_s26
st26 = let
v25 :: T_Production_v25
v25 :: T_Production_v25
v25 = \ (T_Production_vIn25 [Identifier]
_lhsIallnts Map Identifier (Map Identifier [Expression])
_lhsIaroundMap CVisitsMap
_lhsIcVisitsMap Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) -> ( let
_childrenX5 :: T_Children_s5
_childrenX5 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Children -> Identity T_Children_s5
attach_T_Children (T_Children
arg_children_))
_rulesX35 :: T_Rules_s35
_rulesX35 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Rules -> Identity T_Rules_s35
attach_T_Rules (T_Rules
arg_rules_))
_typeSigsX41 :: T_TypeSigs_s41
_typeSigsX41 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_TypeSigs -> Identity T_TypeSigs_s41
attach_T_TypeSigs (T_TypeSigs
arg_typeSigs_))
(T_Children_vOut4 [(Identifier, Attributes, Attributes)]
_childrenIattributes Map Identifier Attributes
_childrenIcollectChildrenInhs Map Identifier Attributes
_childrenIcollectChildrenSyns Seq Error
_childrenIerrors [(Identifier, Type, ChildKind)]
_childrenIfields [AltAttr]
_childrenIgathAltAttrs Seq CRule
_childrenIgathRules Seq (Identifier, Attributes)
_childrenIinhs [Child]
_childrenImirages Seq (Identifier, Identifier)
_childrenInts [CRule]
_childrenIsinglevisits [Identifier]
_childrenIterminals) = T_Children_s5 -> T_Children_v4
inv_Children_s5 T_Children_s5
_childrenX5 ([(Identifier, Type, ChildKind)]
-> [Identifier]
-> [(Identifier, Identifier)]
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Attributes
-> Map Identifier Attributes
-> T_Children_vIn4
T_Children_vIn4 [(Identifier, Type, ChildKind)]
_childrenOallfields [Identifier]
_childrenOallnts [(Identifier, Identifier)]
_childrenOattrs Identifier
_childrenOcon Attributes
_childrenOinh Map Identifier Attributes
_childrenOinhMap Map Identifier (Identifier, [Identifier])
_childrenOmergeMap Identifier
_childrenOnt Bool
_childrenOo_unbox Attributes
_childrenOsyn Map Identifier Attributes
_childrenOsynMap)
(T_Rules_vOut34 Seq (Int, Int)
_rulesIdirectDep Seq Error
_rulesIerrors [AltAttr]
_rulesIgathAltAttrs Seq CRule
_rulesIgathRules Seq (Int, Int)
_rulesIinstDep [Identifier]
_rulesIinstVars [Identifier]
_rulesIlocVars [Rule]
_rulesImirages Int
_rulesInAutoRules Int
_rulesInExplicitRules) = T_Rules_s35 -> T_Rules_v34
inv_Rules_s35 T_Rules_s35
_rulesX35 (Attributes
-> [(Identifier, Type, ChildKind)]
-> [Identifier]
-> Map AltAttr Int
-> [(Identifier, Identifier)]
-> Map Identifier Attributes
-> Map Identifier Identifier
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> T_Rules_vIn34
T_Rules_vIn34 Attributes
_rulesOallTypeSigs [(Identifier, Type, ChildKind)]
_rulesOallfields [Identifier]
_rulesOallnts Map AltAttr Int
_rulesOaltAttrs [(Identifier, Identifier)]
_rulesOattrs Map Identifier Attributes
_rulesOchildInhs Map Identifier Identifier
_rulesOchildNts Identifier
_rulesOcon Attributes
_rulesOinh Map Identifier Attributes
_rulesOinhsOfChildren Map Identifier (Identifier, [Identifier])
_rulesOmergeMap Identifier
_rulesOnt Bool
_rulesOo_case Bool
_rulesOo_cata Bool
_rulesOo_dovisit Bool
_rulesOo_newtypes Bool
_rulesOo_rename Bool
_rulesOo_sem Bool
_rulesOo_sig Bool
_rulesOo_wantvisit Options
_rulesOoptions String
_rulesOprefix Attributes
_rulesOsyn Map Identifier Attributes
_rulesOsynsOfChildren)
(T_TypeSigs_vOut40 Attributes
_typeSigsItypeSigs) = T_TypeSigs_s41 -> T_TypeSigs_v40
inv_TypeSigs_s41 T_TypeSigs_s41
_typeSigsX41 (Attributes -> T_TypeSigs_vIn40
T_TypeSigs_vIn40 forall k a. Map k a
_typeSigsOtypeSigs)
_childrenOcon :: Identifier
_childrenOcon = forall {p}. p -> p
rule343 Identifier
arg_con_
_rulesOcon :: Identifier
_rulesOcon = forall {p}. p -> p
rule344 Identifier
arg_con_
_gathAltAttrs :: [AltAttr]
_gathAltAttrs = [AltAttr] -> Attributes -> [AltAttr] -> [AltAttr]
rule345 [AltAttr]
_childrenIgathAltAttrs Attributes
_lhsIinh [AltAttr]
_rulesIgathAltAttrs
_altAttrs :: Map AltAttr Int
_altAttrs = [AltAttr] -> Int -> Map AltAttr Int
rule346 [AltAttr]
_gathAltAttrs Int
_lhsIvcount
_rulesOchildNts :: Map Identifier Identifier
_rulesOchildNts = Seq (Identifier, Identifier) -> Map Identifier Identifier
rule347 Seq (Identifier, Identifier)
_childrenInts
_rulesOchildInhs :: Map Identifier Attributes
_rulesOchildInhs = Seq (Identifier, Attributes) -> Map Identifier Attributes
rule348 Seq (Identifier, Attributes)
_childrenIinhs
_inhRules :: [CRule]
_inhRules = Attributes -> Identifier -> Identifier -> [CRule]
rule349 Attributes
_lhsIinh Identifier
_lhsInt Identifier
arg_con_
_gathRules :: [CRule]
_gathRules = Seq CRule -> [CRule] -> Seq CRule -> [CRule]
rule350 Seq CRule
_childrenIgathRules [CRule]
_inhRules Seq CRule
_rulesIgathRules
_lhsOrules :: Seq (Vertex,CRule)
_lhsOrules :: Seq (Int, CRule)
_lhsOrules = forall {b}. [b] -> Int -> Seq (Int, b)
rule351 [CRule]
_gathRules Int
_lhsIvcount
_lhsOvcount :: Int
_lhsOvcount :: Int
_lhsOvcount = forall {a}. [a] -> Int -> Int
rule352 [CRule]
_gathRules Int
_lhsIvcount
_manualDeps :: [Dependency]
_manualDeps = AttrOrderMap -> Identifier -> Identifier -> [Dependency]
rule353 AttrOrderMap
_lhsImanualAttrDepMap Identifier
_lhsInt Identifier
arg_con_
_lhsOadditionalDep :: Seq Edge
_lhsOadditionalDep :: Seq (Int, Int)
_lhsOadditionalDep = Map AltAttr Int -> [Dependency] -> Seq (Int, Int)
rule354 Map AltAttr Int
_altAttrs [Dependency]
_manualDeps
_rulesOsynsOfChildren :: Map Identifier Attributes
_rulesOsynsOfChildren = Map Identifier Attributes -> Map Identifier Attributes
rule355 Map Identifier Attributes
_childrenIcollectChildrenSyns
_rulesOinhsOfChildren :: Map Identifier Attributes
_rulesOinhsOfChildren = Map Identifier Attributes -> Map Identifier Attributes
rule356 Map Identifier Attributes
_childrenIcollectChildrenInhs
_mergeMap :: Map Identifier (Identifier, [Identifier])
_mergeMap = Map Identifier (Map Identifier (Identifier, [Identifier]))
-> Identifier -> Map Identifier (Identifier, [Identifier])
rule357 Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap Identifier
arg_con_
_lhsOmergeDep :: Seq Edge
_lhsOmergeDep :: Seq (Int, Int)
_lhsOmergeDep = forall a. Seq a -> Seq a -> Seq a
rule358 Seq (Int, Int)
_mergeDep1 Seq (Int, Int)
_mergeDep2
_mergeDep1 :: Seq (Int, Int)
_mergeDep1 = forall {a}.
Map AltAttr Int
-> Map Identifier Attributes -> Map Identifier a -> Seq (Int, Int)
rule359 Map AltAttr Int
_altAttrs Map Identifier Attributes
_childrenIcollectChildrenSyns Map Identifier (Identifier, [Identifier])
_mergeMap
_mergeDep2 :: Seq (Int, Int)
_mergeDep2 = forall {a}.
Map AltAttr Int
-> Map Identifier Attributes
-> Map Identifier (a, [Identifier])
-> Seq (Int, Int)
rule360 Map AltAttr Int
_altAttrs Map Identifier Attributes
_childrenIcollectChildrenSyns Map Identifier (Identifier, [Identifier])
_mergeMap
_aroundMap :: Map Identifier [Expression]
_aroundMap = Map Identifier (Map Identifier [Expression])
-> Identifier -> Map Identifier [Expression]
rule361 Map Identifier (Map Identifier [Expression])
_lhsIaroundMap Identifier
arg_con_
_aroundDep1 :: Seq (Int, Int)
_aroundDep1 = forall {a}.
Map AltAttr Int
-> Map Identifier a -> Map Identifier Attributes -> Seq (Int, Int)
rule362 Map AltAttr Int
_altAttrs Map Identifier [Expression]
_aroundMap Map Identifier Attributes
_childrenIcollectChildrenSyns
_aroundDep2 :: Seq (Int, Int)
_aroundDep2 = forall {a}.
Map AltAttr Int
-> Map Identifier a -> Map Identifier Attributes -> Seq (Int, Int)
rule363 Map AltAttr Int
_altAttrs Map Identifier [Expression]
_aroundMap Map Identifier Attributes
_childrenIcollectChildrenInhs
_lhsOaroundDep :: Seq Edge
_lhsOaroundDep :: Seq (Int, Int)
_lhsOaroundDep = forall a. Seq a -> Seq a -> Seq a
rule364 Seq (Int, Int)
_aroundDep1 Seq (Int, Int)
_aroundDep2
_lhsOcons :: [ConstructorIdent]
_lhsOcons :: [Identifier]
_lhsOcons = forall {a}. a -> [a]
rule365 Identifier
arg_con_
_typeSigsOtypeSigs :: Map k a
_typeSigsOtypeSigs = forall {k} {a}. () -> Map k a
rule366 ()
_rulesOallTypeSigs :: Attributes
_rulesOallTypeSigs = Attributes -> Attributes
rule367 Attributes
_typeSigsItypeSigs
_cVisits :: CVisits
_cVisits = [CRule]
-> [CRule]
-> CVisitsMap
-> Attributes
-> Identifier
-> Bool
-> Attributes
-> Identifier
-> CVisits
rule368 [CRule]
_childrenIsinglevisits [CRule]
_gathRules CVisitsMap
_lhsIcVisitsMap Attributes
_lhsIinh Identifier
_lhsInt Bool
_lhsIo_dovisit Attributes
_lhsIsyn Identifier
arg_con_
_lhsOcProduction :: CProduction
_lhsOcProduction :: CProduction
_lhsOcProduction = CVisits
-> [(Identifier, Type, ChildKind)]
-> [Identifier]
-> Identifier
-> CProduction
rule369 CVisits
_cVisits [(Identifier, Type, ChildKind)]
_childrenIfields [Identifier]
_childrenIterminals Identifier
arg_con_
_allfields :: [(Identifier, Type, ChildKind)]
_allfields = [(Identifier, Type, ChildKind)] -> [(Identifier, Type, ChildKind)]
rule370 [(Identifier, Type, ChildKind)]
_childrenIfields
_attrs :: [(Identifier, Identifier)]
_attrs = [(Identifier, Attributes, Attributes)]
-> [Identifier]
-> [Identifier]
-> [Identifier]
-> [(Identifier, Identifier)]
rule371 [(Identifier, Attributes, Attributes)]
_childrenIattributes [Identifier]
_inhnames [Identifier]
_rulesIinstVars [Identifier]
_rulesIlocVars
_inhnames :: [Identifier]
_inhnames = Attributes -> [Identifier]
rule372 Attributes
_lhsIinh
_synnames :: [Identifier]
_synnames = Attributes -> [Identifier]
rule373 Attributes
_lhsIsyn
_lhsOmirage :: Mirage.Production
_lhsOmirage :: Production
_lhsOmirage = [Child] -> [Rule] -> Identifier -> Production
rule374 [Child]
_childrenImirages [Rule]
_rulesImirages Identifier
arg_con_
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = Seq (Int, Int) -> Seq (Int, Int)
rule375 Seq (Int, Int)
_rulesIdirectDep
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error -> Seq Error
rule376 Seq Error
_childrenIerrors Seq Error
_rulesIerrors
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = Seq (Int, Int) -> Seq (Int, Int)
rule377 Seq (Int, Int)
_rulesIinstDep
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = Int -> Int
rule378 Int
_rulesInAutoRules
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = Int -> Int
rule379 Int
_rulesInExplicitRules
_childrenOallfields :: [(Identifier, Type, ChildKind)]
_childrenOallfields = forall {p}. p -> p
rule380 [(Identifier, Type, ChildKind)]
_allfields
_childrenOallnts :: [Identifier]
_childrenOallnts = [Identifier] -> [Identifier]
rule381 [Identifier]
_lhsIallnts
_childrenOattrs :: [(Identifier, Identifier)]
_childrenOattrs = forall {p}. p -> p
rule382 [(Identifier, Identifier)]
_attrs
_childrenOinh :: Attributes
_childrenOinh = Attributes -> Attributes
rule383 Attributes
_lhsIinh
_childrenOinhMap :: Map Identifier Attributes
_childrenOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule384 Map Identifier Attributes
_lhsIinhMap
_childrenOmergeMap :: Map Identifier (Identifier, [Identifier])
_childrenOmergeMap = forall {p}. p -> p
rule385 Map Identifier (Identifier, [Identifier])
_mergeMap
_childrenOnt :: Identifier
_childrenOnt = Identifier -> Identifier
rule386 Identifier
_lhsInt
_childrenOo_unbox :: Bool
_childrenOo_unbox = Bool -> Bool
rule387 Bool
_lhsIo_unbox
_childrenOsyn :: Attributes
_childrenOsyn = Attributes -> Attributes
rule388 Attributes
_lhsIsyn
_childrenOsynMap :: Map Identifier Attributes
_childrenOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule389 Map Identifier Attributes
_lhsIsynMap
_rulesOallfields :: [(Identifier, Type, ChildKind)]
_rulesOallfields = forall {p}. p -> p
rule390 [(Identifier, Type, ChildKind)]
_allfields
_rulesOallnts :: [Identifier]
_rulesOallnts = [Identifier] -> [Identifier]
rule391 [Identifier]
_lhsIallnts
_rulesOaltAttrs :: Map AltAttr Int
_rulesOaltAttrs = forall {p}. p -> p
rule392 Map AltAttr Int
_altAttrs
_rulesOattrs :: [(Identifier, Identifier)]
_rulesOattrs = forall {p}. p -> p
rule393 [(Identifier, Identifier)]
_attrs
_rulesOinh :: Attributes
_rulesOinh = Attributes -> Attributes
rule394 Attributes
_lhsIinh
_rulesOmergeMap :: Map Identifier (Identifier, [Identifier])
_rulesOmergeMap = forall {p}. p -> p
rule395 Map Identifier (Identifier, [Identifier])
_mergeMap
_rulesOnt :: Identifier
_rulesOnt = Identifier -> Identifier
rule396 Identifier
_lhsInt
_rulesOo_case :: Bool
_rulesOo_case = Bool -> Bool
rule397 Bool
_lhsIo_case
_rulesOo_cata :: Bool
_rulesOo_cata = Bool -> Bool
rule398 Bool
_lhsIo_cata
_rulesOo_dovisit :: Bool
_rulesOo_dovisit = Bool -> Bool
rule399 Bool
_lhsIo_dovisit
_rulesOo_newtypes :: Bool
_rulesOo_newtypes = Bool -> Bool
rule400 Bool
_lhsIo_newtypes
_rulesOo_rename :: Bool
_rulesOo_rename = Bool -> Bool
rule401 Bool
_lhsIo_rename
_rulesOo_sem :: Bool
_rulesOo_sem = Bool -> Bool
rule402 Bool
_lhsIo_sem
_rulesOo_sig :: Bool
_rulesOo_sig = Bool -> Bool
rule403 Bool
_lhsIo_sig
_rulesOo_wantvisit :: Bool
_rulesOo_wantvisit = Bool -> Bool
rule404 Bool
_lhsIo_wantvisit
_rulesOoptions :: Options
_rulesOoptions = Options -> Options
rule405 Options
_lhsIoptions
_rulesOprefix :: String
_rulesOprefix = ShowS
rule406 String
_lhsIprefix
_rulesOsyn :: Attributes
_rulesOsyn = Attributes -> Attributes
rule407 Attributes
_lhsIsyn
__result_ :: T_Production_vOut25
__result_ = Seq (Int, Int)
-> Seq (Int, Int)
-> CProduction
-> [Identifier]
-> Seq (Int, Int)
-> Seq Error
-> Seq (Int, Int)
-> Seq (Int, Int)
-> Production
-> Int
-> Int
-> Seq (Int, CRule)
-> Int
-> T_Production_vOut25
T_Production_vOut25 Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int)
_lhsOaroundDep CProduction
_lhsOcProduction [Identifier]
_lhsOcons Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep Production
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules Seq (Int, CRule)
_lhsOrules Int
_lhsOvcount
in T_Production_vOut25
__result_ )
in T_Production_v25 -> T_Production_s26
C_Production_s26 T_Production_v25
v25
{-# INLINE rule343 #-}
{-# LINE 93 "src-ag/Order.ag" #-}
rule343 = \ con_ ->
{-# LINE 93 "src-ag/Order.ag" #-}
con_
{-# LINE 2703 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule344 #-}
{-# LINE 95 "src-ag/Order.ag" #-}
rule344 = \ con_ ->
{-# LINE 95 "src-ag/Order.ag" #-}
con_
{-# LINE 2709 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule345 #-}
{-# LINE 175 "src-ag/Order.ag" #-}
rule345 = \ ((_childrenIgathAltAttrs) :: [AltAttr]) ((_lhsIinh) :: Attributes) ((_rulesIgathAltAttrs) :: [AltAttr]) ->
{-# LINE 175 "src-ag/Order.ag" #-}
[ AltAttr _LHS inh True | inh <- Map.keys _lhsIinh ]
++ _childrenIgathAltAttrs
++ _rulesIgathAltAttrs
{-# LINE 2717 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule346 #-}
{-# LINE 191 "src-ag/Order.ag" #-}
rule346 = \ _gathAltAttrs ((_lhsIvcount) :: Int) ->
{-# LINE 191 "src-ag/Order.ag" #-}
Map.fromList (zip _gathAltAttrs [_lhsIvcount..])
{-# LINE 2723 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule347 #-}
{-# LINE 204 "src-ag/Order.ag" #-}
rule347 = \ ((_childrenInts) :: Seq (Identifier,NontermIdent)) ->
{-# LINE 204 "src-ag/Order.ag" #-}
Map.fromList (toList _childrenInts)
{-# LINE 2729 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule348 #-}
{-# LINE 205 "src-ag/Order.ag" #-}
rule348 = \ ((_childrenIinhs) :: Seq (Identifier,Attributes)) ->
{-# LINE 205 "src-ag/Order.ag" #-}
Map.fromList (toList _childrenIinhs)
{-# LINE 2735 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule349 #-}
{-# LINE 211 "src-ag/Order.ag" #-}
rule349 = \ ((_lhsIinh) :: Attributes) ((_lhsInt) :: Identifier) con_ ->
{-# LINE 211 "src-ag/Order.ag" #-}
[ cRuleLhsInh inh _lhsInt con_ tp | (inh,tp) <- Map.assocs _lhsIinh ]
{-# LINE 2741 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule350 #-}
{-# LINE 212 "src-ag/Order.ag" #-}
rule350 = \ ((_childrenIgathRules) :: Seq CRule) _inhRules ((_rulesIgathRules) :: Seq CRule) ->
{-# LINE 212 "src-ag/Order.ag" #-}
_inhRules ++ toList (_childrenIgathRules Seq.>< _rulesIgathRules)
{-# LINE 2747 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule351 #-}
{-# LINE 264 "src-ag/Order.ag" #-}
rule351 = \ _gathRules ((_lhsIvcount) :: Int) ->
{-# LINE 264 "src-ag/Order.ag" #-}
Seq.fromList (zip [_lhsIvcount..] _gathRules)
{-# LINE 2753 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule352 #-}
{-# LINE 265 "src-ag/Order.ag" #-}
rule352 = \ _gathRules ((_lhsIvcount) :: Int) ->
{-# LINE 265 "src-ag/Order.ag" #-}
_lhsIvcount + length _gathRules
{-# LINE 2759 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule353 #-}
{-# LINE 293 "src-ag/Order.ag" #-}
rule353 = \ ((_lhsImanualAttrDepMap) :: AttrOrderMap) ((_lhsInt) :: Identifier) con_ ->
{-# LINE 293 "src-ag/Order.ag" #-}
Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrDepMap
{-# LINE 2765 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule354 #-}
{-# LINE 296 "src-ag/Order.ag" #-}
rule354 = \ _altAttrs _manualDeps ->
{-# LINE 296 "src-ag/Order.ag" #-}
Seq.fromList [ (vertex True occA, vertex False occB)
| Dependency occA occB <- _manualDeps
, let vertex inout (OccAttr child nm)
| child == _LOC = findWithErr2 (AltAttr _LOC nm True) _altAttrs
| otherwise = findWithErr2 (AltAttr child nm inout) _altAttrs
vertex _ (OccRule nm)
= findWithErr2 (AltAttr _LOC (Ident ("_rule_" ++ show nm) (getPos nm)) True) _altAttrs
]
{-# LINE 2778 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule355 #-}
{-# LINE 342 "src-ag/Order.ag" #-}
rule355 = \ ((_childrenIcollectChildrenSyns) :: Map Identifier Attributes ) ->
{-# LINE 342 "src-ag/Order.ag" #-}
_childrenIcollectChildrenSyns
{-# LINE 2784 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule356 #-}
{-# LINE 343 "src-ag/Order.ag" #-}
rule356 = \ ((_childrenIcollectChildrenInhs) :: Map Identifier Attributes ) ->
{-# LINE 343 "src-ag/Order.ag" #-}
_childrenIcollectChildrenInhs
{-# LINE 2790 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule357 #-}
{-# LINE 361 "src-ag/Order.ag" #-}
rule357 = \ ((_lhsImergeMap) :: Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) con_ ->
{-# LINE 361 "src-ag/Order.ag" #-}
Map.findWithDefault Map.empty con_ _lhsImergeMap
{-# LINE 2796 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule358 #-}
{-# LINE 372 "src-ag/Order.ag" #-}
rule358 = \ _mergeDep1 _mergeDep2 ->
{-# LINE 372 "src-ag/Order.ag" #-}
_mergeDep1 Seq.>< _mergeDep2
{-# LINE 2802 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule359 #-}
{-# LINE 374 "src-ag/Order.ag" #-}
rule359 = \ _altAttrs ((_childrenIcollectChildrenSyns) :: Map Identifier Attributes ) _mergeMap ->
{-# LINE 374 "src-ag/Order.ag" #-}
Seq.fromList $
[ (childVert, synVert)
| childNm <- Map.keys _mergeMap
, synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)
, let childNm' = Ident (show childNm ++ "_merge") (getPos childNm)
childAttr = AltAttr _LOC childNm' True
synAttr = AltAttr childNm synNm True
childVert = findWithErr2 childAttr _altAttrs
synVert = findWithErr2 synAttr _altAttrs
]
{-# LINE 2817 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule360 #-}
{-# LINE 385 "src-ag/Order.ag" #-}
rule360 = \ _altAttrs ((_childrenIcollectChildrenSyns) :: Map Identifier Attributes ) _mergeMap ->
{-# LINE 385 "src-ag/Order.ag" #-}
Seq.fromList $
[ (mergedVert, sourceVert)
| (childNm, (_,cs)) <- Map.assocs _mergeMap
, c <- cs
, synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)
, let sourceAttr = AltAttr childNm synNm True
mergedAttr = AltAttr c synNm True
sourceVert = findWithErr2 sourceAttr _altAttrs
mergedVert = findWithErr2 mergedAttr _altAttrs
]
{-# LINE 2832 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule361 #-}
{-# LINE 414 "src-ag/Order.ag" #-}
rule361 = \ ((_lhsIaroundMap) :: Map ConstructorIdent (Map Identifier [Expression])) con_ ->
{-# LINE 414 "src-ag/Order.ag" #-}
Map.findWithDefault Map.empty con_ _lhsIaroundMap
{-# LINE 2838 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule362 #-}
{-# LINE 422 "src-ag/Order.ag" #-}
rule362 = \ _altAttrs _aroundMap ((_childrenIcollectChildrenSyns) :: Map Identifier Attributes ) ->
{-# LINE 422 "src-ag/Order.ag" #-}
Seq.fromList $
[ (childVert, synVert)
| childNm <- Map.keys _aroundMap
, synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)
, let childNm' = Ident (show childNm ++ "_around") (getPos childNm)
childAttr = AltAttr _LOC childNm' True
synAttr = AltAttr childNm synNm True
childVert = findWithErr2 childAttr _altAttrs
synVert = findWithErr2 synAttr _altAttrs
]
{-# LINE 2853 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule363 #-}
{-# LINE 433 "src-ag/Order.ag" #-}
rule363 = \ _altAttrs _aroundMap ((_childrenIcollectChildrenInhs) :: Map Identifier Attributes ) ->
{-# LINE 433 "src-ag/Order.ag" #-}
Seq.fromList $
[ (childVert, inhVert)
| childNm <- Map.keys _aroundMap
, inhNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenInhs)
, let childNm' = Ident (show childNm ++ "_around") (getPos childNm)
childAttr = AltAttr _LOC childNm' True
inhAttr = AltAttr childNm inhNm False
childVert = findWithErr2 childAttr _altAttrs
inhVert = findWithErr2 inhAttr _altAttrs
]
{-# LINE 2868 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule364 #-}
{-# LINE 443 "src-ag/Order.ag" #-}
rule364 = \ _aroundDep1 _aroundDep2 ->
{-# LINE 443 "src-ag/Order.ag" #-}
_aroundDep1 Seq.>< _aroundDep2
{-# LINE 2874 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule365 #-}
{-# LINE 527 "src-ag/Order.ag" #-}
rule365 = \ con_ ->
{-# LINE 527 "src-ag/Order.ag" #-}
[con_]
{-# LINE 2880 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule366 #-}
{-# LINE 534 "src-ag/Order.ag" #-}
rule366 = \ (_ :: ()) ->
{-# LINE 534 "src-ag/Order.ag" #-}
Map.empty
{-# LINE 2886 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule367 #-}
{-# LINE 540 "src-ag/Order.ag" #-}
rule367 = \ ((_typeSigsItypeSigs) :: Map Identifier Type) ->
{-# LINE 540 "src-ag/Order.ag" #-}
_typeSigsItypeSigs
{-# LINE 2892 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule368 #-}
{-# LINE 608 "src-ag/Order.ag" #-}
rule368 = \ ((_childrenIsinglevisits) :: [CRule]) _gathRules ((_lhsIcVisitsMap) :: CVisitsMap) ((_lhsIinh) :: Attributes) ((_lhsInt) :: Identifier) ((_lhsIo_dovisit) :: Bool) ((_lhsIsyn) :: Attributes) con_ ->
{-# LINE 608 "src-ag/Order.ag" #-}
if _lhsIo_dovisit
then let prodsVisitsMap = findWithErr1 "Production.cVisits.nt" _lhsInt _lhsIcVisitsMap
visits = findWithErr1 "Production.cVisits.con" con_ prodsVisitsMap
in visits
else let vss = nubBy eqCRuleDefines _gathRules ++ _childrenIsinglevisits
in [CVisit _lhsIinh _lhsIsyn vss [] False]
{-# LINE 2903 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule369 #-}
{-# LINE 634 "src-ag/Order.ag" #-}
rule369 = \ _cVisits ((_childrenIfields) :: [(Identifier,Type,ChildKind)]) ((_childrenIterminals) :: [Identifier]) con_ ->
{-# LINE 634 "src-ag/Order.ag" #-}
CProduction con_ _cVisits _childrenIfields _childrenIterminals
{-# LINE 2909 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule370 #-}
{-# LINE 662 "src-ag/Order.ag" #-}
rule370 = \ ((_childrenIfields) :: [(Identifier,Type,ChildKind)]) ->
{-# LINE 662 "src-ag/Order.ag" #-}
_childrenIfields
{-# LINE 2915 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule371 #-}
{-# LINE 663 "src-ag/Order.ag" #-}
rule371 = \ ((_childrenIattributes) :: [(Identifier,Attributes,Attributes)]) _inhnames ((_rulesIinstVars) :: [Identifier]) ((_rulesIlocVars) :: [Identifier]) ->
{-# LINE 663 "src-ag/Order.ag" #-}
map ((,) _LOC) _rulesIlocVars ++
map ((,) _INST) _rulesIinstVars ++
map ((,) _LHS) _inhnames ++
concat [map ((,) nm) (Map.keys as) | (nm,_,as) <- _childrenIattributes]
{-# LINE 2924 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule372 #-}
{-# LINE 667 "src-ag/Order.ag" #-}
rule372 = \ ((_lhsIinh) :: Attributes) ->
{-# LINE 667 "src-ag/Order.ag" #-}
Map.keys _lhsIinh
{-# LINE 2930 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule373 #-}
{-# LINE 668 "src-ag/Order.ag" #-}
rule373 = \ ((_lhsIsyn) :: Attributes) ->
{-# LINE 668 "src-ag/Order.ag" #-}
Map.keys _lhsIsyn
{-# LINE 2936 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule374 #-}
{-# LINE 43 "src-ag/TfmToMirage.ag" #-}
rule374 = \ ((_childrenImirages) :: [Mirage.Child]) ((_rulesImirages) :: [Mirage.Rule]) con_ ->
{-# LINE 43 "src-ag/TfmToMirage.ag" #-}
Mirage.Production (getName con_) _childrenImirages _rulesImirages
{-# LINE 2942 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule375 #-}
rule375 = \ ((_rulesIdirectDep) :: Seq Edge) ->
_rulesIdirectDep
{-# INLINE rule376 #-}
rule376 = \ ((_childrenIerrors) :: Seq Error) ((_rulesIerrors) :: Seq Error) ->
_childrenIerrors Seq.>< _rulesIerrors
{-# INLINE rule377 #-}
rule377 = \ ((_rulesIinstDep) :: Seq Edge) ->
_rulesIinstDep
{-# INLINE rule378 #-}
rule378 = \ ((_rulesInAutoRules) :: Int) ->
_rulesInAutoRules
{-# INLINE rule379 #-}
rule379 = \ ((_rulesInExplicitRules) :: Int) ->
_rulesInExplicitRules
{-# INLINE rule380 #-}
rule380 = \ _allfields ->
_allfields
{-# INLINE rule381 #-}
rule381 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule382 #-}
rule382 = \ _attrs ->
_attrs
{-# INLINE rule383 #-}
rule383 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule384 #-}
rule384 = \ ((_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# INLINE rule385 #-}
rule385 = \ _mergeMap ->
_mergeMap
{-# INLINE rule386 #-}
rule386 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule387 #-}
rule387 = \ ((_lhsIo_unbox) :: Bool) ->
_lhsIo_unbox
{-# INLINE rule388 #-}
rule388 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule389 #-}
rule389 = \ ((_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# INLINE rule390 #-}
rule390 = \ _allfields ->
_allfields
{-# INLINE rule391 #-}
rule391 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule392 #-}
rule392 = \ _altAttrs ->
_altAttrs
{-# INLINE rule393 #-}
rule393 = \ _attrs ->
_attrs
{-# INLINE rule394 #-}
rule394 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule395 #-}
rule395 = \ _mergeMap ->
_mergeMap
{-# INLINE rule396 #-}
rule396 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule397 #-}
rule397 = \ ((_lhsIo_case) :: Bool) ->
_lhsIo_case
{-# INLINE rule398 #-}
rule398 = \ ((_lhsIo_cata) :: Bool) ->
_lhsIo_cata
{-# INLINE rule399 #-}
rule399 = \ ((_lhsIo_dovisit) :: Bool) ->
_lhsIo_dovisit
{-# INLINE rule400 #-}
rule400 = \ ((_lhsIo_newtypes) :: Bool) ->
_lhsIo_newtypes
{-# INLINE rule401 #-}
rule401 = \ ((_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# INLINE rule402 #-}
rule402 = \ ((_lhsIo_sem) :: Bool) ->
_lhsIo_sem
{-# INLINE rule403 #-}
rule403 = \ ((_lhsIo_sig) :: Bool) ->
_lhsIo_sig
{-# INLINE rule404 #-}
rule404 = \ ((_lhsIo_wantvisit) :: Bool) ->
_lhsIo_wantvisit
{-# INLINE rule405 #-}
rule405 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
{-# INLINE rule406 #-}
rule406 = \ ((_lhsIprefix) :: String) ->
_lhsIprefix
{-# INLINE rule407 #-}
rule407 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
data Inh_Productions = Inh_Productions { Inh_Productions -> [Identifier]
allnts_Inh_Productions :: ([Identifier]), Inh_Productions -> Map Identifier (Map Identifier [Expression])
aroundMap_Inh_Productions :: (Map ConstructorIdent (Map Identifier [Expression])), Inh_Productions -> CVisitsMap
cVisitsMap_Inh_Productions :: (CVisitsMap), Inh_Productions -> Attributes
inh_Inh_Productions :: (Attributes), Inh_Productions -> Map Identifier Attributes
inhMap_Inh_Productions :: (Map Identifier Attributes), Inh_Productions -> AttrOrderMap
manualAttrDepMap_Inh_Productions :: (AttrOrderMap), Inh_Productions
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
mergeMap_Inh_Productions :: (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))), Inh_Productions -> Identifier
nt_Inh_Productions :: (Identifier), Inh_Productions -> Bool
o_case_Inh_Productions :: (Bool), Inh_Productions -> Bool
o_cata_Inh_Productions :: (Bool), Inh_Productions -> Bool
o_dovisit_Inh_Productions :: (Bool), Inh_Productions -> Bool
o_newtypes_Inh_Productions :: (Bool), Inh_Productions -> Bool
o_rename_Inh_Productions :: (Bool), Inh_Productions -> Bool
o_sem_Inh_Productions :: (Bool), Inh_Productions -> Bool
o_sig_Inh_Productions :: (Bool), Inh_Productions -> Bool
o_unbox_Inh_Productions :: (Bool), Inh_Productions -> Bool
o_wantvisit_Inh_Productions :: (Bool), Inh_Productions -> Options
options_Inh_Productions :: (Options), Inh_Productions -> String
prefix_Inh_Productions :: (String), Inh_Productions -> Attributes
syn_Inh_Productions :: (Attributes), Inh_Productions -> Map Identifier Attributes
synMap_Inh_Productions :: (Map Identifier Attributes), Inh_Productions -> Int
vcount_Inh_Productions :: (Int) }
data Syn_Productions = Syn_Productions { Syn_Productions -> Seq (Int, Int)
additionalDep_Syn_Productions :: (Seq Edge), Syn_Productions -> Seq (Int, Int)
aroundDep_Syn_Productions :: (Seq Edge), Syn_Productions -> CProductions
cProductions_Syn_Productions :: (CProductions), Syn_Productions -> [Identifier]
cons_Syn_Productions :: ([ConstructorIdent]), Syn_Productions -> Seq (Int, Int)
directDep_Syn_Productions :: (Seq Edge), Syn_Productions -> Seq Error
errors_Syn_Productions :: (Seq Error), Syn_Productions -> Seq (Int, Int)
instDep_Syn_Productions :: (Seq Edge), Syn_Productions -> Seq (Int, Int)
mergeDep_Syn_Productions :: (Seq Edge), Syn_Productions -> [Production]
mirages_Syn_Productions :: ([Mirage.Production]), Syn_Productions -> Int
nAutoRules_Syn_Productions :: (Int), Syn_Productions -> Int
nExplicitRules_Syn_Productions :: (Int), Syn_Productions -> Seq (Int, CRule)
rules_Syn_Productions :: (Seq (Vertex,CRule)), Syn_Productions -> Int
vcount_Syn_Productions :: (Int) }
{-# INLINABLE wrap_Productions #-}
wrap_Productions :: T_Productions -> Inh_Productions -> (Syn_Productions )
wrap_Productions :: T_Productions -> Inh_Productions -> Syn_Productions
wrap_Productions (T_Productions Identity T_Productions_s29
act) (Inh_Productions [Identifier]
_lhsIallnts Map Identifier (Map Identifier [Expression])
_lhsIaroundMap CVisitsMap
_lhsIcVisitsMap Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Productions_s29
sem <- Identity T_Productions_s29
act
let arg28 :: T_Productions_vIn28
arg28 = [Identifier]
-> Map Identifier (Map Identifier [Expression])
-> CVisitsMap
-> Attributes
-> Map Identifier Attributes
-> AttrOrderMap
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> Int
-> T_Productions_vIn28
T_Productions_vIn28 [Identifier]
_lhsIallnts Map Identifier (Map Identifier [Expression])
_lhsIaroundMap CVisitsMap
_lhsIcVisitsMap Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount
(T_Productions_vOut28 Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int)
_lhsOaroundDep CProductions
_lhsOcProductions [Identifier]
_lhsOcons Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep [Production]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules Seq (Int, CRule)
_lhsOrules Int
_lhsOvcount) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Productions_s29 -> T_Productions_v28
inv_Productions_s29 T_Productions_s29
sem T_Productions_vIn28
arg28)
forall (m :: * -> *) a. Monad m => a -> m a
return (Seq (Int, Int)
-> Seq (Int, Int)
-> CProductions
-> [Identifier]
-> Seq (Int, Int)
-> Seq Error
-> Seq (Int, Int)
-> Seq (Int, Int)
-> [Production]
-> Int
-> Int
-> Seq (Int, CRule)
-> Int
-> Syn_Productions
Syn_Productions Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int)
_lhsOaroundDep CProductions
_lhsOcProductions [Identifier]
_lhsOcons Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep [Production]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules Seq (Int, CRule)
_lhsOrules Int
_lhsOvcount)
)
{-# NOINLINE sem_Productions #-}
sem_Productions :: Productions -> T_Productions
sem_Productions :: Productions -> T_Productions
sem_Productions Productions
list = forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
Prelude.foldr T_Production -> T_Productions -> T_Productions
sem_Productions_Cons T_Productions
sem_Productions_Nil (forall a b. (a -> b) -> [a] -> [b]
Prelude.map Production -> T_Production
sem_Production Productions
list)
newtype T_Productions = T_Productions {
T_Productions -> Identity T_Productions_s29
attach_T_Productions :: Identity (T_Productions_s29 )
}
newtype T_Productions_s29 = C_Productions_s29 {
T_Productions_s29 -> T_Productions_v28
inv_Productions_s29 :: (T_Productions_v28 )
}
data T_Productions_s30 = C_Productions_s30
type T_Productions_v28 = (T_Productions_vIn28 ) -> (T_Productions_vOut28 )
data T_Productions_vIn28 = T_Productions_vIn28 ([Identifier]) (Map ConstructorIdent (Map Identifier [Expression])) (CVisitsMap) (Attributes) (Map Identifier Attributes) (AttrOrderMap) (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) (Identifier) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Options) (String) (Attributes) (Map Identifier Attributes) (Int)
data T_Productions_vOut28 = T_Productions_vOut28 (Seq Edge) (Seq Edge) (CProductions) ([ConstructorIdent]) (Seq Edge) (Seq Error) (Seq Edge) (Seq Edge) ([Mirage.Production]) (Int) (Int) (Seq (Vertex,CRule)) (Int)
{-# NOINLINE sem_Productions_Cons #-}
sem_Productions_Cons :: T_Production -> T_Productions -> T_Productions
sem_Productions_Cons :: T_Production -> T_Productions -> T_Productions
sem_Productions_Cons T_Production
arg_hd_ T_Productions
arg_tl_ = Identity T_Productions_s29 -> T_Productions
T_Productions (forall (m :: * -> *) a. Monad m => a -> m a
return T_Productions_s29
st29) where
{-# NOINLINE st29 #-}
st29 :: T_Productions_s29
st29 = let
v28 :: T_Productions_v28
v28 :: T_Productions_v28
v28 = \ (T_Productions_vIn28 [Identifier]
_lhsIallnts Map Identifier (Map Identifier [Expression])
_lhsIaroundMap CVisitsMap
_lhsIcVisitsMap Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) -> ( let
_hdX26 :: T_Production_s26
_hdX26 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Production -> Identity T_Production_s26
attach_T_Production (T_Production
arg_hd_))
_tlX29 :: T_Productions_s29
_tlX29 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Productions -> Identity T_Productions_s29
attach_T_Productions (T_Productions
arg_tl_))
(T_Production_vOut25 Seq (Int, Int)
_hdIadditionalDep Seq (Int, Int)
_hdIaroundDep CProduction
_hdIcProduction [Identifier]
_hdIcons Seq (Int, Int)
_hdIdirectDep Seq Error
_hdIerrors Seq (Int, Int)
_hdIinstDep Seq (Int, Int)
_hdImergeDep Production
_hdImirage Int
_hdInAutoRules Int
_hdInExplicitRules Seq (Int, CRule)
_hdIrules Int
_hdIvcount) = T_Production_s26 -> T_Production_v25
inv_Production_s26 T_Production_s26
_hdX26 ([Identifier]
-> Map Identifier (Map Identifier [Expression])
-> CVisitsMap
-> Attributes
-> Map Identifier Attributes
-> AttrOrderMap
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> Int
-> T_Production_vIn25
T_Production_vIn25 [Identifier]
_hdOallnts Map Identifier (Map Identifier [Expression])
_hdOaroundMap CVisitsMap
_hdOcVisitsMap Attributes
_hdOinh Map Identifier Attributes
_hdOinhMap AttrOrderMap
_hdOmanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_hdOmergeMap Identifier
_hdOnt Bool
_hdOo_case Bool
_hdOo_cata Bool
_hdOo_dovisit Bool
_hdOo_newtypes Bool
_hdOo_rename Bool
_hdOo_sem Bool
_hdOo_sig Bool
_hdOo_unbox Bool
_hdOo_wantvisit Options
_hdOoptions String
_hdOprefix Attributes
_hdOsyn Map Identifier Attributes
_hdOsynMap Int
_hdOvcount)
(T_Productions_vOut28 Seq (Int, Int)
_tlIadditionalDep Seq (Int, Int)
_tlIaroundDep CProductions
_tlIcProductions [Identifier]
_tlIcons Seq (Int, Int)
_tlIdirectDep Seq Error
_tlIerrors Seq (Int, Int)
_tlIinstDep Seq (Int, Int)
_tlImergeDep [Production]
_tlImirages Int
_tlInAutoRules Int
_tlInExplicitRules Seq (Int, CRule)
_tlIrules Int
_tlIvcount) = T_Productions_s29 -> T_Productions_v28
inv_Productions_s29 T_Productions_s29
_tlX29 ([Identifier]
-> Map Identifier (Map Identifier [Expression])
-> CVisitsMap
-> Attributes
-> Map Identifier Attributes
-> AttrOrderMap
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> Int
-> T_Productions_vIn28
T_Productions_vIn28 [Identifier]
_tlOallnts Map Identifier (Map Identifier [Expression])
_tlOaroundMap CVisitsMap
_tlOcVisitsMap Attributes
_tlOinh Map Identifier Attributes
_tlOinhMap AttrOrderMap
_tlOmanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_tlOmergeMap Identifier
_tlOnt Bool
_tlOo_case Bool
_tlOo_cata Bool
_tlOo_dovisit Bool
_tlOo_newtypes Bool
_tlOo_rename Bool
_tlOo_sem Bool
_tlOo_sig Bool
_tlOo_unbox Bool
_tlOo_wantvisit Options
_tlOoptions String
_tlOprefix Attributes
_tlOsyn Map Identifier Attributes
_tlOsynMap Int
_tlOvcount)
_lhsOcProductions :: CProductions
_lhsOcProductions :: CProductions
_lhsOcProductions = CProduction -> CProductions -> CProductions
rule408 CProduction
_hdIcProduction CProductions
_tlIcProductions
_lhsOmirages :: [Mirage.Production]
_lhsOmirages :: [Production]
_lhsOmirages = Production -> [Production] -> [Production]
rule409 Production
_hdImirage [Production]
_tlImirages
_lhsOadditionalDep :: Seq Edge
_lhsOadditionalDep :: Seq (Int, Int)
_lhsOadditionalDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule410 Seq (Int, Int)
_hdIadditionalDep Seq (Int, Int)
_tlIadditionalDep
_lhsOaroundDep :: Seq Edge
_lhsOaroundDep :: Seq (Int, Int)
_lhsOaroundDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule411 Seq (Int, Int)
_hdIaroundDep Seq (Int, Int)
_tlIaroundDep
_lhsOcons :: [ConstructorIdent]
_lhsOcons :: [Identifier]
_lhsOcons = [Identifier] -> [Identifier] -> [Identifier]
rule412 [Identifier]
_hdIcons [Identifier]
_tlIcons
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule413 Seq (Int, Int)
_hdIdirectDep Seq (Int, Int)
_tlIdirectDep
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error -> Seq Error
rule414 Seq Error
_hdIerrors Seq Error
_tlIerrors
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule415 Seq (Int, Int)
_hdIinstDep Seq (Int, Int)
_tlIinstDep
_lhsOmergeDep :: Seq Edge
_lhsOmergeDep :: Seq (Int, Int)
_lhsOmergeDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule416 Seq (Int, Int)
_hdImergeDep Seq (Int, Int)
_tlImergeDep
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = Int -> Int -> Int
rule417 Int
_hdInAutoRules Int
_tlInAutoRules
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = Int -> Int -> Int
rule418 Int
_hdInExplicitRules Int
_tlInExplicitRules
_lhsOrules :: Seq (Vertex,CRule)
_lhsOrules :: Seq (Int, CRule)
_lhsOrules = Seq (Int, CRule) -> Seq (Int, CRule) -> Seq (Int, CRule)
rule419 Seq (Int, CRule)
_hdIrules Seq (Int, CRule)
_tlIrules
_lhsOvcount :: Int
_lhsOvcount :: Int
_lhsOvcount = Int -> Int
rule420 Int
_tlIvcount
_hdOallnts :: [Identifier]
_hdOallnts = [Identifier] -> [Identifier]
rule421 [Identifier]
_lhsIallnts
_hdOaroundMap :: Map Identifier (Map Identifier [Expression])
_hdOaroundMap = Map Identifier (Map Identifier [Expression])
-> Map Identifier (Map Identifier [Expression])
rule422 Map Identifier (Map Identifier [Expression])
_lhsIaroundMap
_hdOcVisitsMap :: CVisitsMap
_hdOcVisitsMap = CVisitsMap -> CVisitsMap
rule423 CVisitsMap
_lhsIcVisitsMap
_hdOinh :: Attributes
_hdOinh = Attributes -> Attributes
rule424 Attributes
_lhsIinh
_hdOinhMap :: Map Identifier Attributes
_hdOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule425 Map Identifier Attributes
_lhsIinhMap
_hdOmanualAttrDepMap :: AttrOrderMap
_hdOmanualAttrDepMap = AttrOrderMap -> AttrOrderMap
rule426 AttrOrderMap
_lhsImanualAttrDepMap
_hdOmergeMap :: Map Identifier (Map Identifier (Identifier, [Identifier]))
_hdOmergeMap = Map Identifier (Map Identifier (Identifier, [Identifier]))
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
rule427 Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap
_hdOnt :: Identifier
_hdOnt = Identifier -> Identifier
rule428 Identifier
_lhsInt
_hdOo_case :: Bool
_hdOo_case = Bool -> Bool
rule429 Bool
_lhsIo_case
_hdOo_cata :: Bool
_hdOo_cata = Bool -> Bool
rule430 Bool
_lhsIo_cata
_hdOo_dovisit :: Bool
_hdOo_dovisit = Bool -> Bool
rule431 Bool
_lhsIo_dovisit
_hdOo_newtypes :: Bool
_hdOo_newtypes = Bool -> Bool
rule432 Bool
_lhsIo_newtypes
_hdOo_rename :: Bool
_hdOo_rename = Bool -> Bool
rule433 Bool
_lhsIo_rename
_hdOo_sem :: Bool
_hdOo_sem = Bool -> Bool
rule434 Bool
_lhsIo_sem
_hdOo_sig :: Bool
_hdOo_sig = Bool -> Bool
rule435 Bool
_lhsIo_sig
_hdOo_unbox :: Bool
_hdOo_unbox = Bool -> Bool
rule436 Bool
_lhsIo_unbox
_hdOo_wantvisit :: Bool
_hdOo_wantvisit = Bool -> Bool
rule437 Bool
_lhsIo_wantvisit
_hdOoptions :: Options
_hdOoptions = Options -> Options
rule438 Options
_lhsIoptions
_hdOprefix :: String
_hdOprefix = ShowS
rule439 String
_lhsIprefix
_hdOsyn :: Attributes
_hdOsyn = Attributes -> Attributes
rule440 Attributes
_lhsIsyn
_hdOsynMap :: Map Identifier Attributes
_hdOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule441 Map Identifier Attributes
_lhsIsynMap
_hdOvcount :: Int
_hdOvcount = Int -> Int
rule442 Int
_lhsIvcount
_tlOallnts :: [Identifier]
_tlOallnts = [Identifier] -> [Identifier]
rule443 [Identifier]
_lhsIallnts
_tlOaroundMap :: Map Identifier (Map Identifier [Expression])
_tlOaroundMap = Map Identifier (Map Identifier [Expression])
-> Map Identifier (Map Identifier [Expression])
rule444 Map Identifier (Map Identifier [Expression])
_lhsIaroundMap
_tlOcVisitsMap :: CVisitsMap
_tlOcVisitsMap = CVisitsMap -> CVisitsMap
rule445 CVisitsMap
_lhsIcVisitsMap
_tlOinh :: Attributes
_tlOinh = Attributes -> Attributes
rule446 Attributes
_lhsIinh
_tlOinhMap :: Map Identifier Attributes
_tlOinhMap = Map Identifier Attributes -> Map Identifier Attributes
rule447 Map Identifier Attributes
_lhsIinhMap
_tlOmanualAttrDepMap :: AttrOrderMap
_tlOmanualAttrDepMap = AttrOrderMap -> AttrOrderMap
rule448 AttrOrderMap
_lhsImanualAttrDepMap
_tlOmergeMap :: Map Identifier (Map Identifier (Identifier, [Identifier]))
_tlOmergeMap = Map Identifier (Map Identifier (Identifier, [Identifier]))
-> Map Identifier (Map Identifier (Identifier, [Identifier]))
rule449 Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap
_tlOnt :: Identifier
_tlOnt = Identifier -> Identifier
rule450 Identifier
_lhsInt
_tlOo_case :: Bool
_tlOo_case = Bool -> Bool
rule451 Bool
_lhsIo_case
_tlOo_cata :: Bool
_tlOo_cata = Bool -> Bool
rule452 Bool
_lhsIo_cata
_tlOo_dovisit :: Bool
_tlOo_dovisit = Bool -> Bool
rule453 Bool
_lhsIo_dovisit
_tlOo_newtypes :: Bool
_tlOo_newtypes = Bool -> Bool
rule454 Bool
_lhsIo_newtypes
_tlOo_rename :: Bool
_tlOo_rename = Bool -> Bool
rule455 Bool
_lhsIo_rename
_tlOo_sem :: Bool
_tlOo_sem = Bool -> Bool
rule456 Bool
_lhsIo_sem
_tlOo_sig :: Bool
_tlOo_sig = Bool -> Bool
rule457 Bool
_lhsIo_sig
_tlOo_unbox :: Bool
_tlOo_unbox = Bool -> Bool
rule458 Bool
_lhsIo_unbox
_tlOo_wantvisit :: Bool
_tlOo_wantvisit = Bool -> Bool
rule459 Bool
_lhsIo_wantvisit
_tlOoptions :: Options
_tlOoptions = Options -> Options
rule460 Options
_lhsIoptions
_tlOprefix :: String
_tlOprefix = ShowS
rule461 String
_lhsIprefix
_tlOsyn :: Attributes
_tlOsyn = Attributes -> Attributes
rule462 Attributes
_lhsIsyn
_tlOsynMap :: Map Identifier Attributes
_tlOsynMap = Map Identifier Attributes -> Map Identifier Attributes
rule463 Map Identifier Attributes
_lhsIsynMap
_tlOvcount :: Int
_tlOvcount = Int -> Int
rule464 Int
_hdIvcount
__result_ :: T_Productions_vOut28
__result_ = Seq (Int, Int)
-> Seq (Int, Int)
-> CProductions
-> [Identifier]
-> Seq (Int, Int)
-> Seq Error
-> Seq (Int, Int)
-> Seq (Int, Int)
-> [Production]
-> Int
-> Int
-> Seq (Int, CRule)
-> Int
-> T_Productions_vOut28
T_Productions_vOut28 Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int)
_lhsOaroundDep CProductions
_lhsOcProductions [Identifier]
_lhsOcons Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep [Production]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules Seq (Int, CRule)
_lhsOrules Int
_lhsOvcount
in T_Productions_vOut28
__result_ )
in T_Productions_v28 -> T_Productions_s29
C_Productions_s29 T_Productions_v28
v28
{-# INLINE rule408 #-}
{-# LINE 631 "src-ag/Order.ag" #-}
rule408 = \ ((_hdIcProduction) :: CProduction) ((_tlIcProductions) :: CProductions) ->
{-# LINE 631 "src-ag/Order.ag" #-}
_hdIcProduction : _tlIcProductions
{-# LINE 3162 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule409 #-}
{-# LINE 38 "src-ag/TfmToMirage.ag" #-}
rule409 = \ ((_hdImirage) :: Mirage.Production) ((_tlImirages) :: [Mirage.Production]) ->
{-# LINE 38 "src-ag/TfmToMirage.ag" #-}
_hdImirage : _tlImirages
{-# LINE 3168 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule410 #-}
rule410 = \ ((_hdIadditionalDep) :: Seq Edge) ((_tlIadditionalDep) :: Seq Edge) ->
_hdIadditionalDep Seq.>< _tlIadditionalDep
{-# INLINE rule411 #-}
rule411 = \ ((_hdIaroundDep) :: Seq Edge) ((_tlIaroundDep) :: Seq Edge) ->
_hdIaroundDep Seq.>< _tlIaroundDep
{-# INLINE rule412 #-}
rule412 = \ ((_hdIcons) :: [ConstructorIdent]) ((_tlIcons) :: [ConstructorIdent]) ->
_hdIcons ++ _tlIcons
{-# INLINE rule413 #-}
rule413 = \ ((_hdIdirectDep) :: Seq Edge) ((_tlIdirectDep) :: Seq Edge) ->
_hdIdirectDep Seq.>< _tlIdirectDep
{-# INLINE rule414 #-}
rule414 = \ ((_hdIerrors) :: Seq Error) ((_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# INLINE rule415 #-}
rule415 = \ ((_hdIinstDep) :: Seq Edge) ((_tlIinstDep) :: Seq Edge) ->
_hdIinstDep Seq.>< _tlIinstDep
{-# INLINE rule416 #-}
rule416 = \ ((_hdImergeDep) :: Seq Edge) ((_tlImergeDep) :: Seq Edge) ->
_hdImergeDep Seq.>< _tlImergeDep
{-# INLINE rule417 #-}
rule417 = \ ((_hdInAutoRules) :: Int) ((_tlInAutoRules) :: Int) ->
_hdInAutoRules + _tlInAutoRules
{-# INLINE rule418 #-}
rule418 = \ ((_hdInExplicitRules) :: Int) ((_tlInExplicitRules) :: Int) ->
_hdInExplicitRules + _tlInExplicitRules
{-# INLINE rule419 #-}
rule419 = \ ((_hdIrules) :: Seq (Vertex,CRule)) ((_tlIrules) :: Seq (Vertex,CRule)) ->
_hdIrules Seq.>< _tlIrules
{-# INLINE rule420 #-}
rule420 = \ ((_tlIvcount) :: Int) ->
_tlIvcount
{-# INLINE rule421 #-}
rule421 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule422 #-}
rule422 = \ ((_lhsIaroundMap) :: Map ConstructorIdent (Map Identifier [Expression])) ->
_lhsIaroundMap
{-# INLINE rule423 #-}
rule423 = \ ((_lhsIcVisitsMap) :: CVisitsMap) ->
_lhsIcVisitsMap
{-# INLINE rule424 #-}
rule424 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule425 #-}
rule425 = \ ((_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# INLINE rule426 #-}
rule426 = \ ((_lhsImanualAttrDepMap) :: AttrOrderMap) ->
_lhsImanualAttrDepMap
{-# INLINE rule427 #-}
rule427 = \ ((_lhsImergeMap) :: Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) ->
_lhsImergeMap
{-# INLINE rule428 #-}
rule428 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule429 #-}
rule429 = \ ((_lhsIo_case) :: Bool) ->
_lhsIo_case
{-# INLINE rule430 #-}
rule430 = \ ((_lhsIo_cata) :: Bool) ->
_lhsIo_cata
{-# INLINE rule431 #-}
rule431 = \ ((_lhsIo_dovisit) :: Bool) ->
_lhsIo_dovisit
{-# INLINE rule432 #-}
rule432 = \ ((_lhsIo_newtypes) :: Bool) ->
_lhsIo_newtypes
{-# INLINE rule433 #-}
rule433 = \ ((_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# INLINE rule434 #-}
rule434 = \ ((_lhsIo_sem) :: Bool) ->
_lhsIo_sem
{-# INLINE rule435 #-}
rule435 = \ ((_lhsIo_sig) :: Bool) ->
_lhsIo_sig
{-# INLINE rule436 #-}
rule436 = \ ((_lhsIo_unbox) :: Bool) ->
_lhsIo_unbox
{-# INLINE rule437 #-}
rule437 = \ ((_lhsIo_wantvisit) :: Bool) ->
_lhsIo_wantvisit
{-# INLINE rule438 #-}
rule438 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
{-# INLINE rule439 #-}
rule439 = \ ((_lhsIprefix) :: String) ->
_lhsIprefix
{-# INLINE rule440 #-}
rule440 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule441 #-}
rule441 = \ ((_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# INLINE rule442 #-}
rule442 = \ ((_lhsIvcount) :: Int) ->
_lhsIvcount
{-# INLINE rule443 #-}
rule443 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule444 #-}
rule444 = \ ((_lhsIaroundMap) :: Map ConstructorIdent (Map Identifier [Expression])) ->
_lhsIaroundMap
{-# INLINE rule445 #-}
rule445 = \ ((_lhsIcVisitsMap) :: CVisitsMap) ->
_lhsIcVisitsMap
{-# INLINE rule446 #-}
rule446 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule447 #-}
rule447 = \ ((_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# INLINE rule448 #-}
rule448 = \ ((_lhsImanualAttrDepMap) :: AttrOrderMap) ->
_lhsImanualAttrDepMap
{-# INLINE rule449 #-}
rule449 = \ ((_lhsImergeMap) :: Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) ->
_lhsImergeMap
{-# INLINE rule450 #-}
rule450 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule451 #-}
rule451 = \ ((_lhsIo_case) :: Bool) ->
_lhsIo_case
{-# INLINE rule452 #-}
rule452 = \ ((_lhsIo_cata) :: Bool) ->
_lhsIo_cata
{-# INLINE rule453 #-}
rule453 = \ ((_lhsIo_dovisit) :: Bool) ->
_lhsIo_dovisit
{-# INLINE rule454 #-}
rule454 = \ ((_lhsIo_newtypes) :: Bool) ->
_lhsIo_newtypes
{-# INLINE rule455 #-}
rule455 = \ ((_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# INLINE rule456 #-}
rule456 = \ ((_lhsIo_sem) :: Bool) ->
_lhsIo_sem
{-# INLINE rule457 #-}
rule457 = \ ((_lhsIo_sig) :: Bool) ->
_lhsIo_sig
{-# INLINE rule458 #-}
rule458 = \ ((_lhsIo_unbox) :: Bool) ->
_lhsIo_unbox
{-# INLINE rule459 #-}
rule459 = \ ((_lhsIo_wantvisit) :: Bool) ->
_lhsIo_wantvisit
{-# INLINE rule460 #-}
rule460 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
{-# INLINE rule461 #-}
rule461 = \ ((_lhsIprefix) :: String) ->
_lhsIprefix
{-# INLINE rule462 #-}
rule462 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule463 #-}
rule463 = \ ((_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# INLINE rule464 #-}
rule464 = \ ((_hdIvcount) :: Int) ->
_hdIvcount
{-# NOINLINE sem_Productions_Nil #-}
sem_Productions_Nil :: T_Productions
sem_Productions_Nil :: T_Productions
sem_Productions_Nil = Identity T_Productions_s29 -> T_Productions
T_Productions (forall (m :: * -> *) a. Monad m => a -> m a
return T_Productions_s29
st29) where
{-# NOINLINE st29 #-}
st29 :: T_Productions_s29
st29 = let
v28 :: T_Productions_v28
v28 :: T_Productions_v28
v28 = \ (T_Productions_vIn28 [Identifier]
_lhsIallnts Map Identifier (Map Identifier [Expression])
_lhsIaroundMap CVisitsMap
_lhsIcVisitsMap Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhMap AttrOrderMap
_lhsImanualAttrDepMap Map Identifier (Map Identifier (Identifier, [Identifier]))
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_unbox Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynMap Int
_lhsIvcount) -> ( let
_lhsOcProductions :: CProductions
_lhsOcProductions :: CProductions
_lhsOcProductions = forall {a}. () -> [a]
rule465 ()
_lhsOmirages :: [Mirage.Production]
_lhsOmirages :: [Production]
_lhsOmirages = forall {a}. () -> [a]
rule466 ()
_lhsOadditionalDep :: Seq Edge
_lhsOadditionalDep :: Seq (Int, Int)
_lhsOadditionalDep = forall {a}. () -> Seq a
rule467 ()
_lhsOaroundDep :: Seq Edge
_lhsOaroundDep :: Seq (Int, Int)
_lhsOaroundDep = forall {a}. () -> Seq a
rule468 ()
_lhsOcons :: [ConstructorIdent]
_lhsOcons :: [Identifier]
_lhsOcons = forall {a}. () -> [a]
rule469 ()
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = forall {a}. () -> Seq a
rule470 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = forall {a}. () -> Seq a
rule471 ()
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = forall {a}. () -> Seq a
rule472 ()
_lhsOmergeDep :: Seq Edge
_lhsOmergeDep :: Seq (Int, Int)
_lhsOmergeDep = forall {a}. () -> Seq a
rule473 ()
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = () -> Int
rule474 ()
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = () -> Int
rule475 ()
_lhsOrules :: Seq (Vertex,CRule)
_lhsOrules :: Seq (Int, CRule)
_lhsOrules = forall {a}. () -> Seq a
rule476 ()
_lhsOvcount :: Int
_lhsOvcount :: Int
_lhsOvcount = Int -> Int
rule477 Int
_lhsIvcount
__result_ :: T_Productions_vOut28
__result_ = Seq (Int, Int)
-> Seq (Int, Int)
-> CProductions
-> [Identifier]
-> Seq (Int, Int)
-> Seq Error
-> Seq (Int, Int)
-> Seq (Int, Int)
-> [Production]
-> Int
-> Int
-> Seq (Int, CRule)
-> Int
-> T_Productions_vOut28
T_Productions_vOut28 Seq (Int, Int)
_lhsOadditionalDep Seq (Int, Int)
_lhsOaroundDep CProductions
_lhsOcProductions [Identifier]
_lhsOcons Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors Seq (Int, Int)
_lhsOinstDep Seq (Int, Int)
_lhsOmergeDep [Production]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules Seq (Int, CRule)
_lhsOrules Int
_lhsOvcount
in T_Productions_vOut28
__result_ )
in T_Productions_v28 -> T_Productions_s29
C_Productions_s29 T_Productions_v28
v28
{-# INLINE rule465 #-}
{-# LINE 632 "src-ag/Order.ag" #-}
rule465 = \ (_ :: ()) ->
{-# LINE 632 "src-ag/Order.ag" #-}
[]
{-# LINE 3375 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule466 #-}
{-# LINE 39 "src-ag/TfmToMirage.ag" #-}
rule466 = \ (_ :: ()) ->
{-# LINE 39 "src-ag/TfmToMirage.ag" #-}
[]
{-# LINE 3381 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule467 #-}
rule467 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule468 #-}
rule468 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule469 #-}
rule469 = \ (_ :: ()) ->
[]
{-# INLINE rule470 #-}
rule470 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule471 #-}
rule471 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule472 #-}
rule472 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule473 #-}
rule473 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule474 #-}
rule474 = \ (_ :: ()) ->
0
{-# INLINE rule475 #-}
rule475 = \ (_ :: ()) ->
0
{-# INLINE rule476 #-}
rule476 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule477 #-}
rule477 = \ ((_lhsIvcount) :: Int) ->
_lhsIvcount
data Inh_Rule = Inh_Rule { Inh_Rule -> Attributes
allTypeSigs_Inh_Rule :: (Map Identifier Type), Inh_Rule -> [(Identifier, Type, ChildKind)]
allfields_Inh_Rule :: ([(Identifier,Type,ChildKind)]), Inh_Rule -> [Identifier]
allnts_Inh_Rule :: ([Identifier]), Inh_Rule -> Map AltAttr Int
altAttrs_Inh_Rule :: (Map AltAttr Vertex), Inh_Rule -> [(Identifier, Identifier)]
attrs_Inh_Rule :: ([(Identifier,Identifier)]), Inh_Rule -> Map Identifier Attributes
childInhs_Inh_Rule :: (Map Identifier Attributes), Inh_Rule -> Map Identifier Identifier
childNts_Inh_Rule :: (Map Identifier NontermIdent), Inh_Rule -> Identifier
con_Inh_Rule :: (Identifier), Inh_Rule -> Attributes
inh_Inh_Rule :: (Attributes), Inh_Rule -> Map Identifier Attributes
inhsOfChildren_Inh_Rule :: (Map Identifier Attributes), Inh_Rule -> Map Identifier (Identifier, [Identifier])
mergeMap_Inh_Rule :: (Map Identifier (Identifier,[Identifier])), Inh_Rule -> Identifier
nt_Inh_Rule :: (Identifier), Inh_Rule -> Bool
o_case_Inh_Rule :: (Bool), Inh_Rule -> Bool
o_cata_Inh_Rule :: (Bool), Inh_Rule -> Bool
o_dovisit_Inh_Rule :: (Bool), Inh_Rule -> Bool
o_newtypes_Inh_Rule :: (Bool), Inh_Rule -> Bool
o_rename_Inh_Rule :: (Bool), Inh_Rule -> Bool
o_sem_Inh_Rule :: (Bool), Inh_Rule -> Bool
o_sig_Inh_Rule :: (Bool), Inh_Rule -> Bool
o_wantvisit_Inh_Rule :: (Bool), Inh_Rule -> Options
options_Inh_Rule :: (Options), Inh_Rule -> String
prefix_Inh_Rule :: (String), Inh_Rule -> Attributes
syn_Inh_Rule :: (Attributes), Inh_Rule -> Map Identifier Attributes
synsOfChildren_Inh_Rule :: (Map Identifier Attributes) }
data Syn_Rule = Syn_Rule { Syn_Rule -> Seq (Int, Int)
directDep_Syn_Rule :: (Seq Edge), Syn_Rule -> Seq Error
errors_Syn_Rule :: (Seq Error), Syn_Rule -> [AltAttr]
gathAltAttrs_Syn_Rule :: ([AltAttr]), Syn_Rule -> Seq CRule
gathRules_Syn_Rule :: (Seq CRule), Syn_Rule -> Seq (Int, Int)
instDep_Syn_Rule :: (Seq Edge), Syn_Rule -> [Identifier]
instVars_Syn_Rule :: ([Identifier]), Syn_Rule -> [Identifier]
locVars_Syn_Rule :: ([Identifier]), Syn_Rule -> Rule
mirage_Syn_Rule :: (Mirage.Rule), Syn_Rule -> Int
nAutoRules_Syn_Rule :: (Int), Syn_Rule -> Int
nExplicitRules_Syn_Rule :: (Int) }
{-# INLINABLE wrap_Rule #-}
wrap_Rule :: T_Rule -> Inh_Rule -> (Syn_Rule )
wrap_Rule :: T_Rule -> Inh_Rule -> Syn_Rule
wrap_Rule (T_Rule Identity T_Rule_s32
act) (Inh_Rule Attributes
_lhsIallTypeSigs [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts Map AltAttr Int
_lhsIaltAttrs [(Identifier, Identifier)]
_lhsIattrs Map Identifier Attributes
_lhsIchildInhs Map Identifier Identifier
_lhsIchildNts Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhsOfChildren Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynsOfChildren) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Rule_s32
sem <- Identity T_Rule_s32
act
let arg31 :: T_Rule_vIn31
arg31 = Attributes
-> [(Identifier, Type, ChildKind)]
-> [Identifier]
-> Map AltAttr Int
-> [(Identifier, Identifier)]
-> Map Identifier Attributes
-> Map Identifier Identifier
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> T_Rule_vIn31
T_Rule_vIn31 Attributes
_lhsIallTypeSigs [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts Map AltAttr Int
_lhsIaltAttrs [(Identifier, Identifier)]
_lhsIattrs Map Identifier Attributes
_lhsIchildInhs Map Identifier Identifier
_lhsIchildNts Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhsOfChildren Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynsOfChildren
(T_Rule_vOut31 Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Int, Int)
_lhsOinstDep [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars Rule
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Rule_s32 -> T_Rule_v31
inv_Rule_s32 T_Rule_s32
sem T_Rule_vIn31
arg31)
forall (m :: * -> *) a. Monad m => a -> m a
return (Seq (Int, Int)
-> Seq Error
-> [AltAttr]
-> Seq CRule
-> Seq (Int, Int)
-> [Identifier]
-> [Identifier]
-> Rule
-> Int
-> Int
-> Syn_Rule
Syn_Rule Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Int, Int)
_lhsOinstDep [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars Rule
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules)
)
{-# INLINE sem_Rule #-}
sem_Rule :: Rule -> T_Rule
sem_Rule :: Rule -> T_Rule
sem_Rule ( Rule Maybe Identifier
mbName_ Pattern
pattern_ Expression
rhs_ Bool
owrt_ String
origin_ Bool
explicit_ Bool
pure_ Bool
identity_ Maybe Error
mbError_ Bool
eager_ ) = Maybe Identifier
-> T_Pattern
-> T_Expression
-> Bool
-> String
-> Bool
-> Bool
-> Bool
-> Maybe Error
-> Bool
-> T_Rule
sem_Rule_Rule Maybe Identifier
mbName_ ( Pattern -> T_Pattern
sem_Pattern Pattern
pattern_ ) ( Expression -> T_Expression
sem_Expression Expression
rhs_ ) Bool
owrt_ String
origin_ Bool
explicit_ Bool
pure_ Bool
identity_ Maybe Error
mbError_ Bool
eager_
newtype T_Rule = T_Rule {
T_Rule -> Identity T_Rule_s32
attach_T_Rule :: Identity (T_Rule_s32 )
}
newtype T_Rule_s32 = C_Rule_s32 {
T_Rule_s32 -> T_Rule_v31
inv_Rule_s32 :: (T_Rule_v31 )
}
data T_Rule_s33 = C_Rule_s33
type T_Rule_v31 = (T_Rule_vIn31 ) -> (T_Rule_vOut31 )
data T_Rule_vIn31 = T_Rule_vIn31 (Map Identifier Type) ([(Identifier,Type,ChildKind)]) ([Identifier]) (Map AltAttr Vertex) ([(Identifier,Identifier)]) (Map Identifier Attributes) (Map Identifier NontermIdent) (Identifier) (Attributes) (Map Identifier Attributes) (Map Identifier (Identifier,[Identifier])) (Identifier) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Options) (String) (Attributes) (Map Identifier Attributes)
data T_Rule_vOut31 = T_Rule_vOut31 (Seq Edge) (Seq Error) ([AltAttr]) (Seq CRule) (Seq Edge) ([Identifier]) ([Identifier]) (Mirage.Rule) (Int) (Int)
{-# NOINLINE sem_Rule_Rule #-}
sem_Rule_Rule :: (Maybe Identifier) -> T_Pattern -> T_Expression -> (Bool) -> (String) -> (Bool) -> (Bool) -> (Bool) -> (Maybe Error) -> (Bool) -> T_Rule
sem_Rule_Rule :: Maybe Identifier
-> T_Pattern
-> T_Expression
-> Bool
-> String
-> Bool
-> Bool
-> Bool
-> Maybe Error
-> Bool
-> T_Rule
sem_Rule_Rule Maybe Identifier
arg_mbName_ T_Pattern
arg_pattern_ T_Expression
arg_rhs_ Bool
arg_owrt_ String
arg_origin_ Bool
arg_explicit_ Bool
_ Bool
_ Maybe Error
_ Bool
_ = Identity T_Rule_s32 -> T_Rule
T_Rule (forall (m :: * -> *) a. Monad m => a -> m a
return T_Rule_s32
st32) where
{-# NOINLINE st32 #-}
st32 :: T_Rule_s32
st32 = let
v31 :: T_Rule_v31
v31 :: T_Rule_v31
v31 = \ (T_Rule_vIn31 Attributes
_lhsIallTypeSigs [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts Map AltAttr Int
_lhsIaltAttrs [(Identifier, Identifier)]
_lhsIattrs Map Identifier Attributes
_lhsIchildInhs Map Identifier Identifier
_lhsIchildNts Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhsOfChildren Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynsOfChildren) -> ( let
_patternX20 :: T_Pattern_s20
_patternX20 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Pattern -> Identity T_Pattern_s20
attach_T_Pattern (T_Pattern
arg_pattern_))
_rhsX8 :: T_Expression_s8
_rhsX8 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Expression -> Identity T_Expression_s8
attach_T_Expression (T_Expression
arg_rhs_))
(T_Pattern_vOut19 Pattern
_patternIcopy Seq Error
_patternIerrors [AltAttr]
_patternIgathAltAttrs [Identifier]
_patternIinstVars Bool
_patternIisUnderscore [Identifier]
_patternIlocVars [(Identifier, Identifier, Bool)]
_patternIpatternAttrs PP_Doc
_patternIpp) = T_Pattern_s20 -> T_Pattern_v19
inv_Pattern_s20 T_Pattern_s20
_patternX20 (Attributes
-> Map AltAttr Int
-> Bool
-> Identifier
-> Attributes
-> Identifier
-> Attributes
-> T_Pattern_vIn19
T_Pattern_vIn19 Attributes
_patternOallTypeSigs Map AltAttr Int
_patternOaltAttrs Bool
_patternObelowIrrefutable Identifier
_patternOcon Attributes
_patternOinh Identifier
_patternOnt Attributes
_patternOsyn)
(T_Expression_vOut7 Set (Identifier, Identifier)
_rhsIallRhsVars Expression
_rhsIcopy Seq Error
_rhsIerrors [String]
_rhsIlns [String]
_rhsItextLines [(Identifier, Identifier)]
_rhsIusedAttrs [Identifier]
_rhsIusedFields [Identifier]
_rhsIusedLocals) = T_Expression_s8 -> T_Expression_v7
inv_Expression_s8 T_Expression_s8
_rhsX8 ([(Identifier, Type, ChildKind)]
-> [Identifier]
-> [(Identifier, Identifier)]
-> Identifier
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Options
-> T_Expression_vIn7
T_Expression_vIn7 [(Identifier, Type, ChildKind)]
_rhsOallfields [Identifier]
_rhsOallnts [(Identifier, Identifier)]
_rhsOattrs Identifier
_rhsOcon Map Identifier (Identifier, [Identifier])
_rhsOmergeMap Identifier
_rhsOnt Options
_rhsOoptions)
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = Bool -> Int
rule478 Bool
arg_explicit_
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = String -> Int
rule479 String
arg_origin_
_defines :: Map Int (Identifier, Identifier, Maybe Type)
_defines = Attributes
-> Map AltAttr Int
-> Map Identifier Attributes
-> Attributes
-> [(Identifier, Identifier, Bool)]
-> Map Int (Identifier, Identifier, Maybe Type)
rule480 Attributes
_lhsIallTypeSigs Map AltAttr Int
_lhsIaltAttrs Map Identifier Attributes
_lhsIchildInhs Attributes
_lhsIsyn [(Identifier, Identifier, Bool)]
_patternIpatternAttrs
_gathRules :: Seq CRule
_gathRules = Map Int (Identifier, Identifier, Maybe Type)
-> Map Identifier Identifier
-> Identifier
-> Identifier
-> Pattern
-> Set (Identifier, Identifier)
-> [String]
-> Bool
-> Maybe Identifier
-> String
-> Bool
-> Seq CRule
rule481 Map Int (Identifier, Identifier, Maybe Type)
_defines Map Identifier Identifier
_lhsIchildNts Identifier
_lhsIcon Identifier
_lhsInt Pattern
_patternIcopy Set (Identifier, Identifier)
_rhsIallRhsVars [String]
_rhsItextLines Bool
arg_explicit_ Maybe Identifier
arg_mbName_ String
arg_origin_ Bool
arg_owrt_
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = forall {b} {a}.
Map b a
-> Map AltAttr Int
-> [(Identifier, Identifier)]
-> [Identifier]
-> [Identifier]
-> Seq (Int, b)
rule482 Map Int (Identifier, Identifier, Maybe Type)
_defines Map AltAttr Int
_lhsIaltAttrs [(Identifier, Identifier)]
_rhsIusedAttrs [Identifier]
_rhsIusedFields [Identifier]
_rhsIusedLocals
_instDep1 :: Seq (Int, Int)
_instDep1 = forall {k} {c}.
Map k (Identifier, Identifier, c)
-> Map AltAttr Int -> Map Identifier Attributes -> Seq (Int, Int)
rule483 Map Int (Identifier, Identifier, Maybe Type)
_defines Map AltAttr Int
_lhsIaltAttrs Map Identifier Attributes
_lhsIsynsOfChildren
_instDep2 :: Seq (Int, Int)
_instDep2 = forall {k} {c}.
Map k (Identifier, Identifier, c)
-> Map AltAttr Int -> Map Identifier Attributes -> Seq (Int, Int)
rule484 Map Int (Identifier, Identifier, Maybe Type)
_defines Map AltAttr Int
_lhsIaltAttrs Map Identifier Attributes
_lhsIinhsOfChildren
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = forall a. Seq a -> Seq a -> Seq a
rule485 Seq (Int, Int)
_instDep1 Seq (Int, Int)
_instDep2
_lhsOmirage :: Mirage.Rule
_lhsOmirage :: Rule
_lhsOmirage = [(Identifier, Identifier, Bool)]
-> PP_Doc
-> [String]
-> [(Identifier, Identifier)]
-> [Identifier]
-> [Identifier]
-> Bool
-> String
-> Rule
rule486 [(Identifier, Identifier, Bool)]
_patternIpatternAttrs PP_Doc
_patternIpp [String]
_rhsIlns [(Identifier, Identifier)]
_rhsIusedAttrs [Identifier]
_rhsIusedFields [Identifier]
_rhsIusedLocals Bool
arg_explicit_ String
arg_origin_
_patternObelowIrrefutable :: Bool
_patternObelowIrrefutable = () -> Bool
rule487 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error -> Seq Error
rule488 Seq Error
_patternIerrors Seq Error
_rhsIerrors
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = [AltAttr] -> [AltAttr]
rule489 [AltAttr]
_patternIgathAltAttrs
_lhsOgathRules :: Seq CRule
_lhsOgathRules :: Seq CRule
_lhsOgathRules = forall {p}. p -> p
rule490 Seq CRule
_gathRules
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = [Identifier] -> [Identifier]
rule491 [Identifier]
_patternIinstVars
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = [Identifier] -> [Identifier]
rule492 [Identifier]
_patternIlocVars
_patternOallTypeSigs :: Attributes
_patternOallTypeSigs = Attributes -> Attributes
rule493 Attributes
_lhsIallTypeSigs
_patternOaltAttrs :: Map AltAttr Int
_patternOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule494 Map AltAttr Int
_lhsIaltAttrs
_patternOcon :: Identifier
_patternOcon = Identifier -> Identifier
rule495 Identifier
_lhsIcon
_patternOinh :: Attributes
_patternOinh = Attributes -> Attributes
rule496 Attributes
_lhsIinh
_patternOnt :: Identifier
_patternOnt = Identifier -> Identifier
rule497 Identifier
_lhsInt
_patternOsyn :: Attributes
_patternOsyn = Attributes -> Attributes
rule498 Attributes
_lhsIsyn
_rhsOallfields :: [(Identifier, Type, ChildKind)]
_rhsOallfields = [(Identifier, Type, ChildKind)] -> [(Identifier, Type, ChildKind)]
rule499 [(Identifier, Type, ChildKind)]
_lhsIallfields
_rhsOallnts :: [Identifier]
_rhsOallnts = [Identifier] -> [Identifier]
rule500 [Identifier]
_lhsIallnts
_rhsOattrs :: [(Identifier, Identifier)]
_rhsOattrs = [(Identifier, Identifier)] -> [(Identifier, Identifier)]
rule501 [(Identifier, Identifier)]
_lhsIattrs
_rhsOcon :: Identifier
_rhsOcon = Identifier -> Identifier
rule502 Identifier
_lhsIcon
_rhsOmergeMap :: Map Identifier (Identifier, [Identifier])
_rhsOmergeMap = Map Identifier (Identifier, [Identifier])
-> Map Identifier (Identifier, [Identifier])
rule503 Map Identifier (Identifier, [Identifier])
_lhsImergeMap
_rhsOnt :: Identifier
_rhsOnt = Identifier -> Identifier
rule504 Identifier
_lhsInt
_rhsOoptions :: Options
_rhsOoptions = Options -> Options
rule505 Options
_lhsIoptions
__result_ :: T_Rule_vOut31
__result_ = Seq (Int, Int)
-> Seq Error
-> [AltAttr]
-> Seq CRule
-> Seq (Int, Int)
-> [Identifier]
-> [Identifier]
-> Rule
-> Int
-> Int
-> T_Rule_vOut31
T_Rule_vOut31 Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Int, Int)
_lhsOinstDep [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars Rule
_lhsOmirage Int
_lhsOnAutoRules Int
_lhsOnExplicitRules
in T_Rule_vOut31
__result_ )
in T_Rule_v31 -> T_Rule_s32
C_Rule_s32 T_Rule_v31
v31
{-# INLINE rule478 #-}
{-# LINE 64 "src-ag/Order.ag" #-}
rule478 = \ explicit_ ->
{-# LINE 64 "src-ag/Order.ag" #-}
if explicit_
then 1
else 0
{-# LINE 3505 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule479 #-}
{-# LINE 67 "src-ag/Order.ag" #-}
rule479 = \ origin_ ->
{-# LINE 67 "src-ag/Order.ag" #-}
if startsWith "use rule" origin_ || startsWith "copy rule" origin_
then 1
else 0
{-# LINE 3513 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule480 #-}
{-# LINE 220 "src-ag/Order.ag" #-}
rule480 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ((_lhsIaltAttrs) :: Map AltAttr Vertex) ((_lhsIchildInhs) :: Map Identifier Attributes) ((_lhsIsyn) :: Attributes) ((_patternIpatternAttrs) :: [(Identifier,Identifier,Bool)]) ->
{-# LINE 220 "src-ag/Order.ag" #-}
let tp field attr | field == _LOC || field == _INST
= Map.lookup attr _lhsIallTypeSigs
| field == _LHS = Map.lookup attr _lhsIsyn
| otherwise = Map.lookup attr (findWithErr1 "Rule.defines.tp" field _lhsIchildInhs)
typ :: Pattern -> Maybe Type
typ (Alias field attr _) = tp field attr
typ (Underscore _) = Nothing
typ _ = Nothing
in Map.fromList [ (findWithErr1 "Rule.defines" aa _lhsIaltAttrs, (field,attr,(tp field attr)))
| (field,attr,isLocalOrInst) <- _patternIpatternAttrs
, let aa = AltAttr field attr isLocalOrInst
]
{-# LINE 3530 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule481 #-}
{-# LINE 234 "src-ag/Order.ag" #-}
rule481 = \ _defines ((_lhsIchildNts) :: Map Identifier NontermIdent) ((_lhsIcon) :: Identifier) ((_lhsInt) :: Identifier) ((_patternIcopy) :: Pattern) ((_rhsIallRhsVars) :: Set (Identifier,Identifier)) ((_rhsItextLines) :: [String]) explicit_ mbName_ origin_ owrt_ ->
{-# LINE 234 "src-ag/Order.ag" #-}
let childnt field = Map.lookup field _lhsIchildNts
in Seq.fromList [ CRule attr False True _lhsInt _lhsIcon field (childnt field) tp _patternIcopy _rhsItextLines _defines owrt_ origin_ _rhsIallRhsVars explicit_ mbName_
| (field,attr,tp) <- Map.elems _defines
]
{-# LINE 3539 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule482 #-}
{-# LINE 273 "src-ag/Order.ag" #-}
rule482 = \ _defines ((_lhsIaltAttrs) :: Map AltAttr Vertex) ((_rhsIusedAttrs) :: [(Identifier,Identifier)]) ((_rhsIusedFields) :: [Identifier]) ((_rhsIusedLocals) :: [Identifier]) ->
{-# LINE 273 "src-ag/Order.ag" #-}
let defined = Map.keys _defines
used = [ Map.lookup (AltAttr field attr True) _lhsIaltAttrs | (field,attr) <- _rhsIusedAttrs]
++ [ Map.lookup (AltAttr _LOC attr True) _lhsIaltAttrs | attr <- _rhsIusedLocals ++ _rhsIusedFields ]
in Seq.fromList [ (x,y) | Just x <- used, y <- defined ]
{-# LINE 3548 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule483 #-}
{-# LINE 317 "src-ag/Order.ag" #-}
rule483 = \ _defines ((_lhsIaltAttrs) :: Map AltAttr Vertex) ((_lhsIsynsOfChildren) :: Map Identifier Attributes) ->
{-# LINE 317 "src-ag/Order.ag" #-}
Seq.fromList $
[ (instVert, synVert)
| (field,instNm,_) <- Map.elems _defines
, field == _INST
, synNm <- Map.keys (findWithErr2 instNm _lhsIsynsOfChildren)
, let instAttr = AltAttr _INST instNm True
synAttr = AltAttr instNm synNm True
instVert = findWithErr2 instAttr _lhsIaltAttrs
synVert = findWithErr2 synAttr _lhsIaltAttrs
]
{-# LINE 3563 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule484 #-}
{-# LINE 328 "src-ag/Order.ag" #-}
rule484 = \ _defines ((_lhsIaltAttrs) :: Map AltAttr Vertex) ((_lhsIinhsOfChildren) :: Map Identifier Attributes) ->
{-# LINE 328 "src-ag/Order.ag" #-}
Seq.fromList $
[ (instVert, inhVert)
| (field,instNm,_) <- Map.elems _defines
, field == _INST
, inhNm <- Map.keys (findWithErr2 instNm _lhsIinhsOfChildren)
, let instAttr = AltAttr _INST instNm True
inhAttr = AltAttr instNm inhNm False
instVert = findWithErr2 instAttr _lhsIaltAttrs
inhVert = findWithErr2 inhAttr _lhsIaltAttrs
]
{-# LINE 3578 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule485 #-}
{-# LINE 338 "src-ag/Order.ag" #-}
rule485 = \ _instDep1 _instDep2 ->
{-# LINE 338 "src-ag/Order.ag" #-}
_instDep1 Seq.>< _instDep2
{-# LINE 3584 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule486 #-}
{-# LINE 60 "src-ag/TfmToMirage.ag" #-}
rule486 = \ ((_patternIpatternAttrs) :: [(Identifier,Identifier,Bool)]) ((_patternIpp) :: PP_Doc) ((_rhsIlns) :: [String]) ((_rhsIusedAttrs) :: [(Identifier,Identifier)]) ((_rhsIusedFields) :: [Identifier]) ((_rhsIusedLocals) :: [Identifier]) explicit_ origin_ ->
{-# LINE 60 "src-ag/TfmToMirage.ag" #-}
Mirage.Rule
[Mirage.Address (getName field) (getName attr) | (field,attr,_) <- _patternIpatternAttrs]
([Mirage.Address (getName field) (getName attr) | (field,attr) <- _rhsIusedAttrs]
++ [ Mirage.Address (getName _LOC) (getName attr) | attr <- _rhsIusedLocals ++ _rhsIusedFields])
explicit_
origin_
(disp (_patternIpp >-< indent 1 (text "= " >|< vlist _rhsIlns)) 0 "")
{-# LINE 3596 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule487 #-}
{-# LINE 98 "src-ag/TfmToMirage.ag" #-}
rule487 = \ (_ :: ()) ->
{-# LINE 98 "src-ag/TfmToMirage.ag" #-}
False
{-# LINE 3602 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule488 #-}
rule488 = \ ((_patternIerrors) :: Seq Error) ((_rhsIerrors) :: Seq Error) ->
_patternIerrors Seq.>< _rhsIerrors
{-# INLINE rule489 #-}
rule489 = \ ((_patternIgathAltAttrs) :: [AltAttr]) ->
_patternIgathAltAttrs
{-# INLINE rule490 #-}
rule490 = \ _gathRules ->
_gathRules
{-# INLINE rule491 #-}
rule491 = \ ((_patternIinstVars) :: [Identifier]) ->
_patternIinstVars
{-# INLINE rule492 #-}
rule492 = \ ((_patternIlocVars) :: [Identifier]) ->
_patternIlocVars
{-# INLINE rule493 #-}
rule493 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule494 #-}
rule494 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule495 #-}
rule495 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule496 #-}
rule496 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule497 #-}
rule497 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule498 #-}
rule498 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule499 #-}
rule499 = \ ((_lhsIallfields) :: [(Identifier,Type,ChildKind)]) ->
_lhsIallfields
{-# INLINE rule500 #-}
rule500 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule501 #-}
rule501 = \ ((_lhsIattrs) :: [(Identifier,Identifier)]) ->
_lhsIattrs
{-# INLINE rule502 #-}
rule502 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule503 #-}
rule503 = \ ((_lhsImergeMap) :: Map Identifier (Identifier,[Identifier])) ->
_lhsImergeMap
{-# INLINE rule504 #-}
rule504 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule505 #-}
rule505 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
data Inh_Rules = Inh_Rules { Inh_Rules -> Attributes
allTypeSigs_Inh_Rules :: (Map Identifier Type), Inh_Rules -> [(Identifier, Type, ChildKind)]
allfields_Inh_Rules :: ([(Identifier,Type,ChildKind)]), Inh_Rules -> [Identifier]
allnts_Inh_Rules :: ([Identifier]), Inh_Rules -> Map AltAttr Int
altAttrs_Inh_Rules :: (Map AltAttr Vertex), Inh_Rules -> [(Identifier, Identifier)]
attrs_Inh_Rules :: ([(Identifier,Identifier)]), Inh_Rules -> Map Identifier Attributes
childInhs_Inh_Rules :: (Map Identifier Attributes), Inh_Rules -> Map Identifier Identifier
childNts_Inh_Rules :: (Map Identifier NontermIdent), Inh_Rules -> Identifier
con_Inh_Rules :: (Identifier), Inh_Rules -> Attributes
inh_Inh_Rules :: (Attributes), Inh_Rules -> Map Identifier Attributes
inhsOfChildren_Inh_Rules :: (Map Identifier Attributes), Inh_Rules -> Map Identifier (Identifier, [Identifier])
mergeMap_Inh_Rules :: (Map Identifier (Identifier,[Identifier])), Inh_Rules -> Identifier
nt_Inh_Rules :: (Identifier), Inh_Rules -> Bool
o_case_Inh_Rules :: (Bool), Inh_Rules -> Bool
o_cata_Inh_Rules :: (Bool), Inh_Rules -> Bool
o_dovisit_Inh_Rules :: (Bool), Inh_Rules -> Bool
o_newtypes_Inh_Rules :: (Bool), Inh_Rules -> Bool
o_rename_Inh_Rules :: (Bool), Inh_Rules -> Bool
o_sem_Inh_Rules :: (Bool), Inh_Rules -> Bool
o_sig_Inh_Rules :: (Bool), Inh_Rules -> Bool
o_wantvisit_Inh_Rules :: (Bool), Inh_Rules -> Options
options_Inh_Rules :: (Options), Inh_Rules -> String
prefix_Inh_Rules :: (String), Inh_Rules -> Attributes
syn_Inh_Rules :: (Attributes), Inh_Rules -> Map Identifier Attributes
synsOfChildren_Inh_Rules :: (Map Identifier Attributes) }
data Syn_Rules = Syn_Rules { Syn_Rules -> Seq (Int, Int)
directDep_Syn_Rules :: (Seq Edge), Syn_Rules -> Seq Error
errors_Syn_Rules :: (Seq Error), Syn_Rules -> [AltAttr]
gathAltAttrs_Syn_Rules :: ([AltAttr]), Syn_Rules -> Seq CRule
gathRules_Syn_Rules :: (Seq CRule), Syn_Rules -> Seq (Int, Int)
instDep_Syn_Rules :: (Seq Edge), Syn_Rules -> [Identifier]
instVars_Syn_Rules :: ([Identifier]), Syn_Rules -> [Identifier]
locVars_Syn_Rules :: ([Identifier]), Syn_Rules -> [Rule]
mirages_Syn_Rules :: ([Mirage.Rule]), Syn_Rules -> Int
nAutoRules_Syn_Rules :: (Int), Syn_Rules -> Int
nExplicitRules_Syn_Rules :: (Int) }
{-# INLINABLE wrap_Rules #-}
wrap_Rules :: T_Rules -> Inh_Rules -> (Syn_Rules )
wrap_Rules :: T_Rules -> Inh_Rules -> Syn_Rules
wrap_Rules (T_Rules Identity T_Rules_s35
act) (Inh_Rules Attributes
_lhsIallTypeSigs [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts Map AltAttr Int
_lhsIaltAttrs [(Identifier, Identifier)]
_lhsIattrs Map Identifier Attributes
_lhsIchildInhs Map Identifier Identifier
_lhsIchildNts Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhsOfChildren Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynsOfChildren) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_Rules_s35
sem <- Identity T_Rules_s35
act
let arg34 :: T_Rules_vIn34
arg34 = Attributes
-> [(Identifier, Type, ChildKind)]
-> [Identifier]
-> Map AltAttr Int
-> [(Identifier, Identifier)]
-> Map Identifier Attributes
-> Map Identifier Identifier
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> T_Rules_vIn34
T_Rules_vIn34 Attributes
_lhsIallTypeSigs [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts Map AltAttr Int
_lhsIaltAttrs [(Identifier, Identifier)]
_lhsIattrs Map Identifier Attributes
_lhsIchildInhs Map Identifier Identifier
_lhsIchildNts Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhsOfChildren Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynsOfChildren
(T_Rules_vOut34 Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Int, Int)
_lhsOinstDep [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars [Rule]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_Rules_s35 -> T_Rules_v34
inv_Rules_s35 T_Rules_s35
sem T_Rules_vIn34
arg34)
forall (m :: * -> *) a. Monad m => a -> m a
return (Seq (Int, Int)
-> Seq Error
-> [AltAttr]
-> Seq CRule
-> Seq (Int, Int)
-> [Identifier]
-> [Identifier]
-> [Rule]
-> Int
-> Int
-> Syn_Rules
Syn_Rules Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Int, Int)
_lhsOinstDep [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars [Rule]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules)
)
{-# NOINLINE sem_Rules #-}
sem_Rules :: Rules -> T_Rules
sem_Rules :: Rules -> T_Rules
sem_Rules Rules
list = forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
Prelude.foldr T_Rule -> T_Rules -> T_Rules
sem_Rules_Cons T_Rules
sem_Rules_Nil (forall a b. (a -> b) -> [a] -> [b]
Prelude.map Rule -> T_Rule
sem_Rule Rules
list)
newtype T_Rules = T_Rules {
T_Rules -> Identity T_Rules_s35
attach_T_Rules :: Identity (T_Rules_s35 )
}
newtype T_Rules_s35 = C_Rules_s35 {
T_Rules_s35 -> T_Rules_v34
inv_Rules_s35 :: (T_Rules_v34 )
}
data T_Rules_s36 = C_Rules_s36
type T_Rules_v34 = (T_Rules_vIn34 ) -> (T_Rules_vOut34 )
data T_Rules_vIn34 = T_Rules_vIn34 (Map Identifier Type) ([(Identifier,Type,ChildKind)]) ([Identifier]) (Map AltAttr Vertex) ([(Identifier,Identifier)]) (Map Identifier Attributes) (Map Identifier NontermIdent) (Identifier) (Attributes) (Map Identifier Attributes) (Map Identifier (Identifier,[Identifier])) (Identifier) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Bool) (Options) (String) (Attributes) (Map Identifier Attributes)
data T_Rules_vOut34 = T_Rules_vOut34 (Seq Edge) (Seq Error) ([AltAttr]) (Seq CRule) (Seq Edge) ([Identifier]) ([Identifier]) ([Mirage.Rule]) (Int) (Int)
{-# NOINLINE sem_Rules_Cons #-}
sem_Rules_Cons :: T_Rule -> T_Rules -> T_Rules
sem_Rules_Cons :: T_Rule -> T_Rules -> T_Rules
sem_Rules_Cons T_Rule
arg_hd_ T_Rules
arg_tl_ = Identity T_Rules_s35 -> T_Rules
T_Rules (forall (m :: * -> *) a. Monad m => a -> m a
return T_Rules_s35
st35) where
{-# NOINLINE st35 #-}
st35 :: T_Rules_s35
st35 = let
v34 :: T_Rules_v34
v34 :: T_Rules_v34
v34 = \ (T_Rules_vIn34 Attributes
_lhsIallTypeSigs [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts Map AltAttr Int
_lhsIaltAttrs [(Identifier, Identifier)]
_lhsIattrs Map Identifier Attributes
_lhsIchildInhs Map Identifier Identifier
_lhsIchildNts Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhsOfChildren Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynsOfChildren) -> ( let
_hdX32 :: T_Rule_s32
_hdX32 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Rule -> Identity T_Rule_s32
attach_T_Rule (T_Rule
arg_hd_))
_tlX35 :: T_Rules_s35
_tlX35 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_Rules -> Identity T_Rules_s35
attach_T_Rules (T_Rules
arg_tl_))
(T_Rule_vOut31 Seq (Int, Int)
_hdIdirectDep Seq Error
_hdIerrors [AltAttr]
_hdIgathAltAttrs Seq CRule
_hdIgathRules Seq (Int, Int)
_hdIinstDep [Identifier]
_hdIinstVars [Identifier]
_hdIlocVars Rule
_hdImirage Int
_hdInAutoRules Int
_hdInExplicitRules) = T_Rule_s32 -> T_Rule_v31
inv_Rule_s32 T_Rule_s32
_hdX32 (Attributes
-> [(Identifier, Type, ChildKind)]
-> [Identifier]
-> Map AltAttr Int
-> [(Identifier, Identifier)]
-> Map Identifier Attributes
-> Map Identifier Identifier
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> T_Rule_vIn31
T_Rule_vIn31 Attributes
_hdOallTypeSigs [(Identifier, Type, ChildKind)]
_hdOallfields [Identifier]
_hdOallnts Map AltAttr Int
_hdOaltAttrs [(Identifier, Identifier)]
_hdOattrs Map Identifier Attributes
_hdOchildInhs Map Identifier Identifier
_hdOchildNts Identifier
_hdOcon Attributes
_hdOinh Map Identifier Attributes
_hdOinhsOfChildren Map Identifier (Identifier, [Identifier])
_hdOmergeMap Identifier
_hdOnt Bool
_hdOo_case Bool
_hdOo_cata Bool
_hdOo_dovisit Bool
_hdOo_newtypes Bool
_hdOo_rename Bool
_hdOo_sem Bool
_hdOo_sig Bool
_hdOo_wantvisit Options
_hdOoptions String
_hdOprefix Attributes
_hdOsyn Map Identifier Attributes
_hdOsynsOfChildren)
(T_Rules_vOut34 Seq (Int, Int)
_tlIdirectDep Seq Error
_tlIerrors [AltAttr]
_tlIgathAltAttrs Seq CRule
_tlIgathRules Seq (Int, Int)
_tlIinstDep [Identifier]
_tlIinstVars [Identifier]
_tlIlocVars [Rule]
_tlImirages Int
_tlInAutoRules Int
_tlInExplicitRules) = T_Rules_s35 -> T_Rules_v34
inv_Rules_s35 T_Rules_s35
_tlX35 (Attributes
-> [(Identifier, Type, ChildKind)]
-> [Identifier]
-> Map AltAttr Int
-> [(Identifier, Identifier)]
-> Map Identifier Attributes
-> Map Identifier Identifier
-> Identifier
-> Attributes
-> Map Identifier Attributes
-> Map Identifier (Identifier, [Identifier])
-> Identifier
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Options
-> String
-> Attributes
-> Map Identifier Attributes
-> T_Rules_vIn34
T_Rules_vIn34 Attributes
_tlOallTypeSigs [(Identifier, Type, ChildKind)]
_tlOallfields [Identifier]
_tlOallnts Map AltAttr Int
_tlOaltAttrs [(Identifier, Identifier)]
_tlOattrs Map Identifier Attributes
_tlOchildInhs Map Identifier Identifier
_tlOchildNts Identifier
_tlOcon Attributes
_tlOinh Map Identifier Attributes
_tlOinhsOfChildren Map Identifier (Identifier, [Identifier])
_tlOmergeMap Identifier
_tlOnt Bool
_tlOo_case Bool
_tlOo_cata Bool
_tlOo_dovisit Bool
_tlOo_newtypes Bool
_tlOo_rename Bool
_tlOo_sem Bool
_tlOo_sig Bool
_tlOo_wantvisit Options
_tlOoptions String
_tlOprefix Attributes
_tlOsyn Map Identifier Attributes
_tlOsynsOfChildren)
_lhsOmirages :: [Mirage.Rule]
_lhsOmirages :: [Rule]
_lhsOmirages = Rule -> [Rule] -> [Rule]
rule506 Rule
_hdImirage [Rule]
_tlImirages
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule507 Seq (Int, Int)
_hdIdirectDep Seq (Int, Int)
_tlIdirectDep
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = Seq Error -> Seq Error -> Seq Error
rule508 Seq Error
_hdIerrors Seq Error
_tlIerrors
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = [AltAttr] -> [AltAttr] -> [AltAttr]
rule509 [AltAttr]
_hdIgathAltAttrs [AltAttr]
_tlIgathAltAttrs
_lhsOgathRules :: Seq CRule
_lhsOgathRules :: Seq CRule
_lhsOgathRules = Seq CRule -> Seq CRule -> Seq CRule
rule510 Seq CRule
_hdIgathRules Seq CRule
_tlIgathRules
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = Seq (Int, Int) -> Seq (Int, Int) -> Seq (Int, Int)
rule511 Seq (Int, Int)
_hdIinstDep Seq (Int, Int)
_tlIinstDep
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = [Identifier] -> [Identifier] -> [Identifier]
rule512 [Identifier]
_hdIinstVars [Identifier]
_tlIinstVars
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = [Identifier] -> [Identifier] -> [Identifier]
rule513 [Identifier]
_hdIlocVars [Identifier]
_tlIlocVars
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = Int -> Int -> Int
rule514 Int
_hdInAutoRules Int
_tlInAutoRules
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = Int -> Int -> Int
rule515 Int
_hdInExplicitRules Int
_tlInExplicitRules
_hdOallTypeSigs :: Attributes
_hdOallTypeSigs = Attributes -> Attributes
rule516 Attributes
_lhsIallTypeSigs
_hdOallfields :: [(Identifier, Type, ChildKind)]
_hdOallfields = [(Identifier, Type, ChildKind)] -> [(Identifier, Type, ChildKind)]
rule517 [(Identifier, Type, ChildKind)]
_lhsIallfields
_hdOallnts :: [Identifier]
_hdOallnts = [Identifier] -> [Identifier]
rule518 [Identifier]
_lhsIallnts
_hdOaltAttrs :: Map AltAttr Int
_hdOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule519 Map AltAttr Int
_lhsIaltAttrs
_hdOattrs :: [(Identifier, Identifier)]
_hdOattrs = [(Identifier, Identifier)] -> [(Identifier, Identifier)]
rule520 [(Identifier, Identifier)]
_lhsIattrs
_hdOchildInhs :: Map Identifier Attributes
_hdOchildInhs = Map Identifier Attributes -> Map Identifier Attributes
rule521 Map Identifier Attributes
_lhsIchildInhs
_hdOchildNts :: Map Identifier Identifier
_hdOchildNts = Map Identifier Identifier -> Map Identifier Identifier
rule522 Map Identifier Identifier
_lhsIchildNts
_hdOcon :: Identifier
_hdOcon = Identifier -> Identifier
rule523 Identifier
_lhsIcon
_hdOinh :: Attributes
_hdOinh = Attributes -> Attributes
rule524 Attributes
_lhsIinh
_hdOinhsOfChildren :: Map Identifier Attributes
_hdOinhsOfChildren = Map Identifier Attributes -> Map Identifier Attributes
rule525 Map Identifier Attributes
_lhsIinhsOfChildren
_hdOmergeMap :: Map Identifier (Identifier, [Identifier])
_hdOmergeMap = Map Identifier (Identifier, [Identifier])
-> Map Identifier (Identifier, [Identifier])
rule526 Map Identifier (Identifier, [Identifier])
_lhsImergeMap
_hdOnt :: Identifier
_hdOnt = Identifier -> Identifier
rule527 Identifier
_lhsInt
_hdOo_case :: Bool
_hdOo_case = Bool -> Bool
rule528 Bool
_lhsIo_case
_hdOo_cata :: Bool
_hdOo_cata = Bool -> Bool
rule529 Bool
_lhsIo_cata
_hdOo_dovisit :: Bool
_hdOo_dovisit = Bool -> Bool
rule530 Bool
_lhsIo_dovisit
_hdOo_newtypes :: Bool
_hdOo_newtypes = Bool -> Bool
rule531 Bool
_lhsIo_newtypes
_hdOo_rename :: Bool
_hdOo_rename = Bool -> Bool
rule532 Bool
_lhsIo_rename
_hdOo_sem :: Bool
_hdOo_sem = Bool -> Bool
rule533 Bool
_lhsIo_sem
_hdOo_sig :: Bool
_hdOo_sig = Bool -> Bool
rule534 Bool
_lhsIo_sig
_hdOo_wantvisit :: Bool
_hdOo_wantvisit = Bool -> Bool
rule535 Bool
_lhsIo_wantvisit
_hdOoptions :: Options
_hdOoptions = Options -> Options
rule536 Options
_lhsIoptions
_hdOprefix :: String
_hdOprefix = ShowS
rule537 String
_lhsIprefix
_hdOsyn :: Attributes
_hdOsyn = Attributes -> Attributes
rule538 Attributes
_lhsIsyn
_hdOsynsOfChildren :: Map Identifier Attributes
_hdOsynsOfChildren = Map Identifier Attributes -> Map Identifier Attributes
rule539 Map Identifier Attributes
_lhsIsynsOfChildren
_tlOallTypeSigs :: Attributes
_tlOallTypeSigs = Attributes -> Attributes
rule540 Attributes
_lhsIallTypeSigs
_tlOallfields :: [(Identifier, Type, ChildKind)]
_tlOallfields = [(Identifier, Type, ChildKind)] -> [(Identifier, Type, ChildKind)]
rule541 [(Identifier, Type, ChildKind)]
_lhsIallfields
_tlOallnts :: [Identifier]
_tlOallnts = [Identifier] -> [Identifier]
rule542 [Identifier]
_lhsIallnts
_tlOaltAttrs :: Map AltAttr Int
_tlOaltAttrs = Map AltAttr Int -> Map AltAttr Int
rule543 Map AltAttr Int
_lhsIaltAttrs
_tlOattrs :: [(Identifier, Identifier)]
_tlOattrs = [(Identifier, Identifier)] -> [(Identifier, Identifier)]
rule544 [(Identifier, Identifier)]
_lhsIattrs
_tlOchildInhs :: Map Identifier Attributes
_tlOchildInhs = Map Identifier Attributes -> Map Identifier Attributes
rule545 Map Identifier Attributes
_lhsIchildInhs
_tlOchildNts :: Map Identifier Identifier
_tlOchildNts = Map Identifier Identifier -> Map Identifier Identifier
rule546 Map Identifier Identifier
_lhsIchildNts
_tlOcon :: Identifier
_tlOcon = Identifier -> Identifier
rule547 Identifier
_lhsIcon
_tlOinh :: Attributes
_tlOinh = Attributes -> Attributes
rule548 Attributes
_lhsIinh
_tlOinhsOfChildren :: Map Identifier Attributes
_tlOinhsOfChildren = Map Identifier Attributes -> Map Identifier Attributes
rule549 Map Identifier Attributes
_lhsIinhsOfChildren
_tlOmergeMap :: Map Identifier (Identifier, [Identifier])
_tlOmergeMap = Map Identifier (Identifier, [Identifier])
-> Map Identifier (Identifier, [Identifier])
rule550 Map Identifier (Identifier, [Identifier])
_lhsImergeMap
_tlOnt :: Identifier
_tlOnt = Identifier -> Identifier
rule551 Identifier
_lhsInt
_tlOo_case :: Bool
_tlOo_case = Bool -> Bool
rule552 Bool
_lhsIo_case
_tlOo_cata :: Bool
_tlOo_cata = Bool -> Bool
rule553 Bool
_lhsIo_cata
_tlOo_dovisit :: Bool
_tlOo_dovisit = Bool -> Bool
rule554 Bool
_lhsIo_dovisit
_tlOo_newtypes :: Bool
_tlOo_newtypes = Bool -> Bool
rule555 Bool
_lhsIo_newtypes
_tlOo_rename :: Bool
_tlOo_rename = Bool -> Bool
rule556 Bool
_lhsIo_rename
_tlOo_sem :: Bool
_tlOo_sem = Bool -> Bool
rule557 Bool
_lhsIo_sem
_tlOo_sig :: Bool
_tlOo_sig = Bool -> Bool
rule558 Bool
_lhsIo_sig
_tlOo_wantvisit :: Bool
_tlOo_wantvisit = Bool -> Bool
rule559 Bool
_lhsIo_wantvisit
_tlOoptions :: Options
_tlOoptions = Options -> Options
rule560 Options
_lhsIoptions
_tlOprefix :: String
_tlOprefix = ShowS
rule561 String
_lhsIprefix
_tlOsyn :: Attributes
_tlOsyn = Attributes -> Attributes
rule562 Attributes
_lhsIsyn
_tlOsynsOfChildren :: Map Identifier Attributes
_tlOsynsOfChildren = Map Identifier Attributes -> Map Identifier Attributes
rule563 Map Identifier Attributes
_lhsIsynsOfChildren
__result_ :: T_Rules_vOut34
__result_ = Seq (Int, Int)
-> Seq Error
-> [AltAttr]
-> Seq CRule
-> Seq (Int, Int)
-> [Identifier]
-> [Identifier]
-> [Rule]
-> Int
-> Int
-> T_Rules_vOut34
T_Rules_vOut34 Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Int, Int)
_lhsOinstDep [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars [Rule]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules
in T_Rules_vOut34
__result_ )
in T_Rules_v34 -> T_Rules_s35
C_Rules_s35 T_Rules_v34
v34
{-# INLINE rule506 #-}
{-# LINE 53 "src-ag/TfmToMirage.ag" #-}
rule506 = \ ((_hdImirage) :: Mirage.Rule) ((_tlImirages) :: [Mirage.Rule]) ->
{-# LINE 53 "src-ag/TfmToMirage.ag" #-}
_hdImirage : _tlImirages
{-# LINE 3775 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule507 #-}
rule507 = \ ((_hdIdirectDep) :: Seq Edge) ((_tlIdirectDep) :: Seq Edge) ->
_hdIdirectDep Seq.>< _tlIdirectDep
{-# INLINE rule508 #-}
rule508 = \ ((_hdIerrors) :: Seq Error) ((_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# INLINE rule509 #-}
rule509 = \ ((_hdIgathAltAttrs) :: [AltAttr]) ((_tlIgathAltAttrs) :: [AltAttr]) ->
_hdIgathAltAttrs ++ _tlIgathAltAttrs
{-# INLINE rule510 #-}
rule510 = \ ((_hdIgathRules) :: Seq CRule) ((_tlIgathRules) :: Seq CRule) ->
_hdIgathRules Seq.>< _tlIgathRules
{-# INLINE rule511 #-}
rule511 = \ ((_hdIinstDep) :: Seq Edge) ((_tlIinstDep) :: Seq Edge) ->
_hdIinstDep Seq.>< _tlIinstDep
{-# INLINE rule512 #-}
rule512 = \ ((_hdIinstVars) :: [Identifier]) ((_tlIinstVars) :: [Identifier]) ->
_hdIinstVars ++ _tlIinstVars
{-# INLINE rule513 #-}
rule513 = \ ((_hdIlocVars) :: [Identifier]) ((_tlIlocVars) :: [Identifier]) ->
_hdIlocVars ++ _tlIlocVars
{-# INLINE rule514 #-}
rule514 = \ ((_hdInAutoRules) :: Int) ((_tlInAutoRules) :: Int) ->
_hdInAutoRules + _tlInAutoRules
{-# INLINE rule515 #-}
rule515 = \ ((_hdInExplicitRules) :: Int) ((_tlInExplicitRules) :: Int) ->
_hdInExplicitRules + _tlInExplicitRules
{-# INLINE rule516 #-}
rule516 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule517 #-}
rule517 = \ ((_lhsIallfields) :: [(Identifier,Type,ChildKind)]) ->
_lhsIallfields
{-# INLINE rule518 #-}
rule518 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule519 #-}
rule519 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule520 #-}
rule520 = \ ((_lhsIattrs) :: [(Identifier,Identifier)]) ->
_lhsIattrs
{-# INLINE rule521 #-}
rule521 = \ ((_lhsIchildInhs) :: Map Identifier Attributes) ->
_lhsIchildInhs
{-# INLINE rule522 #-}
rule522 = \ ((_lhsIchildNts) :: Map Identifier NontermIdent) ->
_lhsIchildNts
{-# INLINE rule523 #-}
rule523 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule524 #-}
rule524 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule525 #-}
rule525 = \ ((_lhsIinhsOfChildren) :: Map Identifier Attributes) ->
_lhsIinhsOfChildren
{-# INLINE rule526 #-}
rule526 = \ ((_lhsImergeMap) :: Map Identifier (Identifier,[Identifier])) ->
_lhsImergeMap
{-# INLINE rule527 #-}
rule527 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule528 #-}
rule528 = \ ((_lhsIo_case) :: Bool) ->
_lhsIo_case
{-# INLINE rule529 #-}
rule529 = \ ((_lhsIo_cata) :: Bool) ->
_lhsIo_cata
{-# INLINE rule530 #-}
rule530 = \ ((_lhsIo_dovisit) :: Bool) ->
_lhsIo_dovisit
{-# INLINE rule531 #-}
rule531 = \ ((_lhsIo_newtypes) :: Bool) ->
_lhsIo_newtypes
{-# INLINE rule532 #-}
rule532 = \ ((_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# INLINE rule533 #-}
rule533 = \ ((_lhsIo_sem) :: Bool) ->
_lhsIo_sem
{-# INLINE rule534 #-}
rule534 = \ ((_lhsIo_sig) :: Bool) ->
_lhsIo_sig
{-# INLINE rule535 #-}
rule535 = \ ((_lhsIo_wantvisit) :: Bool) ->
_lhsIo_wantvisit
{-# INLINE rule536 #-}
rule536 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
{-# INLINE rule537 #-}
rule537 = \ ((_lhsIprefix) :: String) ->
_lhsIprefix
{-# INLINE rule538 #-}
rule538 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule539 #-}
rule539 = \ ((_lhsIsynsOfChildren) :: Map Identifier Attributes) ->
_lhsIsynsOfChildren
{-# INLINE rule540 #-}
rule540 = \ ((_lhsIallTypeSigs) :: Map Identifier Type) ->
_lhsIallTypeSigs
{-# INLINE rule541 #-}
rule541 = \ ((_lhsIallfields) :: [(Identifier,Type,ChildKind)]) ->
_lhsIallfields
{-# INLINE rule542 #-}
rule542 = \ ((_lhsIallnts) :: [Identifier]) ->
_lhsIallnts
{-# INLINE rule543 #-}
rule543 = \ ((_lhsIaltAttrs) :: Map AltAttr Vertex) ->
_lhsIaltAttrs
{-# INLINE rule544 #-}
rule544 = \ ((_lhsIattrs) :: [(Identifier,Identifier)]) ->
_lhsIattrs
{-# INLINE rule545 #-}
rule545 = \ ((_lhsIchildInhs) :: Map Identifier Attributes) ->
_lhsIchildInhs
{-# INLINE rule546 #-}
rule546 = \ ((_lhsIchildNts) :: Map Identifier NontermIdent) ->
_lhsIchildNts
{-# INLINE rule547 #-}
rule547 = \ ((_lhsIcon) :: Identifier) ->
_lhsIcon
{-# INLINE rule548 #-}
rule548 = \ ((_lhsIinh) :: Attributes) ->
_lhsIinh
{-# INLINE rule549 #-}
rule549 = \ ((_lhsIinhsOfChildren) :: Map Identifier Attributes) ->
_lhsIinhsOfChildren
{-# INLINE rule550 #-}
rule550 = \ ((_lhsImergeMap) :: Map Identifier (Identifier,[Identifier])) ->
_lhsImergeMap
{-# INLINE rule551 #-}
rule551 = \ ((_lhsInt) :: Identifier) ->
_lhsInt
{-# INLINE rule552 #-}
rule552 = \ ((_lhsIo_case) :: Bool) ->
_lhsIo_case
{-# INLINE rule553 #-}
rule553 = \ ((_lhsIo_cata) :: Bool) ->
_lhsIo_cata
{-# INLINE rule554 #-}
rule554 = \ ((_lhsIo_dovisit) :: Bool) ->
_lhsIo_dovisit
{-# INLINE rule555 #-}
rule555 = \ ((_lhsIo_newtypes) :: Bool) ->
_lhsIo_newtypes
{-# INLINE rule556 #-}
rule556 = \ ((_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# INLINE rule557 #-}
rule557 = \ ((_lhsIo_sem) :: Bool) ->
_lhsIo_sem
{-# INLINE rule558 #-}
rule558 = \ ((_lhsIo_sig) :: Bool) ->
_lhsIo_sig
{-# INLINE rule559 #-}
rule559 = \ ((_lhsIo_wantvisit) :: Bool) ->
_lhsIo_wantvisit
{-# INLINE rule560 #-}
rule560 = \ ((_lhsIoptions) :: Options) ->
_lhsIoptions
{-# INLINE rule561 #-}
rule561 = \ ((_lhsIprefix) :: String) ->
_lhsIprefix
{-# INLINE rule562 #-}
rule562 = \ ((_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# INLINE rule563 #-}
rule563 = \ ((_lhsIsynsOfChildren) :: Map Identifier Attributes) ->
_lhsIsynsOfChildren
{-# NOINLINE sem_Rules_Nil #-}
sem_Rules_Nil :: T_Rules
sem_Rules_Nil :: T_Rules
sem_Rules_Nil = Identity T_Rules_s35 -> T_Rules
T_Rules (forall (m :: * -> *) a. Monad m => a -> m a
return T_Rules_s35
st35) where
{-# NOINLINE st35 #-}
st35 :: T_Rules_s35
st35 = let
v34 :: T_Rules_v34
v34 :: T_Rules_v34
v34 = \ (T_Rules_vIn34 Attributes
_lhsIallTypeSigs [(Identifier, Type, ChildKind)]
_lhsIallfields [Identifier]
_lhsIallnts Map AltAttr Int
_lhsIaltAttrs [(Identifier, Identifier)]
_lhsIattrs Map Identifier Attributes
_lhsIchildInhs Map Identifier Identifier
_lhsIchildNts Identifier
_lhsIcon Attributes
_lhsIinh Map Identifier Attributes
_lhsIinhsOfChildren Map Identifier (Identifier, [Identifier])
_lhsImergeMap Identifier
_lhsInt Bool
_lhsIo_case Bool
_lhsIo_cata Bool
_lhsIo_dovisit Bool
_lhsIo_newtypes Bool
_lhsIo_rename Bool
_lhsIo_sem Bool
_lhsIo_sig Bool
_lhsIo_wantvisit Options
_lhsIoptions String
_lhsIprefix Attributes
_lhsIsyn Map Identifier Attributes
_lhsIsynsOfChildren) -> ( let
_lhsOmirages :: [Mirage.Rule]
_lhsOmirages :: [Rule]
_lhsOmirages = forall {a}. () -> [a]
rule564 ()
_lhsOdirectDep :: Seq Edge
_lhsOdirectDep :: Seq (Int, Int)
_lhsOdirectDep = forall {a}. () -> Seq a
rule565 ()
_lhsOerrors :: Seq Error
_lhsOerrors :: Seq Error
_lhsOerrors = forall {a}. () -> Seq a
rule566 ()
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs :: [AltAttr]
_lhsOgathAltAttrs = forall {a}. () -> [a]
rule567 ()
_lhsOgathRules :: Seq CRule
_lhsOgathRules :: Seq CRule
_lhsOgathRules = forall {a}. () -> Seq a
rule568 ()
_lhsOinstDep :: Seq Edge
_lhsOinstDep :: Seq (Int, Int)
_lhsOinstDep = forall {a}. () -> Seq a
rule569 ()
_lhsOinstVars :: [Identifier]
_lhsOinstVars :: [Identifier]
_lhsOinstVars = forall {a}. () -> [a]
rule570 ()
_lhsOlocVars :: [Identifier]
_lhsOlocVars :: [Identifier]
_lhsOlocVars = forall {a}. () -> [a]
rule571 ()
_lhsOnAutoRules :: Int
_lhsOnAutoRules :: Int
_lhsOnAutoRules = () -> Int
rule572 ()
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules :: Int
_lhsOnExplicitRules = () -> Int
rule573 ()
__result_ :: T_Rules_vOut34
__result_ = Seq (Int, Int)
-> Seq Error
-> [AltAttr]
-> Seq CRule
-> Seq (Int, Int)
-> [Identifier]
-> [Identifier]
-> [Rule]
-> Int
-> Int
-> T_Rules_vOut34
T_Rules_vOut34 Seq (Int, Int)
_lhsOdirectDep Seq Error
_lhsOerrors [AltAttr]
_lhsOgathAltAttrs Seq CRule
_lhsOgathRules Seq (Int, Int)
_lhsOinstDep [Identifier]
_lhsOinstVars [Identifier]
_lhsOlocVars [Rule]
_lhsOmirages Int
_lhsOnAutoRules Int
_lhsOnExplicitRules
in T_Rules_vOut34
__result_ )
in T_Rules_v34 -> T_Rules_s35
C_Rules_s35 T_Rules_v34
v34
{-# INLINE rule564 #-}
{-# LINE 54 "src-ag/TfmToMirage.ag" #-}
rule564 = \ (_ :: ()) ->
{-# LINE 54 "src-ag/TfmToMirage.ag" #-}
[]
{-# LINE 3982 "src-generated/TfmToMirage.hs" #-}
{-# INLINE rule565 #-}
rule565 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule566 #-}
rule566 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule567 #-}
rule567 = \ (_ :: ()) ->
[]
{-# INLINE rule568 #-}
rule568 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule569 #-}
rule569 = \ (_ :: ()) ->
Seq.empty
{-# INLINE rule570 #-}
rule570 = \ (_ :: ()) ->
[]
{-# INLINE rule571 #-}
rule571 = \ (_ :: ()) ->
[]
{-# INLINE rule572 #-}
rule572 = \ (_ :: ()) ->
0
{-# INLINE rule573 #-}
rule573 = \ (_ :: ()) ->
0
data Inh_TypeSig = Inh_TypeSig { Inh_TypeSig -> Attributes
typeSigs_Inh_TypeSig :: (Map Identifier Type) }
data Syn_TypeSig = Syn_TypeSig { Syn_TypeSig -> Attributes
typeSigs_Syn_TypeSig :: (Map Identifier Type) }
{-# INLINABLE wrap_TypeSig #-}
wrap_TypeSig :: T_TypeSig -> Inh_TypeSig -> (Syn_TypeSig )
wrap_TypeSig :: T_TypeSig -> Inh_TypeSig -> Syn_TypeSig
wrap_TypeSig (T_TypeSig Identity T_TypeSig_s38
act) (Inh_TypeSig Attributes
_lhsItypeSigs) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_TypeSig_s38
sem <- Identity T_TypeSig_s38
act
let arg37 :: T_TypeSig_vIn37
arg37 = Attributes -> T_TypeSig_vIn37
T_TypeSig_vIn37 Attributes
_lhsItypeSigs
(T_TypeSig_vOut37 Attributes
_lhsOtypeSigs) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_TypeSig_s38 -> T_TypeSig_v37
inv_TypeSig_s38 T_TypeSig_s38
sem T_TypeSig_vIn37
arg37)
forall (m :: * -> *) a. Monad m => a -> m a
return (Attributes -> Syn_TypeSig
Syn_TypeSig Attributes
_lhsOtypeSigs)
)
{-# INLINE sem_TypeSig #-}
sem_TypeSig :: TypeSig -> T_TypeSig
sem_TypeSig :: TypeSig -> T_TypeSig
sem_TypeSig ( TypeSig Identifier
name_ Type
tp_ ) = Identifier -> Type -> T_TypeSig
sem_TypeSig_TypeSig Identifier
name_ Type
tp_
newtype T_TypeSig = T_TypeSig {
T_TypeSig -> Identity T_TypeSig_s38
attach_T_TypeSig :: Identity (T_TypeSig_s38 )
}
newtype T_TypeSig_s38 = C_TypeSig_s38 {
T_TypeSig_s38 -> T_TypeSig_v37
inv_TypeSig_s38 :: (T_TypeSig_v37 )
}
data T_TypeSig_s39 = C_TypeSig_s39
type T_TypeSig_v37 = (T_TypeSig_vIn37 ) -> (T_TypeSig_vOut37 )
data T_TypeSig_vIn37 = T_TypeSig_vIn37 (Map Identifier Type)
data T_TypeSig_vOut37 = T_TypeSig_vOut37 (Map Identifier Type)
{-# NOINLINE sem_TypeSig_TypeSig #-}
sem_TypeSig_TypeSig :: (Identifier) -> (Type) -> T_TypeSig
sem_TypeSig_TypeSig :: Identifier -> Type -> T_TypeSig
sem_TypeSig_TypeSig Identifier
arg_name_ Type
arg_tp_ = Identity T_TypeSig_s38 -> T_TypeSig
T_TypeSig (forall (m :: * -> *) a. Monad m => a -> m a
return T_TypeSig_s38
st38) where
{-# NOINLINE st38 #-}
st38 :: T_TypeSig_s38
st38 = let
v37 :: T_TypeSig_v37
v37 :: T_TypeSig_v37
v37 = \ (T_TypeSig_vIn37 Attributes
_lhsItypeSigs) -> ( let
_lhsOtypeSigs :: Map Identifier Type
_lhsOtypeSigs :: Attributes
_lhsOtypeSigs = Attributes -> Identifier -> Type -> Attributes
rule574 Attributes
_lhsItypeSigs Identifier
arg_name_ Type
arg_tp_
__result_ :: T_TypeSig_vOut37
__result_ = Attributes -> T_TypeSig_vOut37
T_TypeSig_vOut37 Attributes
_lhsOtypeSigs
in T_TypeSig_vOut37
__result_ )
in T_TypeSig_v37 -> T_TypeSig_s38
C_TypeSig_s38 T_TypeSig_v37
v37
{-# INLINE rule574 #-}
{-# LINE 536 "src-ag/Order.ag" #-}
rule574 = \ ((_lhsItypeSigs) :: Map Identifier Type) name_ tp_ ->
{-# LINE 536 "src-ag/Order.ag" #-}
Map.insert name_ tp_ _lhsItypeSigs
{-# LINE 4058 "src-generated/TfmToMirage.hs" #-}
data Inh_TypeSigs = Inh_TypeSigs { Inh_TypeSigs -> Attributes
typeSigs_Inh_TypeSigs :: (Map Identifier Type) }
data Syn_TypeSigs = Syn_TypeSigs { Syn_TypeSigs -> Attributes
typeSigs_Syn_TypeSigs :: (Map Identifier Type) }
{-# INLINABLE wrap_TypeSigs #-}
wrap_TypeSigs :: T_TypeSigs -> Inh_TypeSigs -> (Syn_TypeSigs )
wrap_TypeSigs :: T_TypeSigs -> Inh_TypeSigs -> Syn_TypeSigs
wrap_TypeSigs (T_TypeSigs Identity T_TypeSigs_s41
act) (Inh_TypeSigs Attributes
_lhsItypeSigs) =
forall a. Identity a -> a
Control.Monad.Identity.runIdentity (
do T_TypeSigs_s41
sem <- Identity T_TypeSigs_s41
act
let arg40 :: T_TypeSigs_vIn40
arg40 = Attributes -> T_TypeSigs_vIn40
T_TypeSigs_vIn40 Attributes
_lhsItypeSigs
(T_TypeSigs_vOut40 Attributes
_lhsOtypeSigs) <- forall (m :: * -> *) a. Monad m => a -> m a
return (T_TypeSigs_s41 -> T_TypeSigs_v40
inv_TypeSigs_s41 T_TypeSigs_s41
sem T_TypeSigs_vIn40
arg40)
forall (m :: * -> *) a. Monad m => a -> m a
return (Attributes -> Syn_TypeSigs
Syn_TypeSigs Attributes
_lhsOtypeSigs)
)
{-# NOINLINE sem_TypeSigs #-}
sem_TypeSigs :: TypeSigs -> T_TypeSigs
sem_TypeSigs :: TypeSigs -> T_TypeSigs
sem_TypeSigs TypeSigs
list = forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
Prelude.foldr T_TypeSig -> T_TypeSigs -> T_TypeSigs
sem_TypeSigs_Cons T_TypeSigs
sem_TypeSigs_Nil (forall a b. (a -> b) -> [a] -> [b]
Prelude.map TypeSig -> T_TypeSig
sem_TypeSig TypeSigs
list)
newtype T_TypeSigs = T_TypeSigs {
T_TypeSigs -> Identity T_TypeSigs_s41
attach_T_TypeSigs :: Identity (T_TypeSigs_s41 )
}
newtype T_TypeSigs_s41 = C_TypeSigs_s41 {
T_TypeSigs_s41 -> T_TypeSigs_v40
inv_TypeSigs_s41 :: (T_TypeSigs_v40 )
}
data T_TypeSigs_s42 = C_TypeSigs_s42
type T_TypeSigs_v40 = (T_TypeSigs_vIn40 ) -> (T_TypeSigs_vOut40 )
data T_TypeSigs_vIn40 = T_TypeSigs_vIn40 (Map Identifier Type)
data T_TypeSigs_vOut40 = T_TypeSigs_vOut40 (Map Identifier Type)
{-# NOINLINE sem_TypeSigs_Cons #-}
sem_TypeSigs_Cons :: T_TypeSig -> T_TypeSigs -> T_TypeSigs
sem_TypeSigs_Cons :: T_TypeSig -> T_TypeSigs -> T_TypeSigs
sem_TypeSigs_Cons T_TypeSig
arg_hd_ T_TypeSigs
arg_tl_ = Identity T_TypeSigs_s41 -> T_TypeSigs
T_TypeSigs (forall (m :: * -> *) a. Monad m => a -> m a
return T_TypeSigs_s41
st41) where
{-# NOINLINE st41 #-}
st41 :: T_TypeSigs_s41
st41 = let
v40 :: T_TypeSigs_v40
v40 :: T_TypeSigs_v40
v40 = \ (T_TypeSigs_vIn40 Attributes
_lhsItypeSigs) -> ( let
_hdX38 :: T_TypeSig_s38
_hdX38 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_TypeSig -> Identity T_TypeSig_s38
attach_T_TypeSig (T_TypeSig
arg_hd_))
_tlX41 :: T_TypeSigs_s41
_tlX41 = forall a. Identity a -> a
Control.Monad.Identity.runIdentity (T_TypeSigs -> Identity T_TypeSigs_s41
attach_T_TypeSigs (T_TypeSigs
arg_tl_))
(T_TypeSig_vOut37 Attributes
_hdItypeSigs) = T_TypeSig_s38 -> T_TypeSig_v37
inv_TypeSig_s38 T_TypeSig_s38
_hdX38 (Attributes -> T_TypeSig_vIn37
T_TypeSig_vIn37 Attributes
_hdOtypeSigs)
(T_TypeSigs_vOut40 Attributes
_tlItypeSigs) = T_TypeSigs_s41 -> T_TypeSigs_v40
inv_TypeSigs_s41 T_TypeSigs_s41
_tlX41 (Attributes -> T_TypeSigs_vIn40
T_TypeSigs_vIn40 Attributes
_tlOtypeSigs)
_lhsOtypeSigs :: Map Identifier Type
_lhsOtypeSigs :: Attributes
_lhsOtypeSigs = Attributes -> Attributes
rule575 Attributes
_tlItypeSigs
_hdOtypeSigs :: Attributes
_hdOtypeSigs = Attributes -> Attributes
rule576 Attributes
_lhsItypeSigs
_tlOtypeSigs :: Attributes
_tlOtypeSigs = Attributes -> Attributes
rule577 Attributes
_hdItypeSigs
__result_ :: T_TypeSigs_vOut40
__result_ = Attributes -> T_TypeSigs_vOut40
T_TypeSigs_vOut40 Attributes
_lhsOtypeSigs
in T_TypeSigs_vOut40
__result_ )
in T_TypeSigs_v40 -> T_TypeSigs_s41
C_TypeSigs_s41 T_TypeSigs_v40
v40
{-# INLINE rule575 #-}
rule575 :: Attributes -> Attributes
rule575 = \ ((Attributes
_tlItypeSigs) :: Map Identifier Type) ->
Attributes
_tlItypeSigs
{-# INLINE rule576 #-}
rule576 :: Attributes -> Attributes
rule576 = \ ((Attributes
_lhsItypeSigs) :: Map Identifier Type) ->
Attributes
_lhsItypeSigs
{-# INLINE rule577 #-}
rule577 :: Attributes -> Attributes
rule577 = \ ((Attributes
_hdItypeSigs) :: Map Identifier Type) ->
Attributes
_hdItypeSigs
{-# NOINLINE sem_TypeSigs_Nil #-}
sem_TypeSigs_Nil :: T_TypeSigs
sem_TypeSigs_Nil :: T_TypeSigs
sem_TypeSigs_Nil = Identity T_TypeSigs_s41 -> T_TypeSigs
T_TypeSigs (forall (m :: * -> *) a. Monad m => a -> m a
return T_TypeSigs_s41
st41) where
{-# NOINLINE st41 #-}
st41 :: T_TypeSigs_s41
st41 = let
v40 :: T_TypeSigs_v40
v40 :: T_TypeSigs_v40
v40 = \ (T_TypeSigs_vIn40 Attributes
_lhsItypeSigs) -> ( let
_lhsOtypeSigs :: Map Identifier Type
_lhsOtypeSigs :: Attributes
_lhsOtypeSigs = Attributes -> Attributes
rule578 Attributes
_lhsItypeSigs
__result_ :: T_TypeSigs_vOut40
__result_ = Attributes -> T_TypeSigs_vOut40
T_TypeSigs_vOut40 Attributes
_lhsOtypeSigs
in T_TypeSigs_vOut40
__result_ )
in T_TypeSigs_v40 -> T_TypeSigs_s41
C_TypeSigs_s41 T_TypeSigs_v40
v40
{-# INLINE rule578 #-}
rule578 :: Attributes -> Attributes
rule578 = \ ((Attributes
_lhsItypeSigs) :: Map Identifier Type) ->
Attributes
_lhsItypeSigs