{-# LANGUAGE Rank2Types, GADTs #-}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE ScopedTypeVariables #-}
module DefaultRules where
{-# LINE 2 "src-ag/Patterns.ag" #-}
import UU.Scanner.Position(Pos)
import CommonTypes (ConstructorIdent,Identifier)
{-# LINE 12 "dist/build/DefaultRules.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 24 "dist/build/DefaultRules.hs" #-}
{-# LINE 15 "src-ag/DefaultRules.ag" #-}
import qualified Data.List
import qualified Data.Set as Set
import qualified Data.Map as Map
import Data.Map(Map)
import qualified Data.Sequence as Seq
import Data.Sequence(Seq,(><))
import UU.Scanner.Position(noPos)
import Pretty
import Data.Maybe
import HsToken
import HsTokenScanner
import Data.List(intersperse)
import Data.Char
import AbstractSyntax
import ErrorMessages
import Options
{-# LINE 46 "dist/build/DefaultRules.hs" #-}
import Control.Monad.Identity (Identity)
import qualified Control.Monad.Identity
{-# LINE 80 "src-ag/DefaultRules.ag" #-}
fieldName n = '@' : getName n
locName n = "@loc." ++ getName n
attrName fld attr
| fld == _LOC = locName attr
| fld == _FIELD = fieldName attr
| otherwise = '@' : getName fld ++ "." ++ getName attr
_ACHILD = Ident "(" noPos
mkLocVar = AGField _LOC
isRecordConstructor :: NontermIdent -> Map NontermIdent ConstructorType -> Bool
isRecordConstructor nt ctm = Map.lookup nt ctm == Just RecordConstructor
buildConExpr ocaml clean conmap typeSyns rename nt con1 fs'
| nt `elem` map fst typeSyns = if ocaml then synonymMl
else if clean then synonymClean
else synonymHs
| otherwise = normalExpr
where fs = map fst fs'
con = getName con1
tup = " " ++ buildTuple fs
args = " " ++ unwords fs
normalExpr = if clean && isRecordConstructor nt conmap
then "{" ++ con ++ "|" ++
unwords (intersperse "," $ map (\(new, old) -> getName old ++ " = " ++ new) fs')
++ "}"
else conname' ++ args
conname' | rename = getName nt ++ "_" ++ getName con1
| otherwise = getName con1
synonymHs | con == "Tuple" = buildTuple fs
| con == "Cons" = "(:)" ++ args
| con == "Nil" = case lookup nt typeSyns of
Just (Map _ _) -> "Data.Map.empty"
Just (IntMap _) -> "Data.IntMap.empty"
Just (OrdSet _) -> "Data.Set.empty"
Just IntSet -> "Data.IntSet.empty"
_ -> "[]"
| con == "Just" = "Just" ++ args
| con == "Nothing" = "Nothing"
| con == "Entry" = ( case lookup nt typeSyns of
Just (Map _ _) -> "Data.Map.insert"
Just (IntMap _) -> "Data.IntMap.insert"
Just (OrdSet _) -> "Data.Set.insert"
Just IntSet -> "Data.IntSet.insert" ) ++ args
| otherwise = normalExpr
synonymMl | con == "Tuple" = buildTuple fs
| con == "Cons" = "(::)" ++ tup
| con == "Nil" = case lookup nt typeSyns of
Just (Map _ _) -> prefixMod nt "empty"
Just (IntMap _) -> prefixMod nt "empty"
Just (OrdSet _) -> prefixMod nt "empty"
Just IntSet -> prefixMod nt "empty"
_ -> "[]"
| con == "Just" = "Some" ++ tup
| con == "Nothing" = "None"
| con == "Entry" = ( case lookup nt typeSyns of
Just (Map _ _) -> prefixMod nt "add"
Just (IntMap _) -> prefixMod nt "add"
Just (OrdSet _) -> prefixMod nt "add"
Just IntSet -> prefixMod nt "add" ) ++ args
| otherwise = normalExpr
synonymClean | con == "Tuple" = buildTuple fs
| con == "Cons" = "(\\x xs -> [x:xs])" ++ args
| con == "Nil" = case lookup nt typeSyns of
Just (Map _ _) -> "Data.Map.empty"
Just (IntMap _) -> "Data.IntMap.empty"
Just (OrdSet _) -> "Data.Set.empty"
Just IntSet -> "Data.IntSet.empty"
_ -> "[]"
| con == "Just" = "Just" ++ args
| con == "Nothing" = "Nothing"
| con == "Entry" = ( case lookup nt typeSyns of
Just (Map _ _) -> "Data.Map.insert"
Just (IntMap _) -> "Data.IntMap.insert"
Just (OrdSet _) -> "Data.Set.insert"
Just IntSet -> "Data.IntSet.insert" ) ++ args
| otherwise = normalExpr
prefixMod nt nm = "M_" ++ getName nt ++ "." ++ nm
concatSeq = foldr (Seq.><) Seq.empty
splitAttrs :: Map Identifier a -> [Identifier] -> ([(Identifier,a)],[Identifier])
splitAttrs _ []
= ([],[])
splitAttrs useMap (n:rest)
= let (uses,normals) = splitAttrs useMap rest
in case Map.lookup n useMap of
Just x -> ((n,x):uses , normals )
Nothing -> ( uses , n:normals )
removeDefined :: Set (Identifier,Identifier) -> (Identifier,Attributes) -> (Identifier,[Identifier])
removeDefined defined (fld,as)
= ( fld
, [ a
| a <- Map.keys as
, not (Set.member (fld,a) defined)
]
)
{-# LINE 159 "dist/build/DefaultRules.hs" #-}
{-# LINE 255 "src-ag/DefaultRules.ag" #-}
deprecatedCopyRuleError nt con fld a
= let mesg =
"In the definitions for alternative"
>#< getName con
>#< "of nonterminal"
>#< getName nt
>|< ","
>-< "the value of field"
>#< getName a
>#< "is copied by a copy-rule."
>-< "Copying the value of a field using a copy-rule is deprecated"
>-< "Please add the following lines to your code:"
>-< ( "SEM"
>#< getName nt
>-< indent 2 ( "|"
>#< getName con
>#< getName fld
>#< "."
>#< a
>#< "="
>#< "@"
>|< a
)
)
in CustomError True (getPos a) mesg
missingRuleErrorExpr clean nt con fld a
= (if clean then "abort" else "error")
++ " \"missing rule: "
++ show nt ++ "." ++ show con ++ "."
++ show fld ++ "." ++ show a ++ "\""
makeRule :: (Identifier,Identifier) -> Expression -> String -> Bool -> Maybe Error -> Rule
makeRule (f1,a1) expr origin identity mbDelayedError
= Rule Nothing
(Alias f1 a1 (Underscore noPos))
expr
False
origin
False
True
identity
mbDelayedError
False
useRule :: Options -> Set Identifier -> [(Identifier,Attributes)] -> (Identifier,(String,String,String)) -> Rule
useRule opts locals ch_outs (n,(op,e,pos))
= let elems = [ fld
| (fld,as) <- ch_outs
, Map.member n as
]
isOp [] = False
isOp (c:cs)
| isSpace c = isOp cs
| isAlpha c = case dropWhile isAlpha cs of
('.':cs2) -> isOp cs2
_ -> False
| c == '(' = False
| otherwise = True
tks | Set.member n locals = [mkLocVar n noPos Nothing]
| null elems = lexTokens opts noPos e
| otherwise = lexTokens opts noPos str
where
opExpr l r
| isOp op = l ++ " " ++ op ++ " " ++ r
| otherwise = "(" ++ op ++ " " ++ l ++ " " ++ r ++ ")"
str = foldr1 opExpr (map (flip attrName n) elems)
in makeRule (_LHS,n)
(Expression noPos tks)
("use rule " ++ pos)
False
Nothing
selfRule :: Bool -> Identifier -> [HsToken] -> Rule
selfRule lhsNecLoc attr tks
= makeRule (if lhsNecLoc then _LHS else _LOC,attr)
(Expression noPos tks)
"self rule"
False
Nothing
concatRE rsess = let (rss,ess) = unzip rsess
in (concat rss, concatSeq ess)
copyRule :: Options -> Set NontermIdent -> Identifier -> Identifier -> Bool -> Set Identifier -> (Map Identifier Identifier, (Identifier,[Identifier])) -> ([Rule], Seq Error)
copyRule options wrappers nt con modcopy locals (env,(fld,as))
= concatRE (map copyRu as)
where
copyRu a
= ( [ makeRule (fld,a)
(Expression noPos tks)
(cruletxt sel)
True
mbDelayedErr
]
, err
)
where
sel
| not modcopy
&& Set.member a locals = Just _LOC
| otherwise = Map.lookup a env
(tks,err,mbDelayedErr)
= case sel of
Nothing -> let tks = [HsToken (missingRuleErrorExpr (clean options) nt con fld a) noPos]
err = MissingRule nt con fld a
in if nt `Set.member` wrappers && kennedyWarren options
then (tks, Seq.empty, Just err)
else (tks, Seq.singleton err, Nothing)
Just f
| f == _ACHILD -> ( [AGLocal a noPos Nothing]
, Seq.singleton (deprecatedCopyRuleError nt con fld a)
, Nothing
)
| otherwise -> ( [AGField f a noPos Nothing]
, Seq.empty
, Nothing
)
cruletxt sel
| local = "copy rule (from local)"
| deprChild = "deprecated child copy"
| Set.member a locals && nonlocal = "modified copy rule"
| incoming && outgoing = "copy rule (chain)"
| incoming = "copy rule (down)"
| outgoing = "copy rule (up)"
| otherwise = "copy rule (chain)"
where outgoing = fld == _LHS
incoming = maybe False (== _LHS) sel
nonlocal = maybe False (/= _LOC) sel
local = maybe False (== _LOC) sel
deprChild = maybe False (== _ACHILD) sel
{-# LINE 311 "dist/build/DefaultRules.hs" #-}
{-# LINE 488 "src-ag/DefaultRules.ag" #-}
buildTuple fs = "(" ++ concat (intersperse "," fs) ++ ")"
addAugments :: (Identifier, [Expression]) -> [Rule] -> [Rule]
addAugments (_, exprs) rules
| null exprs = rules
addAugments (syn, exprs) rules
= [rule] ++ funRules ++ map modify rules
where
rule = Rule Nothing (Alias _LHS syn (Underscore noPos)) rhs False "augmented rule" False True False Nothing False
rhs = Expression noPos tks
tks = [ HsToken "foldr ($) " noPos, mkLocVar substSyn noPos Nothing, HsToken " [" noPos] ++ funs ++ [HsToken "]" noPos]
funs = intersperse (HsToken ", " noPos) (map (\n -> mkLocVar n noPos Nothing) funNames)
substSyn = Ident (show syn ++ "_augmented_syn") (getPos syn)
funNames = zipWith (\i _ -> Ident (show syn ++ "_augmented_f" ++ show i) (getPos syn)) [1..] exprs
funRules = zipWith (\name expr -> Rule Nothing (Alias _LOC name (Underscore noPos)) expr False "augment function" False True False Nothing False) funNames exprs
modify (Rule mbNm pat rhs owrt origin expl pure identity mbErr eager)
| containsSyn pat = Rule mbNm (modifyPat pat) rhs owrt origin expl pure identity mbErr eager
modify r = r
containsSyn (Constr _ pats) = any containsSyn pats
containsSyn (Product _ pats) = any containsSyn pats
containsSyn (Irrefutable pat) = containsSyn pat
containsSyn (Alias field attr pat) = (field == _LHS && attr == syn) || containsSyn pat
containsSyn _ = False
modifyPat (Constr name pats) = Constr name (map modifyPat pats)
modifyPat (Product pos pats) = Product pos (map modifyPat pats)
modifyPat (Irrefutable pat) = Irrefutable (modifyPat pat)
modifyPat (Alias field attr pat)
| field == _LHS && attr == syn = Alias _LOC substSyn (modifyPat pat)
| otherwise = Alias field attr (modifyPat pat)
modifyPat p = p
addArounds :: (Identifier, [Expression]) -> [Rule] -> [Rule]
addArounds (_, exprs) rules | null exprs = rules
addArounds (child, exprs) rules
= [rule] ++ funRules ++ rules
where
rule = Rule Nothing (Alias _LOC childLoc (Underscore noPos)) rhs False "around rule" False True False Nothing False
rhs = Expression noPos tks
tks = [ HsToken "\\s -> foldr ($) s " noPos, HsToken " [" noPos] ++ funs ++ [HsToken "]" noPos]
funs = intersperse (HsToken ", " noPos) (map (\n -> mkLocVar n noPos Nothing) funNames)
childLoc = Ident (show child ++ "_around") (getPos child)
funNames = zipWith (\i _ -> Ident (show child ++ "_around_f" ++ show i) (getPos child)) [1..] exprs
funRules = zipWith (\name expr -> Rule Nothing (Alias _LOC name (Underscore noPos)) expr False "around function" False True False Nothing False) funNames exprs
addMerges :: (Identifier, (Identifier,[Identifier],Expression)) -> [Rule] -> [Rule]
addMerges (target,(_,_,expr)) rules
= rule : rules
where
rule = Rule Nothing (Alias _LOC childLoc (Underscore noPos)) expr False "merge rule" False True False Nothing False
childLoc = Ident (show target ++ "_merge") (getPos target)
{-# LINE 380 "dist/build/DefaultRules.hs" #-}
{-# LINE 606 "src-ag/DefaultRules.ag" #-}
elimSelfId :: NontermIdent -> [Identifier] -> Type -> Type
elimSelfId nt args Self = NT nt (map getName args) False
elimSelfId _ _ tp = tp
elimSelfStr :: NontermIdent -> [String] -> Type -> Type
elimSelfStr nt args Self = NT nt args False
elimSelfStr _ _ tp = tp
{-# LINE 391 "dist/build/DefaultRules.hs" #-}
{-# LINE 658 "src-ag/DefaultRules.ag" #-}
mkRuleAlias :: Rule -> (Rule, Maybe Rule)
mkRuleAlias r@(Rule Nothing _ _ _ _ _ _ _ _ _) = (r, Nothing)
mkRuleAlias (Rule (Just nm) pat expr owrt origin expl pure identity mbErr eager) = (r', Just alias) where
alias = Rule Nothing (Alias _LOC (Ident ("_rule_" ++ show nm) pos) (Underscore pos)) expr owrt origin expl pure identity mbErr eager
pos = getPos nm
expr' = Expression pos tks
tks = [mkLocVar (Ident ("_rule_" ++ show nm) pos) pos (Just ("Indirection to rule " ++ show nm))]
r' = Rule Nothing pat expr' owrt origin False True identity Nothing False
{-# LINE 406 "dist/build/DefaultRules.hs" #-}
{-# LINE 675 "src-ag/DefaultRules.ag" #-}
needsMultiRules :: Options -> Bool
needsMultiRules opts = (visit opts || withCycle opts) && not (kennedyWarren opts)
{-# LINE 412 "dist/build/DefaultRules.hs" #-}
{-# LINE 680 "src-ag/DefaultRules.ag" #-}
multiRule :: Rule -> Int -> ([Rule], Int)
multiRule (Rule _ pat expr owrt origin expl pure identity mbErr eager) uniq
= let f :: Bool -> (Pattern->Pattern) -> Expression -> Pattern -> Int -> (Pattern, ([Rule], Int))
f expl' w e (Product pos pats) n
= let freshName = Ident ("_tup" ++ show n) pos
freshExpr = Expression pos freshTks
freshTks = [AGField _LOC freshName pos Nothing]
freshPat = Alias _LOC freshName (Underscore pos)
a = length pats - 1
us b p = Product pos (replicate (a-b) (Underscore pos) ++ [p] ++ replicate b (Underscore pos))
g :: Pattern -> ([Pattern],[Rule],Int) -> ([Pattern],[Rule],Int)
g p (xs1,rs1,n1) = let (x2,(rs2,n2)) = f False (us (length xs1)) freshExpr p n1
in (x2:xs1, rs2++rs1, n2)
(xs9,rs9,n9) = foldr g ([], [], n+1) pats
in ( freshPat
, ( Rule Nothing (w freshPat) e owrt origin expl' True False mbErr eager : rs9
, n9
)
)
f expl' w e p n
= ( p
, ( [Rule Nothing (w p) e owrt origin expl' True False mbErr eager]
, n
)
)
in snd (f expl id expr pat uniq)
{-# LINE 462 "dist/build/DefaultRules.hs" #-}
data Inh_Child = Inh_Child { con_Inh_Child :: !(ConstructorIdent), cr_Inh_Child :: !(Bool), inhMap_Inh_Child :: !(Map Identifier Attributes), merged_Inh_Child :: !(Set Identifier), nt_Inh_Child :: !(NontermIdent), params_Inh_Child :: !([Identifier]), synMap_Inh_Child :: !(Map Identifier Attributes) }
data Syn_Child = Syn_Child { errors_Syn_Child :: !(Seq Error), field_Syn_Child :: !( (Identifier,Type,ChildKind) ), inherited_Syn_Child :: !(Attributes), name_Syn_Child :: !(Identifier), output_Syn_Child :: !(Child), synthesized_Syn_Child :: !(Attributes) }
{-# INLINABLE wrap_Child #-}
wrap_Child :: T_Child -> Inh_Child -> (Syn_Child )
wrap_Child !(T_Child act) !(Inh_Child _lhsIcon _lhsIcr _lhsIinhMap _lhsImerged _lhsInt _lhsIparams _lhsIsynMap) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg0 = T_Child_vIn0 _lhsIcon _lhsIcr _lhsIinhMap _lhsImerged _lhsInt _lhsIparams _lhsIsynMap
!(T_Child_vOut0 _lhsOerrors _lhsOfield _lhsOinherited _lhsOname _lhsOoutput _lhsOsynthesized) <- return (inv_Child_s0 sem K_Child_v0 arg0)
return (Syn_Child _lhsOerrors _lhsOfield _lhsOinherited _lhsOname _lhsOoutput _lhsOsynthesized)
)
{-# INLINE sem_Child #-}
sem_Child :: Child -> T_Child
sem_Child ( Child !name_ !tp_ !kind_ ) = sem_Child_Child name_ tp_ kind_
newtype T_Child = T_Child {
attach_T_Child :: Identity (T_Child_s0 )
}
data T_Child_s0 where C_Child_s0 :: {
inv_Child_s0 :: !(forall t. K_Child_s0 t -> t)
} -> T_Child_s0
data T_Child_s1 = C_Child_s1
data T_Child_s26 = C_Child_s26
newtype T_Child_s56 = C_Child_s56 {
inv_Child_s56 :: (T_Child_v53 )
}
data K_Child_s0 k where
K_Child_v0 :: K_Child_s0 (T_Child_v0 )
K_Child_v13 :: K_Child_s0 (T_Child_v13 )
K_Child_v52 :: K_Child_s0 (T_Child_v52 )
type T_Child_v0 = (T_Child_vIn0 ) -> (T_Child_vOut0 )
data T_Child_vIn0 = T_Child_vIn0 !(ConstructorIdent) !(Bool) !(Map Identifier Attributes) !(Set Identifier) !(NontermIdent) !([Identifier]) !(Map Identifier Attributes)
data T_Child_vOut0 = T_Child_vOut0 !(Seq Error) !( (Identifier,Type,ChildKind) ) !(Attributes) !(Identifier) !(Child) !(Attributes)
type T_Child_v13 = (T_Child_vIn13 ) -> (T_Child_vOut13 )
data T_Child_vIn13 = T_Child_vIn13 !(Map Identifier Attributes) !(Set Identifier) !(Map Identifier Attributes)
data T_Child_vOut13 = T_Child_vOut13 !(Seq Error) !( (Identifier,Type,ChildKind) ) !(Attributes) !(Identifier) !(Child) !(Attributes)
type T_Child_v52 = (T_Child_vIn52 ) -> (T_Child_vOut52 )
data T_Child_vIn52 = T_Child_vIn52 !(Map Identifier Attributes) !(Set Identifier) !(Map Identifier Attributes)
data T_Child_vOut52 = T_Child_vOut52 !(Seq Error) !( (Identifier,Type,ChildKind) ) !(Attributes) !(Identifier) !(Attributes) !(T_Child_s56 )
type T_Child_v53 = (T_Child_vIn53 ) -> (T_Child_vOut53 )
data T_Child_vIn53 = T_Child_vIn53
data T_Child_vOut53 = T_Child_vOut53 !(Child)
{-# NOINLINE sem_Child_Child #-}
sem_Child_Child :: (Identifier) -> (Type) -> (ChildKind) -> T_Child
sem_Child_Child !arg_name_ !arg_tp_ !arg_kind_ = T_Child (return st0) where
{-# NOINLINE st0 #-}
!st0 = let
k0 :: K_Child_s0 t -> t
k0 K_Child_v0 = v0
k0 K_Child_v13 = v13
k0 K_Child_v52 = v52
v0 :: T_Child_v0
v0 = \ !(T_Child_vIn0 _lhsIcon _lhsIcr _lhsIinhMap _lhsImerged _lhsInt _lhsIparams _lhsIsynMap) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule11 () in
let _lhsOfield :: (Identifier,Type,ChildKind)
!_lhsOfield = rule6 arg_kind_ arg_name_ arg_tp_ in
let !_chnt = rule0 arg_name_ arg_tp_ in
let !_inh = rule1 _chnt _lhsIinhMap in
let !(!_nt,!_params) = rule7 arg_name_ arg_tp_ in
let !_inh1 = rule8 _inh _nt _params in
let _lhsOinherited :: Attributes
!_lhsOinherited = rule4 _inh1 in
let _lhsOname :: Identifier
!_lhsOname = rule3 arg_name_ in
let _lhsOoutput :: Child
!_lhsOoutput = rule10 arg_kind_ arg_name_ arg_tp_ in
let !_syn = rule2 _chnt _lhsIsynMap in
let !_syn1 = rule9 _nt _params _syn in
let _lhsOsynthesized :: Attributes
!_lhsOsynthesized = rule5 _lhsImerged _syn1 arg_name_ in
let !__result_ = T_Child_vOut0 _lhsOerrors _lhsOfield _lhsOinherited _lhsOname _lhsOoutput _lhsOsynthesized
in __result_ )
v13 :: T_Child_v13
v13 = \ !(T_Child_vIn13 _lhsIinhMap _lhsImerged _lhsIsynMap) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule11 () in
let _lhsOfield :: (Identifier,Type,ChildKind)
!_lhsOfield = rule6 arg_kind_ arg_name_ arg_tp_ in
let !_chnt = rule0 arg_name_ arg_tp_ in
let !_inh = rule1 _chnt _lhsIinhMap in
let !(!_nt,!_params) = rule7 arg_name_ arg_tp_ in
let !_inh1 = rule8 _inh _nt _params in
let _lhsOinherited :: Attributes
!_lhsOinherited = rule4 _inh1 in
let _lhsOname :: Identifier
!_lhsOname = rule3 arg_name_ in
let _lhsOoutput :: Child
!_lhsOoutput = rule10 arg_kind_ arg_name_ arg_tp_ in
let !_syn = rule2 _chnt _lhsIsynMap in
let !_syn1 = rule9 _nt _params _syn in
let _lhsOsynthesized :: Attributes
!_lhsOsynthesized = rule5 _lhsImerged _syn1 arg_name_ in
let !__result_ = T_Child_vOut13 _lhsOerrors _lhsOfield _lhsOinherited _lhsOname _lhsOoutput _lhsOsynthesized
in __result_ )
v52 :: T_Child_v52
v52 = \ !(T_Child_vIn52 _lhsIinhMap _lhsImerged _lhsIsynMap) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule11 () in
let _lhsOfield :: (Identifier,Type,ChildKind)
!_lhsOfield = rule6 arg_kind_ arg_name_ arg_tp_ in
let !_chnt = rule0 arg_name_ arg_tp_ in
let !_inh = rule1 _chnt _lhsIinhMap in
let !(!_nt,!_params) = rule7 arg_name_ arg_tp_ in
let !_inh1 = rule8 _inh _nt _params in
let _lhsOinherited :: Attributes
!_lhsOinherited = rule4 _inh1 in
let _lhsOname :: Identifier
!_lhsOname = rule3 arg_name_ in
let !_syn = rule2 _chnt _lhsIsynMap in
let !_syn1 = rule9 _nt _params _syn in
let _lhsOsynthesized :: Attributes
!_lhsOsynthesized = rule5 _lhsImerged _syn1 arg_name_ in
let !__st_ = st56 ()
!__result_ = T_Child_vOut52 _lhsOerrors _lhsOfield _lhsOinherited _lhsOname _lhsOsynthesized __st_
in __result_ )
in C_Child_s0 k0
{-# NOINLINE st56 #-}
st56 = \ (_ :: ()) -> let
v53 :: T_Child_v53
v53 = \ !(T_Child_vIn53 ) -> (
let _lhsOoutput :: Child
!_lhsOoutput = rule10 arg_kind_ arg_name_ arg_tp_ in
let !__result_ = T_Child_vOut53 _lhsOoutput
in __result_ )
in C_Child_s56 v53
{-# NOINLINE[1] 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 602 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] 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 608 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] 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 614 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule3 #-}
{-# LINE 229 "src-ag/DefaultRules.ag" #-}
rule3 = \ !name_ ->
{-# LINE 229 "src-ag/DefaultRules.ag" #-}
name_
{-# LINE 620 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule4 #-}
{-# LINE 238 "src-ag/DefaultRules.ag" #-}
rule4 = \ !_inh1 ->
{-# LINE 238 "src-ag/DefaultRules.ag" #-}
_inh1
{-# LINE 626 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule5 #-}
{-# LINE 239 "src-ag/DefaultRules.ag" #-}
rule5 = \ ((!_lhsImerged) :: Set Identifier) !_syn1 !name_ ->
{-# LINE 239 "src-ag/DefaultRules.ag" #-}
if name_ `Set.member` _lhsImerged
then Map.empty
else _syn1
{-# LINE 634 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule6 #-}
{-# LINE 574 "src-ag/DefaultRules.ag" #-}
rule6 = \ !kind_ !name_ !tp_ ->
{-# LINE 574 "src-ag/DefaultRules.ag" #-}
(name_,tp_,kind_)
{-# LINE 640 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule7 #-}
{-# LINE 596 "src-ag/DefaultRules.ag" #-}
rule7 = \ !name_ !tp_ ->
{-# LINE 596 "src-ag/DefaultRules.ag" #-}
case tp_ of
NT nt params _ -> (nt, params)
Self -> error ("The type of child " ++ show name_ ++ " should not be a Self type.")
Haskell t -> (identifier t, [])
{-# LINE 649 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule8 #-}
{-# LINE 600 "src-ag/DefaultRules.ag" #-}
rule8 = \ !_inh !_nt !_params ->
{-# LINE 600 "src-ag/DefaultRules.ag" #-}
Map.map (elimSelfStr _nt _params ) _inh
{-# LINE 655 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule9 #-}
{-# LINE 601 "src-ag/DefaultRules.ag" #-}
rule9 = \ !_nt !_params !_syn ->
{-# LINE 601 "src-ag/DefaultRules.ag" #-}
Map.map (elimSelfStr _nt _params ) _syn
{-# LINE 661 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule10 #-}
{-# LINE 642 "src-ag/DefaultRules.ag" #-}
rule10 = \ !kind_ !name_ !tp_ ->
{-# LINE 642 "src-ag/DefaultRules.ag" #-}
Child name_ tp_ kind_
{-# LINE 667 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule11 #-}
rule11 = \ (_ :: ()) ->
Seq.empty
data Inh_Children = Inh_Children { con_Inh_Children :: !(ConstructorIdent), cr_Inh_Children :: !(Bool), inhMap_Inh_Children :: !(Map Identifier Attributes), merged_Inh_Children :: !(Set Identifier), nt_Inh_Children :: !(NontermIdent), params_Inh_Children :: !([Identifier]), synMap_Inh_Children :: !(Map Identifier Attributes) }
data Syn_Children = Syn_Children { errors_Syn_Children :: !(Seq Error), fields_Syn_Children :: !([(Identifier,Type,ChildKind)]), inputs_Syn_Children :: !([(Identifier, Attributes)]), output_Syn_Children :: !(Children), outputs_Syn_Children :: !([(Identifier, Attributes)]) }
{-# INLINABLE wrap_Children #-}
wrap_Children :: T_Children -> Inh_Children -> (Syn_Children )
wrap_Children !(T_Children act) !(Inh_Children _lhsIcon _lhsIcr _lhsIinhMap _lhsImerged _lhsInt _lhsIparams _lhsIsynMap) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg1 = T_Children_vIn1 _lhsIcon _lhsIcr _lhsIinhMap _lhsImerged _lhsInt _lhsIparams _lhsIsynMap
!(T_Children_vOut1 _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutput _lhsOoutputs) <- return (inv_Children_s2 sem K_Children_v1 arg1)
return (Syn_Children _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutput _lhsOoutputs)
)
{-# NOINLINE sem_Children #-}
sem_Children :: Children -> T_Children
sem_Children list = Prelude.foldr sem_Children_Cons sem_Children_Nil (Prelude.map sem_Child list)
newtype T_Children = T_Children {
attach_T_Children :: Identity (T_Children_s2 )
}
data T_Children_s2 where C_Children_s2 :: {
inv_Children_s2 :: !(forall t. K_Children_s2 t -> t)
} -> T_Children_s2
data T_Children_s3 = C_Children_s3
data T_Children_s27 = C_Children_s27
newtype T_Children_s53 = C_Children_s53 {
inv_Children_s53 :: (T_Children_v48 )
}
data K_Children_s2 k where
K_Children_v1 :: K_Children_s2 (T_Children_v1 )
K_Children_v14 :: K_Children_s2 (T_Children_v14 )
K_Children_v47 :: K_Children_s2 (T_Children_v47 )
type T_Children_v1 = (T_Children_vIn1 ) -> (T_Children_vOut1 )
data T_Children_vIn1 = T_Children_vIn1 !(ConstructorIdent) !(Bool) !(Map Identifier Attributes) !(Set Identifier) !(NontermIdent) !([Identifier]) !(Map Identifier Attributes)
data T_Children_vOut1 = T_Children_vOut1 !(Seq Error) !([(Identifier,Type,ChildKind)]) !([(Identifier, Attributes)]) !(Children) !([(Identifier, Attributes)])
type T_Children_v14 = (T_Children_vIn14 ) -> (T_Children_vOut14 )
data T_Children_vIn14 = T_Children_vIn14 !(Map Identifier Attributes) !(Set Identifier) !(Map Identifier Attributes)
data T_Children_vOut14 = T_Children_vOut14 !(Seq Error) !([(Identifier,Type,ChildKind)]) !([(Identifier, Attributes)]) !(Children) !([(Identifier, Attributes)])
type T_Children_v47 = (T_Children_vIn47 ) -> (T_Children_vOut47 )
data T_Children_vIn47 = T_Children_vIn47 !(Map Identifier Attributes) !(Set Identifier) !(Map Identifier Attributes)
data T_Children_vOut47 = T_Children_vOut47 !(Seq Error) !([(Identifier,Type,ChildKind)]) !([(Identifier, Attributes)]) !([(Identifier, Attributes)]) !(T_Children_s53 )
type T_Children_v48 = (T_Children_vIn48 ) -> (T_Children_vOut48 )
data T_Children_vIn48 = T_Children_vIn48
data T_Children_vOut48 = T_Children_vOut48 !(Children)
{-# NOINLINE sem_Children_Cons #-}
sem_Children_Cons :: T_Child -> T_Children -> T_Children
sem_Children_Cons arg_hd_ arg_tl_ = T_Children (return st2) where
{-# NOINLINE st2 #-}
!st2 = let
k2 :: K_Children_s2 t -> t
k2 K_Children_v1 = v1
k2 K_Children_v14 = v14
k2 K_Children_v47 = v47
v1 :: T_Children_v1
v1 = \ !(T_Children_vIn1 _lhsIcon _lhsIcr _lhsIinhMap _lhsImerged _lhsInt _lhsIparams _lhsIsynMap) -> (
let !_hdX0 = Control.Monad.Identity.runIdentity (attach_T_Child (arg_hd_)) in
let !_tlX2 = Control.Monad.Identity.runIdentity (attach_T_Children (arg_tl_)) in
let !_hdOinhMap = rule21 _lhsIinhMap in
let !_tlOinhMap = rule28 _lhsIinhMap in
let !_hdOmerged = rule22 _lhsImerged in
let !_hdOsynMap = rule25 _lhsIsynMap in
let !_tlOmerged = rule29 _lhsImerged in
let !_tlOsynMap = rule32 _lhsIsynMap in
let !(T_Child_vOut13 _hdIerrors _hdIfield _hdIinherited _hdIname _hdIoutput _hdIsynthesized) = inv_Child_s0 _hdX0 K_Child_v13 (T_Child_vIn13 _hdOinhMap _hdOmerged _hdOsynMap) in
let !(T_Children_vOut14 _tlIerrors _tlIfields _tlIinputs _tlIoutput _tlIoutputs) = inv_Children_s2 _tlX2 K_Children_v14 (T_Children_vIn14 _tlOinhMap _tlOmerged _tlOsynMap) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule16 _hdIerrors _tlIerrors in
let _lhsOfields :: [(Identifier,Type,ChildKind)]
!_lhsOfields = rule15 _hdIfield _tlIfields in
let _lhsOinputs :: [(Identifier, Attributes)]
!_lhsOinputs = rule13 _hdIinherited _hdIname _tlIinputs in
let !_output = rule17 _hdIoutput _tlIoutput in
let _lhsOoutput :: Children
!_lhsOoutput = rule18 _output in
let _lhsOoutputs :: [(Identifier, Attributes)]
!_lhsOoutputs = rule14 _hdIname _hdIsynthesized _tlIoutputs in
let !__result_ = T_Children_vOut1 _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutput _lhsOoutputs
in __result_ )
v14 :: T_Children_v14
v14 = \ !(T_Children_vIn14 _lhsIinhMap _lhsImerged _lhsIsynMap) -> (
let !_hdX0 = Control.Monad.Identity.runIdentity (attach_T_Child (arg_hd_)) in
let !_tlX2 = Control.Monad.Identity.runIdentity (attach_T_Children (arg_tl_)) in
let !_hdOinhMap = rule21 _lhsIinhMap in
let !_tlOinhMap = rule28 _lhsIinhMap in
let !_hdOmerged = rule22 _lhsImerged in
let !_hdOsynMap = rule25 _lhsIsynMap in
let !_tlOmerged = rule29 _lhsImerged in
let !_tlOsynMap = rule32 _lhsIsynMap in
let !(T_Child_vOut13 _hdIerrors _hdIfield _hdIinherited _hdIname _hdIoutput _hdIsynthesized) = inv_Child_s0 _hdX0 K_Child_v13 (T_Child_vIn13 _hdOinhMap _hdOmerged _hdOsynMap) in
let !(T_Children_vOut14 _tlIerrors _tlIfields _tlIinputs _tlIoutput _tlIoutputs) = inv_Children_s2 _tlX2 K_Children_v14 (T_Children_vIn14 _tlOinhMap _tlOmerged _tlOsynMap) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule16 _hdIerrors _tlIerrors in
let _lhsOfields :: [(Identifier,Type,ChildKind)]
!_lhsOfields = rule15 _hdIfield _tlIfields in
let _lhsOinputs :: [(Identifier, Attributes)]
!_lhsOinputs = rule13 _hdIinherited _hdIname _tlIinputs in
let !_output = rule17 _hdIoutput _tlIoutput in
let _lhsOoutput :: Children
!_lhsOoutput = rule18 _output in
let _lhsOoutputs :: [(Identifier, Attributes)]
!_lhsOoutputs = rule14 _hdIname _hdIsynthesized _tlIoutputs in
let !__result_ = T_Children_vOut14 _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutput _lhsOoutputs
in __result_ )
v47 :: T_Children_v47
v47 = \ !(T_Children_vIn47 _lhsIinhMap _lhsImerged _lhsIsynMap) -> (
let !_hdX0 = Control.Monad.Identity.runIdentity (attach_T_Child (arg_hd_)) in
let !_tlX2 = Control.Monad.Identity.runIdentity (attach_T_Children (arg_tl_)) in
let !_hdOinhMap = rule21 _lhsIinhMap in
let !_tlOinhMap = rule28 _lhsIinhMap in
let !_hdOmerged = rule22 _lhsImerged in
let !_hdOsynMap = rule25 _lhsIsynMap in
let !_tlOmerged = rule29 _lhsImerged in
let !_tlOsynMap = rule32 _lhsIsynMap in
let !(T_Child_vOut52 _hdIerrors _hdIfield _hdIinherited _hdIname _hdIsynthesized _hdX56) = inv_Child_s0 _hdX0 K_Child_v52 (T_Child_vIn52 _hdOinhMap _hdOmerged _hdOsynMap) in
let !(T_Children_vOut47 _tlIerrors _tlIfields _tlIinputs _tlIoutputs _tlX53) = inv_Children_s2 _tlX2 K_Children_v47 (T_Children_vIn47 _tlOinhMap _tlOmerged _tlOsynMap) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule16 _hdIerrors _tlIerrors in
let _lhsOfields :: [(Identifier,Type,ChildKind)]
!_lhsOfields = rule15 _hdIfield _tlIfields in
let _lhsOinputs :: [(Identifier, Attributes)]
!_lhsOinputs = rule13 _hdIinherited _hdIname _tlIinputs in
let _lhsOoutputs :: [(Identifier, Attributes)]
!_lhsOoutputs = rule14 _hdIname _hdIsynthesized _tlIoutputs in
let !__st_ = st53 _hdX56 _tlX53
!__result_ = T_Children_vOut47 _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutputs __st_
in __result_ )
in C_Children_s2 k2
{-# NOINLINE st53 #-}
st53 = \ !_hdX56 !_tlX53 -> let
v48 :: T_Children_v48
v48 = \ !(T_Children_vIn48 ) -> (
let !(T_Child_vOut53 _hdIoutput) = inv_Child_s56 _hdX56 (T_Child_vIn53 ) in
let !(T_Children_vOut48 _tlIoutput) = inv_Children_s53 _tlX53 (T_Children_vIn48 ) in
let !_output = rule17 _hdIoutput _tlIoutput in
let _lhsOoutput :: Children
!_lhsOoutput = rule18 _output in
let !__result_ = T_Children_vOut48 _lhsOoutput
in __result_ )
in C_Children_s53 v48
{-# NOINLINE[1] rule13 #-}
{-# LINE 244 "src-ag/DefaultRules.ag" #-}
rule13 = \ ((!_hdIinherited) :: Attributes) ((!_hdIname) :: Identifier) ((!_tlIinputs) :: [(Identifier, Attributes)]) ->
{-# LINE 244 "src-ag/DefaultRules.ag" #-}
(_hdIname, _hdIinherited) : _tlIinputs
{-# LINE 819 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule14 #-}
{-# LINE 245 "src-ag/DefaultRules.ag" #-}
rule14 = \ ((!_hdIname) :: Identifier) ((!_hdIsynthesized) :: Attributes) ((!_tlIoutputs) :: [(Identifier, Attributes)]) ->
{-# LINE 245 "src-ag/DefaultRules.ag" #-}
(_hdIname, _hdIsynthesized) : _tlIoutputs
{-# LINE 825 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule15 #-}
{-# LINE 570 "src-ag/DefaultRules.ag" #-}
rule15 = \ ((!_hdIfield) :: (Identifier,Type,ChildKind) ) ((!_tlIfields) :: [(Identifier,Type,ChildKind)]) ->
{-# LINE 570 "src-ag/DefaultRules.ag" #-}
_hdIfield : _tlIfields
{-# LINE 831 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule16 #-}
rule16 = \ ((!_hdIerrors) :: Seq Error) ((!_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# NOINLINE[1] rule17 #-}
rule17 = \ ((!_hdIoutput) :: Child) ((!_tlIoutput) :: Children) ->
(:) _hdIoutput _tlIoutput
{-# NOINLINE[1] rule18 #-}
rule18 = \ !_output ->
_output
{-# NOINLINE[1] rule21 #-}
rule21 = \ ((!_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# NOINLINE[1] rule22 #-}
rule22 = \ ((!_lhsImerged) :: Set Identifier) ->
_lhsImerged
{-# NOINLINE[1] rule25 #-}
rule25 = \ ((!_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE[1] rule28 #-}
rule28 = \ ((!_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# NOINLINE[1] rule29 #-}
rule29 = \ ((!_lhsImerged) :: Set Identifier) ->
_lhsImerged
{-# NOINLINE[1] rule32 #-}
rule32 = \ ((!_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE sem_Children_Nil #-}
sem_Children_Nil :: T_Children
sem_Children_Nil = T_Children (return st2) where
{-# NOINLINE st2 #-}
!st2 = let
k2 :: K_Children_s2 t -> t
k2 K_Children_v1 = v1
k2 K_Children_v14 = v14
k2 K_Children_v47 = v47
v1 :: T_Children_v1
v1 = \ !(T_Children_vIn1 _lhsIcon _lhsIcr _lhsIinhMap _lhsImerged _lhsInt _lhsIparams _lhsIsynMap) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule36 () in
let _lhsOfields :: [(Identifier,Type,ChildKind)]
!_lhsOfields = rule35 () in
let _lhsOinputs :: [(Identifier, Attributes)]
!_lhsOinputs = rule33 () in
let !_output = rule37 () in
let _lhsOoutputs :: [(Identifier, Attributes)]
!_lhsOoutputs = rule34 () in
let _lhsOoutput :: Children
!_lhsOoutput = rule38 _output in
let !__result_ = T_Children_vOut1 _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutput _lhsOoutputs
in __result_ )
v14 :: T_Children_v14
v14 = \ !(T_Children_vIn14 _lhsIinhMap _lhsImerged _lhsIsynMap) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule36 () in
let _lhsOfields :: [(Identifier,Type,ChildKind)]
!_lhsOfields = rule35 () in
let _lhsOinputs :: [(Identifier, Attributes)]
!_lhsOinputs = rule33 () in
let !_output = rule37 () in
let _lhsOoutputs :: [(Identifier, Attributes)]
!_lhsOoutputs = rule34 () in
let _lhsOoutput :: Children
!_lhsOoutput = rule38 _output in
let !__result_ = T_Children_vOut14 _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutput _lhsOoutputs
in __result_ )
v47 :: T_Children_v47
v47 = \ !(T_Children_vIn47 _lhsIinhMap _lhsImerged _lhsIsynMap) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule36 () in
let _lhsOfields :: [(Identifier,Type,ChildKind)]
!_lhsOfields = rule35 () in
let _lhsOinputs :: [(Identifier, Attributes)]
!_lhsOinputs = rule33 () in
let _lhsOoutputs :: [(Identifier, Attributes)]
!_lhsOoutputs = rule34 () in
let !__st_ = st53 ()
!__result_ = T_Children_vOut47 _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutputs __st_
in __result_ )
in C_Children_s2 k2
{-# NOINLINE st53 #-}
st53 = \ (_ :: ()) -> let
v48 :: T_Children_v48
v48 = \ !(T_Children_vIn48 ) -> (
let !_output = rule37 () in
let _lhsOoutput :: Children
!_lhsOoutput = rule38 _output in
let !__result_ = T_Children_vOut48 _lhsOoutput
in __result_ )
in C_Children_s53 v48
{-# NOINLINE[1] rule33 #-}
{-# LINE 246 "src-ag/DefaultRules.ag" #-}
rule33 = \ (_ :: ()) ->
{-# LINE 246 "src-ag/DefaultRules.ag" #-}
[]
{-# LINE 927 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule34 #-}
{-# LINE 247 "src-ag/DefaultRules.ag" #-}
rule34 = \ (_ :: ()) ->
{-# LINE 247 "src-ag/DefaultRules.ag" #-}
[]
{-# LINE 933 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule35 #-}
{-# LINE 571 "src-ag/DefaultRules.ag" #-}
rule35 = \ (_ :: ()) ->
{-# LINE 571 "src-ag/DefaultRules.ag" #-}
[]
{-# LINE 939 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule36 #-}
rule36 = \ (_ :: ()) ->
Seq.empty
{-# NOINLINE[1] rule37 #-}
rule37 = \ (_ :: ()) ->
[]
{-# NOINLINE[1] rule38 #-}
rule38 = \ !_output ->
_output
data Inh_Grammar = Inh_Grammar { constructorTypeMap_Inh_Grammar :: !(Map NontermIdent ConstructorType), options_Inh_Grammar :: !(Options) }
data Syn_Grammar = Syn_Grammar { errors_Syn_Grammar :: !(Seq Error), output_Syn_Grammar :: !(Grammar) }
{-# INLINABLE wrap_Grammar #-}
wrap_Grammar :: T_Grammar -> Inh_Grammar -> (Syn_Grammar )
wrap_Grammar !(T_Grammar act) !(Inh_Grammar _lhsIconstructorTypeMap _lhsIoptions) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg2 = T_Grammar_vIn2 _lhsIconstructorTypeMap _lhsIoptions
!(T_Grammar_vOut2 _lhsOerrors _lhsOoutput) <- return (inv_Grammar_s4 sem arg2)
return (Syn_Grammar _lhsOerrors _lhsOoutput)
)
{-# INLINE sem_Grammar #-}
sem_Grammar :: Grammar -> T_Grammar
sem_Grammar ( Grammar !typeSyns_ !useMap_ !derivings_ !wrappers_ nonts_ !pragmas_ !manualAttrOrderMap_ !paramMap_ !contextMap_ !quantMap_ !uniqueMap_ !augmentsMap_ !aroundsMap_ !mergeMap_ ) = sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ ( sem_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_
newtype T_Grammar = T_Grammar {
attach_T_Grammar :: Identity (T_Grammar_s4 )
}
newtype T_Grammar_s4 = C_Grammar_s4 {
inv_Grammar_s4 :: (T_Grammar_v2 )
}
data T_Grammar_s5 = C_Grammar_s5
type T_Grammar_v2 = (T_Grammar_vIn2 ) -> (T_Grammar_vOut2 )
data T_Grammar_vIn2 = T_Grammar_vIn2 !(Map NontermIdent ConstructorType) !(Options)
data T_Grammar_vOut2 = T_Grammar_vOut2 !(Seq Error) !(Grammar)
{-# 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 !arg_typeSyns_ !arg_useMap_ !arg_derivings_ !arg_wrappers_ arg_nonts_ !arg_pragmas_ !arg_manualAttrOrderMap_ !arg_paramMap_ !arg_contextMap_ !arg_quantMap_ !arg_uniqueMap_ !arg_augmentsMap_ !arg_aroundsMap_ !arg_mergeMap_ = T_Grammar (return st4) where
{-# NOINLINE st4 #-}
!st4 = let
v2 :: T_Grammar_v2
v2 = \ !(T_Grammar_vIn2 _lhsIconstructorTypeMap _lhsIoptions) -> (
let !_nontsX8 = Control.Monad.Identity.runIdentity (attach_T_Nonterminals (arg_nonts_)) in
let !_nontsOuniq = rule47 () in
let !_nontsOconstructorTypeMap = rule55 _lhsIconstructorTypeMap in
let !_nontsOcr = rule42 _lhsIoptions in
let !_nontsOmanualAttrOrderMap = rule48 arg_manualAttrOrderMap_ in
let !_nontsOmergesIn = rule51 arg_mergeMap_ in
let !_nontsOo_rename = rule41 _lhsIoptions in
let !_nontsOoptions = rule56 _lhsIoptions in
let !_nontsOtypeSyns = rule46 arg_typeSyns_ in
let !_nontsOuseMap = rule45 arg_useMap_ in
let !_nontsOwrappers = rule43 arg_wrappers_ in
let !_nontsOaroundsIn = rule50 arg_aroundsMap_ in
let !_nontsOaugmentsIn = rule49 arg_augmentsMap_ in
let !(T_Nonterminals_vOut15 _nontsIinhMap' _nontsIsynMap' _nontsX28) = inv_Nonterminals_s8 _nontsX8 K_Nonterminals_v15 (T_Nonterminals_vIn15 ) in
let !_nontsOinhMap = rule39 _nontsIinhMap' in
let !_nontsOsynMap = rule40 _nontsIsynMap' in
let !(T_Nonterminals_vOut16 _nontsIerrors _nontsIoutput _nontsIuniq) = inv_Nonterminals_s28 _nontsX28 K_Nonterminals_v16 (T_Nonterminals_vIn16 _nontsOaroundsIn _nontsOaugmentsIn _nontsOconstructorTypeMap _nontsOcr _nontsOinhMap _nontsOmanualAttrOrderMap _nontsOmergesIn _nontsOo_rename _nontsOoptions _nontsOsynMap _nontsOtypeSyns _nontsOuniq _nontsOuseMap _nontsOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule52 _nontsIerrors in
let !_output = rule53 _nontsIoutput arg_aroundsMap_ arg_augmentsMap_ arg_contextMap_ arg_derivings_ arg_manualAttrOrderMap_ arg_mergeMap_ arg_paramMap_ arg_pragmas_ arg_quantMap_ arg_typeSyns_ arg_uniqueMap_ arg_useMap_ arg_wrappers_ in
let _lhsOoutput :: Grammar
!_lhsOoutput = rule54 _output in
let !__result_ = T_Grammar_vOut2 _lhsOerrors _lhsOoutput
in __result_ )
in C_Grammar_s4 v2
{-# INLINE rule39 #-}
{-# LINE 15 "src-ag/DistChildAttr.ag" #-}
rule39 = \ ((!_nontsIinhMap') :: Map Identifier Attributes) ->
{-# LINE 15 "src-ag/DistChildAttr.ag" #-}
_nontsIinhMap'
{-# LINE 1017 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule40 #-}
{-# LINE 16 "src-ag/DistChildAttr.ag" #-}
rule40 = \ ((!_nontsIsynMap') :: Map Identifier Attributes) ->
{-# LINE 16 "src-ag/DistChildAttr.ag" #-}
_nontsIsynMap'
{-# LINE 1023 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule41 #-}
{-# LINE 60 "src-ag/DefaultRules.ag" #-}
rule41 = \ ((!_lhsIoptions) :: Options) ->
{-# LINE 60 "src-ag/DefaultRules.ag" #-}
rename _lhsIoptions
{-# LINE 1029 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule42 #-}
{-# LINE 61 "src-ag/DefaultRules.ag" #-}
rule42 = \ ((!_lhsIoptions) :: Options) ->
{-# LINE 61 "src-ag/DefaultRules.ag" #-}
modcopy _lhsIoptions
{-# LINE 1035 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule43 #-}
{-# LINE 69 "src-ag/DefaultRules.ag" #-}
rule43 = \ !wrappers_ ->
{-# LINE 69 "src-ag/DefaultRules.ag" #-}
wrappers_
{-# LINE 1041 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule45 #-}
{-# LINE 231 "src-ag/DefaultRules.ag" #-}
rule45 = \ !useMap_ ->
{-# LINE 231 "src-ag/DefaultRules.ag" #-}
useMap_
{-# LINE 1047 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule46 #-}
{-# LINE 233 "src-ag/DefaultRules.ag" #-}
rule46 = \ !typeSyns_ ->
{-# LINE 233 "src-ag/DefaultRules.ag" #-}
typeSyns_
{-# LINE 1053 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule47 #-}
{-# LINE 623 "src-ag/DefaultRules.ag" #-}
rule47 = \ (_ :: ()) ->
{-# LINE 623 "src-ag/DefaultRules.ag" #-}
1
{-# LINE 1059 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule48 #-}
{-# LINE 737 "src-ag/DefaultRules.ag" #-}
rule48 = \ !manualAttrOrderMap_ ->
{-# LINE 737 "src-ag/DefaultRules.ag" #-}
manualAttrOrderMap_
{-# LINE 1065 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule49 #-}
{-# LINE 803 "src-ag/DefaultRules.ag" #-}
rule49 = \ !augmentsMap_ ->
{-# LINE 803 "src-ag/DefaultRules.ag" #-}
augmentsMap_
{-# LINE 1071 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule50 #-}
{-# LINE 810 "src-ag/DefaultRules.ag" #-}
rule50 = \ !aroundsMap_ ->
{-# LINE 810 "src-ag/DefaultRules.ag" #-}
aroundsMap_
{-# LINE 1077 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule51 #-}
{-# LINE 818 "src-ag/DefaultRules.ag" #-}
rule51 = \ !mergeMap_ ->
{-# LINE 818 "src-ag/DefaultRules.ag" #-}
mergeMap_
{-# LINE 1083 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule52 #-}
rule52 = \ ((!_nontsIerrors) :: Seq Error) ->
_nontsIerrors
{-# INLINE rule53 #-}
rule53 = \ ((!_nontsIoutput) :: Nonterminals) !aroundsMap_ !augmentsMap_ !contextMap_ !derivings_ !manualAttrOrderMap_ !mergeMap_ !paramMap_ !pragmas_ !quantMap_ !typeSyns_ !uniqueMap_ !useMap_ !wrappers_ ->
Grammar typeSyns_ useMap_ derivings_ wrappers_ _nontsIoutput pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_
{-# INLINE rule54 #-}
rule54 = \ !_output ->
_output
{-# INLINE rule55 #-}
rule55 = \ ((!_lhsIconstructorTypeMap) :: Map NontermIdent ConstructorType) ->
_lhsIconstructorTypeMap
{-# INLINE rule56 #-}
rule56 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
data Inh_Nonterminal = Inh_Nonterminal { aroundsIn_Inh_Nonterminal :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))), augmentsIn_Inh_Nonterminal :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))), constructorTypeMap_Inh_Nonterminal :: !(Map NontermIdent ConstructorType), cr_Inh_Nonterminal :: !(Bool), inhMap_Inh_Nonterminal :: !(Map Identifier Attributes), manualAttrOrderMap_Inh_Nonterminal :: !(AttrOrderMap), mergesIn_Inh_Nonterminal :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))), nonterminals_Inh_Nonterminal :: !(Set NontermIdent), o_rename_Inh_Nonterminal :: !(Bool), options_Inh_Nonterminal :: !(Options), synMap_Inh_Nonterminal :: !(Map Identifier Attributes), typeSyns_Inh_Nonterminal :: !(TypeSyns), uniq_Inh_Nonterminal :: !(Int), useMap_Inh_Nonterminal :: !(UseMap), wrappers_Inh_Nonterminal :: !(Set NontermIdent) }
data Syn_Nonterminal = Syn_Nonterminal { collect_nts_Syn_Nonterminal :: !(Set NontermIdent), errors_Syn_Nonterminal :: !(Seq Error), inhMap'_Syn_Nonterminal :: !(Map Identifier Attributes), output_Syn_Nonterminal :: !(Nonterminal), synMap'_Syn_Nonterminal :: !(Map Identifier Attributes), uniq_Syn_Nonterminal :: !(Int) }
{-# INLINABLE wrap_Nonterminal #-}
wrap_Nonterminal :: T_Nonterminal -> Inh_Nonterminal -> (Syn_Nonterminal )
wrap_Nonterminal !(T_Nonterminal act) !(Inh_Nonterminal _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg3 = T_Nonterminal_vIn3 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers
!(T_Nonterminal_vOut3 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOoutput _lhsOsynMap' _lhsOuniq) <- return (inv_Nonterminal_s6 sem K_Nonterminal_v3 arg3)
return (Syn_Nonterminal _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOoutput _lhsOsynMap' _lhsOuniq)
)
{-# INLINE sem_Nonterminal #-}
sem_Nonterminal :: Nonterminal -> T_Nonterminal
sem_Nonterminal ( Nonterminal !nt_ !params_ !inh_ !syn_ prods_ ) = sem_Nonterminal_Nonterminal nt_ params_ inh_ syn_ ( sem_Productions prods_ )
newtype T_Nonterminal = T_Nonterminal {
attach_T_Nonterminal :: Identity (T_Nonterminal_s6 )
}
data T_Nonterminal_s6 where C_Nonterminal_s6 :: {
inv_Nonterminal_s6 :: !(forall t. K_Nonterminal_s6 t -> t)
} -> T_Nonterminal_s6
data T_Nonterminal_s7 = C_Nonterminal_s7
data T_Nonterminal_s31 = C_Nonterminal_s31
data T_Nonterminal_s43 where C_Nonterminal_s43 :: {
inv_Nonterminal_s43 :: !(forall t. K_Nonterminal_s43 t -> t)
} -> T_Nonterminal_s43
data T_Nonterminal_s44 = C_Nonterminal_s44
newtype T_Nonterminal_s46 = C_Nonterminal_s46 {
inv_Nonterminal_s46 :: (T_Nonterminal_v37 )
}
newtype T_Nonterminal_s52 = C_Nonterminal_s52 {
inv_Nonterminal_s52 :: (T_Nonterminal_v46 )
}
data K_Nonterminal_s6 k where
K_Nonterminal_v3 :: K_Nonterminal_s6 (T_Nonterminal_v3 )
K_Nonterminal_v18 :: K_Nonterminal_s6 (T_Nonterminal_v18 )
K_Nonterminal_v32 :: K_Nonterminal_s6 (T_Nonterminal_v32 )
K_Nonterminal_v36 :: K_Nonterminal_s6 (T_Nonterminal_v36 )
data K_Nonterminal_s43 k where
K_Nonterminal_v33 :: K_Nonterminal_s43 (T_Nonterminal_v33 )
K_Nonterminal_v45 :: K_Nonterminal_s43 (T_Nonterminal_v45 )
type T_Nonterminal_v3 = (T_Nonterminal_vIn3 ) -> (T_Nonterminal_vOut3 )
data T_Nonterminal_vIn3 = T_Nonterminal_vIn3 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Set NontermIdent) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(Int) !(UseMap) !(Set NontermIdent)
data T_Nonterminal_vOut3 = T_Nonterminal_vOut3 !(Set NontermIdent) !(Seq Error) !(Map Identifier Attributes) !(Nonterminal) !(Map Identifier Attributes) !(Int)
type T_Nonterminal_v18 = (T_Nonterminal_vIn18 ) -> (T_Nonterminal_vOut18 )
data T_Nonterminal_vIn18 = T_Nonterminal_vIn18 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(Int) !(UseMap) !(Set NontermIdent)
data T_Nonterminal_vOut18 = T_Nonterminal_vOut18 !(Set NontermIdent) !(Seq Error) !(Map Identifier Attributes) !(Nonterminal) !(Map Identifier Attributes) !(Int)
type T_Nonterminal_v32 = (T_Nonterminal_vIn32 ) -> (T_Nonterminal_vOut32 )
data T_Nonterminal_vIn32 = T_Nonterminal_vIn32
data T_Nonterminal_vOut32 = T_Nonterminal_vOut32 !(Map Identifier Attributes) !(Map Identifier Attributes) !(T_Nonterminal_s43 )
type T_Nonterminal_v33 = (T_Nonterminal_vIn33 ) -> (T_Nonterminal_vOut33 )
data T_Nonterminal_vIn33 = T_Nonterminal_vIn33 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(Int) !(UseMap) !(Set NontermIdent)
data T_Nonterminal_vOut33 = T_Nonterminal_vOut33 !(Seq Error) !(Nonterminal) !(Int)
type T_Nonterminal_v36 = (T_Nonterminal_vIn36 ) -> (T_Nonterminal_vOut36 )
data T_Nonterminal_vIn36 = T_Nonterminal_vIn36 !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(UseMap) !(Set NontermIdent)
data T_Nonterminal_vOut36 = T_Nonterminal_vOut36 !(Set NontermIdent) !(Seq Error) !(Map Identifier Attributes) !(Map Identifier Attributes) !(T_Nonterminal_s46 )
type T_Nonterminal_v37 = (T_Nonterminal_vIn37 ) -> (T_Nonterminal_vOut37 )
data T_Nonterminal_vIn37 = T_Nonterminal_vIn37 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Int)
data T_Nonterminal_vOut37 = T_Nonterminal_vOut37 !(Nonterminal) !(Int)
type T_Nonterminal_v45 = (T_Nonterminal_vIn45 ) -> (T_Nonterminal_vOut45 )
data T_Nonterminal_vIn45 = T_Nonterminal_vIn45 !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(UseMap) !(Set NontermIdent)
data T_Nonterminal_vOut45 = T_Nonterminal_vOut45 !(Seq Error) !(T_Nonterminal_s52 )
type T_Nonterminal_v46 = (T_Nonterminal_vIn46 ) -> (T_Nonterminal_vOut46 )
data T_Nonterminal_vIn46 = T_Nonterminal_vIn46 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Int)
data T_Nonterminal_vOut46 = T_Nonterminal_vOut46 !(Nonterminal) !(Int)
{-# NOINLINE sem_Nonterminal_Nonterminal #-}
sem_Nonterminal_Nonterminal :: (NontermIdent) -> ([Identifier]) -> (Attributes) -> (Attributes) -> T_Productions -> T_Nonterminal
sem_Nonterminal_Nonterminal !arg_nt_ !arg_params_ !arg_inh_ !arg_syn_ arg_prods_ = T_Nonterminal (return st6) where
{-# NOINLINE st6 #-}
!st6 = let
k6 :: K_Nonterminal_s6 t -> t
k6 K_Nonterminal_v3 = v3
k6 K_Nonterminal_v18 = v18
k6 K_Nonterminal_v32 = v32
k6 K_Nonterminal_v36 = v36
v3 :: T_Nonterminal_v3
v3 = \ !(T_Nonterminal_vIn3 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_prodsX16 = Control.Monad.Identity.runIdentity (attach_T_Productions (arg_prods_)) in
let _lhsOcollect_nts :: Set NontermIdent
!_lhsOcollect_nts = rule60 arg_nt_ in
let !_prodsOconstructorTypeMap = rule78 _lhsIconstructorTypeMap in
let !_prodsOcr = rule79 _lhsIcr in
let !_inh1 = rule67 arg_inh_ arg_nt_ arg_params_ in
let !_prodsOinh = rule61 _inh1 in
let !_prodsOinhMap = rule80 _lhsIinhMap in
let !_prodsOmanualAttrOrderMap = rule81 _lhsImanualAttrOrderMap in
let !_mergesIn = rule72 _lhsImergesIn arg_nt_ in
let !_prodsOmergesIn = rule82 _mergesIn in
let !_prodsOnt = rule66 arg_nt_ in
let !_prodsOo_rename = rule84 _lhsIo_rename in
let !_prodsOoptions = rule85 _lhsIoptions in
let !_syn1 = rule68 arg_nt_ arg_params_ arg_syn_ in
let !_prodsOsyn = rule62 _syn1 in
let !_prodsOsynMap = rule86 _lhsIsynMap in
let !_prodsOsynOrig = rule64 arg_syn_ in
let !_prodsOtypeSyns = rule87 _lhsItypeSyns in
let !_prodsOuseMap = rule65 _lhsIuseMap arg_nt_ in
let !_prodsOwrappers = rule89 _lhsIwrappers in
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule57 arg_inh_ arg_nt_ in
let !_aroundsIn = rule71 _lhsIaroundsIn arg_nt_ in
let !_prodsOaroundsIn = rule76 _aroundsIn in
let !_augmentsIn = rule70 _lhsIaugmentsIn arg_nt_ in
let !_prodsOaugmentsIn = rule77 _augmentsIn in
let !_prodsOparams = rule59 arg_params_ in
let !_prodsOuniq = rule88 _lhsIuniq in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule58 arg_nt_ arg_syn_ in
let !(T_Productions_vOut17 _prodsIerrors _prodsIoutput _prodsIuniq) = inv_Productions_s16 _prodsX16 K_Productions_v17 (T_Productions_vIn17 _prodsOaroundsIn _prodsOaugmentsIn _prodsOconstructorTypeMap _prodsOcr _prodsOinh _prodsOinhMap _prodsOmanualAttrOrderMap _prodsOmergesIn _prodsOnt _prodsOo_rename _prodsOoptions _prodsOparams _prodsOsyn _prodsOsynMap _prodsOsynOrig _prodsOtypeSyns _prodsOuniq _prodsOuseMap _prodsOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule73 _prodsIerrors in
let _lhsOoutput :: Nonterminal
!_lhsOoutput = rule69 _inh1 _prodsIoutput _syn1 arg_nt_ arg_params_ in
let _lhsOuniq :: Int
!_lhsOuniq = rule75 _prodsIuniq in
let !__result_ = T_Nonterminal_vOut3 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOoutput _lhsOsynMap' _lhsOuniq
in __result_ )
v18 :: T_Nonterminal_v18
v18 = \ !(T_Nonterminal_vIn18 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_prodsX16 = Control.Monad.Identity.runIdentity (attach_T_Productions (arg_prods_)) in
let _lhsOcollect_nts :: Set NontermIdent
!_lhsOcollect_nts = rule60 arg_nt_ in
let !_prodsOconstructorTypeMap = rule78 _lhsIconstructorTypeMap in
let !_prodsOcr = rule79 _lhsIcr in
let !_inh1 = rule67 arg_inh_ arg_nt_ arg_params_ in
let !_prodsOinh = rule61 _inh1 in
let !_prodsOinhMap = rule80 _lhsIinhMap in
let !_prodsOmanualAttrOrderMap = rule81 _lhsImanualAttrOrderMap in
let !_mergesIn = rule72 _lhsImergesIn arg_nt_ in
let !_prodsOmergesIn = rule82 _mergesIn in
let !_prodsOnt = rule66 arg_nt_ in
let !_prodsOo_rename = rule84 _lhsIo_rename in
let !_prodsOoptions = rule85 _lhsIoptions in
let !_syn1 = rule68 arg_nt_ arg_params_ arg_syn_ in
let !_prodsOsyn = rule62 _syn1 in
let !_prodsOsynMap = rule86 _lhsIsynMap in
let !_prodsOsynOrig = rule64 arg_syn_ in
let !_prodsOtypeSyns = rule87 _lhsItypeSyns in
let !_prodsOuseMap = rule65 _lhsIuseMap arg_nt_ in
let !_prodsOwrappers = rule89 _lhsIwrappers in
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule57 arg_inh_ arg_nt_ in
let !_aroundsIn = rule71 _lhsIaroundsIn arg_nt_ in
let !_prodsOaroundsIn = rule76 _aroundsIn in
let !_augmentsIn = rule70 _lhsIaugmentsIn arg_nt_ in
let !_prodsOaugmentsIn = rule77 _augmentsIn in
let !_prodsOparams = rule59 arg_params_ in
let !_prodsOuniq = rule88 _lhsIuniq in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule58 arg_nt_ arg_syn_ in
let !(T_Productions_vOut17 _prodsIerrors _prodsIoutput _prodsIuniq) = inv_Productions_s16 _prodsX16 K_Productions_v17 (T_Productions_vIn17 _prodsOaroundsIn _prodsOaugmentsIn _prodsOconstructorTypeMap _prodsOcr _prodsOinh _prodsOinhMap _prodsOmanualAttrOrderMap _prodsOmergesIn _prodsOnt _prodsOo_rename _prodsOoptions _prodsOparams _prodsOsyn _prodsOsynMap _prodsOsynOrig _prodsOtypeSyns _prodsOuniq _prodsOuseMap _prodsOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule73 _prodsIerrors in
let _lhsOoutput :: Nonterminal
!_lhsOoutput = rule69 _inh1 _prodsIoutput _syn1 arg_nt_ arg_params_ in
let _lhsOuniq :: Int
!_lhsOuniq = rule75 _prodsIuniq in
let !__result_ = T_Nonterminal_vOut18 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOoutput _lhsOsynMap' _lhsOuniq
in __result_ )
v32 :: T_Nonterminal_v32
v32 = \ !(T_Nonterminal_vIn32 ) -> (
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule57 arg_inh_ arg_nt_ in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule58 arg_nt_ arg_syn_ in
let !__st_ = st43 ()
!__result_ = T_Nonterminal_vOut32 _lhsOinhMap' _lhsOsynMap' __st_
in __result_ )
v36 :: T_Nonterminal_v36
v36 = \ !(T_Nonterminal_vIn36 _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let !_prodsX16 = Control.Monad.Identity.runIdentity (attach_T_Productions (arg_prods_)) in
let _lhsOcollect_nts :: Set NontermIdent
!_lhsOcollect_nts = rule60 arg_nt_ in
let !_prodsOconstructorTypeMap = rule78 _lhsIconstructorTypeMap in
let !_prodsOcr = rule79 _lhsIcr in
let !_inh1 = rule67 arg_inh_ arg_nt_ arg_params_ in
let !_prodsOinh = rule61 _inh1 in
let !_prodsOinhMap = rule80 _lhsIinhMap in
let !_prodsOmanualAttrOrderMap = rule81 _lhsImanualAttrOrderMap in
let !_mergesIn = rule72 _lhsImergesIn arg_nt_ in
let !_prodsOmergesIn = rule82 _mergesIn in
let !_prodsOnt = rule66 arg_nt_ in
let !_prodsOo_rename = rule84 _lhsIo_rename in
let !_prodsOoptions = rule85 _lhsIoptions in
let !_syn1 = rule68 arg_nt_ arg_params_ arg_syn_ in
let !_prodsOsyn = rule62 _syn1 in
let !_prodsOsynMap = rule86 _lhsIsynMap in
let !_prodsOsynOrig = rule64 arg_syn_ in
let !_prodsOtypeSyns = rule87 _lhsItypeSyns in
let !_prodsOuseMap = rule65 _lhsIuseMap arg_nt_ in
let !_prodsOwrappers = rule89 _lhsIwrappers in
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule57 arg_inh_ arg_nt_ in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule58 arg_nt_ arg_syn_ in
let !(T_Productions_vOut26 _prodsIerrors _prodsX39) = inv_Productions_s16 _prodsX16 K_Productions_v26 (T_Productions_vIn26 _prodsOconstructorTypeMap _prodsOcr _prodsOinh _prodsOinhMap _prodsOmanualAttrOrderMap _prodsOmergesIn _prodsOnt _prodsOo_rename _prodsOoptions _prodsOsyn _prodsOsynMap _prodsOsynOrig _prodsOtypeSyns _prodsOuseMap _prodsOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule73 _prodsIerrors in
let !__st_ = st46 _inh1 _prodsX39 _syn1
!__result_ = T_Nonterminal_vOut36 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOsynMap' __st_
in __result_ )
in C_Nonterminal_s6 k6
{-# NOINLINE st43 #-}
st43 = \ (_ :: ()) -> let
k43 :: K_Nonterminal_s43 t -> t
k43 K_Nonterminal_v33 = v33
k43 K_Nonterminal_v45 = v45
v33 :: T_Nonterminal_v33
v33 = \ !(T_Nonterminal_vIn33 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_prodsOnt = rule66 arg_nt_ in
let !_prodsOsynOrig = rule64 arg_syn_ in
let !_prodsX16 = Control.Monad.Identity.runIdentity (attach_T_Productions (arg_prods_)) in
let !_prodsOconstructorTypeMap = rule78 _lhsIconstructorTypeMap in
let !_prodsOcr = rule79 _lhsIcr in
let !_inh1 = rule67 arg_inh_ arg_nt_ arg_params_ in
let !_prodsOinh = rule61 _inh1 in
let !_prodsOinhMap = rule80 _lhsIinhMap in
let !_prodsOmanualAttrOrderMap = rule81 _lhsImanualAttrOrderMap in
let !_mergesIn = rule72 _lhsImergesIn arg_nt_ in
let !_prodsOmergesIn = rule82 _mergesIn in
let !_prodsOo_rename = rule84 _lhsIo_rename in
let !_prodsOoptions = rule85 _lhsIoptions in
let !_syn1 = rule68 arg_nt_ arg_params_ arg_syn_ in
let !_prodsOsyn = rule62 _syn1 in
let !_prodsOsynMap = rule86 _lhsIsynMap in
let !_prodsOtypeSyns = rule87 _lhsItypeSyns in
let !_prodsOuseMap = rule65 _lhsIuseMap arg_nt_ in
let !_prodsOwrappers = rule89 _lhsIwrappers in
let !_aroundsIn = rule71 _lhsIaroundsIn arg_nt_ in
let !_prodsOaroundsIn = rule76 _aroundsIn in
let !_augmentsIn = rule70 _lhsIaugmentsIn arg_nt_ in
let !_prodsOaugmentsIn = rule77 _augmentsIn in
let !_prodsOparams = rule59 arg_params_ in
let !_prodsOuniq = rule88 _lhsIuniq in
let !(T_Productions_vOut17 _prodsIerrors _prodsIoutput _prodsIuniq) = inv_Productions_s16 _prodsX16 K_Productions_v17 (T_Productions_vIn17 _prodsOaroundsIn _prodsOaugmentsIn _prodsOconstructorTypeMap _prodsOcr _prodsOinh _prodsOinhMap _prodsOmanualAttrOrderMap _prodsOmergesIn _prodsOnt _prodsOo_rename _prodsOoptions _prodsOparams _prodsOsyn _prodsOsynMap _prodsOsynOrig _prodsOtypeSyns _prodsOuniq _prodsOuseMap _prodsOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule73 _prodsIerrors in
let _lhsOoutput :: Nonterminal
!_lhsOoutput = rule69 _inh1 _prodsIoutput _syn1 arg_nt_ arg_params_ in
let _lhsOuniq :: Int
!_lhsOuniq = rule75 _prodsIuniq in
let !__result_ = T_Nonterminal_vOut33 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v45 :: T_Nonterminal_v45
v45 = \ !(T_Nonterminal_vIn45 _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let !_prodsOnt = rule66 arg_nt_ in
let !_prodsOsynOrig = rule64 arg_syn_ in
let !_prodsX16 = Control.Monad.Identity.runIdentity (attach_T_Productions (arg_prods_)) in
let !_prodsOconstructorTypeMap = rule78 _lhsIconstructorTypeMap in
let !_prodsOcr = rule79 _lhsIcr in
let !_inh1 = rule67 arg_inh_ arg_nt_ arg_params_ in
let !_prodsOinh = rule61 _inh1 in
let !_prodsOinhMap = rule80 _lhsIinhMap in
let !_prodsOmanualAttrOrderMap = rule81 _lhsImanualAttrOrderMap in
let !_mergesIn = rule72 _lhsImergesIn arg_nt_ in
let !_prodsOmergesIn = rule82 _mergesIn in
let !_prodsOo_rename = rule84 _lhsIo_rename in
let !_prodsOoptions = rule85 _lhsIoptions in
let !_syn1 = rule68 arg_nt_ arg_params_ arg_syn_ in
let !_prodsOsyn = rule62 _syn1 in
let !_prodsOsynMap = rule86 _lhsIsynMap in
let !_prodsOtypeSyns = rule87 _lhsItypeSyns in
let !_prodsOuseMap = rule65 _lhsIuseMap arg_nt_ in
let !_prodsOwrappers = rule89 _lhsIwrappers in
let !(T_Productions_vOut26 _prodsIerrors _prodsX39) = inv_Productions_s16 _prodsX16 K_Productions_v26 (T_Productions_vIn26 _prodsOconstructorTypeMap _prodsOcr _prodsOinh _prodsOinhMap _prodsOmanualAttrOrderMap _prodsOmergesIn _prodsOnt _prodsOo_rename _prodsOoptions _prodsOsyn _prodsOsynMap _prodsOsynOrig _prodsOtypeSyns _prodsOuseMap _prodsOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule73 _prodsIerrors in
let !__st_ = st52 _inh1 _prodsX39 _syn1
!__result_ = T_Nonterminal_vOut45 _lhsOerrors __st_
in __result_ )
in C_Nonterminal_s43 k43
{-# NOINLINE st46 #-}
st46 = \ !_inh1 !_prodsX39 !_syn1 -> let
v37 :: T_Nonterminal_v37
v37 = \ !(T_Nonterminal_vIn37 _lhsIaroundsIn _lhsIaugmentsIn _lhsIuniq) -> (
let !_prodsOparams = rule59 arg_params_ in
let !_aroundsIn = rule71 _lhsIaroundsIn arg_nt_ in
let !_prodsOaroundsIn = rule76 _aroundsIn in
let !_augmentsIn = rule70 _lhsIaugmentsIn arg_nt_ in
let !_prodsOaugmentsIn = rule77 _augmentsIn in
let !_prodsOuniq = rule88 _lhsIuniq in
let !(T_Productions_vOut27 _prodsIoutput _prodsIuniq) = inv_Productions_s39 _prodsX39 (T_Productions_vIn27 _prodsOaroundsIn _prodsOaugmentsIn _prodsOparams _prodsOuniq) in
let _lhsOoutput :: Nonterminal
!_lhsOoutput = rule69 _inh1 _prodsIoutput _syn1 arg_nt_ arg_params_ in
let _lhsOuniq :: Int
!_lhsOuniq = rule75 _prodsIuniq in
let !__result_ = T_Nonterminal_vOut37 _lhsOoutput _lhsOuniq
in __result_ )
in C_Nonterminal_s46 v37
{-# NOINLINE st52 #-}
st52 = \ !_inh1 !_prodsX39 !_syn1 -> let
v46 :: T_Nonterminal_v46
v46 = \ !(T_Nonterminal_vIn46 _lhsIaroundsIn _lhsIaugmentsIn _lhsIuniq) -> (
let !_prodsOparams = rule59 arg_params_ in
let !_aroundsIn = rule71 _lhsIaroundsIn arg_nt_ in
let !_prodsOaroundsIn = rule76 _aroundsIn in
let !_augmentsIn = rule70 _lhsIaugmentsIn arg_nt_ in
let !_prodsOaugmentsIn = rule77 _augmentsIn in
let !_prodsOuniq = rule88 _lhsIuniq in
let !(T_Productions_vOut27 _prodsIoutput _prodsIuniq) = inv_Productions_s39 _prodsX39 (T_Productions_vIn27 _prodsOaroundsIn _prodsOaugmentsIn _prodsOparams _prodsOuniq) in
let _lhsOoutput :: Nonterminal
!_lhsOoutput = rule69 _inh1 _prodsIoutput _syn1 arg_nt_ arg_params_ in
let _lhsOuniq :: Int
!_lhsOuniq = rule75 _prodsIuniq in
let !__result_ = T_Nonterminal_vOut46 _lhsOoutput _lhsOuniq
in __result_ )
in C_Nonterminal_s52 v46
{-# NOINLINE rule57 #-}
{-# LINE 7 "src-ag/DistChildAttr.ag" #-}
rule57 = \ !inh_ !nt_ ->
{-# LINE 7 "src-ag/DistChildAttr.ag" #-}
Map.singleton nt_ inh_
{-# LINE 1417 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule58 #-}
{-# LINE 8 "src-ag/DistChildAttr.ag" #-}
rule58 = \ !nt_ !syn_ ->
{-# LINE 8 "src-ag/DistChildAttr.ag" #-}
Map.singleton nt_ syn_
{-# LINE 1423 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule59 #-}
{-# LINE 44 "src-ag/DefaultRules.ag" #-}
rule59 = \ !params_ ->
{-# LINE 44 "src-ag/DefaultRules.ag" #-}
params_
{-# LINE 1429 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule60 #-}
{-# LINE 205 "src-ag/DefaultRules.ag" #-}
rule60 = \ !nt_ ->
{-# LINE 205 "src-ag/DefaultRules.ag" #-}
Set.singleton nt_
{-# LINE 1435 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule61 #-}
{-# LINE 219 "src-ag/DefaultRules.ag" #-}
rule61 = \ !_inh1 ->
{-# LINE 219 "src-ag/DefaultRules.ag" #-}
_inh1
{-# LINE 1441 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule62 #-}
{-# LINE 220 "src-ag/DefaultRules.ag" #-}
rule62 = \ !_syn1 ->
{-# LINE 220 "src-ag/DefaultRules.ag" #-}
_syn1
{-# LINE 1447 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule64 #-}
{-# LINE 222 "src-ag/DefaultRules.ag" #-}
rule64 = \ !syn_ ->
{-# LINE 222 "src-ag/DefaultRules.ag" #-}
syn_
{-# LINE 1453 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule65 #-}
{-# LINE 223 "src-ag/DefaultRules.ag" #-}
rule65 = \ ((!_lhsIuseMap) :: UseMap) !nt_ ->
{-# LINE 223 "src-ag/DefaultRules.ag" #-}
Map.findWithDefault Map.empty nt_ _lhsIuseMap
{-# LINE 1459 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule66 #-}
{-# LINE 235 "src-ag/DefaultRules.ag" #-}
rule66 = \ !nt_ ->
{-# LINE 235 "src-ag/DefaultRules.ag" #-}
nt_
{-# LINE 1465 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule67 #-}
{-# LINE 592 "src-ag/DefaultRules.ag" #-}
rule67 = \ !inh_ !nt_ !params_ ->
{-# LINE 592 "src-ag/DefaultRules.ag" #-}
Map.map (elimSelfId nt_ params_) inh_
{-# LINE 1471 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule68 #-}
{-# LINE 593 "src-ag/DefaultRules.ag" #-}
rule68 = \ !nt_ !params_ !syn_ ->
{-# LINE 593 "src-ag/DefaultRules.ag" #-}
Map.map (elimSelfId nt_ params_) syn_
{-# LINE 1477 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule69 #-}
{-# LINE 632 "src-ag/DefaultRules.ag" #-}
rule69 = \ !_inh1 ((!_prodsIoutput) :: Productions) !_syn1 !nt_ !params_ ->
{-# LINE 632 "src-ag/DefaultRules.ag" #-}
Nonterminal nt_ params_ _inh1 _syn1 _prodsIoutput
{-# LINE 1483 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule70 #-}
{-# LINE 804 "src-ag/DefaultRules.ag" #-}
rule70 = \ ((!_lhsIaugmentsIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !nt_ ->
{-# LINE 804 "src-ag/DefaultRules.ag" #-}
Map.findWithDefault Map.empty nt_ _lhsIaugmentsIn
{-# LINE 1489 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule71 #-}
{-# LINE 811 "src-ag/DefaultRules.ag" #-}
rule71 = \ ((!_lhsIaroundsIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !nt_ ->
{-# LINE 811 "src-ag/DefaultRules.ag" #-}
Map.findWithDefault Map.empty nt_ _lhsIaroundsIn
{-# LINE 1495 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule72 #-}
{-# LINE 819 "src-ag/DefaultRules.ag" #-}
rule72 = \ ((!_lhsImergesIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !nt_ ->
{-# LINE 819 "src-ag/DefaultRules.ag" #-}
Map.findWithDefault Map.empty nt_ _lhsImergesIn
{-# LINE 1501 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule73 #-}
rule73 = \ ((!_prodsIerrors) :: Seq Error) ->
_prodsIerrors
{-# NOINLINE[1] rule75 #-}
rule75 = \ ((!_prodsIuniq) :: Int) ->
_prodsIuniq
{-# NOINLINE[1] rule76 #-}
rule76 = \ !_aroundsIn ->
_aroundsIn
{-# NOINLINE[1] rule77 #-}
rule77 = \ !_augmentsIn ->
_augmentsIn
{-# NOINLINE[1] rule78 #-}
rule78 = \ ((!_lhsIconstructorTypeMap) :: Map NontermIdent ConstructorType) ->
_lhsIconstructorTypeMap
{-# NOINLINE[1] rule79 #-}
rule79 = \ ((!_lhsIcr) :: Bool) ->
_lhsIcr
{-# NOINLINE[1] rule80 #-}
rule80 = \ ((!_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# NOINLINE[1] rule81 #-}
rule81 = \ ((!_lhsImanualAttrOrderMap) :: AttrOrderMap) ->
_lhsImanualAttrOrderMap
{-# NOINLINE[1] rule82 #-}
rule82 = \ !_mergesIn ->
_mergesIn
{-# NOINLINE[1] rule84 #-}
rule84 = \ ((!_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# NOINLINE[1] rule85 #-}
rule85 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
{-# NOINLINE[1] rule86 #-}
rule86 = \ ((!_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE[1] rule87 #-}
rule87 = \ ((!_lhsItypeSyns) :: TypeSyns) ->
_lhsItypeSyns
{-# NOINLINE[1] rule88 #-}
rule88 = \ ((!_lhsIuniq) :: Int) ->
_lhsIuniq
{-# NOINLINE[1] rule89 #-}
rule89 = \ ((!_lhsIwrappers) :: Set NontermIdent) ->
_lhsIwrappers
data Inh_Nonterminals = Inh_Nonterminals { aroundsIn_Inh_Nonterminals :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))), augmentsIn_Inh_Nonterminals :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))), constructorTypeMap_Inh_Nonterminals :: !(Map NontermIdent ConstructorType), cr_Inh_Nonterminals :: !(Bool), inhMap_Inh_Nonterminals :: !(Map Identifier Attributes), manualAttrOrderMap_Inh_Nonterminals :: !(AttrOrderMap), mergesIn_Inh_Nonterminals :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))), nonterminals_Inh_Nonterminals :: !(Set NontermIdent), o_rename_Inh_Nonterminals :: !(Bool), options_Inh_Nonterminals :: !(Options), synMap_Inh_Nonterminals :: !(Map Identifier Attributes), typeSyns_Inh_Nonterminals :: !(TypeSyns), uniq_Inh_Nonterminals :: !(Int), useMap_Inh_Nonterminals :: !(UseMap), wrappers_Inh_Nonterminals :: !(Set NontermIdent) }
data Syn_Nonterminals = Syn_Nonterminals { collect_nts_Syn_Nonterminals :: !(Set NontermIdent), errors_Syn_Nonterminals :: !(Seq Error), inhMap'_Syn_Nonterminals :: !(Map Identifier Attributes), output_Syn_Nonterminals :: !(Nonterminals), synMap'_Syn_Nonterminals :: !(Map Identifier Attributes), uniq_Syn_Nonterminals :: !(Int) }
{-# INLINABLE wrap_Nonterminals #-}
wrap_Nonterminals :: T_Nonterminals -> Inh_Nonterminals -> (Syn_Nonterminals )
wrap_Nonterminals !(T_Nonterminals act) !(Inh_Nonterminals _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg4 = T_Nonterminals_vIn4 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers
!(T_Nonterminals_vOut4 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOoutput _lhsOsynMap' _lhsOuniq) <- return (inv_Nonterminals_s8 sem K_Nonterminals_v4 arg4)
return (Syn_Nonterminals _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOoutput _lhsOsynMap' _lhsOuniq)
)
{-# NOINLINE sem_Nonterminals #-}
sem_Nonterminals :: Nonterminals -> T_Nonterminals
sem_Nonterminals list = Prelude.foldr sem_Nonterminals_Cons sem_Nonterminals_Nil (Prelude.map sem_Nonterminal list)
newtype T_Nonterminals = T_Nonterminals {
attach_T_Nonterminals :: Identity (T_Nonterminals_s8 )
}
data T_Nonterminals_s8 where C_Nonterminals_s8 :: {
inv_Nonterminals_s8 :: !(forall t. K_Nonterminals_s8 t -> t)
} -> T_Nonterminals_s8
data T_Nonterminals_s9 = C_Nonterminals_s9
data T_Nonterminals_s28 where C_Nonterminals_s28 :: {
inv_Nonterminals_s28 :: !(forall t. K_Nonterminals_s28 t -> t)
} -> T_Nonterminals_s28
data T_Nonterminals_s29 = C_Nonterminals_s29
newtype T_Nonterminals_s32 = C_Nonterminals_s32 {
inv_Nonterminals_s32 :: (T_Nonterminals_v20 )
}
data T_Nonterminals_s33 = C_Nonterminals_s33
newtype T_Nonterminals_s45 = C_Nonterminals_s45 {
inv_Nonterminals_s45 :: (T_Nonterminals_v35 )
}
data K_Nonterminals_s8 k where
K_Nonterminals_v4 :: K_Nonterminals_s8 (T_Nonterminals_v4 )
K_Nonterminals_v15 :: K_Nonterminals_s8 (T_Nonterminals_v15 )
K_Nonterminals_v19 :: K_Nonterminals_s8 (T_Nonterminals_v19 )
data K_Nonterminals_s28 k where
K_Nonterminals_v16 :: K_Nonterminals_s28 (T_Nonterminals_v16 )
K_Nonterminals_v34 :: K_Nonterminals_s28 (T_Nonterminals_v34 )
type T_Nonterminals_v4 = (T_Nonterminals_vIn4 ) -> (T_Nonterminals_vOut4 )
data T_Nonterminals_vIn4 = T_Nonterminals_vIn4 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Set NontermIdent) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(Int) !(UseMap) !(Set NontermIdent)
data T_Nonterminals_vOut4 = T_Nonterminals_vOut4 !(Set NontermIdent) !(Seq Error) !(Map Identifier Attributes) !(Nonterminals) !(Map Identifier Attributes) !(Int)
type T_Nonterminals_v15 = (T_Nonterminals_vIn15 ) -> (T_Nonterminals_vOut15 )
data T_Nonterminals_vIn15 = T_Nonterminals_vIn15
data T_Nonterminals_vOut15 = T_Nonterminals_vOut15 !(Map Identifier Attributes) !(Map Identifier Attributes) !(T_Nonterminals_s28 )
type T_Nonterminals_v16 = (T_Nonterminals_vIn16 ) -> (T_Nonterminals_vOut16 )
data T_Nonterminals_vIn16 = T_Nonterminals_vIn16 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(Int) !(UseMap) !(Set NontermIdent)
data T_Nonterminals_vOut16 = T_Nonterminals_vOut16 !(Seq Error) !(Nonterminals) !(Int)
type T_Nonterminals_v19 = (T_Nonterminals_vIn19 ) -> (T_Nonterminals_vOut19 )
data T_Nonterminals_vIn19 = T_Nonterminals_vIn19 !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(UseMap) !(Set NontermIdent)
data T_Nonterminals_vOut19 = T_Nonterminals_vOut19 !(Set NontermIdent) !(Seq Error) !(Map Identifier Attributes) !(Map Identifier Attributes) !(T_Nonterminals_s32 )
type T_Nonterminals_v20 = (T_Nonterminals_vIn20 ) -> (T_Nonterminals_vOut20 )
data T_Nonterminals_vIn20 = T_Nonterminals_vIn20 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Int)
data T_Nonterminals_vOut20 = T_Nonterminals_vOut20 !(Nonterminals) !(Int)
type T_Nonterminals_v34 = (T_Nonterminals_vIn34 ) -> (T_Nonterminals_vOut34 )
data T_Nonterminals_vIn34 = T_Nonterminals_vIn34 !(Map NontermIdent ConstructorType) !(Bool) !(Map Identifier Attributes) !(AttrOrderMap) !(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) !(Bool) !(Options) !(Map Identifier Attributes) !(TypeSyns) !(UseMap) !(Set NontermIdent)
data T_Nonterminals_vOut34 = T_Nonterminals_vOut34 !(Seq Error) !(T_Nonterminals_s45 )
type T_Nonterminals_v35 = (T_Nonterminals_vIn35 ) -> (T_Nonterminals_vOut35 )
data T_Nonterminals_vIn35 = T_Nonterminals_vIn35 !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) !(Int)
data T_Nonterminals_vOut35 = T_Nonterminals_vOut35 !(Nonterminals) !(Int)
{-# NOINLINE sem_Nonterminals_Cons #-}
sem_Nonterminals_Cons :: T_Nonterminal -> T_Nonterminals -> T_Nonterminals
sem_Nonterminals_Cons arg_hd_ arg_tl_ = T_Nonterminals (return st8) where
{-# NOINLINE st8 #-}
!st8 = let
k8 :: K_Nonterminals_s8 t -> t
k8 K_Nonterminals_v4 = v4
k8 K_Nonterminals_v15 = v15
k8 K_Nonterminals_v19 = v19
v4 :: T_Nonterminals_v4
v4 = \ !(T_Nonterminals_vIn4 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_hdX6 = Control.Monad.Identity.runIdentity (attach_T_Nonterminal (arg_hd_)) in
let !_tlX8 = Control.Monad.Identity.runIdentity (attach_T_Nonterminals (arg_tl_)) in
let !_hdOconstructorTypeMap = rule99 _lhsIconstructorTypeMap in
let !_hdOcr = rule100 _lhsIcr in
let !_hdOinhMap = rule101 _lhsIinhMap in
let !_hdOmanualAttrOrderMap = rule102 _lhsImanualAttrOrderMap in
let !_hdOmergesIn = rule103 _lhsImergesIn in
let !_hdOo_rename = rule105 _lhsIo_rename in
let !_hdOoptions = rule106 _lhsIoptions in
let !_hdOsynMap = rule107 _lhsIsynMap in
let !_hdOtypeSyns = rule108 _lhsItypeSyns in
let !_hdOuseMap = rule110 _lhsIuseMap in
let !_hdOwrappers = rule111 _lhsIwrappers in
let !_tlOconstructorTypeMap = rule114 _lhsIconstructorTypeMap in
let !_tlOcr = rule115 _lhsIcr in
let !_tlOinhMap = rule116 _lhsIinhMap in
let !_tlOmanualAttrOrderMap = rule117 _lhsImanualAttrOrderMap in
let !_tlOmergesIn = rule118 _lhsImergesIn in
let !_tlOo_rename = rule120 _lhsIo_rename in
let !_tlOoptions = rule121 _lhsIoptions in
let !_tlOsynMap = rule122 _lhsIsynMap in
let !_tlOtypeSyns = rule123 _lhsItypeSyns in
let !_tlOuseMap = rule125 _lhsIuseMap in
let !_tlOwrappers = rule126 _lhsIwrappers in
let !_hdOaroundsIn = rule97 _lhsIaroundsIn in
let !_hdOaugmentsIn = rule98 _lhsIaugmentsIn in
let !_hdOuniq = rule109 _lhsIuniq in
let !_tlOaroundsIn = rule112 _lhsIaroundsIn in
let !_tlOaugmentsIn = rule113 _lhsIaugmentsIn in
let !(T_Nonterminal_vOut18 _hdIcollect_nts _hdIerrors _hdIinhMap' _hdIoutput _hdIsynMap' _hdIuniq) = inv_Nonterminal_s6 _hdX6 K_Nonterminal_v18 (T_Nonterminal_vIn18 _hdOaroundsIn _hdOaugmentsIn _hdOconstructorTypeMap _hdOcr _hdOinhMap _hdOmanualAttrOrderMap _hdOmergesIn _hdOo_rename _hdOoptions _hdOsynMap _hdOtypeSyns _hdOuniq _hdOuseMap _hdOwrappers) in
let !(T_Nonterminals_vOut19 _tlIcollect_nts _tlIerrors _tlIinhMap' _tlIsynMap' _tlX32) = inv_Nonterminals_s8 _tlX8 K_Nonterminals_v19 (T_Nonterminals_vIn19 _tlOconstructorTypeMap _tlOcr _tlOinhMap _tlOmanualAttrOrderMap _tlOmergesIn _tlOo_rename _tlOoptions _tlOsynMap _tlOtypeSyns _tlOuseMap _tlOwrappers) in
let _lhsOcollect_nts :: Set NontermIdent
!_lhsOcollect_nts = rule90 _hdIcollect_nts _tlIcollect_nts in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule91 _hdIerrors _tlIerrors in
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule92 _hdIinhMap' _tlIinhMap' in
let !_tlOuniq = rule124 _hdIuniq in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule93 _hdIsynMap' _tlIsynMap' in
let !(T_Nonterminals_vOut20 _tlIoutput _tlIuniq) = inv_Nonterminals_s32 _tlX32 (T_Nonterminals_vIn20 _tlOaroundsIn _tlOaugmentsIn _tlOuniq) in
let !_output = rule94 _hdIoutput _tlIoutput in
let _lhsOoutput :: Nonterminals
!_lhsOoutput = rule95 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule96 _tlIuniq in
let !__result_ = T_Nonterminals_vOut4 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOoutput _lhsOsynMap' _lhsOuniq
in __result_ )
v15 :: T_Nonterminals_v15
v15 = \ !(T_Nonterminals_vIn15 ) -> (
let !_hdX6 = Control.Monad.Identity.runIdentity (attach_T_Nonterminal (arg_hd_)) in
let !_tlX8 = Control.Monad.Identity.runIdentity (attach_T_Nonterminals (arg_tl_)) in
let !(T_Nonterminal_vOut32 _hdIinhMap' _hdIsynMap' _hdX43) = inv_Nonterminal_s6 _hdX6 K_Nonterminal_v32 (T_Nonterminal_vIn32 ) in
let !(T_Nonterminals_vOut15 _tlIinhMap' _tlIsynMap' _tlX28) = inv_Nonterminals_s8 _tlX8 K_Nonterminals_v15 (T_Nonterminals_vIn15 ) in
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule92 _hdIinhMap' _tlIinhMap' in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule93 _hdIsynMap' _tlIsynMap' in
let !__st_ = st28 _hdX43 _tlX28
!__result_ = T_Nonterminals_vOut15 _lhsOinhMap' _lhsOsynMap' __st_
in __result_ )
v19 :: T_Nonterminals_v19
v19 = \ !(T_Nonterminals_vIn19 _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let !_hdX6 = Control.Monad.Identity.runIdentity (attach_T_Nonterminal (arg_hd_)) in
let !_tlX8 = Control.Monad.Identity.runIdentity (attach_T_Nonterminals (arg_tl_)) in
let !_hdOconstructorTypeMap = rule99 _lhsIconstructorTypeMap in
let !_hdOcr = rule100 _lhsIcr in
let !_hdOinhMap = rule101 _lhsIinhMap in
let !_hdOmanualAttrOrderMap = rule102 _lhsImanualAttrOrderMap in
let !_hdOmergesIn = rule103 _lhsImergesIn in
let !_hdOo_rename = rule105 _lhsIo_rename in
let !_hdOoptions = rule106 _lhsIoptions in
let !_hdOsynMap = rule107 _lhsIsynMap in
let !_hdOtypeSyns = rule108 _lhsItypeSyns in
let !_hdOuseMap = rule110 _lhsIuseMap in
let !_hdOwrappers = rule111 _lhsIwrappers in
let !_tlOconstructorTypeMap = rule114 _lhsIconstructorTypeMap in
let !_tlOcr = rule115 _lhsIcr in
let !_tlOinhMap = rule116 _lhsIinhMap in
let !_tlOmanualAttrOrderMap = rule117 _lhsImanualAttrOrderMap in
let !_tlOmergesIn = rule118 _lhsImergesIn in
let !_tlOo_rename = rule120 _lhsIo_rename in
let !_tlOoptions = rule121 _lhsIoptions in
let !_tlOsynMap = rule122 _lhsIsynMap in
let !_tlOtypeSyns = rule123 _lhsItypeSyns in
let !_tlOuseMap = rule125 _lhsIuseMap in
let !_tlOwrappers = rule126 _lhsIwrappers in
let !(T_Nonterminal_vOut36 _hdIcollect_nts _hdIerrors _hdIinhMap' _hdIsynMap' _hdX46) = inv_Nonterminal_s6 _hdX6 K_Nonterminal_v36 (T_Nonterminal_vIn36 _hdOconstructorTypeMap _hdOcr _hdOinhMap _hdOmanualAttrOrderMap _hdOmergesIn _hdOo_rename _hdOoptions _hdOsynMap _hdOtypeSyns _hdOuseMap _hdOwrappers) in
let !(T_Nonterminals_vOut19 _tlIcollect_nts _tlIerrors _tlIinhMap' _tlIsynMap' _tlX32) = inv_Nonterminals_s8 _tlX8 K_Nonterminals_v19 (T_Nonterminals_vIn19 _tlOconstructorTypeMap _tlOcr _tlOinhMap _tlOmanualAttrOrderMap _tlOmergesIn _tlOo_rename _tlOoptions _tlOsynMap _tlOtypeSyns _tlOuseMap _tlOwrappers) in
let _lhsOcollect_nts :: Set NontermIdent
!_lhsOcollect_nts = rule90 _hdIcollect_nts _tlIcollect_nts in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule91 _hdIerrors _tlIerrors in
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule92 _hdIinhMap' _tlIinhMap' in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule93 _hdIsynMap' _tlIsynMap' in
let !__st_ = st32 _hdX46 _tlX32
!__result_ = T_Nonterminals_vOut19 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOsynMap' __st_
in __result_ )
in C_Nonterminals_s8 k8
{-# NOINLINE st28 #-}
st28 = \ !_hdX43 !_tlX28 -> let
k28 :: K_Nonterminals_s28 t -> t
k28 K_Nonterminals_v16 = v16
k28 K_Nonterminals_v34 = v34
v16 :: T_Nonterminals_v16
v16 = \ !(T_Nonterminals_vIn16 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_hdOconstructorTypeMap = rule99 _lhsIconstructorTypeMap in
let !_hdOcr = rule100 _lhsIcr in
let !_hdOinhMap = rule101 _lhsIinhMap in
let !_hdOmanualAttrOrderMap = rule102 _lhsImanualAttrOrderMap in
let !_hdOmergesIn = rule103 _lhsImergesIn in
let !_hdOo_rename = rule105 _lhsIo_rename in
let !_hdOoptions = rule106 _lhsIoptions in
let !_hdOsynMap = rule107 _lhsIsynMap in
let !_hdOtypeSyns = rule108 _lhsItypeSyns in
let !_hdOuseMap = rule110 _lhsIuseMap in
let !_hdOwrappers = rule111 _lhsIwrappers in
let !_tlOconstructorTypeMap = rule114 _lhsIconstructorTypeMap in
let !_tlOcr = rule115 _lhsIcr in
let !_tlOinhMap = rule116 _lhsIinhMap in
let !_tlOmanualAttrOrderMap = rule117 _lhsImanualAttrOrderMap in
let !_tlOmergesIn = rule118 _lhsImergesIn in
let !_tlOo_rename = rule120 _lhsIo_rename in
let !_tlOoptions = rule121 _lhsIoptions in
let !_tlOsynMap = rule122 _lhsIsynMap in
let !_tlOtypeSyns = rule123 _lhsItypeSyns in
let !_tlOuseMap = rule125 _lhsIuseMap in
let !_tlOwrappers = rule126 _lhsIwrappers in
let !_hdOaroundsIn = rule97 _lhsIaroundsIn in
let !_hdOaugmentsIn = rule98 _lhsIaugmentsIn in
let !_hdOuniq = rule109 _lhsIuniq in
let !_tlOaroundsIn = rule112 _lhsIaroundsIn in
let !_tlOaugmentsIn = rule113 _lhsIaugmentsIn in
let !(T_Nonterminal_vOut33 _hdIerrors _hdIoutput _hdIuniq) = inv_Nonterminal_s43 _hdX43 K_Nonterminal_v33 (T_Nonterminal_vIn33 _hdOaroundsIn _hdOaugmentsIn _hdOconstructorTypeMap _hdOcr _hdOinhMap _hdOmanualAttrOrderMap _hdOmergesIn _hdOo_rename _hdOoptions _hdOsynMap _hdOtypeSyns _hdOuniq _hdOuseMap _hdOwrappers) in
let !(T_Nonterminals_vOut34 _tlIerrors _tlX45) = inv_Nonterminals_s28 _tlX28 K_Nonterminals_v34 (T_Nonterminals_vIn34 _tlOconstructorTypeMap _tlOcr _tlOinhMap _tlOmanualAttrOrderMap _tlOmergesIn _tlOo_rename _tlOoptions _tlOsynMap _tlOtypeSyns _tlOuseMap _tlOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule91 _hdIerrors _tlIerrors in
let !_tlOuniq = rule124 _hdIuniq in
let !(T_Nonterminals_vOut35 _tlIoutput _tlIuniq) = inv_Nonterminals_s45 _tlX45 (T_Nonterminals_vIn35 _tlOaroundsIn _tlOaugmentsIn _tlOuniq) in
let !_output = rule94 _hdIoutput _tlIoutput in
let _lhsOoutput :: Nonterminals
!_lhsOoutput = rule95 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule96 _tlIuniq in
let !__result_ = T_Nonterminals_vOut16 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v34 :: T_Nonterminals_v34
v34 = \ !(T_Nonterminals_vIn34 _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let !_hdOconstructorTypeMap = rule99 _lhsIconstructorTypeMap in
let !_hdOcr = rule100 _lhsIcr in
let !_hdOinhMap = rule101 _lhsIinhMap in
let !_hdOmanualAttrOrderMap = rule102 _lhsImanualAttrOrderMap in
let !_hdOmergesIn = rule103 _lhsImergesIn in
let !_hdOo_rename = rule105 _lhsIo_rename in
let !_hdOoptions = rule106 _lhsIoptions in
let !_hdOsynMap = rule107 _lhsIsynMap in
let !_hdOtypeSyns = rule108 _lhsItypeSyns in
let !_hdOuseMap = rule110 _lhsIuseMap in
let !_hdOwrappers = rule111 _lhsIwrappers in
let !_tlOconstructorTypeMap = rule114 _lhsIconstructorTypeMap in
let !_tlOcr = rule115 _lhsIcr in
let !_tlOinhMap = rule116 _lhsIinhMap in
let !_tlOmanualAttrOrderMap = rule117 _lhsImanualAttrOrderMap in
let !_tlOmergesIn = rule118 _lhsImergesIn in
let !_tlOo_rename = rule120 _lhsIo_rename in
let !_tlOoptions = rule121 _lhsIoptions in
let !_tlOsynMap = rule122 _lhsIsynMap in
let !_tlOtypeSyns = rule123 _lhsItypeSyns in
let !_tlOuseMap = rule125 _lhsIuseMap in
let !_tlOwrappers = rule126 _lhsIwrappers in
let !(T_Nonterminal_vOut45 _hdIerrors _hdX52) = inv_Nonterminal_s43 _hdX43 K_Nonterminal_v45 (T_Nonterminal_vIn45 _hdOconstructorTypeMap _hdOcr _hdOinhMap _hdOmanualAttrOrderMap _hdOmergesIn _hdOo_rename _hdOoptions _hdOsynMap _hdOtypeSyns _hdOuseMap _hdOwrappers) in
let !(T_Nonterminals_vOut34 _tlIerrors _tlX45) = inv_Nonterminals_s28 _tlX28 K_Nonterminals_v34 (T_Nonterminals_vIn34 _tlOconstructorTypeMap _tlOcr _tlOinhMap _tlOmanualAttrOrderMap _tlOmergesIn _tlOo_rename _tlOoptions _tlOsynMap _tlOtypeSyns _tlOuseMap _tlOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule91 _hdIerrors _tlIerrors in
let !__st_ = st45 _hdX52 _tlX45
!__result_ = T_Nonterminals_vOut34 _lhsOerrors __st_
in __result_ )
in C_Nonterminals_s28 k28
{-# NOINLINE st32 #-}
st32 = \ !_hdX46 !_tlX32 -> let
v20 :: T_Nonterminals_v20
v20 = \ !(T_Nonterminals_vIn20 _lhsIaroundsIn _lhsIaugmentsIn _lhsIuniq) -> (
let !_hdOaroundsIn = rule97 _lhsIaroundsIn in
let !_hdOaugmentsIn = rule98 _lhsIaugmentsIn in
let !_hdOuniq = rule109 _lhsIuniq in
let !_tlOaroundsIn = rule112 _lhsIaroundsIn in
let !_tlOaugmentsIn = rule113 _lhsIaugmentsIn in
let !(T_Nonterminal_vOut37 _hdIoutput _hdIuniq) = inv_Nonterminal_s46 _hdX46 (T_Nonterminal_vIn37 _hdOaroundsIn _hdOaugmentsIn _hdOuniq) in
let !_tlOuniq = rule124 _hdIuniq in
let !(T_Nonterminals_vOut20 _tlIoutput _tlIuniq) = inv_Nonterminals_s32 _tlX32 (T_Nonterminals_vIn20 _tlOaroundsIn _tlOaugmentsIn _tlOuniq) in
let !_output = rule94 _hdIoutput _tlIoutput in
let _lhsOoutput :: Nonterminals
!_lhsOoutput = rule95 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule96 _tlIuniq in
let !__result_ = T_Nonterminals_vOut20 _lhsOoutput _lhsOuniq
in __result_ )
in C_Nonterminals_s32 v20
{-# NOINLINE st45 #-}
st45 = \ !_hdX52 !_tlX45 -> let
v35 :: T_Nonterminals_v35
v35 = \ !(T_Nonterminals_vIn35 _lhsIaroundsIn _lhsIaugmentsIn _lhsIuniq) -> (
let !_hdOaroundsIn = rule97 _lhsIaroundsIn in
let !_hdOaugmentsIn = rule98 _lhsIaugmentsIn in
let !_hdOuniq = rule109 _lhsIuniq in
let !_tlOaroundsIn = rule112 _lhsIaroundsIn in
let !_tlOaugmentsIn = rule113 _lhsIaugmentsIn in
let !(T_Nonterminal_vOut46 _hdIoutput _hdIuniq) = inv_Nonterminal_s52 _hdX52 (T_Nonterminal_vIn46 _hdOaroundsIn _hdOaugmentsIn _hdOuniq) in
let !_tlOuniq = rule124 _hdIuniq in
let !(T_Nonterminals_vOut35 _tlIoutput _tlIuniq) = inv_Nonterminals_s45 _tlX45 (T_Nonterminals_vIn35 _tlOaroundsIn _tlOaugmentsIn _tlOuniq) in
let !_output = rule94 _hdIoutput _tlIoutput in
let _lhsOoutput :: Nonterminals
!_lhsOoutput = rule95 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule96 _tlIuniq in
let !__result_ = T_Nonterminals_vOut35 _lhsOoutput _lhsOuniq
in __result_ )
in C_Nonterminals_s45 v35
{-# NOINLINE[1] rule90 #-}
rule90 = \ ((!_hdIcollect_nts) :: Set NontermIdent) ((!_tlIcollect_nts) :: Set NontermIdent) ->
_hdIcollect_nts `Set.union` _tlIcollect_nts
{-# NOINLINE[1] rule91 #-}
rule91 = \ ((!_hdIerrors) :: Seq Error) ((!_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# NOINLINE[1] rule92 #-}
rule92 = \ ((!_hdIinhMap') :: Map Identifier Attributes) ((!_tlIinhMap') :: Map Identifier Attributes) ->
_hdIinhMap' `Map.union` _tlIinhMap'
{-# NOINLINE[1] rule93 #-}
rule93 = \ ((!_hdIsynMap') :: Map Identifier Attributes) ((!_tlIsynMap') :: Map Identifier Attributes) ->
_hdIsynMap' `Map.union` _tlIsynMap'
{-# NOINLINE[1] rule94 #-}
rule94 = \ ((!_hdIoutput) :: Nonterminal) ((!_tlIoutput) :: Nonterminals) ->
(:) _hdIoutput _tlIoutput
{-# NOINLINE[1] rule95 #-}
rule95 = \ !_output ->
_output
{-# NOINLINE[1] rule96 #-}
rule96 = \ ((!_tlIuniq) :: Int) ->
_tlIuniq
{-# NOINLINE[1] rule97 #-}
rule97 = \ ((!_lhsIaroundsIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->
_lhsIaroundsIn
{-# NOINLINE[1] rule98 #-}
rule98 = \ ((!_lhsIaugmentsIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->
_lhsIaugmentsIn
{-# NOINLINE[1] rule99 #-}
rule99 = \ ((!_lhsIconstructorTypeMap) :: Map NontermIdent ConstructorType) ->
_lhsIconstructorTypeMap
{-# NOINLINE[1] rule100 #-}
rule100 = \ ((!_lhsIcr) :: Bool) ->
_lhsIcr
{-# NOINLINE[1] rule101 #-}
rule101 = \ ((!_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# NOINLINE[1] rule102 #-}
rule102 = \ ((!_lhsImanualAttrOrderMap) :: AttrOrderMap) ->
_lhsImanualAttrOrderMap
{-# NOINLINE[1] rule103 #-}
rule103 = \ ((!_lhsImergesIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) ->
_lhsImergesIn
{-# NOINLINE[1] rule105 #-}
rule105 = \ ((!_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# NOINLINE[1] rule106 #-}
rule106 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
{-# NOINLINE[1] rule107 #-}
rule107 = \ ((!_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE[1] rule108 #-}
rule108 = \ ((!_lhsItypeSyns) :: TypeSyns) ->
_lhsItypeSyns
{-# NOINLINE[1] rule109 #-}
rule109 = \ ((!_lhsIuniq) :: Int) ->
_lhsIuniq
{-# NOINLINE[1] rule110 #-}
rule110 = \ ((!_lhsIuseMap) :: UseMap) ->
_lhsIuseMap
{-# NOINLINE[1] rule111 #-}
rule111 = \ ((!_lhsIwrappers) :: Set NontermIdent) ->
_lhsIwrappers
{-# NOINLINE[1] rule112 #-}
rule112 = \ ((!_lhsIaroundsIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->
_lhsIaroundsIn
{-# NOINLINE[1] rule113 #-}
rule113 = \ ((!_lhsIaugmentsIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->
_lhsIaugmentsIn
{-# NOINLINE[1] rule114 #-}
rule114 = \ ((!_lhsIconstructorTypeMap) :: Map NontermIdent ConstructorType) ->
_lhsIconstructorTypeMap
{-# NOINLINE[1] rule115 #-}
rule115 = \ ((!_lhsIcr) :: Bool) ->
_lhsIcr
{-# NOINLINE[1] rule116 #-}
rule116 = \ ((!_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# NOINLINE[1] rule117 #-}
rule117 = \ ((!_lhsImanualAttrOrderMap) :: AttrOrderMap) ->
_lhsImanualAttrOrderMap
{-# NOINLINE[1] rule118 #-}
rule118 = \ ((!_lhsImergesIn) :: Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression)))) ->
_lhsImergesIn
{-# NOINLINE[1] rule120 #-}
rule120 = \ ((!_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# NOINLINE[1] rule121 #-}
rule121 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
{-# NOINLINE[1] rule122 #-}
rule122 = \ ((!_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE[1] rule123 #-}
rule123 = \ ((!_lhsItypeSyns) :: TypeSyns) ->
_lhsItypeSyns
{-# NOINLINE[1] rule124 #-}
rule124 = \ ((!_hdIuniq) :: Int) ->
_hdIuniq
{-# NOINLINE[1] rule125 #-}
rule125 = \ ((!_lhsIuseMap) :: UseMap) ->
_lhsIuseMap
{-# NOINLINE[1] rule126 #-}
rule126 = \ ((!_lhsIwrappers) :: Set NontermIdent) ->
_lhsIwrappers
{-# NOINLINE sem_Nonterminals_Nil #-}
sem_Nonterminals_Nil :: T_Nonterminals
sem_Nonterminals_Nil = T_Nonterminals (return st8) where
{-# NOINLINE st8 #-}
!st8 = let
k8 :: K_Nonterminals_s8 t -> t
k8 K_Nonterminals_v4 = v4
k8 K_Nonterminals_v15 = v15
k8 K_Nonterminals_v19 = v19
v4 :: T_Nonterminals_v4
v4 = \ !(T_Nonterminals_vIn4 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let _lhsOcollect_nts :: Set NontermIdent
!_lhsOcollect_nts = rule127 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule128 () in
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule129 () in
let !_output = rule131 () in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule130 () in
let _lhsOoutput :: Nonterminals
!_lhsOoutput = rule132 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule133 _lhsIuniq in
let !__result_ = T_Nonterminals_vOut4 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOoutput _lhsOsynMap' _lhsOuniq
in __result_ )
v15 :: T_Nonterminals_v15
v15 = \ !(T_Nonterminals_vIn15 ) -> (
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule129 () in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule130 () in
let !__st_ = st28 ()
!__result_ = T_Nonterminals_vOut15 _lhsOinhMap' _lhsOsynMap' __st_
in __result_ )
v19 :: T_Nonterminals_v19
v19 = \ !(T_Nonterminals_vIn19 _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let _lhsOcollect_nts :: Set NontermIdent
!_lhsOcollect_nts = rule127 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule128 () in
let _lhsOinhMap' :: Map Identifier Attributes
!_lhsOinhMap' = rule129 () in
let _lhsOsynMap' :: Map Identifier Attributes
!_lhsOsynMap' = rule130 () in
let !__st_ = st32 ()
!__result_ = T_Nonterminals_vOut19 _lhsOcollect_nts _lhsOerrors _lhsOinhMap' _lhsOsynMap' __st_
in __result_ )
in C_Nonterminals_s8 k8
{-# NOINLINE st28 #-}
st28 = \ (_ :: ()) -> let
k28 :: K_Nonterminals_s28 t -> t
k28 K_Nonterminals_v16 = v16
k28 K_Nonterminals_v34 = v34
v16 :: T_Nonterminals_v16
v16 = \ !(T_Nonterminals_vIn16 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule128 () in
let !_output = rule131 () in
let _lhsOoutput :: Nonterminals
!_lhsOoutput = rule132 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule133 _lhsIuniq in
let !__result_ = T_Nonterminals_vOut16 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v34 :: T_Nonterminals_v34
v34 = \ !(T_Nonterminals_vIn34 _lhsIconstructorTypeMap _lhsIcr _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsIo_rename _lhsIoptions _lhsIsynMap _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule128 () in
let !__st_ = st45 ()
!__result_ = T_Nonterminals_vOut34 _lhsOerrors __st_
in __result_ )
in C_Nonterminals_s28 k28
{-# NOINLINE st32 #-}
st32 = \ (_ :: ()) -> let
v20 :: T_Nonterminals_v20
v20 = \ !(T_Nonterminals_vIn20 _lhsIaroundsIn _lhsIaugmentsIn _lhsIuniq) -> (
let !_output = rule131 () in
let _lhsOoutput :: Nonterminals
!_lhsOoutput = rule132 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule133 _lhsIuniq in
let !__result_ = T_Nonterminals_vOut20 _lhsOoutput _lhsOuniq
in __result_ )
in C_Nonterminals_s32 v20
{-# NOINLINE st45 #-}
st45 = \ (_ :: ()) -> let
v35 :: T_Nonterminals_v35
v35 = \ !(T_Nonterminals_vIn35 _lhsIaroundsIn _lhsIaugmentsIn _lhsIuniq) -> (
let !_output = rule131 () in
let _lhsOoutput :: Nonterminals
!_lhsOoutput = rule132 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule133 _lhsIuniq in
let !__result_ = T_Nonterminals_vOut35 _lhsOoutput _lhsOuniq
in __result_ )
in C_Nonterminals_s45 v35
{-# NOINLINE[1] rule127 #-}
rule127 = \ (_ :: ()) ->
Set.empty
{-# NOINLINE[1] rule128 #-}
rule128 = \ (_ :: ()) ->
Seq.empty
{-# NOINLINE[1] rule129 #-}
rule129 = \ (_ :: ()) ->
Map.empty
{-# NOINLINE[1] rule130 #-}
rule130 = \ (_ :: ()) ->
Map.empty
{-# NOINLINE[1] rule131 #-}
rule131 = \ (_ :: ()) ->
[]
{-# NOINLINE[1] rule132 #-}
rule132 = \ !_output ->
_output
{-# NOINLINE[1] rule133 #-}
rule133 = \ ((!_lhsIuniq) :: Int) ->
_lhsIuniq
data Inh_Pattern = Inh_Pattern { con_Inh_Pattern :: !(ConstructorIdent), nt_Inh_Pattern :: !(NontermIdent) }
data Syn_Pattern = Syn_Pattern { containsVars_Syn_Pattern :: !(Bool), copy_Syn_Pattern :: !(Pattern), definedAttrs_Syn_Pattern :: !(Set (Identifier,Identifier)), errors_Syn_Pattern :: !(Seq Error), locals_Syn_Pattern :: !(Set Identifier), output_Syn_Pattern :: !(Pattern) }
{-# INLINABLE wrap_Pattern #-}
wrap_Pattern :: T_Pattern -> Inh_Pattern -> (Syn_Pattern )
wrap_Pattern !(T_Pattern act) !(Inh_Pattern _lhsIcon _lhsInt) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg5 = T_Pattern_vIn5 _lhsIcon _lhsInt
!(T_Pattern_vOut5 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput) <- return (inv_Pattern_s10 sem K_Pattern_v5 arg5)
return (Syn_Pattern _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)
)
{-# NOINLINE sem_Pattern #-}
sem_Pattern :: Pattern -> T_Pattern
sem_Pattern ( Constr !name_ pats_ ) = sem_Pattern_Constr name_ ( sem_Patterns pats_ )
sem_Pattern ( Product !pos_ pats_ ) = sem_Pattern_Product pos_ ( sem_Patterns pats_ )
sem_Pattern ( Alias !field_ !attr_ pat_ ) = sem_Pattern_Alias field_ attr_ ( sem_Pattern pat_ )
sem_Pattern ( Irrefutable pat_ ) = sem_Pattern_Irrefutable ( sem_Pattern pat_ )
sem_Pattern ( Underscore !pos_ ) = sem_Pattern_Underscore pos_
newtype T_Pattern = T_Pattern {
attach_T_Pattern :: Identity (T_Pattern_s10 )
}
data T_Pattern_s10 where C_Pattern_s10 :: {
inv_Pattern_s10 :: !(forall t. K_Pattern_s10 t -> t)
} -> T_Pattern_s10
data T_Pattern_s11 = C_Pattern_s11
data T_Pattern_s35 = C_Pattern_s35
data T_Pattern_s36 = C_Pattern_s36
data T_Pattern_s40 = C_Pattern_s40
data T_Pattern_s50 = C_Pattern_s50
data T_Pattern_s55 where C_Pattern_s55 :: {
inv_Pattern_s55 :: !(forall t. K_Pattern_s55 t -> t)
} -> T_Pattern_s55
data K_Pattern_s10 k where
K_Pattern_v5 :: K_Pattern_s10 (T_Pattern_v5 )
K_Pattern_v22 :: K_Pattern_s10 (T_Pattern_v22 )
K_Pattern_v23 :: K_Pattern_s10 (T_Pattern_v23 )
K_Pattern_v28 :: K_Pattern_s10 (T_Pattern_v28 )
K_Pattern_v42 :: K_Pattern_s10 (T_Pattern_v42 )
K_Pattern_v50 :: K_Pattern_s10 (T_Pattern_v50 )
data K_Pattern_s55 k where
K_Pattern_v51 :: K_Pattern_s55 (T_Pattern_v51 )
K_Pattern_v56 :: K_Pattern_s55 (T_Pattern_v56 )
type T_Pattern_v5 = (T_Pattern_vIn5 ) -> (T_Pattern_vOut5 )
data T_Pattern_vIn5 = T_Pattern_vIn5 !(ConstructorIdent) !(NontermIdent)
data T_Pattern_vOut5 = T_Pattern_vOut5 !(Bool) !(Pattern) !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Pattern)
type T_Pattern_v22 = (T_Pattern_vIn22 ) -> (T_Pattern_vOut22 )
data T_Pattern_vIn22 = T_Pattern_vIn22
data T_Pattern_vOut22 = T_Pattern_vOut22 !(Pattern) !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Pattern)
type T_Pattern_v23 = (T_Pattern_vIn23 ) -> (T_Pattern_vOut23 )
data T_Pattern_vIn23 = T_Pattern_vIn23
data T_Pattern_vOut23 = T_Pattern_vOut23 !(Bool) !(Pattern) !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Pattern)
type T_Pattern_v28 = (T_Pattern_vIn28 ) -> (T_Pattern_vOut28 )
data T_Pattern_vIn28 = T_Pattern_vIn28
data T_Pattern_vOut28 = T_Pattern_vOut28 !(Bool) !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Pattern)
type T_Pattern_v42 = (T_Pattern_vIn42 ) -> (T_Pattern_vOut42 )
data T_Pattern_vIn42 = T_Pattern_vIn42
data T_Pattern_vOut42 = T_Pattern_vOut42 !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Pattern)
type T_Pattern_v50 = (T_Pattern_vIn50 ) -> (T_Pattern_vOut50 )
data T_Pattern_vIn50 = T_Pattern_vIn50
data T_Pattern_vOut50 = T_Pattern_vOut50 !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(T_Pattern_s55 )
type T_Pattern_v51 = (T_Pattern_vIn51 ) -> (T_Pattern_vOut51 )
data T_Pattern_vIn51 = T_Pattern_vIn51
data T_Pattern_vOut51 = T_Pattern_vOut51 !(Bool) !(Pattern)
type T_Pattern_v56 = (T_Pattern_vIn56 ) -> (T_Pattern_vOut56 )
data T_Pattern_vIn56 = T_Pattern_vIn56
data T_Pattern_vOut56 = T_Pattern_vOut56 !(Pattern)
{-# NOINLINE sem_Pattern_Constr #-}
sem_Pattern_Constr :: (ConstructorIdent) -> T_Patterns -> T_Pattern
sem_Pattern_Constr !arg_name_ arg_pats_ = T_Pattern (return st10) where
{-# NOINLINE st10 #-}
!st10 = let
k10 :: K_Pattern_s10 t -> t
k10 K_Pattern_v5 = v5
k10 K_Pattern_v22 = v22
k10 K_Pattern_v23 = v23
k10 K_Pattern_v28 = v28
k10 K_Pattern_v42 = v42
k10 K_Pattern_v50 = v50
v5 :: T_Pattern_v5
v5 = \ !(T_Pattern_vIn5 _lhsIcon _lhsInt) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut21 _patsIcontainsVars _patsIcopy _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v21 (T_Patterns_vIn21 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule134 _patsIcontainsVars in
let !_copy = rule138 _patsIcopy arg_name_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule140 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule135 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule136 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule137 _patsIlocals in
let !_output = rule139 _patsIoutput arg_name_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule141 _output in
let !__result_ = T_Pattern_vOut5 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v22 :: T_Pattern_v22
v22 = \ !(T_Pattern_vIn22 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut38 _patsIcopy _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v38 (T_Patterns_vIn38 ) in
let !_copy = rule138 _patsIcopy arg_name_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule140 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule135 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule136 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule137 _patsIlocals in
let !_output = rule139 _patsIoutput arg_name_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule141 _output in
let !__result_ = T_Pattern_vOut22 _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v23 :: T_Pattern_v23
v23 = \ !(T_Pattern_vIn23 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut21 _patsIcontainsVars _patsIcopy _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v21 (T_Patterns_vIn21 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule134 _patsIcontainsVars in
let !_copy = rule138 _patsIcopy arg_name_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule140 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule135 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule136 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule137 _patsIlocals in
let !_output = rule139 _patsIoutput arg_name_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule141 _output in
let !__result_ = T_Pattern_vOut23 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v28 :: T_Pattern_v28
v28 = \ !(T_Pattern_vIn28 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut41 _patsIcontainsVars _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v41 (T_Patterns_vIn41 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule134 _patsIcontainsVars in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule135 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule136 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule137 _patsIlocals in
let !_output = rule139 _patsIoutput arg_name_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule141 _output in
let !__result_ = T_Pattern_vOut28 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v42 :: T_Pattern_v42
v42 = \ !(T_Pattern_vIn42 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut49 _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v49 (T_Patterns_vIn49 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule135 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule136 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule137 _patsIlocals in
let !_output = rule139 _patsIoutput arg_name_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule141 _output in
let !__result_ = T_Pattern_vOut42 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v50 :: T_Pattern_v50
v50 = \ !(T_Pattern_vIn50 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut54 _patsIdefinedAttrs _patsIerrors _patsIlocals _patsX57) = inv_Patterns_s12 _patsX12 K_Patterns_v54 (T_Patterns_vIn54 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule135 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule136 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule137 _patsIlocals in
let !__st_ = st55 _patsX57
!__result_ = T_Pattern_vOut50 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals __st_
in __result_ )
in C_Pattern_s10 k10
{-# NOINLINE st55 #-}
st55 = \ !_patsX57 -> let
k55 :: K_Pattern_s55 t -> t
k55 K_Pattern_v51 = v51
k55 K_Pattern_v56 = v56
v51 :: T_Pattern_v51
v51 = \ !(T_Pattern_vIn51 ) -> (
let !(T_Patterns_vOut55 _patsIcontainsVars _patsIoutput) = inv_Patterns_s57 _patsX57 K_Patterns_v55 (T_Patterns_vIn55 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule134 _patsIcontainsVars in
let !_output = rule139 _patsIoutput arg_name_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule141 _output in
let !__result_ = T_Pattern_vOut51 _lhsOcontainsVars _lhsOoutput
in __result_ )
v56 :: T_Pattern_v56
v56 = \ !(T_Pattern_vIn56 ) -> (
let !(T_Patterns_vOut57 _patsIoutput) = inv_Patterns_s57 _patsX57 K_Patterns_v57 (T_Patterns_vIn57 ) in
let !_output = rule139 _patsIoutput arg_name_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule141 _output in
let !__result_ = T_Pattern_vOut56 _lhsOoutput
in __result_ )
in C_Pattern_s55 k55
{-# NOINLINE[1] rule134 #-}
rule134 = \ ((!_patsIcontainsVars) :: Bool) ->
_patsIcontainsVars
{-# NOINLINE[1] rule135 #-}
rule135 = \ ((!_patsIdefinedAttrs) :: Set (Identifier,Identifier)) ->
_patsIdefinedAttrs
{-# NOINLINE[1] rule136 #-}
rule136 = \ ((!_patsIerrors) :: Seq Error) ->
_patsIerrors
{-# NOINLINE[1] rule137 #-}
rule137 = \ ((!_patsIlocals) :: Set Identifier) ->
_patsIlocals
{-# NOINLINE[1] rule138 #-}
rule138 = \ ((!_patsIcopy) :: Patterns) !name_ ->
Constr name_ _patsIcopy
{-# NOINLINE[1] rule139 #-}
rule139 = \ ((!_patsIoutput) :: Patterns) !name_ ->
Constr name_ _patsIoutput
{-# NOINLINE[1] rule140 #-}
rule140 = \ !_copy ->
_copy
{-# NOINLINE[1] rule141 #-}
rule141 = \ !_output ->
_output
{-# NOINLINE sem_Pattern_Product #-}
sem_Pattern_Product :: (Pos) -> T_Patterns -> T_Pattern
sem_Pattern_Product !arg_pos_ arg_pats_ = T_Pattern (return st10) where
{-# NOINLINE st10 #-}
!st10 = let
k10 :: K_Pattern_s10 t -> t
k10 K_Pattern_v5 = v5
k10 K_Pattern_v22 = v22
k10 K_Pattern_v23 = v23
k10 K_Pattern_v28 = v28
k10 K_Pattern_v42 = v42
k10 K_Pattern_v50 = v50
v5 :: T_Pattern_v5
v5 = \ !(T_Pattern_vIn5 _lhsIcon _lhsInt) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut21 _patsIcontainsVars _patsIcopy _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v21 (T_Patterns_vIn21 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule144 _patsIcontainsVars in
let !_copy = rule148 _patsIcopy arg_pos_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule150 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule145 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule146 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule147 _patsIlocals in
let !_output = rule149 _patsIoutput arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule151 _output in
let !__result_ = T_Pattern_vOut5 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v22 :: T_Pattern_v22
v22 = \ !(T_Pattern_vIn22 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut38 _patsIcopy _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v38 (T_Patterns_vIn38 ) in
let !_copy = rule148 _patsIcopy arg_pos_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule150 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule145 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule146 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule147 _patsIlocals in
let !_output = rule149 _patsIoutput arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule151 _output in
let !__result_ = T_Pattern_vOut22 _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v23 :: T_Pattern_v23
v23 = \ !(T_Pattern_vIn23 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut21 _patsIcontainsVars _patsIcopy _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v21 (T_Patterns_vIn21 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule144 _patsIcontainsVars in
let !_copy = rule148 _patsIcopy arg_pos_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule150 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule145 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule146 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule147 _patsIlocals in
let !_output = rule149 _patsIoutput arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule151 _output in
let !__result_ = T_Pattern_vOut23 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v28 :: T_Pattern_v28
v28 = \ !(T_Pattern_vIn28 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut41 _patsIcontainsVars _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v41 (T_Patterns_vIn41 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule144 _patsIcontainsVars in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule145 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule146 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule147 _patsIlocals in
let !_output = rule149 _patsIoutput arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule151 _output in
let !__result_ = T_Pattern_vOut28 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v42 :: T_Pattern_v42
v42 = \ !(T_Pattern_vIn42 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut49 _patsIdefinedAttrs _patsIerrors _patsIlocals _patsIoutput) = inv_Patterns_s12 _patsX12 K_Patterns_v49 (T_Patterns_vIn49 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule145 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule146 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule147 _patsIlocals in
let !_output = rule149 _patsIoutput arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule151 _output in
let !__result_ = T_Pattern_vOut42 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v50 :: T_Pattern_v50
v50 = \ !(T_Pattern_vIn50 ) -> (
let !_patsX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_pats_)) in
let !(T_Patterns_vOut54 _patsIdefinedAttrs _patsIerrors _patsIlocals _patsX57) = inv_Patterns_s12 _patsX12 K_Patterns_v54 (T_Patterns_vIn54 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule145 _patsIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule146 _patsIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule147 _patsIlocals in
let !__st_ = st55 _patsX57
!__result_ = T_Pattern_vOut50 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals __st_
in __result_ )
in C_Pattern_s10 k10
{-# NOINLINE st55 #-}
st55 = \ !_patsX57 -> let
k55 :: K_Pattern_s55 t -> t
k55 K_Pattern_v51 = v51
k55 K_Pattern_v56 = v56
v51 :: T_Pattern_v51
v51 = \ !(T_Pattern_vIn51 ) -> (
let !(T_Patterns_vOut55 _patsIcontainsVars _patsIoutput) = inv_Patterns_s57 _patsX57 K_Patterns_v55 (T_Patterns_vIn55 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule144 _patsIcontainsVars in
let !_output = rule149 _patsIoutput arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule151 _output in
let !__result_ = T_Pattern_vOut51 _lhsOcontainsVars _lhsOoutput
in __result_ )
v56 :: T_Pattern_v56
v56 = \ !(T_Pattern_vIn56 ) -> (
let !(T_Patterns_vOut57 _patsIoutput) = inv_Patterns_s57 _patsX57 K_Patterns_v57 (T_Patterns_vIn57 ) in
let !_output = rule149 _patsIoutput arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule151 _output in
let !__result_ = T_Pattern_vOut56 _lhsOoutput
in __result_ )
in C_Pattern_s55 k55
{-# NOINLINE[1] rule144 #-}
rule144 = \ ((!_patsIcontainsVars) :: Bool) ->
_patsIcontainsVars
{-# NOINLINE[1] rule145 #-}
rule145 = \ ((!_patsIdefinedAttrs) :: Set (Identifier,Identifier)) ->
_patsIdefinedAttrs
{-# NOINLINE[1] rule146 #-}
rule146 = \ ((!_patsIerrors) :: Seq Error) ->
_patsIerrors
{-# NOINLINE[1] rule147 #-}
rule147 = \ ((!_patsIlocals) :: Set Identifier) ->
_patsIlocals
{-# NOINLINE[1] rule148 #-}
rule148 = \ ((!_patsIcopy) :: Patterns) !pos_ ->
Product pos_ _patsIcopy
{-# NOINLINE[1] rule149 #-}
rule149 = \ ((!_patsIoutput) :: Patterns) !pos_ ->
Product pos_ _patsIoutput
{-# NOINLINE[1] rule150 #-}
rule150 = \ !_copy ->
_copy
{-# NOINLINE[1] rule151 #-}
rule151 = \ !_output ->
_output
{-# NOINLINE sem_Pattern_Alias #-}
sem_Pattern_Alias :: (Identifier) -> (Identifier) -> T_Pattern -> T_Pattern
sem_Pattern_Alias !arg_field_ !arg_attr_ arg_pat_ = T_Pattern (return st10) where
{-# NOINLINE st10 #-}
!st10 = let
k10 :: K_Pattern_s10 t -> t
k10 K_Pattern_v5 = v5
k10 K_Pattern_v22 = v22
k10 K_Pattern_v23 = v23
k10 K_Pattern_v28 = v28
k10 K_Pattern_v42 = v42
k10 K_Pattern_v50 = v50
v5 :: T_Pattern_v5
v5 = \ !(T_Pattern_vIn5 _lhsIcon _lhsInt) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule156 () in
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut22 _patIcopy _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v22 (T_Pattern_vIn22 ) in
let !_copy = rule158 _patIcopy arg_attr_ arg_field_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule160 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule154 _patIdefinedAttrs arg_attr_ arg_field_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule157 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule155 _patIlocals arg_attr_ arg_field_ in
let !_output = rule159 _patIoutput arg_attr_ arg_field_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule161 _output in
let !__result_ = T_Pattern_vOut5 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v22 :: T_Pattern_v22
v22 = \ !(T_Pattern_vIn22 ) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut22 _patIcopy _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v22 (T_Pattern_vIn22 ) in
let !_copy = rule158 _patIcopy arg_attr_ arg_field_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule160 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule154 _patIdefinedAttrs arg_attr_ arg_field_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule157 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule155 _patIlocals arg_attr_ arg_field_ in
let !_output = rule159 _patIoutput arg_attr_ arg_field_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule161 _output in
let !__result_ = T_Pattern_vOut22 _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v23 :: T_Pattern_v23
v23 = \ !(T_Pattern_vIn23 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule156 () in
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut22 _patIcopy _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v22 (T_Pattern_vIn22 ) in
let !_copy = rule158 _patIcopy arg_attr_ arg_field_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule160 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule154 _patIdefinedAttrs arg_attr_ arg_field_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule157 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule155 _patIlocals arg_attr_ arg_field_ in
let !_output = rule159 _patIoutput arg_attr_ arg_field_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule161 _output in
let !__result_ = T_Pattern_vOut23 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v28 :: T_Pattern_v28
v28 = \ !(T_Pattern_vIn28 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule156 () in
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut42 _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v42 (T_Pattern_vIn42 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule154 _patIdefinedAttrs arg_attr_ arg_field_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule157 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule155 _patIlocals arg_attr_ arg_field_ in
let !_output = rule159 _patIoutput arg_attr_ arg_field_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule161 _output in
let !__result_ = T_Pattern_vOut28 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v42 :: T_Pattern_v42
v42 = \ !(T_Pattern_vIn42 ) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut42 _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v42 (T_Pattern_vIn42 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule154 _patIdefinedAttrs arg_attr_ arg_field_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule157 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule155 _patIlocals arg_attr_ arg_field_ in
let !_output = rule159 _patIoutput arg_attr_ arg_field_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule161 _output in
let !__result_ = T_Pattern_vOut42 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v50 :: T_Pattern_v50
v50 = \ !(T_Pattern_vIn50 ) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut50 _patIdefinedAttrs _patIerrors _patIlocals _patX55) = inv_Pattern_s10 _patX10 K_Pattern_v50 (T_Pattern_vIn50 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule154 _patIdefinedAttrs arg_attr_ arg_field_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule157 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule155 _patIlocals arg_attr_ arg_field_ in
let !__st_ = st55 _patX55
!__result_ = T_Pattern_vOut50 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals __st_
in __result_ )
in C_Pattern_s10 k10
{-# NOINLINE st55 #-}
st55 = \ !_patX55 -> let
k55 :: K_Pattern_s55 t -> t
k55 K_Pattern_v51 = v51
k55 K_Pattern_v56 = v56
v51 :: T_Pattern_v51
v51 = \ !(T_Pattern_vIn51 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule156 () in
let !(T_Pattern_vOut56 _patIoutput) = inv_Pattern_s55 _patX55 K_Pattern_v56 (T_Pattern_vIn56 ) in
let !_output = rule159 _patIoutput arg_attr_ arg_field_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule161 _output in
let !__result_ = T_Pattern_vOut51 _lhsOcontainsVars _lhsOoutput
in __result_ )
v56 :: T_Pattern_v56
v56 = \ !(T_Pattern_vIn56 ) -> (
let !(T_Pattern_vOut56 _patIoutput) = inv_Pattern_s55 _patX55 K_Pattern_v56 (T_Pattern_vIn56 ) in
let !_output = rule159 _patIoutput arg_attr_ arg_field_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule161 _output in
let !__result_ = T_Pattern_vOut56 _lhsOoutput
in __result_ )
in C_Pattern_s55 k55
{-# NOINLINE rule154 #-}
{-# LINE 564 "src-ag/DefaultRules.ag" #-}
rule154 = \ ((!_patIdefinedAttrs) :: Set (Identifier,Identifier)) !attr_ !field_ ->
{-# LINE 564 "src-ag/DefaultRules.ag" #-}
Set.insert (field_,attr_) _patIdefinedAttrs
{-# LINE 2614 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule155 #-}
{-# LINE 565 "src-ag/DefaultRules.ag" #-}
rule155 = \ ((!_patIlocals) :: Set Identifier) !attr_ !field_ ->
{-# LINE 565 "src-ag/DefaultRules.ag" #-}
if field_ == _LOC
then Set.insert attr_ _patIlocals
else _patIlocals
{-# LINE 2622 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE rule156 #-}
{-# LINE 582 "src-ag/DefaultRules.ag" #-}
rule156 = \ (_ :: ()) ->
{-# LINE 582 "src-ag/DefaultRules.ag" #-}
True
{-# LINE 2628 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule157 #-}
rule157 = \ ((!_patIerrors) :: Seq Error) ->
_patIerrors
{-# NOINLINE[1] rule158 #-}
rule158 = \ ((!_patIcopy) :: Pattern) !attr_ !field_ ->
Alias field_ attr_ _patIcopy
{-# NOINLINE[1] rule159 #-}
rule159 = \ ((!_patIoutput) :: Pattern) !attr_ !field_ ->
Alias field_ attr_ _patIoutput
{-# NOINLINE[1] rule160 #-}
rule160 = \ !_copy ->
_copy
{-# NOINLINE[1] rule161 #-}
rule161 = \ !_output ->
_output
{-# NOINLINE sem_Pattern_Irrefutable #-}
sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern
sem_Pattern_Irrefutable arg_pat_ = T_Pattern (return st10) where
{-# NOINLINE st10 #-}
!st10 = let
k10 :: K_Pattern_s10 t -> t
k10 K_Pattern_v5 = v5
k10 K_Pattern_v22 = v22
k10 K_Pattern_v23 = v23
k10 K_Pattern_v28 = v28
k10 K_Pattern_v42 = v42
k10 K_Pattern_v50 = v50
v5 :: T_Pattern_v5
v5 = \ !(T_Pattern_vIn5 _lhsIcon _lhsInt) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut23 _patIcontainsVars _patIcopy _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v23 (T_Pattern_vIn23 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule164 _patIcontainsVars in
let !_copy = rule168 _patIcopy in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule170 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule165 _patIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule166 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule167 _patIlocals in
let !_output = rule169 _patIoutput in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule171 _output in
let !__result_ = T_Pattern_vOut5 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v22 :: T_Pattern_v22
v22 = \ !(T_Pattern_vIn22 ) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut22 _patIcopy _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v22 (T_Pattern_vIn22 ) in
let !_copy = rule168 _patIcopy in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule170 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule165 _patIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule166 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule167 _patIlocals in
let !_output = rule169 _patIoutput in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule171 _output in
let !__result_ = T_Pattern_vOut22 _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v23 :: T_Pattern_v23
v23 = \ !(T_Pattern_vIn23 ) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut23 _patIcontainsVars _patIcopy _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v23 (T_Pattern_vIn23 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule164 _patIcontainsVars in
let !_copy = rule168 _patIcopy in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule170 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule165 _patIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule166 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule167 _patIlocals in
let !_output = rule169 _patIoutput in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule171 _output in
let !__result_ = T_Pattern_vOut23 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v28 :: T_Pattern_v28
v28 = \ !(T_Pattern_vIn28 ) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut28 _patIcontainsVars _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v28 (T_Pattern_vIn28 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule164 _patIcontainsVars in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule165 _patIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule166 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule167 _patIlocals in
let !_output = rule169 _patIoutput in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule171 _output in
let !__result_ = T_Pattern_vOut28 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v42 :: T_Pattern_v42
v42 = \ !(T_Pattern_vIn42 ) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut42 _patIdefinedAttrs _patIerrors _patIlocals _patIoutput) = inv_Pattern_s10 _patX10 K_Pattern_v42 (T_Pattern_vIn42 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule165 _patIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule166 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule167 _patIlocals in
let !_output = rule169 _patIoutput in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule171 _output in
let !__result_ = T_Pattern_vOut42 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v50 :: T_Pattern_v50
v50 = \ !(T_Pattern_vIn50 ) -> (
let !_patX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pat_)) in
let !(T_Pattern_vOut50 _patIdefinedAttrs _patIerrors _patIlocals _patX55) = inv_Pattern_s10 _patX10 K_Pattern_v50 (T_Pattern_vIn50 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule165 _patIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule166 _patIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule167 _patIlocals in
let !__st_ = st55 _patX55
!__result_ = T_Pattern_vOut50 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals __st_
in __result_ )
in C_Pattern_s10 k10
{-# NOINLINE st55 #-}
st55 = \ !_patX55 -> let
k55 :: K_Pattern_s55 t -> t
k55 K_Pattern_v51 = v51
k55 K_Pattern_v56 = v56
v51 :: T_Pattern_v51
v51 = \ !(T_Pattern_vIn51 ) -> (
let !(T_Pattern_vOut51 _patIcontainsVars _patIoutput) = inv_Pattern_s55 _patX55 K_Pattern_v51 (T_Pattern_vIn51 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule164 _patIcontainsVars in
let !_output = rule169 _patIoutput in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule171 _output in
let !__result_ = T_Pattern_vOut51 _lhsOcontainsVars _lhsOoutput
in __result_ )
v56 :: T_Pattern_v56
v56 = \ !(T_Pattern_vIn56 ) -> (
let !(T_Pattern_vOut56 _patIoutput) = inv_Pattern_s55 _patX55 K_Pattern_v56 (T_Pattern_vIn56 ) in
let !_output = rule169 _patIoutput in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule171 _output in
let !__result_ = T_Pattern_vOut56 _lhsOoutput
in __result_ )
in C_Pattern_s55 k55
{-# NOINLINE[1] rule164 #-}
rule164 = \ ((!_patIcontainsVars) :: Bool) ->
_patIcontainsVars
{-# NOINLINE[1] rule165 #-}
rule165 = \ ((!_patIdefinedAttrs) :: Set (Identifier,Identifier)) ->
_patIdefinedAttrs
{-# NOINLINE[1] rule166 #-}
rule166 = \ ((!_patIerrors) :: Seq Error) ->
_patIerrors
{-# NOINLINE[1] rule167 #-}
rule167 = \ ((!_patIlocals) :: Set Identifier) ->
_patIlocals
{-# NOINLINE[1] rule168 #-}
rule168 = \ ((!_patIcopy) :: Pattern) ->
Irrefutable _patIcopy
{-# NOINLINE[1] rule169 #-}
rule169 = \ ((!_patIoutput) :: Pattern) ->
Irrefutable _patIoutput
{-# NOINLINE[1] rule170 #-}
rule170 = \ !_copy ->
_copy
{-# NOINLINE[1] rule171 #-}
rule171 = \ !_output ->
_output
{-# NOINLINE sem_Pattern_Underscore #-}
sem_Pattern_Underscore :: (Pos) -> T_Pattern
sem_Pattern_Underscore !arg_pos_ = T_Pattern (return st10) where
{-# NOINLINE st10 #-}
!st10 = let
k10 :: K_Pattern_s10 t -> t
k10 K_Pattern_v5 = v5
k10 K_Pattern_v22 = v22
k10 K_Pattern_v23 = v23
k10 K_Pattern_v28 = v28
k10 K_Pattern_v42 = v42
k10 K_Pattern_v50 = v50
v5 :: T_Pattern_v5
v5 = \ !(T_Pattern_vIn5 _lhsIcon _lhsInt) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule174 () in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule175 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule176 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule177 () in
let !_copy = rule178 arg_pos_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule180 _copy in
let !_output = rule179 arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule181 _output in
let !__result_ = T_Pattern_vOut5 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v22 :: T_Pattern_v22
v22 = \ !(T_Pattern_vIn22 ) -> (
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule175 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule176 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule177 () in
let !_copy = rule178 arg_pos_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule180 _copy in
let !_output = rule179 arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule181 _output in
let !__result_ = T_Pattern_vOut22 _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v23 :: T_Pattern_v23
v23 = \ !(T_Pattern_vIn23 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule174 () in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule175 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule176 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule177 () in
let !_copy = rule178 arg_pos_ in
let _lhsOcopy :: Pattern
!_lhsOcopy = rule180 _copy in
let !_output = rule179 arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule181 _output in
let !__result_ = T_Pattern_vOut23 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v28 :: T_Pattern_v28
v28 = \ !(T_Pattern_vIn28 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule174 () in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule175 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule176 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule177 () in
let !_output = rule179 arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule181 _output in
let !__result_ = T_Pattern_vOut28 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v42 :: T_Pattern_v42
v42 = \ !(T_Pattern_vIn42 ) -> (
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule175 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule176 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule177 () in
let !_output = rule179 arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule181 _output in
let !__result_ = T_Pattern_vOut42 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v50 :: T_Pattern_v50
v50 = \ !(T_Pattern_vIn50 ) -> (
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule175 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule176 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule177 () in
let !__st_ = st55 ()
!__result_ = T_Pattern_vOut50 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals __st_
in __result_ )
in C_Pattern_s10 k10
{-# NOINLINE st55 #-}
st55 = \ (_ :: ()) -> let
k55 :: K_Pattern_s55 t -> t
k55 K_Pattern_v51 = v51
k55 K_Pattern_v56 = v56
v51 :: T_Pattern_v51
v51 = \ !(T_Pattern_vIn51 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule174 () in
let !_output = rule179 arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule181 _output in
let !__result_ = T_Pattern_vOut51 _lhsOcontainsVars _lhsOoutput
in __result_ )
v56 :: T_Pattern_v56
v56 = \ !(T_Pattern_vIn56 ) -> (
let !_output = rule179 arg_pos_ in
let _lhsOoutput :: Pattern
!_lhsOoutput = rule181 _output in
let !__result_ = T_Pattern_vOut56 _lhsOoutput
in __result_ )
in C_Pattern_s55 k55
{-# NOINLINE[1] rule174 #-}
rule174 = \ (_ :: ()) ->
False
{-# NOINLINE[1] rule175 #-}
rule175 = \ (_ :: ()) ->
Set.empty
{-# NOINLINE[1] rule176 #-}
rule176 = \ (_ :: ()) ->
Seq.empty
{-# NOINLINE[1] rule177 #-}
rule177 = \ (_ :: ()) ->
Set.empty
{-# NOINLINE[1] rule178 #-}
rule178 = \ !pos_ ->
Underscore pos_
{-# NOINLINE[1] rule179 #-}
rule179 = \ !pos_ ->
Underscore pos_
{-# NOINLINE[1] rule180 #-}
rule180 = \ !_copy ->
_copy
{-# NOINLINE[1] rule181 #-}
rule181 = \ !_output ->
_output
data Inh_Patterns = Inh_Patterns { con_Inh_Patterns :: !(ConstructorIdent), nt_Inh_Patterns :: !(NontermIdent) }
data Syn_Patterns = Syn_Patterns { containsVars_Syn_Patterns :: !(Bool), copy_Syn_Patterns :: !(Patterns), definedAttrs_Syn_Patterns :: !(Set (Identifier,Identifier)), errors_Syn_Patterns :: !(Seq Error), locals_Syn_Patterns :: !(Set Identifier), output_Syn_Patterns :: !(Patterns) }
{-# INLINABLE wrap_Patterns #-}
wrap_Patterns :: T_Patterns -> Inh_Patterns -> (Syn_Patterns )
wrap_Patterns !(T_Patterns act) !(Inh_Patterns _lhsIcon _lhsInt) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg6 = T_Patterns_vIn6 _lhsIcon _lhsInt
!(T_Patterns_vOut6 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput) <- return (inv_Patterns_s12 sem K_Patterns_v6 arg6)
return (Syn_Patterns _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)
)
{-# NOINLINE sem_Patterns #-}
sem_Patterns :: Patterns -> T_Patterns
sem_Patterns list = Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list)
newtype T_Patterns = T_Patterns {
attach_T_Patterns :: Identity (T_Patterns_s12 )
}
data T_Patterns_s12 where C_Patterns_s12 :: {
inv_Patterns_s12 :: !(forall t. K_Patterns_s12 t -> t)
} -> T_Patterns_s12
data T_Patterns_s13 = C_Patterns_s13
data T_Patterns_s34 = C_Patterns_s34
data T_Patterns_s47 = C_Patterns_s47
data T_Patterns_s49 = C_Patterns_s49
data T_Patterns_s54 = C_Patterns_s54
data T_Patterns_s57 where C_Patterns_s57 :: {
inv_Patterns_s57 :: !(forall t. K_Patterns_s57 t -> t)
} -> T_Patterns_s57
data K_Patterns_s12 k where
K_Patterns_v6 :: K_Patterns_s12 (T_Patterns_v6 )
K_Patterns_v21 :: K_Patterns_s12 (T_Patterns_v21 )
K_Patterns_v38 :: K_Patterns_s12 (T_Patterns_v38 )
K_Patterns_v41 :: K_Patterns_s12 (T_Patterns_v41 )
K_Patterns_v49 :: K_Patterns_s12 (T_Patterns_v49 )
K_Patterns_v54 :: K_Patterns_s12 (T_Patterns_v54 )
data K_Patterns_s57 k where
K_Patterns_v55 :: K_Patterns_s57 (T_Patterns_v55 )
K_Patterns_v57 :: K_Patterns_s57 (T_Patterns_v57 )
type T_Patterns_v6 = (T_Patterns_vIn6 ) -> (T_Patterns_vOut6 )
data T_Patterns_vIn6 = T_Patterns_vIn6 !(ConstructorIdent) !(NontermIdent)
data T_Patterns_vOut6 = T_Patterns_vOut6 !(Bool) !(Patterns) !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Patterns)
type T_Patterns_v21 = (T_Patterns_vIn21 ) -> (T_Patterns_vOut21 )
data T_Patterns_vIn21 = T_Patterns_vIn21
data T_Patterns_vOut21 = T_Patterns_vOut21 !(Bool) !(Patterns) !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Patterns)
type T_Patterns_v38 = (T_Patterns_vIn38 ) -> (T_Patterns_vOut38 )
data T_Patterns_vIn38 = T_Patterns_vIn38
data T_Patterns_vOut38 = T_Patterns_vOut38 !(Patterns) !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Patterns)
type T_Patterns_v41 = (T_Patterns_vIn41 ) -> (T_Patterns_vOut41 )
data T_Patterns_vIn41 = T_Patterns_vIn41
data T_Patterns_vOut41 = T_Patterns_vOut41 !(Bool) !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Patterns)
type T_Patterns_v49 = (T_Patterns_vIn49 ) -> (T_Patterns_vOut49 )
data T_Patterns_vIn49 = T_Patterns_vIn49
data T_Patterns_vOut49 = T_Patterns_vOut49 !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Patterns)
type T_Patterns_v54 = (T_Patterns_vIn54 ) -> (T_Patterns_vOut54 )
data T_Patterns_vIn54 = T_Patterns_vIn54
data T_Patterns_vOut54 = T_Patterns_vOut54 !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(T_Patterns_s57 )
type T_Patterns_v55 = (T_Patterns_vIn55 ) -> (T_Patterns_vOut55 )
data T_Patterns_vIn55 = T_Patterns_vIn55
data T_Patterns_vOut55 = T_Patterns_vOut55 !(Bool) !(Patterns)
type T_Patterns_v57 = (T_Patterns_vIn57 ) -> (T_Patterns_vOut57 )
data T_Patterns_vIn57 = T_Patterns_vIn57
data T_Patterns_vOut57 = T_Patterns_vOut57 !(Patterns)
{-# NOINLINE sem_Patterns_Cons #-}
sem_Patterns_Cons :: T_Pattern -> T_Patterns -> T_Patterns
sem_Patterns_Cons arg_hd_ arg_tl_ = T_Patterns (return st12) where
{-# NOINLINE st12 #-}
!st12 = let
k12 :: K_Patterns_s12 t -> t
k12 K_Patterns_v6 = v6
k12 K_Patterns_v21 = v21
k12 K_Patterns_v38 = v38
k12 K_Patterns_v41 = v41
k12 K_Patterns_v49 = v49
k12 K_Patterns_v54 = v54
v6 :: T_Patterns_v6
v6 = \ !(T_Patterns_vIn6 _lhsIcon _lhsInt) -> (
let !_hdX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_hd_)) in
let !_tlX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_tl_)) in
let !(T_Pattern_vOut23 _hdIcontainsVars _hdIcopy _hdIdefinedAttrs _hdIerrors _hdIlocals _hdIoutput) = inv_Pattern_s10 _hdX10 K_Pattern_v23 (T_Pattern_vIn23 ) in
let !(T_Patterns_vOut21 _tlIcontainsVars _tlIcopy _tlIdefinedAttrs _tlIerrors _tlIlocals _tlIoutput) = inv_Patterns_s12 _tlX12 K_Patterns_v21 (T_Patterns_vIn21 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule182 _hdIcontainsVars _tlIcontainsVars in
let !_copy = rule186 _hdIcopy _tlIcopy in
let _lhsOcopy :: Patterns
!_lhsOcopy = rule188 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule183 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule184 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule185 _hdIlocals _tlIlocals in
let !_output = rule187 _hdIoutput _tlIoutput in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule189 _output in
let !__result_ = T_Patterns_vOut6 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v21 :: T_Patterns_v21
v21 = \ !(T_Patterns_vIn21 ) -> (
let !_hdX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_hd_)) in
let !_tlX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_tl_)) in
let !(T_Pattern_vOut23 _hdIcontainsVars _hdIcopy _hdIdefinedAttrs _hdIerrors _hdIlocals _hdIoutput) = inv_Pattern_s10 _hdX10 K_Pattern_v23 (T_Pattern_vIn23 ) in
let !(T_Patterns_vOut21 _tlIcontainsVars _tlIcopy _tlIdefinedAttrs _tlIerrors _tlIlocals _tlIoutput) = inv_Patterns_s12 _tlX12 K_Patterns_v21 (T_Patterns_vIn21 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule182 _hdIcontainsVars _tlIcontainsVars in
let !_copy = rule186 _hdIcopy _tlIcopy in
let _lhsOcopy :: Patterns
!_lhsOcopy = rule188 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule183 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule184 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule185 _hdIlocals _tlIlocals in
let !_output = rule187 _hdIoutput _tlIoutput in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule189 _output in
let !__result_ = T_Patterns_vOut21 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v38 :: T_Patterns_v38
v38 = \ !(T_Patterns_vIn38 ) -> (
let !_hdX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_hd_)) in
let !_tlX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_tl_)) in
let !(T_Pattern_vOut22 _hdIcopy _hdIdefinedAttrs _hdIerrors _hdIlocals _hdIoutput) = inv_Pattern_s10 _hdX10 K_Pattern_v22 (T_Pattern_vIn22 ) in
let !(T_Patterns_vOut38 _tlIcopy _tlIdefinedAttrs _tlIerrors _tlIlocals _tlIoutput) = inv_Patterns_s12 _tlX12 K_Patterns_v38 (T_Patterns_vIn38 ) in
let !_copy = rule186 _hdIcopy _tlIcopy in
let _lhsOcopy :: Patterns
!_lhsOcopy = rule188 _copy in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule183 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule184 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule185 _hdIlocals _tlIlocals in
let !_output = rule187 _hdIoutput _tlIoutput in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule189 _output in
let !__result_ = T_Patterns_vOut38 _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v41 :: T_Patterns_v41
v41 = \ !(T_Patterns_vIn41 ) -> (
let !_hdX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_hd_)) in
let !_tlX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_tl_)) in
let !(T_Pattern_vOut28 _hdIcontainsVars _hdIdefinedAttrs _hdIerrors _hdIlocals _hdIoutput) = inv_Pattern_s10 _hdX10 K_Pattern_v28 (T_Pattern_vIn28 ) in
let !(T_Patterns_vOut41 _tlIcontainsVars _tlIdefinedAttrs _tlIerrors _tlIlocals _tlIoutput) = inv_Patterns_s12 _tlX12 K_Patterns_v41 (T_Patterns_vIn41 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule182 _hdIcontainsVars _tlIcontainsVars in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule183 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule184 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule185 _hdIlocals _tlIlocals in
let !_output = rule187 _hdIoutput _tlIoutput in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule189 _output in
let !__result_ = T_Patterns_vOut41 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v49 :: T_Patterns_v49
v49 = \ !(T_Patterns_vIn49 ) -> (
let !_hdX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_hd_)) in
let !_tlX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_tl_)) in
let !(T_Pattern_vOut42 _hdIdefinedAttrs _hdIerrors _hdIlocals _hdIoutput) = inv_Pattern_s10 _hdX10 K_Pattern_v42 (T_Pattern_vIn42 ) in
let !(T_Patterns_vOut49 _tlIdefinedAttrs _tlIerrors _tlIlocals _tlIoutput) = inv_Patterns_s12 _tlX12 K_Patterns_v49 (T_Patterns_vIn49 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule183 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule184 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule185 _hdIlocals _tlIlocals in
let !_output = rule187 _hdIoutput _tlIoutput in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule189 _output in
let !__result_ = T_Patterns_vOut49 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v54 :: T_Patterns_v54
v54 = \ !(T_Patterns_vIn54 ) -> (
let !_hdX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_hd_)) in
let !_tlX12 = Control.Monad.Identity.runIdentity (attach_T_Patterns (arg_tl_)) in
let !(T_Pattern_vOut50 _hdIdefinedAttrs _hdIerrors _hdIlocals _hdX55) = inv_Pattern_s10 _hdX10 K_Pattern_v50 (T_Pattern_vIn50 ) in
let !(T_Patterns_vOut54 _tlIdefinedAttrs _tlIerrors _tlIlocals _tlX57) = inv_Patterns_s12 _tlX12 K_Patterns_v54 (T_Patterns_vIn54 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule183 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule184 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule185 _hdIlocals _tlIlocals in
let !__st_ = st57 _hdX55 _tlX57
!__result_ = T_Patterns_vOut54 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals __st_
in __result_ )
in C_Patterns_s12 k12
{-# NOINLINE st57 #-}
st57 = \ !_hdX55 !_tlX57 -> let
k57 :: K_Patterns_s57 t -> t
k57 K_Patterns_v55 = v55
k57 K_Patterns_v57 = v57
v55 :: T_Patterns_v55
v55 = \ !(T_Patterns_vIn55 ) -> (
let !(T_Pattern_vOut51 _hdIcontainsVars _hdIoutput) = inv_Pattern_s55 _hdX55 K_Pattern_v51 (T_Pattern_vIn51 ) in
let !(T_Patterns_vOut55 _tlIcontainsVars _tlIoutput) = inv_Patterns_s57 _tlX57 K_Patterns_v55 (T_Patterns_vIn55 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule182 _hdIcontainsVars _tlIcontainsVars in
let !_output = rule187 _hdIoutput _tlIoutput in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule189 _output in
let !__result_ = T_Patterns_vOut55 _lhsOcontainsVars _lhsOoutput
in __result_ )
v57 :: T_Patterns_v57
v57 = \ !(T_Patterns_vIn57 ) -> (
let !(T_Pattern_vOut56 _hdIoutput) = inv_Pattern_s55 _hdX55 K_Pattern_v56 (T_Pattern_vIn56 ) in
let !(T_Patterns_vOut57 _tlIoutput) = inv_Patterns_s57 _tlX57 K_Patterns_v57 (T_Patterns_vIn57 ) in
let !_output = rule187 _hdIoutput _tlIoutput in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule189 _output in
let !__result_ = T_Patterns_vOut57 _lhsOoutput
in __result_ )
in C_Patterns_s57 k57
{-# NOINLINE[1] rule182 #-}
rule182 = \ ((!_hdIcontainsVars) :: Bool) ((!_tlIcontainsVars) :: Bool) ->
_hdIcontainsVars || _tlIcontainsVars
{-# NOINLINE[1] rule183 #-}
rule183 = \ ((!_hdIdefinedAttrs) :: Set (Identifier,Identifier)) ((!_tlIdefinedAttrs) :: Set (Identifier,Identifier)) ->
_hdIdefinedAttrs `Set.union` _tlIdefinedAttrs
{-# NOINLINE[1] rule184 #-}
rule184 = \ ((!_hdIerrors) :: Seq Error) ((!_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# NOINLINE[1] rule185 #-}
rule185 = \ ((!_hdIlocals) :: Set Identifier) ((!_tlIlocals) :: Set Identifier) ->
_hdIlocals `Set.union` _tlIlocals
{-# NOINLINE[1] rule186 #-}
rule186 = \ ((!_hdIcopy) :: Pattern) ((!_tlIcopy) :: Patterns) ->
(:) _hdIcopy _tlIcopy
{-# NOINLINE[1] rule187 #-}
rule187 = \ ((!_hdIoutput) :: Pattern) ((!_tlIoutput) :: Patterns) ->
(:) _hdIoutput _tlIoutput
{-# NOINLINE[1] rule188 #-}
rule188 = \ !_copy ->
_copy
{-# NOINLINE[1] rule189 #-}
rule189 = \ !_output ->
_output
{-# NOINLINE sem_Patterns_Nil #-}
sem_Patterns_Nil :: T_Patterns
sem_Patterns_Nil = T_Patterns (return st12) where
{-# NOINLINE st12 #-}
!st12 = let
k12 :: K_Patterns_s12 t -> t
k12 K_Patterns_v6 = v6
k12 K_Patterns_v21 = v21
k12 K_Patterns_v38 = v38
k12 K_Patterns_v41 = v41
k12 K_Patterns_v49 = v49
k12 K_Patterns_v54 = v54
v6 :: T_Patterns_v6
v6 = \ !(T_Patterns_vIn6 _lhsIcon _lhsInt) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule194 () in
let !_copy = rule198 () in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule195 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule196 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule197 () in
let !_output = rule199 () in
let _lhsOcopy :: Patterns
!_lhsOcopy = rule200 _copy in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule201 _output in
let !__result_ = T_Patterns_vOut6 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v21 :: T_Patterns_v21
v21 = \ !(T_Patterns_vIn21 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule194 () in
let !_copy = rule198 () in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule195 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule196 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule197 () in
let !_output = rule199 () in
let _lhsOcopy :: Patterns
!_lhsOcopy = rule200 _copy in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule201 _output in
let !__result_ = T_Patterns_vOut21 _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v38 :: T_Patterns_v38
v38 = \ !(T_Patterns_vIn38 ) -> (
let !_copy = rule198 () in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule195 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule196 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule197 () in
let !_output = rule199 () in
let _lhsOcopy :: Patterns
!_lhsOcopy = rule200 _copy in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule201 _output in
let !__result_ = T_Patterns_vOut38 _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v41 :: T_Patterns_v41
v41 = \ !(T_Patterns_vIn41 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule194 () in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule195 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule196 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule197 () in
let !_output = rule199 () in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule201 _output in
let !__result_ = T_Patterns_vOut41 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v49 :: T_Patterns_v49
v49 = \ !(T_Patterns_vIn49 ) -> (
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule195 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule196 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule197 () in
let !_output = rule199 () in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule201 _output in
let !__result_ = T_Patterns_vOut49 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput
in __result_ )
v54 :: T_Patterns_v54
v54 = \ !(T_Patterns_vIn54 ) -> (
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule195 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule196 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule197 () in
let !__st_ = st57 ()
!__result_ = T_Patterns_vOut54 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals __st_
in __result_ )
in C_Patterns_s12 k12
{-# NOINLINE st57 #-}
st57 = \ (_ :: ()) -> let
k57 :: K_Patterns_s57 t -> t
k57 K_Patterns_v55 = v55
k57 K_Patterns_v57 = v57
v55 :: T_Patterns_v55
v55 = \ !(T_Patterns_vIn55 ) -> (
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule194 () in
let !_output = rule199 () in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule201 _output in
let !__result_ = T_Patterns_vOut55 _lhsOcontainsVars _lhsOoutput
in __result_ )
v57 :: T_Patterns_v57
v57 = \ !(T_Patterns_vIn57 ) -> (
let !_output = rule199 () in
let _lhsOoutput :: Patterns
!_lhsOoutput = rule201 _output in
let !__result_ = T_Patterns_vOut57 _lhsOoutput
in __result_ )
in C_Patterns_s57 k57
{-# NOINLINE[1] rule194 #-}
rule194 = \ (_ :: ()) ->
False
{-# NOINLINE[1] rule195 #-}
rule195 = \ (_ :: ()) ->
Set.empty
{-# NOINLINE[1] rule196 #-}
rule196 = \ (_ :: ()) ->
Seq.empty
{-# NOINLINE[1] rule197 #-}
rule197 = \ (_ :: ()) ->
Set.empty
{-# NOINLINE[1] rule198 #-}
rule198 = \ (_ :: ()) ->
[]
{-# NOINLINE[1] rule199 #-}
rule199 = \ (_ :: ()) ->
[]
{-# NOINLINE[1] rule200 #-}
rule200 = \ !_copy ->
_copy
{-# NOINLINE[1] rule201 #-}
rule201 = \ !_output ->
_output
data Inh_Production = Inh_Production { aroundsIn_Inh_Production :: !(Map ConstructorIdent (Map Identifier [Expression])), augmentsIn_Inh_Production :: !(Map ConstructorIdent (Map Identifier [Expression])), constructorTypeMap_Inh_Production :: !(Map NontermIdent ConstructorType), cr_Inh_Production :: !(Bool), inh_Inh_Production :: !(Attributes), inhMap_Inh_Production :: !(Map Identifier Attributes), inhOrig_Inh_Production :: !(Attributes), manualAttrOrderMap_Inh_Production :: !(AttrOrderMap), mergesIn_Inh_Production :: !(Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))), nonterminals_Inh_Production :: !(Set NontermIdent), nt_Inh_Production :: !(NontermIdent), o_rename_Inh_Production :: !(Bool), options_Inh_Production :: !(Options), params_Inh_Production :: !([Identifier]), syn_Inh_Production :: !(Attributes), synMap_Inh_Production :: !(Map Identifier Attributes), synOrig_Inh_Production :: !(Attributes), typeSyns_Inh_Production :: !(TypeSyns), uniq_Inh_Production :: !(Int), useMap_Inh_Production :: !(Map Identifier (String,String,String)), wrappers_Inh_Production :: !(Set NontermIdent) }
data Syn_Production = Syn_Production { errors_Syn_Production :: !(Seq Error), output_Syn_Production :: !(Production), uniq_Syn_Production :: !(Int) }
{-# INLINABLE wrap_Production #-}
wrap_Production :: T_Production -> Inh_Production -> (Syn_Production )
wrap_Production !(T_Production act) !(Inh_Production _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsIinhOrig _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg7 = T_Production_vIn7 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsIinhOrig _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers
!(T_Production_vOut7 _lhsOerrors _lhsOoutput _lhsOuniq) <- return (inv_Production_s14 sem K_Production_v7 arg7)
return (Syn_Production _lhsOerrors _lhsOoutput _lhsOuniq)
)
{-# INLINE sem_Production #-}
sem_Production :: Production -> T_Production
sem_Production ( Production !con_ !params_ !constraints_ children_ rules_ typeSigs_ !macro_ ) = sem_Production_Production con_ params_ constraints_ ( sem_Children children_ ) ( sem_Rules rules_ ) ( sem_TypeSigs typeSigs_ ) macro_
newtype T_Production = T_Production {
attach_T_Production :: Identity (T_Production_s14 )
}
data T_Production_s14 where C_Production_s14 :: {
inv_Production_s14 :: !(forall t. K_Production_s14 t -> t)
} -> T_Production_s14
data T_Production_s15 = C_Production_s15
data T_Production_s38 = C_Production_s38
newtype T_Production_s48 = C_Production_s48 {
inv_Production_s48 :: (T_Production_v40 )
}
data K_Production_s14 k where
K_Production_v7 :: K_Production_s14 (T_Production_v7 )
K_Production_v25 :: K_Production_s14 (T_Production_v25 )
K_Production_v39 :: K_Production_s14 (T_Production_v39 )
type T_Production_v7 = (T_Production_vIn7 ) -> (T_Production_vOut7 )
data T_Production_vIn7 = T_Production_vIn7 !(Map ConstructorIdent (Map Identifier [Expression])) !(Map ConstructorIdent (Map Identifier [Expression])) !(Map NontermIdent ConstructorType) !(Bool) !(Attributes) !(Map Identifier Attributes) !(Attributes) !(AttrOrderMap) !(Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) !(Set NontermIdent) !(NontermIdent) !(Bool) !(Options) !([Identifier]) !(Attributes) !(Map Identifier Attributes) !(Attributes) !(TypeSyns) !(Int) !(Map Identifier (String,String,String)) !(Set NontermIdent)
data T_Production_vOut7 = T_Production_vOut7 !(Seq Error) !(Production) !(Int)
type T_Production_v25 = (T_Production_vIn25 ) -> (T_Production_vOut25 )
data T_Production_vIn25 = T_Production_vIn25 !(Map ConstructorIdent (Map Identifier [Expression])) !(Map ConstructorIdent (Map Identifier [Expression])) !(Map NontermIdent ConstructorType) !(Bool) !(Attributes) !(Map Identifier Attributes) !(AttrOrderMap) !(Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) !(NontermIdent) !(Bool) !(Options) !([Identifier]) !(Attributes) !(Map Identifier Attributes) !(Attributes) !(TypeSyns) !(Int) !(Map Identifier (String,String,String)) !(Set NontermIdent)
data T_Production_vOut25 = T_Production_vOut25 !(Seq Error) !(Production) !(Int)
type T_Production_v39 = (T_Production_vIn39 ) -> (T_Production_vOut39 )
data T_Production_vIn39 = T_Production_vIn39 !(Map NontermIdent ConstructorType) !(Bool) !(Attributes) !(Map Identifier Attributes) !(AttrOrderMap) !(Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) !(NontermIdent) !(Bool) !(Options) !(Attributes) !(Map Identifier Attributes) !(Attributes) !(TypeSyns) !(Map Identifier (String,String,String)) !(Set NontermIdent)
data T_Production_vOut39 = T_Production_vOut39 !(Seq Error) !(T_Production_s48 )
type T_Production_v40 = (T_Production_vIn40 ) -> (T_Production_vOut40 )
data T_Production_vIn40 = T_Production_vIn40 !(Map ConstructorIdent (Map Identifier [Expression])) !(Map ConstructorIdent (Map Identifier [Expression])) !([Identifier]) !(Int)
data T_Production_vOut40 = T_Production_vOut40 !(Production) !(Int)
{-# NOINLINE sem_Production_Production #-}
sem_Production_Production :: (ConstructorIdent) -> ([Identifier]) -> ([Type]) -> T_Children -> T_Rules -> T_TypeSigs -> (MaybeMacro) -> T_Production
sem_Production_Production !arg_con_ !arg_params_ !arg_constraints_ arg_children_ arg_rules_ arg_typeSigs_ !arg_macro_ = T_Production (return st14) where
{-# NOINLINE st14 #-}
!st14 = let
k14 :: K_Production_s14 t -> t
k14 K_Production_v7 = v7
k14 K_Production_v25 = v25
k14 K_Production_v39 = v39
v7 :: T_Production_v7
v7 = \ !(T_Production_vIn7 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsIinhOrig _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_childrenX2 = Control.Monad.Identity.runIdentity (attach_T_Children (arg_children_)) in
let !_rulesX20 = Control.Monad.Identity.runIdentity (attach_T_Rules (arg_rules_)) in
let !_typeSigsX24 = Control.Monad.Identity.runIdentity (attach_T_TypeSigs (arg_typeSigs_)) in
let !_childrenOinhMap = rule219 _lhsIinhMap in
let !_mergesIn = rule214 _lhsImergesIn arg_con_ in
let !_merged = rule215 _mergesIn in
let !_childrenOmerged = rule220 _merged in
let !_childrenOsynMap = rule223 _lhsIsynMap in
let !_orderDeps = rule210 _lhsImanualAttrOrderMap _lhsInt arg_con_ in
let !_typeSigsOnt = rule228 _lhsInt in
let !_typeSigsOparams = rule229 _lhsIparams in
let !_aroundsIn = rule213 _lhsIaroundsIn arg_con_ in
let !_rulesOoptions = rule226 _lhsIoptions in
let !_rulesOuniq = rule227 _lhsIuniq in
let !_augmentsIn = rule212 _lhsIaugmentsIn arg_con_ in
let !(T_Children_vOut14 _childrenIerrors _childrenIfields _childrenIinputs _childrenIoutput _childrenIoutputs) = inv_Children_s2 _childrenX2 K_Children_v14 (T_Children_vIn14 _childrenOinhMap _childrenOmerged _childrenOsynMap) in
let !(T_Rules_vOut24 _rulesIdefinedAttrs _rulesIerrors _rulesIlocals _rulesIoutput _rulesIruleNames _rulesIuniq) = inv_Rules_s20 _rulesX20 K_Rules_v24 (T_Rules_vIn24 _rulesOoptions _rulesOuniq) in
let !(T_TypeSigs_vOut12 _typeSigsIoutput) = inv_TypeSigs_s24 _typeSigsX24 (T_TypeSigs_vIn12 _typeSigsOnt _typeSigsOparams) in
let !(!_newRls,!_errs) = rule205 _childrenIfields _childrenIinputs _childrenIoutputs _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsInt _lhsIo_rename _lhsIoptions _lhsIsyn _lhsIsynOrig _lhsItypeSyns _lhsIuseMap _lhsIwrappers _rulesIdefinedAttrs _rulesIlocals arg_con_ in
let !_orderErrs = rule211 _childrenIinputs _childrenIoutputs _lhsIinh _lhsInt _lhsIsyn _orderDeps _rulesIlocals _rulesIruleNames arg_con_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule204 _childrenIerrors _errs _orderErrs _rulesIerrors in
let !_extra1 = rule206 _augmentsIn _newRls _rulesIoutput in
let !_extra2 = rule207 _aroundsIn _extra1 in
let !_extra3 = rule208 _extra2 _mergesIn in
let _lhsOoutput :: Production
!_lhsOoutput = rule209 _childrenIoutput _extra3 _typeSigsIoutput arg_con_ arg_constraints_ arg_macro_ arg_params_ in
let _lhsOuniq :: Int
!_lhsOuniq = rule217 _rulesIuniq in
let !__result_ = T_Production_vOut7 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v25 :: T_Production_v25
v25 = \ !(T_Production_vIn25 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_childrenX2 = Control.Monad.Identity.runIdentity (attach_T_Children (arg_children_)) in
let !_rulesX20 = Control.Monad.Identity.runIdentity (attach_T_Rules (arg_rules_)) in
let !_typeSigsX24 = Control.Monad.Identity.runIdentity (attach_T_TypeSigs (arg_typeSigs_)) in
let !_childrenOinhMap = rule219 _lhsIinhMap in
let !_mergesIn = rule214 _lhsImergesIn arg_con_ in
let !_merged = rule215 _mergesIn in
let !_childrenOmerged = rule220 _merged in
let !_childrenOsynMap = rule223 _lhsIsynMap in
let !_orderDeps = rule210 _lhsImanualAttrOrderMap _lhsInt arg_con_ in
let !_typeSigsOnt = rule228 _lhsInt in
let !_typeSigsOparams = rule229 _lhsIparams in
let !_aroundsIn = rule213 _lhsIaroundsIn arg_con_ in
let !_rulesOoptions = rule226 _lhsIoptions in
let !_rulesOuniq = rule227 _lhsIuniq in
let !_augmentsIn = rule212 _lhsIaugmentsIn arg_con_ in
let !(T_Children_vOut14 _childrenIerrors _childrenIfields _childrenIinputs _childrenIoutput _childrenIoutputs) = inv_Children_s2 _childrenX2 K_Children_v14 (T_Children_vIn14 _childrenOinhMap _childrenOmerged _childrenOsynMap) in
let !(T_Rules_vOut24 _rulesIdefinedAttrs _rulesIerrors _rulesIlocals _rulesIoutput _rulesIruleNames _rulesIuniq) = inv_Rules_s20 _rulesX20 K_Rules_v24 (T_Rules_vIn24 _rulesOoptions _rulesOuniq) in
let !(T_TypeSigs_vOut12 _typeSigsIoutput) = inv_TypeSigs_s24 _typeSigsX24 (T_TypeSigs_vIn12 _typeSigsOnt _typeSigsOparams) in
let !(!_newRls,!_errs) = rule205 _childrenIfields _childrenIinputs _childrenIoutputs _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsInt _lhsIo_rename _lhsIoptions _lhsIsyn _lhsIsynOrig _lhsItypeSyns _lhsIuseMap _lhsIwrappers _rulesIdefinedAttrs _rulesIlocals arg_con_ in
let !_orderErrs = rule211 _childrenIinputs _childrenIoutputs _lhsIinh _lhsInt _lhsIsyn _orderDeps _rulesIlocals _rulesIruleNames arg_con_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule204 _childrenIerrors _errs _orderErrs _rulesIerrors in
let !_extra1 = rule206 _augmentsIn _newRls _rulesIoutput in
let !_extra2 = rule207 _aroundsIn _extra1 in
let !_extra3 = rule208 _extra2 _mergesIn in
let _lhsOoutput :: Production
!_lhsOoutput = rule209 _childrenIoutput _extra3 _typeSigsIoutput arg_con_ arg_constraints_ arg_macro_ arg_params_ in
let _lhsOuniq :: Int
!_lhsOuniq = rule217 _rulesIuniq in
let !__result_ = T_Production_vOut25 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v39 :: T_Production_v39
v39 = \ !(T_Production_vIn39 _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInt _lhsIo_rename _lhsIoptions _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let !_childrenX2 = Control.Monad.Identity.runIdentity (attach_T_Children (arg_children_)) in
let !_rulesX20 = Control.Monad.Identity.runIdentity (attach_T_Rules (arg_rules_)) in
let !_childrenOinhMap = rule219 _lhsIinhMap in
let !_mergesIn = rule214 _lhsImergesIn arg_con_ in
let !_merged = rule215 _mergesIn in
let !_childrenOmerged = rule220 _merged in
let !_childrenOsynMap = rule223 _lhsIsynMap in
let !_orderDeps = rule210 _lhsImanualAttrOrderMap _lhsInt arg_con_ in
let !(T_Children_vOut47 _childrenIerrors _childrenIfields _childrenIinputs _childrenIoutputs _childrenX53) = inv_Children_s2 _childrenX2 K_Children_v47 (T_Children_vIn47 _childrenOinhMap _childrenOmerged _childrenOsynMap) in
let !(T_Rules_vOut30 _rulesIdefinedAttrs _rulesIerrors _rulesIlocals _rulesIruleNames _rulesX42) = inv_Rules_s20 _rulesX20 K_Rules_v30 (T_Rules_vIn30 ) in
let !(!_newRls,!_errs) = rule205 _childrenIfields _childrenIinputs _childrenIoutputs _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsInt _lhsIo_rename _lhsIoptions _lhsIsyn _lhsIsynOrig _lhsItypeSyns _lhsIuseMap _lhsIwrappers _rulesIdefinedAttrs _rulesIlocals arg_con_ in
let !_orderErrs = rule211 _childrenIinputs _childrenIoutputs _lhsIinh _lhsInt _lhsIsyn _orderDeps _rulesIlocals _rulesIruleNames arg_con_ in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule204 _childrenIerrors _errs _orderErrs _rulesIerrors in
let !__st_ = st48 _childrenX53 _lhsInt _lhsIoptions _mergesIn _newRls _rulesX42
!__result_ = T_Production_vOut39 _lhsOerrors __st_
in __result_ )
in C_Production_s14 k14
{-# NOINLINE st48 #-}
st48 = \ !_childrenX53 ((!_lhsInt) :: NontermIdent) ((!_lhsIoptions) :: Options) !_mergesIn !_newRls !_rulesX42 -> let
v40 :: T_Production_v40
v40 = \ !(T_Production_vIn40 _lhsIaroundsIn _lhsIaugmentsIn _lhsIparams _lhsIuniq) -> (
let !_typeSigsOnt = rule228 _lhsInt in
let !_typeSigsX24 = Control.Monad.Identity.runIdentity (attach_T_TypeSigs (arg_typeSigs_)) in
let !_rulesOoptions = rule226 _lhsIoptions in
let !_typeSigsOparams = rule229 _lhsIparams in
let !_aroundsIn = rule213 _lhsIaroundsIn arg_con_ in
let !_rulesOuniq = rule227 _lhsIuniq in
let !_augmentsIn = rule212 _lhsIaugmentsIn arg_con_ in
let !(T_Children_vOut48 _childrenIoutput) = inv_Children_s53 _childrenX53 (T_Children_vIn48 ) in
let !(T_Rules_vOut31 _rulesIoutput _rulesIuniq) = inv_Rules_s42 _rulesX42 (T_Rules_vIn31 _rulesOoptions _rulesOuniq) in
let !(T_TypeSigs_vOut12 _typeSigsIoutput) = inv_TypeSigs_s24 _typeSigsX24 (T_TypeSigs_vIn12 _typeSigsOnt _typeSigsOparams) in
let !_extra1 = rule206 _augmentsIn _newRls _rulesIoutput in
let !_extra2 = rule207 _aroundsIn _extra1 in
let !_extra3 = rule208 _extra2 _mergesIn in
let _lhsOoutput :: Production
!_lhsOoutput = rule209 _childrenIoutput _extra3 _typeSigsIoutput arg_con_ arg_constraints_ arg_macro_ arg_params_ in
let _lhsOuniq :: Int
!_lhsOuniq = rule217 _rulesIuniq in
let !__result_ = T_Production_vOut40 _lhsOoutput _lhsOuniq
in __result_ )
in C_Production_s48 v40
{-# NOINLINE[1] rule204 #-}
{-# LINE 412 "src-ag/DefaultRules.ag" #-}
rule204 = \ ((!_childrenIerrors) :: Seq Error) !_errs !_orderErrs ((!_rulesIerrors) :: Seq Error) ->
{-# LINE 412 "src-ag/DefaultRules.ag" #-}
_childrenIerrors >< _errs >< _rulesIerrors >< _orderErrs
{-# LINE 3527 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule205 #-}
{-# LINE 416 "src-ag/DefaultRules.ag" #-}
rule205 = \ ((!_childrenIfields) :: [(Identifier,Type,ChildKind)]) ((!_childrenIinputs) :: [(Identifier, Attributes)]) ((!_childrenIoutputs) :: [(Identifier, Attributes)]) ((!_lhsIconstructorTypeMap) :: Map NontermIdent ConstructorType) ((!_lhsIcr) :: Bool) ((!_lhsIinh) :: Attributes) ((!_lhsInt) :: NontermIdent) ((!_lhsIo_rename) :: Bool) ((!_lhsIoptions) :: Options) ((!_lhsIsyn) :: Attributes) ((!_lhsIsynOrig) :: Attributes) ((!_lhsItypeSyns) :: TypeSyns) ((!_lhsIuseMap) :: Map Identifier (String,String,String)) ((!_lhsIwrappers) :: Set NontermIdent) ((!_rulesIdefinedAttrs) :: Set (Identifier,Identifier)) ((!_rulesIlocals) :: Set Identifier) !con_ ->
{-# LINE 416 "src-ag/DefaultRules.ag" #-}
let locals = _rulesIlocals
initenv = Map.fromList ( [ (a,_ACHILD)
| (a,_,_) <- _childrenIfields
]
++ attrs(_LHS, _lhsIinh)
++ [ (a,_LOC)
| a <- Set.toList locals
]
)
attrs (n,as) = [ (a,n) | a <- Map.keys as ]
envs = scanl (flip Map.union)
initenv
(map (Map.fromList . attrs ) _childrenIoutputs)
child_envs = init envs
lhs_env = last envs
(selfAttrs, normalAttrs)
= Map.partitionWithKey (\k _ -> maybe False isSELFNonterminal $ Map.lookup k _lhsIsynOrig) _lhsIsyn
(_,undefAttrs)
= removeDefined _rulesIdefinedAttrs (_LHS, normalAttrs)
(useAttrs,others)
= splitAttrs _lhsIuseMap undefAttrs
(rules1, errors1)
= concatRE $ map (copyRule _lhsIoptions _lhsIwrappers _lhsInt con_ _lhsIcr locals)
(zip envs (map (removeDefined _rulesIdefinedAttrs) _childrenIinputs))
uRules
= map (useRule _lhsIoptions locals _childrenIoutputs) useAttrs
selfLocRules
= [ selfRule False attr $
lexTokens _lhsIoptions noPos $
constructor [(childSelf attr nm tp, nm) | (nm,tp,virt) <- _childrenIfields, childExists virt]
| attr <- Map.keys selfAttrs
, not (Set.member attr locals)
]
where
childSelf self nm tp
= case tp of NT nt _ _ -> attrName nm self
_ | nm `Set.member` locals -> locName nm
| otherwise -> fieldName nm
constructor fs
= buildConExpr (ocaml _lhsIoptions) (clean _lhsIoptions) _lhsIconstructorTypeMap _lhsItypeSyns _lhsIo_rename _lhsInt con_ fs
childExists ChildAttr = False
childExists _ = True
selfRules
= [ selfRule True attr [mkLocVar attr noPos Nothing]
| attr <- Map.keys selfAttrs
, not (Set.member (_LHS,attr) _rulesIdefinedAttrs)
]
(rules5, errs5)
= copyRule _lhsIoptions
_lhsIwrappers
_lhsInt
con_
_lhsIcr
locals
(lhs_env, (_LHS, others))
in (uRules++selfLocRules++selfRules++rules5++rules1, errors1><errs5)
{-# LINE 3588 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule206 #-}
{-# LINE 636 "src-ag/DefaultRules.ag" #-}
rule206 = \ !_augmentsIn !_newRls ((!_rulesIoutput) :: Rules) ->
{-# LINE 636 "src-ag/DefaultRules.ag" #-}
foldr addAugments (_rulesIoutput ++ _newRls) (Map.assocs _augmentsIn )
{-# LINE 3594 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule207 #-}
{-# LINE 637 "src-ag/DefaultRules.ag" #-}
rule207 = \ !_aroundsIn !_extra1 ->
{-# LINE 637 "src-ag/DefaultRules.ag" #-}
foldr addArounds _extra1 (Map.assocs _aroundsIn )
{-# LINE 3600 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule208 #-}
{-# LINE 638 "src-ag/DefaultRules.ag" #-}
rule208 = \ !_extra2 !_mergesIn ->
{-# LINE 638 "src-ag/DefaultRules.ag" #-}
foldr addMerges _extra2 (Map.assocs _mergesIn )
{-# LINE 3606 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule209 #-}
{-# LINE 639 "src-ag/DefaultRules.ag" #-}
rule209 = \ ((!_childrenIoutput) :: Children) !_extra3 ((!_typeSigsIoutput) :: TypeSigs) !con_ !constraints_ !macro_ !params_ ->
{-# LINE 639 "src-ag/DefaultRules.ag" #-}
Production con_ params_ constraints_ _childrenIoutput _extra3 _typeSigsIoutput macro_
{-# LINE 3612 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule210 #-}
{-# LINE 747 "src-ag/DefaultRules.ag" #-}
rule210 = \ ((!_lhsImanualAttrOrderMap) :: AttrOrderMap) ((!_lhsInt) :: NontermIdent) !con_ ->
{-# LINE 747 "src-ag/DefaultRules.ag" #-}
Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrOrderMap
{-# LINE 3618 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule211 #-}
{-# LINE 750 "src-ag/DefaultRules.ag" #-}
rule211 = \ ((!_childrenIinputs) :: [(Identifier, Attributes)]) ((!_childrenIoutputs) :: [(Identifier, Attributes)]) ((!_lhsIinh) :: Attributes) ((!_lhsInt) :: NontermIdent) ((!_lhsIsyn) :: Attributes) !_orderDeps ((!_rulesIlocals) :: Set Identifier) ((!_rulesIruleNames) :: Set Identifier) !con_ ->
{-# LINE 750 "src-ag/DefaultRules.ag" #-}
let chldOutMap = Map.fromList [ (k, Map.keysSet s) | (k,s) <- _childrenIoutputs ]
chldInMap = Map.fromList [ (k, Map.keysSet s) | (k,s) <- _childrenIinputs ]
isInAttribute :: Identifier -> Identifier -> [Error]
isInAttribute fld nm
| fld == _LOC = if nm `Set.member` _rulesIlocals
then []
else [UndefAttr _lhsInt con_ fld nm False]
| fld == _LHS = if nm `Map.member` _lhsIinh
then []
else [UndefAttr _lhsInt con_ fld nm False]
| otherwise = if nm `Set.member` (Map.findWithDefault Set.empty fld chldOutMap)
then []
else [UndefAttr _lhsInt con_ fld nm False]
isOutAttribute :: Identifier -> Identifier -> [Error]
isOutAttribute fld nm
| fld == _LOC = if nm `Set.member` _rulesIlocals
then []
else [UndefAttr _lhsInt con_ fld nm True]
| fld == _LHS = if nm `Map.member` _lhsIsyn
then []
else [UndefAttr _lhsInt con_ fld nm True]
| otherwise = if nm `Set.member` (Map.findWithDefault Set.empty fld chldInMap)
then []
else [UndefAttr _lhsInt con_ fld nm True]
existsRule nm = if nm `Set.member` _rulesIruleNames
then []
else [MissingNamedRule _lhsInt con_ nm]
checkIn (OccAttr fld nm) = isInAttribute fld nm
checkIn (OccRule nm) = existsRule nm
checkOut (OccAttr fld nm) = isOutAttribute fld nm
checkOut (OccRule nm) = existsRule nm
in Seq.fromList . concat $
[ checkIn occA ++ checkOut occB
| (Dependency occA occB) <- _orderDeps
]
{-# LINE 3658 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule212 #-}
{-# LINE 805 "src-ag/DefaultRules.ag" #-}
rule212 = \ ((!_lhsIaugmentsIn) :: Map ConstructorIdent (Map Identifier [Expression])) !con_ ->
{-# LINE 805 "src-ag/DefaultRules.ag" #-}
Map.findWithDefault Map.empty con_ _lhsIaugmentsIn
{-# LINE 3664 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule213 #-}
{-# LINE 812 "src-ag/DefaultRules.ag" #-}
rule213 = \ ((!_lhsIaroundsIn) :: Map ConstructorIdent (Map Identifier [Expression])) !con_ ->
{-# LINE 812 "src-ag/DefaultRules.ag" #-}
Map.findWithDefault Map.empty con_ _lhsIaroundsIn
{-# LINE 3670 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule214 #-}
{-# LINE 820 "src-ag/DefaultRules.ag" #-}
rule214 = \ ((!_lhsImergesIn) :: Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) !con_ ->
{-# LINE 820 "src-ag/DefaultRules.ag" #-}
Map.findWithDefault Map.empty con_ _lhsImergesIn
{-# LINE 3676 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule215 #-}
{-# LINE 821 "src-ag/DefaultRules.ag" #-}
rule215 = \ !_mergesIn ->
{-# LINE 821 "src-ag/DefaultRules.ag" #-}
Set.fromList [ c | (_,cs,_) <- Map.elems _mergesIn , c <- cs ]
{-# LINE 3682 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule217 #-}
rule217 = \ ((!_rulesIuniq) :: Int) ->
_rulesIuniq
{-# NOINLINE[1] rule219 #-}
rule219 = \ ((!_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# NOINLINE[1] rule220 #-}
rule220 = \ !_merged ->
_merged
{-# NOINLINE[1] rule223 #-}
rule223 = \ ((!_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE[1] rule226 #-}
rule226 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
{-# NOINLINE[1] rule227 #-}
rule227 = \ ((!_lhsIuniq) :: Int) ->
_lhsIuniq
{-# NOINLINE[1] rule228 #-}
rule228 = \ ((!_lhsInt) :: NontermIdent) ->
_lhsInt
{-# NOINLINE[1] rule229 #-}
rule229 = \ ((!_lhsIparams) :: [Identifier]) ->
_lhsIparams
data Inh_Productions = Inh_Productions { aroundsIn_Inh_Productions :: !(Map ConstructorIdent (Map Identifier [Expression])), augmentsIn_Inh_Productions :: !(Map ConstructorIdent (Map Identifier [Expression])), constructorTypeMap_Inh_Productions :: !(Map NontermIdent ConstructorType), cr_Inh_Productions :: !(Bool), inh_Inh_Productions :: !(Attributes), inhMap_Inh_Productions :: !(Map Identifier Attributes), inhOrig_Inh_Productions :: !(Attributes), manualAttrOrderMap_Inh_Productions :: !(AttrOrderMap), mergesIn_Inh_Productions :: !(Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))), nonterminals_Inh_Productions :: !(Set NontermIdent), nt_Inh_Productions :: !(NontermIdent), o_rename_Inh_Productions :: !(Bool), options_Inh_Productions :: !(Options), params_Inh_Productions :: !([Identifier]), syn_Inh_Productions :: !(Attributes), synMap_Inh_Productions :: !(Map Identifier Attributes), synOrig_Inh_Productions :: !(Attributes), typeSyns_Inh_Productions :: !(TypeSyns), uniq_Inh_Productions :: !(Int), useMap_Inh_Productions :: !(Map Identifier (String,String,String)), wrappers_Inh_Productions :: !(Set NontermIdent) }
data Syn_Productions = Syn_Productions { errors_Syn_Productions :: !(Seq Error), output_Syn_Productions :: !(Productions), uniq_Syn_Productions :: !(Int) }
{-# INLINABLE wrap_Productions #-}
wrap_Productions :: T_Productions -> Inh_Productions -> (Syn_Productions )
wrap_Productions !(T_Productions act) !(Inh_Productions _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsIinhOrig _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg8 = T_Productions_vIn8 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsIinhOrig _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers
!(T_Productions_vOut8 _lhsOerrors _lhsOoutput _lhsOuniq) <- return (inv_Productions_s16 sem K_Productions_v8 arg8)
return (Syn_Productions _lhsOerrors _lhsOoutput _lhsOuniq)
)
{-# NOINLINE sem_Productions #-}
sem_Productions :: Productions -> T_Productions
sem_Productions list = Prelude.foldr sem_Productions_Cons sem_Productions_Nil (Prelude.map sem_Production list)
newtype T_Productions = T_Productions {
attach_T_Productions :: Identity (T_Productions_s16 )
}
data T_Productions_s16 where C_Productions_s16 :: {
inv_Productions_s16 :: !(forall t. K_Productions_s16 t -> t)
} -> T_Productions_s16
data T_Productions_s17 = C_Productions_s17
data T_Productions_s30 = C_Productions_s30
newtype T_Productions_s39 = C_Productions_s39 {
inv_Productions_s39 :: (T_Productions_v27 )
}
data K_Productions_s16 k where
K_Productions_v8 :: K_Productions_s16 (T_Productions_v8 )
K_Productions_v17 :: K_Productions_s16 (T_Productions_v17 )
K_Productions_v26 :: K_Productions_s16 (T_Productions_v26 )
type T_Productions_v8 = (T_Productions_vIn8 ) -> (T_Productions_vOut8 )
data T_Productions_vIn8 = T_Productions_vIn8 !(Map ConstructorIdent (Map Identifier [Expression])) !(Map ConstructorIdent (Map Identifier [Expression])) !(Map NontermIdent ConstructorType) !(Bool) !(Attributes) !(Map Identifier Attributes) !(Attributes) !(AttrOrderMap) !(Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) !(Set NontermIdent) !(NontermIdent) !(Bool) !(Options) !([Identifier]) !(Attributes) !(Map Identifier Attributes) !(Attributes) !(TypeSyns) !(Int) !(Map Identifier (String,String,String)) !(Set NontermIdent)
data T_Productions_vOut8 = T_Productions_vOut8 !(Seq Error) !(Productions) !(Int)
type T_Productions_v17 = (T_Productions_vIn17 ) -> (T_Productions_vOut17 )
data T_Productions_vIn17 = T_Productions_vIn17 !(Map ConstructorIdent (Map Identifier [Expression])) !(Map ConstructorIdent (Map Identifier [Expression])) !(Map NontermIdent ConstructorType) !(Bool) !(Attributes) !(Map Identifier Attributes) !(AttrOrderMap) !(Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) !(NontermIdent) !(Bool) !(Options) !([Identifier]) !(Attributes) !(Map Identifier Attributes) !(Attributes) !(TypeSyns) !(Int) !(Map Identifier (String,String,String)) !(Set NontermIdent)
data T_Productions_vOut17 = T_Productions_vOut17 !(Seq Error) !(Productions) !(Int)
type T_Productions_v26 = (T_Productions_vIn26 ) -> (T_Productions_vOut26 )
data T_Productions_vIn26 = T_Productions_vIn26 !(Map NontermIdent ConstructorType) !(Bool) !(Attributes) !(Map Identifier Attributes) !(AttrOrderMap) !(Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) !(NontermIdent) !(Bool) !(Options) !(Attributes) !(Map Identifier Attributes) !(Attributes) !(TypeSyns) !(Map Identifier (String,String,String)) !(Set NontermIdent)
data T_Productions_vOut26 = T_Productions_vOut26 !(Seq Error) !(T_Productions_s39 )
type T_Productions_v27 = (T_Productions_vIn27 ) -> (T_Productions_vOut27 )
data T_Productions_vIn27 = T_Productions_vIn27 !(Map ConstructorIdent (Map Identifier [Expression])) !(Map ConstructorIdent (Map Identifier [Expression])) !([Identifier]) !(Int)
data T_Productions_vOut27 = T_Productions_vOut27 !(Productions) !(Int)
{-# NOINLINE sem_Productions_Cons #-}
sem_Productions_Cons :: T_Production -> T_Productions -> T_Productions
sem_Productions_Cons arg_hd_ arg_tl_ = T_Productions (return st16) where
{-# NOINLINE st16 #-}
!st16 = let
k16 :: K_Productions_s16 t -> t
k16 K_Productions_v8 = v8
k16 K_Productions_v17 = v17
k16 K_Productions_v26 = v26
v8 :: T_Productions_v8
v8 = \ !(T_Productions_vIn8 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsIinhOrig _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_hdX14 = Control.Monad.Identity.runIdentity (attach_T_Production (arg_hd_)) in
let !_tlX16 = Control.Monad.Identity.runIdentity (attach_T_Productions (arg_tl_)) in
let !_hdOconstructorTypeMap = rule236 _lhsIconstructorTypeMap in
let !_hdOcr = rule237 _lhsIcr in
let !_hdOinh = rule238 _lhsIinh in
let !_hdOinhMap = rule239 _lhsIinhMap in
let !_hdOmanualAttrOrderMap = rule241 _lhsImanualAttrOrderMap in
let !_hdOmergesIn = rule242 _lhsImergesIn in
let !_hdOnt = rule244 _lhsInt in
let !_hdOo_rename = rule245 _lhsIo_rename in
let !_hdOoptions = rule246 _lhsIoptions in
let !_hdOsyn = rule248 _lhsIsyn in
let !_hdOsynMap = rule249 _lhsIsynMap in
let !_hdOsynOrig = rule250 _lhsIsynOrig in
let !_hdOtypeSyns = rule251 _lhsItypeSyns in
let !_hdOuseMap = rule253 _lhsIuseMap in
let !_hdOwrappers = rule254 _lhsIwrappers in
let !_tlOconstructorTypeMap = rule257 _lhsIconstructorTypeMap in
let !_tlOcr = rule258 _lhsIcr in
let !_tlOinh = rule259 _lhsIinh in
let !_tlOinhMap = rule260 _lhsIinhMap in
let !_tlOmanualAttrOrderMap = rule262 _lhsImanualAttrOrderMap in
let !_tlOmergesIn = rule263 _lhsImergesIn in
let !_tlOnt = rule265 _lhsInt in
let !_tlOo_rename = rule266 _lhsIo_rename in
let !_tlOoptions = rule267 _lhsIoptions in
let !_tlOsyn = rule269 _lhsIsyn in
let !_tlOsynMap = rule270 _lhsIsynMap in
let !_tlOsynOrig = rule271 _lhsIsynOrig in
let !_tlOtypeSyns = rule272 _lhsItypeSyns in
let !_tlOuseMap = rule274 _lhsIuseMap in
let !_tlOwrappers = rule275 _lhsIwrappers in
let !_hdOaroundsIn = rule234 _lhsIaroundsIn in
let !_hdOaugmentsIn = rule235 _lhsIaugmentsIn in
let !_hdOparams = rule247 _lhsIparams in
let !_hdOuniq = rule252 _lhsIuniq in
let !_tlOaroundsIn = rule255 _lhsIaroundsIn in
let !_tlOaugmentsIn = rule256 _lhsIaugmentsIn in
let !_tlOparams = rule268 _lhsIparams in
let !(T_Production_vOut25 _hdIerrors _hdIoutput _hdIuniq) = inv_Production_s14 _hdX14 K_Production_v25 (T_Production_vIn25 _hdOaroundsIn _hdOaugmentsIn _hdOconstructorTypeMap _hdOcr _hdOinh _hdOinhMap _hdOmanualAttrOrderMap _hdOmergesIn _hdOnt _hdOo_rename _hdOoptions _hdOparams _hdOsyn _hdOsynMap _hdOsynOrig _hdOtypeSyns _hdOuniq _hdOuseMap _hdOwrappers) in
let !(T_Productions_vOut26 _tlIerrors _tlX39) = inv_Productions_s16 _tlX16 K_Productions_v26 (T_Productions_vIn26 _tlOconstructorTypeMap _tlOcr _tlOinh _tlOinhMap _tlOmanualAttrOrderMap _tlOmergesIn _tlOnt _tlOo_rename _tlOoptions _tlOsyn _tlOsynMap _tlOsynOrig _tlOtypeSyns _tlOuseMap _tlOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule230 _hdIerrors _tlIerrors in
let !_tlOuniq = rule273 _hdIuniq in
let !(T_Productions_vOut27 _tlIoutput _tlIuniq) = inv_Productions_s39 _tlX39 (T_Productions_vIn27 _tlOaroundsIn _tlOaugmentsIn _tlOparams _tlOuniq) in
let !_output = rule231 _hdIoutput _tlIoutput in
let _lhsOoutput :: Productions
!_lhsOoutput = rule232 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule233 _tlIuniq in
let !__result_ = T_Productions_vOut8 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v17 :: T_Productions_v17
v17 = \ !(T_Productions_vIn17 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let !_hdX14 = Control.Monad.Identity.runIdentity (attach_T_Production (arg_hd_)) in
let !_tlX16 = Control.Monad.Identity.runIdentity (attach_T_Productions (arg_tl_)) in
let !_hdOconstructorTypeMap = rule236 _lhsIconstructorTypeMap in
let !_hdOcr = rule237 _lhsIcr in
let !_hdOinh = rule238 _lhsIinh in
let !_hdOinhMap = rule239 _lhsIinhMap in
let !_hdOmanualAttrOrderMap = rule241 _lhsImanualAttrOrderMap in
let !_hdOmergesIn = rule242 _lhsImergesIn in
let !_hdOnt = rule244 _lhsInt in
let !_hdOo_rename = rule245 _lhsIo_rename in
let !_hdOoptions = rule246 _lhsIoptions in
let !_hdOsyn = rule248 _lhsIsyn in
let !_hdOsynMap = rule249 _lhsIsynMap in
let !_hdOsynOrig = rule250 _lhsIsynOrig in
let !_hdOtypeSyns = rule251 _lhsItypeSyns in
let !_hdOuseMap = rule253 _lhsIuseMap in
let !_hdOwrappers = rule254 _lhsIwrappers in
let !_tlOconstructorTypeMap = rule257 _lhsIconstructorTypeMap in
let !_tlOcr = rule258 _lhsIcr in
let !_tlOinh = rule259 _lhsIinh in
let !_tlOinhMap = rule260 _lhsIinhMap in
let !_tlOmanualAttrOrderMap = rule262 _lhsImanualAttrOrderMap in
let !_tlOmergesIn = rule263 _lhsImergesIn in
let !_tlOnt = rule265 _lhsInt in
let !_tlOo_rename = rule266 _lhsIo_rename in
let !_tlOoptions = rule267 _lhsIoptions in
let !_tlOsyn = rule269 _lhsIsyn in
let !_tlOsynMap = rule270 _lhsIsynMap in
let !_tlOsynOrig = rule271 _lhsIsynOrig in
let !_tlOtypeSyns = rule272 _lhsItypeSyns in
let !_tlOuseMap = rule274 _lhsIuseMap in
let !_tlOwrappers = rule275 _lhsIwrappers in
let !_hdOaroundsIn = rule234 _lhsIaroundsIn in
let !_hdOaugmentsIn = rule235 _lhsIaugmentsIn in
let !_hdOparams = rule247 _lhsIparams in
let !_hdOuniq = rule252 _lhsIuniq in
let !_tlOaroundsIn = rule255 _lhsIaroundsIn in
let !_tlOaugmentsIn = rule256 _lhsIaugmentsIn in
let !_tlOparams = rule268 _lhsIparams in
let !(T_Production_vOut25 _hdIerrors _hdIoutput _hdIuniq) = inv_Production_s14 _hdX14 K_Production_v25 (T_Production_vIn25 _hdOaroundsIn _hdOaugmentsIn _hdOconstructorTypeMap _hdOcr _hdOinh _hdOinhMap _hdOmanualAttrOrderMap _hdOmergesIn _hdOnt _hdOo_rename _hdOoptions _hdOparams _hdOsyn _hdOsynMap _hdOsynOrig _hdOtypeSyns _hdOuniq _hdOuseMap _hdOwrappers) in
let !(T_Productions_vOut26 _tlIerrors _tlX39) = inv_Productions_s16 _tlX16 K_Productions_v26 (T_Productions_vIn26 _tlOconstructorTypeMap _tlOcr _tlOinh _tlOinhMap _tlOmanualAttrOrderMap _tlOmergesIn _tlOnt _tlOo_rename _tlOoptions _tlOsyn _tlOsynMap _tlOsynOrig _tlOtypeSyns _tlOuseMap _tlOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule230 _hdIerrors _tlIerrors in
let !_tlOuniq = rule273 _hdIuniq in
let !(T_Productions_vOut27 _tlIoutput _tlIuniq) = inv_Productions_s39 _tlX39 (T_Productions_vIn27 _tlOaroundsIn _tlOaugmentsIn _tlOparams _tlOuniq) in
let !_output = rule231 _hdIoutput _tlIoutput in
let _lhsOoutput :: Productions
!_lhsOoutput = rule232 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule233 _tlIuniq in
let !__result_ = T_Productions_vOut17 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v26 :: T_Productions_v26
v26 = \ !(T_Productions_vIn26 _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInt _lhsIo_rename _lhsIoptions _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let !_hdX14 = Control.Monad.Identity.runIdentity (attach_T_Production (arg_hd_)) in
let !_tlX16 = Control.Monad.Identity.runIdentity (attach_T_Productions (arg_tl_)) in
let !_hdOconstructorTypeMap = rule236 _lhsIconstructorTypeMap in
let !_hdOcr = rule237 _lhsIcr in
let !_hdOinh = rule238 _lhsIinh in
let !_hdOinhMap = rule239 _lhsIinhMap in
let !_hdOmanualAttrOrderMap = rule241 _lhsImanualAttrOrderMap in
let !_hdOmergesIn = rule242 _lhsImergesIn in
let !_hdOnt = rule244 _lhsInt in
let !_hdOo_rename = rule245 _lhsIo_rename in
let !_hdOoptions = rule246 _lhsIoptions in
let !_hdOsyn = rule248 _lhsIsyn in
let !_hdOsynMap = rule249 _lhsIsynMap in
let !_hdOsynOrig = rule250 _lhsIsynOrig in
let !_hdOtypeSyns = rule251 _lhsItypeSyns in
let !_hdOuseMap = rule253 _lhsIuseMap in
let !_hdOwrappers = rule254 _lhsIwrappers in
let !_tlOconstructorTypeMap = rule257 _lhsIconstructorTypeMap in
let !_tlOcr = rule258 _lhsIcr in
let !_tlOinh = rule259 _lhsIinh in
let !_tlOinhMap = rule260 _lhsIinhMap in
let !_tlOmanualAttrOrderMap = rule262 _lhsImanualAttrOrderMap in
let !_tlOmergesIn = rule263 _lhsImergesIn in
let !_tlOnt = rule265 _lhsInt in
let !_tlOo_rename = rule266 _lhsIo_rename in
let !_tlOoptions = rule267 _lhsIoptions in
let !_tlOsyn = rule269 _lhsIsyn in
let !_tlOsynMap = rule270 _lhsIsynMap in
let !_tlOsynOrig = rule271 _lhsIsynOrig in
let !_tlOtypeSyns = rule272 _lhsItypeSyns in
let !_tlOuseMap = rule274 _lhsIuseMap in
let !_tlOwrappers = rule275 _lhsIwrappers in
let !(T_Production_vOut39 _hdIerrors _hdX48) = inv_Production_s14 _hdX14 K_Production_v39 (T_Production_vIn39 _hdOconstructorTypeMap _hdOcr _hdOinh _hdOinhMap _hdOmanualAttrOrderMap _hdOmergesIn _hdOnt _hdOo_rename _hdOoptions _hdOsyn _hdOsynMap _hdOsynOrig _hdOtypeSyns _hdOuseMap _hdOwrappers) in
let !(T_Productions_vOut26 _tlIerrors _tlX39) = inv_Productions_s16 _tlX16 K_Productions_v26 (T_Productions_vIn26 _tlOconstructorTypeMap _tlOcr _tlOinh _tlOinhMap _tlOmanualAttrOrderMap _tlOmergesIn _tlOnt _tlOo_rename _tlOoptions _tlOsyn _tlOsynMap _tlOsynOrig _tlOtypeSyns _tlOuseMap _tlOwrappers) in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule230 _hdIerrors _tlIerrors in
let !__st_ = st39 _hdX48 _tlX39
!__result_ = T_Productions_vOut26 _lhsOerrors __st_
in __result_ )
in C_Productions_s16 k16
{-# NOINLINE st39 #-}
st39 = \ !_hdX48 !_tlX39 -> let
v27 :: T_Productions_v27
v27 = \ !(T_Productions_vIn27 _lhsIaroundsIn _lhsIaugmentsIn _lhsIparams _lhsIuniq) -> (
let !_hdOaroundsIn = rule234 _lhsIaroundsIn in
let !_hdOaugmentsIn = rule235 _lhsIaugmentsIn in
let !_hdOparams = rule247 _lhsIparams in
let !_hdOuniq = rule252 _lhsIuniq in
let !_tlOaroundsIn = rule255 _lhsIaroundsIn in
let !_tlOaugmentsIn = rule256 _lhsIaugmentsIn in
let !_tlOparams = rule268 _lhsIparams in
let !(T_Production_vOut40 _hdIoutput _hdIuniq) = inv_Production_s48 _hdX48 (T_Production_vIn40 _hdOaroundsIn _hdOaugmentsIn _hdOparams _hdOuniq) in
let !_tlOuniq = rule273 _hdIuniq in
let !(T_Productions_vOut27 _tlIoutput _tlIuniq) = inv_Productions_s39 _tlX39 (T_Productions_vIn27 _tlOaroundsIn _tlOaugmentsIn _tlOparams _tlOuniq) in
let !_output = rule231 _hdIoutput _tlIoutput in
let _lhsOoutput :: Productions
!_lhsOoutput = rule232 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule233 _tlIuniq in
let !__result_ = T_Productions_vOut27 _lhsOoutput _lhsOuniq
in __result_ )
in C_Productions_s39 v27
{-# NOINLINE[1] rule230 #-}
rule230 = \ ((!_hdIerrors) :: Seq Error) ((!_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# NOINLINE[1] rule231 #-}
rule231 = \ ((!_hdIoutput) :: Production) ((!_tlIoutput) :: Productions) ->
(:) _hdIoutput _tlIoutput
{-# NOINLINE[1] rule232 #-}
rule232 = \ !_output ->
_output
{-# NOINLINE[1] rule233 #-}
rule233 = \ ((!_tlIuniq) :: Int) ->
_tlIuniq
{-# NOINLINE[1] rule234 #-}
rule234 = \ ((!_lhsIaroundsIn) :: Map ConstructorIdent (Map Identifier [Expression])) ->
_lhsIaroundsIn
{-# NOINLINE[1] rule235 #-}
rule235 = \ ((!_lhsIaugmentsIn) :: Map ConstructorIdent (Map Identifier [Expression])) ->
_lhsIaugmentsIn
{-# NOINLINE[1] rule236 #-}
rule236 = \ ((!_lhsIconstructorTypeMap) :: Map NontermIdent ConstructorType) ->
_lhsIconstructorTypeMap
{-# NOINLINE[1] rule237 #-}
rule237 = \ ((!_lhsIcr) :: Bool) ->
_lhsIcr
{-# NOINLINE[1] rule238 #-}
rule238 = \ ((!_lhsIinh) :: Attributes) ->
_lhsIinh
{-# NOINLINE[1] rule239 #-}
rule239 = \ ((!_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# NOINLINE[1] rule241 #-}
rule241 = \ ((!_lhsImanualAttrOrderMap) :: AttrOrderMap) ->
_lhsImanualAttrOrderMap
{-# NOINLINE[1] rule242 #-}
rule242 = \ ((!_lhsImergesIn) :: Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) ->
_lhsImergesIn
{-# NOINLINE[1] rule244 #-}
rule244 = \ ((!_lhsInt) :: NontermIdent) ->
_lhsInt
{-# NOINLINE[1] rule245 #-}
rule245 = \ ((!_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# NOINLINE[1] rule246 #-}
rule246 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
{-# NOINLINE[1] rule247 #-}
rule247 = \ ((!_lhsIparams) :: [Identifier]) ->
_lhsIparams
{-# NOINLINE[1] rule248 #-}
rule248 = \ ((!_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# NOINLINE[1] rule249 #-}
rule249 = \ ((!_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE[1] rule250 #-}
rule250 = \ ((!_lhsIsynOrig) :: Attributes) ->
_lhsIsynOrig
{-# NOINLINE[1] rule251 #-}
rule251 = \ ((!_lhsItypeSyns) :: TypeSyns) ->
_lhsItypeSyns
{-# NOINLINE[1] rule252 #-}
rule252 = \ ((!_lhsIuniq) :: Int) ->
_lhsIuniq
{-# NOINLINE[1] rule253 #-}
rule253 = \ ((!_lhsIuseMap) :: Map Identifier (String,String,String)) ->
_lhsIuseMap
{-# NOINLINE[1] rule254 #-}
rule254 = \ ((!_lhsIwrappers) :: Set NontermIdent) ->
_lhsIwrappers
{-# NOINLINE[1] rule255 #-}
rule255 = \ ((!_lhsIaroundsIn) :: Map ConstructorIdent (Map Identifier [Expression])) ->
_lhsIaroundsIn
{-# NOINLINE[1] rule256 #-}
rule256 = \ ((!_lhsIaugmentsIn) :: Map ConstructorIdent (Map Identifier [Expression])) ->
_lhsIaugmentsIn
{-# NOINLINE[1] rule257 #-}
rule257 = \ ((!_lhsIconstructorTypeMap) :: Map NontermIdent ConstructorType) ->
_lhsIconstructorTypeMap
{-# NOINLINE[1] rule258 #-}
rule258 = \ ((!_lhsIcr) :: Bool) ->
_lhsIcr
{-# NOINLINE[1] rule259 #-}
rule259 = \ ((!_lhsIinh) :: Attributes) ->
_lhsIinh
{-# NOINLINE[1] rule260 #-}
rule260 = \ ((!_lhsIinhMap) :: Map Identifier Attributes) ->
_lhsIinhMap
{-# NOINLINE[1] rule262 #-}
rule262 = \ ((!_lhsImanualAttrOrderMap) :: AttrOrderMap) ->
_lhsImanualAttrOrderMap
{-# NOINLINE[1] rule263 #-}
rule263 = \ ((!_lhsImergesIn) :: Map ConstructorIdent (Map Identifier (Identifier,[Identifier],Expression))) ->
_lhsImergesIn
{-# NOINLINE[1] rule265 #-}
rule265 = \ ((!_lhsInt) :: NontermIdent) ->
_lhsInt
{-# NOINLINE[1] rule266 #-}
rule266 = \ ((!_lhsIo_rename) :: Bool) ->
_lhsIo_rename
{-# NOINLINE[1] rule267 #-}
rule267 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
{-# NOINLINE[1] rule268 #-}
rule268 = \ ((!_lhsIparams) :: [Identifier]) ->
_lhsIparams
{-# NOINLINE[1] rule269 #-}
rule269 = \ ((!_lhsIsyn) :: Attributes) ->
_lhsIsyn
{-# NOINLINE[1] rule270 #-}
rule270 = \ ((!_lhsIsynMap) :: Map Identifier Attributes) ->
_lhsIsynMap
{-# NOINLINE[1] rule271 #-}
rule271 = \ ((!_lhsIsynOrig) :: Attributes) ->
_lhsIsynOrig
{-# NOINLINE[1] rule272 #-}
rule272 = \ ((!_lhsItypeSyns) :: TypeSyns) ->
_lhsItypeSyns
{-# NOINLINE[1] rule273 #-}
rule273 = \ ((!_hdIuniq) :: Int) ->
_hdIuniq
{-# NOINLINE[1] rule274 #-}
rule274 = \ ((!_lhsIuseMap) :: Map Identifier (String,String,String)) ->
_lhsIuseMap
{-# NOINLINE[1] rule275 #-}
rule275 = \ ((!_lhsIwrappers) :: Set NontermIdent) ->
_lhsIwrappers
{-# NOINLINE sem_Productions_Nil #-}
sem_Productions_Nil :: T_Productions
sem_Productions_Nil = T_Productions (return st16) where
{-# NOINLINE st16 #-}
!st16 = let
k16 :: K_Productions_s16 t -> t
k16 K_Productions_v8 = v8
k16 K_Productions_v17 = v17
k16 K_Productions_v26 = v26
v8 :: T_Productions_v8
v8 = \ !(T_Productions_vIn8 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsIinhOrig _lhsImanualAttrOrderMap _lhsImergesIn _lhsInonterminals _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule276 () in
let !_output = rule277 () in
let _lhsOoutput :: Productions
!_lhsOoutput = rule278 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule279 _lhsIuniq in
let !__result_ = T_Productions_vOut8 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v17 :: T_Productions_v17
v17 = \ !(T_Productions_vIn17 _lhsIaroundsIn _lhsIaugmentsIn _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInt _lhsIo_rename _lhsIoptions _lhsIparams _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuniq _lhsIuseMap _lhsIwrappers) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule276 () in
let !_output = rule277 () in
let _lhsOoutput :: Productions
!_lhsOoutput = rule278 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule279 _lhsIuniq in
let !__result_ = T_Productions_vOut17 _lhsOerrors _lhsOoutput _lhsOuniq
in __result_ )
v26 :: T_Productions_v26
v26 = \ !(T_Productions_vIn26 _lhsIconstructorTypeMap _lhsIcr _lhsIinh _lhsIinhMap _lhsImanualAttrOrderMap _lhsImergesIn _lhsInt _lhsIo_rename _lhsIoptions _lhsIsyn _lhsIsynMap _lhsIsynOrig _lhsItypeSyns _lhsIuseMap _lhsIwrappers) -> (
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule276 () in
let !__st_ = st39 ()
!__result_ = T_Productions_vOut26 _lhsOerrors __st_
in __result_ )
in C_Productions_s16 k16
{-# NOINLINE st39 #-}
st39 = \ (_ :: ()) -> let
v27 :: T_Productions_v27
v27 = \ !(T_Productions_vIn27 _lhsIaroundsIn _lhsIaugmentsIn _lhsIparams _lhsIuniq) -> (
let !_output = rule277 () in
let _lhsOoutput :: Productions
!_lhsOoutput = rule278 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule279 _lhsIuniq in
let !__result_ = T_Productions_vOut27 _lhsOoutput _lhsOuniq
in __result_ )
in C_Productions_s39 v27
{-# NOINLINE[1] rule276 #-}
rule276 = \ (_ :: ()) ->
Seq.empty
{-# NOINLINE[1] rule277 #-}
rule277 = \ (_ :: ()) ->
[]
{-# NOINLINE[1] rule278 #-}
rule278 = \ !_output ->
_output
{-# NOINLINE[1] rule279 #-}
rule279 = \ ((!_lhsIuniq) :: Int) ->
_lhsIuniq
data Inh_Rule = Inh_Rule { con_Inh_Rule :: !(ConstructorIdent), constructorTypeMap_Inh_Rule :: !(Map NontermIdent ConstructorType), nt_Inh_Rule :: !(NontermIdent), options_Inh_Rule :: !(Options), uniq_Inh_Rule :: !(Int) }
data Syn_Rule = Syn_Rule { containsVars_Syn_Rule :: !(Bool), definedAttrs_Syn_Rule :: !(Set (Identifier,Identifier)), errors_Syn_Rule :: !(Seq Error), isPure_Syn_Rule :: !(Bool), locals_Syn_Rule :: !(Set Identifier), output_Syn_Rule :: !(Rule), outputs_Syn_Rule :: !(Rules), ruleNames_Syn_Rule :: !(Set Identifier), uniq_Syn_Rule :: !(Int) }
{-# INLINABLE wrap_Rule #-}
wrap_Rule :: T_Rule -> Inh_Rule -> (Syn_Rule )
wrap_Rule !(T_Rule act) !(Inh_Rule _lhsIcon _lhsIconstructorTypeMap _lhsInt _lhsIoptions _lhsIuniq) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg9 = T_Rule_vIn9 _lhsIcon _lhsIconstructorTypeMap _lhsInt _lhsIoptions _lhsIuniq
!(T_Rule_vOut9 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOisPure _lhsOlocals _lhsOoutput _lhsOoutputs _lhsOruleNames _lhsOuniq) <- return (inv_Rule_s18 sem K_Rule_v9 arg9)
return (Syn_Rule _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOisPure _lhsOlocals _lhsOoutput _lhsOoutputs _lhsOruleNames _lhsOuniq)
)
{-# INLINE sem_Rule #-}
sem_Rule :: Rule -> T_Rule
sem_Rule ( Rule !mbName_ pattern_ !rhs_ !owrt_ !origin_ !explicit_ !pure_ !identity_ !mbError_ !eager_ ) = sem_Rule_Rule mbName_ ( sem_Pattern pattern_ ) rhs_ owrt_ origin_ explicit_ pure_ identity_ mbError_ eager_
newtype T_Rule = T_Rule {
attach_T_Rule :: Identity (T_Rule_s18 )
}
data T_Rule_s18 where C_Rule_s18 :: {
inv_Rule_s18 :: !(forall t. K_Rule_s18 t -> t)
} -> T_Rule_s18
data T_Rule_s19 = C_Rule_s19
data T_Rule_s41 = C_Rule_s41
newtype T_Rule_s51 = C_Rule_s51 {
inv_Rule_s51 :: (T_Rule_v44 )
}
data K_Rule_s18 k where
K_Rule_v9 :: K_Rule_s18 (T_Rule_v9 )
K_Rule_v29 :: K_Rule_s18 (T_Rule_v29 )
K_Rule_v43 :: K_Rule_s18 (T_Rule_v43 )
type T_Rule_v9 = (T_Rule_vIn9 ) -> (T_Rule_vOut9 )
data T_Rule_vIn9 = T_Rule_vIn9 !(ConstructorIdent) !(Map NontermIdent ConstructorType) !(NontermIdent) !(Options) !(Int)
data T_Rule_vOut9 = T_Rule_vOut9 !(Bool) !(Set (Identifier,Identifier)) !(Seq Error) !(Bool) !(Set Identifier) !(Rule) !(Rules) !(Set Identifier) !(Int)
type T_Rule_v29 = (T_Rule_vIn29 ) -> (T_Rule_vOut29 )
data T_Rule_vIn29 = T_Rule_vIn29 !(Options) !(Int)
data T_Rule_vOut29 = T_Rule_vOut29 !(Bool) !(Set (Identifier,Identifier)) !(Seq Error) !(Bool) !(Set Identifier) !(Rules) !(Set Identifier) !(Int)
type T_Rule_v43 = (T_Rule_vIn43 ) -> (T_Rule_vOut43 )
data T_Rule_vIn43 = T_Rule_vIn43
data T_Rule_vOut43 = T_Rule_vOut43 !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Set Identifier) !(T_Rule_s51 )
type T_Rule_v44 = (T_Rule_vIn44 ) -> (T_Rule_vOut44 )
data T_Rule_vIn44 = T_Rule_vIn44 !(Options) !(Int)
data T_Rule_vOut44 = T_Rule_vOut44 !(Bool) !(Bool) !(Rules) !(Int)
{-# NOINLINE sem_Rule_Rule #-}
sem_Rule_Rule :: (Maybe Identifier) -> T_Pattern -> (Expression) -> (Bool) -> (String) -> (Bool) -> (Bool) -> (Bool) -> (Maybe Error) -> (Bool) -> T_Rule
sem_Rule_Rule !arg_mbName_ arg_pattern_ !arg_rhs_ !arg_owrt_ !arg_origin_ !arg_explicit_ !arg_pure_ !arg_identity_ !arg_mbError_ !arg_eager_ = T_Rule (return st18) where
{-# NOINLINE st18 #-}
!st18 = let
k18 :: K_Rule_s18 t -> t
k18 K_Rule_v9 = v9
k18 K_Rule_v29 = v29
k18 K_Rule_v43 = v43
v9 :: T_Rule_v9
v9 = \ !(T_Rule_vIn9 _lhsIcon _lhsIconstructorTypeMap _lhsInt _lhsIoptions _lhsIuniq) -> (
let !_patternX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pattern_)) in
let _lhsOisPure :: Bool
!_lhsOisPure = rule280 arg_pure_ in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule284 arg_mbName_ in
let !(T_Pattern_vOut28 _patternIcontainsVars _patternIdefinedAttrs _patternIerrors _patternIlocals _patternIoutput) = inv_Pattern_s10 _patternX10 K_Pattern_v28 (T_Pattern_vIn28 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule285 _patternIcontainsVars in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule286 _patternIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule287 _patternIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule288 _patternIlocals in
let !_output = rule289 _patternIoutput arg_eager_ arg_explicit_ arg_identity_ arg_mbError_ arg_mbName_ arg_origin_ arg_owrt_ arg_pure_ arg_rhs_ in
let _lhsOoutput :: Rule
!_lhsOoutput = rule290 _output in
let !(!_output1,!_mbAlias) = rule281 _output in
let _lhsOuniq :: Int
!(!_outputs,!_lhsOuniq) = rule282 _lhsIoptions _lhsIuniq _output1 in
let _lhsOoutputs :: Rules
!_lhsOoutputs = rule283 _mbAlias _outputs in
let !__result_ = T_Rule_vOut9 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOisPure _lhsOlocals _lhsOoutput _lhsOoutputs _lhsOruleNames _lhsOuniq
in __result_ )
v29 :: T_Rule_v29
v29 = \ !(T_Rule_vIn29 _lhsIoptions _lhsIuniq) -> (
let !_patternX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pattern_)) in
let _lhsOisPure :: Bool
!_lhsOisPure = rule280 arg_pure_ in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule284 arg_mbName_ in
let !(T_Pattern_vOut28 _patternIcontainsVars _patternIdefinedAttrs _patternIerrors _patternIlocals _patternIoutput) = inv_Pattern_s10 _patternX10 K_Pattern_v28 (T_Pattern_vIn28 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule285 _patternIcontainsVars in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule286 _patternIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule287 _patternIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule288 _patternIlocals in
let !_output = rule289 _patternIoutput arg_eager_ arg_explicit_ arg_identity_ arg_mbError_ arg_mbName_ arg_origin_ arg_owrt_ arg_pure_ arg_rhs_ in
let !(!_output1,!_mbAlias) = rule281 _output in
let _lhsOuniq :: Int
!(!_outputs,!_lhsOuniq) = rule282 _lhsIoptions _lhsIuniq _output1 in
let _lhsOoutputs :: Rules
!_lhsOoutputs = rule283 _mbAlias _outputs in
let !__result_ = T_Rule_vOut29 _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOisPure _lhsOlocals _lhsOoutputs _lhsOruleNames _lhsOuniq
in __result_ )
v43 :: T_Rule_v43
v43 = \ !(T_Rule_vIn43 ) -> (
let !_patternX10 = Control.Monad.Identity.runIdentity (attach_T_Pattern (arg_pattern_)) in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule284 arg_mbName_ in
let !(T_Pattern_vOut50 _patternIdefinedAttrs _patternIerrors _patternIlocals _patternX55) = inv_Pattern_s10 _patternX10 K_Pattern_v50 (T_Pattern_vIn50 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule286 _patternIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule287 _patternIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule288 _patternIlocals in
let !__st_ = st51 _patternX55
!__result_ = T_Rule_vOut43 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOruleNames __st_
in __result_ )
in C_Rule_s18 k18
{-# NOINLINE st51 #-}
st51 = \ !_patternX55 -> let
v44 :: T_Rule_v44
v44 = \ !(T_Rule_vIn44 _lhsIoptions _lhsIuniq) -> (
let _lhsOisPure :: Bool
!_lhsOisPure = rule280 arg_pure_ in
let !(T_Pattern_vOut51 _patternIcontainsVars _patternIoutput) = inv_Pattern_s55 _patternX55 K_Pattern_v51 (T_Pattern_vIn51 ) in
let _lhsOcontainsVars :: Bool
!_lhsOcontainsVars = rule285 _patternIcontainsVars in
let !_output = rule289 _patternIoutput arg_eager_ arg_explicit_ arg_identity_ arg_mbError_ arg_mbName_ arg_origin_ arg_owrt_ arg_pure_ arg_rhs_ in
let !(!_output1,!_mbAlias) = rule281 _output in
let _lhsOuniq :: Int
!(!_outputs,!_lhsOuniq) = rule282 _lhsIoptions _lhsIuniq _output1 in
let _lhsOoutputs :: Rules
!_lhsOoutputs = rule283 _mbAlias _outputs in
let !__result_ = T_Rule_vOut44 _lhsOcontainsVars _lhsOisPure _lhsOoutputs _lhsOuniq
in __result_ )
in C_Rule_s51 v44
{-# NOINLINE[1] rule280 #-}
{-# LINE 585 "src-ag/DefaultRules.ag" #-}
rule280 = \ !pure_ ->
{-# LINE 585 "src-ag/DefaultRules.ag" #-}
pure_
{-# LINE 4271 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule281 #-}
{-# LINE 652 "src-ag/DefaultRules.ag" #-}
rule281 = \ !_output ->
{-# LINE 652 "src-ag/DefaultRules.ag" #-}
mkRuleAlias _output
{-# LINE 4277 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule282 #-}
{-# LINE 653 "src-ag/DefaultRules.ag" #-}
rule282 = \ ((!_lhsIoptions) :: Options) ((!_lhsIuniq) :: Int) !_output1 ->
{-# LINE 653 "src-ag/DefaultRules.ag" #-}
if needsMultiRules _lhsIoptions
then multiRule _output1 _lhsIuniq
else ([_output1 ], _lhsIuniq)
{-# LINE 4285 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule283 #-}
{-# LINE 656 "src-ag/DefaultRules.ag" #-}
rule283 = \ !_mbAlias !_outputs ->
{-# LINE 656 "src-ag/DefaultRules.ag" #-}
maybe [] return _mbAlias ++ _outputs
{-# LINE 4291 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule284 #-}
{-# LINE 741 "src-ag/DefaultRules.ag" #-}
rule284 = \ !mbName_ ->
{-# LINE 741 "src-ag/DefaultRules.ag" #-}
case mbName_ of
Nothing -> Set.empty
Just nm -> Set.singleton nm
{-# LINE 4299 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule285 #-}
rule285 = \ ((!_patternIcontainsVars) :: Bool) ->
_patternIcontainsVars
{-# NOINLINE[1] rule286 #-}
rule286 = \ ((!_patternIdefinedAttrs) :: Set (Identifier,Identifier)) ->
_patternIdefinedAttrs
{-# NOINLINE[1] rule287 #-}
rule287 = \ ((!_patternIerrors) :: Seq Error) ->
_patternIerrors
{-# NOINLINE[1] rule288 #-}
rule288 = \ ((!_patternIlocals) :: Set Identifier) ->
_patternIlocals
{-# NOINLINE[1] rule289 #-}
rule289 = \ ((!_patternIoutput) :: Pattern) !eager_ !explicit_ !identity_ !mbError_ !mbName_ !origin_ !owrt_ !pure_ !rhs_ ->
Rule mbName_ _patternIoutput rhs_ owrt_ origin_ explicit_ pure_ identity_ mbError_ eager_
{-# INLINE rule290 #-}
rule290 = \ !_output ->
_output
data Inh_Rules = Inh_Rules { con_Inh_Rules :: !(ConstructorIdent), constructorTypeMap_Inh_Rules :: !(Map NontermIdent ConstructorType), nt_Inh_Rules :: !(NontermIdent), options_Inh_Rules :: !(Options), uniq_Inh_Rules :: !(Int) }
data Syn_Rules = Syn_Rules { definedAttrs_Syn_Rules :: !(Set (Identifier,Identifier)), errors_Syn_Rules :: !(Seq Error), locals_Syn_Rules :: !(Set Identifier), output_Syn_Rules :: !(Rules), ruleNames_Syn_Rules :: !(Set Identifier), uniq_Syn_Rules :: !(Int) }
{-# INLINABLE wrap_Rules #-}
wrap_Rules :: T_Rules -> Inh_Rules -> (Syn_Rules )
wrap_Rules !(T_Rules act) !(Inh_Rules _lhsIcon _lhsIconstructorTypeMap _lhsInt _lhsIoptions _lhsIuniq) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg10 = T_Rules_vIn10 _lhsIcon _lhsIconstructorTypeMap _lhsInt _lhsIoptions _lhsIuniq
!(T_Rules_vOut10 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput _lhsOruleNames _lhsOuniq) <- return (inv_Rules_s20 sem K_Rules_v10 arg10)
return (Syn_Rules _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput _lhsOruleNames _lhsOuniq)
)
{-# NOINLINE sem_Rules #-}
sem_Rules :: Rules -> T_Rules
sem_Rules list = Prelude.foldr sem_Rules_Cons sem_Rules_Nil (Prelude.map sem_Rule list)
newtype T_Rules = T_Rules {
attach_T_Rules :: Identity (T_Rules_s20 )
}
data T_Rules_s20 where C_Rules_s20 :: {
inv_Rules_s20 :: !(forall t. K_Rules_s20 t -> t)
} -> T_Rules_s20
data T_Rules_s21 = C_Rules_s21
data T_Rules_s37 = C_Rules_s37
newtype T_Rules_s42 = C_Rules_s42 {
inv_Rules_s42 :: (T_Rules_v31 )
}
data K_Rules_s20 k where
K_Rules_v10 :: K_Rules_s20 (T_Rules_v10 )
K_Rules_v24 :: K_Rules_s20 (T_Rules_v24 )
K_Rules_v30 :: K_Rules_s20 (T_Rules_v30 )
type T_Rules_v10 = (T_Rules_vIn10 ) -> (T_Rules_vOut10 )
data T_Rules_vIn10 = T_Rules_vIn10 !(ConstructorIdent) !(Map NontermIdent ConstructorType) !(NontermIdent) !(Options) !(Int)
data T_Rules_vOut10 = T_Rules_vOut10 !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Rules) !(Set Identifier) !(Int)
type T_Rules_v24 = (T_Rules_vIn24 ) -> (T_Rules_vOut24 )
data T_Rules_vIn24 = T_Rules_vIn24 !(Options) !(Int)
data T_Rules_vOut24 = T_Rules_vOut24 !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Rules) !(Set Identifier) !(Int)
type T_Rules_v30 = (T_Rules_vIn30 ) -> (T_Rules_vOut30 )
data T_Rules_vIn30 = T_Rules_vIn30
data T_Rules_vOut30 = T_Rules_vOut30 !(Set (Identifier,Identifier)) !(Seq Error) !(Set Identifier) !(Set Identifier) !(T_Rules_s42 )
type T_Rules_v31 = (T_Rules_vIn31 ) -> (T_Rules_vOut31 )
data T_Rules_vIn31 = T_Rules_vIn31 !(Options) !(Int)
data T_Rules_vOut31 = T_Rules_vOut31 !(Rules) !(Int)
{-# NOINLINE sem_Rules_Cons #-}
sem_Rules_Cons :: T_Rule -> T_Rules -> T_Rules
sem_Rules_Cons arg_hd_ arg_tl_ = T_Rules (return st20) where
{-# NOINLINE st20 #-}
!st20 = let
k20 :: K_Rules_s20 t -> t
k20 K_Rules_v10 = v10
k20 K_Rules_v24 = v24
k20 K_Rules_v30 = v30
v10 :: T_Rules_v10
v10 = \ !(T_Rules_vIn10 _lhsIcon _lhsIconstructorTypeMap _lhsInt _lhsIoptions _lhsIuniq) -> (
let !_hdX18 = Control.Monad.Identity.runIdentity (attach_T_Rule (arg_hd_)) in
let !_tlX20 = Control.Monad.Identity.runIdentity (attach_T_Rules (arg_tl_)) in
let !_hdOoptions = rule303 _lhsIoptions in
let !_hdOuniq = rule304 _lhsIuniq in
let !_tlOoptions = rule308 _lhsIoptions in
let !(T_Rule_vOut29 _hdIcontainsVars _hdIdefinedAttrs _hdIerrors _hdIisPure _hdIlocals _hdIoutputs _hdIruleNames _hdIuniq) = inv_Rule_s18 _hdX18 K_Rule_v29 (T_Rule_vIn29 _hdOoptions _hdOuniq) in
let !(T_Rules_vOut30 _tlIdefinedAttrs _tlIerrors _tlIlocals _tlIruleNames _tlX42) = inv_Rules_s20 _tlX20 K_Rules_v30 (T_Rules_vIn30 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule294 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule295 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule296 _hdIlocals _tlIlocals in
let !_tlOuniq = rule309 _hdIuniq in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule297 _hdIruleNames _tlIruleNames in
let !(T_Rules_vOut31 _tlIoutput _tlIuniq) = inv_Rules_s42 _tlX42 (T_Rules_vIn31 _tlOoptions _tlOuniq) in
let _lhsOoutput :: Rules
!_lhsOoutput = rule293 _hdIcontainsVars _hdIisPure _hdIoutputs _tlIoutput in
let _lhsOuniq :: Int
!_lhsOuniq = rule299 _tlIuniq in
let !__result_ = T_Rules_vOut10 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput _lhsOruleNames _lhsOuniq
in __result_ )
v24 :: T_Rules_v24
v24 = \ !(T_Rules_vIn24 _lhsIoptions _lhsIuniq) -> (
let !_hdX18 = Control.Monad.Identity.runIdentity (attach_T_Rule (arg_hd_)) in
let !_tlX20 = Control.Monad.Identity.runIdentity (attach_T_Rules (arg_tl_)) in
let !_hdOoptions = rule303 _lhsIoptions in
let !_hdOuniq = rule304 _lhsIuniq in
let !_tlOoptions = rule308 _lhsIoptions in
let !(T_Rule_vOut29 _hdIcontainsVars _hdIdefinedAttrs _hdIerrors _hdIisPure _hdIlocals _hdIoutputs _hdIruleNames _hdIuniq) = inv_Rule_s18 _hdX18 K_Rule_v29 (T_Rule_vIn29 _hdOoptions _hdOuniq) in
let !(T_Rules_vOut30 _tlIdefinedAttrs _tlIerrors _tlIlocals _tlIruleNames _tlX42) = inv_Rules_s20 _tlX20 K_Rules_v30 (T_Rules_vIn30 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule294 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule295 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule296 _hdIlocals _tlIlocals in
let !_tlOuniq = rule309 _hdIuniq in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule297 _hdIruleNames _tlIruleNames in
let !(T_Rules_vOut31 _tlIoutput _tlIuniq) = inv_Rules_s42 _tlX42 (T_Rules_vIn31 _tlOoptions _tlOuniq) in
let _lhsOoutput :: Rules
!_lhsOoutput = rule293 _hdIcontainsVars _hdIisPure _hdIoutputs _tlIoutput in
let _lhsOuniq :: Int
!_lhsOuniq = rule299 _tlIuniq in
let !__result_ = T_Rules_vOut24 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput _lhsOruleNames _lhsOuniq
in __result_ )
v30 :: T_Rules_v30
v30 = \ !(T_Rules_vIn30 ) -> (
let !_hdX18 = Control.Monad.Identity.runIdentity (attach_T_Rule (arg_hd_)) in
let !_tlX20 = Control.Monad.Identity.runIdentity (attach_T_Rules (arg_tl_)) in
let !(T_Rule_vOut43 _hdIdefinedAttrs _hdIerrors _hdIlocals _hdIruleNames _hdX51) = inv_Rule_s18 _hdX18 K_Rule_v43 (T_Rule_vIn43 ) in
let !(T_Rules_vOut30 _tlIdefinedAttrs _tlIerrors _tlIlocals _tlIruleNames _tlX42) = inv_Rules_s20 _tlX20 K_Rules_v30 (T_Rules_vIn30 ) in
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule294 _hdIdefinedAttrs _tlIdefinedAttrs in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule295 _hdIerrors _tlIerrors in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule296 _hdIlocals _tlIlocals in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule297 _hdIruleNames _tlIruleNames in
let !__st_ = st42 _hdX51 _tlX42
!__result_ = T_Rules_vOut30 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOruleNames __st_
in __result_ )
in C_Rules_s20 k20
{-# NOINLINE st42 #-}
st42 = \ !_hdX51 !_tlX42 -> let
v31 :: T_Rules_v31
v31 = \ !(T_Rules_vIn31 _lhsIoptions _lhsIuniq) -> (
let !_hdOoptions = rule303 _lhsIoptions in
let !_hdOuniq = rule304 _lhsIuniq in
let !_tlOoptions = rule308 _lhsIoptions in
let !(T_Rule_vOut44 _hdIcontainsVars _hdIisPure _hdIoutputs _hdIuniq) = inv_Rule_s51 _hdX51 (T_Rule_vIn44 _hdOoptions _hdOuniq) in
let !_tlOuniq = rule309 _hdIuniq in
let !(T_Rules_vOut31 _tlIoutput _tlIuniq) = inv_Rules_s42 _tlX42 (T_Rules_vIn31 _tlOoptions _tlOuniq) in
let _lhsOoutput :: Rules
!_lhsOoutput = rule293 _hdIcontainsVars _hdIisPure _hdIoutputs _tlIoutput in
let _lhsOuniq :: Int
!_lhsOuniq = rule299 _tlIuniq in
let !__result_ = T_Rules_vOut31 _lhsOoutput _lhsOuniq
in __result_ )
in C_Rules_s42 v31
{-# NOINLINE[1] rule293 #-}
{-# LINE 648 "src-ag/DefaultRules.ag" #-}
rule293 = \ ((!_hdIcontainsVars) :: Bool) ((!_hdIisPure) :: Bool) ((!_hdIoutputs) :: Rules) ((!_tlIoutput) :: Rules) ->
{-# LINE 648 "src-ag/DefaultRules.ag" #-}
if _hdIcontainsVars && _hdIisPure then _hdIoutputs ++ _tlIoutput else _tlIoutput
{-# LINE 4465 "dist/build/DefaultRules.hs"#-}
{-# NOINLINE[1] rule294 #-}
rule294 = \ ((!_hdIdefinedAttrs) :: Set (Identifier,Identifier)) ((!_tlIdefinedAttrs) :: Set (Identifier,Identifier)) ->
_hdIdefinedAttrs `Set.union` _tlIdefinedAttrs
{-# NOINLINE[1] rule295 #-}
rule295 = \ ((!_hdIerrors) :: Seq Error) ((!_tlIerrors) :: Seq Error) ->
_hdIerrors Seq.>< _tlIerrors
{-# NOINLINE[1] rule296 #-}
rule296 = \ ((!_hdIlocals) :: Set Identifier) ((!_tlIlocals) :: Set Identifier) ->
_hdIlocals `Set.union` _tlIlocals
{-# NOINLINE[1] rule297 #-}
rule297 = \ ((!_hdIruleNames) :: Set Identifier) ((!_tlIruleNames) :: Set Identifier) ->
_hdIruleNames `Set.union` _tlIruleNames
{-# NOINLINE[1] rule299 #-}
rule299 = \ ((!_tlIuniq) :: Int) ->
_tlIuniq
{-# NOINLINE[1] rule303 #-}
rule303 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
{-# NOINLINE[1] rule304 #-}
rule304 = \ ((!_lhsIuniq) :: Int) ->
_lhsIuniq
{-# NOINLINE[1] rule308 #-}
rule308 = \ ((!_lhsIoptions) :: Options) ->
_lhsIoptions
{-# NOINLINE[1] rule309 #-}
rule309 = \ ((!_hdIuniq) :: Int) ->
_hdIuniq
{-# NOINLINE sem_Rules_Nil #-}
sem_Rules_Nil :: T_Rules
sem_Rules_Nil = T_Rules (return st20) where
{-# NOINLINE st20 #-}
!st20 = let
k20 :: K_Rules_s20 t -> t
k20 K_Rules_v10 = v10
k20 K_Rules_v24 = v24
k20 K_Rules_v30 = v30
v10 :: T_Rules_v10
v10 = \ !(T_Rules_vIn10 _lhsIcon _lhsIconstructorTypeMap _lhsInt _lhsIoptions _lhsIuniq) -> (
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule310 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule311 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule312 () in
let !_output = rule314 () in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule313 () in
let _lhsOoutput :: Rules
!_lhsOoutput = rule315 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule316 _lhsIuniq in
let !__result_ = T_Rules_vOut10 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput _lhsOruleNames _lhsOuniq
in __result_ )
v24 :: T_Rules_v24
v24 = \ !(T_Rules_vIn24 _lhsIoptions _lhsIuniq) -> (
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule310 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule311 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule312 () in
let !_output = rule314 () in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule313 () in
let _lhsOoutput :: Rules
!_lhsOoutput = rule315 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule316 _lhsIuniq in
let !__result_ = T_Rules_vOut24 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput _lhsOruleNames _lhsOuniq
in __result_ )
v30 :: T_Rules_v30
v30 = \ !(T_Rules_vIn30 ) -> (
let _lhsOdefinedAttrs :: Set (Identifier,Identifier)
!_lhsOdefinedAttrs = rule310 () in
let _lhsOerrors :: Seq Error
!_lhsOerrors = rule311 () in
let _lhsOlocals :: Set Identifier
!_lhsOlocals = rule312 () in
let _lhsOruleNames :: Set Identifier
!_lhsOruleNames = rule313 () in
let !__st_ = st42 ()
!__result_ = T_Rules_vOut30 _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOruleNames __st_
in __result_ )
in C_Rules_s20 k20
{-# NOINLINE st42 #-}
st42 = \ (_ :: ()) -> let
v31 :: T_Rules_v31
v31 = \ !(T_Rules_vIn31 _lhsIoptions _lhsIuniq) -> (
let !_output = rule314 () in
let _lhsOoutput :: Rules
!_lhsOoutput = rule315 _output in
let _lhsOuniq :: Int
!_lhsOuniq = rule316 _lhsIuniq in
let !__result_ = T_Rules_vOut31 _lhsOoutput _lhsOuniq
in __result_ )
in C_Rules_s42 v31
{-# NOINLINE[1] rule310 #-}
rule310 = \ (_ :: ()) ->
Set.empty
{-# NOINLINE[1] rule311 #-}
rule311 = \ (_ :: ()) ->
Seq.empty
{-# NOINLINE[1] rule312 #-}
rule312 = \ (_ :: ()) ->
Set.empty
{-# NOINLINE[1] rule313 #-}
rule313 = \ (_ :: ()) ->
Set.empty
{-# NOINLINE[1] rule314 #-}
rule314 = \ (_ :: ()) ->
[]
{-# NOINLINE[1] rule315 #-}
rule315 = \ !_output ->
_output
{-# NOINLINE[1] rule316 #-}
rule316 = \ ((!_lhsIuniq) :: Int) ->
_lhsIuniq
data Inh_TypeSig = Inh_TypeSig { nt_Inh_TypeSig :: !(NontermIdent), params_Inh_TypeSig :: !([Identifier]) }
data Syn_TypeSig = Syn_TypeSig { output_Syn_TypeSig :: !(TypeSig) }
{-# INLINABLE wrap_TypeSig #-}
wrap_TypeSig :: T_TypeSig -> Inh_TypeSig -> (Syn_TypeSig )
wrap_TypeSig !(T_TypeSig act) !(Inh_TypeSig _lhsInt _lhsIparams) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg11 = T_TypeSig_vIn11 _lhsInt _lhsIparams
!(T_TypeSig_vOut11 _lhsOoutput) <- return (inv_TypeSig_s22 sem arg11)
return (Syn_TypeSig _lhsOoutput)
)
{-# INLINE sem_TypeSig #-}
sem_TypeSig :: TypeSig -> T_TypeSig
sem_TypeSig ( TypeSig !name_ !tp_ ) = sem_TypeSig_TypeSig name_ tp_
newtype T_TypeSig = T_TypeSig {
attach_T_TypeSig :: Identity (T_TypeSig_s22 )
}
newtype T_TypeSig_s22 = C_TypeSig_s22 {
inv_TypeSig_s22 :: (T_TypeSig_v11 )
}
data T_TypeSig_s23 = C_TypeSig_s23
type T_TypeSig_v11 = (T_TypeSig_vIn11 ) -> (T_TypeSig_vOut11 )
data T_TypeSig_vIn11 = T_TypeSig_vIn11 !(NontermIdent) !([Identifier])
data T_TypeSig_vOut11 = T_TypeSig_vOut11 !(TypeSig)
{-# NOINLINE sem_TypeSig_TypeSig #-}
sem_TypeSig_TypeSig :: (Identifier) -> (Type) -> T_TypeSig
sem_TypeSig_TypeSig !arg_name_ !arg_tp_ = T_TypeSig (return st22) where
{-# NOINLINE st22 #-}
!st22 = let
v11 :: T_TypeSig_v11
v11 = \ !(T_TypeSig_vIn11 _lhsInt _lhsIparams) -> (
let !_tp1 = rule317 _lhsInt _lhsIparams arg_tp_ in
let _lhsOoutput :: TypeSig
!_lhsOoutput = rule318 _tp1 arg_name_ in
let !__result_ = T_TypeSig_vOut11 _lhsOoutput
in __result_ )
in C_TypeSig_s22 v11
{-# INLINE rule317 #-}
{-# LINE 604 "src-ag/DefaultRules.ag" #-}
rule317 = \ ((!_lhsInt) :: NontermIdent) ((!_lhsIparams) :: [Identifier]) !tp_ ->
{-# LINE 604 "src-ag/DefaultRules.ag" #-}
elimSelfId _lhsInt _lhsIparams tp_
{-# LINE 4632 "dist/build/DefaultRules.hs"#-}
{-# INLINE rule318 #-}
{-# LINE 645 "src-ag/DefaultRules.ag" #-}
rule318 = \ !_tp1 !name_ ->
{-# LINE 645 "src-ag/DefaultRules.ag" #-}
TypeSig name_ _tp1
{-# LINE 4638 "dist/build/DefaultRules.hs"#-}
data Inh_TypeSigs = Inh_TypeSigs { nt_Inh_TypeSigs :: !(NontermIdent), params_Inh_TypeSigs :: !([Identifier]) }
data Syn_TypeSigs = Syn_TypeSigs { output_Syn_TypeSigs :: !(TypeSigs) }
{-# INLINABLE wrap_TypeSigs #-}
wrap_TypeSigs :: T_TypeSigs -> Inh_TypeSigs -> (Syn_TypeSigs )
wrap_TypeSigs !(T_TypeSigs act) !(Inh_TypeSigs _lhsInt _lhsIparams) =
Control.Monad.Identity.runIdentity (
do !sem <- act
let arg12 = T_TypeSigs_vIn12 _lhsInt _lhsIparams
!(T_TypeSigs_vOut12 _lhsOoutput) <- return (inv_TypeSigs_s24 sem arg12)
return (Syn_TypeSigs _lhsOoutput)
)
{-# NOINLINE sem_TypeSigs #-}
sem_TypeSigs :: TypeSigs -> T_TypeSigs
sem_TypeSigs list = Prelude.foldr sem_TypeSigs_Cons sem_TypeSigs_Nil (Prelude.map sem_TypeSig list)
newtype T_TypeSigs = T_TypeSigs {
attach_T_TypeSigs :: Identity (T_TypeSigs_s24 )
}
newtype T_TypeSigs_s24 = C_TypeSigs_s24 {
inv_TypeSigs_s24 :: (T_TypeSigs_v12 )
}
data T_TypeSigs_s25 = C_TypeSigs_s25
type T_TypeSigs_v12 = (T_TypeSigs_vIn12 ) -> (T_TypeSigs_vOut12 )
data T_TypeSigs_vIn12 = T_TypeSigs_vIn12 !(NontermIdent) !([Identifier])
data T_TypeSigs_vOut12 = T_TypeSigs_vOut12 !(TypeSigs)
{-# NOINLINE sem_TypeSigs_Cons #-}
sem_TypeSigs_Cons :: T_TypeSig -> T_TypeSigs -> T_TypeSigs
sem_TypeSigs_Cons arg_hd_ arg_tl_ = T_TypeSigs (return st24) where
{-# NOINLINE st24 #-}
!st24 = let
v12 :: T_TypeSigs_v12
v12 = \ !(T_TypeSigs_vIn12 _lhsInt _lhsIparams) -> (
let !_hdX22 = Control.Monad.Identity.runIdentity (attach_T_TypeSig (arg_hd_)) in
let !_tlX24 = Control.Monad.Identity.runIdentity (attach_T_TypeSigs (arg_tl_)) in
let !_hdOnt = rule322 _lhsInt in
let !_hdOparams = rule323 _lhsIparams in
let !_tlOnt = rule324 _lhsInt in
let !_tlOparams = rule325 _lhsIparams in
let !(T_TypeSig_vOut11 _hdIoutput) = inv_TypeSig_s22 _hdX22 (T_TypeSig_vIn11 _hdOnt _hdOparams) in
let !(T_TypeSigs_vOut12 _tlIoutput) = inv_TypeSigs_s24 _tlX24 (T_TypeSigs_vIn12 _tlOnt _tlOparams) in
let !_output = rule320 _hdIoutput _tlIoutput in
let _lhsOoutput :: TypeSigs
!_lhsOoutput = rule321 _output in
let !__result_ = T_TypeSigs_vOut12 _lhsOoutput
in __result_ )
in C_TypeSigs_s24 v12
{-# INLINE rule320 #-}
rule320 = \ ((!_hdIoutput) :: TypeSig) ((!_tlIoutput) :: TypeSigs) ->
(:) _hdIoutput _tlIoutput
{-# INLINE rule321 #-}
rule321 = \ !_output ->
_output
{-# INLINE rule322 #-}
rule322 = \ ((!_lhsInt) :: NontermIdent) ->
_lhsInt
{-# INLINE rule323 #-}
rule323 = \ ((!_lhsIparams) :: [Identifier]) ->
_lhsIparams
{-# INLINE rule324 #-}
rule324 = \ ((!_lhsInt) :: NontermIdent) ->
_lhsInt
{-# INLINE rule325 #-}
rule325 = \ ((!_lhsIparams) :: [Identifier]) ->
_lhsIparams
{-# NOINLINE sem_TypeSigs_Nil #-}
sem_TypeSigs_Nil :: T_TypeSigs
sem_TypeSigs_Nil = T_TypeSigs (return st24) where
{-# NOINLINE st24 #-}
!st24 = let
v12 :: T_TypeSigs_v12
v12 = \ !(T_TypeSigs_vIn12 _lhsInt _lhsIparams) -> (
let !_output = rule326 () in
let _lhsOoutput :: TypeSigs
!_lhsOoutput = rule327 _output in
let !__result_ = T_TypeSigs_vOut12 _lhsOoutput
in __result_ )
in C_TypeSigs_s24 v12
{-# INLINE rule326 #-}
rule326 = \ (_ :: ()) ->
[]
{-# INLINE rule327 #-}
rule327 = \ !_output ->
_output