uuagc 0.9.37.2 → 0.9.38.0
raw patch · 9 files changed
+15056/−14808 lines, 9 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- src-derived/ConcreteSyntax.hs +5/−1
- src-derived/GenerateCode.hs +7950/−7943
- src-derived/Transform.hs +7078/−6859
- src/Options.hs +14/−0
- src/Parser.hs +5/−1
- src/Scanner.hs +1/−1
- src/Version.hs +1/−1
- uuagc.cabal +1/−1
- uuagc.cabal-for-ghc-6.6 +1/−1
src-derived/ConcreteSyntax.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (ConcreteSyntax.ag)+-- UUAGC 0.9.37.2 (ConcreteSyntax.ag) module ConcreteSyntax where {-# LINE 2 "ConcreteSyntax.ag" #-} @@ -86,6 +86,9 @@ child name : {String} child exports : {String} child imports : {String}+ alternative Nocatas:+ child pos : {Pos}+ child set : NontSet alternative Pragma: child pos : {Pos} child names : {[NontermIdent]}@@ -119,6 +122,7 @@ | Data (Pos) (ClassContext) (NontSet ) (([Identifier])) (Attrs ) (Alts ) (Bool) | Deriving (Pos) (NontSet ) (([NontermIdent])) | Module (Pos) (String) (String) (String) + | Nocatas (Pos) (NontSet ) | Pragma (Pos) (([NontermIdent])) | Sem (Pos) (ClassContext) (NontSet ) (Attrs ) (SemAlts ) | Set (Pos) (NontermIdent) (Bool) (NontSet )
src-derived/GenerateCode.hs view
@@ -1,7947 +1,7954 @@ --- UUAGC 0.9.37.1 (GenerateCode.ag)-module GenerateCode where-{-# LINE 9 "GenerateCode.ag" #-}--import CommonTypes-import SequentialTypes-import Code hiding (Type)-import qualified Code-import Options-import CodeSyntax-import ErrorMessages-import GrammarInfo-import DeclBlocks--import qualified Data.Map as Map-import Data.Map(Map) -import qualified Data.Set as Set-import Data.Set(Set) -import qualified Data.Sequence as Seq-import Data.Sequence(Seq)-import UU.Scanner.Position-import TokenDef-import HsToken-import HsTokenScanner--import Data.List(partition,intersperse,intersect,(\\))-import Maybe(fromJust,isJust)--import Debug.Trace-{-# LINE 33 "../src-derived/GenerateCode.hs" #-}--{-# LINE 2 "./CodeSyntax.ag" #-}--import Patterns-import CommonTypes-import Data.Map(Map)-import Data.Set(Set)-{-# LINE 41 "../src-derived/GenerateCode.hs" #-}--{-# LINE 2 "./Patterns.ag" #-}---- Patterns.ag imports-import UU.Scanner.Position(Pos)-import CommonTypes (ConstructorIdent,Identifier)-{-# LINE 48 "../src-derived/GenerateCode.hs" #-}--{-# LINE 2 "./DeclBlocks.ag" #-}--import Code (Decl,Expr)-{-# LINE 53 "../src-derived/GenerateCode.hs" #-}-{-# LINE 107 "GenerateCode.ag" #-}---- remove possible @v references in the types of a data type.-cleanupArg :: String -> String-cleanupArg s- = case idEvalType (SimpleType s) of- SimpleType s' -> s'-{-# LINE 61 "../src-derived/GenerateCode.hs" #-}--{-# LINE 121 "GenerateCode.ag" #-}--appContext :: ContextMap -> NontermIdent -> Code.Type -> Code.Type-appContext mp nt tp- = maybe tp (\ctx -> CtxApp (map (\(n,ns) -> (getName n, ns)) ctx) tp) $ Map.lookup nt mp-{-# LINE 68 "../src-derived/GenerateCode.hs" #-}--{-# LINE 240 "GenerateCode.ag" #-}--mkDecl True lhs rhs _ _ = Bind lhs rhs-mkDecl False lhs rhs s1 s2 = Decl lhs rhs s1 s2--unwrapSem :: Bool -> NontermIdent -> Expr -> Expr-unwrapSem False _ e = e-unwrapSem True nm e = Case e alts- where alts = [CaseAlt left right]- left = Fun (typeName nm 0) [SimpleExpr "x"]- right = SimpleExpr "x"-{-# LINE 81 "../src-derived/GenerateCode.hs" #-}--{-# LINE 406 "GenerateCode.ag" #-}--substSelf nt tp = case tp of- NT t tps | t == _SELF -> Haskell (getName nt ++ " " ++ unwords tps)- _ -> tp-{-# LINE 88 "../src-derived/GenerateCode.hs" #-}--{-# LINE 529 "GenerateCode.ag" #-}--mkLambdaArg :: String -> Maybe Code.Type -> Expr-mkLambdaArg nm Nothing = SimpleExpr nm-mkLambdaArg nm (Just tp) = TypedExpr (SimpleExpr nm) tp--mkLambda :: Exprs -> Expr -> Expr-mkLambda [] e = e-mkLambda xs e = Lambda xs e--mkSemFun :: Identifier -> Int -> Exprs -> Expr -> Expr-mkSemFun nt nr xs e = SemFun (typeName nt nr) xs e--typeAppStrs nm params = TypeApp (SimpleType nm) (map SimpleType params)--isHigherOrder :: Maybe (Maybe Type) -> Bool-isHigherOrder (Just Nothing) = True-isHigherOrder _ = False--pickOrigType :: (Identifier, Type, Maybe (Maybe Type)) -> (Identifier, Type, Maybe (Maybe Type))-pickOrigType (nm, tp, virt@(Just (Just x))) = (nm, x, virt)-pickOrigType x = x-{-# LINE 112 "../src-derived/GenerateCode.hs" #-}--{-# LINE 625 "GenerateCode.ag" #-}--mkPartitionedFunction :: String -> Bool -> [Decl] -> [String] -> DeclBlocks -> ([Decl], Expr)-mkPartitionedFunction prefix optCase nextVisitDecls lastExprVars cpsTree- = let inh = Inh_DeclBlocksRoot { prefix_Inh_DeclBlocksRoot = prefix- , optCase_Inh_DeclBlocksRoot = optCase- , nextVisitDecls_Inh_DeclBlocksRoot = nextVisitDecls- , lastExprVars_Inh_DeclBlocksRoot = lastExprVars- }- sem = sem_DeclBlocksRoot (DeclBlocksRoot cpsTree)- syn = wrap_DeclBlocksRoot sem inh- in (lambdas_Syn_DeclBlocksRoot syn, firstCall_Syn_DeclBlocksRoot syn)-{-# LINE 126 "../src-derived/GenerateCode.hs" #-}--{-# LINE 675 "GenerateCode.ag" #-}--freevars :: [String] -> [Decl] -> [String]-freevars additional decls- = Set.toList (allused `Set.difference` alldefined)- where- allused = Set.unions (Set.fromList additional : map usedvars decls)- alldefined = Set.unions (map definedvars decls)- - usedvars (Decl _ _ _ uses) = uses- usedvars _ = Set.empty- - definedvars (Decl _ _ defs _) = defs- definedvars _ = Set.empty--mkBlockLambda :: Bool -> String -> [String] -> [Decl] -> Expr -> Decl-mkBlockLambda optCase name args decls expr- = Decl lhs rhs Set.empty Set.empty- where- lhs = Fun name (map SimpleExpr args)- rhs = mkLet optCase decls expr-{-# LINE 149 "../src-derived/GenerateCode.hs" #-}--{-# LINE 753 "GenerateCode.ag" #-}--typeToCodeType :: Maybe NontermIdent -> [String] -> Type -> Code.Type-typeToCodeType mbNt params tp- = case tp of- NT nt tps | nt == _SELF -> NontermType (maybe "Unknown" getName mbNt) params- | otherwise -> NontermType (getName nt) tps- Haskell t -> SimpleType t--evalType :: (String -> String) -> Code.Type -> Code.Type-evalType replf t- = chase t- where- chase t- = case t of- Arr l r -> Arr (chase l) (chase r)- TypeApp f as -> TypeApp (chase f) (map chase as)- TupleType tps -> TupleType (map chase tps)- UnboxedTupleType tps -> UnboxedTupleType (map chase tps)- Code.List tp -> Code.List (chase tp)- SimpleType txt -> let tks = lexTokens (initPos txt) txt- tks' = map replaceTok tks- txt' = unlines . showTokens . tokensToStrings $ tks'- in SimpleType txt'- TMaybe m -> TMaybe (chase m)- TEither l r -> TEither (chase l) (chase r)- TMap k v -> TMap (chase k) (chase v)- TIntMap v -> TIntMap (chase v)- _ -> t-- replaceTok t- = case t of- AGLocal v p _ -> HsToken (replf $ getName v) p- _ -> t--idEvalType :: Code.Type -> Code.Type-idEvalType = evalType id-{-# LINE 188 "../src-derived/GenerateCode.hs" #-}--{-# LINE 878 "GenerateCode.ag" #-}---- for a virtual child that already existed as a child, returns -isFirstOrder :: Maybe (Maybe Type) -> Type -> Maybe Type-isFirstOrder Nothing tp = Just tp-isFirstOrder (Just x) _ = x-{-# LINE 196 "../src-derived/GenerateCode.hs" #-}--{-# LINE 898 "GenerateCode.ag" #-}--makeLocalComment :: Int -> String -> Identifier -> Maybe Type -> String-makeLocalComment width what name tp = let x = getName name- y = maybe "_" (\t -> case t of (NT nt tps) -> getName nt ++ " " ++ unwords tps; Haskell t -> '{':t++"}") tp- in ( what ++ " " ++ x ++ replicate ((width - length x) `max` 0) ' ' ++ " : " ++ y )--{-# LINE 205 "../src-derived/GenerateCode.hs" #-}--{-# LINE 929 "GenerateCode.ag" #-}---- Lets or nested Cases?--- or even a do-expression?--data DeclsType = DeclsLet | DeclsCase | DeclsDo--mkDecls :: DeclsType -> Decls -> Expr -> Expr-mkDecls DeclsLet = mkLet False-mkDecls DeclsCase = mkLet True-mkDecls DeclsDo = \decls -> Do (map toBind decls)- where toBind (Decl lhs rhs _ _) = BindLet lhs rhs- toBind d = d--mkLet :: Bool -> Decls -> Expr -> Expr-mkLet False decls body = Let decls body-mkLet True decls body = foldr oneCase body decls--oneCase :: Decl -> Expr -> Expr-oneCase (Decl left rhs _ _) exp = Case rhs [CaseAlt left exp]-oneCase (Resume _ nt left rhs) exp = ResumeExpr nt rhs left exp-oneCase _ exp = exp---- Gives the name of the visit function-funname field 0 = show field ++ "_"-funname field nr = show field ++ "_" ++ show nr---- Gives the name of a semantic function-seqSemname :: String -> NontermIdent -> ConstructorIdent -> Int -> String-seqSemname pre nt con 0 = semname pre nt con-seqSemname pre nt con nr = semname pre nt con ++ "_" ++ show nr---- Gives the name of a type-typeName :: NontermIdent -> Int -> String-typeName nt 0 = "T_" ++ show nt-typeName nt n = "T_" ++ show nt ++ "_" ++ show n--ntOfVisit :: NontermIdent -> Int -> NontermIdent-ntOfVisit nt 0 = nt-ntOfVisit nt n = Ident (show nt ++ "_" ++ show n) (getPos nt)---- Gives the name of a visit function-visitname :: String -> NontermIdent -> Int -> String-visitname pre nt n = pre ++ getName nt ++ "_" ++ show n-{-# LINE 251 "../src-derived/GenerateCode.hs" #-}--- CGrammar -----------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- errors : Seq Error- output : Program- alternatives:- alternative CGrammar:- child typeSyns : {TypeSyns}- child derivings : {Derivings}- child wrappers : {Set NontermIdent}- child nonts : CNonterminals - child pragmas : {PragmaMap}- child paramMap : {ParamMap}- child contextMap : {ContextMap}- child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))}- child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))}- child multivisit : {Bool}- visit 0:- local options : _- local aroundMap : _- local mergeMap : _- local unfoldSemDom : _--}--- cata-sem_CGrammar :: CGrammar ->- T_CGrammar -sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) =- (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit )--- semantic domain-newtype T_CGrammar = T_CGrammar (Options ->- ( (Seq Error),Program))-data Inh_CGrammar = Inh_CGrammar {options_Inh_CGrammar :: !(Options)}-data Syn_CGrammar = Syn_CGrammar {errors_Syn_CGrammar :: !((Seq Error)),output_Syn_CGrammar :: !(Program)}-wrap_CGrammar :: T_CGrammar ->- Inh_CGrammar ->- Syn_CGrammar -wrap_CGrammar (T_CGrammar sem ) (Inh_CGrammar _lhsIoptions ) =- (let ( _lhsOerrors,_lhsOoutput) = sem _lhsIoptions - in (Syn_CGrammar _lhsOerrors _lhsOoutput ))-sem_CGrammar_CGrammar :: TypeSyns ->- Derivings ->- (Set NontermIdent) ->- T_CNonterminals ->- PragmaMap ->- ParamMap ->- ContextMap ->- (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->- Bool ->- T_CGrammar -sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ mergeMap_ multivisit_ =- (T_CGrammar (\ _lhsIoptions ->- (let _nontsOo_sig :: Bool- _nontsOo_cata :: Bool- _nontsOo_sem :: Bool- _nontsOo_newtypes :: Bool- _nontsOo_unbox :: Bool- _nontsOo_case :: Bool- _nontsOo_pretty :: Bool- _nontsOo_rename :: Bool- _nontsOo_strictwrap :: Bool- _nontsOo_splitsems :: Bool- _nontsOo_data :: (Maybe Bool)- _nontsOprefix :: String- _nontsOo_traces :: Bool- _nontsOo_costcentre :: Bool- _nontsOo_linePragmas :: Bool- _nontsOo_monadic :: Bool- _nontsOallPragmas :: PragmaMap- _nontsOparamMap :: ParamMap- _nontsOcontextMap :: ContextMap- _nontsOallNts :: (Set NontermIdent)- _nontsOwith_sig :: Bool- _lhsOerrors :: (Seq Error)- _lhsOoutput :: Program- _nontsOtypeSyns :: TypeSyns- _nontsOderivings :: Derivings- _nontsOwrappers :: (Set NontermIdent)- _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))- _nontsOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))- _nontsOoptions :: Options- _nontsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _nontsIchunks :: Chunks- _nontsIgathNts :: (Set NontermIdent)- _nontsIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_sig =- ({-# LINE 53 "GenerateCode.ag" #-}- typeSigs _lhsIoptions- {-# LINE 344 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_cata =- ({-# LINE 54 "GenerateCode.ag" #-}- folds _lhsIoptions- {-# LINE 350 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_sem =- ({-# LINE 55 "GenerateCode.ag" #-}- semfuns _lhsIoptions- {-# LINE 356 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_newtypes =- ({-# LINE 56 "GenerateCode.ag" #-}- newtypes _lhsIoptions- {-# LINE 362 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_unbox =- ({-# LINE 57 "GenerateCode.ag" #-}- unbox _lhsIoptions- {-# LINE 368 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_case =- ({-# LINE 58 "GenerateCode.ag" #-}- cases _lhsIoptions- {-# LINE 374 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_pretty =- ({-# LINE 59 "GenerateCode.ag" #-}- attrInfo _lhsIoptions- {-# LINE 380 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_rename =- ({-# LINE 60 "GenerateCode.ag" #-}- rename _lhsIoptions- {-# LINE 386 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_strictwrap =- ({-# LINE 61 "GenerateCode.ag" #-}- strictWrap _lhsIoptions- {-# LINE 392 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_splitsems =- ({-# LINE 62 "GenerateCode.ag" #-}- splitSems _lhsIoptions- {-# LINE 398 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_data =- ({-# LINE 63 "GenerateCode.ag" #-}- if dataTypes _lhsIoptions then Just (strictData _lhsIoptions) else Nothing- {-# LINE 404 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOprefix =- ({-# LINE 64 "GenerateCode.ag" #-}- prefix _lhsIoptions- {-# LINE 410 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_traces =- ({-# LINE 65 "GenerateCode.ag" #-}- genTraces _lhsIoptions- {-# LINE 416 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_costcentre =- ({-# LINE 66 "GenerateCode.ag" #-}- genCostCentres _lhsIoptions- {-# LINE 422 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_linePragmas =- ({-# LINE 67 "GenerateCode.ag" #-}- genLinePragmas _lhsIoptions- {-# LINE 428 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 53, column 17)- _nontsOo_monadic =- ({-# LINE 68 "GenerateCode.ag" #-}- monadic _lhsIoptions- {-# LINE 434 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 71, column 3)- _options =- ({-# LINE 71 "GenerateCode.ag" #-}- _lhsIoptions { breadthFirst = breadthFirst _lhsIoptions && visit _lhsIoptions && cases _lhsIoptions && multivisit_ }- {-# LINE 440 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 76, column 15)- _nontsOallPragmas =- ({-# LINE 76 "GenerateCode.ag" #-}- pragmas_- {-# LINE 446 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 98, column 14)- _nontsOparamMap =- ({-# LINE 98 "GenerateCode.ag" #-}- paramMap_- {-# LINE 452 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 119, column 7)- _nontsOcontextMap =- ({-# LINE 119 "GenerateCode.ag" #-}- contextMap_- {-# LINE 458 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 131, column 7)- _nontsOallNts =- ({-# LINE 131 "GenerateCode.ag" #-}- _nontsIgathNts- {-# LINE 464 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 574, column 34)- _aroundMap =- ({-# LINE 574 "GenerateCode.ag" #-}- aroundsMap_- {-# LINE 470 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 590, column 34)- _mergeMap =- ({-# LINE 590 "GenerateCode.ag" #-}- mergeMap_- {-# LINE 476 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 746, column 7)- _unfoldSemDom =- ({-# LINE 746 "GenerateCode.ag" #-}- \nt nr repl ->- let (params, tp) = Map.findWithDefault (error ("No such semantic domain: " ++ show nt)) (nt, nr) _nontsIsemDomUnfoldGath- replMap = Map.fromList (zip params repl)- replace k = Map.findWithDefault ('@':k) k replMap- in evalType replace tp- {-# LINE 486 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 847, column 14)- _nontsOwith_sig =- ({-# LINE 847 "GenerateCode.ag" #-}- typeSigs _lhsIoptions- {-# LINE 492 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 850, column 15)- _lhsOerrors =- ({-# LINE 850 "GenerateCode.ag" #-}- Seq.empty- {-# LINE 498 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 915, column 17)- _lhsOoutput =- ({-# LINE 915 "GenerateCode.ag" #-}- Program _nontsIchunks multivisit_- {-# LINE 504 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 980, column 14)- _nontsOtypeSyns =- ({-# LINE 980 "GenerateCode.ag" #-}- typeSyns_- {-# LINE 510 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 980, column 14)- _nontsOderivings =- ({-# LINE 981 "GenerateCode.ag" #-}- derivings_- {-# LINE 516 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 980, column 14)- _nontsOwrappers =- ({-# LINE 982 "GenerateCode.ag" #-}- wrappers_- {-# LINE 522 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _nontsOaroundMap =- ({-# LINE 567 "GenerateCode.ag" #-}- _aroundMap- {-# LINE 528 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _nontsOmergeMap =- ({-# LINE 583 "GenerateCode.ag" #-}- _mergeMap- {-# LINE 534 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _nontsOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _options- {-# LINE 540 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _nontsOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _unfoldSemDom- {-# LINE 546 "GenerateCode.hs" #-}- )- ( _nontsIchunks,_nontsIgathNts,_nontsIsemDomUnfoldGath) =- nonts_ _nontsOallNts _nontsOallPragmas _nontsOaroundMap _nontsOcontextMap _nontsOderivings _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_costcentre _nontsOo_data _nontsOo_linePragmas _nontsOo_monadic _nontsOo_newtypes _nontsOo_pretty _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_splitsems _nontsOo_strictwrap _nontsOo_traces _nontsOo_unbox _nontsOoptions _nontsOparamMap _nontsOprefix _nontsOtypeSyns _nontsOunfoldSemDom _nontsOwith_sig _nontsOwrappers - in ( _lhsOerrors,_lhsOoutput))) )--- CInterface ---------------------------------------------------{-- visit 0:- inherited attributes:- inh : Attributes- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- syn : Attributes- synthesized attributes:- comments : [String]- semDom : [Decl]- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- wrapDecls : Decls- alternatives:- alternative CInterface:- child seg : CSegments --}--- cata-sem_CInterface :: CInterface ->- T_CInterface -sem_CInterface (CInterface _seg ) =- (sem_CInterface_CInterface (sem_CSegments _seg ) )--- semantic domain-newtype T_CInterface = T_CInterface (Attributes ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- Attributes ->- ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))-data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !((Maybe Bool)),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),options_Inh_CInterface :: !(Options),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)}-data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !(([String])),semDom_Syn_CInterface :: !(([Decl])),semDomUnfoldGath_Syn_CInterface :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CInterface :: !(Decls)}-wrap_CInterface :: T_CInterface ->- Inh_CInterface ->- Syn_CInterface -wrap_CInterface (T_CInterface sem ) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =- (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn - in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))-sem_CInterface_CInterface :: T_CSegments ->- T_CInterface -sem_CInterface_CInterface (T_CSegments seg_ ) =- (T_CInterface (\ _lhsIinh- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn ->- (let _segOnr :: Int- _lhsOsemDom :: ([Decl])- _lhsOcomments :: ([String])- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _lhsOwrapDecls :: Decls- _segOinh :: Attributes- _segOnt :: NontermIdent- _segOo_case :: Bool- _segOo_cata :: Bool- _segOo_costcentre :: Bool- _segOo_data :: (Maybe Bool)- _segOo_linePragmas :: Bool- _segOo_monadic :: Bool- _segOo_newtypes :: Bool- _segOo_pretty :: Bool- _segOo_rename :: Bool- _segOo_sem :: Bool- _segOo_sig :: Bool- _segOo_splitsems :: Bool- _segOo_strictwrap :: Bool- _segOo_traces :: Bool- _segOo_unbox :: Bool- _segOoptions :: Options- _segOparamMap :: ParamMap- _segOprefix :: String- _segOsyn :: Attributes- _segIcomments :: ([String])- _segIisNil :: Bool- _segIsemDom :: ([Decl])- _segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _segIwrapDecls :: Decls- -- "GenerateCode.ag"(line 277, column 17)- _segOnr =- ({-# LINE 277 "GenerateCode.ag" #-}- 0- {-# LINE 680 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 704, column 18)- _lhsOsemDom =- ({-# LINE 704 "GenerateCode.ag" #-}- Comment "semantic domain" : _segIsemDom- {-# LINE 686 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- _segIcomments- {-# LINE 692 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 736, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 736 "GenerateCode.ag" #-}- _segIsemDomUnfoldGath- {-# LINE 698 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 822, column 52)- _lhsOwrapDecls =- ({-# LINE 822 "GenerateCode.ag" #-}- _segIwrapDecls- {-# LINE 704 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 710 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 716 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 722 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 728 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 734 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 740 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 746 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 752 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 758 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 764 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 770 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 776 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 782 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 788 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 794 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 800 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 806 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 812 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 818 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 824 "GenerateCode.hs" #-}- )- -- copy rule (down)- _segOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 830 "GenerateCode.hs" #-}- )- ( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) =- seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOoptions _segOparamMap _segOprefix _segOsyn - in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )--- CNonterminal -------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))- contextMap : ContextMap- derivings : Derivings- mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- typeSyns : TypeSyns- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- wrappers : Set NontermIdent- synthesized attributes:- chunks : Chunks- gathNts : Set NontermIdent- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- alternatives:- alternative CNonterminal:- child nt : {NontermIdent}- child params : {[Identifier]}- child inh : {Attributes}- child syn : {Attributes}- child prods : CProductions - child inter : CInterface - visit 0:- local _tup1 : {(Attributes,Attributes,NontermIdent)}- local _tup2 : {(Attributes,Attributes,NontermIdent)}- local aroundMap : _- local mergeMap : _- local semWrapper : _- local comment : _- local dataDef : _- local cataFun : _--}--- cata-sem_CNonterminal :: CNonterminal ->- T_CNonterminal -sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter ) =- (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods ) (sem_CInterface _inter ) )--- semantic domain-newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) ->- PragmaMap ->- (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->- ContextMap ->- Derivings ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- TypeSyns ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- Bool ->- (Set NontermIdent) ->- ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))-data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !((Set NontermIdent)),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),mergeMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),options_Inh_CNonterminal :: !(Options),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !((Set NontermIdent))}-data Syn_CNonterminal = Syn_CNonterminal {chunks_Syn_CNonterminal :: !(Chunks),gathNts_Syn_CNonterminal :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminal :: !((Map (NontermIdent, Int) ([String], Code.Type)))}-wrap_CNonterminal :: T_CNonterminal ->- Inh_CNonterminal ->- Syn_CNonterminal -wrap_CNonterminal (T_CNonterminal sem ) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) =- (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers - in (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath ))-sem_CNonterminal_CNonterminal :: NontermIdent ->- ([Identifier]) ->- Attributes ->- Attributes ->- T_CProductions ->- T_CInterface ->- T_CNonterminal -sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_ ) (T_CInterface inter_ ) =- (T_CNonterminal (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIderivings- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsItypeSyns- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let __tup1 :: ((Attributes,Attributes,NontermIdent))- _interOinh :: Attributes- _interOsyn :: Attributes- _interOnt :: NontermIdent- __tup2 :: ((Attributes,Attributes,NontermIdent))- _prodsOinh :: Attributes- _prodsOsyn :: Attributes- _prodsOnt :: NontermIdent- _lhsOgathNts :: (Set NontermIdent)- _lhsOchunks :: Chunks- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _prodsOallNts :: (Set NontermIdent)- _prodsOallPragmas :: PragmaMap- _prodsOaroundMap :: (Map ConstructorIdent (Set Identifier))- _prodsOcontextMap :: ContextMap- _prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- _prodsOo_case :: Bool- _prodsOo_cata :: Bool- _prodsOo_costcentre :: Bool- _prodsOo_data :: (Maybe Bool)- _prodsOo_linePragmas :: Bool- _prodsOo_monadic :: Bool- _prodsOo_newtypes :: Bool- _prodsOo_pretty :: Bool- _prodsOo_rename :: Bool- _prodsOo_sem :: Bool- _prodsOo_sig :: Bool- _prodsOo_splitsems :: Bool- _prodsOo_strictwrap :: Bool- _prodsOo_traces :: Bool- _prodsOo_unbox :: Bool- _prodsOoptions :: Options- _prodsOparamMap :: ParamMap- _prodsOprefix :: String- _prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _prodsOwith_sig :: Bool- _interOo_case :: Bool- _interOo_cata :: Bool- _interOo_costcentre :: Bool- _interOo_data :: (Maybe Bool)- _interOo_linePragmas :: Bool- _interOo_monadic :: Bool- _interOo_newtypes :: Bool- _interOo_pretty :: Bool- _interOo_rename :: Bool- _interOo_sem :: Bool- _interOo_sig :: Bool- _interOo_splitsems :: Bool- _interOo_strictwrap :: Bool- _interOo_traces :: Bool- _interOo_unbox :: Bool- _interOoptions :: Options- _interOparamMap :: ParamMap- _interOprefix :: String- _prodsIcataAlts :: Decls- _prodsIcomments :: ([String])- _prodsIdataAlts :: DataAlts- _prodsIdecls :: Decls- _prodsIsemNames :: ([String])- _interIcomments :: ([String])- _interIsemDom :: ([Decl])- _interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _interIwrapDecls :: Decls- -- "GenerateCode.ag"(line 86, column 26)- __tup1 =- ({-# LINE 86 "GenerateCode.ag" #-}- (inh_,syn_,nt_)- {-# LINE 1035 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 86, column 26)- (_interOinh,_,_) =- ({-# LINE 86 "GenerateCode.ag" #-}- __tup1- {-# LINE 1041 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 86, column 26)- (_,_interOsyn,_) =- ({-# LINE 86 "GenerateCode.ag" #-}- __tup1- {-# LINE 1047 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 86, column 26)- (_,_,_interOnt) =- ({-# LINE 86 "GenerateCode.ag" #-}- __tup1- {-# LINE 1053 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 87, column 25)- __tup2 =- ({-# LINE 87 "GenerateCode.ag" #-}- (inh_,syn_,nt_)- {-# LINE 1059 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 87, column 25)- (_prodsOinh,_,_) =- ({-# LINE 87 "GenerateCode.ag" #-}- __tup2- {-# LINE 1065 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 87, column 25)- (_,_prodsOsyn,_) =- ({-# LINE 87 "GenerateCode.ag" #-}- __tup2- {-# LINE 1071 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 87, column 25)- (_,_,_prodsOnt) =- ({-# LINE 87 "GenerateCode.ag" #-}- __tup2- {-# LINE 1077 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 137, column 7)- _lhsOgathNts =- ({-# LINE 137 "GenerateCode.ag" #-}- Set.singleton nt_- {-# LINE 1083 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 575, column 34)- _aroundMap =- ({-# LINE 575 "GenerateCode.ag" #-}- Map.findWithDefault Map.empty nt_ _lhsIaroundMap- {-# LINE 1089 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 591, column 34)- _mergeMap =- ({-# LINE 591 "GenerateCode.ag" #-}- Map.findWithDefault Map.empty nt_ _lhsImergeMap- {-# LINE 1095 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 796, column 18)- _semWrapper =- ({-# LINE 796 "GenerateCode.ag" #-}- let params' = map getName params_- inhAttrs = Map.toList inh_- synAttrs = Map.toList syn_- inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ]- synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ]- var = "sem"- wrapNT = "wrap" ++ "_" ++ getName nt_- inhNT = "Inh" ++ "_" ++ getName nt_- synNT = "Syn" ++ "_" ++ getName nt_- varPat = if _lhsIo_newtypes- then App (sdtype nt_) [SimpleExpr var]- else SimpleExpr var- evalTp | null params' = id- | otherwise = idEvalType- appParams nm = TypeApp (SimpleType nm) (map SimpleType params')- typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT))- mkstrict = Named _lhsIo_strictwrap- mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' t | (f,t) <- attrs]] False []- datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs]- in datas ++ [ typeSig- , Decl (Fun wrapNT [varPat, App inhNT inhVars])- (Let _interIwrapDecls (App synNT synVars))- Set.empty Set.empty- ]- {-# LINE 1124 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 857, column 18)- _comment =- ({-# LINE 857 "GenerateCode.ag" #-}- Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) )- {-# LINE 1130 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 918, column 19)- _lhsOchunks =- ({-# LINE 918 "GenerateCode.ag" #-}- [ Chunk (getName nt_)- (Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-'))- (if _lhsIo_pretty then [_comment ] else [])- (if isJust _lhsIo_data then [_dataDef ] else [])- (if _lhsIo_cata then _cataFun else [])- (if _lhsIo_sig then _interIsemDom else [])- (if nt_ `Set.member` _lhsIwrappers then _semWrapper else [])- (if _lhsIo_sem then _prodsIdecls else [])- (if _lhsIo_sem then _prodsIsemNames else [])- ]- {-# LINE 1145 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 985, column 18)- _dataDef =- ({-# LINE 985 "GenerateCode.ag" #-}- let params' = map getName params_- typeSyn tp = let theType =- case tp of- CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t- CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)- CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)- CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t- CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t- CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t- | (_,t) <- ts- ]- in Code.Type (getName nt_) params' (idEvalType theType)- derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings)- dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings- in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns- {-# LINE 1165 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 1017, column 18)- _cataFun =- ({-# LINE 1017 "GenerateCode.ag" #-}- let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_))- evalTp | null params_ = id- | otherwise = idEvalType- tSig = TSig (cataname _lhsIprefix nt_)- (appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_))- special typ = case typ of- CommonTypes.List tp ->- let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons"))- nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" ))- arg = SimpleExpr "list"- rarg = case tp of- NT t _ -> let t' = maybe t id (deforestedNt t)- in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)")- _ -> arg- lhs = Fun (cataname _lhsIprefix nt_) [arg]- rhs = (App "Prelude.foldr" [cons,nil,rarg])- in [Decl lhs rhs Set.empty Set.empty]- CommonTypes.Maybe tp ->- let just = semname _lhsIprefix nt_ (identifier "Just")- nothing = semname _lhsIprefix nt_ (identifier "Nothing" )- arg = SimpleExpr "x"- rarg = case tp of- NT t _ -> let t' = maybe t id (deforestedNt t)- in App (cataname _lhsIprefix t') [arg]- _ -> arg- lhs a = Fun (cataname _lhsIprefix nt_) [a]- in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty- ,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty- ]- CommonTypes.Either tp1 tp2 ->- let left = semname _lhsIprefix nt_ (identifier "Left")- right = semname _lhsIprefix nt_ (identifier "Right" )- arg = SimpleExpr "x"- rarg0 = case tp1 of- NT t _ -> let t' = maybe t id (deforestedNt t)- in App (cataname _lhsIprefix t') [arg]- _ -> arg- rarg1 = case tp2 of- NT t _ -> let t' = maybe t id (deforestedNt t)- in App (cataname _lhsIprefix t') [arg]- _ -> arg- lhs a = Fun (cataname _lhsIprefix nt_) [a]- in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty- ,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty- ]- CommonTypes.Map _ tp ->- let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))- nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))- arg = SimpleExpr "m"- rarg = case tp of- NT t _ -> let t' = maybe t id (deforestedNt t)- in App "Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg]- _ -> arg- lhs = Fun (cataname _lhsIprefix nt_) [arg]- rhs = App "Map.foldWithKey" [entry,nil,rarg]- in [Decl lhs rhs Set.empty Set.empty]- CommonTypes.IntMap tp ->- let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))- nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))- arg = SimpleExpr "m"- rarg = case tp of- NT t _ -> let t' = maybe t id (deforestedNt t)- in App "IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg]- _ -> arg- lhs = Fun (cataname _lhsIprefix nt_) [arg]- rhs = App "IntMap.foldWithKey" [entry,nil,rarg]- in [Decl lhs rhs Set.empty Set.empty]- CommonTypes.Tuple tps ->- let con = semname _lhsIprefix nt_ (identifier "Tuple")- tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps]- rargs = map rarg tps'- rarg (n, tp) = case tp of- NT t _ -> let t' = maybe t id (deforestedNt t)- in App (cataname _lhsIprefix t') [n]- _ -> n- lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')]- rhs = App con rargs- in [Decl lhs rhs Set.empty Set.empty]- in Comment "cata" :- (if _lhsIo_sig then [tSig] else []) ++- maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns)- {-# LINE 1251 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 736, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 736 "GenerateCode.ag" #-}- _interIsemDomUnfoldGath- {-# LINE 1257 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 1263 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOallPragmas =- ({-# LINE 73 "GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 1269 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _prodsOaroundMap =- ({-# LINE 570 "GenerateCode.ag" #-}- _aroundMap- {-# LINE 1275 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOcontextMap =- ({-# LINE 115 "GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 1281 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _prodsOmergeMap =- ({-# LINE 586 "GenerateCode.ag" #-}- _mergeMap- {-# LINE 1287 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 1293 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 1299 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 1305 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 1311 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 1317 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 1323 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 1329 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 1335 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 1341 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 1347 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 1353 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 1359 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 1365 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 1371 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 1377 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 1383 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 1389 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 1395 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 1401 "GenerateCode.hs" #-}- )- -- copy rule (down)- _prodsOwith_sig =- ({-# LINE 844 "GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 1407 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 1413 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 1419 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 1425 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 1431 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 1437 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 1443 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 1449 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 1455 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 1461 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 1467 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 1473 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 1479 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 1485 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 1491 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 1497 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 1503 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 1509 "GenerateCode.hs" #-}- )- -- copy rule (down)- _interOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 1515 "GenerateCode.hs" #-}- )- ( _prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIsemNames) =- prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOinh _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOoptions _prodsOparamMap _prodsOprefix _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig - ( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) =- inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOoptions _interOparamMap _interOprefix _interOsyn - in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )--- CNonterminals ------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))- contextMap : ContextMap- derivings : Derivings- mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- typeSyns : TypeSyns- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- wrappers : Set NontermIdent- synthesized attributes:- chunks : Chunks- gathNts : Set NontermIdent- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- alternatives:- alternative Cons:- child hd : CNonterminal - child tl : CNonterminals - alternative Nil:--}--- cata-sem_CNonterminals :: CNonterminals ->- T_CNonterminals -sem_CNonterminals list =- (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list) )--- semantic domain-newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) ->- PragmaMap ->- (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->- ContextMap ->- Derivings ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- TypeSyns ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- Bool ->- (Set NontermIdent) ->- ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))-data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !((Set NontermIdent)),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),mergeMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),options_Inh_CNonterminals :: !(Options),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !((Set NontermIdent))}-data Syn_CNonterminals = Syn_CNonterminals {chunks_Syn_CNonterminals :: !(Chunks),gathNts_Syn_CNonterminals :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminals :: !((Map (NontermIdent, Int) ([String], Code.Type)))}-wrap_CNonterminals :: T_CNonterminals ->- Inh_CNonterminals ->- Syn_CNonterminals -wrap_CNonterminals (T_CNonterminals sem ) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) =- (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers - in (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath ))-sem_CNonterminals_Cons :: T_CNonterminal ->- T_CNonterminals ->- T_CNonterminals -sem_CNonterminals_Cons (T_CNonterminal hd_ ) (T_CNonterminals tl_ ) =- (T_CNonterminals (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIderivings- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsItypeSyns- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let _lhsOchunks :: Chunks- _lhsOgathNts :: (Set NontermIdent)- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _hdOallNts :: (Set NontermIdent)- _hdOallPragmas :: PragmaMap- _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))- _hdOcontextMap :: ContextMap- _hdOderivings :: Derivings- _hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOtypeSyns :: TypeSyns- _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _hdOwith_sig :: Bool- _hdOwrappers :: (Set NontermIdent)- _tlOallNts :: (Set NontermIdent)- _tlOallPragmas :: PragmaMap- _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))- _tlOcontextMap :: ContextMap- _tlOderivings :: Derivings- _tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOtypeSyns :: TypeSyns- _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _tlOwith_sig :: Bool- _tlOwrappers :: (Set NontermIdent)- _hdIchunks :: Chunks- _hdIgathNts :: (Set NontermIdent)- _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _tlIchunks :: Chunks- _tlIgathNts :: (Set NontermIdent)- _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- -- use rule "GenerateCode.ag"(line 910, column 49)- _lhsOchunks =- ({-# LINE 910 "GenerateCode.ag" #-}- _hdIchunks ++ _tlIchunks- {-# LINE 1708 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 133, column 47)- _lhsOgathNts =- ({-# LINE 133 "GenerateCode.ag" #-}- _hdIgathNts `Set.union` _tlIgathNts- {-# LINE 1714 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 736, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 736 "GenerateCode.ag" #-}- _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath- {-# LINE 1720 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 1726 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOallPragmas =- ({-# LINE 73 "GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 1732 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 567 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 1738 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOcontextMap =- ({-# LINE 115 "GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 1744 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOderivings =- ({-# LINE 978 "GenerateCode.ag" #-}- _lhsIderivings- {-# LINE 1750 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 583 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 1756 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 1762 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 1768 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 1774 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 1780 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 1786 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 1792 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 1798 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 1804 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 1810 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 1816 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 1822 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 1828 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 1834 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 1840 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 1846 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 1852 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 1858 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 1864 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOtypeSyns =- ({-# LINE 978 "GenerateCode.ag" #-}- _lhsItypeSyns- {-# LINE 1870 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 1876 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOwith_sig =- ({-# LINE 844 "GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 1882 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOwrappers =- ({-# LINE 978 "GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 1888 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 1894 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOallPragmas =- ({-# LINE 73 "GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 1900 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 567 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 1906 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOcontextMap =- ({-# LINE 115 "GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 1912 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOderivings =- ({-# LINE 978 "GenerateCode.ag" #-}- _lhsIderivings- {-# LINE 1918 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 583 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 1924 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 1930 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 1936 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 1942 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 1948 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 1954 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 1960 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 1966 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 1972 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 1978 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 1984 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 1990 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 1996 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 2002 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 2008 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 2014 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 2020 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 2026 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 2032 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOtypeSyns =- ({-# LINE 978 "GenerateCode.ag" #-}- _lhsItypeSyns- {-# LINE 2038 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 2044 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOwith_sig =- ({-# LINE 844 "GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 2050 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOwrappers =- ({-# LINE 978 "GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 2056 "GenerateCode.hs" #-}- )- ( _hdIchunks,_hdIgathNts,_hdIsemDomUnfoldGath) =- hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers - ( _tlIchunks,_tlIgathNts,_tlIsemDomUnfoldGath) =- tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers - in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )-sem_CNonterminals_Nil :: T_CNonterminals -sem_CNonterminals_Nil =- (T_CNonterminals (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIderivings- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsItypeSyns- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let _lhsOchunks :: Chunks- _lhsOgathNts :: (Set NontermIdent)- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- -- use rule "GenerateCode.ag"(line 910, column 49)- _lhsOchunks =- ({-# LINE 910 "GenerateCode.ag" #-}- []- {-# LINE 2100 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 133, column 47)- _lhsOgathNts =- ({-# LINE 133 "GenerateCode.ag" #-}- Set.empty- {-# LINE 2106 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 736, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 736 "GenerateCode.ag" #-}- Map.empty- {-# LINE 2112 "GenerateCode.hs" #-}- )- in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )--- CProduction --------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Map ConstructorIdent (Set Identifier)- contextMap : ContextMap- inh : Attributes- mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- syn : Attributes- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- synthesized attributes:- cataAlt : Decl- comments : [String]- dataAlt : DataAlt- decls : Decls- semNames : [String]- alternatives:- alternative CProduction:- child con : {ConstructorIdent}- child visits : CVisits - child children : {[(Identifier,Type,Maybe (Maybe Type))]}- child terminals : {[Identifier]}- visit 0:- local paramInstMap : _- local aroundMap : _- local mergeMap : _- local firstOrderChildren : _- local params : _--}--- cata-sem_CProduction :: CProduction ->- T_CProduction -sem_CProduction (CProduction _con _visits _children _terminals ) =- (sem_CProduction_CProduction _con (sem_CVisits _visits ) _children _terminals )--- semantic domain-newtype T_CProduction = T_CProduction ((Set NontermIdent) ->- PragmaMap ->- (Map ConstructorIdent (Set Identifier)) ->- ContextMap ->- Attributes ->- (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- Attributes ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- Bool ->- ( Decl,([String]),DataAlt,Decls,([String])))-data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !((Set NontermIdent)),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProduction :: !(ContextMap),inh_Inh_CProduction :: !(Attributes),mergeMap_Inh_CProduction :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !((Maybe Bool)),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),options_Inh_CProduction :: !(Options),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProduction :: !(Bool)}-data Syn_CProduction = Syn_CProduction {cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !(([String])),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),semNames_Syn_CProduction :: !(([String]))}-wrap_CProduction :: T_CProduction ->- Inh_CProduction ->- Syn_CProduction -wrap_CProduction (T_CProduction sem ) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) =- (let ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig - in (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames ))-sem_CProduction_CProduction :: ConstructorIdent ->- T_CVisits ->- ([(Identifier,Type,Maybe (Maybe Type))]) ->- ([Identifier]) ->- T_CProduction -sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ =- (T_CProduction (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIinh- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIunfoldSemDom- _lhsIwith_sig ->- (let _visitsOcon :: ConstructorIdent- _visitsOterminals :: ([Identifier])- _visitsOvisitedSet :: (Set Identifier)- _visitsOnr :: Int- _visitsOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])- _visitsOinstVisitNrs :: (Map Identifier Int)- _lhsOcomments :: ([String])- _lhsOdataAlt :: DataAlt- _lhsOcataAlt :: Decl- _lhsOdecls :: Decls- _lhsOsemNames :: ([String])- _visitsOallNts :: (Set NontermIdent)- _visitsOallPragmas :: PragmaMap- _visitsOaroundMap :: (Set Identifier)- _visitsOcontextMap :: ContextMap- _visitsOinh :: Attributes- _visitsOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _visitsOnt :: NontermIdent- _visitsOo_case :: Bool- _visitsOo_cata :: Bool- _visitsOo_costcentre :: Bool- _visitsOo_data :: (Maybe Bool)- _visitsOo_linePragmas :: Bool- _visitsOo_monadic :: Bool- _visitsOo_newtypes :: Bool- _visitsOo_pretty :: Bool- _visitsOo_rename :: Bool- _visitsOo_sem :: Bool- _visitsOo_sig :: Bool- _visitsOo_splitsems :: Bool- _visitsOo_strictwrap :: Bool- _visitsOo_traces :: Bool- _visitsOo_unbox :: Bool- _visitsOoptions :: Options- _visitsOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _visitsOparamMap :: ParamMap- _visitsOprefix :: String- _visitsOsyn :: Attributes- _visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _visitsOwith_sig :: Bool- _visitsIcomments :: ([String])- _visitsIdecls :: Decls- _visitsIgatherInstVisitNrs :: (Map Identifier Int)- _visitsIintra :: Exprs- _visitsIintraVars :: (Set String)- _visitsIisNil :: Bool- _visitsIsemNames :: ([String])- _visitsIvisitedSet :: (Set Identifier)- -- "GenerateCode.ag"(line 92, column 19)- _visitsOcon =- ({-# LINE 92 "GenerateCode.ag" #-}- con_- {-# LINE 2295 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 93, column 20)- _visitsOterminals =- ({-# LINE 93 "GenerateCode.ag" #-}- terminals_- {-# LINE 2301 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 105, column 7)- _paramInstMap =- ({-# LINE 105 "GenerateCode.ag" #-}- Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ]- {-# LINE 2307 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 141, column 32)- _visitsOvisitedSet =- ({-# LINE 141 "GenerateCode.ag" #-}- Set.empty- {-# LINE 2313 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 273, column 18)- _visitsOnr =- ({-# LINE 273 "GenerateCode.ag" #-}- 0- {-# LINE 2319 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 414, column 18)- _visitsOchildren =- ({-# LINE 414 "GenerateCode.ag" #-}- children_- {-# LINE 2325 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 556, column 7)- _visitsOinstVisitNrs =- ({-# LINE 556 "GenerateCode.ag" #-}- _visitsIgatherInstVisitNrs- {-# LINE 2331 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 576, column 34)- _aroundMap =- ({-# LINE 576 "GenerateCode.ag" #-}- Map.findWithDefault Set.empty con_ _lhsIaroundMap- {-# LINE 2337 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 592, column 34)- _mergeMap =- ({-# LINE 592 "GenerateCode.ag" #-}- Map.findWithDefault Map.empty con_ _lhsImergeMap- {-# LINE 2343 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 872, column 18)- _firstOrderChildren =- ({-# LINE 872 "GenerateCode.ag" #-}- [ (nm,fromJust mb,virt) | (nm,tp,virt) <- children_, let mb = isFirstOrder virt tp, isJust mb ]- {-# LINE 2349 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 873, column 18)- _lhsOcomments =- ({-# LINE 873 "GenerateCode.ag" #-}- ("alternative " ++ getName con_ ++ ":")- : map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren- ++ _visitsIcomments- )- {-# LINE 2358 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 1009, column 17)- _params =- ({-# LINE 1009 "GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap- {-# LINE 2364 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 1010, column 17)- _lhsOdataAlt =- ({-# LINE 1010 "GenerateCode.ag" #-}- DataAlt (conname _lhsIo_rename _lhsInt con_) (map (\(_,t,_) -> typeToCodeType (Just _lhsInt) _params t) _firstOrderChildren )- {-# LINE 2370 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 1109, column 17)- _lhsOcataAlt =- ({-# LINE 1109 "GenerateCode.ag" #-}- let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat]- lhs_pat = App (conname _lhsIo_rename _lhsInt con_)- (map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren )- rhs = App (semname _lhsIprefix _lhsInt con_)- (map argument _firstOrderChildren )- argument (nm,NT tp _,_) = let tp' = maybe tp id (deforestedNt tp)- in App (cataname _lhsIprefix tp')- [SimpleExpr (locname nm)]- argument (nm, _,_) = SimpleExpr (locname nm)- in Decl lhs rhs Set.empty Set.empty- {-# LINE 2385 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 911, column 44)- _lhsOdecls =- ({-# LINE 911 "GenerateCode.ag" #-}- _visitsIdecls- {-# LINE 2391 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 1125, column 61)- _lhsOsemNames =- ({-# LINE 1125 "GenerateCode.ag" #-}- _visitsIsemNames- {-# LINE 2397 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 2403 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOallPragmas =- ({-# LINE 73 "GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 2409 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _visitsOaroundMap =- ({-# LINE 572 "GenerateCode.ag" #-}- _aroundMap- {-# LINE 2415 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOcontextMap =- ({-# LINE 115 "GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 2421 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 2427 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _visitsOmergeMap =- ({-# LINE 588 "GenerateCode.ag" #-}- _mergeMap- {-# LINE 2433 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 2439 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 2445 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 2451 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 2457 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 2463 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 2469 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 2475 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 2481 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 2487 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 2493 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 2499 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 2505 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 2511 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 2517 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 2523 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 2529 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 2535 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _visitsOparamInstMap =- ({-# LINE 101 "GenerateCode.ag" #-}- _paramInstMap- {-# LINE 2541 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 2547 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 2553 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 2559 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 2565 "GenerateCode.hs" #-}- )- -- copy rule (down)- _visitsOwith_sig =- ({-# LINE 844 "GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 2571 "GenerateCode.hs" #-}- )- ( _visitsIcomments,_visitsIdecls,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames,_visitsIvisitedSet) =- visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOinh _visitsOinstVisitNrs _visitsOmergeMap _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOoptions _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOvisitedSet _visitsOwith_sig - in ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames))) )--- CProductions -------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Map ConstructorIdent (Set Identifier)- contextMap : ContextMap- inh : Attributes- mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- syn : Attributes- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- synthesized attributes:- cataAlts : Decls- comments : [String]- dataAlts : DataAlts- decls : Decls- semNames : [String]- alternatives:- alternative Cons:- child hd : CProduction - child tl : CProductions - alternative Nil:--}--- cata-sem_CProductions :: CProductions ->- T_CProductions -sem_CProductions list =- (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list) )--- semantic domain-newtype T_CProductions = T_CProductions ((Set NontermIdent) ->- PragmaMap ->- (Map ConstructorIdent (Set Identifier)) ->- ContextMap ->- Attributes ->- (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- Attributes ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- Bool ->- ( Decls,([String]),DataAlts,Decls,([String])))-data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !((Set NontermIdent)),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProductions :: !(ContextMap),inh_Inh_CProductions :: !(Attributes),mergeMap_Inh_CProductions :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !((Maybe Bool)),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),options_Inh_CProductions :: !(Options),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProductions :: !(Bool)}-data Syn_CProductions = Syn_CProductions {cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !(([String])),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),semNames_Syn_CProductions :: !(([String]))}-wrap_CProductions :: T_CProductions ->- Inh_CProductions ->- Syn_CProductions -wrap_CProductions (T_CProductions sem ) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) =- (let ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig - in (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames ))-sem_CProductions_Cons :: T_CProduction ->- T_CProductions ->- T_CProductions -sem_CProductions_Cons (T_CProduction hd_ ) (T_CProductions tl_ ) =- (T_CProductions (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIinh- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIunfoldSemDom- _lhsIwith_sig ->- (let _lhsOdataAlts :: DataAlts- _lhsOcataAlts :: Decls- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOsemNames :: ([String])- _hdOallNts :: (Set NontermIdent)- _hdOallPragmas :: PragmaMap- _hdOaroundMap :: (Map ConstructorIdent (Set Identifier))- _hdOcontextMap :: ContextMap- _hdOinh :: Attributes- _hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- _hdOnt :: NontermIdent- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOsyn :: Attributes- _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _hdOwith_sig :: Bool- _tlOallNts :: (Set NontermIdent)- _tlOallPragmas :: PragmaMap- _tlOaroundMap :: (Map ConstructorIdent (Set Identifier))- _tlOcontextMap :: ContextMap- _tlOinh :: Attributes- _tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- _tlOnt :: NontermIdent- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOsyn :: Attributes- _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _tlOwith_sig :: Bool- _hdIcataAlt :: Decl- _hdIcomments :: ([String])- _hdIdataAlt :: DataAlt- _hdIdecls :: Decls- _hdIsemNames :: ([String])- _tlIcataAlts :: Decls- _tlIcomments :: ([String])- _tlIdataAlts :: DataAlts- _tlIdecls :: Decls- _tlIsemNames :: ([String])- -- "GenerateCode.ag"(line 1005, column 17)- _lhsOdataAlts =- ({-# LINE 1005 "GenerateCode.ag" #-}- _hdIdataAlt : _tlIdataAlts- {-# LINE 2770 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 1105, column 10)- _lhsOcataAlts =- ({-# LINE 1105 "GenerateCode.ag" #-}- _hdIcataAlt : _tlIcataAlts- {-# LINE 2776 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- _hdIcomments ++ _tlIcomments- {-# LINE 2782 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 911, column 44)- _lhsOdecls =- ({-# LINE 911 "GenerateCode.ag" #-}- _hdIdecls ++ _tlIdecls- {-# LINE 2788 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 1125, column 61)- _lhsOsemNames =- ({-# LINE 1125 "GenerateCode.ag" #-}- _hdIsemNames ++ _tlIsemNames- {-# LINE 2794 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 2800 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOallPragmas =- ({-# LINE 73 "GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 2806 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 570 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 2812 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOcontextMap =- ({-# LINE 115 "GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 2818 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 2824 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 586 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 2830 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 2836 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 2842 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 2848 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 2854 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 2860 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 2866 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 2872 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 2878 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 2884 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 2890 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 2896 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 2902 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 2908 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 2914 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 2920 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 2926 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 2932 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 2938 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 2944 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 2950 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 2956 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOwith_sig =- ({-# LINE 844 "GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 2962 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 2968 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOallPragmas =- ({-# LINE 73 "GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 2974 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 570 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 2980 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOcontextMap =- ({-# LINE 115 "GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 2986 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 2992 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 586 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 2998 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 3004 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 3010 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 3016 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 3022 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 3028 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 3034 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 3040 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 3046 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 3052 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 3058 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 3064 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 3070 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 3076 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 3082 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 3088 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 3094 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 3100 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 3106 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 3112 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 3118 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 3124 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOwith_sig =- ({-# LINE 844 "GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 3130 "GenerateCode.hs" #-}- )- ( _hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIsemNames) =- hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOinh _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn _hdOunfoldSemDom _hdOwith_sig - ( _tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIsemNames) =- tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOinh _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn _tlOunfoldSemDom _tlOwith_sig - in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) )-sem_CProductions_Nil :: T_CProductions -sem_CProductions_Nil =- (T_CProductions (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIinh- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIunfoldSemDom- _lhsIwith_sig ->- (let _lhsOdataAlts :: DataAlts- _lhsOcataAlts :: Decls- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOsemNames :: ([String])- -- "GenerateCode.ag"(line 1006, column 17)- _lhsOdataAlts =- ({-# LINE 1006 "GenerateCode.ag" #-}- []- {-# LINE 3176 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 1106, column 10)- _lhsOcataAlts =- ({-# LINE 1106 "GenerateCode.ag" #-}- []- {-# LINE 3182 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- []- {-# LINE 3188 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 911, column 44)- _lhsOdecls =- ({-# LINE 911 "GenerateCode.ag" #-}- []- {-# LINE 3194 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 1125, column 61)- _lhsOsemNames =- ({-# LINE 1125 "GenerateCode.ag" #-}- []- {-# LINE 3200 "GenerateCode.hs" #-}- )- in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) )--- CRule --------------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- aroundMap : Set Identifier- children : [(Identifier,Type,Maybe (Maybe Type))]- con : ConstructorIdent- inh : Attributes- instVisitNrs : Map Identifier Int- mergeMap : Map Identifier (Identifier, [Identifier])- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramInstMap : Map Identifier (NontermIdent, [String])- paramMap : ParamMap- prefix : String- syn : Attributes- terminals : [Identifier]- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- what : String- chained attributes:- declsAbove : [Decl]- visitedSet : Set Identifier- synthesized attributes:- allTpsFound : Bool- bldBlocksFun : DeclBlocks -> DeclBlocks- comments : [String]- decls : Decls- definedInsts : [Identifier]- exprs : Exprs- tSigs : [Decl]- tps : [Type]- usedVars : Set String- alternatives:- alternative CChildVisit:- child name : {Identifier}- child nt : {NontermIdent}- child nr : {Int}- child inh : {Attributes}- child syn : {Attributes}- child isLast : {Bool}- visit 0:- local visitedSet : _- local costCentreDescr : _- local addCostCentre : _- local decls : _- local isSuperfluousHigherOrderIntra : _- local names : _- local mkTp : _- local definedTps : _- local nextTp : _- local orgParams : _- local instParams : _- local replParamMap : _- local replace : _- local evalTp : _- alternative CRule:- child name : {Identifier}- child isIn : {Bool}- child hasCode : {Bool}- child nt : {NontermIdent}- child con : {ConstructorIdent}- child field : {Identifier}- child childnt : {Maybe NontermIdent}- child tp : {Maybe Type}- child pattern : Pattern - child rhs : {[String]}- child defines : {Map Int (Identifier,Identifier,Maybe Type)}- child owrt : {Bool}- child origin : {String}- child uses : {Set (Identifier, Identifier)}- child explicit : {Bool}- child mbNamed : {Maybe Identifier}- visit 0:- local instTypes : _- local originComment : _- local instDecls : _- local patDescr : _- local traceDescr : _- local addTrace : _- local costCentreDescr : _- local addCostCentre : _- local addLinePragma : _- local decls : _- local definedInsts : _- local rulename : _- local mkTp : _- local orgParams : _- local evalTp : _- local _tup3 : {([Type],Bool)}--}--- cata-sem_CRule :: CRule ->- T_CRule -sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast ) =- (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast )-sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed ) =- (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern ) _rhs _defines _owrt _origin _uses _explicit _mbNamed )--- semantic domain-newtype T_CRule = T_CRule ((Set NontermIdent) ->- (Set Identifier) ->- ([(Identifier,Type,Maybe (Maybe Type))]) ->- ConstructorIdent ->- ([Decl]) ->- Attributes ->- (Map Identifier Int) ->- (Map Identifier (Identifier, [Identifier])) ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- (Map Identifier (NontermIdent, [String])) ->- ParamMap ->- String ->- Attributes ->- ([Identifier]) ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- (Set Identifier) ->- String ->- ( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))-data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !((Set NontermIdent)),aroundMap_Inh_CRule :: !((Set Identifier)),children_Inh_CRule :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !(([Decl])),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !((Map Identifier Int)),mergeMap_Inh_CRule :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !((Maybe Bool)),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),options_Inh_CRule :: !(Options),paramInstMap_Inh_CRule :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !(([Identifier])),unfoldSemDom_Inh_CRule :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CRule :: !((Set Identifier)),what_Inh_CRule :: !(String)}-data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !((DeclBlocks -> DeclBlocks)),comments_Syn_CRule :: !(([String])),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !(([Decl])),definedInsts_Syn_CRule :: !(([Identifier])),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !(([Decl])),tps_Syn_CRule :: !(([Type])),usedVars_Syn_CRule :: !((Set String)),visitedSet_Syn_CRule :: !((Set Identifier))}-wrap_CRule :: T_CRule ->- Inh_CRule ->- Syn_CRule -wrap_CRule (T_CRule sem ) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) =- (let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat - in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet ))-sem_CRule_CChildVisit :: Identifier ->- NontermIdent ->- Int ->- Attributes ->- Attributes ->- Bool ->- T_CRule -sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ =- (T_CRule (\ _lhsIallNts- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIdeclsAbove- _lhsIinh- _lhsIinstVisitNrs- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwhat ->- (let _lhsOexprs :: Exprs- _lhsOusedVars :: (Set String)- _lhsOtSigs :: ([Decl])- _lhsOtps :: ([Type])- _lhsOdeclsAbove :: ([Decl])- _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)- _lhsOallTpsFound :: Bool- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOdefinedInsts :: ([Identifier])- _lhsOvisitedSet :: (Set Identifier)- -- "GenerateCode.ag"(line 142, column 26)- _visitedSet =- ({-# LINE 142 "GenerateCode.ag" #-}- Set.insert name_ _lhsIvisitedSet- {-# LINE 3418 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 198, column 18)- _costCentreDescr =- ({-# LINE 198 "GenerateCode.ag" #-}- show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_- {-# LINE 3424 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 199, column 18)- _addCostCentre =- ({-# LINE 199 "GenerateCode.ag" #-}- \v -> if _lhsIo_costcentre- then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v- else v- {-# LINE 3432 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 202, column 18)- _decls =- ({-# LINE 202 "GenerateCode.ag" #-}- let lhsVars = map (attrname True name_) (Map.keys syn_)- ++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)]- rhsVars = map (attrname False name_) (Map.keys inh_)- unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else ""- tuple | isMerging = TupleLhs [locname name_ ++ "_comp"]- | otherwise = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars- rhs = _addCostCentre $ Code.InvokeExpr (typeName nt_ nr_) (SimpleExpr fun) (map SimpleExpr rhsVars)- isVirtual _ [] = False- isVirtual nm ((n,t,mb) : r)- | nm == n = isJust mb- | otherwise = isVirtual nm r- isMerged = name_ `Map.member` _lhsImergeMap- isMerging = name_ `elem` concatMap (\(_,cs) -> cs) (Map.elems _lhsImergeMap)- merges = [ (c,cs) | (c,(_,cs)) <- Map.assocs _lhsImergeMap, all (`Set.member` _visitedSet ) cs, name_ `elem` (c:cs) ]- baseNm = if nr_ == 0 && isVirtual name_ _lhsIchildren- then Ident (getName name_ ++ "_inst") (getPos name_)- else name_- fun | nr_ == 0 && Set.member name_ _lhsIaroundMap- = locname name_ ++ "_around " ++ funname baseNm 0- | otherwise = funname baseNm nr_- outDecls | isMerged = []- | otherwise =- if isMerging- then [mkDecl _lhsIo_monadic tuple rhs Set.empty Set.empty]- else [Resume _lhsIo_monadic (typeName nt_ nr_) tuple rhs]- outMerged | null merges || nr_ /= 0 = []- | otherwise = let (c,cs) = head merges- tuple' = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars'- lhsVars' = map (attrname True c) (Map.keys syn_)- ++ if isLast_ then [] else [unwrap ++ funname c (nr_+1)]- rhsVars = [ locname c ++ "_comp" | c <- cs ]- fun = locname c ++ "_merge"- rhs' = App fun (map SimpleExpr rhsVars)- in [Resume _lhsIo_monadic (typeName nt_ nr_) tuple' rhs']- in- (outDecls ++ outMerged)- {-# LINE 3473 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 320, column 7)- _isSuperfluousHigherOrderIntra =- ({-# LINE 320 "GenerateCode.ag" #-}- _lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs- {-# LINE 3479 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 334, column 8)- _names =- ({-# LINE 334 "GenerateCode.ag" #-}- if _isSuperfluousHigherOrderIntra- then []- else [funname name_ (nr_+1)]- {-# LINE 3487 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 338, column 8)- _lhsOexprs =- ({-# LINE 338 "GenerateCode.ag" #-}- let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id- addType expr | null _instParams = expr- | otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams )- in map (wrap . addType . SimpleExpr) _names- {-# LINE 3496 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 350, column 7)- _lhsOusedVars =- ({-# LINE 350 "GenerateCode.ag" #-}- Set.fromList _names- {-# LINE 3502 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 389, column 19)- _mkTp =- ({-# LINE 389 "GenerateCode.ag" #-}- _evalTp . typeToCodeType (Just nt_) _orgParams- {-# LINE 3508 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 390, column 19)- _definedTps =- ({-# LINE 390 "GenerateCode.ag" #-}- [ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ]- {-# LINE 3514 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 391, column 19)- _nextTp =- ({-# LINE 391 "GenerateCode.ag" #-}- typeName nt_ (nr_+1)- {-# LINE 3520 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 392, column 19)- _lhsOtSigs =- ({-# LINE 392 "GenerateCode.ag" #-}- (if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps- {-# LINE 3526 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 394, column 19)- _orgParams =- ({-# LINE 394 "GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] nt_ _lhsIparamMap- {-# LINE 3532 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 395, column 19)- _instParams =- ({-# LINE 395 "GenerateCode.ag" #-}- snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap- {-# LINE 3538 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 396, column 19)- _replParamMap =- ({-# LINE 396 "GenerateCode.ag" #-}- Map.fromList (zip _orgParams _instParams )- {-# LINE 3544 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 397, column 19)- _replace =- ({-# LINE 397 "GenerateCode.ag" #-}- \k -> Map.findWithDefault k k _replParamMap- {-# LINE 3550 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 398, column 19)- _evalTp =- ({-# LINE 398 "GenerateCode.ag" #-}- if null _orgParams then id else evalType _replace- {-# LINE 3556 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 421, column 19)- _lhsOtps =- ({-# LINE 421 "GenerateCode.ag" #-}- if _isSuperfluousHigherOrderIntra- then []- else [NT (ntOfVisit nt_ (nr_+1)) _instParams ]- {-# LINE 3564 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 610, column 7)- _lhsOdeclsAbove =- ({-# LINE 610 "GenerateCode.ag" #-}- []- {-# LINE 3570 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 623, column 7)- _lhsObldBlocksFun =- ({-# LINE 623 "GenerateCode.ag" #-}- DeclBlock _lhsIdeclsAbove (head _decls )- {-# LINE 3576 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 418, column 39)- _lhsOallTpsFound =- ({-# LINE 418 "GenerateCode.ag" #-}- True- {-# LINE 3582 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- []- {-# LINE 3588 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 150, column 34)- _lhsOdecls =- ({-# LINE 150 "GenerateCode.ag" #-}- _decls- {-# LINE 3594 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- []- {-# LINE 3600 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _lhsOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _visitedSet- {-# LINE 3606 "GenerateCode.hs" #-}- )- in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )-sem_CRule_CRule :: Identifier ->- Bool ->- Bool ->- NontermIdent ->- ConstructorIdent ->- Identifier ->- (Maybe NontermIdent) ->- (Maybe Type) ->- T_Pattern ->- ([String]) ->- (Map Int (Identifier,Identifier,Maybe Type)) ->- Bool ->- String ->- (Set (Identifier, Identifier)) ->- Bool ->- (Maybe Identifier) ->- T_CRule -sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ =- (T_CRule (\ _lhsIallNts- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIdeclsAbove- _lhsIinh- _lhsIinstVisitNrs- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwhat ->- (let _lhsOexprs :: Exprs- _lhsOusedVars :: (Set String)- _lhsOtSigs :: ([Decl])- __tup3 :: (([Type],Bool))- _lhsOtps :: ([Type])- _lhsOallTpsFound :: Bool- _lhsOdeclsAbove :: ([Decl])- _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOdefinedInsts :: ([Identifier])- _lhsOvisitedSet :: (Set Identifier)- _patternIcopy :: Pattern - _patternIdefinedInsts :: ([Identifier])- _patternIpatternAttributes :: ([(Identifier, Identifier)])- -- "GenerateCode.ag"(line 152, column 12)- _instTypes =- ({-# LINE 152 "GenerateCode.ag" #-}- [ (n, (t, mb)) | (n, NT t _, mb) <- _lhsIchildren ]- {-# LINE 3680 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 153, column 12)- _originComment =- ({-# LINE 153 "GenerateCode.ag" #-}- if _lhsIo_pretty- then (Comment origin_:)- else id- {-# LINE 3688 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 156, column 12)- _instDecls =- ({-# LINE 156 "GenerateCode.ag" #-}- [ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst)) []))- ( let (nm,mb) = fromJust $ inst `lookup` _instTypes- in unwrapSem _lhsIo_newtypes (maybe nm id (deforestedNt nm))- $ case mb of- Just (Just tp') -> App instLocFieldName [SimpleExpr $ fieldname inst]- _ ->- case nm `Set.member` _lhsIallNts of- True -> App (cataname _lhsIprefix nm)- [SimpleExpr instLocFieldName]- False -> SimpleExpr instLocFieldName- )- (Set.singleton instSemFieldName)- (Set.singleton instLocFieldName)- | inst <- _definedInsts- , let instLocFieldName = attrname True _INST inst- instSemFieldName = attrname False _INST' inst- ]- {-# LINE 3710 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 173, column 12)- _patDescr =- ({-# LINE 173 "GenerateCode.ag" #-}- if isIn_- then "_"- else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes)- {-# LINE 3718 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 176, column 12)- _traceDescr =- ({-# LINE 176 "GenerateCode.ag" #-}- (maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr- {-# LINE 3724 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 178, column 12)- _addTrace =- ({-# LINE 178 "GenerateCode.ag" #-}- \v -> if _lhsIo_traces- then Trace _traceDescr v- else v- {-# LINE 3732 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 181, column 12)- _costCentreDescr =- ({-# LINE 181 "GenerateCode.ag" #-}- show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr- {-# LINE 3738 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 182, column 12)- _addCostCentre =- ({-# LINE 182 "GenerateCode.ag" #-}- \v -> if _lhsIo_costcentre- then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v- else v- {-# LINE 3746 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 185, column 12)- _addLinePragma =- ({-# LINE 185 "GenerateCode.ag" #-}- \v -> let p = getPos name_- hasPos = line p > 0 && column p >= 0 && not (null (file p))- in if _lhsIo_linePragmas && hasPos- then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p))- $ LineExpr- $ v- else v- {-# LINE 3758 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 192, column 12)- _decls =- ({-# LINE 192 "GenerateCode.ag" #-}- if hasCode_- then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_))- (Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_])- (Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_])- : _instDecls )- else _instDecls- {-# LINE 3769 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 259, column 12)- _definedInsts =- ({-# LINE 259 "GenerateCode.ag" #-}- if isIn_ then [] else _patternIdefinedInsts- {-# LINE 3775 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 329, column 12)- _rulename =- ({-# LINE 329 "GenerateCode.ag" #-}- if field_ == _LOC && name_ `elem` _lhsIterminals- then funname name_ 0- else attrname isIn_ field_ name_- {-# LINE 3783 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 332, column 12)- _lhsOexprs =- ({-# LINE 332 "GenerateCode.ag" #-}- [SimpleExpr _rulename ]- {-# LINE 3789 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 348, column 7)- _lhsOusedVars =- ({-# LINE 348 "GenerateCode.ag" #-}- Set.singleton _rulename- {-# LINE 3795 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 358, column 19)- _mkTp =- ({-# LINE 358 "GenerateCode.ag" #-}- typeToCodeType (Just _lhsInt) _orgParams- {-# LINE 3801 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 359, column 19)- _lhsOtSigs =- ({-# LINE 359 "GenerateCode.ag" #-}- [ TSig (attrname False field attr) tp'- | (field,attr,tp) <- Map.elems defines_, isJust tp- , let tp1 = _evalTp field $ _mkTp (fromJust tp)- tp' = case findOrigType attr _lhsIchildren of- Just tp' -> let tp'' = case tp' of- NT n params -> NT (Ident ("T_" ++ show n) (getPos n)) params- _ -> tp'- tp2 = _evalTp field $ _mkTp tp''- in Arr tp2 tp1- Nothing -> tp1- findOrigType nm [] = Nothing- findOrigType nm ((n,_,mb) : r)- | nm == n = case mb of- Just (Just orig) -> Just orig- _ -> Nothing- | otherwise = findOrigType nm r- ]- {-# LINE 3823 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 377, column 19)- _orgParams =- ({-# LINE 377 "GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap- {-# LINE 3829 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 378, column 19)- _evalTp =- ({-# LINE 378 "GenerateCode.ag" #-}- \field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap- (childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap- replMap = Map.fromList (zip orgFldParams instParams)- replace k = Map.findWithDefault ('@':k) k replMap- in if null instParams- then if null _orgParams- then tp- else idEvalType tp- else evalType replace tp- {-# LINE 3843 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 420, column 23)- __tup3 =- ({-# LINE 420 "GenerateCode.ag" #-}- maybe ([],False) (\tp -> ([substSelf (fromJust childnt_) tp],True)) tp_- {-# LINE 3849 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 420, column 23)- (_lhsOtps,_) =- ({-# LINE 420 "GenerateCode.ag" #-}- __tup3- {-# LINE 3855 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 420, column 23)- (_,_lhsOallTpsFound) =- ({-# LINE 420 "GenerateCode.ag" #-}- __tup3- {-# LINE 3861 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 608, column 7)- _lhsOdeclsAbove =- ({-# LINE 608 "GenerateCode.ag" #-}- _lhsIdeclsAbove ++ _decls- {-# LINE 3867 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 621, column 7)- _lhsObldBlocksFun =- ({-# LINE 621 "GenerateCode.ag" #-}- id- {-# LINE 3873 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 895, column 18)- _lhsOcomments =- ({-# LINE 895 "GenerateCode.ag" #-}- [ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ]- ++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ]- {-# LINE 3880 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 150, column 34)- _lhsOdecls =- ({-# LINE 150 "GenerateCode.ag" #-}- _decls- {-# LINE 3886 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- _definedInsts- {-# LINE 3892 "GenerateCode.hs" #-}- )- -- copy rule (chain)- _lhsOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 3898 "GenerateCode.hs" #-}- )- ( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) =- pattern_ - in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )--- CSegment -----------------------------------------------------{-- visit 0:- inherited attributes:- inh : Attributes- isLast : Bool- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- syn : Attributes- synthesized attributes:- comments : [String]- semDom : [Decl]- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- wrapDecls : Decls- alternatives:- alternative CSegment:- child inh : {Attributes}- child syn : {Attributes}- visit 0:- local altSemForm : _- local tp : _- local inhTps : _- local inhTup : _- local synTps : _- local curTypeName : _- local nextTypeName : _- local indexName : _- local dataIndex : _- local indexExpr : _- local indexStr : _- local inhInstance : _- local synInstance : _- local continuation : _- local params : _--}--- cata-sem_CSegment :: CSegment ->- T_CSegment -sem_CSegment (CSegment _inh _syn ) =- (sem_CSegment_CSegment _inh _syn )--- semantic domain-newtype T_CSegment = T_CSegment (Attributes ->- Bool ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- Attributes ->- ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))-data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !((Maybe Bool)),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),options_Inh_CSegment :: !(Options),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)}-data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !(([String])),semDom_Syn_CSegment :: !(([Decl])),semDomUnfoldGath_Syn_CSegment :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegment :: !(Decls)}-wrap_CSegment :: T_CSegment ->- Inh_CSegment ->- Syn_CSegment -wrap_CSegment (T_CSegment sem ) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =- (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn - in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))-sem_CSegment_CSegment :: Attributes ->- Attributes ->- T_CSegment -sem_CSegment_CSegment inh_ syn_ =- (T_CSegment (\ _lhsIinh- _lhsIisLast- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn ->- (let _lhsOsemDom :: ([Decl])- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _lhsOwrapDecls :: Decls- _lhsOcomments :: ([String])- -- "GenerateCode.ag"(line 707, column 15)- _altSemForm =- ({-# LINE 707 "GenerateCode.ag" #-}- breadthFirst _lhsIoptions- {-# LINE 4029 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 708, column 15)- _tp =- ({-# LINE 708 "GenerateCode.ag" #-}- if _altSemForm- then TypeApp (SimpleType "Child") [SimpleType "EvalInfo", _indexExpr ]- else foldr Arr _synTps _inhTps- {-# LINE 4037 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 711, column 15)- _inhTps =- ({-# LINE 711 "GenerateCode.ag" #-}- [typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_]- {-# LINE 4043 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 712, column 15)- _inhTup =- ({-# LINE 712 "GenerateCode.ag" #-}- mkTupleType _lhsIo_unbox (null _inhTps ) _inhTps- {-# LINE 4049 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 713, column 15)- _synTps =- ({-# LINE 713 "GenerateCode.ag" #-}- mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation )- {-# LINE 4055 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 714, column 15)- _curTypeName =- ({-# LINE 714 "GenerateCode.ag" #-}- typeName _lhsInt _lhsInr- {-# LINE 4061 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 715, column 15)- _nextTypeName =- ({-# LINE 715 "GenerateCode.ag" #-}- typeName _lhsInt (_lhsInr + 1)- {-# LINE 4067 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 716, column 15)- _indexName =- ({-# LINE 716 "GenerateCode.ag" #-}- "I_" ++ _curTypeName- {-# LINE 4073 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 717, column 15)- _dataIndex =- ({-# LINE 717 "GenerateCode.ag" #-}- Code.Data _indexName _params [DataAlt _indexName []] False []- {-# LINE 4079 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 718, column 15)- _indexExpr =- ({-# LINE 718 "GenerateCode.ag" #-}- TypeApp (SimpleType _indexName ) (map (SimpleType . ('@':)) _params )- {-# LINE 4085 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 719, column 15)- _indexStr =- ({-# LINE 719 "GenerateCode.ag" #-}- "(" ++ _indexName ++ concatMap (\p -> " " ++ p) _params ++ ")"- {-# LINE 4091 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 720, column 15)- _inhInstance =- ({-# LINE 720 "GenerateCode.ag" #-}- Code.Data "instance Inh" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Inh") [_inhTup ] ] False []- {-# LINE 4097 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 721, column 15)- _synInstance =- ({-# LINE 721 "GenerateCode.ag" #-}- Code.Data "instance Syn" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Syn") [_synTps ] ] False []- {-# LINE 4103 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 722, column 15)- _continuation =- ({-# LINE 722 "GenerateCode.ag" #-}- if _lhsIisLast- then []- else [TypeApp (SimpleType _nextTypeName ) (map (SimpleType . ('@':)) _params )]- {-# LINE 4111 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 725, column 15)- _params =- ({-# LINE 725 "GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap- {-# LINE 4117 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 726, column 15)- _lhsOsemDom =- ({-# LINE 726 "GenerateCode.ag" #-}- let name = typeName _lhsInt _lhsInr- evalTp | null _params = id- | otherwise = idEvalType- in ( if _lhsIo_newtypes- then [ Code.NewType name _params name (evalTp _tp ) ]- else [ Code.Type name _params (evalTp _tp ) ] )- ++ ( if _altSemForm- then [_dataIndex , _inhInstance , _synInstance ]- else [] )- {-# LINE 4131 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 740, column 7)- _lhsOsemDomUnfoldGath =- ({-# LINE 740 "GenerateCode.ag" #-}- Map.singleton (_lhsInt, _lhsInr) (_params , _tp )- {-# LINE 4137 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 824, column 15)- _lhsOwrapDecls =- ({-# LINE 824 "GenerateCode.ag" #-}- let lhsVars = map (lhsname False) (Map.keys syn_)- ++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)]- rhsVars = map (lhsname True) (Map.keys inh_)- rhs = map SimpleExpr rhsVars- unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else ""- var = "sem"- sem 0 = var- sem n = var ++ "_" ++ show n- ntt = typeName _lhsInt _lhsInr- in [ EvalDecl ntt (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (InvokeExpr ntt (SimpleExpr $ sem _lhsInr) rhs) ]- {-# LINE 4152 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 866, column 18)- _lhsOcomments =- ({-# LINE 866 "GenerateCode.ag" #-}- let body = map ind (showsSegment (CSegment inh_ syn_))- in if null body- then []- else ("visit " ++ show _lhsInr ++ ":") : body- {-# LINE 4161 "GenerateCode.hs" #-}- )- in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )--- CSegments ----------------------------------------------------{-- visit 0:- inherited attributes:- inh : Attributes- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- syn : Attributes- synthesized attributes:- comments : [String]- isNil : Bool- semDom : [Decl]- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- wrapDecls : Decls- alternatives:- alternative Cons:- child hd : CSegment - child tl : CSegments - alternative Nil:--}--- cata-sem_CSegments :: CSegments ->- T_CSegments -sem_CSegments list =- (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list) )--- semantic domain-newtype T_CSegments = T_CSegments (Attributes ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- Attributes ->- ( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))-data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !((Maybe Bool)),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),options_Inh_CSegments :: !(Options),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)}-data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !(([String])),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !(([Decl])),semDomUnfoldGath_Syn_CSegments :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegments :: !(Decls)}-wrap_CSegments :: T_CSegments ->- Inh_CSegments ->- Syn_CSegments -wrap_CSegments (T_CSegments sem ) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =- (let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn - in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))-sem_CSegments_Cons :: T_CSegment ->- T_CSegments ->- T_CSegments -sem_CSegments_Cons (T_CSegment hd_ ) (T_CSegments tl_ ) =- (T_CSegments (\ _lhsIinh- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn ->- (let _tlOnr :: Int- _lhsOisNil :: Bool- _hdOisLast :: Bool- _lhsOcomments :: ([String])- _lhsOsemDom :: ([Decl])- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _lhsOwrapDecls :: Decls- _hdOinh :: Attributes- _hdOnr :: Int- _hdOnt :: NontermIdent- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOsyn :: Attributes- _tlOinh :: Attributes- _tlOnt :: NontermIdent- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOsyn :: Attributes- _hdIcomments :: ([String])- _hdIsemDom :: ([Decl])- _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _hdIwrapDecls :: Decls- _tlIcomments :: ([String])- _tlIisNil :: Bool- _tlIsemDom :: ([Decl])- _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _tlIwrapDecls :: Decls- -- "GenerateCode.ag"(line 279, column 11)- _tlOnr =- ({-# LINE 279 "GenerateCode.ag" #-}- _lhsInr + 1- {-# LINE 4328 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 292, column 12)- _lhsOisNil =- ({-# LINE 292 "GenerateCode.ag" #-}- False- {-# LINE 4334 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 293, column 12)- _hdOisLast =- ({-# LINE 293 "GenerateCode.ag" #-}- _tlIisNil- {-# LINE 4340 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- _hdIcomments ++ _tlIcomments- {-# LINE 4346 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 702, column 50)- _lhsOsemDom =- ({-# LINE 702 "GenerateCode.ag" #-}- _hdIsemDom ++ _tlIsemDom- {-# LINE 4352 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 736, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 736 "GenerateCode.ag" #-}- _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath- {-# LINE 4358 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 822, column 52)- _lhsOwrapDecls =- ({-# LINE 822 "GenerateCode.ag" #-}- _hdIwrapDecls ++ _tlIwrapDecls- {-# LINE 4364 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 4370 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOnr =- ({-# LINE 271 "GenerateCode.ag" #-}- _lhsInr- {-# LINE 4376 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 4382 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 4388 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 4394 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 4400 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 4406 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 4412 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 4418 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 4424 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 4430 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 4436 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 4442 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 4448 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 4454 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 4460 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 4466 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 4472 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 4478 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 4484 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 4490 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 4496 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 4502 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 4508 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 4514 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 4520 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 4526 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 4532 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 4538 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 4544 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 4550 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 4556 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 4562 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 4568 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 4574 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 4580 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 4586 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 4592 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 4598 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 4604 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 4610 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 4616 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 4622 "GenerateCode.hs" #-}- )- ( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) =- hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn - ( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) =- tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn - in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )-sem_CSegments_Nil :: T_CSegments -sem_CSegments_Nil =- (T_CSegments (\ _lhsIinh- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn ->- (let _lhsOisNil :: Bool- _lhsOcomments :: ([String])- _lhsOsemDom :: ([Decl])- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _lhsOwrapDecls :: Decls- -- "GenerateCode.ag"(line 294, column 10)- _lhsOisNil =- ({-# LINE 294 "GenerateCode.ag" #-}- True- {-# LINE 4662 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- []- {-# LINE 4668 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 702, column 50)- _lhsOsemDom =- ({-# LINE 702 "GenerateCode.ag" #-}- []- {-# LINE 4674 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 736, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 736 "GenerateCode.ag" #-}- Map.empty- {-# LINE 4680 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 822, column 52)- _lhsOwrapDecls =- ({-# LINE 822 "GenerateCode.ag" #-}- []- {-# LINE 4686 "GenerateCode.hs" #-}- )- in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )--- CVisit -------------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Set Identifier- children : [(Identifier,Type, Maybe (Maybe Type))]- con : ConstructorIdent- contextMap : ContextMap- inh : Attributes- instVisitNrs : Map Identifier Int- isLast : Bool- mergeMap : Map Identifier (Identifier, [Identifier])- nextIntra : Exprs- nextIntraVars : Set String- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramInstMap : Map Identifier (NontermIdent, [String])- paramMap : ParamMap- prefix : String- syn : Attributes- terminals : [Identifier]- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- chained attributes:- decls : Decls- visitedSet : Set Identifier- synthesized attributes:- comments : [String]- gatherInstVisitNrs : Map Identifier Int- intra : Exprs- intraVars : Set String- semNames : [String]- alternatives:- alternative CVisit:- child inh : {Attributes}- child syn : {Attributes}- child vss : Sequence - child intra : Sequence - child ordered : {Bool}- visit 0:- local _tup4 : _- local higherOrderChildren : _- local firstOrderChildren : _- local firstOrderOrig : _- local funcname : _- local nextVisitName : _- local nextVisitDecl : _- local decls : _- local lastExprVars : _- local _tup5 : _- local blockFunDecls : _- local blockFirstFunCall : _- local costCentreDescr : _- local addCostCentre : _- local params : _- local semFun : _- local tsig : _- local semType : _- local typeSigs : _- local o_do : _- local o_case : _- local declsType : _- local o_splitsems : _--}--- cata-sem_CVisit :: CVisit ->- T_CVisit -sem_CVisit (CVisit _inh _syn _vss _intra _ordered ) =- (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss ) (sem_Sequence _intra ) _ordered )--- semantic domain-newtype T_CVisit = T_CVisit ((Set NontermIdent) ->- PragmaMap ->- (Set Identifier) ->- ([(Identifier,Type, Maybe (Maybe Type))]) ->- ConstructorIdent ->- ContextMap ->- Decls ->- Attributes ->- (Map Identifier Int) ->- Bool ->- (Map Identifier (Identifier, [Identifier])) ->- Exprs ->- (Set String) ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- (Map Identifier (NontermIdent, [String])) ->- ParamMap ->- String ->- Attributes ->- ([Identifier]) ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- (Set Identifier) ->- Bool ->- ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),([String]),(Set Identifier)))-data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !((Set NontermIdent)),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !((Set Identifier)),children_Inh_CVisit :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),decls_Inh_CVisit :: !(Decls),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !((Map Identifier Int)),isLast_Inh_CVisit :: !(Bool),mergeMap_Inh_CVisit :: !((Map Identifier (Identifier, [Identifier]))),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !((Set String)),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !((Maybe Bool)),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),options_Inh_CVisit :: !(Options),paramInstMap_Inh_CVisit :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !(([Identifier])),unfoldSemDom_Inh_CVisit :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisit :: !((Set Identifier)),with_sig_Inh_CVisit :: !(Bool)}-data Syn_CVisit = Syn_CVisit {comments_Syn_CVisit :: !(([String])),decls_Syn_CVisit :: !(Decls),gatherInstVisitNrs_Syn_CVisit :: !((Map Identifier Int)),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !((Set String)),semNames_Syn_CVisit :: !(([String])),visitedSet_Syn_CVisit :: !((Set Identifier))}-wrap_CVisit :: T_CVisit ->- Inh_CVisit ->- Syn_CVisit -wrap_CVisit (T_CVisit sem ) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) =- (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig - in (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames _lhsOvisitedSet ))-sem_CVisit_CVisit :: Attributes ->- Attributes ->- T_Sequence ->- T_Sequence ->- Bool ->- T_CVisit -sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_ ) (T_Sequence intra_ ) ordered_ =- (T_CVisit (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIcontextMap- _lhsIdecls- _lhsIinh- _lhsIinstVisitNrs- _lhsIisLast- _lhsImergeMap- _lhsInextIntra- _lhsInextIntraVars- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwith_sig ->- (let _lhsOintra :: Exprs- _lhsOintraVars :: (Set String)- _vssOlastExpr :: Expr- _intraOlastExpr :: Expr- _lhsOdecls :: Decls- _lhsOgatherInstVisitNrs :: (Map Identifier Int)- _vssOdeclsAbove :: ([Decl])- _intraOdeclsAbove :: ([Decl])- _lhsOcomments :: ([String])- _vssOwhat :: String- _intraOwhat :: String- _lhsOsemNames :: ([String])- _lhsOvisitedSet :: (Set Identifier)- _vssOallNts :: (Set NontermIdent)- _vssOaroundMap :: (Set Identifier)- _vssOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])- _vssOcon :: ConstructorIdent- _vssOinh :: Attributes- _vssOinstVisitNrs :: (Map Identifier Int)- _vssOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _vssOnr :: Int- _vssOnt :: NontermIdent- _vssOo_case :: Bool- _vssOo_cata :: Bool- _vssOo_costcentre :: Bool- _vssOo_data :: (Maybe Bool)- _vssOo_linePragmas :: Bool- _vssOo_monadic :: Bool- _vssOo_newtypes :: Bool- _vssOo_pretty :: Bool- _vssOo_rename :: Bool- _vssOo_sem :: Bool- _vssOo_sig :: Bool- _vssOo_splitsems :: Bool- _vssOo_strictwrap :: Bool- _vssOo_traces :: Bool- _vssOo_unbox :: Bool- _vssOoptions :: Options- _vssOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _vssOparamMap :: ParamMap- _vssOprefix :: String- _vssOsyn :: Attributes- _vssOterminals :: ([Identifier])- _vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _vssOvisitedSet :: (Set Identifier)- _intraOallNts :: (Set NontermIdent)- _intraOaroundMap :: (Set Identifier)- _intraOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])- _intraOcon :: ConstructorIdent- _intraOinh :: Attributes- _intraOinstVisitNrs :: (Map Identifier Int)- _intraOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _intraOnr :: Int- _intraOnt :: NontermIdent- _intraOo_case :: Bool- _intraOo_cata :: Bool- _intraOo_costcentre :: Bool- _intraOo_data :: (Maybe Bool)- _intraOo_linePragmas :: Bool- _intraOo_monadic :: Bool- _intraOo_newtypes :: Bool- _intraOo_pretty :: Bool- _intraOo_rename :: Bool- _intraOo_sem :: Bool- _intraOo_sig :: Bool- _intraOo_splitsems :: Bool- _intraOo_strictwrap :: Bool- _intraOo_traces :: Bool- _intraOo_unbox :: Bool- _intraOoptions :: Options- _intraOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _intraOparamMap :: ParamMap- _intraOprefix :: String- _intraOsyn :: Attributes- _intraOterminals :: ([Identifier])- _intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _intraOvisitedSet :: (Set Identifier)- _vssIallTpsFound :: Bool- _vssIblockDecls :: DeclBlocks - _vssIcomments :: ([String])- _vssIdecls :: Decls- _vssIdeclsAbove :: ([Decl])- _vssIdefinedInsts :: ([Identifier])- _vssIexprs :: Exprs- _vssItSigs :: ([Decl])- _vssItps :: ([Type])- _vssIusedVars :: (Set String)- _vssIvisitedSet :: (Set Identifier)- _intraIallTpsFound :: Bool- _intraIblockDecls :: DeclBlocks - _intraIcomments :: ([String])- _intraIdecls :: Decls- _intraIdeclsAbove :: ([Decl])- _intraIdefinedInsts :: ([Identifier])- _intraIexprs :: Exprs- _intraItSigs :: ([Decl])- _intraItps :: ([Type])- _intraIusedVars :: (Set String)- _intraIvisitedSet :: (Set Identifier)- -- "GenerateCode.ag"(line 303, column 13)- _lhsOintra =- ({-# LINE 303 "GenerateCode.ag" #-}- _intraIexprs- {-# LINE 4974 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 304, column 13)- _lhsOintraVars =- ({-# LINE 304 "GenerateCode.ag" #-}- _intraIusedVars- {-# LINE 4980 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 443, column 13)- __tup4 =- ({-# LINE 443 "GenerateCode.ag" #-}- partition (\(_,_,virt) -> isHigherOrder virt) _lhsIchildren- {-# LINE 4986 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 443, column 13)- (_higherOrderChildren,_) =- ({-# LINE 443 "GenerateCode.ag" #-}- __tup4- {-# LINE 4992 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 443, column 13)- (_,_firstOrderChildren) =- ({-# LINE 443 "GenerateCode.ag" #-}- __tup4- {-# LINE 4998 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 444, column 13)- _firstOrderOrig =- ({-# LINE 444 "GenerateCode.ag" #-}- map pickOrigType _firstOrderChildren- {-# LINE 5004 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 445, column 13)- _funcname =- ({-# LINE 445 "GenerateCode.ag" #-}- seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr- {-# LINE 5010 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 446, column 13)- _nextVisitName =- ({-# LINE 446 "GenerateCode.ag" #-}- if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)]- {-# LINE 5016 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 447, column 13)- _nextVisitDecl =- ({-# LINE 447 "GenerateCode.ag" #-}- let lhs = TupleLhs _nextVisitName- rhs = Let _lhsIdecls (SimpleExpr fun)- fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1)- in if _lhsIisLast- then []- else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars]- {-# LINE 5027 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 454, column 13)- _decls =- ({-# LINE 454 "GenerateCode.ag" #-}- _typeSigs ++ _vssIdecls ++ _nextVisitDecl- {-# LINE 5033 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 455, column 13)- _vssOlastExpr =- ({-# LINE 455 "GenerateCode.ag" #-}- mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName- {-# LINE 5039 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 456, column 13)- _intraOlastExpr =- ({-# LINE 456 "GenerateCode.ag" #-}- error "lastExpr: not used here"- {-# LINE 5045 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 457, column 13)- _lastExprVars =- ({-# LINE 457 "GenerateCode.ag" #-}- map (lhsname False) (Map.keys syn_) ++ _nextVisitName- {-# LINE 5051 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 458, column 13)- __tup5 =- ({-# LINE 458 "GenerateCode.ag" #-}- mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls- {-# LINE 5057 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 458, column 13)- (_blockFunDecls,_) =- ({-# LINE 458 "GenerateCode.ag" #-}- __tup5- {-# LINE 5063 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 458, column 13)- (_,_blockFirstFunCall) =- ({-# LINE 458 "GenerateCode.ag" #-}- __tup5- {-# LINE 5069 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 460, column 13)- _costCentreDescr =- ({-# LINE 460 "GenerateCode.ag" #-}- "b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr- {-# LINE 5075 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 461, column 13)- _addCostCentre =- ({-# LINE 461 "GenerateCode.ag" #-}- \v -> if _lhsIo_costcentre- then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v- else v- {-# LINE 5083 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 465, column 13)- _params =- ({-# LINE 465 "GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap- {-# LINE 5089 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 466, column 13)- _semFun =- ({-# LINE 466 "GenerateCode.ag" #-}- let lhs = Fun _funcname lhs_args- lhs_args = if _lhsInr == 0 then map field _firstOrderOrig else []- field (name,NT tp tps,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x]- | otherwise = id- addType expr | null tps = expr- | otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps)- in unwrap $ addType $ SimpleExpr $ funname name 0- field (name,tp,_) = let expr = SimpleExpr (funname name 0)- in if null _params- then expr- else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params tp)- mbEvalTp | null _params = const Nothing- | otherwise = Just . idEvalType- rhs = wrap- . mkSemFun _lhsInt _lhsInr [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params tp) | (nm,tp) <- Map.assocs inh_]- $ _addCostCentre- $ if ordered_ && _o_splitsems- then _blockFirstFunCall- else mkDecls _declsType _decls- . ResultExpr (typeName _lhsInt _lhsInr)- . mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_)- $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName- wrap = if _lhsIo_newtypes- then \x -> App (typeName _lhsInt _lhsInr) [x]- else id- in Decl lhs rhs Set.empty Set.empty- {-# LINE 5120 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 497, column 13)- _tsig =- ({-# LINE 497 "GenerateCode.ag" #-}- TSig _funcname _semType- {-# LINE 5126 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 498, column 13)- _semType =- ({-# LINE 498 "GenerateCode.ag" #-}- let argType (NT tp tps) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r- | tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps"- argType (Haskell tp) r = SimpleType tp `Arr` r- evalTp | null _params = id- | otherwise = idEvalType- in appContext _lhsIcontextMap _lhsInt $ evalTp $- if _lhsInr == 0- then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderOrig )- else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) []- {-# LINE 5140 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 509, column 13)- _lhsOdecls =- ({-# LINE 509 "GenerateCode.ag" #-}- ( if _lhsIwith_sig- then [_tsig, _semFun]- else [_semFun]- ) ++- ( if ordered_ && _o_splitsems- then _blockFunDecls- else []- )- {-# LINE 5153 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 517, column 13)- _typeSigs =- ({-# LINE 517 "GenerateCode.ag" #-}- if _lhsIo_sig && not _o_case- then _vssItSigs- else []- {-# LINE 5161 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 520, column 13)- _o_do =- ({-# LINE 520 "GenerateCode.ag" #-}- ordered_ && _lhsIo_monadic- {-# LINE 5167 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 521, column 13)- _o_case =- ({-# LINE 521 "GenerateCode.ag" #-}- not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE)- {-# LINE 5173 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 522, column 13)- _declsType =- ({-# LINE 522 "GenerateCode.ag" #-}- if _o_do- then DeclsDo- else if _o_case- then DeclsCase- else DeclsLet- {-# LINE 5183 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 527, column 13)- _o_splitsems =- ({-# LINE 527 "GenerateCode.ag" #-}- ordered_ && _lhsIo_splitsems- {-# LINE 5189 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 560, column 7)- _lhsOgatherInstVisitNrs =- ({-# LINE 560 "GenerateCode.ag" #-}- Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts]- {-# LINE 5195 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 603, column 7)- _vssOdeclsAbove =- ({-# LINE 603 "GenerateCode.ag" #-}- []- {-# LINE 5201 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 604, column 7)- _intraOdeclsAbove =- ({-# LINE 604 "GenerateCode.ag" #-}- error "declsAbove: not used here"- {-# LINE 5207 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 886, column 18)- _lhsOcomments =- ({-# LINE 886 "GenerateCode.ag" #-}- let body = map ind (_vssIcomments ++ _intraIcomments)- in if null body- then []- else ("visit " ++ show _lhsInr ++ ":") : body- {-# LINE 5216 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 890, column 18)- _vssOwhat =- ({-# LINE 890 "GenerateCode.ag" #-}- "local"- {-# LINE 5222 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 891, column 18)- _intraOwhat =- ({-# LINE 891 "GenerateCode.ag" #-}- "intra"- {-# LINE 5228 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 1135, column 7)- _lhsOsemNames =- ({-# LINE 1135 "GenerateCode.ag" #-}- [_funcname ]- {-# LINE 5234 "GenerateCode.hs" #-}- )- -- copy rule (up)- _lhsOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _intraIvisitedSet- {-# LINE 5240 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 5246 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOaroundMap =- ({-# LINE 572 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 5252 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOchildren =- ({-# LINE 252 "GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 5258 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOcon =- ({-# LINE 89 "GenerateCode.ag" #-}- _lhsIcon- {-# LINE 5264 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 5270 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOinstVisitNrs =- ({-# LINE 552 "GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 5276 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOmergeMap =- ({-# LINE 588 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 5282 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOnr =- ({-# LINE 271 "GenerateCode.ag" #-}- _lhsInr- {-# LINE 5288 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 5294 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _vssOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _o_case- {-# LINE 5300 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 5306 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 5312 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 5318 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 5324 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 5330 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 5336 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 5342 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 5348 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 5354 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 5360 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _vssOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _o_splitsems- {-# LINE 5366 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 5372 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 5378 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 5384 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 5390 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOparamInstMap =- ({-# LINE 101 "GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 5396 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 5402 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 5408 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 5414 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOterminals =- ({-# LINE 90 "GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 5420 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 5426 "GenerateCode.hs" #-}- )- -- copy rule (down)- _vssOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 5432 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 5438 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOaroundMap =- ({-# LINE 572 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 5444 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOchildren =- ({-# LINE 252 "GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 5450 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOcon =- ({-# LINE 89 "GenerateCode.ag" #-}- _lhsIcon- {-# LINE 5456 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 5462 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOinstVisitNrs =- ({-# LINE 552 "GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 5468 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOmergeMap =- ({-# LINE 588 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 5474 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOnr =- ({-# LINE 271 "GenerateCode.ag" #-}- _lhsInr- {-# LINE 5480 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 5486 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _intraOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _o_case- {-# LINE 5492 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 5498 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 5504 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 5510 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 5516 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 5522 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 5528 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 5534 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 5540 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 5546 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 5552 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _intraOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _o_splitsems- {-# LINE 5558 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 5564 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 5570 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 5576 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 5582 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOparamInstMap =- ({-# LINE 101 "GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 5588 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 5594 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 5600 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 5606 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOterminals =- ({-# LINE 90 "GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 5612 "GenerateCode.hs" #-}- )- -- copy rule (down)- _intraOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 5618 "GenerateCode.hs" #-}- )- -- copy rule (chain)- _intraOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _vssIvisitedSet- {-# LINE 5624 "GenerateCode.hs" #-}- )- ( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars,_vssIvisitedSet) =- vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOmergeMap _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOoptions _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOvisitedSet _vssOwhat - ( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars,_intraIvisitedSet) =- intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOmergeMap _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOoptions _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOvisitedSet _intraOwhat - in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet))) )--- CVisits ------------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Set Identifier- children : [(Identifier,Type, Maybe (Maybe Type))]- con : ConstructorIdent- contextMap : ContextMap- inh : Attributes- instVisitNrs : Map Identifier Int- mergeMap : Map Identifier (Identifier, [Identifier])- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramInstMap : Map Identifier (NontermIdent, [String])- paramMap : ParamMap- prefix : String- syn : Attributes- terminals : [Identifier]- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- chained attribute:- visitedSet : Set Identifier- synthesized attributes:- comments : [String]- decls : Decls- gatherInstVisitNrs : Map Identifier Int- intra : Exprs- intraVars : Set String- isNil : Bool- semNames : [String]- alternatives:- alternative Cons:- child hd : CVisit - child tl : CVisits - alternative Nil:--}--- cata-sem_CVisits :: CVisits ->- T_CVisits -sem_CVisits list =- (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list) )--- semantic domain-newtype T_CVisits = T_CVisits ((Set NontermIdent) ->- PragmaMap ->- (Set Identifier) ->- ([(Identifier,Type, Maybe (Maybe Type))]) ->- ConstructorIdent ->- ContextMap ->- Attributes ->- (Map Identifier Int) ->- (Map Identifier (Identifier, [Identifier])) ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- (Map Identifier (NontermIdent, [String])) ->- ParamMap ->- String ->- Attributes ->- ([Identifier]) ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- (Set Identifier) ->- Bool ->- ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),Bool,([String]),(Set Identifier)))-data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !((Set NontermIdent)),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !((Set Identifier)),children_Inh_CVisits :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !((Map Identifier Int)),mergeMap_Inh_CVisits :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !((Maybe Bool)),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),options_Inh_CVisits :: !(Options),paramInstMap_Inh_CVisits :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !(([Identifier])),unfoldSemDom_Inh_CVisits :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisits :: !((Set Identifier)),with_sig_Inh_CVisits :: !(Bool)}-data Syn_CVisits = Syn_CVisits {comments_Syn_CVisits :: !(([String])),decls_Syn_CVisits :: !(Decls),gatherInstVisitNrs_Syn_CVisits :: !((Map Identifier Int)),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !((Set String)),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !(([String])),visitedSet_Syn_CVisits :: !((Set Identifier))}-wrap_CVisits :: T_CVisits ->- Inh_CVisits ->- Syn_CVisits -wrap_CVisits (T_CVisits sem ) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) =- (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig - in (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet ))-sem_CVisits_Cons :: T_CVisit ->- T_CVisits ->- T_CVisits -sem_CVisits_Cons (T_CVisit hd_ ) (T_CVisits tl_ ) =- (T_CVisits (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIcontextMap- _lhsIinh- _lhsIinstVisitNrs- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwith_sig ->- (let _tlOnr :: Int- _lhsOisNil :: Bool- _hdOisLast :: Bool- _hdOnextIntra :: Exprs- _hdOnextIntraVars :: (Set String)- _lhsOintra :: Exprs- _lhsOintraVars :: (Set String)- _lhsOdecls :: Decls- _hdOdecls :: Decls- _lhsOcomments :: ([String])- _lhsOgatherInstVisitNrs :: (Map Identifier Int)- _lhsOsemNames :: ([String])- _lhsOvisitedSet :: (Set Identifier)- _hdOallNts :: (Set NontermIdent)- _hdOallPragmas :: PragmaMap- _hdOaroundMap :: (Set Identifier)- _hdOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])- _hdOcon :: ConstructorIdent- _hdOcontextMap :: ContextMap- _hdOinh :: Attributes- _hdOinstVisitNrs :: (Map Identifier Int)- _hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _hdOnr :: Int- _hdOnt :: NontermIdent- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOsyn :: Attributes- _hdOterminals :: ([Identifier])- _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _hdOvisitedSet :: (Set Identifier)- _hdOwith_sig :: Bool- _tlOallNts :: (Set NontermIdent)- _tlOallPragmas :: PragmaMap- _tlOaroundMap :: (Set Identifier)- _tlOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])- _tlOcon :: ConstructorIdent- _tlOcontextMap :: ContextMap- _tlOinh :: Attributes- _tlOinstVisitNrs :: (Map Identifier Int)- _tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _tlOnt :: NontermIdent- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOsyn :: Attributes- _tlOterminals :: ([Identifier])- _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _tlOvisitedSet :: (Set Identifier)- _tlOwith_sig :: Bool- _hdIcomments :: ([String])- _hdIdecls :: Decls- _hdIgatherInstVisitNrs :: (Map Identifier Int)- _hdIintra :: Exprs- _hdIintraVars :: (Set String)- _hdIsemNames :: ([String])- _hdIvisitedSet :: (Set Identifier)- _tlIcomments :: ([String])- _tlIdecls :: Decls- _tlIgatherInstVisitNrs :: (Map Identifier Int)- _tlIintra :: Exprs- _tlIintraVars :: (Set String)- _tlIisNil :: Bool- _tlIsemNames :: ([String])- _tlIvisitedSet :: (Set Identifier)- -- "GenerateCode.ag"(line 275, column 11)- _tlOnr =- ({-# LINE 275 "GenerateCode.ag" #-}- _lhsInr + 1- {-# LINE 5875 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 288, column 12)- _lhsOisNil =- ({-# LINE 288 "GenerateCode.ag" #-}- False- {-# LINE 5881 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 289, column 12)- _hdOisLast =- ({-# LINE 289 "GenerateCode.ag" #-}- _tlIisNil- {-# LINE 5887 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 306, column 12)- _hdOnextIntra =- ({-# LINE 306 "GenerateCode.ag" #-}- _tlIintra- {-# LINE 5893 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 307, column 12)- _hdOnextIntraVars =- ({-# LINE 307 "GenerateCode.ag" #-}- _tlIintraVars- {-# LINE 5899 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 308, column 12)- _lhsOintra =- ({-# LINE 308 "GenerateCode.ag" #-}- _hdIintra- {-# LINE 5905 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 309, column 12)- _lhsOintraVars =- ({-# LINE 309 "GenerateCode.ag" #-}- _hdIintraVars- {-# LINE 5911 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 433, column 11)- _lhsOdecls =- ({-# LINE 433 "GenerateCode.ag" #-}- _hdIdecls- {-# LINE 5917 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 434, column 11)- _hdOdecls =- ({-# LINE 434 "GenerateCode.ag" #-}- _tlIdecls- {-# LINE 5923 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- _hdIcomments ++ _tlIcomments- {-# LINE 5929 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 553, column 44)- _lhsOgatherInstVisitNrs =- ({-# LINE 553 "GenerateCode.ag" #-}- _hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs- {-# LINE 5935 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 1125, column 61)- _lhsOsemNames =- ({-# LINE 1125 "GenerateCode.ag" #-}- _hdIsemNames ++ _tlIsemNames- {-# LINE 5941 "GenerateCode.hs" #-}- )- -- copy rule (up)- _lhsOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _tlIvisitedSet- {-# LINE 5947 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 5953 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOallPragmas =- ({-# LINE 73 "GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 5959 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 572 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 5965 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOchildren =- ({-# LINE 412 "GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 5971 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 89 "GenerateCode.ag" #-}- _lhsIcon- {-# LINE 5977 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOcontextMap =- ({-# LINE 115 "GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 5983 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 5989 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOinstVisitNrs =- ({-# LINE 552 "GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 5995 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 588 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 6001 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOnr =- ({-# LINE 271 "GenerateCode.ag" #-}- _lhsInr- {-# LINE 6007 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 6013 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 6019 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 6025 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 6031 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 6037 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 6043 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 6049 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 6055 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 6061 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 6067 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 6073 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 6079 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 6085 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 6091 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 6097 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 6103 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 6109 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOparamInstMap =- ({-# LINE 101 "GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 6115 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 6121 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 6127 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 6133 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOterminals =- ({-# LINE 90 "GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 6139 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 6145 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 6151 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOwith_sig =- ({-# LINE 844 "GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 6157 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 6163 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOallPragmas =- ({-# LINE 73 "GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 6169 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 572 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 6175 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOchildren =- ({-# LINE 412 "GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 6181 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 89 "GenerateCode.ag" #-}- _lhsIcon- {-# LINE 6187 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOcontextMap =- ({-# LINE 115 "GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 6193 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 6199 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOinstVisitNrs =- ({-# LINE 552 "GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 6205 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 588 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 6211 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 6217 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 6223 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 6229 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 6235 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 6241 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 6247 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 6253 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 6259 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 6265 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 6271 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 6277 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 6283 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 6289 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 6295 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 6301 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 6307 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 6313 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOparamInstMap =- ({-# LINE 101 "GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 6319 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 6325 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 6331 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 6337 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOterminals =- ({-# LINE 90 "GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 6343 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 6349 "GenerateCode.hs" #-}- )- -- copy rule (chain)- _tlOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _hdIvisitedSet- {-# LINE 6355 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOwith_sig =- ({-# LINE 844 "GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 6361 "GenerateCode.hs" #-}- )- ( _hdIcomments,_hdIdecls,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames,_hdIvisitedSet) =- hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOdecls _hdOinh _hdOinstVisitNrs _hdOisLast _hdOmergeMap _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwith_sig - ( _tlIcomments,_tlIdecls,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames,_tlIvisitedSet) =- tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOinh _tlOinstVisitNrs _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwith_sig - in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) )-sem_CVisits_Nil :: T_CVisits -sem_CVisits_Nil =- (T_CVisits (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIcontextMap- _lhsIinh- _lhsIinstVisitNrs- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwith_sig ->- (let _lhsOisNil :: Bool- _lhsOintra :: Exprs- _lhsOintraVars :: (Set String)- _lhsOdecls :: Decls- _lhsOcomments :: ([String])- _lhsOgatherInstVisitNrs :: (Map Identifier Int)- _lhsOsemNames :: ([String])- _lhsOvisitedSet :: (Set Identifier)- -- "GenerateCode.ag"(line 290, column 10)- _lhsOisNil =- ({-# LINE 290 "GenerateCode.ag" #-}- True- {-# LINE 6417 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 310, column 10)- _lhsOintra =- ({-# LINE 310 "GenerateCode.ag" #-}- []- {-# LINE 6423 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 311, column 10)- _lhsOintraVars =- ({-# LINE 311 "GenerateCode.ag" #-}- Set.empty- {-# LINE 6429 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 432, column 11)- _lhsOdecls =- ({-# LINE 432 "GenerateCode.ag" #-}- []- {-# LINE 6435 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- []- {-# LINE 6441 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 553, column 44)- _lhsOgatherInstVisitNrs =- ({-# LINE 553 "GenerateCode.ag" #-}- Map.empty- {-# LINE 6447 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 1125, column 61)- _lhsOsemNames =- ({-# LINE 1125 "GenerateCode.ag" #-}- []- {-# LINE 6453 "GenerateCode.hs" #-}- )- -- copy rule (chain)- _lhsOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 6459 "GenerateCode.hs" #-}- )- in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) )--- DeclBlocks ---------------------------------------------------{-- visit 0:- inherited attributes:- blockNr : Int- lastExprVars : [String]- nextVisitDecls : [Decl]- optCase : Bool- prefix : String- synthesized attributes:- callExpr : Expr- decls : [Decl]- freeVars : [String]- alternatives:- alternative DeclBlock:- child defs : {[Decl]}- child visit : {Decl}- child next : DeclBlocks - visit 0:- local lambdaName : _- local pragmaDecl : _- local freeVars : _- local decl : _- alternative DeclTerminator:- child defs : {[Decl]}- child result : {Expr}- visit 0:- local lambdaName : _- local pragmaDecl : _- local freeVars : _--}--- cata-sem_DeclBlocks :: DeclBlocks ->- T_DeclBlocks -sem_DeclBlocks (DeclBlock _defs _visit _next ) =- (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next ) )-sem_DeclBlocks (DeclTerminator _defs _result ) =- (sem_DeclBlocks_DeclTerminator _defs _result )--- semantic domain-newtype T_DeclBlocks = T_DeclBlocks (Int ->- ([String]) ->- ([Decl]) ->- Bool ->- String ->- ( Expr,([Decl]),([String])))-data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !(([String])),nextVisitDecls_Inh_DeclBlocks :: !(([Decl])),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)}-data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !(([Decl])),freeVars_Syn_DeclBlocks :: !(([String]))}-wrap_DeclBlocks :: T_DeclBlocks ->- Inh_DeclBlocks ->- Syn_DeclBlocks -wrap_DeclBlocks (T_DeclBlocks sem ) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) =- (let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix - in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars ))-sem_DeclBlocks_DeclBlock :: ([Decl]) ->- Decl ->- T_DeclBlocks ->- T_DeclBlocks -sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_ ) =- (T_DeclBlocks (\ _lhsIblockNr- _lhsIlastExprVars- _lhsInextVisitDecls- _lhsIoptCase- _lhsIprefix ->- (let _nextOblockNr :: Int- _lhsOcallExpr :: Expr- _lhsOdecls :: ([Decl])- _lhsOfreeVars :: ([String])- _nextOlastExprVars :: ([String])- _nextOnextVisitDecls :: ([Decl])- _nextOoptCase :: Bool- _nextOprefix :: String- _nextIcallExpr :: Expr- _nextIdecls :: ([Decl])- _nextIfreeVars :: ([String])- -- "GenerateCode.ag"(line 654, column 7)- _nextOblockNr =- ({-# LINE 654 "GenerateCode.ag" #-}- _lhsIblockNr + 1- {-# LINE 6540 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 659, column 7)- _lambdaName =- ({-# LINE 659 "GenerateCode.ag" #-}- _lhsIprefix ++ "_block" ++ show _lhsIblockNr- {-# LINE 6546 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 660, column 7)- _pragmaDecl =- ({-# LINE 660 "GenerateCode.ag" #-}- PragmaDecl ("NOINLINE " ++ _lambdaName )- {-# LINE 6552 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 661, column 7)- _lhsOcallExpr =- ({-# LINE 661 "GenerateCode.ag" #-}- App _lambdaName (map SimpleExpr _freeVars )- {-# LINE 6558 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 665, column 7)- _freeVars =- ({-# LINE 665 "GenerateCode.ag" #-}- freevars _nextIfreeVars (visit_ : defs_)- {-# LINE 6564 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 672, column 7)- _decl =- ({-# LINE 672 "GenerateCode.ag" #-}- mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr- {-# LINE 6570 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 673, column 7)- _lhsOdecls =- ({-# LINE 673 "GenerateCode.ag" #-}- (if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls- {-# LINE 6576 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _lhsOfreeVars =- ({-# LINE 656 "GenerateCode.ag" #-}- _freeVars- {-# LINE 6582 "GenerateCode.hs" #-}- )- -- copy rule (down)- _nextOlastExprVars =- ({-# LINE 640 "GenerateCode.ag" #-}- _lhsIlastExprVars- {-# LINE 6588 "GenerateCode.hs" #-}- )- -- copy rule (down)- _nextOnextVisitDecls =- ({-# LINE 640 "GenerateCode.ag" #-}- _lhsInextVisitDecls- {-# LINE 6594 "GenerateCode.hs" #-}- )- -- copy rule (down)- _nextOoptCase =- ({-# LINE 640 "GenerateCode.ag" #-}- _lhsIoptCase- {-# LINE 6600 "GenerateCode.hs" #-}- )- -- copy rule (down)- _nextOprefix =- ({-# LINE 640 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 6606 "GenerateCode.hs" #-}- )- ( _nextIcallExpr,_nextIdecls,_nextIfreeVars) =- next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix - in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) )-sem_DeclBlocks_DeclTerminator :: ([Decl]) ->- Expr ->- T_DeclBlocks -sem_DeclBlocks_DeclTerminator defs_ result_ =- (T_DeclBlocks (\ _lhsIblockNr- _lhsIlastExprVars- _lhsInextVisitDecls- _lhsIoptCase- _lhsIprefix ->- (let _lhsOcallExpr :: Expr- _lhsOdecls :: ([Decl])- _lhsOfreeVars :: ([String])- -- "GenerateCode.ag"(line 659, column 7)- _lambdaName =- ({-# LINE 659 "GenerateCode.ag" #-}- _lhsIprefix ++ "_block" ++ show _lhsIblockNr- {-# LINE 6627 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 660, column 7)- _pragmaDecl =- ({-# LINE 660 "GenerateCode.ag" #-}- PragmaDecl ("NOINLINE " ++ _lambdaName )- {-# LINE 6633 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 661, column 7)- _lhsOcallExpr =- ({-# LINE 661 "GenerateCode.ag" #-}- App _lambdaName (map SimpleExpr _freeVars )- {-# LINE 6639 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 663, column 7)- _freeVars =- ({-# LINE 663 "GenerateCode.ag" #-}- freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls)- {-# LINE 6645 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 670, column 7)- _lhsOdecls =- ({-# LINE 670 "GenerateCode.ag" #-}- [ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ]- {-# LINE 6651 "GenerateCode.hs" #-}- )- -- copy rule (from local)- _lhsOfreeVars =- ({-# LINE 656 "GenerateCode.ag" #-}- _freeVars- {-# LINE 6657 "GenerateCode.hs" #-}- )- in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) )--- DeclBlocksRoot -----------------------------------------------{-- visit 0:- inherited attributes:- lastExprVars : [String]- nextVisitDecls : [Decl]- optCase : Bool- prefix : String- synthesized attributes:- firstCall : Expr- lambdas : [Decl]- alternatives:- alternative DeclBlocksRoot:- child blocks : DeclBlocks --}--- cata-sem_DeclBlocksRoot :: DeclBlocksRoot ->- T_DeclBlocksRoot -sem_DeclBlocksRoot (DeclBlocksRoot _blocks ) =- (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks ) )--- semantic domain-newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) ->- ([Decl]) ->- Bool ->- String ->- ( Expr,([Decl])))-data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !(([String])),nextVisitDecls_Inh_DeclBlocksRoot :: !(([Decl])),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)}-data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !(([Decl]))}-wrap_DeclBlocksRoot :: T_DeclBlocksRoot ->- Inh_DeclBlocksRoot ->- Syn_DeclBlocksRoot -wrap_DeclBlocksRoot (T_DeclBlocksRoot sem ) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) =- (let ( _lhsOfirstCall,_lhsOlambdas) = sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix - in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas ))-sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks ->- T_DeclBlocksRoot -sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_ ) =- (T_DeclBlocksRoot (\ _lhsIlastExprVars- _lhsInextVisitDecls- _lhsIoptCase- _lhsIprefix ->- (let _lhsOlambdas :: ([Decl])- _lhsOfirstCall :: Expr- _blocksOblockNr :: Int- _blocksOlastExprVars :: ([String])- _blocksOnextVisitDecls :: ([Decl])- _blocksOoptCase :: Bool- _blocksOprefix :: String- _blocksIcallExpr :: Expr- _blocksIdecls :: ([Decl])- _blocksIfreeVars :: ([String])- -- "GenerateCode.ag"(line 645, column 7)- _lhsOlambdas =- ({-# LINE 645 "GenerateCode.ag" #-}- _blocksIdecls- {-# LINE 6715 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 646, column 7)- _lhsOfirstCall =- ({-# LINE 646 "GenerateCode.ag" #-}- _blocksIcallExpr- {-# LINE 6721 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 651, column 7)- _blocksOblockNr =- ({-# LINE 651 "GenerateCode.ag" #-}- 1- {-# LINE 6727 "GenerateCode.hs" #-}- )- -- copy rule (down)- _blocksOlastExprVars =- ({-# LINE 640 "GenerateCode.ag" #-}- _lhsIlastExprVars- {-# LINE 6733 "GenerateCode.hs" #-}- )- -- copy rule (down)- _blocksOnextVisitDecls =- ({-# LINE 640 "GenerateCode.ag" #-}- _lhsInextVisitDecls- {-# LINE 6739 "GenerateCode.hs" #-}- )- -- copy rule (down)- _blocksOoptCase =- ({-# LINE 640 "GenerateCode.ag" #-}- _lhsIoptCase- {-# LINE 6745 "GenerateCode.hs" #-}- )- -- copy rule (down)- _blocksOprefix =- ({-# LINE 640 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 6751 "GenerateCode.hs" #-}- )- ( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) =- blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix - in ( _lhsOfirstCall,_lhsOlambdas))) )--- Pattern ------------------------------------------------------{-- visit 0:- synthesized attributes:- copy : SELF - definedInsts : [Identifier]- patternAttributes : [(Identifier, Identifier)]- alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - child parts : Patterns - visit 0:- local copy : _- alternative Constr:- child name : {ConstructorIdent}- child pats : Patterns - visit 0:- local copy : _- alternative Irrefutable:- child pat : Pattern - visit 0:- local copy : _- alternative Product:- child pos : {Pos}- child pats : Patterns - visit 0:- local copy : _- alternative Underscore:- child pos : {Pos}- visit 0:- local copy : _--}--- cata-sem_Pattern :: Pattern ->- T_Pattern -sem_Pattern (Alias _field _attr _pat _parts ) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )-sem_Pattern (Constr _name _pats ) =- (sem_Pattern_Constr _name (sem_Patterns _pats ) )-sem_Pattern (Irrefutable _pat ) =- (sem_Pattern_Irrefutable (sem_Pattern _pat ) )-sem_Pattern (Product _pos _pats ) =- (sem_Pattern_Product _pos (sem_Patterns _pats ) )-sem_Pattern (Underscore _pos ) =- (sem_Pattern_Underscore _pos )--- semantic domain-newtype T_Pattern = T_Pattern (( Pattern ,([Identifier]),([(Identifier, Identifier)])))-data Inh_Pattern = Inh_Pattern {}-data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedInsts_Syn_Pattern :: !(([Identifier])),patternAttributes_Syn_Pattern :: !(([(Identifier, Identifier)]))}-wrap_Pattern :: T_Pattern ->- Inh_Pattern ->- Syn_Pattern -wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =- (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem - in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes ))-sem_Pattern_Alias :: Identifier ->- Identifier ->- T_Pattern ->- T_Patterns ->- T_Pattern -sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedInsts :: ([Identifier])- _patIpatternAttributes :: ([(Identifier, Identifier)])- _partsIcopy :: Patterns - _partsIdefinedInsts :: ([Identifier])- _partsIpatternAttributes :: ([(Identifier, Identifier)])- -- "GenerateCode.ag"(line 256, column 11)- _lhsOdefinedInsts =- ({-# LINE 256 "GenerateCode.ag" #-}- (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts- {-# LINE 6832 "GenerateCode.hs" #-}- )- -- "GenerateCode.ag"(line 264, column 7)- _lhsOpatternAttributes =- ({-# LINE 264 "GenerateCode.ag" #-}- (field_,attr_) : (_patIpatternAttributes ++ _partsIpatternAttributes)- {-# LINE 6838 "GenerateCode.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Alias field_ attr_ _patIcopy _partsIcopy- {-# LINE 6844 "GenerateCode.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 6850 "GenerateCode.hs" #-}- )- ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =- pat_ - ( _partsIcopy,_partsIdefinedInsts,_partsIpatternAttributes) =- parts_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )-sem_Pattern_Constr :: ConstructorIdent ->- T_Patterns ->- T_Pattern -sem_Pattern_Constr name_ (T_Patterns pats_ ) =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedInsts :: ([Identifier])- _patsIpatternAttributes :: ([(Identifier, Identifier)])- -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- _patsIdefinedInsts- {-# LINE 6871 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 261, column 47)- _lhsOpatternAttributes =- ({-# LINE 261 "GenerateCode.ag" #-}- _patsIpatternAttributes- {-# LINE 6877 "GenerateCode.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 6883 "GenerateCode.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 6889 "GenerateCode.hs" #-}- )- ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =- pats_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )-sem_Pattern_Irrefutable :: T_Pattern ->- T_Pattern -sem_Pattern_Irrefutable (T_Pattern pat_ ) =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedInsts :: ([Identifier])- _patIpatternAttributes :: ([(Identifier, Identifier)])- -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- _patIdefinedInsts- {-# LINE 6907 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 261, column 47)- _lhsOpatternAttributes =- ({-# LINE 261 "GenerateCode.ag" #-}- _patIpatternAttributes- {-# LINE 6913 "GenerateCode.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 6919 "GenerateCode.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 6925 "GenerateCode.hs" #-}- )- ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =- pat_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )-sem_Pattern_Product :: Pos ->- T_Patterns ->- T_Pattern -sem_Pattern_Product pos_ (T_Patterns pats_ ) =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedInsts :: ([Identifier])- _patsIpatternAttributes :: ([(Identifier, Identifier)])- -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- _patsIdefinedInsts- {-# LINE 6944 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 261, column 47)- _lhsOpatternAttributes =- ({-# LINE 261 "GenerateCode.ag" #-}- _patsIpatternAttributes- {-# LINE 6950 "GenerateCode.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 6956 "GenerateCode.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 6962 "GenerateCode.hs" #-}- )- ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =- pats_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )-sem_Pattern_Underscore :: Pos ->- T_Pattern -sem_Pattern_Underscore pos_ =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern - -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- []- {-# LINE 6977 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 261, column 47)- _lhsOpatternAttributes =- ({-# LINE 261 "GenerateCode.ag" #-}- []- {-# LINE 6983 "GenerateCode.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Underscore pos_- {-# LINE 6989 "GenerateCode.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 6995 "GenerateCode.hs" #-}- )- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )--- Patterns -----------------------------------------------------{-- visit 0:- synthesized attributes:- copy : SELF - definedInsts : [Identifier]- patternAttributes : [(Identifier, Identifier)]- alternatives:- alternative Cons:- child hd : Pattern - child tl : Patterns - visit 0:- local copy : _- alternative Nil:- visit 0:- local copy : _--}--- cata-sem_Patterns :: Patterns ->- T_Patterns -sem_Patterns list =- (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )--- semantic domain-newtype T_Patterns = T_Patterns (( Patterns ,([Identifier]),([(Identifier, Identifier)])))-data Inh_Patterns = Inh_Patterns {}-data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedInsts_Syn_Patterns :: !(([Identifier])),patternAttributes_Syn_Patterns :: !(([(Identifier, Identifier)]))}-wrap_Patterns :: T_Patterns ->- Inh_Patterns ->- Syn_Patterns -wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =- (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem - in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes ))-sem_Patterns_Cons :: T_Pattern ->- T_Patterns ->- T_Patterns -sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =- (T_Patterns (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Patterns - _hdIcopy :: Pattern - _hdIdefinedInsts :: ([Identifier])- _hdIpatternAttributes :: ([(Identifier, Identifier)])- _tlIcopy :: Patterns - _tlIdefinedInsts :: ([Identifier])- _tlIpatternAttributes :: ([(Identifier, Identifier)])- -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 7047 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 261, column 47)- _lhsOpatternAttributes =- ({-# LINE 261 "GenerateCode.ag" #-}- _hdIpatternAttributes ++ _tlIpatternAttributes- {-# LINE 7053 "GenerateCode.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 7059 "GenerateCode.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 7065 "GenerateCode.hs" #-}- )- ( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) =- hd_ - ( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) =- tl_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )-sem_Patterns_Nil :: T_Patterns -sem_Patterns_Nil =- (T_Patterns (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Patterns - -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- []- {-# LINE 7081 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 261, column 47)- _lhsOpatternAttributes =- ({-# LINE 261 "GenerateCode.ag" #-}- []- {-# LINE 7087 "GenerateCode.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- []- {-# LINE 7093 "GenerateCode.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 7099 "GenerateCode.hs" #-}- )- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )--- Sequence -----------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- aroundMap : Set Identifier- children : [(Identifier,Type,Maybe (Maybe Type))]- con : ConstructorIdent- inh : Attributes- instVisitNrs : Map Identifier Int- lastExpr : Expr- mergeMap : Map Identifier (Identifier, [Identifier])- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramInstMap : Map Identifier (NontermIdent, [String])- paramMap : ParamMap- prefix : String- syn : Attributes- terminals : [Identifier]- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- what : String- chained attributes:- declsAbove : [Decl]- visitedSet : Set Identifier- synthesized attributes:- allTpsFound : Bool- blockDecls : DeclBlocks - comments : [String]- decls : Decls- definedInsts : [Identifier]- exprs : Exprs- tSigs : [Decl]- tps : [Type]- usedVars : Set String- alternatives:- alternative Cons:- child hd : CRule - child tl : Sequence - alternative Nil:--}--- cata-sem_Sequence :: Sequence ->- T_Sequence -sem_Sequence list =- (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list) )--- semantic domain-newtype T_Sequence = T_Sequence ((Set NontermIdent) ->- (Set Identifier) ->- ([(Identifier,Type,Maybe (Maybe Type))]) ->- ConstructorIdent ->- ([Decl]) ->- Attributes ->- (Map Identifier Int) ->- Expr ->- (Map Identifier (Identifier, [Identifier])) ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- (Map Identifier (NontermIdent, [String])) ->- ParamMap ->- String ->- Attributes ->- ([Identifier]) ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- (Set Identifier) ->- String ->- ( Bool,DeclBlocks ,([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))-data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !((Set NontermIdent)),aroundMap_Inh_Sequence :: !((Set Identifier)),children_Inh_Sequence :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !(([Decl])),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !((Map Identifier Int)),lastExpr_Inh_Sequence :: !(Expr),mergeMap_Inh_Sequence :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !((Maybe Bool)),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),options_Inh_Sequence :: !(Options),paramInstMap_Inh_Sequence :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !(([Identifier])),unfoldSemDom_Inh_Sequence :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_Sequence :: !((Set Identifier)),what_Inh_Sequence :: !(String)}-data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks ),comments_Syn_Sequence :: !(([String])),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !(([Decl])),definedInsts_Syn_Sequence :: !(([Identifier])),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !(([Decl])),tps_Syn_Sequence :: !(([Type])),usedVars_Syn_Sequence :: !((Set String)),visitedSet_Syn_Sequence :: !((Set Identifier))}-wrap_Sequence :: T_Sequence ->- Inh_Sequence ->- Syn_Sequence -wrap_Sequence (T_Sequence sem ) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) =- (let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat - in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet ))-sem_Sequence_Cons :: T_CRule ->- T_Sequence ->- T_Sequence -sem_Sequence_Cons (T_CRule hd_ ) (T_Sequence tl_ ) =- (T_Sequence (\ _lhsIallNts- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIdeclsAbove- _lhsIinh- _lhsIinstVisitNrs- _lhsIlastExpr- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwhat ->- (let _lhsOblockDecls :: DeclBlocks - _lhsOallTpsFound :: Bool- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOdefinedInsts :: ([Identifier])- _lhsOexprs :: Exprs- _lhsOtSigs :: ([Decl])- _lhsOtps :: ([Type])- _lhsOusedVars :: (Set String)- _lhsOdeclsAbove :: ([Decl])- _lhsOvisitedSet :: (Set Identifier)- _hdOallNts :: (Set NontermIdent)- _hdOaroundMap :: (Set Identifier)- _hdOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])- _hdOcon :: ConstructorIdent- _hdOdeclsAbove :: ([Decl])- _hdOinh :: Attributes- _hdOinstVisitNrs :: (Map Identifier Int)- _hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _hdOnr :: Int- _hdOnt :: NontermIdent- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOsyn :: Attributes- _hdOterminals :: ([Identifier])- _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _hdOvisitedSet :: (Set Identifier)- _hdOwhat :: String- _tlOallNts :: (Set NontermIdent)- _tlOaroundMap :: (Set Identifier)- _tlOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])- _tlOcon :: ConstructorIdent- _tlOdeclsAbove :: ([Decl])- _tlOinh :: Attributes- _tlOinstVisitNrs :: (Map Identifier Int)- _tlOlastExpr :: Expr- _tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _tlOnr :: Int- _tlOnt :: NontermIdent- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOsyn :: Attributes- _tlOterminals :: ([Identifier])- _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _tlOvisitedSet :: (Set Identifier)- _tlOwhat :: String- _hdIallTpsFound :: Bool- _hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks)- _hdIcomments :: ([String])- _hdIdecls :: Decls- _hdIdeclsAbove :: ([Decl])- _hdIdefinedInsts :: ([Identifier])- _hdIexprs :: Exprs- _hdItSigs :: ([Decl])- _hdItps :: ([Type])- _hdIusedVars :: (Set String)- _hdIvisitedSet :: (Set Identifier)- _tlIallTpsFound :: Bool- _tlIblockDecls :: DeclBlocks - _tlIcomments :: ([String])- _tlIdecls :: Decls- _tlIdeclsAbove :: ([Decl])- _tlIdefinedInsts :: ([Identifier])- _tlIexprs :: Exprs- _tlItSigs :: ([Decl])- _tlItps :: ([Type])- _tlIusedVars :: (Set String)- _tlIvisitedSet :: (Set Identifier)- -- "GenerateCode.ag"(line 614, column 7)- _lhsOblockDecls =- ({-# LINE 614 "GenerateCode.ag" #-}- _hdIbldBlocksFun _tlIblockDecls- {-# LINE 7353 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 418, column 39)- _lhsOallTpsFound =- ({-# LINE 418 "GenerateCode.ag" #-}- _hdIallTpsFound && _tlIallTpsFound- {-# LINE 7359 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- _hdIcomments ++ _tlIcomments- {-# LINE 7365 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 150, column 34)- _lhsOdecls =- ({-# LINE 150 "GenerateCode.ag" #-}- _hdIdecls ++ _tlIdecls- {-# LINE 7371 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 7377 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 327, column 34)- _lhsOexprs =- ({-# LINE 327 "GenerateCode.ag" #-}- _hdIexprs ++ _tlIexprs- {-# LINE 7383 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 356, column 33)- _lhsOtSigs =- ({-# LINE 356 "GenerateCode.ag" #-}- _hdItSigs ++ _tlItSigs- {-# LINE 7389 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 417, column 31)- _lhsOtps =- ({-# LINE 417 "GenerateCode.ag" #-}- _hdItps ++ _tlItps- {-# LINE 7395 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 345, column 37)- _lhsOusedVars =- ({-# LINE 345 "GenerateCode.ag" #-}- _hdIusedVars `Set.union` _tlIusedVars- {-# LINE 7401 "GenerateCode.hs" #-}- )- -- copy rule (up)- _lhsOdeclsAbove =- ({-# LINE 600 "GenerateCode.ag" #-}- _tlIdeclsAbove- {-# LINE 7407 "GenerateCode.hs" #-}- )- -- copy rule (up)- _lhsOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _tlIvisitedSet- {-# LINE 7413 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 7419 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 572 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 7425 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOchildren =- ({-# LINE 252 "GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 7431 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 89 "GenerateCode.ag" #-}- _lhsIcon- {-# LINE 7437 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOdeclsAbove =- ({-# LINE 600 "GenerateCode.ag" #-}- _lhsIdeclsAbove- {-# LINE 7443 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 7449 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOinstVisitNrs =- ({-# LINE 552 "GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 7455 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 588 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 7461 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOnr =- ({-# LINE 271 "GenerateCode.ag" #-}- _lhsInr- {-# LINE 7467 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 7473 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 7479 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 7485 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 7491 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 7497 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 7503 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 7509 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 7515 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 7521 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 7527 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 7533 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 7539 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 7545 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 7551 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 7557 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 7563 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 7569 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOparamInstMap =- ({-# LINE 101 "GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 7575 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 7581 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 7587 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 7593 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOterminals =- ({-# LINE 90 "GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 7599 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 7605 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 7611 "GenerateCode.hs" #-}- )- -- copy rule (down)- _hdOwhat =- ({-# LINE 863 "GenerateCode.ag" #-}- _lhsIwhat- {-# LINE 7617 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOallNts =- ({-# LINE 127 "GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 7623 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 572 "GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 7629 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOchildren =- ({-# LINE 252 "GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 7635 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 89 "GenerateCode.ag" #-}- _lhsIcon- {-# LINE 7641 "GenerateCode.hs" #-}- )- -- copy rule (chain)- _tlOdeclsAbove =- ({-# LINE 600 "GenerateCode.ag" #-}- _hdIdeclsAbove- {-# LINE 7647 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIinh- {-# LINE 7653 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOinstVisitNrs =- ({-# LINE 552 "GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 7659 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOlastExpr =- ({-# LINE 598 "GenerateCode.ag" #-}- _lhsIlastExpr- {-# LINE 7665 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 588 "GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 7671 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOnr =- ({-# LINE 271 "GenerateCode.ag" #-}- _lhsInr- {-# LINE 7677 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsInt- {-# LINE 7683 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 7689 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 7695 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 7701 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 7707 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 7713 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 7719 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 7725 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 7731 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 7737 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 7743 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 7749 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 7755 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 7761 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 7767 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 7773 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 7779 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOparamInstMap =- ({-# LINE 101 "GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 7785 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 7791 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 7797 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 84 "GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 7803 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOterminals =- ({-# LINE 90 "GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 7809 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOunfoldSemDom =- ({-# LINE 742 "GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 7815 "GenerateCode.hs" #-}- )- -- copy rule (chain)- _tlOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _hdIvisitedSet- {-# LINE 7821 "GenerateCode.hs" #-}- )- -- copy rule (down)- _tlOwhat =- ({-# LINE 863 "GenerateCode.ag" #-}- _lhsIwhat- {-# LINE 7827 "GenerateCode.hs" #-}- )- ( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars,_hdIvisitedSet) =- hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOinh _hdOinstVisitNrs _hdOmergeMap _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwhat - ( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars,_tlIvisitedSet) =- tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwhat - in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )-sem_Sequence_Nil :: T_Sequence -sem_Sequence_Nil =- (T_Sequence (\ _lhsIallNts- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIdeclsAbove- _lhsIinh- _lhsIinstVisitNrs- _lhsIlastExpr- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwhat ->- (let _lhsOblockDecls :: DeclBlocks - _lhsOallTpsFound :: Bool- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOdefinedInsts :: ([Identifier])- _lhsOexprs :: Exprs- _lhsOtSigs :: ([Decl])- _lhsOtps :: ([Type])- _lhsOusedVars :: (Set String)- _lhsOdeclsAbove :: ([Decl])- _lhsOvisitedSet :: (Set Identifier)- -- "GenerateCode.ag"(line 616, column 7)- _lhsOblockDecls =- ({-# LINE 616 "GenerateCode.ag" #-}- DeclTerminator _lhsIdeclsAbove _lhsIlastExpr- {-# LINE 7886 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 418, column 39)- _lhsOallTpsFound =- ({-# LINE 418 "GenerateCode.ag" #-}- True- {-# LINE 7892 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 861, column 52)- _lhsOcomments =- ({-# LINE 861 "GenerateCode.ag" #-}- []- {-# LINE 7898 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 150, column 34)- _lhsOdecls =- ({-# LINE 150 "GenerateCode.ag" #-}- []- {-# LINE 7904 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 254, column 55)- _lhsOdefinedInsts =- ({-# LINE 254 "GenerateCode.ag" #-}- []- {-# LINE 7910 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 327, column 34)- _lhsOexprs =- ({-# LINE 327 "GenerateCode.ag" #-}- []- {-# LINE 7916 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 356, column 33)- _lhsOtSigs =- ({-# LINE 356 "GenerateCode.ag" #-}- []- {-# LINE 7922 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 417, column 31)- _lhsOtps =- ({-# LINE 417 "GenerateCode.ag" #-}- []- {-# LINE 7928 "GenerateCode.hs" #-}- )- -- use rule "GenerateCode.ag"(line 345, column 37)- _lhsOusedVars =- ({-# LINE 345 "GenerateCode.ag" #-}- Set.empty- {-# LINE 7934 "GenerateCode.hs" #-}- )- -- copy rule (chain)- _lhsOdeclsAbove =- ({-# LINE 600 "GenerateCode.ag" #-}- _lhsIdeclsAbove- {-# LINE 7940 "GenerateCode.hs" #-}- )- -- copy rule (chain)- _lhsOvisitedSet =- ({-# LINE 140 "GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 7946 "GenerateCode.hs" #-}+-- UUAGC 0.9.37.2 (GenerateCode.ag)+module GenerateCode where+{-# LINE 9 "GenerateCode.ag" #-}++import CommonTypes+import SequentialTypes+import Code hiding (Type)+import qualified Code+import Options+import CodeSyntax+import ErrorMessages+import GrammarInfo+import DeclBlocks++import qualified Data.Map as Map+import Data.Map(Map) +import qualified Data.Set as Set+import Data.Set(Set) +import qualified Data.Sequence as Seq+import Data.Sequence(Seq)+import UU.Scanner.Position+import TokenDef+import HsToken+import HsTokenScanner++import Data.List(partition,intersperse,intersect,(\\))+import Maybe(fromJust,isJust)++import Debug.Trace+{-# LINE 33 "../src-derived/GenerateCode.hs" #-}++{-# LINE 2 "./CodeSyntax.ag" #-}++import Patterns+import CommonTypes+import Data.Map(Map)+import Data.Set(Set)+{-# LINE 41 "../src-derived/GenerateCode.hs" #-}++{-# LINE 2 "./Patterns.ag" #-}++-- Patterns.ag imports+import UU.Scanner.Position(Pos)+import CommonTypes (ConstructorIdent,Identifier)+{-# LINE 48 "../src-derived/GenerateCode.hs" #-}++{-# LINE 2 "./DeclBlocks.ag" #-}++import Code (Decl,Expr)+{-# LINE 53 "../src-derived/GenerateCode.hs" #-}+{-# LINE 107 "GenerateCode.ag" #-}++-- remove possible @v references in the types of a data type.+cleanupArg :: String -> String+cleanupArg s+ = case idEvalType (SimpleType s) of+ SimpleType s' -> s'+{-# LINE 61 "../src-derived/GenerateCode.hs" #-}++{-# LINE 121 "GenerateCode.ag" #-}++appContext :: ContextMap -> NontermIdent -> Code.Type -> Code.Type+appContext mp nt tp+ = maybe tp (\ctx -> CtxApp (map (\(n,ns) -> (getName n, ns)) ctx) tp) $ Map.lookup nt mp+{-# LINE 68 "../src-derived/GenerateCode.hs" #-}++{-# LINE 240 "GenerateCode.ag" #-}++mkDecl True lhs rhs _ _ = Bind lhs rhs+mkDecl False lhs rhs s1 s2 = Decl lhs rhs s1 s2++unwrapSem :: Bool -> NontermIdent -> Expr -> Expr+unwrapSem False _ e = e+unwrapSem True nm e = Case e alts+ where alts = [CaseAlt left right]+ left = Fun (typeName nm 0) [SimpleExpr "x"]+ right = SimpleExpr "x"+{-# LINE 81 "../src-derived/GenerateCode.hs" #-}++{-# LINE 406 "GenerateCode.ag" #-}++substSelf nt tp = case tp of+ NT t tps | t == _SELF -> Haskell (getName nt ++ " " ++ unwords tps)+ _ -> tp+{-# LINE 88 "../src-derived/GenerateCode.hs" #-}++{-# LINE 529 "GenerateCode.ag" #-}++mkLambdaArg :: String -> Maybe Code.Type -> Expr+mkLambdaArg nm Nothing = SimpleExpr nm+mkLambdaArg nm (Just tp) = TypedExpr (SimpleExpr nm) tp++mkLambda :: Exprs -> Expr -> Expr+mkLambda [] e = e+mkLambda xs e = Lambda xs e++mkSemFun :: Identifier -> Int -> Exprs -> Expr -> Expr+mkSemFun nt nr xs e = SemFun (typeName nt nr) xs e++typeAppStrs nm params = TypeApp (SimpleType nm) (map SimpleType params)++isHigherOrder :: Maybe (Maybe Type) -> Bool+isHigherOrder (Just Nothing) = True+isHigherOrder _ = False++pickOrigType :: (Identifier, Type, Maybe (Maybe Type)) -> (Identifier, Type, Maybe (Maybe Type))+pickOrigType (nm, tp, virt@(Just (Just x))) = (nm, x, virt)+pickOrigType x = x+{-# LINE 112 "../src-derived/GenerateCode.hs" #-}++{-# LINE 625 "GenerateCode.ag" #-}++mkPartitionedFunction :: String -> Bool -> [Decl] -> [String] -> DeclBlocks -> ([Decl], Expr)+mkPartitionedFunction prefix optCase nextVisitDecls lastExprVars cpsTree+ = let inh = Inh_DeclBlocksRoot { prefix_Inh_DeclBlocksRoot = prefix+ , optCase_Inh_DeclBlocksRoot = optCase+ , nextVisitDecls_Inh_DeclBlocksRoot = nextVisitDecls+ , lastExprVars_Inh_DeclBlocksRoot = lastExprVars+ }+ sem = sem_DeclBlocksRoot (DeclBlocksRoot cpsTree)+ syn = wrap_DeclBlocksRoot sem inh+ in (lambdas_Syn_DeclBlocksRoot syn, firstCall_Syn_DeclBlocksRoot syn)+{-# LINE 126 "../src-derived/GenerateCode.hs" #-}++{-# LINE 675 "GenerateCode.ag" #-}++freevars :: [String] -> [Decl] -> [String]+freevars additional decls+ = Set.toList (allused `Set.difference` alldefined)+ where+ allused = Set.unions (Set.fromList additional : map usedvars decls)+ alldefined = Set.unions (map definedvars decls)+ + usedvars (Decl _ _ _ uses) = uses+ usedvars _ = Set.empty+ + definedvars (Decl _ _ defs _) = defs+ definedvars _ = Set.empty++mkBlockLambda :: Bool -> String -> [String] -> [Decl] -> Expr -> Decl+mkBlockLambda optCase name args decls expr+ = Decl lhs rhs Set.empty Set.empty+ where+ lhs = Fun name (map SimpleExpr args)+ rhs = mkLet optCase decls expr+{-# LINE 149 "../src-derived/GenerateCode.hs" #-}++{-# LINE 753 "GenerateCode.ag" #-}++typeToCodeType :: Maybe NontermIdent -> [String] -> Type -> Code.Type+typeToCodeType mbNt params tp+ = case tp of+ NT nt tps | nt == _SELF -> NontermType (maybe "Unknown" getName mbNt) params+ | otherwise -> NontermType (getName nt) tps+ Haskell t -> SimpleType t++evalType :: (String -> String) -> Code.Type -> Code.Type+evalType replf t+ = chase t+ where+ chase t+ = case t of+ Arr l r -> Arr (chase l) (chase r)+ TypeApp f as -> TypeApp (chase f) (map chase as)+ TupleType tps -> TupleType (map chase tps)+ UnboxedTupleType tps -> UnboxedTupleType (map chase tps)+ Code.List tp -> Code.List (chase tp)+ SimpleType txt -> let tks = lexTokens (initPos txt) txt+ tks' = map replaceTok tks+ txt' = unlines . showTokens . tokensToStrings $ tks'+ in SimpleType txt'+ TMaybe m -> TMaybe (chase m)+ TEither l r -> TEither (chase l) (chase r)+ TMap k v -> TMap (chase k) (chase v)+ TIntMap v -> TIntMap (chase v)+ _ -> t++ replaceTok t+ = case t of+ AGLocal v p _ -> HsToken (replf $ getName v) p+ _ -> t++idEvalType :: Code.Type -> Code.Type+idEvalType = evalType id+{-# LINE 188 "../src-derived/GenerateCode.hs" #-}++{-# LINE 878 "GenerateCode.ag" #-}++-- for a virtual child that already existed as a child, returns +isFirstOrder :: Maybe (Maybe Type) -> Type -> Maybe Type+isFirstOrder Nothing tp = Just tp+isFirstOrder (Just x) _ = x+{-# LINE 196 "../src-derived/GenerateCode.hs" #-}++{-# LINE 898 "GenerateCode.ag" #-}++makeLocalComment :: Int -> String -> Identifier -> Maybe Type -> String+makeLocalComment width what name tp = let x = getName name+ y = maybe "_" (\t -> case t of (NT nt tps) -> getName nt ++ " " ++ unwords tps; Haskell t -> '{':t++"}") tp+ in ( what ++ " " ++ x ++ replicate ((width - length x) `max` 0) ' ' ++ " : " ++ y )++{-# LINE 205 "../src-derived/GenerateCode.hs" #-}++{-# LINE 929 "GenerateCode.ag" #-}++-- Lets or nested Cases?+-- or even a do-expression?++data DeclsType = DeclsLet | DeclsCase | DeclsDo++mkDecls :: DeclsType -> Decls -> Expr -> Expr+mkDecls DeclsLet = mkLet False+mkDecls DeclsCase = mkLet True+mkDecls DeclsDo = \decls -> Do (map toBind decls)+ where toBind (Decl lhs rhs _ _) = BindLet lhs rhs+ toBind d = d++mkLet :: Bool -> Decls -> Expr -> Expr+mkLet False decls body = Let decls body+mkLet True decls body = foldr oneCase body decls++oneCase :: Decl -> Expr -> Expr+oneCase (Decl left rhs _ _) exp = Case rhs [CaseAlt left exp]+oneCase (Resume _ nt left rhs) exp = ResumeExpr nt rhs left exp+oneCase _ exp = exp++-- Gives the name of the visit function+funname field 0 = show field ++ "_"+funname field nr = show field ++ "_" ++ show nr++-- Gives the name of a semantic function+seqSemname :: String -> NontermIdent -> ConstructorIdent -> Int -> String+seqSemname pre nt con 0 = semname pre nt con+seqSemname pre nt con nr = semname pre nt con ++ "_" ++ show nr++-- Gives the name of a type+typeName :: NontermIdent -> Int -> String+typeName nt 0 = "T_" ++ show nt+typeName nt n = "T_" ++ show nt ++ "_" ++ show n++ntOfVisit :: NontermIdent -> Int -> NontermIdent+ntOfVisit nt 0 = nt+ntOfVisit nt n = Ident (show nt ++ "_" ++ show n) (getPos nt)++-- Gives the name of a visit function+visitname :: String -> NontermIdent -> Int -> String+visitname pre nt n = pre ++ getName nt ++ "_" ++ show n+{-# LINE 251 "../src-derived/GenerateCode.hs" #-}+-- CGrammar ----------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ errors : Seq Error+ output : Program+ alternatives:+ alternative CGrammar:+ child typeSyns : {TypeSyns}+ child derivings : {Derivings}+ child wrappers : {Set NontermIdent}+ child nonts : CNonterminals + child pragmas : {PragmaMap}+ child paramMap : {ParamMap}+ child contextMap : {ContextMap}+ child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))}+ child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))}+ child multivisit : {Bool}+ visit 0:+ local options : _+ local aroundMap : _+ local mergeMap : _+ local unfoldSemDom : _+-}+-- cata+sem_CGrammar :: CGrammar ->+ T_CGrammar +sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) =+ (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit )+-- semantic domain+newtype T_CGrammar = T_CGrammar (Options ->+ ( (Seq Error),Program))+data Inh_CGrammar = Inh_CGrammar {options_Inh_CGrammar :: !(Options)}+data Syn_CGrammar = Syn_CGrammar {errors_Syn_CGrammar :: !((Seq Error)),output_Syn_CGrammar :: !(Program)}+wrap_CGrammar :: T_CGrammar ->+ Inh_CGrammar ->+ Syn_CGrammar +wrap_CGrammar (T_CGrammar sem ) (Inh_CGrammar _lhsIoptions ) =+ (let ( _lhsOerrors,_lhsOoutput) = sem _lhsIoptions + in (Syn_CGrammar _lhsOerrors _lhsOoutput ))+sem_CGrammar_CGrammar :: TypeSyns ->+ Derivings ->+ (Set NontermIdent) ->+ T_CNonterminals ->+ PragmaMap ->+ ParamMap ->+ ContextMap ->+ (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->+ Bool ->+ T_CGrammar +sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ mergeMap_ multivisit_ =+ (T_CGrammar (\ _lhsIoptions ->+ (let _nontsOo_sig :: Bool+ _nontsOo_cata :: Bool+ _nontsOo_sem :: Bool+ _nontsOo_newtypes :: Bool+ _nontsOo_unbox :: Bool+ _nontsOo_case :: Bool+ _nontsOo_pretty :: Bool+ _nontsOo_rename :: Bool+ _nontsOo_strictwrap :: Bool+ _nontsOo_splitsems :: Bool+ _nontsOo_data :: (Maybe Bool)+ _nontsOprefix :: String+ _nontsOo_traces :: Bool+ _nontsOo_costcentre :: Bool+ _nontsOo_linePragmas :: Bool+ _nontsOo_monadic :: Bool+ _nontsOallPragmas :: PragmaMap+ _nontsOparamMap :: ParamMap+ _nontsOcontextMap :: ContextMap+ _nontsOallNts :: (Set NontermIdent)+ _nontsOwith_sig :: Bool+ _lhsOerrors :: (Seq Error)+ _lhsOoutput :: Program+ _nontsOtypeSyns :: TypeSyns+ _nontsOderivings :: Derivings+ _nontsOwrappers :: (Set NontermIdent)+ _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))+ _nontsOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))+ _nontsOoptions :: Options+ _nontsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _nontsIchunks :: Chunks+ _nontsIgathNts :: (Set NontermIdent)+ _nontsIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_sig =+ ({-# LINE 53 "GenerateCode.ag" #-}+ typeSigs _lhsIoptions+ {-# LINE 344 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_cata =+ ({-# LINE 54 "GenerateCode.ag" #-}+ folds _lhsIoptions+ {-# LINE 350 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_sem =+ ({-# LINE 55 "GenerateCode.ag" #-}+ semfuns _lhsIoptions+ {-# LINE 356 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_newtypes =+ ({-# LINE 56 "GenerateCode.ag" #-}+ newtypes _lhsIoptions+ {-# LINE 362 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_unbox =+ ({-# LINE 57 "GenerateCode.ag" #-}+ unbox _lhsIoptions+ {-# LINE 368 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_case =+ ({-# LINE 58 "GenerateCode.ag" #-}+ cases _lhsIoptions+ {-# LINE 374 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_pretty =+ ({-# LINE 59 "GenerateCode.ag" #-}+ attrInfo _lhsIoptions+ {-# LINE 380 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_rename =+ ({-# LINE 60 "GenerateCode.ag" #-}+ rename _lhsIoptions+ {-# LINE 386 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_strictwrap =+ ({-# LINE 61 "GenerateCode.ag" #-}+ strictWrap _lhsIoptions+ {-# LINE 392 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_splitsems =+ ({-# LINE 62 "GenerateCode.ag" #-}+ splitSems _lhsIoptions+ {-# LINE 398 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_data =+ ({-# LINE 63 "GenerateCode.ag" #-}+ if dataTypes _lhsIoptions then Just (strictData _lhsIoptions) else Nothing+ {-# LINE 404 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOprefix =+ ({-# LINE 64 "GenerateCode.ag" #-}+ prefix _lhsIoptions+ {-# LINE 410 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_traces =+ ({-# LINE 65 "GenerateCode.ag" #-}+ genTraces _lhsIoptions+ {-# LINE 416 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_costcentre =+ ({-# LINE 66 "GenerateCode.ag" #-}+ genCostCentres _lhsIoptions+ {-# LINE 422 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_linePragmas =+ ({-# LINE 67 "GenerateCode.ag" #-}+ genLinePragmas _lhsIoptions+ {-# LINE 428 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 53, column 17)+ _nontsOo_monadic =+ ({-# LINE 68 "GenerateCode.ag" #-}+ monadic _lhsIoptions+ {-# LINE 434 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 71, column 3)+ _options =+ ({-# LINE 71 "GenerateCode.ag" #-}+ _lhsIoptions { breadthFirst = breadthFirst _lhsIoptions && visit _lhsIoptions && cases _lhsIoptions && multivisit_ }+ {-# LINE 440 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 76, column 15)+ _nontsOallPragmas =+ ({-# LINE 76 "GenerateCode.ag" #-}+ pragmas_+ {-# LINE 446 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 98, column 14)+ _nontsOparamMap =+ ({-# LINE 98 "GenerateCode.ag" #-}+ paramMap_+ {-# LINE 452 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 119, column 7)+ _nontsOcontextMap =+ ({-# LINE 119 "GenerateCode.ag" #-}+ contextMap_+ {-# LINE 458 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 131, column 7)+ _nontsOallNts =+ ({-# LINE 131 "GenerateCode.ag" #-}+ _nontsIgathNts+ {-# LINE 464 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 574, column 34)+ _aroundMap =+ ({-# LINE 574 "GenerateCode.ag" #-}+ aroundsMap_+ {-# LINE 470 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 590, column 34)+ _mergeMap =+ ({-# LINE 590 "GenerateCode.ag" #-}+ mergeMap_+ {-# LINE 476 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 746, column 7)+ _unfoldSemDom =+ ({-# LINE 746 "GenerateCode.ag" #-}+ \nt nr repl ->+ let (params, tp) = Map.findWithDefault (error ("No such semantic domain: " ++ show nt)) (nt, nr) _nontsIsemDomUnfoldGath+ replMap = Map.fromList (zip params repl)+ replace k = Map.findWithDefault ('@':k) k replMap+ in evalType replace tp+ {-# LINE 486 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 847, column 14)+ _nontsOwith_sig =+ ({-# LINE 847 "GenerateCode.ag" #-}+ typeSigs _lhsIoptions+ {-# LINE 492 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 850, column 15)+ _lhsOerrors =+ ({-# LINE 850 "GenerateCode.ag" #-}+ Seq.empty+ {-# LINE 498 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 915, column 17)+ _lhsOoutput =+ ({-# LINE 915 "GenerateCode.ag" #-}+ Program _nontsIchunks multivisit_+ {-# LINE 504 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 980, column 14)+ _nontsOtypeSyns =+ ({-# LINE 980 "GenerateCode.ag" #-}+ typeSyns_+ {-# LINE 510 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 980, column 14)+ _nontsOderivings =+ ({-# LINE 981 "GenerateCode.ag" #-}+ derivings_+ {-# LINE 516 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 980, column 14)+ _nontsOwrappers =+ ({-# LINE 982 "GenerateCode.ag" #-}+ wrappers_+ {-# LINE 522 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _nontsOaroundMap =+ ({-# LINE 567 "GenerateCode.ag" #-}+ _aroundMap+ {-# LINE 528 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _nontsOmergeMap =+ ({-# LINE 583 "GenerateCode.ag" #-}+ _mergeMap+ {-# LINE 534 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _nontsOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _options+ {-# LINE 540 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _nontsOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _unfoldSemDom+ {-# LINE 546 "GenerateCode.hs" #-}+ )+ ( _nontsIchunks,_nontsIgathNts,_nontsIsemDomUnfoldGath) =+ nonts_ _nontsOallNts _nontsOallPragmas _nontsOaroundMap _nontsOcontextMap _nontsOderivings _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_costcentre _nontsOo_data _nontsOo_linePragmas _nontsOo_monadic _nontsOo_newtypes _nontsOo_pretty _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_splitsems _nontsOo_strictwrap _nontsOo_traces _nontsOo_unbox _nontsOoptions _nontsOparamMap _nontsOprefix _nontsOtypeSyns _nontsOunfoldSemDom _nontsOwith_sig _nontsOwrappers + in ( _lhsOerrors,_lhsOoutput))) )+-- CInterface --------------------------------------------------+{-+ visit 0:+ inherited attributes:+ inh : Attributes+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ synthesized attributes:+ comments : [String]+ semDom : [Decl]+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ wrapDecls : Decls+ alternatives:+ alternative CInterface:+ child seg : CSegments +-}+-- cata+sem_CInterface :: CInterface ->+ T_CInterface +sem_CInterface (CInterface _seg ) =+ (sem_CInterface_CInterface (sem_CSegments _seg ) )+-- semantic domain+newtype T_CInterface = T_CInterface (Attributes ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ Attributes ->+ ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))+data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !((Maybe Bool)),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),options_Inh_CInterface :: !(Options),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)}+data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !(([String])),semDom_Syn_CInterface :: !(([Decl])),semDomUnfoldGath_Syn_CInterface :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CInterface :: !(Decls)}+wrap_CInterface :: T_CInterface ->+ Inh_CInterface ->+ Syn_CInterface +wrap_CInterface (T_CInterface sem ) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =+ (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn + in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))+sem_CInterface_CInterface :: T_CSegments ->+ T_CInterface +sem_CInterface_CInterface (T_CSegments seg_ ) =+ (T_CInterface (\ _lhsIinh+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn ->+ (let _segOnr :: Int+ _lhsOsemDom :: ([Decl])+ _lhsOcomments :: ([String])+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _lhsOwrapDecls :: Decls+ _segOinh :: Attributes+ _segOnt :: NontermIdent+ _segOo_case :: Bool+ _segOo_cata :: Bool+ _segOo_costcentre :: Bool+ _segOo_data :: (Maybe Bool)+ _segOo_linePragmas :: Bool+ _segOo_monadic :: Bool+ _segOo_newtypes :: Bool+ _segOo_pretty :: Bool+ _segOo_rename :: Bool+ _segOo_sem :: Bool+ _segOo_sig :: Bool+ _segOo_splitsems :: Bool+ _segOo_strictwrap :: Bool+ _segOo_traces :: Bool+ _segOo_unbox :: Bool+ _segOoptions :: Options+ _segOparamMap :: ParamMap+ _segOprefix :: String+ _segOsyn :: Attributes+ _segIcomments :: ([String])+ _segIisNil :: Bool+ _segIsemDom :: ([Decl])+ _segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _segIwrapDecls :: Decls+ -- "GenerateCode.ag"(line 277, column 17)+ _segOnr =+ ({-# LINE 277 "GenerateCode.ag" #-}+ 0+ {-# LINE 680 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 704, column 18)+ _lhsOsemDom =+ ({-# LINE 704 "GenerateCode.ag" #-}+ Comment "semantic domain" : _segIsemDom+ {-# LINE 686 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ _segIcomments+ {-# LINE 692 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 736, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 736 "GenerateCode.ag" #-}+ _segIsemDomUnfoldGath+ {-# LINE 698 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 822, column 52)+ _lhsOwrapDecls =+ ({-# LINE 822 "GenerateCode.ag" #-}+ _segIwrapDecls+ {-# LINE 704 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 710 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 716 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 722 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 728 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 734 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 740 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 746 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 752 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 758 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 764 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 770 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 776 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 782 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 788 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 794 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 800 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 806 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 812 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 818 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 824 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _segOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 830 "GenerateCode.hs" #-}+ )+ ( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) =+ seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOoptions _segOparamMap _segOprefix _segOsyn + in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )+-- CNonterminal ------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))+ contextMap : ContextMap+ derivings : Derivings+ mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ typeSyns : TypeSyns+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ wrappers : Set NontermIdent+ synthesized attributes:+ chunks : Chunks+ gathNts : Set NontermIdent+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ alternatives:+ alternative CNonterminal:+ child nt : {NontermIdent}+ child params : {[Identifier]}+ child inh : {Attributes}+ child syn : {Attributes}+ child prods : CProductions + child inter : CInterface + visit 0:+ local _tup1 : {(Attributes,Attributes,NontermIdent)}+ local _tup2 : {(Attributes,Attributes,NontermIdent)}+ local aroundMap : _+ local mergeMap : _+ local semWrapper : _+ local comment : _+ local dataDef : _+ local genCata : _+ local cataFun : _+-}+-- cata+sem_CNonterminal :: CNonterminal ->+ T_CNonterminal +sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter ) =+ (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods ) (sem_CInterface _inter ) )+-- semantic domain+newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) ->+ PragmaMap ->+ (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->+ ContextMap ->+ Derivings ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ TypeSyns ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ Bool ->+ (Set NontermIdent) ->+ ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))+data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !((Set NontermIdent)),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),mergeMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),options_Inh_CNonterminal :: !(Options),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !((Set NontermIdent))}+data Syn_CNonterminal = Syn_CNonterminal {chunks_Syn_CNonterminal :: !(Chunks),gathNts_Syn_CNonterminal :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminal :: !((Map (NontermIdent, Int) ([String], Code.Type)))}+wrap_CNonterminal :: T_CNonterminal ->+ Inh_CNonterminal ->+ Syn_CNonterminal +wrap_CNonterminal (T_CNonterminal sem ) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) =+ (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers + in (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath ))+sem_CNonterminal_CNonterminal :: NontermIdent ->+ ([Identifier]) ->+ Attributes ->+ Attributes ->+ T_CProductions ->+ T_CInterface ->+ T_CNonterminal +sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_ ) (T_CInterface inter_ ) =+ (T_CNonterminal (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIderivings+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsItypeSyns+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let __tup1 :: ((Attributes,Attributes,NontermIdent))+ _interOinh :: Attributes+ _interOsyn :: Attributes+ _interOnt :: NontermIdent+ __tup2 :: ((Attributes,Attributes,NontermIdent))+ _prodsOinh :: Attributes+ _prodsOsyn :: Attributes+ _prodsOnt :: NontermIdent+ _lhsOgathNts :: (Set NontermIdent)+ _lhsOchunks :: Chunks+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _prodsOallNts :: (Set NontermIdent)+ _prodsOallPragmas :: PragmaMap+ _prodsOaroundMap :: (Map ConstructorIdent (Set Identifier))+ _prodsOcontextMap :: ContextMap+ _prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ _prodsOo_case :: Bool+ _prodsOo_cata :: Bool+ _prodsOo_costcentre :: Bool+ _prodsOo_data :: (Maybe Bool)+ _prodsOo_linePragmas :: Bool+ _prodsOo_monadic :: Bool+ _prodsOo_newtypes :: Bool+ _prodsOo_pretty :: Bool+ _prodsOo_rename :: Bool+ _prodsOo_sem :: Bool+ _prodsOo_sig :: Bool+ _prodsOo_splitsems :: Bool+ _prodsOo_strictwrap :: Bool+ _prodsOo_traces :: Bool+ _prodsOo_unbox :: Bool+ _prodsOoptions :: Options+ _prodsOparamMap :: ParamMap+ _prodsOprefix :: String+ _prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _prodsOwith_sig :: Bool+ _interOo_case :: Bool+ _interOo_cata :: Bool+ _interOo_costcentre :: Bool+ _interOo_data :: (Maybe Bool)+ _interOo_linePragmas :: Bool+ _interOo_monadic :: Bool+ _interOo_newtypes :: Bool+ _interOo_pretty :: Bool+ _interOo_rename :: Bool+ _interOo_sem :: Bool+ _interOo_sig :: Bool+ _interOo_splitsems :: Bool+ _interOo_strictwrap :: Bool+ _interOo_traces :: Bool+ _interOo_unbox :: Bool+ _interOoptions :: Options+ _interOparamMap :: ParamMap+ _interOprefix :: String+ _prodsIcataAlts :: Decls+ _prodsIcomments :: ([String])+ _prodsIdataAlts :: DataAlts+ _prodsIdecls :: Decls+ _prodsIsemNames :: ([String])+ _interIcomments :: ([String])+ _interIsemDom :: ([Decl])+ _interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _interIwrapDecls :: Decls+ -- "GenerateCode.ag"(line 86, column 26)+ __tup1 =+ ({-# LINE 86 "GenerateCode.ag" #-}+ (inh_,syn_,nt_)+ {-# LINE 1036 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 86, column 26)+ (_interOinh,_,_) =+ ({-# LINE 86 "GenerateCode.ag" #-}+ __tup1+ {-# LINE 1042 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 86, column 26)+ (_,_interOsyn,_) =+ ({-# LINE 86 "GenerateCode.ag" #-}+ __tup1+ {-# LINE 1048 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 86, column 26)+ (_,_,_interOnt) =+ ({-# LINE 86 "GenerateCode.ag" #-}+ __tup1+ {-# LINE 1054 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 87, column 25)+ __tup2 =+ ({-# LINE 87 "GenerateCode.ag" #-}+ (inh_,syn_,nt_)+ {-# LINE 1060 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 87, column 25)+ (_prodsOinh,_,_) =+ ({-# LINE 87 "GenerateCode.ag" #-}+ __tup2+ {-# LINE 1066 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 87, column 25)+ (_,_prodsOsyn,_) =+ ({-# LINE 87 "GenerateCode.ag" #-}+ __tup2+ {-# LINE 1072 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 87, column 25)+ (_,_,_prodsOnt) =+ ({-# LINE 87 "GenerateCode.ag" #-}+ __tup2+ {-# LINE 1078 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 137, column 7)+ _lhsOgathNts =+ ({-# LINE 137 "GenerateCode.ag" #-}+ Set.singleton nt_+ {-# LINE 1084 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 575, column 34)+ _aroundMap =+ ({-# LINE 575 "GenerateCode.ag" #-}+ Map.findWithDefault Map.empty nt_ _lhsIaroundMap+ {-# LINE 1090 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 591, column 34)+ _mergeMap =+ ({-# LINE 591 "GenerateCode.ag" #-}+ Map.findWithDefault Map.empty nt_ _lhsImergeMap+ {-# LINE 1096 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 796, column 18)+ _semWrapper =+ ({-# LINE 796 "GenerateCode.ag" #-}+ let params' = map getName params_+ inhAttrs = Map.toList inh_+ synAttrs = Map.toList syn_+ inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ]+ synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ]+ var = "sem"+ wrapNT = "wrap" ++ "_" ++ getName nt_+ inhNT = "Inh" ++ "_" ++ getName nt_+ synNT = "Syn" ++ "_" ++ getName nt_+ varPat = if _lhsIo_newtypes+ then App (sdtype nt_) [SimpleExpr var]+ else SimpleExpr var+ evalTp | null params' = id+ | otherwise = idEvalType+ appParams nm = TypeApp (SimpleType nm) (map SimpleType params')+ typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT))+ mkstrict = Named _lhsIo_strictwrap+ mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' t | (f,t) <- attrs]] False []+ datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs]+ in datas ++ [ typeSig+ , Decl (Fun wrapNT [varPat, App inhNT inhVars])+ (Let _interIwrapDecls (App synNT synVars))+ Set.empty Set.empty+ ]+ {-# LINE 1125 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 857, column 18)+ _comment =+ ({-# LINE 857 "GenerateCode.ag" #-}+ Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) )+ {-# LINE 1131 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 918, column 19)+ _lhsOchunks =+ ({-# LINE 918 "GenerateCode.ag" #-}+ [ Chunk (getName nt_)+ (Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-'))+ (if _lhsIo_pretty then [_comment ] else [])+ (if isJust _lhsIo_data then [_dataDef ] else [])+ (if _lhsIo_cata && _genCata then _cataFun else [])+ (if _lhsIo_sig then _interIsemDom else [])+ (if nt_ `Set.member` _lhsIwrappers then _semWrapper else [])+ (if _lhsIo_sem then _prodsIdecls else [])+ (if _lhsIo_sem then _prodsIsemNames else [])+ ]+ {-# LINE 1146 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 985, column 18)+ _dataDef =+ ({-# LINE 985 "GenerateCode.ag" #-}+ let params' = map getName params_+ typeSyn tp = let theType =+ case tp of+ CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t+ CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)+ CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)+ CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t+ CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t+ CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t+ | (_,t) <- ts+ ]+ in Code.Type (getName nt_) params' (idEvalType theType)+ derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings)+ dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings+ in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns+ {-# LINE 1166 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 1017, column 18)+ _genCata =+ ({-# LINE 1017 "GenerateCode.ag" #-}+ not (nt_ `Set.member` nocatas _lhsIoptions)+ {-# LINE 1172 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 1018, column 18)+ _cataFun =+ ({-# LINE 1018 "GenerateCode.ag" #-}+ let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_))+ evalTp | null params_ = id+ | otherwise = idEvalType+ tSig = TSig (cataname _lhsIprefix nt_)+ (appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_))+ special typ = case typ of+ CommonTypes.List tp ->+ let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons"))+ nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" ))+ arg = SimpleExpr "list"+ rarg = case tp of+ NT t _ -> let t' = maybe t id (deforestedNt t)+ in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)")+ _ -> arg+ lhs = Fun (cataname _lhsIprefix nt_) [arg]+ rhs = (App "Prelude.foldr" [cons,nil,rarg])+ in [Decl lhs rhs Set.empty Set.empty]+ CommonTypes.Maybe tp ->+ let just = semname _lhsIprefix nt_ (identifier "Just")+ nothing = semname _lhsIprefix nt_ (identifier "Nothing" )+ arg = SimpleExpr "x"+ rarg = case tp of+ NT t _ -> let t' = maybe t id (deforestedNt t)+ in App (cataname _lhsIprefix t') [arg]+ _ -> arg+ lhs a = Fun (cataname _lhsIprefix nt_) [a]+ in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty+ ,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty+ ]+ CommonTypes.Either tp1 tp2 ->+ let left = semname _lhsIprefix nt_ (identifier "Left")+ right = semname _lhsIprefix nt_ (identifier "Right" )+ arg = SimpleExpr "x"+ rarg0 = case tp1 of+ NT t _ -> let t' = maybe t id (deforestedNt t)+ in App (cataname _lhsIprefix t') [arg]+ _ -> arg+ rarg1 = case tp2 of+ NT t _ -> let t' = maybe t id (deforestedNt t)+ in App (cataname _lhsIprefix t') [arg]+ _ -> arg+ lhs a = Fun (cataname _lhsIprefix nt_) [a]+ in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty+ ,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty+ ]+ CommonTypes.Map _ tp ->+ let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))+ nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))+ arg = SimpleExpr "m"+ rarg = case tp of+ NT t _ -> let t' = maybe t id (deforestedNt t)+ in App "Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg]+ _ -> arg+ lhs = Fun (cataname _lhsIprefix nt_) [arg]+ rhs = App "Map.foldWithKey" [entry,nil,rarg]+ in [Decl lhs rhs Set.empty Set.empty]+ CommonTypes.IntMap tp ->+ let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))+ nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))+ arg = SimpleExpr "m"+ rarg = case tp of+ NT t _ -> let t' = maybe t id (deforestedNt t)+ in App "IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg]+ _ -> arg+ lhs = Fun (cataname _lhsIprefix nt_) [arg]+ rhs = App "IntMap.foldWithKey" [entry,nil,rarg]+ in [Decl lhs rhs Set.empty Set.empty]+ CommonTypes.Tuple tps ->+ let con = semname _lhsIprefix nt_ (identifier "Tuple")+ tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps]+ rargs = map rarg tps'+ rarg (n, tp) = case tp of+ NT t _ -> let t' = maybe t id (deforestedNt t)+ in App (cataname _lhsIprefix t') [n]+ _ -> n+ lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')]+ rhs = App con rargs+ in [Decl lhs rhs Set.empty Set.empty]+ in Comment "cata" :+ (if _lhsIo_sig then [tSig] else []) +++ maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns)+ {-# LINE 1258 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 736, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 736 "GenerateCode.ag" #-}+ _interIsemDomUnfoldGath+ {-# LINE 1264 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 1270 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOallPragmas =+ ({-# LINE 73 "GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 1276 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _prodsOaroundMap =+ ({-# LINE 570 "GenerateCode.ag" #-}+ _aroundMap+ {-# LINE 1282 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOcontextMap =+ ({-# LINE 115 "GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 1288 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _prodsOmergeMap =+ ({-# LINE 586 "GenerateCode.ag" #-}+ _mergeMap+ {-# LINE 1294 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 1300 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 1306 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 1312 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 1318 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 1324 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 1330 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1336 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 1342 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 1348 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 1354 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 1360 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 1366 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 1372 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 1378 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 1384 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 1390 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 1396 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 1402 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 1408 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _prodsOwith_sig =+ ({-# LINE 844 "GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 1414 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 1420 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 1426 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 1432 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 1438 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 1444 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 1450 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1456 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 1462 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 1468 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 1474 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 1480 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 1486 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 1492 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 1498 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 1504 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 1510 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 1516 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _interOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 1522 "GenerateCode.hs" #-}+ )+ ( _prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIsemNames) =+ prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOinh _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOoptions _prodsOparamMap _prodsOprefix _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig + ( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) =+ inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOoptions _interOparamMap _interOprefix _interOsyn + in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )+-- CNonterminals -----------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))+ contextMap : ContextMap+ derivings : Derivings+ mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ typeSyns : TypeSyns+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ wrappers : Set NontermIdent+ synthesized attributes:+ chunks : Chunks+ gathNts : Set NontermIdent+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ alternatives:+ alternative Cons:+ child hd : CNonterminal + child tl : CNonterminals + alternative Nil:+-}+-- cata+sem_CNonterminals :: CNonterminals ->+ T_CNonterminals +sem_CNonterminals list =+ (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list) )+-- semantic domain+newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) ->+ PragmaMap ->+ (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->+ ContextMap ->+ Derivings ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ TypeSyns ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ Bool ->+ (Set NontermIdent) ->+ ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))+data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !((Set NontermIdent)),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),mergeMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),options_Inh_CNonterminals :: !(Options),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !((Set NontermIdent))}+data Syn_CNonterminals = Syn_CNonterminals {chunks_Syn_CNonterminals :: !(Chunks),gathNts_Syn_CNonterminals :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminals :: !((Map (NontermIdent, Int) ([String], Code.Type)))}+wrap_CNonterminals :: T_CNonterminals ->+ Inh_CNonterminals ->+ Syn_CNonterminals +wrap_CNonterminals (T_CNonterminals sem ) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) =+ (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers + in (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath ))+sem_CNonterminals_Cons :: T_CNonterminal ->+ T_CNonterminals ->+ T_CNonterminals +sem_CNonterminals_Cons (T_CNonterminal hd_ ) (T_CNonterminals tl_ ) =+ (T_CNonterminals (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIderivings+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsItypeSyns+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _lhsOchunks :: Chunks+ _lhsOgathNts :: (Set NontermIdent)+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _hdOallNts :: (Set NontermIdent)+ _hdOallPragmas :: PragmaMap+ _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))+ _hdOcontextMap :: ContextMap+ _hdOderivings :: Derivings+ _hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOtypeSyns :: TypeSyns+ _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _hdOwith_sig :: Bool+ _hdOwrappers :: (Set NontermIdent)+ _tlOallNts :: (Set NontermIdent)+ _tlOallPragmas :: PragmaMap+ _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))+ _tlOcontextMap :: ContextMap+ _tlOderivings :: Derivings+ _tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOtypeSyns :: TypeSyns+ _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _tlOwith_sig :: Bool+ _tlOwrappers :: (Set NontermIdent)+ _hdIchunks :: Chunks+ _hdIgathNts :: (Set NontermIdent)+ _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _tlIchunks :: Chunks+ _tlIgathNts :: (Set NontermIdent)+ _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ -- use rule "GenerateCode.ag"(line 910, column 49)+ _lhsOchunks =+ ({-# LINE 910 "GenerateCode.ag" #-}+ _hdIchunks ++ _tlIchunks+ {-# LINE 1715 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 133, column 47)+ _lhsOgathNts =+ ({-# LINE 133 "GenerateCode.ag" #-}+ _hdIgathNts `Set.union` _tlIgathNts+ {-# LINE 1721 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 736, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 736 "GenerateCode.ag" #-}+ _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath+ {-# LINE 1727 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 1733 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOallPragmas =+ ({-# LINE 73 "GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 1739 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 567 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 1745 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOcontextMap =+ ({-# LINE 115 "GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 1751 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOderivings =+ ({-# LINE 978 "GenerateCode.ag" #-}+ _lhsIderivings+ {-# LINE 1757 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 583 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 1763 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 1769 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 1775 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 1781 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 1787 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 1793 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 1799 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1805 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 1811 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 1817 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 1823 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 1829 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 1835 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 1841 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 1847 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 1853 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 1859 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 1865 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 1871 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOtypeSyns =+ ({-# LINE 978 "GenerateCode.ag" #-}+ _lhsItypeSyns+ {-# LINE 1877 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 1883 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOwith_sig =+ ({-# LINE 844 "GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 1889 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOwrappers =+ ({-# LINE 978 "GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 1895 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 1901 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOallPragmas =+ ({-# LINE 73 "GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 1907 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 567 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 1913 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOcontextMap =+ ({-# LINE 115 "GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 1919 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOderivings =+ ({-# LINE 978 "GenerateCode.ag" #-}+ _lhsIderivings+ {-# LINE 1925 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 583 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 1931 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 1937 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 1943 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 1949 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 1955 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 1961 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 1967 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1973 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 1979 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 1985 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 1991 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 1997 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 2003 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 2009 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 2015 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 2021 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 2027 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 2033 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 2039 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOtypeSyns =+ ({-# LINE 978 "GenerateCode.ag" #-}+ _lhsItypeSyns+ {-# LINE 2045 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 2051 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOwith_sig =+ ({-# LINE 844 "GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 2057 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOwrappers =+ ({-# LINE 978 "GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 2063 "GenerateCode.hs" #-}+ )+ ( _hdIchunks,_hdIgathNts,_hdIsemDomUnfoldGath) =+ hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers + ( _tlIchunks,_tlIgathNts,_tlIsemDomUnfoldGath) =+ tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers + in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )+sem_CNonterminals_Nil :: T_CNonterminals +sem_CNonterminals_Nil =+ (T_CNonterminals (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIderivings+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsItypeSyns+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _lhsOchunks :: Chunks+ _lhsOgathNts :: (Set NontermIdent)+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ -- use rule "GenerateCode.ag"(line 910, column 49)+ _lhsOchunks =+ ({-# LINE 910 "GenerateCode.ag" #-}+ []+ {-# LINE 2107 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 133, column 47)+ _lhsOgathNts =+ ({-# LINE 133 "GenerateCode.ag" #-}+ Set.empty+ {-# LINE 2113 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 736, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 736 "GenerateCode.ag" #-}+ Map.empty+ {-# LINE 2119 "GenerateCode.hs" #-}+ )+ in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )+-- CProduction -------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Map ConstructorIdent (Set Identifier)+ contextMap : ContextMap+ inh : Attributes+ mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ synthesized attributes:+ cataAlt : Decl+ comments : [String]+ dataAlt : DataAlt+ decls : Decls+ semNames : [String]+ alternatives:+ alternative CProduction:+ child con : {ConstructorIdent}+ child visits : CVisits + child children : {[(Identifier,Type,Maybe (Maybe Type))]}+ child terminals : {[Identifier]}+ visit 0:+ local paramInstMap : _+ local aroundMap : _+ local mergeMap : _+ local firstOrderChildren : _+ local params : _+-}+-- cata+sem_CProduction :: CProduction ->+ T_CProduction +sem_CProduction (CProduction _con _visits _children _terminals ) =+ (sem_CProduction_CProduction _con (sem_CVisits _visits ) _children _terminals )+-- semantic domain+newtype T_CProduction = T_CProduction ((Set NontermIdent) ->+ PragmaMap ->+ (Map ConstructorIdent (Set Identifier)) ->+ ContextMap ->+ Attributes ->+ (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ Attributes ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ Bool ->+ ( Decl,([String]),DataAlt,Decls,([String])))+data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !((Set NontermIdent)),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProduction :: !(ContextMap),inh_Inh_CProduction :: !(Attributes),mergeMap_Inh_CProduction :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !((Maybe Bool)),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),options_Inh_CProduction :: !(Options),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProduction :: !(Bool)}+data Syn_CProduction = Syn_CProduction {cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !(([String])),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),semNames_Syn_CProduction :: !(([String]))}+wrap_CProduction :: T_CProduction ->+ Inh_CProduction ->+ Syn_CProduction +wrap_CProduction (T_CProduction sem ) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) =+ (let ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig + in (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames ))+sem_CProduction_CProduction :: ConstructorIdent ->+ T_CVisits ->+ ([(Identifier,Type,Maybe (Maybe Type))]) ->+ ([Identifier]) ->+ T_CProduction +sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ =+ (T_CProduction (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIinh+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIunfoldSemDom+ _lhsIwith_sig ->+ (let _visitsOcon :: ConstructorIdent+ _visitsOterminals :: ([Identifier])+ _visitsOvisitedSet :: (Set Identifier)+ _visitsOnr :: Int+ _visitsOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])+ _visitsOinstVisitNrs :: (Map Identifier Int)+ _lhsOcomments :: ([String])+ _lhsOdataAlt :: DataAlt+ _lhsOcataAlt :: Decl+ _lhsOdecls :: Decls+ _lhsOsemNames :: ([String])+ _visitsOallNts :: (Set NontermIdent)+ _visitsOallPragmas :: PragmaMap+ _visitsOaroundMap :: (Set Identifier)+ _visitsOcontextMap :: ContextMap+ _visitsOinh :: Attributes+ _visitsOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _visitsOnt :: NontermIdent+ _visitsOo_case :: Bool+ _visitsOo_cata :: Bool+ _visitsOo_costcentre :: Bool+ _visitsOo_data :: (Maybe Bool)+ _visitsOo_linePragmas :: Bool+ _visitsOo_monadic :: Bool+ _visitsOo_newtypes :: Bool+ _visitsOo_pretty :: Bool+ _visitsOo_rename :: Bool+ _visitsOo_sem :: Bool+ _visitsOo_sig :: Bool+ _visitsOo_splitsems :: Bool+ _visitsOo_strictwrap :: Bool+ _visitsOo_traces :: Bool+ _visitsOo_unbox :: Bool+ _visitsOoptions :: Options+ _visitsOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _visitsOparamMap :: ParamMap+ _visitsOprefix :: String+ _visitsOsyn :: Attributes+ _visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _visitsOwith_sig :: Bool+ _visitsIcomments :: ([String])+ _visitsIdecls :: Decls+ _visitsIgatherInstVisitNrs :: (Map Identifier Int)+ _visitsIintra :: Exprs+ _visitsIintraVars :: (Set String)+ _visitsIisNil :: Bool+ _visitsIsemNames :: ([String])+ _visitsIvisitedSet :: (Set Identifier)+ -- "GenerateCode.ag"(line 92, column 19)+ _visitsOcon =+ ({-# LINE 92 "GenerateCode.ag" #-}+ con_+ {-# LINE 2302 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 93, column 20)+ _visitsOterminals =+ ({-# LINE 93 "GenerateCode.ag" #-}+ terminals_+ {-# LINE 2308 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 105, column 7)+ _paramInstMap =+ ({-# LINE 105 "GenerateCode.ag" #-}+ Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ]+ {-# LINE 2314 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 141, column 32)+ _visitsOvisitedSet =+ ({-# LINE 141 "GenerateCode.ag" #-}+ Set.empty+ {-# LINE 2320 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 273, column 18)+ _visitsOnr =+ ({-# LINE 273 "GenerateCode.ag" #-}+ 0+ {-# LINE 2326 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 414, column 18)+ _visitsOchildren =+ ({-# LINE 414 "GenerateCode.ag" #-}+ children_+ {-# LINE 2332 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 556, column 7)+ _visitsOinstVisitNrs =+ ({-# LINE 556 "GenerateCode.ag" #-}+ _visitsIgatherInstVisitNrs+ {-# LINE 2338 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 576, column 34)+ _aroundMap =+ ({-# LINE 576 "GenerateCode.ag" #-}+ Map.findWithDefault Set.empty con_ _lhsIaroundMap+ {-# LINE 2344 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 592, column 34)+ _mergeMap =+ ({-# LINE 592 "GenerateCode.ag" #-}+ Map.findWithDefault Map.empty con_ _lhsImergeMap+ {-# LINE 2350 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 872, column 18)+ _firstOrderChildren =+ ({-# LINE 872 "GenerateCode.ag" #-}+ [ (nm,fromJust mb,virt) | (nm,tp,virt) <- children_, let mb = isFirstOrder virt tp, isJust mb ]+ {-# LINE 2356 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 873, column 18)+ _lhsOcomments =+ ({-# LINE 873 "GenerateCode.ag" #-}+ ("alternative " ++ getName con_ ++ ":")+ : map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren+ ++ _visitsIcomments+ )+ {-# LINE 2365 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 1009, column 17)+ _params =+ ({-# LINE 1009 "GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap+ {-# LINE 2371 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 1010, column 17)+ _lhsOdataAlt =+ ({-# LINE 1010 "GenerateCode.ag" #-}+ DataAlt (conname _lhsIo_rename _lhsInt con_) (map (\(_,t,_) -> typeToCodeType (Just _lhsInt) _params t) _firstOrderChildren )+ {-# LINE 2377 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 1110, column 17)+ _lhsOcataAlt =+ ({-# LINE 1110 "GenerateCode.ag" #-}+ let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat]+ lhs_pat = App (conname _lhsIo_rename _lhsInt con_)+ (map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren )+ rhs = App (semname _lhsIprefix _lhsInt con_)+ (map argument _firstOrderChildren )+ argument (nm,NT tp _,_) = let tp' = maybe tp id (deforestedNt tp)+ in App (cataname _lhsIprefix tp')+ [SimpleExpr (locname nm)]+ argument (nm, _,_) = SimpleExpr (locname nm)+ in Decl lhs rhs Set.empty Set.empty+ {-# LINE 2392 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 911, column 44)+ _lhsOdecls =+ ({-# LINE 911 "GenerateCode.ag" #-}+ _visitsIdecls+ {-# LINE 2398 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 1126, column 61)+ _lhsOsemNames =+ ({-# LINE 1126 "GenerateCode.ag" #-}+ _visitsIsemNames+ {-# LINE 2404 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 2410 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOallPragmas =+ ({-# LINE 73 "GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 2416 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _visitsOaroundMap =+ ({-# LINE 572 "GenerateCode.ag" #-}+ _aroundMap+ {-# LINE 2422 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOcontextMap =+ ({-# LINE 115 "GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 2428 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 2434 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _visitsOmergeMap =+ ({-# LINE 588 "GenerateCode.ag" #-}+ _mergeMap+ {-# LINE 2440 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 2446 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 2452 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 2458 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 2464 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 2470 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 2476 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 2482 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 2488 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 2494 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 2500 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 2506 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 2512 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 2518 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 2524 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 2530 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 2536 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 2542 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _visitsOparamInstMap =+ ({-# LINE 101 "GenerateCode.ag" #-}+ _paramInstMap+ {-# LINE 2548 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 2554 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 2560 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 2566 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 2572 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _visitsOwith_sig =+ ({-# LINE 844 "GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 2578 "GenerateCode.hs" #-}+ )+ ( _visitsIcomments,_visitsIdecls,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames,_visitsIvisitedSet) =+ visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOinh _visitsOinstVisitNrs _visitsOmergeMap _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOoptions _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOvisitedSet _visitsOwith_sig + in ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames))) )+-- CProductions ------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Map ConstructorIdent (Set Identifier)+ contextMap : ContextMap+ inh : Attributes+ mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ synthesized attributes:+ cataAlts : Decls+ comments : [String]+ dataAlts : DataAlts+ decls : Decls+ semNames : [String]+ alternatives:+ alternative Cons:+ child hd : CProduction + child tl : CProductions + alternative Nil:+-}+-- cata+sem_CProductions :: CProductions ->+ T_CProductions +sem_CProductions list =+ (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list) )+-- semantic domain+newtype T_CProductions = T_CProductions ((Set NontermIdent) ->+ PragmaMap ->+ (Map ConstructorIdent (Set Identifier)) ->+ ContextMap ->+ Attributes ->+ (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ Attributes ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ Bool ->+ ( Decls,([String]),DataAlts,Decls,([String])))+data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !((Set NontermIdent)),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProductions :: !(ContextMap),inh_Inh_CProductions :: !(Attributes),mergeMap_Inh_CProductions :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !((Maybe Bool)),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),options_Inh_CProductions :: !(Options),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProductions :: !(Bool)}+data Syn_CProductions = Syn_CProductions {cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !(([String])),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),semNames_Syn_CProductions :: !(([String]))}+wrap_CProductions :: T_CProductions ->+ Inh_CProductions ->+ Syn_CProductions +wrap_CProductions (T_CProductions sem ) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) =+ (let ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig + in (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames ))+sem_CProductions_Cons :: T_CProduction ->+ T_CProductions ->+ T_CProductions +sem_CProductions_Cons (T_CProduction hd_ ) (T_CProductions tl_ ) =+ (T_CProductions (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIinh+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIunfoldSemDom+ _lhsIwith_sig ->+ (let _lhsOdataAlts :: DataAlts+ _lhsOcataAlts :: Decls+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOsemNames :: ([String])+ _hdOallNts :: (Set NontermIdent)+ _hdOallPragmas :: PragmaMap+ _hdOaroundMap :: (Map ConstructorIdent (Set Identifier))+ _hdOcontextMap :: ContextMap+ _hdOinh :: Attributes+ _hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ _hdOnt :: NontermIdent+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOsyn :: Attributes+ _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _hdOwith_sig :: Bool+ _tlOallNts :: (Set NontermIdent)+ _tlOallPragmas :: PragmaMap+ _tlOaroundMap :: (Map ConstructorIdent (Set Identifier))+ _tlOcontextMap :: ContextMap+ _tlOinh :: Attributes+ _tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ _tlOnt :: NontermIdent+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOsyn :: Attributes+ _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _tlOwith_sig :: Bool+ _hdIcataAlt :: Decl+ _hdIcomments :: ([String])+ _hdIdataAlt :: DataAlt+ _hdIdecls :: Decls+ _hdIsemNames :: ([String])+ _tlIcataAlts :: Decls+ _tlIcomments :: ([String])+ _tlIdataAlts :: DataAlts+ _tlIdecls :: Decls+ _tlIsemNames :: ([String])+ -- "GenerateCode.ag"(line 1005, column 17)+ _lhsOdataAlts =+ ({-# LINE 1005 "GenerateCode.ag" #-}+ _hdIdataAlt : _tlIdataAlts+ {-# LINE 2777 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 1106, column 10)+ _lhsOcataAlts =+ ({-# LINE 1106 "GenerateCode.ag" #-}+ _hdIcataAlt : _tlIcataAlts+ {-# LINE 2783 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ _hdIcomments ++ _tlIcomments+ {-# LINE 2789 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 911, column 44)+ _lhsOdecls =+ ({-# LINE 911 "GenerateCode.ag" #-}+ _hdIdecls ++ _tlIdecls+ {-# LINE 2795 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 1126, column 61)+ _lhsOsemNames =+ ({-# LINE 1126 "GenerateCode.ag" #-}+ _hdIsemNames ++ _tlIsemNames+ {-# LINE 2801 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 2807 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOallPragmas =+ ({-# LINE 73 "GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 2813 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 570 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 2819 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOcontextMap =+ ({-# LINE 115 "GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 2825 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 2831 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 586 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 2837 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 2843 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 2849 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 2855 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 2861 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 2867 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 2873 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 2879 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 2885 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 2891 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 2897 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 2903 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 2909 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 2915 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 2921 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 2927 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 2933 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 2939 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 2945 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 2951 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 2957 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 2963 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOwith_sig =+ ({-# LINE 844 "GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 2969 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 2975 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOallPragmas =+ ({-# LINE 73 "GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 2981 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 570 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 2987 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOcontextMap =+ ({-# LINE 115 "GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 2993 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 2999 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 586 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 3005 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 3011 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 3017 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 3023 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 3029 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 3035 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 3041 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 3047 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 3053 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 3059 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 3065 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 3071 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 3077 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 3083 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 3089 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 3095 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 3101 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 3107 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 3113 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 3119 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 3125 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 3131 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOwith_sig =+ ({-# LINE 844 "GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 3137 "GenerateCode.hs" #-}+ )+ ( _hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIsemNames) =+ hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOinh _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn _hdOunfoldSemDom _hdOwith_sig + ( _tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIsemNames) =+ tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOinh _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn _tlOunfoldSemDom _tlOwith_sig + in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) )+sem_CProductions_Nil :: T_CProductions +sem_CProductions_Nil =+ (T_CProductions (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIinh+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIunfoldSemDom+ _lhsIwith_sig ->+ (let _lhsOdataAlts :: DataAlts+ _lhsOcataAlts :: Decls+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOsemNames :: ([String])+ -- "GenerateCode.ag"(line 1006, column 17)+ _lhsOdataAlts =+ ({-# LINE 1006 "GenerateCode.ag" #-}+ []+ {-# LINE 3183 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 1107, column 10)+ _lhsOcataAlts =+ ({-# LINE 1107 "GenerateCode.ag" #-}+ []+ {-# LINE 3189 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ []+ {-# LINE 3195 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 911, column 44)+ _lhsOdecls =+ ({-# LINE 911 "GenerateCode.ag" #-}+ []+ {-# LINE 3201 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 1126, column 61)+ _lhsOsemNames =+ ({-# LINE 1126 "GenerateCode.ag" #-}+ []+ {-# LINE 3207 "GenerateCode.hs" #-}+ )+ in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) )+-- CRule -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ aroundMap : Set Identifier+ children : [(Identifier,Type,Maybe (Maybe Type))]+ con : ConstructorIdent+ inh : Attributes+ instVisitNrs : Map Identifier Int+ mergeMap : Map Identifier (Identifier, [Identifier])+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramInstMap : Map Identifier (NontermIdent, [String])+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ terminals : [Identifier]+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ what : String+ chained attributes:+ declsAbove : [Decl]+ visitedSet : Set Identifier+ synthesized attributes:+ allTpsFound : Bool+ bldBlocksFun : DeclBlocks -> DeclBlocks+ comments : [String]+ decls : Decls+ definedInsts : [Identifier]+ exprs : Exprs+ tSigs : [Decl]+ tps : [Type]+ usedVars : Set String+ alternatives:+ alternative CChildVisit:+ child name : {Identifier}+ child nt : {NontermIdent}+ child nr : {Int}+ child inh : {Attributes}+ child syn : {Attributes}+ child isLast : {Bool}+ visit 0:+ local visitedSet : _+ local costCentreDescr : _+ local addCostCentre : _+ local decls : _+ local isSuperfluousHigherOrderIntra : _+ local names : _+ local mkTp : _+ local definedTps : _+ local nextTp : _+ local orgParams : _+ local instParams : _+ local replParamMap : _+ local replace : _+ local evalTp : _+ alternative CRule:+ child name : {Identifier}+ child isIn : {Bool}+ child hasCode : {Bool}+ child nt : {NontermIdent}+ child con : {ConstructorIdent}+ child field : {Identifier}+ child childnt : {Maybe NontermIdent}+ child tp : {Maybe Type}+ child pattern : Pattern + child rhs : {[String]}+ child defines : {Map Int (Identifier,Identifier,Maybe Type)}+ child owrt : {Bool}+ child origin : {String}+ child uses : {Set (Identifier, Identifier)}+ child explicit : {Bool}+ child mbNamed : {Maybe Identifier}+ visit 0:+ local instTypes : _+ local originComment : _+ local instDecls : _+ local patDescr : _+ local traceDescr : _+ local addTrace : _+ local costCentreDescr : _+ local addCostCentre : _+ local addLinePragma : _+ local decls : _+ local definedInsts : _+ local rulename : _+ local mkTp : _+ local orgParams : _+ local evalTp : _+ local _tup3 : {([Type],Bool)}+-}+-- cata+sem_CRule :: CRule ->+ T_CRule +sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast ) =+ (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast )+sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed ) =+ (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern ) _rhs _defines _owrt _origin _uses _explicit _mbNamed )+-- semantic domain+newtype T_CRule = T_CRule ((Set NontermIdent) ->+ (Set Identifier) ->+ ([(Identifier,Type,Maybe (Maybe Type))]) ->+ ConstructorIdent ->+ ([Decl]) ->+ Attributes ->+ (Map Identifier Int) ->+ (Map Identifier (Identifier, [Identifier])) ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ (Map Identifier (NontermIdent, [String])) ->+ ParamMap ->+ String ->+ Attributes ->+ ([Identifier]) ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ (Set Identifier) ->+ String ->+ ( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))+data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !((Set NontermIdent)),aroundMap_Inh_CRule :: !((Set Identifier)),children_Inh_CRule :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !(([Decl])),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !((Map Identifier Int)),mergeMap_Inh_CRule :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !((Maybe Bool)),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),options_Inh_CRule :: !(Options),paramInstMap_Inh_CRule :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !(([Identifier])),unfoldSemDom_Inh_CRule :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CRule :: !((Set Identifier)),what_Inh_CRule :: !(String)}+data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !((DeclBlocks -> DeclBlocks)),comments_Syn_CRule :: !(([String])),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !(([Decl])),definedInsts_Syn_CRule :: !(([Identifier])),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !(([Decl])),tps_Syn_CRule :: !(([Type])),usedVars_Syn_CRule :: !((Set String)),visitedSet_Syn_CRule :: !((Set Identifier))}+wrap_CRule :: T_CRule ->+ Inh_CRule ->+ Syn_CRule +wrap_CRule (T_CRule sem ) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) =+ (let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat + in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet ))+sem_CRule_CChildVisit :: Identifier ->+ NontermIdent ->+ Int ->+ Attributes ->+ Attributes ->+ Bool ->+ T_CRule +sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ =+ (T_CRule (\ _lhsIallNts+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIdeclsAbove+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwhat ->+ (let _lhsOexprs :: Exprs+ _lhsOusedVars :: (Set String)+ _lhsOtSigs :: ([Decl])+ _lhsOtps :: ([Type])+ _lhsOdeclsAbove :: ([Decl])+ _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)+ _lhsOallTpsFound :: Bool+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOvisitedSet :: (Set Identifier)+ -- "GenerateCode.ag"(line 142, column 26)+ _visitedSet =+ ({-# LINE 142 "GenerateCode.ag" #-}+ Set.insert name_ _lhsIvisitedSet+ {-# LINE 3425 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 198, column 18)+ _costCentreDescr =+ ({-# LINE 198 "GenerateCode.ag" #-}+ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_+ {-# LINE 3431 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 199, column 18)+ _addCostCentre =+ ({-# LINE 199 "GenerateCode.ag" #-}+ \v -> if _lhsIo_costcentre+ then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v+ else v+ {-# LINE 3439 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 202, column 18)+ _decls =+ ({-# LINE 202 "GenerateCode.ag" #-}+ let lhsVars = map (attrname True name_) (Map.keys syn_)+ ++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)]+ rhsVars = map (attrname False name_) (Map.keys inh_)+ unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else ""+ tuple | isMerging = TupleLhs [locname name_ ++ "_comp"]+ | otherwise = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars+ rhs = _addCostCentre $ Code.InvokeExpr (typeName nt_ nr_) (SimpleExpr fun) (map SimpleExpr rhsVars)+ isVirtual _ [] = False+ isVirtual nm ((n,t,mb) : r)+ | nm == n = isJust mb+ | otherwise = isVirtual nm r+ isMerged = name_ `Map.member` _lhsImergeMap+ isMerging = name_ `elem` concatMap (\(_,cs) -> cs) (Map.elems _lhsImergeMap)+ merges = [ (c,cs) | (c,(_,cs)) <- Map.assocs _lhsImergeMap, all (`Set.member` _visitedSet ) cs, name_ `elem` (c:cs) ]+ baseNm = if nr_ == 0 && isVirtual name_ _lhsIchildren+ then Ident (getName name_ ++ "_inst") (getPos name_)+ else name_+ fun | nr_ == 0 && Set.member name_ _lhsIaroundMap+ = locname name_ ++ "_around " ++ funname baseNm 0+ | otherwise = funname baseNm nr_+ outDecls | isMerged = []+ | otherwise =+ if isMerging+ then [mkDecl _lhsIo_monadic tuple rhs Set.empty Set.empty]+ else [Resume _lhsIo_monadic (typeName nt_ nr_) tuple rhs]+ outMerged | null merges || nr_ /= 0 = []+ | otherwise = let (c,cs) = head merges+ tuple' = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars'+ lhsVars' = map (attrname True c) (Map.keys syn_)+ ++ if isLast_ then [] else [unwrap ++ funname c (nr_+1)]+ rhsVars = [ locname c ++ "_comp" | c <- cs ]+ fun = locname c ++ "_merge"+ rhs' = App fun (map SimpleExpr rhsVars)+ in [Resume _lhsIo_monadic (typeName nt_ nr_) tuple' rhs']+ in+ (outDecls ++ outMerged)+ {-# LINE 3480 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 320, column 7)+ _isSuperfluousHigherOrderIntra =+ ({-# LINE 320 "GenerateCode.ag" #-}+ _lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs+ {-# LINE 3486 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 334, column 8)+ _names =+ ({-# LINE 334 "GenerateCode.ag" #-}+ if _isSuperfluousHigherOrderIntra+ then []+ else [funname name_ (nr_+1)]+ {-# LINE 3494 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 338, column 8)+ _lhsOexprs =+ ({-# LINE 338 "GenerateCode.ag" #-}+ let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id+ addType expr | null _instParams = expr+ | otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams )+ in map (wrap . addType . SimpleExpr) _names+ {-# LINE 3503 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 350, column 7)+ _lhsOusedVars =+ ({-# LINE 350 "GenerateCode.ag" #-}+ Set.fromList _names+ {-# LINE 3509 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 389, column 19)+ _mkTp =+ ({-# LINE 389 "GenerateCode.ag" #-}+ _evalTp . typeToCodeType (Just nt_) _orgParams+ {-# LINE 3515 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 390, column 19)+ _definedTps =+ ({-# LINE 390 "GenerateCode.ag" #-}+ [ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ]+ {-# LINE 3521 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 391, column 19)+ _nextTp =+ ({-# LINE 391 "GenerateCode.ag" #-}+ typeName nt_ (nr_+1)+ {-# LINE 3527 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 392, column 19)+ _lhsOtSigs =+ ({-# LINE 392 "GenerateCode.ag" #-}+ (if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps+ {-# LINE 3533 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 394, column 19)+ _orgParams =+ ({-# LINE 394 "GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] nt_ _lhsIparamMap+ {-# LINE 3539 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 395, column 19)+ _instParams =+ ({-# LINE 395 "GenerateCode.ag" #-}+ snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap+ {-# LINE 3545 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 396, column 19)+ _replParamMap =+ ({-# LINE 396 "GenerateCode.ag" #-}+ Map.fromList (zip _orgParams _instParams )+ {-# LINE 3551 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 397, column 19)+ _replace =+ ({-# LINE 397 "GenerateCode.ag" #-}+ \k -> Map.findWithDefault k k _replParamMap+ {-# LINE 3557 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 398, column 19)+ _evalTp =+ ({-# LINE 398 "GenerateCode.ag" #-}+ if null _orgParams then id else evalType _replace+ {-# LINE 3563 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 421, column 19)+ _lhsOtps =+ ({-# LINE 421 "GenerateCode.ag" #-}+ if _isSuperfluousHigherOrderIntra+ then []+ else [NT (ntOfVisit nt_ (nr_+1)) _instParams ]+ {-# LINE 3571 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 610, column 7)+ _lhsOdeclsAbove =+ ({-# LINE 610 "GenerateCode.ag" #-}+ []+ {-# LINE 3577 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 623, column 7)+ _lhsObldBlocksFun =+ ({-# LINE 623 "GenerateCode.ag" #-}+ DeclBlock _lhsIdeclsAbove (head _decls )+ {-# LINE 3583 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 418, column 39)+ _lhsOallTpsFound =+ ({-# LINE 418 "GenerateCode.ag" #-}+ True+ {-# LINE 3589 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ []+ {-# LINE 3595 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 150, column 34)+ _lhsOdecls =+ ({-# LINE 150 "GenerateCode.ag" #-}+ _decls+ {-# LINE 3601 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ []+ {-# LINE 3607 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _lhsOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _visitedSet+ {-# LINE 3613 "GenerateCode.hs" #-}+ )+ in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )+sem_CRule_CRule :: Identifier ->+ Bool ->+ Bool ->+ NontermIdent ->+ ConstructorIdent ->+ Identifier ->+ (Maybe NontermIdent) ->+ (Maybe Type) ->+ T_Pattern ->+ ([String]) ->+ (Map Int (Identifier,Identifier,Maybe Type)) ->+ Bool ->+ String ->+ (Set (Identifier, Identifier)) ->+ Bool ->+ (Maybe Identifier) ->+ T_CRule +sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ =+ (T_CRule (\ _lhsIallNts+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIdeclsAbove+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwhat ->+ (let _lhsOexprs :: Exprs+ _lhsOusedVars :: (Set String)+ _lhsOtSigs :: ([Decl])+ __tup3 :: (([Type],Bool))+ _lhsOtps :: ([Type])+ _lhsOallTpsFound :: Bool+ _lhsOdeclsAbove :: ([Decl])+ _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOvisitedSet :: (Set Identifier)+ _patternIcopy :: Pattern + _patternIdefinedInsts :: ([Identifier])+ _patternIpatternAttributes :: ([(Identifier, Identifier)])+ -- "GenerateCode.ag"(line 152, column 12)+ _instTypes =+ ({-# LINE 152 "GenerateCode.ag" #-}+ [ (n, (t, mb)) | (n, NT t _, mb) <- _lhsIchildren ]+ {-# LINE 3687 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 153, column 12)+ _originComment =+ ({-# LINE 153 "GenerateCode.ag" #-}+ if _lhsIo_pretty+ then (Comment origin_:)+ else id+ {-# LINE 3695 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 156, column 12)+ _instDecls =+ ({-# LINE 156 "GenerateCode.ag" #-}+ [ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst)) []))+ ( let (nm,mb) = fromJust $ inst `lookup` _instTypes+ in unwrapSem _lhsIo_newtypes (maybe nm id (deforestedNt nm))+ $ case mb of+ Just (Just tp') -> App instLocFieldName [SimpleExpr $ fieldname inst]+ _ ->+ case nm `Set.member` _lhsIallNts of+ True -> App (cataname _lhsIprefix nm)+ [SimpleExpr instLocFieldName]+ False -> SimpleExpr instLocFieldName+ )+ (Set.singleton instSemFieldName)+ (Set.singleton instLocFieldName)+ | inst <- _definedInsts+ , let instLocFieldName = attrname True _INST inst+ instSemFieldName = attrname False _INST' inst+ ]+ {-# LINE 3717 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 173, column 12)+ _patDescr =+ ({-# LINE 173 "GenerateCode.ag" #-}+ if isIn_+ then "_"+ else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes)+ {-# LINE 3725 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 176, column 12)+ _traceDescr =+ ({-# LINE 176 "GenerateCode.ag" #-}+ (maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr+ {-# LINE 3731 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 178, column 12)+ _addTrace =+ ({-# LINE 178 "GenerateCode.ag" #-}+ \v -> if _lhsIo_traces+ then Trace _traceDescr v+ else v+ {-# LINE 3739 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 181, column 12)+ _costCentreDescr =+ ({-# LINE 181 "GenerateCode.ag" #-}+ show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr+ {-# LINE 3745 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 182, column 12)+ _addCostCentre =+ ({-# LINE 182 "GenerateCode.ag" #-}+ \v -> if _lhsIo_costcentre+ then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v+ else v+ {-# LINE 3753 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 185, column 12)+ _addLinePragma =+ ({-# LINE 185 "GenerateCode.ag" #-}+ \v -> let p = getPos name_+ hasPos = line p > 0 && column p >= 0 && not (null (file p))+ in if _lhsIo_linePragmas && hasPos+ then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p))+ $ LineExpr+ $ v+ else v+ {-# LINE 3765 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 192, column 12)+ _decls =+ ({-# LINE 192 "GenerateCode.ag" #-}+ if hasCode_+ then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_))+ (Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_])+ (Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_])+ : _instDecls )+ else _instDecls+ {-# LINE 3776 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 259, column 12)+ _definedInsts =+ ({-# LINE 259 "GenerateCode.ag" #-}+ if isIn_ then [] else _patternIdefinedInsts+ {-# LINE 3782 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 329, column 12)+ _rulename =+ ({-# LINE 329 "GenerateCode.ag" #-}+ if field_ == _LOC && name_ `elem` _lhsIterminals+ then funname name_ 0+ else attrname isIn_ field_ name_+ {-# LINE 3790 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 332, column 12)+ _lhsOexprs =+ ({-# LINE 332 "GenerateCode.ag" #-}+ [SimpleExpr _rulename ]+ {-# LINE 3796 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 348, column 7)+ _lhsOusedVars =+ ({-# LINE 348 "GenerateCode.ag" #-}+ Set.singleton _rulename+ {-# LINE 3802 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 358, column 19)+ _mkTp =+ ({-# LINE 358 "GenerateCode.ag" #-}+ typeToCodeType (Just _lhsInt) _orgParams+ {-# LINE 3808 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 359, column 19)+ _lhsOtSigs =+ ({-# LINE 359 "GenerateCode.ag" #-}+ [ TSig (attrname False field attr) tp'+ | (field,attr,tp) <- Map.elems defines_, isJust tp+ , let tp1 = _evalTp field $ _mkTp (fromJust tp)+ tp' = case findOrigType attr _lhsIchildren of+ Just tp' -> let tp'' = case tp' of+ NT n params -> NT (Ident ("T_" ++ show n) (getPos n)) params+ _ -> tp'+ tp2 = _evalTp field $ _mkTp tp''+ in Arr tp2 tp1+ Nothing -> tp1+ findOrigType nm [] = Nothing+ findOrigType nm ((n,_,mb) : r)+ | nm == n = case mb of+ Just (Just orig) -> Just orig+ _ -> Nothing+ | otherwise = findOrigType nm r+ ]+ {-# LINE 3830 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 377, column 19)+ _orgParams =+ ({-# LINE 377 "GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap+ {-# LINE 3836 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 378, column 19)+ _evalTp =+ ({-# LINE 378 "GenerateCode.ag" #-}+ \field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap+ (childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap+ replMap = Map.fromList (zip orgFldParams instParams)+ replace k = Map.findWithDefault ('@':k) k replMap+ in if null instParams+ then if null _orgParams+ then tp+ else idEvalType tp+ else evalType replace tp+ {-# LINE 3850 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 420, column 23)+ __tup3 =+ ({-# LINE 420 "GenerateCode.ag" #-}+ maybe ([],False) (\tp -> ([substSelf (fromJust childnt_) tp],True)) tp_+ {-# LINE 3856 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 420, column 23)+ (_lhsOtps,_) =+ ({-# LINE 420 "GenerateCode.ag" #-}+ __tup3+ {-# LINE 3862 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 420, column 23)+ (_,_lhsOallTpsFound) =+ ({-# LINE 420 "GenerateCode.ag" #-}+ __tup3+ {-# LINE 3868 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 608, column 7)+ _lhsOdeclsAbove =+ ({-# LINE 608 "GenerateCode.ag" #-}+ _lhsIdeclsAbove ++ _decls+ {-# LINE 3874 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 621, column 7)+ _lhsObldBlocksFun =+ ({-# LINE 621 "GenerateCode.ag" #-}+ id+ {-# LINE 3880 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 895, column 18)+ _lhsOcomments =+ ({-# LINE 895 "GenerateCode.ag" #-}+ [ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ]+ ++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ]+ {-# LINE 3887 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 150, column 34)+ _lhsOdecls =+ ({-# LINE 150 "GenerateCode.ag" #-}+ _decls+ {-# LINE 3893 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ _definedInsts+ {-# LINE 3899 "GenerateCode.hs" #-}+ )+ -- copy rule (chain)+ _lhsOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 3905 "GenerateCode.hs" #-}+ )+ ( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) =+ pattern_ + in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )+-- CSegment ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ inh : Attributes+ isLast : Bool+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ synthesized attributes:+ comments : [String]+ semDom : [Decl]+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ wrapDecls : Decls+ alternatives:+ alternative CSegment:+ child inh : {Attributes}+ child syn : {Attributes}+ visit 0:+ local altSemForm : _+ local tp : _+ local inhTps : _+ local inhTup : _+ local synTps : _+ local curTypeName : _+ local nextTypeName : _+ local indexName : _+ local dataIndex : _+ local indexExpr : _+ local indexStr : _+ local inhInstance : _+ local synInstance : _+ local continuation : _+ local params : _+-}+-- cata+sem_CSegment :: CSegment ->+ T_CSegment +sem_CSegment (CSegment _inh _syn ) =+ (sem_CSegment_CSegment _inh _syn )+-- semantic domain+newtype T_CSegment = T_CSegment (Attributes ->+ Bool ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ Attributes ->+ ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))+data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !((Maybe Bool)),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),options_Inh_CSegment :: !(Options),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)}+data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !(([String])),semDom_Syn_CSegment :: !(([Decl])),semDomUnfoldGath_Syn_CSegment :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegment :: !(Decls)}+wrap_CSegment :: T_CSegment ->+ Inh_CSegment ->+ Syn_CSegment +wrap_CSegment (T_CSegment sem ) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =+ (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn + in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))+sem_CSegment_CSegment :: Attributes ->+ Attributes ->+ T_CSegment +sem_CSegment_CSegment inh_ syn_ =+ (T_CSegment (\ _lhsIinh+ _lhsIisLast+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn ->+ (let _lhsOsemDom :: ([Decl])+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _lhsOwrapDecls :: Decls+ _lhsOcomments :: ([String])+ -- "GenerateCode.ag"(line 707, column 15)+ _altSemForm =+ ({-# LINE 707 "GenerateCode.ag" #-}+ breadthFirst _lhsIoptions+ {-# LINE 4036 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 708, column 15)+ _tp =+ ({-# LINE 708 "GenerateCode.ag" #-}+ if _altSemForm+ then TypeApp (SimpleType "Child") [SimpleType "EvalInfo", _indexExpr ]+ else foldr Arr _synTps _inhTps+ {-# LINE 4044 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 711, column 15)+ _inhTps =+ ({-# LINE 711 "GenerateCode.ag" #-}+ [typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_]+ {-# LINE 4050 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 712, column 15)+ _inhTup =+ ({-# LINE 712 "GenerateCode.ag" #-}+ mkTupleType _lhsIo_unbox (null _inhTps ) _inhTps+ {-# LINE 4056 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 713, column 15)+ _synTps =+ ({-# LINE 713 "GenerateCode.ag" #-}+ mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation )+ {-# LINE 4062 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 714, column 15)+ _curTypeName =+ ({-# LINE 714 "GenerateCode.ag" #-}+ typeName _lhsInt _lhsInr+ {-# LINE 4068 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 715, column 15)+ _nextTypeName =+ ({-# LINE 715 "GenerateCode.ag" #-}+ typeName _lhsInt (_lhsInr + 1)+ {-# LINE 4074 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 716, column 15)+ _indexName =+ ({-# LINE 716 "GenerateCode.ag" #-}+ "I_" ++ _curTypeName+ {-# LINE 4080 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 717, column 15)+ _dataIndex =+ ({-# LINE 717 "GenerateCode.ag" #-}+ Code.Data _indexName _params [DataAlt _indexName []] False []+ {-# LINE 4086 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 718, column 15)+ _indexExpr =+ ({-# LINE 718 "GenerateCode.ag" #-}+ TypeApp (SimpleType _indexName ) (map (SimpleType . ('@':)) _params )+ {-# LINE 4092 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 719, column 15)+ _indexStr =+ ({-# LINE 719 "GenerateCode.ag" #-}+ "(" ++ _indexName ++ concatMap (\p -> " " ++ p) _params ++ ")"+ {-# LINE 4098 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 720, column 15)+ _inhInstance =+ ({-# LINE 720 "GenerateCode.ag" #-}+ Code.Data "instance Inh" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Inh") [_inhTup ] ] False []+ {-# LINE 4104 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 721, column 15)+ _synInstance =+ ({-# LINE 721 "GenerateCode.ag" #-}+ Code.Data "instance Syn" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Syn") [_synTps ] ] False []+ {-# LINE 4110 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 722, column 15)+ _continuation =+ ({-# LINE 722 "GenerateCode.ag" #-}+ if _lhsIisLast+ then []+ else [TypeApp (SimpleType _nextTypeName ) (map (SimpleType . ('@':)) _params )]+ {-# LINE 4118 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 725, column 15)+ _params =+ ({-# LINE 725 "GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap+ {-# LINE 4124 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 726, column 15)+ _lhsOsemDom =+ ({-# LINE 726 "GenerateCode.ag" #-}+ let name = typeName _lhsInt _lhsInr+ evalTp | null _params = id+ | otherwise = idEvalType+ in ( if _lhsIo_newtypes+ then [ Code.NewType name _params name (evalTp _tp ) ]+ else [ Code.Type name _params (evalTp _tp ) ] )+ ++ ( if _altSemForm+ then [_dataIndex , _inhInstance , _synInstance ]+ else [] )+ {-# LINE 4138 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 740, column 7)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 740 "GenerateCode.ag" #-}+ Map.singleton (_lhsInt, _lhsInr) (_params , _tp )+ {-# LINE 4144 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 824, column 15)+ _lhsOwrapDecls =+ ({-# LINE 824 "GenerateCode.ag" #-}+ let lhsVars = map (lhsname False) (Map.keys syn_)+ ++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)]+ rhsVars = map (lhsname True) (Map.keys inh_)+ rhs = map SimpleExpr rhsVars+ unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else ""+ var = "sem"+ sem 0 = var+ sem n = var ++ "_" ++ show n+ ntt = typeName _lhsInt _lhsInr+ in [ EvalDecl ntt (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (InvokeExpr ntt (SimpleExpr $ sem _lhsInr) rhs) ]+ {-# LINE 4159 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 866, column 18)+ _lhsOcomments =+ ({-# LINE 866 "GenerateCode.ag" #-}+ let body = map ind (showsSegment (CSegment inh_ syn_))+ in if null body+ then []+ else ("visit " ++ show _lhsInr ++ ":") : body+ {-# LINE 4168 "GenerateCode.hs" #-}+ )+ in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )+-- CSegments ---------------------------------------------------+{-+ visit 0:+ inherited attributes:+ inh : Attributes+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ synthesized attributes:+ comments : [String]+ isNil : Bool+ semDom : [Decl]+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ wrapDecls : Decls+ alternatives:+ alternative Cons:+ child hd : CSegment + child tl : CSegments + alternative Nil:+-}+-- cata+sem_CSegments :: CSegments ->+ T_CSegments +sem_CSegments list =+ (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list) )+-- semantic domain+newtype T_CSegments = T_CSegments (Attributes ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ Attributes ->+ ( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))+data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !((Maybe Bool)),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),options_Inh_CSegments :: !(Options),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)}+data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !(([String])),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !(([Decl])),semDomUnfoldGath_Syn_CSegments :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegments :: !(Decls)}+wrap_CSegments :: T_CSegments ->+ Inh_CSegments ->+ Syn_CSegments +wrap_CSegments (T_CSegments sem ) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =+ (let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn + in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))+sem_CSegments_Cons :: T_CSegment ->+ T_CSegments ->+ T_CSegments +sem_CSegments_Cons (T_CSegment hd_ ) (T_CSegments tl_ ) =+ (T_CSegments (\ _lhsIinh+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn ->+ (let _tlOnr :: Int+ _lhsOisNil :: Bool+ _hdOisLast :: Bool+ _lhsOcomments :: ([String])+ _lhsOsemDom :: ([Decl])+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _lhsOwrapDecls :: Decls+ _hdOinh :: Attributes+ _hdOnr :: Int+ _hdOnt :: NontermIdent+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOsyn :: Attributes+ _tlOinh :: Attributes+ _tlOnt :: NontermIdent+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOsyn :: Attributes+ _hdIcomments :: ([String])+ _hdIsemDom :: ([Decl])+ _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _hdIwrapDecls :: Decls+ _tlIcomments :: ([String])+ _tlIisNil :: Bool+ _tlIsemDom :: ([Decl])+ _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _tlIwrapDecls :: Decls+ -- "GenerateCode.ag"(line 279, column 11)+ _tlOnr =+ ({-# LINE 279 "GenerateCode.ag" #-}+ _lhsInr + 1+ {-# LINE 4335 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 292, column 12)+ _lhsOisNil =+ ({-# LINE 292 "GenerateCode.ag" #-}+ False+ {-# LINE 4341 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 293, column 12)+ _hdOisLast =+ ({-# LINE 293 "GenerateCode.ag" #-}+ _tlIisNil+ {-# LINE 4347 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ _hdIcomments ++ _tlIcomments+ {-# LINE 4353 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 702, column 50)+ _lhsOsemDom =+ ({-# LINE 702 "GenerateCode.ag" #-}+ _hdIsemDom ++ _tlIsemDom+ {-# LINE 4359 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 736, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 736 "GenerateCode.ag" #-}+ _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath+ {-# LINE 4365 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 822, column 52)+ _lhsOwrapDecls =+ ({-# LINE 822 "GenerateCode.ag" #-}+ _hdIwrapDecls ++ _tlIwrapDecls+ {-# LINE 4371 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 4377 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOnr =+ ({-# LINE 271 "GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 4383 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 4389 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 4395 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 4401 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 4407 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 4413 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 4419 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 4425 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 4431 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 4437 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 4443 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 4449 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 4455 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 4461 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 4467 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 4473 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 4479 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 4485 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 4491 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 4497 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 4503 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 4509 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 4515 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 4521 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 4527 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 4533 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 4539 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 4545 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 4551 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 4557 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 4563 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 4569 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 4575 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 4581 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 4587 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 4593 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 4599 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 4605 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 4611 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 4617 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 4623 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 4629 "GenerateCode.hs" #-}+ )+ ( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) =+ hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn + ( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) =+ tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn + in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )+sem_CSegments_Nil :: T_CSegments +sem_CSegments_Nil =+ (T_CSegments (\ _lhsIinh+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn ->+ (let _lhsOisNil :: Bool+ _lhsOcomments :: ([String])+ _lhsOsemDom :: ([Decl])+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _lhsOwrapDecls :: Decls+ -- "GenerateCode.ag"(line 294, column 10)+ _lhsOisNil =+ ({-# LINE 294 "GenerateCode.ag" #-}+ True+ {-# LINE 4669 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ []+ {-# LINE 4675 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 702, column 50)+ _lhsOsemDom =+ ({-# LINE 702 "GenerateCode.ag" #-}+ []+ {-# LINE 4681 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 736, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 736 "GenerateCode.ag" #-}+ Map.empty+ {-# LINE 4687 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 822, column 52)+ _lhsOwrapDecls =+ ({-# LINE 822 "GenerateCode.ag" #-}+ []+ {-# LINE 4693 "GenerateCode.hs" #-}+ )+ in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )+-- CVisit ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Set Identifier+ children : [(Identifier,Type, Maybe (Maybe Type))]+ con : ConstructorIdent+ contextMap : ContextMap+ inh : Attributes+ instVisitNrs : Map Identifier Int+ isLast : Bool+ mergeMap : Map Identifier (Identifier, [Identifier])+ nextIntra : Exprs+ nextIntraVars : Set String+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramInstMap : Map Identifier (NontermIdent, [String])+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ terminals : [Identifier]+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ chained attributes:+ decls : Decls+ visitedSet : Set Identifier+ synthesized attributes:+ comments : [String]+ gatherInstVisitNrs : Map Identifier Int+ intra : Exprs+ intraVars : Set String+ semNames : [String]+ alternatives:+ alternative CVisit:+ child inh : {Attributes}+ child syn : {Attributes}+ child vss : Sequence + child intra : Sequence + child ordered : {Bool}+ visit 0:+ local _tup4 : _+ local higherOrderChildren : _+ local firstOrderChildren : _+ local firstOrderOrig : _+ local funcname : _+ local nextVisitName : _+ local nextVisitDecl : _+ local decls : _+ local lastExprVars : _+ local _tup5 : _+ local blockFunDecls : _+ local blockFirstFunCall : _+ local costCentreDescr : _+ local addCostCentre : _+ local params : _+ local semFun : _+ local tsig : _+ local semType : _+ local typeSigs : _+ local o_do : _+ local o_case : _+ local declsType : _+ local o_splitsems : _+-}+-- cata+sem_CVisit :: CVisit ->+ T_CVisit +sem_CVisit (CVisit _inh _syn _vss _intra _ordered ) =+ (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss ) (sem_Sequence _intra ) _ordered )+-- semantic domain+newtype T_CVisit = T_CVisit ((Set NontermIdent) ->+ PragmaMap ->+ (Set Identifier) ->+ ([(Identifier,Type, Maybe (Maybe Type))]) ->+ ConstructorIdent ->+ ContextMap ->+ Decls ->+ Attributes ->+ (Map Identifier Int) ->+ Bool ->+ (Map Identifier (Identifier, [Identifier])) ->+ Exprs ->+ (Set String) ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ (Map Identifier (NontermIdent, [String])) ->+ ParamMap ->+ String ->+ Attributes ->+ ([Identifier]) ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ (Set Identifier) ->+ Bool ->+ ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),([String]),(Set Identifier)))+data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !((Set NontermIdent)),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !((Set Identifier)),children_Inh_CVisit :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),decls_Inh_CVisit :: !(Decls),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !((Map Identifier Int)),isLast_Inh_CVisit :: !(Bool),mergeMap_Inh_CVisit :: !((Map Identifier (Identifier, [Identifier]))),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !((Set String)),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !((Maybe Bool)),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),options_Inh_CVisit :: !(Options),paramInstMap_Inh_CVisit :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !(([Identifier])),unfoldSemDom_Inh_CVisit :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisit :: !((Set Identifier)),with_sig_Inh_CVisit :: !(Bool)}+data Syn_CVisit = Syn_CVisit {comments_Syn_CVisit :: !(([String])),decls_Syn_CVisit :: !(Decls),gatherInstVisitNrs_Syn_CVisit :: !((Map Identifier Int)),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !((Set String)),semNames_Syn_CVisit :: !(([String])),visitedSet_Syn_CVisit :: !((Set Identifier))}+wrap_CVisit :: T_CVisit ->+ Inh_CVisit ->+ Syn_CVisit +wrap_CVisit (T_CVisit sem ) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) =+ (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig + in (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames _lhsOvisitedSet ))+sem_CVisit_CVisit :: Attributes ->+ Attributes ->+ T_Sequence ->+ T_Sequence ->+ Bool ->+ T_CVisit +sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_ ) (T_Sequence intra_ ) ordered_ =+ (T_CVisit (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIcontextMap+ _lhsIdecls+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsIisLast+ _lhsImergeMap+ _lhsInextIntra+ _lhsInextIntraVars+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwith_sig ->+ (let _lhsOintra :: Exprs+ _lhsOintraVars :: (Set String)+ _vssOlastExpr :: Expr+ _intraOlastExpr :: Expr+ _lhsOdecls :: Decls+ _lhsOgatherInstVisitNrs :: (Map Identifier Int)+ _vssOdeclsAbove :: ([Decl])+ _intraOdeclsAbove :: ([Decl])+ _lhsOcomments :: ([String])+ _vssOwhat :: String+ _intraOwhat :: String+ _lhsOsemNames :: ([String])+ _lhsOvisitedSet :: (Set Identifier)+ _vssOallNts :: (Set NontermIdent)+ _vssOaroundMap :: (Set Identifier)+ _vssOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])+ _vssOcon :: ConstructorIdent+ _vssOinh :: Attributes+ _vssOinstVisitNrs :: (Map Identifier Int)+ _vssOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _vssOnr :: Int+ _vssOnt :: NontermIdent+ _vssOo_case :: Bool+ _vssOo_cata :: Bool+ _vssOo_costcentre :: Bool+ _vssOo_data :: (Maybe Bool)+ _vssOo_linePragmas :: Bool+ _vssOo_monadic :: Bool+ _vssOo_newtypes :: Bool+ _vssOo_pretty :: Bool+ _vssOo_rename :: Bool+ _vssOo_sem :: Bool+ _vssOo_sig :: Bool+ _vssOo_splitsems :: Bool+ _vssOo_strictwrap :: Bool+ _vssOo_traces :: Bool+ _vssOo_unbox :: Bool+ _vssOoptions :: Options+ _vssOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _vssOparamMap :: ParamMap+ _vssOprefix :: String+ _vssOsyn :: Attributes+ _vssOterminals :: ([Identifier])+ _vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _vssOvisitedSet :: (Set Identifier)+ _intraOallNts :: (Set NontermIdent)+ _intraOaroundMap :: (Set Identifier)+ _intraOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])+ _intraOcon :: ConstructorIdent+ _intraOinh :: Attributes+ _intraOinstVisitNrs :: (Map Identifier Int)+ _intraOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _intraOnr :: Int+ _intraOnt :: NontermIdent+ _intraOo_case :: Bool+ _intraOo_cata :: Bool+ _intraOo_costcentre :: Bool+ _intraOo_data :: (Maybe Bool)+ _intraOo_linePragmas :: Bool+ _intraOo_monadic :: Bool+ _intraOo_newtypes :: Bool+ _intraOo_pretty :: Bool+ _intraOo_rename :: Bool+ _intraOo_sem :: Bool+ _intraOo_sig :: Bool+ _intraOo_splitsems :: Bool+ _intraOo_strictwrap :: Bool+ _intraOo_traces :: Bool+ _intraOo_unbox :: Bool+ _intraOoptions :: Options+ _intraOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _intraOparamMap :: ParamMap+ _intraOprefix :: String+ _intraOsyn :: Attributes+ _intraOterminals :: ([Identifier])+ _intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _intraOvisitedSet :: (Set Identifier)+ _vssIallTpsFound :: Bool+ _vssIblockDecls :: DeclBlocks + _vssIcomments :: ([String])+ _vssIdecls :: Decls+ _vssIdeclsAbove :: ([Decl])+ _vssIdefinedInsts :: ([Identifier])+ _vssIexprs :: Exprs+ _vssItSigs :: ([Decl])+ _vssItps :: ([Type])+ _vssIusedVars :: (Set String)+ _vssIvisitedSet :: (Set Identifier)+ _intraIallTpsFound :: Bool+ _intraIblockDecls :: DeclBlocks + _intraIcomments :: ([String])+ _intraIdecls :: Decls+ _intraIdeclsAbove :: ([Decl])+ _intraIdefinedInsts :: ([Identifier])+ _intraIexprs :: Exprs+ _intraItSigs :: ([Decl])+ _intraItps :: ([Type])+ _intraIusedVars :: (Set String)+ _intraIvisitedSet :: (Set Identifier)+ -- "GenerateCode.ag"(line 303, column 13)+ _lhsOintra =+ ({-# LINE 303 "GenerateCode.ag" #-}+ _intraIexprs+ {-# LINE 4981 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 304, column 13)+ _lhsOintraVars =+ ({-# LINE 304 "GenerateCode.ag" #-}+ _intraIusedVars+ {-# LINE 4987 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 443, column 13)+ __tup4 =+ ({-# LINE 443 "GenerateCode.ag" #-}+ partition (\(_,_,virt) -> isHigherOrder virt) _lhsIchildren+ {-# LINE 4993 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 443, column 13)+ (_higherOrderChildren,_) =+ ({-# LINE 443 "GenerateCode.ag" #-}+ __tup4+ {-# LINE 4999 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 443, column 13)+ (_,_firstOrderChildren) =+ ({-# LINE 443 "GenerateCode.ag" #-}+ __tup4+ {-# LINE 5005 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 444, column 13)+ _firstOrderOrig =+ ({-# LINE 444 "GenerateCode.ag" #-}+ map pickOrigType _firstOrderChildren+ {-# LINE 5011 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 445, column 13)+ _funcname =+ ({-# LINE 445 "GenerateCode.ag" #-}+ seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr+ {-# LINE 5017 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 446, column 13)+ _nextVisitName =+ ({-# LINE 446 "GenerateCode.ag" #-}+ if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)]+ {-# LINE 5023 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 447, column 13)+ _nextVisitDecl =+ ({-# LINE 447 "GenerateCode.ag" #-}+ let lhs = TupleLhs _nextVisitName+ rhs = Let _lhsIdecls (SimpleExpr fun)+ fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1)+ in if _lhsIisLast+ then []+ else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars]+ {-# LINE 5034 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 454, column 13)+ _decls =+ ({-# LINE 454 "GenerateCode.ag" #-}+ _typeSigs ++ _vssIdecls ++ _nextVisitDecl+ {-# LINE 5040 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 455, column 13)+ _vssOlastExpr =+ ({-# LINE 455 "GenerateCode.ag" #-}+ mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName+ {-# LINE 5046 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 456, column 13)+ _intraOlastExpr =+ ({-# LINE 456 "GenerateCode.ag" #-}+ error "lastExpr: not used here"+ {-# LINE 5052 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 457, column 13)+ _lastExprVars =+ ({-# LINE 457 "GenerateCode.ag" #-}+ map (lhsname False) (Map.keys syn_) ++ _nextVisitName+ {-# LINE 5058 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 458, column 13)+ __tup5 =+ ({-# LINE 458 "GenerateCode.ag" #-}+ mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls+ {-# LINE 5064 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 458, column 13)+ (_blockFunDecls,_) =+ ({-# LINE 458 "GenerateCode.ag" #-}+ __tup5+ {-# LINE 5070 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 458, column 13)+ (_,_blockFirstFunCall) =+ ({-# LINE 458 "GenerateCode.ag" #-}+ __tup5+ {-# LINE 5076 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 460, column 13)+ _costCentreDescr =+ ({-# LINE 460 "GenerateCode.ag" #-}+ "b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr+ {-# LINE 5082 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 461, column 13)+ _addCostCentre =+ ({-# LINE 461 "GenerateCode.ag" #-}+ \v -> if _lhsIo_costcentre+ then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v+ else v+ {-# LINE 5090 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 465, column 13)+ _params =+ ({-# LINE 465 "GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap+ {-# LINE 5096 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 466, column 13)+ _semFun =+ ({-# LINE 466 "GenerateCode.ag" #-}+ let lhs = Fun _funcname lhs_args+ lhs_args = if _lhsInr == 0 then map field _firstOrderOrig else []+ field (name,NT tp tps,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x]+ | otherwise = id+ addType expr | null tps = expr+ | otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps)+ in unwrap $ addType $ SimpleExpr $ funname name 0+ field (name,tp,_) = let expr = SimpleExpr (funname name 0)+ in if null _params+ then expr+ else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params tp)+ mbEvalTp | null _params = const Nothing+ | otherwise = Just . idEvalType+ rhs = wrap+ . mkSemFun _lhsInt _lhsInr [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params tp) | (nm,tp) <- Map.assocs inh_]+ $ _addCostCentre+ $ if ordered_ && _o_splitsems+ then _blockFirstFunCall+ else mkDecls _declsType _decls+ . ResultExpr (typeName _lhsInt _lhsInr)+ . mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_)+ $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName+ wrap = if _lhsIo_newtypes+ then \x -> App (typeName _lhsInt _lhsInr) [x]+ else id+ in Decl lhs rhs Set.empty Set.empty+ {-# LINE 5127 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 497, column 13)+ _tsig =+ ({-# LINE 497 "GenerateCode.ag" #-}+ TSig _funcname _semType+ {-# LINE 5133 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 498, column 13)+ _semType =+ ({-# LINE 498 "GenerateCode.ag" #-}+ let argType (NT tp tps) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r+ | tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps"+ argType (Haskell tp) r = SimpleType tp `Arr` r+ evalTp | null _params = id+ | otherwise = idEvalType+ in appContext _lhsIcontextMap _lhsInt $ evalTp $+ if _lhsInr == 0+ then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderOrig )+ else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) []+ {-# LINE 5147 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 509, column 13)+ _lhsOdecls =+ ({-# LINE 509 "GenerateCode.ag" #-}+ ( if _lhsIwith_sig+ then [_tsig, _semFun]+ else [_semFun]+ ) +++ ( if ordered_ && _o_splitsems+ then _blockFunDecls+ else []+ )+ {-# LINE 5160 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 517, column 13)+ _typeSigs =+ ({-# LINE 517 "GenerateCode.ag" #-}+ if _lhsIo_sig && not _o_case+ then _vssItSigs+ else []+ {-# LINE 5168 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 520, column 13)+ _o_do =+ ({-# LINE 520 "GenerateCode.ag" #-}+ ordered_ && _lhsIo_monadic+ {-# LINE 5174 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 521, column 13)+ _o_case =+ ({-# LINE 521 "GenerateCode.ag" #-}+ not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE)+ {-# LINE 5180 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 522, column 13)+ _declsType =+ ({-# LINE 522 "GenerateCode.ag" #-}+ if _o_do+ then DeclsDo+ else if _o_case+ then DeclsCase+ else DeclsLet+ {-# LINE 5190 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 527, column 13)+ _o_splitsems =+ ({-# LINE 527 "GenerateCode.ag" #-}+ ordered_ && _lhsIo_splitsems+ {-# LINE 5196 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 560, column 7)+ _lhsOgatherInstVisitNrs =+ ({-# LINE 560 "GenerateCode.ag" #-}+ Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts]+ {-# LINE 5202 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 603, column 7)+ _vssOdeclsAbove =+ ({-# LINE 603 "GenerateCode.ag" #-}+ []+ {-# LINE 5208 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 604, column 7)+ _intraOdeclsAbove =+ ({-# LINE 604 "GenerateCode.ag" #-}+ error "declsAbove: not used here"+ {-# LINE 5214 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 886, column 18)+ _lhsOcomments =+ ({-# LINE 886 "GenerateCode.ag" #-}+ let body = map ind (_vssIcomments ++ _intraIcomments)+ in if null body+ then []+ else ("visit " ++ show _lhsInr ++ ":") : body+ {-# LINE 5223 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 890, column 18)+ _vssOwhat =+ ({-# LINE 890 "GenerateCode.ag" #-}+ "local"+ {-# LINE 5229 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 891, column 18)+ _intraOwhat =+ ({-# LINE 891 "GenerateCode.ag" #-}+ "intra"+ {-# LINE 5235 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 1136, column 7)+ _lhsOsemNames =+ ({-# LINE 1136 "GenerateCode.ag" #-}+ [_funcname ]+ {-# LINE 5241 "GenerateCode.hs" #-}+ )+ -- copy rule (up)+ _lhsOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _intraIvisitedSet+ {-# LINE 5247 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 5253 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOaroundMap =+ ({-# LINE 572 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 5259 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOchildren =+ ({-# LINE 252 "GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 5265 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOcon =+ ({-# LINE 89 "GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 5271 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 5277 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOinstVisitNrs =+ ({-# LINE 552 "GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 5283 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOmergeMap =+ ({-# LINE 588 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 5289 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOnr =+ ({-# LINE 271 "GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 5295 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 5301 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _vssOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _o_case+ {-# LINE 5307 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 5313 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 5319 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 5325 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 5331 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 5337 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 5343 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 5349 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 5355 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 5361 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 5367 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _vssOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _o_splitsems+ {-# LINE 5373 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 5379 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 5385 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 5391 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 5397 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOparamInstMap =+ ({-# LINE 101 "GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 5403 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 5409 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 5415 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 5421 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOterminals =+ ({-# LINE 90 "GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 5427 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 5433 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _vssOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 5439 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 5445 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOaroundMap =+ ({-# LINE 572 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 5451 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOchildren =+ ({-# LINE 252 "GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 5457 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOcon =+ ({-# LINE 89 "GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 5463 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 5469 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOinstVisitNrs =+ ({-# LINE 552 "GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 5475 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOmergeMap =+ ({-# LINE 588 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 5481 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOnr =+ ({-# LINE 271 "GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 5487 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 5493 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _intraOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _o_case+ {-# LINE 5499 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 5505 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 5511 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 5517 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 5523 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 5529 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 5535 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 5541 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 5547 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 5553 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 5559 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _intraOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _o_splitsems+ {-# LINE 5565 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 5571 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 5577 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 5583 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 5589 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOparamInstMap =+ ({-# LINE 101 "GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 5595 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 5601 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 5607 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 5613 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOterminals =+ ({-# LINE 90 "GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 5619 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _intraOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 5625 "GenerateCode.hs" #-}+ )+ -- copy rule (chain)+ _intraOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _vssIvisitedSet+ {-# LINE 5631 "GenerateCode.hs" #-}+ )+ ( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars,_vssIvisitedSet) =+ vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOmergeMap _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOoptions _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOvisitedSet _vssOwhat + ( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars,_intraIvisitedSet) =+ intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOmergeMap _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOoptions _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOvisitedSet _intraOwhat + in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet))) )+-- CVisits -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Set Identifier+ children : [(Identifier,Type, Maybe (Maybe Type))]+ con : ConstructorIdent+ contextMap : ContextMap+ inh : Attributes+ instVisitNrs : Map Identifier Int+ mergeMap : Map Identifier (Identifier, [Identifier])+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramInstMap : Map Identifier (NontermIdent, [String])+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ terminals : [Identifier]+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ chained attribute:+ visitedSet : Set Identifier+ synthesized attributes:+ comments : [String]+ decls : Decls+ gatherInstVisitNrs : Map Identifier Int+ intra : Exprs+ intraVars : Set String+ isNil : Bool+ semNames : [String]+ alternatives:+ alternative Cons:+ child hd : CVisit + child tl : CVisits + alternative Nil:+-}+-- cata+sem_CVisits :: CVisits ->+ T_CVisits +sem_CVisits list =+ (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list) )+-- semantic domain+newtype T_CVisits = T_CVisits ((Set NontermIdent) ->+ PragmaMap ->+ (Set Identifier) ->+ ([(Identifier,Type, Maybe (Maybe Type))]) ->+ ConstructorIdent ->+ ContextMap ->+ Attributes ->+ (Map Identifier Int) ->+ (Map Identifier (Identifier, [Identifier])) ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ (Map Identifier (NontermIdent, [String])) ->+ ParamMap ->+ String ->+ Attributes ->+ ([Identifier]) ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ (Set Identifier) ->+ Bool ->+ ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),Bool,([String]),(Set Identifier)))+data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !((Set NontermIdent)),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !((Set Identifier)),children_Inh_CVisits :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !((Map Identifier Int)),mergeMap_Inh_CVisits :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !((Maybe Bool)),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),options_Inh_CVisits :: !(Options),paramInstMap_Inh_CVisits :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !(([Identifier])),unfoldSemDom_Inh_CVisits :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisits :: !((Set Identifier)),with_sig_Inh_CVisits :: !(Bool)}+data Syn_CVisits = Syn_CVisits {comments_Syn_CVisits :: !(([String])),decls_Syn_CVisits :: !(Decls),gatherInstVisitNrs_Syn_CVisits :: !((Map Identifier Int)),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !((Set String)),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !(([String])),visitedSet_Syn_CVisits :: !((Set Identifier))}+wrap_CVisits :: T_CVisits ->+ Inh_CVisits ->+ Syn_CVisits +wrap_CVisits (T_CVisits sem ) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) =+ (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig + in (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet ))+sem_CVisits_Cons :: T_CVisit ->+ T_CVisits ->+ T_CVisits +sem_CVisits_Cons (T_CVisit hd_ ) (T_CVisits tl_ ) =+ (T_CVisits (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIcontextMap+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwith_sig ->+ (let _tlOnr :: Int+ _lhsOisNil :: Bool+ _hdOisLast :: Bool+ _hdOnextIntra :: Exprs+ _hdOnextIntraVars :: (Set String)+ _lhsOintra :: Exprs+ _lhsOintraVars :: (Set String)+ _lhsOdecls :: Decls+ _hdOdecls :: Decls+ _lhsOcomments :: ([String])+ _lhsOgatherInstVisitNrs :: (Map Identifier Int)+ _lhsOsemNames :: ([String])+ _lhsOvisitedSet :: (Set Identifier)+ _hdOallNts :: (Set NontermIdent)+ _hdOallPragmas :: PragmaMap+ _hdOaroundMap :: (Set Identifier)+ _hdOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])+ _hdOcon :: ConstructorIdent+ _hdOcontextMap :: ContextMap+ _hdOinh :: Attributes+ _hdOinstVisitNrs :: (Map Identifier Int)+ _hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _hdOnr :: Int+ _hdOnt :: NontermIdent+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOsyn :: Attributes+ _hdOterminals :: ([Identifier])+ _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _hdOvisitedSet :: (Set Identifier)+ _hdOwith_sig :: Bool+ _tlOallNts :: (Set NontermIdent)+ _tlOallPragmas :: PragmaMap+ _tlOaroundMap :: (Set Identifier)+ _tlOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])+ _tlOcon :: ConstructorIdent+ _tlOcontextMap :: ContextMap+ _tlOinh :: Attributes+ _tlOinstVisitNrs :: (Map Identifier Int)+ _tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _tlOnt :: NontermIdent+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOsyn :: Attributes+ _tlOterminals :: ([Identifier])+ _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _tlOvisitedSet :: (Set Identifier)+ _tlOwith_sig :: Bool+ _hdIcomments :: ([String])+ _hdIdecls :: Decls+ _hdIgatherInstVisitNrs :: (Map Identifier Int)+ _hdIintra :: Exprs+ _hdIintraVars :: (Set String)+ _hdIsemNames :: ([String])+ _hdIvisitedSet :: (Set Identifier)+ _tlIcomments :: ([String])+ _tlIdecls :: Decls+ _tlIgatherInstVisitNrs :: (Map Identifier Int)+ _tlIintra :: Exprs+ _tlIintraVars :: (Set String)+ _tlIisNil :: Bool+ _tlIsemNames :: ([String])+ _tlIvisitedSet :: (Set Identifier)+ -- "GenerateCode.ag"(line 275, column 11)+ _tlOnr =+ ({-# LINE 275 "GenerateCode.ag" #-}+ _lhsInr + 1+ {-# LINE 5882 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 288, column 12)+ _lhsOisNil =+ ({-# LINE 288 "GenerateCode.ag" #-}+ False+ {-# LINE 5888 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 289, column 12)+ _hdOisLast =+ ({-# LINE 289 "GenerateCode.ag" #-}+ _tlIisNil+ {-# LINE 5894 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 306, column 12)+ _hdOnextIntra =+ ({-# LINE 306 "GenerateCode.ag" #-}+ _tlIintra+ {-# LINE 5900 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 307, column 12)+ _hdOnextIntraVars =+ ({-# LINE 307 "GenerateCode.ag" #-}+ _tlIintraVars+ {-# LINE 5906 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 308, column 12)+ _lhsOintra =+ ({-# LINE 308 "GenerateCode.ag" #-}+ _hdIintra+ {-# LINE 5912 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 309, column 12)+ _lhsOintraVars =+ ({-# LINE 309 "GenerateCode.ag" #-}+ _hdIintraVars+ {-# LINE 5918 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 433, column 11)+ _lhsOdecls =+ ({-# LINE 433 "GenerateCode.ag" #-}+ _hdIdecls+ {-# LINE 5924 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 434, column 11)+ _hdOdecls =+ ({-# LINE 434 "GenerateCode.ag" #-}+ _tlIdecls+ {-# LINE 5930 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ _hdIcomments ++ _tlIcomments+ {-# LINE 5936 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 553, column 44)+ _lhsOgatherInstVisitNrs =+ ({-# LINE 553 "GenerateCode.ag" #-}+ _hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs+ {-# LINE 5942 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 1126, column 61)+ _lhsOsemNames =+ ({-# LINE 1126 "GenerateCode.ag" #-}+ _hdIsemNames ++ _tlIsemNames+ {-# LINE 5948 "GenerateCode.hs" #-}+ )+ -- copy rule (up)+ _lhsOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _tlIvisitedSet+ {-# LINE 5954 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 5960 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOallPragmas =+ ({-# LINE 73 "GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 5966 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 572 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 5972 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOchildren =+ ({-# LINE 412 "GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 5978 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 89 "GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 5984 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOcontextMap =+ ({-# LINE 115 "GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 5990 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 5996 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOinstVisitNrs =+ ({-# LINE 552 "GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 6002 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 588 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 6008 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOnr =+ ({-# LINE 271 "GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 6014 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 6020 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 6026 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 6032 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 6038 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 6044 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 6050 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 6056 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 6062 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 6068 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 6074 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 6080 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 6086 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 6092 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 6098 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 6104 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 6110 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 6116 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOparamInstMap =+ ({-# LINE 101 "GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 6122 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 6128 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 6134 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 6140 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOterminals =+ ({-# LINE 90 "GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 6146 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 6152 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 6158 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOwith_sig =+ ({-# LINE 844 "GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 6164 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 6170 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOallPragmas =+ ({-# LINE 73 "GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 6176 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 572 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 6182 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOchildren =+ ({-# LINE 412 "GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 6188 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 89 "GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 6194 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOcontextMap =+ ({-# LINE 115 "GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 6200 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 6206 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOinstVisitNrs =+ ({-# LINE 552 "GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 6212 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 588 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 6218 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 6224 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 6230 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 6236 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 6242 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 6248 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 6254 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 6260 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 6266 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 6272 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 6278 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 6284 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 6290 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 6296 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 6302 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 6308 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 6314 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 6320 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOparamInstMap =+ ({-# LINE 101 "GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 6326 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 6332 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 6338 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 6344 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOterminals =+ ({-# LINE 90 "GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 6350 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 6356 "GenerateCode.hs" #-}+ )+ -- copy rule (chain)+ _tlOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _hdIvisitedSet+ {-# LINE 6362 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOwith_sig =+ ({-# LINE 844 "GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 6368 "GenerateCode.hs" #-}+ )+ ( _hdIcomments,_hdIdecls,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames,_hdIvisitedSet) =+ hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOdecls _hdOinh _hdOinstVisitNrs _hdOisLast _hdOmergeMap _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwith_sig + ( _tlIcomments,_tlIdecls,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames,_tlIvisitedSet) =+ tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOinh _tlOinstVisitNrs _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwith_sig + in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) )+sem_CVisits_Nil :: T_CVisits +sem_CVisits_Nil =+ (T_CVisits (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIcontextMap+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwith_sig ->+ (let _lhsOisNil :: Bool+ _lhsOintra :: Exprs+ _lhsOintraVars :: (Set String)+ _lhsOdecls :: Decls+ _lhsOcomments :: ([String])+ _lhsOgatherInstVisitNrs :: (Map Identifier Int)+ _lhsOsemNames :: ([String])+ _lhsOvisitedSet :: (Set Identifier)+ -- "GenerateCode.ag"(line 290, column 10)+ _lhsOisNil =+ ({-# LINE 290 "GenerateCode.ag" #-}+ True+ {-# LINE 6424 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 310, column 10)+ _lhsOintra =+ ({-# LINE 310 "GenerateCode.ag" #-}+ []+ {-# LINE 6430 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 311, column 10)+ _lhsOintraVars =+ ({-# LINE 311 "GenerateCode.ag" #-}+ Set.empty+ {-# LINE 6436 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 432, column 11)+ _lhsOdecls =+ ({-# LINE 432 "GenerateCode.ag" #-}+ []+ {-# LINE 6442 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ []+ {-# LINE 6448 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 553, column 44)+ _lhsOgatherInstVisitNrs =+ ({-# LINE 553 "GenerateCode.ag" #-}+ Map.empty+ {-# LINE 6454 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 1126, column 61)+ _lhsOsemNames =+ ({-# LINE 1126 "GenerateCode.ag" #-}+ []+ {-# LINE 6460 "GenerateCode.hs" #-}+ )+ -- copy rule (chain)+ _lhsOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 6466 "GenerateCode.hs" #-}+ )+ in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) )+-- DeclBlocks --------------------------------------------------+{-+ visit 0:+ inherited attributes:+ blockNr : Int+ lastExprVars : [String]+ nextVisitDecls : [Decl]+ optCase : Bool+ prefix : String+ synthesized attributes:+ callExpr : Expr+ decls : [Decl]+ freeVars : [String]+ alternatives:+ alternative DeclBlock:+ child defs : {[Decl]}+ child visit : {Decl}+ child next : DeclBlocks + visit 0:+ local lambdaName : _+ local pragmaDecl : _+ local freeVars : _+ local decl : _+ alternative DeclTerminator:+ child defs : {[Decl]}+ child result : {Expr}+ visit 0:+ local lambdaName : _+ local pragmaDecl : _+ local freeVars : _+-}+-- cata+sem_DeclBlocks :: DeclBlocks ->+ T_DeclBlocks +sem_DeclBlocks (DeclBlock _defs _visit _next ) =+ (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next ) )+sem_DeclBlocks (DeclTerminator _defs _result ) =+ (sem_DeclBlocks_DeclTerminator _defs _result )+-- semantic domain+newtype T_DeclBlocks = T_DeclBlocks (Int ->+ ([String]) ->+ ([Decl]) ->+ Bool ->+ String ->+ ( Expr,([Decl]),([String])))+data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !(([String])),nextVisitDecls_Inh_DeclBlocks :: !(([Decl])),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)}+data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !(([Decl])),freeVars_Syn_DeclBlocks :: !(([String]))}+wrap_DeclBlocks :: T_DeclBlocks ->+ Inh_DeclBlocks ->+ Syn_DeclBlocks +wrap_DeclBlocks (T_DeclBlocks sem ) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) =+ (let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix + in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars ))+sem_DeclBlocks_DeclBlock :: ([Decl]) ->+ Decl ->+ T_DeclBlocks ->+ T_DeclBlocks +sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_ ) =+ (T_DeclBlocks (\ _lhsIblockNr+ _lhsIlastExprVars+ _lhsInextVisitDecls+ _lhsIoptCase+ _lhsIprefix ->+ (let _nextOblockNr :: Int+ _lhsOcallExpr :: Expr+ _lhsOdecls :: ([Decl])+ _lhsOfreeVars :: ([String])+ _nextOlastExprVars :: ([String])+ _nextOnextVisitDecls :: ([Decl])+ _nextOoptCase :: Bool+ _nextOprefix :: String+ _nextIcallExpr :: Expr+ _nextIdecls :: ([Decl])+ _nextIfreeVars :: ([String])+ -- "GenerateCode.ag"(line 654, column 7)+ _nextOblockNr =+ ({-# LINE 654 "GenerateCode.ag" #-}+ _lhsIblockNr + 1+ {-# LINE 6547 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 659, column 7)+ _lambdaName =+ ({-# LINE 659 "GenerateCode.ag" #-}+ _lhsIprefix ++ "_block" ++ show _lhsIblockNr+ {-# LINE 6553 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 660, column 7)+ _pragmaDecl =+ ({-# LINE 660 "GenerateCode.ag" #-}+ PragmaDecl ("NOINLINE " ++ _lambdaName )+ {-# LINE 6559 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 661, column 7)+ _lhsOcallExpr =+ ({-# LINE 661 "GenerateCode.ag" #-}+ App _lambdaName (map SimpleExpr _freeVars )+ {-# LINE 6565 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 665, column 7)+ _freeVars =+ ({-# LINE 665 "GenerateCode.ag" #-}+ freevars _nextIfreeVars (visit_ : defs_)+ {-# LINE 6571 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 672, column 7)+ _decl =+ ({-# LINE 672 "GenerateCode.ag" #-}+ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr+ {-# LINE 6577 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 673, column 7)+ _lhsOdecls =+ ({-# LINE 673 "GenerateCode.ag" #-}+ (if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls+ {-# LINE 6583 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _lhsOfreeVars =+ ({-# LINE 656 "GenerateCode.ag" #-}+ _freeVars+ {-# LINE 6589 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _nextOlastExprVars =+ ({-# LINE 640 "GenerateCode.ag" #-}+ _lhsIlastExprVars+ {-# LINE 6595 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _nextOnextVisitDecls =+ ({-# LINE 640 "GenerateCode.ag" #-}+ _lhsInextVisitDecls+ {-# LINE 6601 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _nextOoptCase =+ ({-# LINE 640 "GenerateCode.ag" #-}+ _lhsIoptCase+ {-# LINE 6607 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _nextOprefix =+ ({-# LINE 640 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 6613 "GenerateCode.hs" #-}+ )+ ( _nextIcallExpr,_nextIdecls,_nextIfreeVars) =+ next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix + in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) )+sem_DeclBlocks_DeclTerminator :: ([Decl]) ->+ Expr ->+ T_DeclBlocks +sem_DeclBlocks_DeclTerminator defs_ result_ =+ (T_DeclBlocks (\ _lhsIblockNr+ _lhsIlastExprVars+ _lhsInextVisitDecls+ _lhsIoptCase+ _lhsIprefix ->+ (let _lhsOcallExpr :: Expr+ _lhsOdecls :: ([Decl])+ _lhsOfreeVars :: ([String])+ -- "GenerateCode.ag"(line 659, column 7)+ _lambdaName =+ ({-# LINE 659 "GenerateCode.ag" #-}+ _lhsIprefix ++ "_block" ++ show _lhsIblockNr+ {-# LINE 6634 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 660, column 7)+ _pragmaDecl =+ ({-# LINE 660 "GenerateCode.ag" #-}+ PragmaDecl ("NOINLINE " ++ _lambdaName )+ {-# LINE 6640 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 661, column 7)+ _lhsOcallExpr =+ ({-# LINE 661 "GenerateCode.ag" #-}+ App _lambdaName (map SimpleExpr _freeVars )+ {-# LINE 6646 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 663, column 7)+ _freeVars =+ ({-# LINE 663 "GenerateCode.ag" #-}+ freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls)+ {-# LINE 6652 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 670, column 7)+ _lhsOdecls =+ ({-# LINE 670 "GenerateCode.ag" #-}+ [ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ]+ {-# LINE 6658 "GenerateCode.hs" #-}+ )+ -- copy rule (from local)+ _lhsOfreeVars =+ ({-# LINE 656 "GenerateCode.ag" #-}+ _freeVars+ {-# LINE 6664 "GenerateCode.hs" #-}+ )+ in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) )+-- DeclBlocksRoot ----------------------------------------------+{-+ visit 0:+ inherited attributes:+ lastExprVars : [String]+ nextVisitDecls : [Decl]+ optCase : Bool+ prefix : String+ synthesized attributes:+ firstCall : Expr+ lambdas : [Decl]+ alternatives:+ alternative DeclBlocksRoot:+ child blocks : DeclBlocks +-}+-- cata+sem_DeclBlocksRoot :: DeclBlocksRoot ->+ T_DeclBlocksRoot +sem_DeclBlocksRoot (DeclBlocksRoot _blocks ) =+ (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks ) )+-- semantic domain+newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) ->+ ([Decl]) ->+ Bool ->+ String ->+ ( Expr,([Decl])))+data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !(([String])),nextVisitDecls_Inh_DeclBlocksRoot :: !(([Decl])),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)}+data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !(([Decl]))}+wrap_DeclBlocksRoot :: T_DeclBlocksRoot ->+ Inh_DeclBlocksRoot ->+ Syn_DeclBlocksRoot +wrap_DeclBlocksRoot (T_DeclBlocksRoot sem ) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) =+ (let ( _lhsOfirstCall,_lhsOlambdas) = sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix + in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas ))+sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks ->+ T_DeclBlocksRoot +sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_ ) =+ (T_DeclBlocksRoot (\ _lhsIlastExprVars+ _lhsInextVisitDecls+ _lhsIoptCase+ _lhsIprefix ->+ (let _lhsOlambdas :: ([Decl])+ _lhsOfirstCall :: Expr+ _blocksOblockNr :: Int+ _blocksOlastExprVars :: ([String])+ _blocksOnextVisitDecls :: ([Decl])+ _blocksOoptCase :: Bool+ _blocksOprefix :: String+ _blocksIcallExpr :: Expr+ _blocksIdecls :: ([Decl])+ _blocksIfreeVars :: ([String])+ -- "GenerateCode.ag"(line 645, column 7)+ _lhsOlambdas =+ ({-# LINE 645 "GenerateCode.ag" #-}+ _blocksIdecls+ {-# LINE 6722 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 646, column 7)+ _lhsOfirstCall =+ ({-# LINE 646 "GenerateCode.ag" #-}+ _blocksIcallExpr+ {-# LINE 6728 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 651, column 7)+ _blocksOblockNr =+ ({-# LINE 651 "GenerateCode.ag" #-}+ 1+ {-# LINE 6734 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _blocksOlastExprVars =+ ({-# LINE 640 "GenerateCode.ag" #-}+ _lhsIlastExprVars+ {-# LINE 6740 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _blocksOnextVisitDecls =+ ({-# LINE 640 "GenerateCode.ag" #-}+ _lhsInextVisitDecls+ {-# LINE 6746 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _blocksOoptCase =+ ({-# LINE 640 "GenerateCode.ag" #-}+ _lhsIoptCase+ {-# LINE 6752 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _blocksOprefix =+ ({-# LINE 640 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 6758 "GenerateCode.hs" #-}+ )+ ( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) =+ blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix + in ( _lhsOfirstCall,_lhsOlambdas))) )+-- Pattern -----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : SELF + definedInsts : [Identifier]+ patternAttributes : [(Identifier, Identifier)]+ alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + child parts : Patterns + visit 0:+ local copy : _+ alternative Constr:+ child name : {ConstructorIdent}+ child pats : Patterns + visit 0:+ local copy : _+ alternative Irrefutable:+ child pat : Pattern + visit 0:+ local copy : _+ alternative Product:+ child pos : {Pos}+ child pats : Patterns + visit 0:+ local copy : _+ alternative Underscore:+ child pos : {Pos}+ visit 0:+ local copy : _+-}+-- cata+sem_Pattern :: Pattern ->+ T_Pattern +sem_Pattern (Alias _field _attr _pat _parts ) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )+sem_Pattern (Constr _name _pats ) =+ (sem_Pattern_Constr _name (sem_Patterns _pats ) )+sem_Pattern (Irrefutable _pat ) =+ (sem_Pattern_Irrefutable (sem_Pattern _pat ) )+sem_Pattern (Product _pos _pats ) =+ (sem_Pattern_Product _pos (sem_Patterns _pats ) )+sem_Pattern (Underscore _pos ) =+ (sem_Pattern_Underscore _pos )+-- semantic domain+newtype T_Pattern = T_Pattern (( Pattern ,([Identifier]),([(Identifier, Identifier)])))+data Inh_Pattern = Inh_Pattern {}+data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedInsts_Syn_Pattern :: !(([Identifier])),patternAttributes_Syn_Pattern :: !(([(Identifier, Identifier)]))}+wrap_Pattern :: T_Pattern ->+ Inh_Pattern ->+ Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =+ (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem + in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes ))+sem_Pattern_Alias :: Identifier ->+ Identifier ->+ T_Pattern ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedInsts :: ([Identifier])+ _patIpatternAttributes :: ([(Identifier, Identifier)])+ _partsIcopy :: Patterns + _partsIdefinedInsts :: ([Identifier])+ _partsIpatternAttributes :: ([(Identifier, Identifier)])+ -- "GenerateCode.ag"(line 256, column 11)+ _lhsOdefinedInsts =+ ({-# LINE 256 "GenerateCode.ag" #-}+ (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts+ {-# LINE 6839 "GenerateCode.hs" #-}+ )+ -- "GenerateCode.ag"(line 264, column 7)+ _lhsOpatternAttributes =+ ({-# LINE 264 "GenerateCode.ag" #-}+ (field_,attr_) : (_patIpatternAttributes ++ _partsIpatternAttributes)+ {-# LINE 6845 "GenerateCode.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Alias field_ attr_ _patIcopy _partsIcopy+ {-# LINE 6851 "GenerateCode.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 6857 "GenerateCode.hs" #-}+ )+ ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =+ pat_ + ( _partsIcopy,_partsIdefinedInsts,_partsIpatternAttributes) =+ parts_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )+sem_Pattern_Constr :: ConstructorIdent ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedInsts :: ([Identifier])+ _patsIpatternAttributes :: ([(Identifier, Identifier)])+ -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ _patsIdefinedInsts+ {-# LINE 6878 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 261, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 261 "GenerateCode.ag" #-}+ _patsIpatternAttributes+ {-# LINE 6884 "GenerateCode.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 6890 "GenerateCode.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 6896 "GenerateCode.hs" #-}+ )+ ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =+ pats_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )+sem_Pattern_Irrefutable :: T_Pattern ->+ T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedInsts :: ([Identifier])+ _patIpatternAttributes :: ([(Identifier, Identifier)])+ -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ _patIdefinedInsts+ {-# LINE 6914 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 261, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 261 "GenerateCode.ag" #-}+ _patIpatternAttributes+ {-# LINE 6920 "GenerateCode.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 6926 "GenerateCode.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 6932 "GenerateCode.hs" #-}+ )+ ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =+ pat_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )+sem_Pattern_Product :: Pos ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedInsts :: ([Identifier])+ _patsIpatternAttributes :: ([(Identifier, Identifier)])+ -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ _patsIdefinedInsts+ {-# LINE 6951 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 261, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 261 "GenerateCode.ag" #-}+ _patsIpatternAttributes+ {-# LINE 6957 "GenerateCode.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 6963 "GenerateCode.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 6969 "GenerateCode.hs" #-}+ )+ ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =+ pats_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )+sem_Pattern_Underscore :: Pos ->+ T_Pattern +sem_Pattern_Underscore pos_ =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern + -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ []+ {-# LINE 6984 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 261, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 261 "GenerateCode.ag" #-}+ []+ {-# LINE 6990 "GenerateCode.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Underscore pos_+ {-# LINE 6996 "GenerateCode.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 7002 "GenerateCode.hs" #-}+ )+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )+-- Patterns ----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : SELF + definedInsts : [Identifier]+ patternAttributes : [(Identifier, Identifier)]+ alternatives:+ alternative Cons:+ child hd : Pattern + child tl : Patterns + visit 0:+ local copy : _+ alternative Nil:+ visit 0:+ local copy : _+-}+-- cata+sem_Patterns :: Patterns ->+ T_Patterns +sem_Patterns list =+ (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )+-- semantic domain+newtype T_Patterns = T_Patterns (( Patterns ,([Identifier]),([(Identifier, Identifier)])))+data Inh_Patterns = Inh_Patterns {}+data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedInsts_Syn_Patterns :: !(([Identifier])),patternAttributes_Syn_Patterns :: !(([(Identifier, Identifier)]))}+wrap_Patterns :: T_Patterns ->+ Inh_Patterns ->+ Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =+ (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem + in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes ))+sem_Patterns_Cons :: T_Pattern ->+ T_Patterns ->+ T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =+ (T_Patterns (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Patterns + _hdIcopy :: Pattern + _hdIdefinedInsts :: ([Identifier])+ _hdIpatternAttributes :: ([(Identifier, Identifier)])+ _tlIcopy :: Patterns + _tlIdefinedInsts :: ([Identifier])+ _tlIpatternAttributes :: ([(Identifier, Identifier)])+ -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 7054 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 261, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 261 "GenerateCode.ag" #-}+ _hdIpatternAttributes ++ _tlIpatternAttributes+ {-# LINE 7060 "GenerateCode.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 7066 "GenerateCode.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 7072 "GenerateCode.hs" #-}+ )+ ( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) =+ hd_ + ( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) =+ tl_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )+sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil =+ (T_Patterns (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Patterns + -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ []+ {-# LINE 7088 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 261, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 261 "GenerateCode.ag" #-}+ []+ {-# LINE 7094 "GenerateCode.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ []+ {-# LINE 7100 "GenerateCode.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 7106 "GenerateCode.hs" #-}+ )+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )+-- Sequence ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ aroundMap : Set Identifier+ children : [(Identifier,Type,Maybe (Maybe Type))]+ con : ConstructorIdent+ inh : Attributes+ instVisitNrs : Map Identifier Int+ lastExpr : Expr+ mergeMap : Map Identifier (Identifier, [Identifier])+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramInstMap : Map Identifier (NontermIdent, [String])+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ terminals : [Identifier]+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ what : String+ chained attributes:+ declsAbove : [Decl]+ visitedSet : Set Identifier+ synthesized attributes:+ allTpsFound : Bool+ blockDecls : DeclBlocks + comments : [String]+ decls : Decls+ definedInsts : [Identifier]+ exprs : Exprs+ tSigs : [Decl]+ tps : [Type]+ usedVars : Set String+ alternatives:+ alternative Cons:+ child hd : CRule + child tl : Sequence + alternative Nil:+-}+-- cata+sem_Sequence :: Sequence ->+ T_Sequence +sem_Sequence list =+ (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list) )+-- semantic domain+newtype T_Sequence = T_Sequence ((Set NontermIdent) ->+ (Set Identifier) ->+ ([(Identifier,Type,Maybe (Maybe Type))]) ->+ ConstructorIdent ->+ ([Decl]) ->+ Attributes ->+ (Map Identifier Int) ->+ Expr ->+ (Map Identifier (Identifier, [Identifier])) ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ (Map Identifier (NontermIdent, [String])) ->+ ParamMap ->+ String ->+ Attributes ->+ ([Identifier]) ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ (Set Identifier) ->+ String ->+ ( Bool,DeclBlocks ,([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))+data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !((Set NontermIdent)),aroundMap_Inh_Sequence :: !((Set Identifier)),children_Inh_Sequence :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !(([Decl])),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !((Map Identifier Int)),lastExpr_Inh_Sequence :: !(Expr),mergeMap_Inh_Sequence :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !((Maybe Bool)),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),options_Inh_Sequence :: !(Options),paramInstMap_Inh_Sequence :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !(([Identifier])),unfoldSemDom_Inh_Sequence :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_Sequence :: !((Set Identifier)),what_Inh_Sequence :: !(String)}+data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks ),comments_Syn_Sequence :: !(([String])),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !(([Decl])),definedInsts_Syn_Sequence :: !(([Identifier])),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !(([Decl])),tps_Syn_Sequence :: !(([Type])),usedVars_Syn_Sequence :: !((Set String)),visitedSet_Syn_Sequence :: !((Set Identifier))}+wrap_Sequence :: T_Sequence ->+ Inh_Sequence ->+ Syn_Sequence +wrap_Sequence (T_Sequence sem ) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) =+ (let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat + in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet ))+sem_Sequence_Cons :: T_CRule ->+ T_Sequence ->+ T_Sequence +sem_Sequence_Cons (T_CRule hd_ ) (T_Sequence tl_ ) =+ (T_Sequence (\ _lhsIallNts+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIdeclsAbove+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsIlastExpr+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwhat ->+ (let _lhsOblockDecls :: DeclBlocks + _lhsOallTpsFound :: Bool+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOexprs :: Exprs+ _lhsOtSigs :: ([Decl])+ _lhsOtps :: ([Type])+ _lhsOusedVars :: (Set String)+ _lhsOdeclsAbove :: ([Decl])+ _lhsOvisitedSet :: (Set Identifier)+ _hdOallNts :: (Set NontermIdent)+ _hdOaroundMap :: (Set Identifier)+ _hdOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])+ _hdOcon :: ConstructorIdent+ _hdOdeclsAbove :: ([Decl])+ _hdOinh :: Attributes+ _hdOinstVisitNrs :: (Map Identifier Int)+ _hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _hdOnr :: Int+ _hdOnt :: NontermIdent+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOsyn :: Attributes+ _hdOterminals :: ([Identifier])+ _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _hdOvisitedSet :: (Set Identifier)+ _hdOwhat :: String+ _tlOallNts :: (Set NontermIdent)+ _tlOaroundMap :: (Set Identifier)+ _tlOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])+ _tlOcon :: ConstructorIdent+ _tlOdeclsAbove :: ([Decl])+ _tlOinh :: Attributes+ _tlOinstVisitNrs :: (Map Identifier Int)+ _tlOlastExpr :: Expr+ _tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _tlOnr :: Int+ _tlOnt :: NontermIdent+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOsyn :: Attributes+ _tlOterminals :: ([Identifier])+ _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _tlOvisitedSet :: (Set Identifier)+ _tlOwhat :: String+ _hdIallTpsFound :: Bool+ _hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks)+ _hdIcomments :: ([String])+ _hdIdecls :: Decls+ _hdIdeclsAbove :: ([Decl])+ _hdIdefinedInsts :: ([Identifier])+ _hdIexprs :: Exprs+ _hdItSigs :: ([Decl])+ _hdItps :: ([Type])+ _hdIusedVars :: (Set String)+ _hdIvisitedSet :: (Set Identifier)+ _tlIallTpsFound :: Bool+ _tlIblockDecls :: DeclBlocks + _tlIcomments :: ([String])+ _tlIdecls :: Decls+ _tlIdeclsAbove :: ([Decl])+ _tlIdefinedInsts :: ([Identifier])+ _tlIexprs :: Exprs+ _tlItSigs :: ([Decl])+ _tlItps :: ([Type])+ _tlIusedVars :: (Set String)+ _tlIvisitedSet :: (Set Identifier)+ -- "GenerateCode.ag"(line 614, column 7)+ _lhsOblockDecls =+ ({-# LINE 614 "GenerateCode.ag" #-}+ _hdIbldBlocksFun _tlIblockDecls+ {-# LINE 7360 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 418, column 39)+ _lhsOallTpsFound =+ ({-# LINE 418 "GenerateCode.ag" #-}+ _hdIallTpsFound && _tlIallTpsFound+ {-# LINE 7366 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ _hdIcomments ++ _tlIcomments+ {-# LINE 7372 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 150, column 34)+ _lhsOdecls =+ ({-# LINE 150 "GenerateCode.ag" #-}+ _hdIdecls ++ _tlIdecls+ {-# LINE 7378 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 7384 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 327, column 34)+ _lhsOexprs =+ ({-# LINE 327 "GenerateCode.ag" #-}+ _hdIexprs ++ _tlIexprs+ {-# LINE 7390 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 356, column 33)+ _lhsOtSigs =+ ({-# LINE 356 "GenerateCode.ag" #-}+ _hdItSigs ++ _tlItSigs+ {-# LINE 7396 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 417, column 31)+ _lhsOtps =+ ({-# LINE 417 "GenerateCode.ag" #-}+ _hdItps ++ _tlItps+ {-# LINE 7402 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 345, column 37)+ _lhsOusedVars =+ ({-# LINE 345 "GenerateCode.ag" #-}+ _hdIusedVars `Set.union` _tlIusedVars+ {-# LINE 7408 "GenerateCode.hs" #-}+ )+ -- copy rule (up)+ _lhsOdeclsAbove =+ ({-# LINE 600 "GenerateCode.ag" #-}+ _tlIdeclsAbove+ {-# LINE 7414 "GenerateCode.hs" #-}+ )+ -- copy rule (up)+ _lhsOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _tlIvisitedSet+ {-# LINE 7420 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 7426 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 572 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 7432 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOchildren =+ ({-# LINE 252 "GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 7438 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 89 "GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 7444 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOdeclsAbove =+ ({-# LINE 600 "GenerateCode.ag" #-}+ _lhsIdeclsAbove+ {-# LINE 7450 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 7456 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOinstVisitNrs =+ ({-# LINE 552 "GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 7462 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 588 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 7468 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOnr =+ ({-# LINE 271 "GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 7474 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 7480 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 7486 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 7492 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 7498 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 7504 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 7510 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 7516 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 7522 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 7528 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 7534 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 7540 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 7546 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 7552 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 7558 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 7564 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 7570 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 7576 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOparamInstMap =+ ({-# LINE 101 "GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 7582 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 7588 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 7594 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 7600 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOterminals =+ ({-# LINE 90 "GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 7606 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 7612 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 7618 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _hdOwhat =+ ({-# LINE 863 "GenerateCode.ag" #-}+ _lhsIwhat+ {-# LINE 7624 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOallNts =+ ({-# LINE 127 "GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 7630 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 572 "GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 7636 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOchildren =+ ({-# LINE 252 "GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 7642 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 89 "GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 7648 "GenerateCode.hs" #-}+ )+ -- copy rule (chain)+ _tlOdeclsAbove =+ ({-# LINE 600 "GenerateCode.ag" #-}+ _hdIdeclsAbove+ {-# LINE 7654 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 7660 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOinstVisitNrs =+ ({-# LINE 552 "GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 7666 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOlastExpr =+ ({-# LINE 598 "GenerateCode.ag" #-}+ _lhsIlastExpr+ {-# LINE 7672 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 588 "GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 7678 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOnr =+ ({-# LINE 271 "GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 7684 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 7690 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 7696 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 7702 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 7708 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 7714 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 7720 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 7726 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 7732 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 7738 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 7744 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 7750 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 7756 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 7762 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 7768 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 7774 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 7780 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 7786 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOparamInstMap =+ ({-# LINE 101 "GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 7792 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 7798 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 7804 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 84 "GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 7810 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOterminals =+ ({-# LINE 90 "GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 7816 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOunfoldSemDom =+ ({-# LINE 742 "GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 7822 "GenerateCode.hs" #-}+ )+ -- copy rule (chain)+ _tlOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _hdIvisitedSet+ {-# LINE 7828 "GenerateCode.hs" #-}+ )+ -- copy rule (down)+ _tlOwhat =+ ({-# LINE 863 "GenerateCode.ag" #-}+ _lhsIwhat+ {-# LINE 7834 "GenerateCode.hs" #-}+ )+ ( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars,_hdIvisitedSet) =+ hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOinh _hdOinstVisitNrs _hdOmergeMap _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwhat + ( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars,_tlIvisitedSet) =+ tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwhat + in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )+sem_Sequence_Nil :: T_Sequence +sem_Sequence_Nil =+ (T_Sequence (\ _lhsIallNts+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIdeclsAbove+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsIlastExpr+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwhat ->+ (let _lhsOblockDecls :: DeclBlocks + _lhsOallTpsFound :: Bool+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOexprs :: Exprs+ _lhsOtSigs :: ([Decl])+ _lhsOtps :: ([Type])+ _lhsOusedVars :: (Set String)+ _lhsOdeclsAbove :: ([Decl])+ _lhsOvisitedSet :: (Set Identifier)+ -- "GenerateCode.ag"(line 616, column 7)+ _lhsOblockDecls =+ ({-# LINE 616 "GenerateCode.ag" #-}+ DeclTerminator _lhsIdeclsAbove _lhsIlastExpr+ {-# LINE 7893 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 418, column 39)+ _lhsOallTpsFound =+ ({-# LINE 418 "GenerateCode.ag" #-}+ True+ {-# LINE 7899 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 861, column 52)+ _lhsOcomments =+ ({-# LINE 861 "GenerateCode.ag" #-}+ []+ {-# LINE 7905 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 150, column 34)+ _lhsOdecls =+ ({-# LINE 150 "GenerateCode.ag" #-}+ []+ {-# LINE 7911 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 254, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 254 "GenerateCode.ag" #-}+ []+ {-# LINE 7917 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 327, column 34)+ _lhsOexprs =+ ({-# LINE 327 "GenerateCode.ag" #-}+ []+ {-# LINE 7923 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 356, column 33)+ _lhsOtSigs =+ ({-# LINE 356 "GenerateCode.ag" #-}+ []+ {-# LINE 7929 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 417, column 31)+ _lhsOtps =+ ({-# LINE 417 "GenerateCode.ag" #-}+ []+ {-# LINE 7935 "GenerateCode.hs" #-}+ )+ -- use rule "GenerateCode.ag"(line 345, column 37)+ _lhsOusedVars =+ ({-# LINE 345 "GenerateCode.ag" #-}+ Set.empty+ {-# LINE 7941 "GenerateCode.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdeclsAbove =+ ({-# LINE 600 "GenerateCode.ag" #-}+ _lhsIdeclsAbove+ {-# LINE 7947 "GenerateCode.hs" #-}+ )+ -- copy rule (chain)+ _lhsOvisitedSet =+ ({-# LINE 140 "GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 7953 "GenerateCode.hs" #-} ) in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )
src-derived/Transform.hs view
@@ -1,6863 +1,7082 @@ --- UUAGC 0.9.37.1 (Transform.ag)-module Transform where-{-# LINE 8 "Transform.ag" #-}--import Control.Monad(mplus,mzero)-import List (partition, elem, nub,intersperse)-import Data.Maybe-import qualified Data.Map as Map-import Data.Map (Map)-import Data.Set as Set (Set, member, union, toList, fromList, empty, singleton, member, unions, size, fold, intersection, difference, insert)-import qualified Data.Sequence as Seq-import Data.Sequence(Seq, empty, (><),fromList)-import Data.Foldable(toList)-import UU.Scanner.Position(noPos)--import ConcreteSyntax-import AbstractSyntax-import ErrorMessages-import Patterns (Patterns(..),Pattern(..))-import Expression (Expression(..))-import HsToken--import Options-import CommonTypes-import RhsCheck-{-# LINE 29 "../src-derived/Transform.hs" #-}--{-# LINE 2 "./ConcreteSyntax.ag" #-}--import UU.Scanner.Position (Pos)-import Patterns (Pattern)-import Expression (Expression)-import CommonTypes-{-# LINE 37 "../src-derived/Transform.hs" #-}--{-# LINE 2 "./Patterns.ag" #-}---- Patterns.ag imports-import UU.Scanner.Position(Pos)-import CommonTypes (ConstructorIdent,Identifier)-{-# LINE 44 "../src-derived/Transform.hs" #-}-{-# LINE 101 "Transform.ag" #-}-type DefinedSets = Map Identifier (Set NontermIdent) -{-# LINE 47 "../src-derived/Transform.hs" #-}--{-# LINE 121 "Transform.ag" #-}-type FieldMap = [(Identifier, Type)] -{-# LINE 51 "../src-derived/Transform.hs" #-}--{-# LINE 122 "Transform.ag" #-}-type DataTypes = Map.Map NontermIdent (Map.Map ConstructorIdent FieldMap) -{-# LINE 55 "../src-derived/Transform.hs" #-}--{-# LINE 142 "Transform.ag" #-}-type AttrName = (Identifier,Identifier) -{-# LINE 59 "../src-derived/Transform.hs" #-}--{-# LINE 143 "Transform.ag" #-}-type RuleInfo = (Maybe Identifier, [AttrName]->Pattern, Expression, [AttrName], Bool, String) -{-# LINE 63 "../src-derived/Transform.hs" #-}--{-# LINE 144 "Transform.ag" #-}-type SigInfo = (Identifier,Type) -{-# LINE 67 "../src-derived/Transform.hs" #-}--{-# LINE 145 "Transform.ag" #-}-type UniqueInfo = (Identifier,Identifier) -{-# LINE 71 "../src-derived/Transform.hs" #-}--{-# LINE 146 "Transform.ag" #-}-type AugmentInfo = (Identifier,Expression)-{-# LINE 75 "../src-derived/Transform.hs" #-}--{-# LINE 147 "Transform.ag" #-}-type AroundInfo = (Identifier,Expression)-{-# LINE 79 "../src-derived/Transform.hs" #-}--{-# LINE 148 "Transform.ag" #-}-type MergeInfo = (Identifier, Identifier, [Identifier], Expression)-{-# LINE 83 "../src-derived/Transform.hs" #-}--{-# LINE 202 "Transform.ag" #-}---checkDuplicate :: (Identifier -> Identifier -> Error)- -> Identifier -> val -> Map Identifier val -> (Map Identifier val,Seq Error)-checkDuplicate dupError key val m- = case Map.lookupIndex key m of- Just ix -> let (key',_) = Map.elemAt ix m- in (m,Seq.singleton (dupError key key'))- Nothing -> (Map.insert key val m,Seq.empty)--checkDuplicates :: (Identifier -> Identifier -> Error)- -> [(Identifier, val)] -> Map Identifier val -> (Map Identifier val,Seq Error)-checkDuplicates dupError new m = foldErrors check m new- where check = uncurry (checkDuplicate dupError)--foldErrors f e xs = foldl g (e,Seq.empty) xs- where g ~(e,es) x = let (e',es') = f x e- in (e', es >< es')---checkForDuplicates :: (Identifier -> Identifier -> Error) -> [Identifier] -> [Error]-checkForDuplicates err [] = []-checkForDuplicates err (x:xs) = let (same,other) = List.partition (equalId x) xs- in map (err x) same ++ checkForDuplicates err other--equalId :: Identifier -> Identifier -> Bool-equalId x y = getName x == getName y--{-# LINE 114 "../src-derived/Transform.hs" #-}--{-# LINE 338 "Transform.ag" #-}--type RulesAndErrors = ([Rule], Seq Error)-type SigsAndErrors = ([TypeSig], Seq Error)-type InstsAndErrors = ([(Identifier, Type)], Seq Error)-type UniquesAndErrors = (Map Identifier Identifier, Seq Error)-type AugmentsAndErrors = (Map Identifier [Expression], Seq Error)-type AroundsAndErrors = (Map Identifier [Expression], Seq Error)-type MergesAndErrors = (Map Identifier (Identifier, [Identifier], Expression), Seq Error)-type AttrOverwrite = Map AttrName Bool-type AccumRuleCheck = (RulesAndErrors, AttrOverwrite)-type AccumDefiCheck = (Seq Error, AttrOverwrite, [AttrName], [AttrName])--checkRules :: Map NontermIdent (Attributes, Attributes) -> Map NontermIdent (Map ConstructorIdent FieldMap) ->- Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [SigInfo]) ->- Map NontermIdent (Map ConstructorIdent [MergeInfo]) ->- NontermIdent -> ConstructorIdent -> [RuleInfo] -> RulesAndErrors-checkRules attributes fields allinsts allsigs allmerges nt con rs- = let fieldmap :: FieldMap- fieldmap = (_LHS,NT nt undefined) : (_LOC,NT undefined undefined) : (_INST, NT undefined undefined) : (_FIRST, NT undefined undefined) : (_LAST, NT undefined undefined)- : Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fields)- ++ mapMaybe (\instNm -> lookup instNm sigs >>= \tp -> return (instNm, tp)) (Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allinsts))- -- merged children are not allowed to have any inherited attrs defined: do not include- - sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allsigs)-- hasAttrib f tp attr = Map.member attr (f (Map.findWithDefault (Map.empty,Map.empty) tp attributes))- - checkRule :: RuleInfo -> AccumRuleCheck -> AccumRuleCheck- checkRule (mbNm, pat,exp,as,owrt,str) ((r1,e1),m1) - = let (e2,m2,u2,b2) = foldr (checkDefi owrt) (e1,m1,[],[]) as- in ( (Rule mbNm (pat u2) exp owrt str True : r1, e2), m2)-- checkDefi :: Bool -> AttrName -> AccumDefiCheck -> AccumDefiCheck- checkDefi owrt fa@(field,attr) (e,m,u,bs)- = case lookup field fieldmap- of Just (NT tp _) -> - let tp' = maybe tp id (deforestedNt tp)- in if field == _LOC || field == _INST || field == _FIRST || field == _LAST- || hasAttrib (if getName field==getName _LHS then snd else fst) tp' attr- then case Map.lookupIndex fa m of- Just ix -> let ((_,attr2),b) = Map.elemAt ix m- in if b && not (fa `elem` bs)- then ( e, Map.insert fa owrt m, fa:u, fa:bs)- else (((Seq.<|)) (DupRule nt con field attr2 attr) e, m, fa:u, bs)- Nothing -> ( e, Map.insert fa owrt m, u, fa:bs)- else (((Seq.<|)) (SuperfluousRule nt con field attr) e, m, fa:u, bs)- _ -> (((Seq.<|)) (UndefChild nt con field) e, m, fa:u, bs )-- in fst (foldr checkRule (([],Seq.empty),Map.empty) rs)--checkRuleNames :: NontermIdent -> ConstructorIdent -> [RuleInfo] -> Seq Error-checkRuleNames nt con- = fst . foldr checkRule (Seq.empty, Set.empty)- where- checkRule (Just nm,_,_,_,_,_) (errs, nms)- | nm `Set.member` nms = (DupRuleName nt con nm Seq.<| errs, nms)- | otherwise = (errs, Set.insert nm nms)- checkRule (Nothing,_,_,_,_,_) inp = inp--checkSigs :: NontermIdent -> ConstructorIdent -> [SigInfo] -> SigsAndErrors-checkSigs nt con sis - = let checkSig (ide,typ) (sigs,errs)- = if ide `elem` map (\(TypeSig n t)-> n) sigs- then (sigs, ((Seq.<|)) (DupSig nt con ide) errs)- -- else if not (ide `elem` locattrdefs)- -- then (sigs, ((Seq.<|)) (SupSig nt con ide) errs)- else (TypeSig ide typ:sigs, errs)- in foldr checkSig ([],Seq.empty) sis--checkInsts :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [SigInfo]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [Identifier] -> InstsAndErrors-checkInsts allNts sigMap fieldMap nt con- = foldr (\inst (insts, errs) ->- maybe (insts, Seq.singleton (MissingInstSig nt con inst) >< errs)- (\info@(k, NT nm _) ->- case findInst k insts of- Just k' -> (insts, Seq.singleton (DupChild nt con k k') >< errs)- Nothing -> case nm `Set.member` allNts of- True -> (info : insts, errs)- False | take 2 (getName nm) == "T_" -> let nm' = Ident (drop 2 (getName nm)) (getPos nm)- in case nm' `Set.member` allNts of- True -> (info : insts, errs)- False -> (insts, Seq.singleton (UndefNont nm') >< errs)- | otherwise -> (insts, Seq.singleton (UndefNont nm) >< errs)- ) - $ findSig inst- ) ([], Seq.empty)- where- sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt sigMap)- - findSig name- = do tp@(NT _ _) <- lookup name sigs- return (name, tp)- - findInst _ [] = Nothing- findInst k ((k', _): r)- | k == k' = Just k'- | otherwise = findInst k r--checkUniques :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [UniqueInfo] -> UniquesAndErrors-checkUniques allAttrs nt con uniques- = let checkUnique (ident,ref) (us,errs)- = if ident `Map.member` us- then (us, ((Seq.<|)) (DupUnique nt con ident) errs)- else if Map.member ref inhs && Map.member ref syns- then (Map.insert ident ref us, errs)- else (us, ((Seq.<|)) (MissingUnique nt ref) errs)-- (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs- in foldr checkUnique (Map.empty, Seq.empty) uniques--checkAugments :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [AugmentInfo] -> AugmentsAndErrors-checkAugments allAttrs nt con augments- = let checkAugment (ident,expr) (as,errs)- = if ident `Map.member` as- then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs)- else if Map.member ident syns- then (Map.insert ident [expr] as, errs)- else (as, ((Seq.<|)) (MissingSyn nt ident) errs)-- (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs- in foldr checkAugment (Map.empty, Seq.empty) augments--checkArounds :: Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [AroundInfo] -> AroundsAndErrors-checkArounds fieldMap nt con arounds- = let checkAround (ident,expr) (as,errs)- = if ident `Map.member` as- then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs)- else case lookup ident fields of- Just (NT _ _) -> (Map.insert ident [expr] as, errs)- _ -> (as, ((Seq.<|)) (UndefChild nt con ident) errs)- fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap)- in foldr checkAround (Map.empty, Seq.empty) arounds--checkMerges :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [MergeInfo] -> MergesAndErrors-checkMerges allNts allInsts fieldMap nt con merges- = let checkMerge (target,nt,sources,expr) (m,errs)- = let fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap)- insts = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts)- allFields = insts ++ map fst fields -- note: sources of merge may not contain a target (for simplicity)- in if target `Map.member` m -- check for duplicate with self- then (m, DupChild nt con target (fst $ Map.elemAt (Map.findIndex target m) m) Seq.<| errs)- else if target `elem` allFields- then (m, DupChild nt con target (head $ filter (== target) allFields) Seq.<| errs)- else let missing = filter (\s -> not (s `elem` allFields)) sources- in if null missing- then if nt `Set.member` allNts -- check if the nonterm is defined- then (Map.insert target (nt, sources, expr) m, errs) -- all ok..- else (m, UndefNont nt Seq.<| errs)- else (m, (Seq.fromList $ map (UndefChild nt con) missing) Seq.>< errs)- in foldr checkMerge (Map.empty, Seq.empty) merges--unionunionplusplus = Map.unionWith (Map.unionWith (++))-{-# LINE 269 "../src-derived/Transform.hs" #-}--{-# LINE 493 "Transform.ag" #-}--mkUniqueRules :: Options -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Attributes,Attributes) -> NontermIdent -> ConstructorIdent -> Map Identifier Identifier -> [Rule]-mkUniqueRules opts allFields allInsts allAttrDecls nt con usMap- = map apply groups- where- fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allFields)- ++ Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts)- -- may have duplicates-- groups = Map.assocs $ Map.foldrWithKey (\i r m -> Map.insertWith (++) r [i] m) Map.empty usMap- apply (ref,us) = mkRule ref (findOutField ref) us- findOutField ref = case [ chld | (chld,NT tp _) <- fields, tp `hasSyn` ref] of- [] -> _LHS- (x:_) -> x- hasSyn tp ref = Map.member ref $ snd $ Map.findWithDefault (Map.empty,Map.empty) tp allAttrDecls- mkRule ref outFld locAttrs- = let pat = Product noPos (attr outFld ref : [attr _LOC u | u <- locAttrs ])- rhs = Expression noPos $ wrap ref $ foldr gencase (finalout locAttrs) locAttrs- -- [HsToken ("mkUniques" ++ show (length locAttrs) ++ " ") noPos, AGField _LHS ref noPos Nothing]- in Rule Nothing pat rhs False "-- generated by the unique rule mechanism." False- attr fld a = Alias fld a (Underscore noPos) []- gencase nm outp- = h ("case " ++ uniqueDispenser opts ++ " __cont of { (__cont, " ++ getName nm ++ ") -> ") ++ outp ++ h "}"- h s = [HsToken s noPos]- finalout us = h ("(__cont, " ++ concat (intersperse "," (map getName us)) ++ ")")- wrap ref inp = h "case " ++ [AGField _LHS ref noPos Nothing] ++ h " of { __cont | __cont `seq` True -> " ++ inp ++ h "}"-{-# LINE 298 "../src-derived/Transform.hs" #-}--{-# LINE 691 "Transform.ag" #-}--flattenDatas :: DataTypes -> Map NontermIdent (Set NontermIdent)-flattenDatas ds = Map.map flatten ds- where flatten cs = Set.fromList [ nt | (_,NT nt _) <- concatMap snd (Map.toList cs)]--reachableFrom :: Map NontermIdent (Set NontermIdent) -> Set NontermIdent -> Set NontermIdent-reachableFrom table nts = reach nts- where reach nts = let nts' = Set.unions (nts : [ ns | nt <- Set.toList nts- , let ns = Map.findWithDefault Set.empty nt table ])- in if Set.size nts' > Set.size nts- then reach nts'- else nts-invert :: Map NontermIdent (Set NontermIdent) -> Map NontermIdent (Set NontermIdent)-invert m = foldr inv Map.empty (Map.toList m)- where inv (x,ns) m = fold (\n m -> Map.insertWith Set.union n (Set.singleton x) m) m ns--path :: Map NontermIdent (Set NontermIdent) -> NontermIdent -> NontermIdent -> Set NontermIdent-path table from to = let children = Map.findWithDefault Set.empty from table- forward = reachableFrom table children- backward = reachableFrom (invert table)- (Set.singleton to)- in Set.intersection forward backward-{-# LINE 323 "../src-derived/Transform.hs" #-}--{-# LINE 801 "Transform.ag" #-}--pragmaMapUnion :: PragmaMap -> PragmaMap -> PragmaMap-pragmaMapUnion = Map.unionWith (Map.unionWith Set.union)--pragmaMapSingle :: NontermIdent -> ConstructorIdent -> Set Identifier -> PragmaMap-pragmaMapSingle nt con nms = Map.singleton nt (Map.singleton con nms)-{-# LINE 332 "../src-derived/Transform.hs" #-}--{-# LINE 833 "Transform.ag" #-}--orderMapUnion :: AttrOrderMap -> AttrOrderMap -> AttrOrderMap-orderMapUnion = Map.unionWith (Map.unionWith Set.union)--orderMapSingle :: NontermIdent -> ConstructorIdent -> Set Dependency -> AttrOrderMap-orderMapSingle nt con deps = Map.singleton nt (Map.singleton con deps)-{-# LINE 341 "../src-derived/Transform.hs" #-}--{-# LINE 859 "Transform.ag" #-}--mergeParams :: ParamMap -> ParamMap -> ParamMap-mergeParams = Map.unionWith (++)-{-# LINE 347 "../src-derived/Transform.hs" #-}--{-# LINE 882 "Transform.ag" #-}--mergeCtx :: ContextMap -> ContextMap -> ContextMap-mergeCtx- = Map.unionWith nubconcat- where nubconcat a b = nub (a ++ b)-{-# LINE 355 "../src-derived/Transform.hs" #-}--{-# LINE 895 "Transform.ag" #-}--mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1)-{-# LINE 360 "../src-derived/Transform.hs" #-}--{-# LINE 906 "Transform.ag" #-}--merge x y = foldr f y (Map.toList x)- where f ~(k,v) m = Map.insertWith (Map.union) k v m-{-# LINE 366 "../src-derived/Transform.hs" #-}--{-# LINE 947 "Transform.ag" #-}--checkAttrs allFields nts inherited synthesized decls = foldErrors check decls nts where- check nt decls | not (nt `Map.member` allFields) = (decls,Seq.singleton(UndefNont nt))- | otherwise = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt decls- (inh',einh) = checkDuplicates (DupInhAttr nt) inherited inh- (syn',esyn) = checkDuplicates (DupSynAttr nt) synthesized syn- in (Map.insert nt (inh',syn') decls,einh >< esyn)-{-# LINE 376 "../src-derived/Transform.hs" #-}--{-# LINE 958 "Transform.ag" #-}--addSelf name atMap = let (eInh,eSyn) = Map.findWithDefault(Map.empty,Map.empty) name atMap- in Map.insert name (eInh, Map.insert (Ident "self" noPos) (NT _SELF []) eSyn)atMap-{-# LINE 382 "../src-derived/Transform.hs" #-}--{-# LINE 1099 "Transform.ag" #-}--makeType :: Set NontermIdent -> Type -> Type-makeType nts tp@(NT x _) | x == _SELF = tp- | Set.member x nts = tp- | otherwise = Haskell (typeToHaskellString Nothing [] tp)-makeType _ tp = tp-{-# LINE 391 "../src-derived/Transform.hs" #-}--{-# LINE 1106 "Transform.ag" #-}--constructGrammar :: Set NontermIdent- -> ParamMap- -> DataTypes- -> Map NontermIdent (Attributes, Attributes)- -> Map NontermIdent (Map Identifier (String, String, String))- -> Derivings- -> Set NontermIdent- -> Map NontermIdent (Map ConstructorIdent [Rule])- -> Map NontermIdent (Map ConstructorIdent [TypeSig])- -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)])- -> TypeSyns- -> PragmaMap- -> AttrOrderMap- -> ContextMap- -> UniqueMap- -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))- -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))- -> Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))- -> Grammar--constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap mergeMap =- let gr = [ (nt,Map.toList alts) | (nt,alts) <- Map.toList gram]- nonts = map nont gr- nont (nt,alts) = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt attrs- rmap = Map.findWithDefault Map.empty nt allrules- tsmap = Map.findWithDefault Map.empty nt tsigs- instsmap = Map.findWithDefault Map.empty nt allinsts- params = Map.findWithDefault [] nt ntParams- mergemap = Map.findWithDefault Map.empty nt mergeMap- alt (con,flds) =- let rules = maybe [] id (Map.lookup con rmap)- tsigs = maybe [] id (Map.lookup con tsmap)- insts = maybe [] id (Map.lookup con instsmap)- merges = [ (n, NT t []) | (n, (t, _, _)) <- Map.assocs $ maybe Map.empty id (Map.lookup con mergemap) ]-- -- important: keep order of children- cldrn = map child (flds ++ filter (not . existsAsField) insts ++ merges)- child (nm, tp) =- let tpI = if existsAsInst nm- then fromJust $ lookup nm insts- else tp- (inh,syn) = case tpI of- NT nt _ -> let nt' = maybe nt id (deforestedNt nt)- in Map.findWithDefault (Map.empty,Map.empty) nt' attrs- _ -> (Map.empty,Map.empty)- virt = if existsAsInst nm- then case lookup nm flds of- Just tp' -> Just (Just tp')- Nothing -> Just Nothing- else if existsAsMerge nm- then (Just Nothing)- else Nothing- in Child nm tpI inh syn virt- existsAsInst nm = maybe False (const True) (lookup nm insts)- existsAsField (nm,_) = maybe False (const True) (lookup nm flds)- existsAsMerge nm = maybe False (const True) (lookup nm merges)- in Production con cldrn rules tsigs- in Nonterminal nt params inh syn (map alt alts)- in Grammar tsyns uses derivings wrappers nonts pragmaMap orderMap ntParams contextMap uniqueMap augmentsMap aroundsMap mergeMap-{-# LINE 454 "../src-derived/Transform.hs" #-}--{-# LINE 1168 "Transform.ag" #-}--mapUnionWithSetUnion = Map.unionWith Set.union-mapUnionWithPlusPlus = Map.unionWith (++)-{-# LINE 460 "../src-derived/Transform.hs" #-}--- AG -----------------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- blocks : Blocks- errors : Seq Error- moduleDecl : Maybe (String,String,String)- output : Grammar- pragmas : Options -> Options- alternatives:- alternative AG:- child elems : Elems - visit 0:- local allFields : _- local allConstrs : _- local allRules : _- local allSigs : _- local allInsts : _- local allUniques : _- local allAugments : _- local allArounds : _- local allMerges : _- local augmentSigs : _- local allRulesErrs : _- local allNamesErrs : _- local allSigsErrs : _- local allInstsErrs : _- local allUniquesErrs : _- local allAugmentErrs : _- local allAroundsErrs : _- local allMergesErrs : _- local checkedRulesPre : _- local checkedSigs : _- local checkedInsts : _- local checkedUniques : _- local checkedAugments : _- local checkedArounds : _- local checkedRules : _- local checkedMerges : _- local errs1 : _- local errs2 : _- local errs3 : _- local errs4 : _- local errs5 : _- local errs6 : _- local errs7 : _- local errs8 : _- local errs9 : _- local errs10 : _- local errs11 : _- local allNonterminals : _- local allAttrDecls : _--}--- cata-sem_AG :: AG ->- T_AG -sem_AG (AG _elems ) =- (sem_AG_AG (sem_Elems _elems ) )--- semantic domain-newtype T_AG = T_AG (Options ->- ( Blocks,(Seq Error),(Maybe (String,String,String)),Grammar,(Options -> Options)))-data Inh_AG = Inh_AG {options_Inh_AG :: !(Options)}-data Syn_AG = Syn_AG {blocks_Syn_AG :: !(Blocks),errors_Syn_AG :: !((Seq Error)),moduleDecl_Syn_AG :: !((Maybe (String,String,String))),output_Syn_AG :: !(Grammar),pragmas_Syn_AG :: !((Options -> Options))}-wrap_AG :: T_AG ->- Inh_AG ->- Syn_AG -wrap_AG (T_AG sem ) (Inh_AG _lhsIoptions ) =- (let ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas) = sem _lhsIoptions - in (Syn_AG _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas ))-sem_AG_AG :: T_Elems ->- T_AG -sem_AG_AG (T_Elems elems_ ) =- (T_AG (\ _lhsIoptions ->- (let _lhsOoutput :: Grammar- _lhsOerrors :: (Seq Error)- _elemsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _elemsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _elemsOdefinedSets :: DefinedSets- _elemsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOblocks :: Blocks- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _elemsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _elemsOallFields :: DataTypes- _elemsOallNonterminals :: (Set NontermIdent)- _elemsOoptions :: Options- _elemsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _elemsIattrOrderCollect :: AttrOrderMap- _elemsIblocks :: Blocks- _elemsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _elemsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _elemsIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _elemsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _elemsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _elemsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _elemsIcollectedNames :: (Set Identifier)- _elemsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _elemsIcollectedSetNames :: (Set Identifier)- _elemsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _elemsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _elemsIctxCollect :: ContextMap- _elemsIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _elemsIderivings :: Derivings- _elemsIerrors :: (Seq Error)- _elemsImoduleDecl :: (Maybe (String,String,String))- _elemsIparamsCollect :: ParamMap- _elemsIpragmas :: (Options -> Options)- _elemsIsemPragmasCollect :: PragmaMap- _elemsItypeSyns :: TypeSyns- _elemsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _elemsIwrappers :: (Set NontermIdent)- -- "Transform.ag"(line 52, column 8)- _lhsOoutput =- ({-# LINE 52 "Transform.ag" #-}- constructGrammar _allNonterminals- _elemsIparamsCollect- _allFields- _allAttrDecls- _elemsIuseMap- _elemsIderivings- (if wrappers _lhsIoptions then _allNonterminals else _elemsIwrappers)- _checkedRules- _checkedSigs- _checkedInsts- _elemsItypeSyns- _elemsIsemPragmasCollect- _elemsIattrOrderCollect- _elemsIctxCollect- _checkedUniques- _checkedAugments- _checkedArounds- _checkedMerges- {-# LINE 595 "Transform.hs" #-}- )- -- "Transform.ag"(line 253, column 10)- _allFields =- ({-# LINE 253 "Transform.ag" #-}- let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm)- in foldr f (Map.empty) _elemsIcollectedFields- {-# LINE 602 "Transform.hs" #-}- )- -- "Transform.ag"(line 256, column 10)- _allConstrs =- ({-# LINE 256 "Transform.ag" #-}- let f (nt,con,_) = Map.insertWith (++) nt [con]- in foldr f (Map.empty) _elemsIcollectedFields- {-# LINE 609 "Transform.hs" #-}- )- -- "Transform.ag"(line 259, column 10)- _allRules =- ({-# LINE 259 "Transform.ag" #-}- let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r])- in foldr f (Map.empty) _elemsIcollectedRules- {-# LINE 616 "Transform.hs" #-}- )- -- "Transform.ag"(line 262, column 10)- _allSigs =- ({-# LINE 262 "Transform.ag" #-}- let f (nt,con,t) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [t])- typeof nt r = Map.findWithDefault (Haskell "<unknown>") r $ fst $ Map.findWithDefault (Map.empty,Map.empty) nt _allAttrDecls- in foldr f (Map.empty) ( _elemsIcollectedSigs- ++ [ (nt, con, (ident,typeof nt ref)) | (nt, con, us) <- _elemsIcollectedUniques, (ident,ref) <- us ]- )- {-# LINE 626 "Transform.hs" #-}- )- -- "Transform.ag"(line 268, column 10)- _allInsts =- ({-# LINE 268 "Transform.ag" #-}- let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is)- in foldr f (Map.empty) _elemsIcollectedInsts- {-# LINE 633 "Transform.hs" #-}- )- -- "Transform.ag"(line 271, column 10)- _allUniques =- ({-# LINE 271 "Transform.ag" #-}- let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us)- in foldr f (Map.empty) _elemsIcollectedUniques- {-# LINE 640 "Transform.hs" #-}- )- -- "Transform.ag"(line 273, column 10)- _allAugments =- ({-# LINE 273 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedAugments- {-# LINE 647 "Transform.hs" #-}- )- -- "Transform.ag"(line 275, column 10)- _allArounds =- ({-# LINE 275 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedArounds- {-# LINE 654 "Transform.hs" #-}- )- -- "Transform.ag"(line 277, column 10)- _allMerges =- ({-# LINE 277 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedMerges- {-# LINE 661 "Transform.hs" #-}- )- -- "Transform.ag"(line 280, column 10)- _augmentSigs =- ({-# LINE 280 "Transform.ag" #-}- let gen mp = []- in Map.map (Map.map gen) _allAugments- {-# LINE 668 "Transform.hs" #-}- )- -- "Transform.ag"(line 283, column 10)- _allRulesErrs =- ({-# LINE 283 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs _allMerges )) _allRules- {-# LINE 674 "Transform.hs" #-}- )- -- "Transform.ag"(line 284, column 10)- _allNamesErrs =- ({-# LINE 284 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules- {-# LINE 680 "Transform.hs" #-}- )- -- "Transform.ag"(line 285, column 10)- _allSigsErrs =- ({-# LINE 285 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs- {-# LINE 686 "Transform.hs" #-}- )- -- "Transform.ag"(line 286, column 10)- _allInstsErrs =- ({-# LINE 286 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts- {-# LINE 692 "Transform.hs" #-}- )- -- "Transform.ag"(line 287, column 10)- _allUniquesErrs =- ({-# LINE 287 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques- {-# LINE 698 "Transform.hs" #-}- )- -- "Transform.ag"(line 288, column 10)- _allAugmentErrs =- ({-# LINE 288 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments- {-# LINE 704 "Transform.hs" #-}- )- -- "Transform.ag"(line 289, column 10)- _allAroundsErrs =- ({-# LINE 289 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds- {-# LINE 710 "Transform.hs" #-}- )- -- "Transform.ag"(line 290, column 10)- _allMergesErrs =- ({-# LINE 290 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkMerges _allNonterminals _allInsts _allFields )) _allMerges- {-# LINE 716 "Transform.hs" #-}- )- -- "Transform.ag"(line 292, column 10)- _checkedRulesPre =- ({-# LINE 292 "Transform.ag" #-}- Map.map (Map.map fst) _allRulesErrs- {-# LINE 722 "Transform.hs" #-}- )- -- "Transform.ag"(line 293, column 10)- _checkedSigs =- ({-# LINE 293 "Transform.ag" #-}- Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs- {-# LINE 728 "Transform.hs" #-}- )- -- "Transform.ag"(line 294, column 10)- _checkedInsts =- ({-# LINE 294 "Transform.ag" #-}- Map.map (Map.map fst) _allInstsErrs- {-# LINE 734 "Transform.hs" #-}- )- -- "Transform.ag"(line 295, column 10)- _checkedUniques =- ({-# LINE 295 "Transform.ag" #-}- Map.map (Map.map fst) _allUniquesErrs- {-# LINE 740 "Transform.hs" #-}- )- -- "Transform.ag"(line 296, column 10)- _checkedAugments =- ({-# LINE 296 "Transform.ag" #-}- Map.map (Map.map fst) _allAugmentErrs- {-# LINE 746 "Transform.hs" #-}- )- -- "Transform.ag"(line 297, column 10)- _checkedArounds =- ({-# LINE 297 "Transform.ag" #-}- Map.map (Map.map fst) _allAroundsErrs- {-# LINE 752 "Transform.hs" #-}- )- -- "Transform.ag"(line 298, column 10)- _checkedRules =- ({-# LINE 298 "Transform.ag" #-}- Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques )- {-# LINE 758 "Transform.hs" #-}- )- -- "Transform.ag"(line 299, column 10)- _checkedMerges =- ({-# LINE 299 "Transform.ag" #-}- Map.map (Map.map fst) _allMergesErrs- {-# LINE 764 "Transform.hs" #-}- )- -- "Transform.ag"(line 301, column 10)- _errs1 =- ({-# LINE 301 "Transform.ag" #-}- let f = checkForDuplicates (DupSynonym)- in Seq.fromList . f . map fst $ _elemsItypeSyns- {-# LINE 771 "Transform.hs" #-}- )- -- "Transform.ag"(line 304, column 10)- _errs2 =- ({-# LINE 304 "Transform.ag" #-}- let g nt (con,fm) = checkForDuplicates (DupChild nt con) (map fst fm)- f (nt,cfm) = concat . map (g nt) . Map.toList $ cfm- in Seq.fromList . concat . map f . Map.toList $ _allFields- {-# LINE 779 "Transform.hs" #-}- )- -- "Transform.ag"(line 308, column 10)- _errs3 =- ({-# LINE 308 "Transform.ag" #-}- let f (nt,cons) = checkForDuplicates (DupAlt nt) cons- in Seq.empty- {-# LINE 786 "Transform.hs" #-}- )- -- "Transform.ag"(line 312, column 10)- _errs4 =- ({-# LINE 312 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allRulesErrs- {-# LINE 793 "Transform.hs" #-}- )- -- "Transform.ag"(line 315, column 10)- _errs5 =- ({-# LINE 315 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allSigsErrs- {-# LINE 800 "Transform.hs" #-}- )- -- "Transform.ag"(line 318, column 10)- _errs6 =- ({-# LINE 318 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allInstsErrs- {-# LINE 807 "Transform.hs" #-}- )- -- "Transform.ag"(line 321, column 10)- _errs7 =- ({-# LINE 321 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allUniquesErrs- {-# LINE 814 "Transform.hs" #-}- )- -- "Transform.ag"(line 324, column 10)- _errs8 =- ({-# LINE 324 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allAugmentErrs- {-# LINE 821 "Transform.hs" #-}- )- -- "Transform.ag"(line 327, column 10)- _errs9 =- ({-# LINE 327 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allAroundsErrs- {-# LINE 828 "Transform.hs" #-}- )- -- "Transform.ag"(line 330, column 10)- _errs10 =- ({-# LINE 330 "Transform.ag" #-}- let f m s = Map.fold ((><)) s m- in Map.fold f Seq.empty _allNamesErrs- {-# LINE 835 "Transform.hs" #-}- )- -- "Transform.ag"(line 333, column 10)- _errs11 =- ({-# LINE 333 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allMergesErrs- {-# LINE 842 "Transform.hs" #-}- )- -- "Transform.ag"(line 336, column 10)- _lhsOerrors =- ({-# LINE 336 "Transform.ag" #-}- _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 >< _errs11- {-# LINE 848 "Transform.hs" #-}- )- -- "Transform.ag"(line 560, column 10)- _allNonterminals =- ({-# LINE 560 "Transform.ag" #-}- _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames- {-# LINE 854 "Transform.hs" #-}- )- -- "Transform.ag"(line 580, column 8)- _elemsOallConstructors =- ({-# LINE 580 "Transform.ag" #-}- _elemsIcollectedConstructorsMap- {-# LINE 860 "Transform.hs" #-}- )- -- "Transform.ag"(line 653, column 8)- _elemsOdefSets =- ({-# LINE 653 "Transform.ag" #-}- Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals ))- {-# LINE 866 "Transform.hs" #-}- )- -- "Transform.ag"(line 654, column 8)- _elemsOdefinedSets =- ({-# LINE 654 "Transform.ag" #-}- Map.map fst _elemsIdefSets- {-# LINE 872 "Transform.hs" #-}- )- -- "Transform.ag"(line 912, column 8)- _elemsOattrDecls =- ({-# LINE 912 "Transform.ag" #-}- Map.empty- {-# LINE 878 "Transform.hs" #-}- )- -- "Transform.ag"(line 965, column 9)- _allAttrDecls =- ({-# LINE 965 "Transform.ag" #-}- if withSelf _lhsIoptions- then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals )- else _elemsIattrDecls- {-# LINE 886 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- _elemsIblocks- {-# LINE 892 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- _elemsImoduleDecl- {-# LINE 898 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- _elemsIpragmas- {-# LINE 904 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallAttrDecls =- ({-# LINE 814 "Transform.ag" #-}- _allAttrDecls- {-# LINE 910 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _allFields- {-# LINE 916 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _allNonterminals- {-# LINE 922 "Transform.hs" #-}- )- -- copy rule (down)- _elemsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 928 "Transform.hs" #-}- )- ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) =- elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets _elemsOoptions - in ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))) )--- Alt ----------------------------------------------------------{-- visit 0:- inherited attributes:- allConstructors : Map NontermIdent (Set ConstructorIdent)- allNonterminals : Set NontermIdent- nts : Set NontermIdent- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- alternatives:- alternative Alt:- child pos : {Pos}- child names : ConstructorSet - child fields : {Fields}--}--- cata-sem_Alt :: Alt ->- T_Alt -sem_Alt (Alt _pos _names _fields ) =- (sem_Alt_Alt _pos (sem_ConstructorSet _names ) _fields )--- semantic domain-newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) ->- (Set NontermIdent) ->- (Set NontermIdent) ->- ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))-data Inh_Alt = Inh_Alt {allConstructors_Inh_Alt :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alt :: !((Set NontermIdent)),nts_Inh_Alt :: !((Set NontermIdent))}-data Syn_Alt = Syn_Alt {collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}-wrap_Alt :: T_Alt ->- Inh_Alt ->- Syn_Alt -wrap_Alt (T_Alt sem ) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =- (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts - in (Syn_Alt _lhsOcollectedConstructorNames _lhsOcollectedFields ))-sem_Alt_Alt :: Pos ->- T_ConstructorSet ->- Fields ->- T_Alt -sem_Alt_Alt pos_ (T_ConstructorSet names_ ) fields_ =- (T_Alt (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _namesIcollectedConstructorNames :: (Set ConstructorIdent)- _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _namesIerrors :: (Seq Error)- -- "Transform.ag"(line 238, column 10)- _lhsOcollectedFields =- ({-# LINE 238 "Transform.ag" #-}- let fieldTable =- [ (attr, makeType _lhsIallNonterminals tp)- | (attr, tp) <- fields_- ]- in [ (nt, con, fieldTable)- | nt <- Set.toList _lhsInts- , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))- ]- {-# LINE 991 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- _namesIcollectedConstructorNames- {-# LINE 997 "Transform.hs" #-}- )- ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) =- names_ - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )--- Alts ---------------------------------------------------------{-- visit 0:- inherited attributes:- allConstructors : Map NontermIdent (Set ConstructorIdent)- allNonterminals : Set NontermIdent- nts : Set NontermIdent- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- alternatives:- alternative Cons:- child hd : Alt - child tl : Alts - alternative Nil:--}--- cata-sem_Alts :: Alts ->- T_Alts -sem_Alts list =- (Prelude.foldr sem_Alts_Cons sem_Alts_Nil (Prelude.map sem_Alt list) )--- semantic domain-newtype T_Alts = T_Alts ((Map NontermIdent (Set ConstructorIdent)) ->- (Set NontermIdent) ->- (Set NontermIdent) ->- ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))-data Inh_Alts = Inh_Alts {allConstructors_Inh_Alts :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alts :: !((Set NontermIdent)),nts_Inh_Alts :: !((Set NontermIdent))}-data Syn_Alts = Syn_Alts {collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}-wrap_Alts :: T_Alts ->- Inh_Alts ->- Syn_Alts -wrap_Alts (T_Alts sem ) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =- (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts - in (Syn_Alts _lhsOcollectedConstructorNames _lhsOcollectedFields ))-sem_Alts_Cons :: T_Alt ->- T_Alts ->- T_Alts -sem_Alts_Cons (T_Alt hd_ ) (T_Alts tl_ ) =- (T_Alts (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _hdOallNonterminals :: (Set NontermIdent)- _hdOnts :: (Set NontermIdent)- _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _tlOallNonterminals :: (Set NontermIdent)- _tlOnts :: (Set NontermIdent)- _hdIcollectedConstructorNames :: (Set ConstructorIdent)- _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _tlIcollectedConstructorNames :: (Set ConstructorIdent)- _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames- {-# LINE 1059 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 1065 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 1071 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1077 "Transform.hs" #-}- )- -- copy rule (down)- _hdOnts =- ({-# LINE 167 "Transform.ag" #-}- _lhsInts- {-# LINE 1083 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 1089 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1095 "Transform.hs" #-}- )- -- copy rule (down)- _tlOnts =- ({-# LINE 167 "Transform.ag" #-}- _lhsInts- {-# LINE 1101 "Transform.hs" #-}- )- ( _hdIcollectedConstructorNames,_hdIcollectedFields) =- hd_ _hdOallConstructors _hdOallNonterminals _hdOnts - ( _tlIcollectedConstructorNames,_tlIcollectedFields) =- tl_ _tlOallConstructors _tlOallNonterminals _tlOnts - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )-sem_Alts_Nil :: T_Alts -sem_Alts_Nil =- (T_Alts (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- Set.empty- {-# LINE 1119 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 1125 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )--- Attrs --------------------------------------------------------{-- visit 0:- inherited attributes:- allFields : DataTypes- allNonterminals : Set NontermIdent- nts : Set NontermIdent- options : Options- chained attribute:- attrDecls : Map NontermIdent (Attributes, Attributes)- synthesized attributes:- errors : Seq Error- useMap : Map NontermIdent (Map Identifier (String,String,String))- alternatives:- alternative Attrs:- child pos : {Pos}- child inh : {AttrNames}- child chn : {AttrNames}- child syn : {AttrNames}- visit 0:- local _tup1 : _- local attrDecls : _- local errors : _- local _tup2 : _- local inherited : _- local synthesized : _- local useMap : _- local errors1 : _--}--- cata-sem_Attrs :: Attrs ->- T_Attrs -sem_Attrs (Attrs _pos _inh _chn _syn ) =- (sem_Attrs_Attrs _pos _inh _chn _syn )--- semantic domain-newtype T_Attrs = T_Attrs (DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Set NontermIdent) ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),(Seq Error),(Map NontermIdent (Map Identifier (String,String,String)))))-data Inh_Attrs = Inh_Attrs {allFields_Inh_Attrs :: !(DataTypes),allNonterminals_Inh_Attrs :: !((Set NontermIdent)),attrDecls_Inh_Attrs :: !((Map NontermIdent (Attributes, Attributes))),nts_Inh_Attrs :: !((Set NontermIdent)),options_Inh_Attrs :: !(Options)}-data Syn_Attrs = Syn_Attrs {attrDecls_Syn_Attrs :: !((Map NontermIdent (Attributes, Attributes))),errors_Syn_Attrs :: !((Seq Error)),useMap_Syn_Attrs :: !((Map NontermIdent (Map Identifier (String,String,String))))}-wrap_Attrs :: T_Attrs ->- Inh_Attrs ->- Syn_Attrs -wrap_Attrs (T_Attrs sem ) (Inh_Attrs _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions ) =- (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions - in (Syn_Attrs _lhsOattrDecls _lhsOerrors _lhsOuseMap ))-sem_Attrs_Attrs :: Pos ->- AttrNames ->- AttrNames ->- AttrNames ->- T_Attrs -sem_Attrs_Attrs pos_ inh_ chn_ syn_ =- (T_Attrs (\ _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsInts- _lhsIoptions ->- (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOerrors :: (Seq Error)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- -- "Transform.ag"(line 920, column 15)- __tup1 =- ({-# LINE 920 "Transform.ag" #-}- checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls- {-# LINE 1195 "Transform.hs" #-}- )- -- "Transform.ag"(line 920, column 15)- (_attrDecls,_) =- ({-# LINE 920 "Transform.ag" #-}- __tup1- {-# LINE 1201 "Transform.hs" #-}- )- -- "Transform.ag"(line 920, column 15)- (_,_errors) =- ({-# LINE 920 "Transform.ag" #-}- __tup1- {-# LINE 1207 "Transform.hs" #-}- )- -- "Transform.ag"(line 922, column 15)- __tup2 =- ({-# LINE 922 "Transform.ag" #-}- let splitAttrs xs = unzip [ ((n,makeType _lhsIallNonterminals t),(n,ud))- | (n,t,ud) <- xs- ]- (inh,_) = splitAttrs inh_- (chn,uses1) = splitAttrs chn_- (syn,uses2) = splitAttrs syn_- isUse (n,(e1,e2,_)) = not (null e1 || null e2)- in (inh++chn,chn++syn, Map.fromList (Prelude.filter isUse (uses1++uses2)))- {-# LINE 1220 "Transform.hs" #-}- )- -- "Transform.ag"(line 922, column 15)- (_inherited,_,_) =- ({-# LINE 922 "Transform.ag" #-}- __tup2- {-# LINE 1226 "Transform.hs" #-}- )- -- "Transform.ag"(line 922, column 15)- (_,_synthesized,_) =- ({-# LINE 922 "Transform.ag" #-}- __tup2- {-# LINE 1232 "Transform.hs" #-}- )- -- "Transform.ag"(line 922, column 15)- (_,_,_useMap) =- ({-# LINE 922 "Transform.ag" #-}- __tup2- {-# LINE 1238 "Transform.hs" #-}- )- -- "Transform.ag"(line 930, column 11)- _lhsOuseMap =- ({-# LINE 930 "Transform.ag" #-}- Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap))- {-# LINE 1244 "Transform.hs" #-}- )- -- "Transform.ag"(line 932, column 11)- _errors1 =- ({-# LINE 932 "Transform.ag" #-}- if checkParseTy _lhsIoptions- then let attrs = inh_ ++ syn_ ++ chn_- items = map (\(ident,tp,_) -> (getPos ident, tp)) attrs- errs = map check items- check (pos,Haskell s) =- let exp = Expression pos tks- tks = [tk]- tk = HsToken s pos- in Seq.fromList $ checkTy exp- check _ = Seq.empty- in foldr (Seq.><) Seq.empty errs- else Seq.empty- {-# LINE 1261 "Transform.hs" #-}- )- -- "Transform.ag"(line 944, column 11)- _lhsOerrors =- ({-# LINE 944 "Transform.ag" #-}- _errors Seq.>< _errors1- {-# LINE 1267 "Transform.hs" #-}- )- -- copy rule (from local)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _attrDecls- {-# LINE 1273 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap))) )--- ConstructorSet -----------------------------------------------{-- visit 0:- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- constructors : (Set ConstructorIdent->Set ConstructorIdent)- errors : Seq Error- alternatives:- alternative CAll:- alternative CDifference:- child set1 : ConstructorSet - child set2 : ConstructorSet - alternative CName:- child name : {ConstructorIdent}- alternative CUnion:- child set1 : ConstructorSet - child set2 : ConstructorSet --}--- cata-sem_ConstructorSet :: ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet (CAll ) =- (sem_ConstructorSet_CAll )-sem_ConstructorSet (CDifference _set1 _set2 ) =- (sem_ConstructorSet_CDifference (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )-sem_ConstructorSet (CName _name ) =- (sem_ConstructorSet_CName _name )-sem_ConstructorSet (CUnion _set1 _set2 ) =- (sem_ConstructorSet_CUnion (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )--- semantic domain-newtype T_ConstructorSet = T_ConstructorSet (( (Set ConstructorIdent),((Set ConstructorIdent->Set ConstructorIdent)),(Seq Error)))-data Inh_ConstructorSet = Inh_ConstructorSet {}-data Syn_ConstructorSet = Syn_ConstructorSet {collectedConstructorNames_Syn_ConstructorSet :: !((Set ConstructorIdent)),constructors_Syn_ConstructorSet :: !(((Set ConstructorIdent->Set ConstructorIdent))),errors_Syn_ConstructorSet :: !((Seq Error))}-wrap_ConstructorSet :: T_ConstructorSet ->- Inh_ConstructorSet ->- Syn_ConstructorSet -wrap_ConstructorSet (T_ConstructorSet sem ) (Inh_ConstructorSet ) =- (let ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors) = sem - in (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors ))-sem_ConstructorSet_CAll :: T_ConstructorSet -sem_ConstructorSet_CAll =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 724, column 17)- _lhsOconstructors =- ({-# LINE 724 "Transform.ag" #-}- \ds -> ds- {-# LINE 1324 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- Set.empty- {-# LINE 1330 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 1336 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CDifference :: T_ConstructorSet ->- T_ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet_CDifference (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- _set1IcollectedConstructorNames :: (Set ConstructorIdent)- _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set1Ierrors :: (Seq Error)- _set2IcollectedConstructorNames :: (Set ConstructorIdent)- _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set2Ierrors :: (Seq Error)- -- "Transform.ag"(line 723, column 17)- _lhsOconstructors =- ({-# LINE 723 "Transform.ag" #-}- \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds- {-# LINE 1356 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames- {-# LINE 1362 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 1368 "Transform.hs" #-}- )- ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =- set1_ - ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =- set2_ - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CName :: ConstructorIdent ->- T_ConstructorSet -sem_ConstructorSet_CName name_ =- (T_ConstructorSet (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 568, column 11)- _lhsOcollectedConstructorNames =- ({-# LINE 568 "Transform.ag" #-}- Set.singleton name_- {-# LINE 1385 "Transform.hs" #-}- )- -- "Transform.ag"(line 721, column 17)- _lhsOconstructors =- ({-# LINE 721 "Transform.ag" #-}- \ds -> Set.singleton name_- {-# LINE 1391 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 1397 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CUnion :: T_ConstructorSet ->- T_ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet_CUnion (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- _set1IcollectedConstructorNames :: (Set ConstructorIdent)- _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set1Ierrors :: (Seq Error)- _set2IcollectedConstructorNames :: (Set ConstructorIdent)- _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set2Ierrors :: (Seq Error)- -- "Transform.ag"(line 722, column 17)- _lhsOconstructors =- ({-# LINE 722 "Transform.ag" #-}- \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds- {-# LINE 1417 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames- {-# LINE 1423 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 1429 "Transform.hs" #-}- )- ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =- set1_ - ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =- set2_ - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )--- Elem ---------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allConstructors : Map NontermIdent (Set ConstructorIdent)- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- options : Options- chained attributes:- attrDecls : Map NontermIdent (Attributes, Attributes)- defSets : Map Identifier (Set NontermIdent,Set Identifier)- synthesized attributes:- attrOrderCollect : AttrOrderMap- blocks : Blocks- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedNames : Set Identifier- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSetNames : Set Identifier- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- ctxCollect : ContextMap- derivings : Derivings- errors : Seq Error- moduleDecl : Maybe (String,String,String)- paramsCollect : ParamMap- pragmas : Options -> Options- semPragmasCollect : PragmaMap- typeSyns : TypeSyns- useMap : Map NontermIdent (Map Identifier (String,String,String))- wrappers : Set NontermIdent- alternatives:- alternative Attr:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child attrs : Attrs - alternative Data:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child params : {[Identifier]}- child attrs : Attrs - child alts : Alts - child ext : {Bool}- alternative Deriving:- child pos : {Pos}- child set : NontSet - child classes : {[NontermIdent]}- alternative Module:- child pos : {Pos}- child name : {String}- child exports : {String}- child imports : {String}- alternative Pragma:- child pos : {Pos}- child names : {[NontermIdent]}- alternative Sem:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child attrs : Attrs - child alts : SemAlts - alternative Set:- child pos : {Pos}- child name : {NontermIdent}- child merge : {Bool}- child set : NontSet - visit 0:- local _tup3 : _- local defSets2 : _- local errs : _- alternative Txt:- child pos : {Pos}- child name : {Identifier}- child mbNt : {Maybe NontermIdent}- child lines : {[String]}- visit 0:- local blockInfo : _- local blockValue : _- alternative Type:- child pos : {Pos}- child ctx : {ClassContext}- child name : {NontermIdent}- child params : {[Identifier]}- child type : {ComplexType}- visit 0:- local expanded : _- local argType : _- alternative Wrapper:- child pos : {Pos}- child set : NontSet --}--- cata-sem_Elem :: Elem ->- T_Elem -sem_Elem (Attr _pos _ctx _names _attrs ) =- (sem_Elem_Attr _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) )-sem_Elem (Data _pos _ctx _names _params _attrs _alts _ext ) =- (sem_Elem_Data _pos _ctx (sem_NontSet _names ) _params (sem_Attrs _attrs ) (sem_Alts _alts ) _ext )-sem_Elem (Deriving _pos _set _classes ) =- (sem_Elem_Deriving _pos (sem_NontSet _set ) _classes )-sem_Elem (Module _pos _name _exports _imports ) =- (sem_Elem_Module _pos _name _exports _imports )-sem_Elem (Pragma _pos _names ) =- (sem_Elem_Pragma _pos _names )-sem_Elem (Sem _pos _ctx _names _attrs _alts ) =- (sem_Elem_Sem _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) (sem_SemAlts _alts ) )-sem_Elem (Set _pos _name _merge _set ) =- (sem_Elem_Set _pos _name _merge (sem_NontSet _set ) )-sem_Elem (Txt _pos _name _mbNt _lines ) =- (sem_Elem_Txt _pos _name _mbNt _lines )-sem_Elem (Type _pos _ctx _name _params _type ) =- (sem_Elem_Type _pos _ctx _name _params _type )-sem_Elem (Wrapper _pos _set ) =- (sem_Elem_Wrapper _pos (sem_NontSet _set ) )--- semantic domain-newtype T_Elem = T_Elem ((Map NontermIdent (Attributes, Attributes)) ->- (Map NontermIdent (Set ConstructorIdent)) ->- DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map Identifier (Set NontermIdent,Set Identifier)) ->- DefinedSets ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))-data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elem :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elem :: !(DataTypes),allNonterminals_Inh_Elem :: !((Set NontermIdent)),attrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elem :: !(DefinedSets),options_Inh_Elem :: !(Options)}-data Syn_Elem = Syn_Elem {attrDecls_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elem :: !(AttrOrderMap),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elem :: !((Set Identifier)),collectedRules_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elem :: !((Set Identifier)),collectedSigs_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elem :: !(ContextMap),defSets_Syn_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elem :: !(Derivings),errors_Syn_Elem :: !((Seq Error)),moduleDecl_Syn_Elem :: !((Maybe (String,String,String))),paramsCollect_Syn_Elem :: !(ParamMap),pragmas_Syn_Elem :: !((Options -> Options)),semPragmasCollect_Syn_Elem :: !(PragmaMap),typeSyns_Syn_Elem :: !(TypeSyns),useMap_Syn_Elem :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elem :: !((Set NontermIdent))}-wrap_Elem :: T_Elem ->- Inh_Elem ->- Syn_Elem -wrap_Elem (T_Elem sem ) (Inh_Elem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =- (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions - in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))-sem_Elem_Attr :: Pos ->- ClassContext ->- T_NontSet ->- T_Attrs ->- T_Elem -sem_Elem_Attr pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsOoptions :: Options- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- -- "Transform.ag"(line 872, column 7)- _lhsOctxCollect =- ({-# LINE 872 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 1635 "Transform.hs" #-}- )- -- "Transform.ag"(line 916, column 10)- _attrsOnts =- ({-# LINE 916 "Transform.ag" #-}- _namesInontSet- {-# LINE 1641 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 1647 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 1653 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 1659 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 1665 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 1671 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 1677 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 1683 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 1689 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 1695 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 1701 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 1707 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 1713 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 1719 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 1725 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors- {-# LINE 1731 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 1737 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 1743 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 1749 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 1755 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 1761 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 1767 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 1773 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 1779 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 1785 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 1791 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1797 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 1803 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 1809 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1815 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 1821 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 1827 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Data :: Pos ->- ClassContext ->- T_NontSet ->- ([Identifier]) ->- T_Attrs ->- T_Alts ->- Bool ->- T_Elem -sem_Elem_Data pos_ ctx_ (T_NontSet names_ ) params_ (T_Attrs attrs_ ) (T_Alts alts_ ) ext_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _altsOnts :: (Set NontermIdent)- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOparamsCollect :: ParamMap- _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsOoptions :: Options- _altsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _altsOallNonterminals :: (Set NontermIdent)- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _altsIcollectedConstructorNames :: (Set ConstructorIdent)- _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- "Transform.ag"(line 170, column 10)- _altsOnts =- ({-# LINE 170 "Transform.ag" #-}- _namesInontSet- {-# LINE 1899 "Transform.hs" #-}- )- -- "Transform.ag"(line 574, column 11)- _lhsOcollectedConstructorsMap =- ({-# LINE 574 "Transform.ag" #-}- Map.fromList- [ (n, _altsIcollectedConstructorNames)- | n <- Set.toList _namesInontSet- ]- {-# LINE 1908 "Transform.hs" #-}- )- -- "Transform.ag"(line 849, column 7)- _lhsOparamsCollect =- ({-# LINE 849 "Transform.ag" #-}- if null params_- then Map.empty- else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet]- {-# LINE 1916 "Transform.hs" #-}- )- -- "Transform.ag"(line 872, column 7)- _lhsOctxCollect =- ({-# LINE 872 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 1924 "Transform.hs" #-}- )- -- "Transform.ag"(line 915, column 10)- _attrsOnts =- ({-# LINE 915 "Transform.ag" #-}- _namesInontSet- {-# LINE 1930 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 1936 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 1942 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 1948 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 1954 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- _altsIcollectedFields- {-# LINE 1960 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 1966 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 1972 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 1978 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 1984 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 1990 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 1996 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2002 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 2008 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors- {-# LINE 2014 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 2020 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 2026 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 2032 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2038 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 2044 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 2050 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 2056 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2062 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2068 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2074 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2080 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2086 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2092 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2098 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 2104 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 2110 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2116 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - ( _altsIcollectedConstructorNames,_altsIcollectedFields) =- alts_ _altsOallConstructors _altsOallNonterminals _altsOnts - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Deriving :: Pos ->- T_NontSet ->- ([NontermIdent]) ->- T_Elem -sem_Elem_Deriving pos_ (T_NontSet set_ ) classes_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOderivings :: Derivings- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 900, column 14)- _lhsOderivings =- ({-# LINE 900 "Transform.ag" #-}- Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet]- {-# LINE 2173 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 2179 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 2185 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2191 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2197 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 2203 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 2209 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2215 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 2221 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 2227 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2233 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2239 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2245 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2251 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 868, column 34)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- Map.empty- {-# LINE 2257 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _setIerrors- {-# LINE 2263 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 2269 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 2275 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 2281 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 2287 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2293 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 2299 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 2305 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2311 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2317 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2323 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2329 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2335 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Module :: Pos ->- String ->- String ->- String ->- T_Elem -sem_Elem_Module pos_ name_ exports_ imports_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 1093, column 7)- _lhsOmoduleDecl =- ({-# LINE 1093 "Transform.ag" #-}- Just (name_, exports_, imports_)- {-# LINE 2383 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 2389 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 2395 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2401 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2407 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 2413 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 2419 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2425 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 2431 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 2437 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2443 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2449 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2455 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2461 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 868, column 34)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- Map.empty- {-# LINE 2467 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 2473 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 2479 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 2485 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 2491 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 2497 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2503 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 2509 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 2515 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2521 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2527 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Pragma :: Pos ->- ([NontermIdent]) ->- T_Elem -sem_Elem_Pragma pos_ names_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOpragmas :: (Options -> Options)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 742, column 13)- _lhsOpragmas =- ({-# LINE 742 "Transform.ag" #-}- let mk n o = case getName n of- "gencatas" -> o { folds = True }- "nogencatas" -> o { folds = False }- "gendatas" -> o { dataTypes = True }- "nogendatas" -> o { dataTypes = False }- "gensems" -> o { semfuns = True }- "nogensems" -> o { semfuns = False }- "gentypesigs" -> o { typeSigs = True }- "nogentypesigs"-> o { typeSigs = False }- "nocycle" -> o { withCycle = False }- "cycle" -> o { withCycle = True }- "nostrictdata" -> o { strictData = False }- "strictdata" -> o { strictData = True }- "nostrictcase" -> o { strictCases = False }- "strictcase" -> o { strictCases = True }- "strictercase" -> o { strictCases = True, stricterCases = True }- "nostrictwrap" -> o { strictWrap = False }- "strictwrap" -> o { strictWrap = True }- "novisit" -> o { visit = False }- "visit" -> o { visit = True }- "nocase" -> o { cases = False }- "case" -> o { cases = True }- "noseq" -> o { withSeq = False }- "seq" -> o { withSeq = True }- "nounbox" -> o { unbox = False }- "unbox" -> o { unbox = True }- "bangpats" -> o { bangpats = True }- "breadthfirst" -> o { breadthFirst = True }- "breadthfirstStrict" -> o { breadthFirstStrict = True }- "nooptimize" -> o { cases = False , visit = False }- "optimize" -> o { cases = True , visit = True }- "strictsem" -> o { strictSems = True }- "gentraces" -> o { genTraces = True }- "genusetraces" -> o { genUseTraces = True }- "splitsems" -> o { splitSems = True }- "gencostcentres" -> o { genCostCentres = True }- "sepsemmods" -> o { sepSemMods = True }- "genlinepragmas" -> o { genLinePragmas = True }- "newtypes" -> o { newtypes = True }- "nonewtypes" -> o { newtypes = False }- _ -> o- in \o -> foldr mk o names_- {-# LINE 2612 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 2618 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 2624 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2630 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2636 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 2642 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 2648 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2654 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 2660 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 2666 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2672 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2678 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2684 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2690 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 868, column 34)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- Map.empty- {-# LINE 2696 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 2702 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 2708 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 2714 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 2720 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 2726 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2732 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 2738 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 2744 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2750 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2756 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Sem :: Pos ->- ClassContext ->- T_NontSet ->- T_Attrs ->- T_SemAlts ->- T_Elem -sem_Elem_Sem pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) (T_SemAlts alts_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _altsOnts :: (Set NontermIdent)- _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsOoptions :: Options- _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _altsOallFields :: DataTypes- _altsOoptions :: Options- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _altsIattrOrderCollect :: AttrOrderMap- _altsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _altsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _altsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _altsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _altsIerrors :: (Seq Error)- _altsIsemPragmasCollect :: PragmaMap- -- "Transform.ag"(line 171, column 10)- _altsOnts =- ({-# LINE 171 "Transform.ag" #-}- _namesInontSet- {-# LINE 2831 "Transform.hs" #-}- )- -- "Transform.ag"(line 872, column 7)- _lhsOctxCollect =- ({-# LINE 872 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 2839 "Transform.hs" #-}- )- -- "Transform.ag"(line 917, column 10)- _attrsOnts =- ({-# LINE 917 "Transform.ag" #-}- _namesInontSet- {-# LINE 2845 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- _altsIattrOrderCollect- {-# LINE 2851 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 2857 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- _altsIcollectedArounds- {-# LINE 2863 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- _altsIcollectedAugments- {-# LINE 2869 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 2875 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 2881 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- _altsIcollectedInsts- {-# LINE 2887 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- _altsIcollectedMerges- {-# LINE 2893 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 2899 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- _altsIcollectedRules- {-# LINE 2905 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2911 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- _altsIcollectedSigs- {-# LINE 2917 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- _altsIcollectedUniques- {-# LINE 2923 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 2929 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors- {-# LINE 2935 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 2941 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 2947 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 2953 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- _altsIsemPragmasCollect- {-# LINE 2959 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2965 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 2971 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 2977 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 2983 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2989 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2995 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3001 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3007 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3013 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3019 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3025 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 3031 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallAttrDecls =- ({-# LINE 814 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 3037 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3043 "Transform.hs" #-}- )- -- copy rule (down)- _altsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 3049 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) =- alts_ _altsOallAttrDecls _altsOallFields _altsOnts _altsOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Set :: Pos ->- NontermIdent ->- Bool ->- T_NontSet ->- T_Elem -sem_Elem_Set pos_ name_ merge_ (T_NontSet set_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOcollectedSetNames :: (Set Identifier)- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _lhsOerrors :: (Seq Error)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 551, column 10)- _lhsOcollectedSetNames =- ({-# LINE 551 "Transform.ag" #-}- Set.singleton name_- {-# LINE 3107 "Transform.hs" #-}- )- -- "Transform.ag"(line 658, column 13)- __tup3 =- ({-# LINE 658 "Transform.ag" #-}- let allUsedNames = Set.unions [ maybe (Set.singleton n)- snd- (Map.lookup n _lhsIdefSets)- | n <- Set.toList _setIcollectedNames- ]- (nontSet,e1) | Set.member name_ allUsedNames- = (Set.empty, Seq.singleton(CyclicSet name_))- | otherwise = (_setInontSet, Seq.empty)- (res, e2) = let toAdd = (nontSet,Set.insert name_ allUsedNames)- union (a,b) (c,d) = (a `Set.union` c, b `Set.union` d)- in if Set.member name_ _lhsIallNonterminals || not merge_- then checkDuplicate DupSet name_ toAdd _lhsIdefSets- else (Map.insertWith union name_ toAdd _lhsIdefSets, Seq.empty)- in (res, e1 Seq.>< e2)- {-# LINE 3126 "Transform.hs" #-}- )- -- "Transform.ag"(line 658, column 13)- (_defSets2,_) =- ({-# LINE 658 "Transform.ag" #-}- __tup3- {-# LINE 3132 "Transform.hs" #-}- )- -- "Transform.ag"(line 658, column 13)- (_,_errs) =- ({-# LINE 658 "Transform.ag" #-}- __tup3- {-# LINE 3138 "Transform.hs" #-}- )- -- "Transform.ag"(line 672, column 9)- _lhsOdefSets =- ({-# LINE 672 "Transform.ag" #-}- _defSets2- {-# LINE 3144 "Transform.hs" #-}- )- -- "Transform.ag"(line 672, column 9)- _lhsOerrors =- ({-# LINE 673 "Transform.ag" #-}- _errs >< _setIerrors- {-# LINE 3150 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 3156 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 3162 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3168 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3174 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 3180 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 3186 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3192 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 3198 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 3204 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3210 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3216 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3222 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 868, column 34)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- Map.empty- {-# LINE 3228 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 3234 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 3240 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 3246 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 3252 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 3258 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 3264 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 3270 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 3276 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3282 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3288 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3294 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3300 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Txt :: Pos ->- Identifier ->- (Maybe NontermIdent) ->- ([String]) ->- T_Elem -sem_Elem_Txt pos_ name_ mbNt_ lines_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOblocks :: Blocks- _lhsOerrors :: (Seq Error)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 180, column 10)- _blockInfo =- ({-# LINE 180 "Transform.ag" #-}- ( let nm = getName name_- in if nm == "imports"- then BlockImport- else if nm == "optpragmas"- then BlockPragma- else BlockOther- , mbNt_- )- {-# LINE 3355 "Transform.hs" #-}- )- -- "Transform.ag"(line 188, column 10)- _blockValue =- ({-# LINE 188 "Transform.ag" #-}- [(lines_, pos_)]- {-# LINE 3361 "Transform.hs" #-}- )- -- "Transform.ag"(line 189, column 10)- _lhsOblocks =- ({-# LINE 189 "Transform.ag" #-}- Map.singleton _blockInfo _blockValue- {-# LINE 3367 "Transform.hs" #-}- )- -- "Transform.ag"(line 190, column 10)- _lhsOerrors =- ({-# LINE 190 "Transform.ag" #-}- if checkParseBlock _lhsIoptions- then let exp = Expression pos_ tks- tks = [tk]- tk = HsToken (unlines lines_) pos_- in Seq.fromList $ checkBlock $ exp- else Seq.empty- {-# LINE 3378 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 3384 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3390 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3396 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 3402 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 3408 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3414 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 3420 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 3426 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3432 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 3438 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3444 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3450 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 868, column 34)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- Map.empty- {-# LINE 3456 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 3462 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 3468 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 3474 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 3480 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 3486 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 3492 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 3498 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 3504 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3510 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3516 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Type :: Pos ->- ClassContext ->- NontermIdent ->- ([Identifier]) ->- ComplexType ->- T_Elem -sem_Elem_Type pos_ ctx_ name_ params_ type_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedNames :: (Set Identifier)- _lhsOtypeSyns :: TypeSyns- _lhsOparamsCollect :: ParamMap- _lhsOctxCollect :: ContextMap- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 248, column 10)- _lhsOcollectedFields =- ({-# LINE 248 "Transform.ag" #-}- map (\(x,y)->(name_, x, y)) _expanded- {-# LINE 3563 "Transform.hs" #-}- )- -- "Transform.ag"(line 554, column 11)- _lhsOcollectedNames =- ({-# LINE 554 "Transform.ag" #-}- Set.singleton name_- {-# LINE 3569 "Transform.hs" #-}- )- -- "Transform.ag"(line 608, column 11)- _expanded =- ({-# LINE 608 "Transform.ag" #-}- case _argType of- List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp)- ,(Ident "tl" pos_, NT name_ (map getName params_))- ]- )- ,(Ident "Nil" pos_, [])- ]- Maybe tp -> [(Ident "Just" pos_, [(Ident "just" pos_, tp)- ]- )- ,(Ident "Nothing" pos_, [])- ]- Either tp1 tp2 -> [- (Ident "Left" pos_, [(Ident "left" pos_, tp1) ])- , (Ident "Right" pos_, [(Ident "right" pos_, tp2) ])- ]- Map tp1 tp2 -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, tp1)- , (Ident "val" pos_, tp2)- , (Ident "tl" pos_, NT name_ (map getName params_))- ])- , (Ident "Nil" pos_, [])- ]- IntMap tp -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, Haskell "Int")- , (Ident "val" pos_, tp)- , (Ident "tl" pos_, NT name_ (map getName params_))- ])- , (Ident "Nil" pos_, [])- ]- Tuple xs -> [(Ident "Tuple" pos_, xs)]- {-# LINE 3603 "Transform.hs" #-}- )- -- "Transform.ag"(line 637, column 11)- _argType =- ({-# LINE 637 "Transform.ag" #-}- case type_ of- Maybe tp -> Maybe ( makeType _lhsIallNonterminals tp)- Either tp1 tp2 -> Either ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)- List tp -> List ( makeType _lhsIallNonterminals tp)- Tuple xs -> Tuple [(f,makeType _lhsIallNonterminals tp) | (f,tp) <- xs]- Map tp1 tp2 -> Map ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)- IntMap tp -> IntMap ( makeType _lhsIallNonterminals tp)- {-# LINE 3615 "Transform.hs" #-}- )- -- "Transform.ag"(line 644, column 11)- _lhsOtypeSyns =- ({-# LINE 644 "Transform.ag" #-}- [(name_,_argType)]- {-# LINE 3621 "Transform.hs" #-}- )- -- "Transform.ag"(line 855, column 7)- _lhsOparamsCollect =- ({-# LINE 855 "Transform.ag" #-}- if null params_- then Map.empty- else Map.singleton name_ params_- {-# LINE 3629 "Transform.hs" #-}- )- -- "Transform.ag"(line 878, column 7)- _lhsOctxCollect =- ({-# LINE 878 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.singleton name_ ctx_- {-# LINE 3637 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 3643 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 3649 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3655 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3661 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 3667 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3673 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 3679 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3685 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 3691 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3697 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3703 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 3709 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 3715 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 3721 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 3727 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 3733 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 3739 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 3745 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3751 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3757 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Wrapper :: Pos ->- T_NontSet ->- T_Elem -sem_Elem_Wrapper pos_ (T_NontSet set_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOwrappers :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 733, column 13)- _lhsOwrappers =- ({-# LINE 733 "Transform.ag" #-}- _setInontSet- {-# LINE 3807 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 3813 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 3819 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3825 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3831 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 3837 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 3843 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3849 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 3855 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 3861 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3867 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 3873 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3879 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3885 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 868, column 34)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- Map.empty- {-# LINE 3891 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 3897 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _setIerrors- {-# LINE 3903 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 3909 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 3915 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 3921 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 3927 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 3933 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 3939 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3945 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3951 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3957 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3963 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3969 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )--- Elems --------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allConstructors : Map NontermIdent (Set ConstructorIdent)- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- options : Options- chained attributes:- attrDecls : Map NontermIdent (Attributes, Attributes)- defSets : Map Identifier (Set NontermIdent,Set Identifier)- synthesized attributes:- attrOrderCollect : AttrOrderMap- blocks : Blocks- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedNames : Set Identifier- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSetNames : Set Identifier- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- ctxCollect : ContextMap- derivings : Derivings- errors : Seq Error- moduleDecl : Maybe (String,String,String)- paramsCollect : ParamMap- pragmas : Options -> Options- semPragmasCollect : PragmaMap- typeSyns : TypeSyns- useMap : Map NontermIdent (Map Identifier (String,String,String))- wrappers : Set NontermIdent- alternatives:- alternative Cons:- child hd : Elem - child tl : Elems - alternative Nil:--}--- cata-sem_Elems :: Elems ->- T_Elems -sem_Elems list =- (Prelude.foldr sem_Elems_Cons sem_Elems_Nil (Prelude.map sem_Elem list) )--- semantic domain-newtype T_Elems = T_Elems ((Map NontermIdent (Attributes, Attributes)) ->- (Map NontermIdent (Set ConstructorIdent)) ->- DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map Identifier (Set NontermIdent,Set Identifier)) ->- DefinedSets ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))-data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elems :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elems :: !(DataTypes),allNonterminals_Inh_Elems :: !((Set NontermIdent)),attrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elems :: !(DefinedSets),options_Inh_Elems :: !(Options)}-data Syn_Elems = Syn_Elems {attrDecls_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elems :: !(AttrOrderMap),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elems :: !((Set Identifier)),collectedRules_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elems :: !((Set Identifier)),collectedSigs_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elems :: !(ContextMap),defSets_Syn_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elems :: !(Derivings),errors_Syn_Elems :: !((Seq Error)),moduleDecl_Syn_Elems :: !((Maybe (String,String,String))),paramsCollect_Syn_Elems :: !(ParamMap),pragmas_Syn_Elems :: !((Options -> Options)),semPragmasCollect_Syn_Elems :: !(PragmaMap),typeSyns_Syn_Elems :: !(TypeSyns),useMap_Syn_Elems :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elems :: !((Set NontermIdent))}-wrap_Elems :: T_Elems ->- Inh_Elems ->- Syn_Elems -wrap_Elems (T_Elems sem ) (Inh_Elems _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =- (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions - in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))-sem_Elems_Cons :: T_Elem ->- T_Elems ->- T_Elems -sem_Elems_Cons (T_Elem hd_ ) (T_Elems tl_ ) =- (T_Elems (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _hdOallFields :: DataTypes- _hdOallNonterminals :: (Set NontermIdent)- _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdOdefinedSets :: DefinedSets- _hdOoptions :: Options- _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _tlOallFields :: DataTypes- _tlOallNonterminals :: (Set NontermIdent)- _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _tlOdefinedSets :: DefinedSets- _tlOoptions :: Options- _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdIattrOrderCollect :: AttrOrderMap- _hdIblocks :: Blocks- _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _hdIcollectedNames :: (Set Identifier)- _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _hdIcollectedSetNames :: (Set Identifier)- _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _hdIctxCollect :: ContextMap- _hdIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdIderivings :: Derivings- _hdIerrors :: (Seq Error)- _hdImoduleDecl :: (Maybe (String,String,String))- _hdIparamsCollect :: ParamMap- _hdIpragmas :: (Options -> Options)- _hdIsemPragmasCollect :: PragmaMap- _hdItypeSyns :: TypeSyns- _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _hdIwrappers :: (Set NontermIdent)- _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlIattrOrderCollect :: AttrOrderMap- _tlIblocks :: Blocks- _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _tlIcollectedNames :: (Set Identifier)- _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _tlIcollectedSetNames :: (Set Identifier)- _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _tlIctxCollect :: ContextMap- _tlIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _tlIderivings :: Derivings- _tlIerrors :: (Seq Error)- _tlImoduleDecl :: (Maybe (String,String,String))- _tlIparamsCollect :: ParamMap- _tlIpragmas :: (Options -> Options)- _tlIsemPragmasCollect :: PragmaMap- _tlItypeSyns :: TypeSyns- _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _tlIwrappers :: (Set NontermIdent)- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect- {-# LINE 4147 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- _hdIblocks `mapUnionWithPlusPlus` _tlIblocks- {-# LINE 4153 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- _hdIcollectedArounds ++ _tlIcollectedArounds- {-# LINE 4159 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- _hdIcollectedAugments ++ _tlIcollectedAugments- {-# LINE 4165 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap- {-# LINE 4171 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 4177 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- _hdIcollectedInsts ++ _tlIcollectedInsts- {-# LINE 4183 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- _hdIcollectedMerges ++ _tlIcollectedMerges- {-# LINE 4189 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _hdIcollectedNames `Set.union` _tlIcollectedNames- {-# LINE 4195 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- _hdIcollectedRules ++ _tlIcollectedRules- {-# LINE 4201 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames- {-# LINE 4207 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- _hdIcollectedSigs ++ _tlIcollectedSigs- {-# LINE 4213 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- _hdIcollectedUniques ++ _tlIcollectedUniques- {-# LINE 4219 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 868, column 34)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- _hdIctxCollect `mergeCtx` _tlIctxCollect- {-# LINE 4225 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- _hdIderivings `mergeDerivings` _tlIderivings- {-# LINE 4231 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 4237 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- _hdImoduleDecl `mplus` _tlImoduleDecl- {-# LINE 4243 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- _hdIparamsCollect `mergeParams` _tlIparamsCollect- {-# LINE 4249 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- _hdIpragmas . _tlIpragmas- {-# LINE 4255 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect- {-# LINE 4261 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- _hdItypeSyns ++ _tlItypeSyns- {-# LINE 4267 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- _hdIuseMap `merge` _tlIuseMap- {-# LINE 4273 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- _hdIwrappers `Set.union` _tlIwrappers- {-# LINE 4279 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _tlIattrDecls- {-# LINE 4285 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _tlIdefSets- {-# LINE 4291 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallAttrDecls =- ({-# LINE 814 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 4297 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 4303 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4309 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4315 "Transform.hs" #-}- )- -- copy rule (down)- _hdOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4321 "Transform.hs" #-}- )- -- copy rule (down)- _hdOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 4327 "Transform.hs" #-}- )- -- copy rule (down)- _hdOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4333 "Transform.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 4339 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallAttrDecls =- ({-# LINE 814 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 4345 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 4351 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4357 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4363 "Transform.hs" #-}- )- -- copy rule (chain)- _tlOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _hdIattrDecls- {-# LINE 4369 "Transform.hs" #-}- )- -- copy rule (chain)- _tlOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _hdIdefSets- {-# LINE 4375 "Transform.hs" #-}- )- -- copy rule (down)- _tlOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4381 "Transform.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 4387 "Transform.hs" #-}- )- ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) =- hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets _hdOoptions - ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) =- tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets _tlOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elems_Nil :: T_Elems -sem_Elems_Nil =- (T_Elems (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 4433 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 4439 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 4445 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 4451 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 4457 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 4463 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 4469 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 4475 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 4481 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 4487 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 4493 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 4499 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 4505 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 868, column 34)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- Map.empty- {-# LINE 4511 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 893, column 33)- _lhsOderivings =- ({-# LINE 893 "Transform.ag" #-}- Map.empty- {-# LINE 4517 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 4523 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1089, column 37)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- mzero- {-# LINE 4529 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 845, column 37)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- Map.empty- {-# LINE 4535 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 739, column 34)- _lhsOpragmas =- ({-# LINE 739 "Transform.ag" #-}- id- {-# LINE 4541 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 4547 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 4553 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 4559 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 730, column 32)- _lhsOwrappers =- ({-# LINE 730 "Transform.ag" #-}- Set.empty- {-# LINE 4565 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4571 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 4577 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )--- NontSet ------------------------------------------------------{-- visit 0:- inherited attributes:- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- synthesized attributes:- collectedNames : Set Identifier- errors : Seq Error- nontSet : Set NontermIdent- alternatives:- alternative All:- alternative Difference:- child set1 : NontSet - child set2 : NontSet - alternative Intersect:- child set1 : NontSet - child set2 : NontSet - alternative NamedSet:- child name : {NontermIdent}- visit 0:- local _tup4 : _- local nontSet : _- local errors : _- alternative Path:- child from : {NontermIdent}- child to : {NontermIdent}- alternative Union:- child set1 : NontSet - child set2 : NontSet --}--- cata-sem_NontSet :: NontSet ->- T_NontSet -sem_NontSet (All ) =- (sem_NontSet_All )-sem_NontSet (Difference _set1 _set2 ) =- (sem_NontSet_Difference (sem_NontSet _set1 ) (sem_NontSet _set2 ) )-sem_NontSet (Intersect _set1 _set2 ) =- (sem_NontSet_Intersect (sem_NontSet _set1 ) (sem_NontSet _set2 ) )-sem_NontSet (NamedSet _name ) =- (sem_NontSet_NamedSet _name )-sem_NontSet (Path _from _to ) =- (sem_NontSet_Path _from _to )-sem_NontSet (Union _set1 _set2 ) =- (sem_NontSet_Union (sem_NontSet _set1 ) (sem_NontSet _set2 ) )--- semantic domain-newtype T_NontSet = T_NontSet (DataTypes ->- (Set NontermIdent) ->- DefinedSets ->- ( (Set Identifier),(Seq Error),(Set NontermIdent)))-data Inh_NontSet = Inh_NontSet {allFields_Inh_NontSet :: !(DataTypes),allNonterminals_Inh_NontSet :: !((Set NontermIdent)),definedSets_Inh_NontSet :: !(DefinedSets)}-data Syn_NontSet = Syn_NontSet {collectedNames_Syn_NontSet :: !((Set Identifier)),errors_Syn_NontSet :: !((Seq Error)),nontSet_Syn_NontSet :: !((Set NontermIdent))}-wrap_NontSet :: T_NontSet ->- Inh_NontSet ->- Syn_NontSet -wrap_NontSet (T_NontSet sem ) (Inh_NontSet _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets ) =- (let ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet) = sem _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets - in (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet ))-sem_NontSet_All :: T_NontSet -sem_NontSet_All =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 676, column 16)- _lhsOnontSet =- ({-# LINE 676 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4652 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 4658 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 4664 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Difference :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Difference (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 682, column 16)- _lhsOnontSet =- ({-# LINE 682 "Transform.ag" #-}- Set.difference _set1InontSet _set2InontSet- {-# LINE 4693 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4699 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4705 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4711 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4717 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4723 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4729 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4735 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4741 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Intersect :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Intersect (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 681, column 16)- _lhsOnontSet =- ({-# LINE 681 "Transform.ag" #-}- Set.intersection _set1InontSet _set2InontSet- {-# LINE 4774 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4780 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4786 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4792 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4798 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4804 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4810 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4816 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4822 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_NamedSet :: NontermIdent ->- T_NontSet -sem_NontSet_NamedSet name_ =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _lhsOnontSet :: (Set NontermIdent)- -- "Transform.ag"(line 557, column 14)- _lhsOcollectedNames =- ({-# LINE 557 "Transform.ag" #-}- Set.singleton name_- {-# LINE 4842 "Transform.hs" #-}- )- -- "Transform.ag"(line 677, column 20)- __tup4 =- ({-# LINE 677 "Transform.ag" #-}- case Map.lookup name_ _lhsIdefinedSets of- Nothing -> (Set.empty, Seq.singleton (UndefNont name_))- Just set -> (set, Seq.empty)- {-# LINE 4850 "Transform.hs" #-}- )- -- "Transform.ag"(line 677, column 20)- (_nontSet,_) =- ({-# LINE 677 "Transform.ag" #-}- __tup4- {-# LINE 4856 "Transform.hs" #-}- )- -- "Transform.ag"(line 677, column 20)- (_,_errors) =- ({-# LINE 677 "Transform.ag" #-}- __tup4- {-# LINE 4862 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _errors- {-# LINE 4868 "Transform.hs" #-}- )- -- copy rule (from local)- _lhsOnontSet =- ({-# LINE 112 "Transform.ag" #-}- _nontSet- {-# LINE 4874 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Path :: NontermIdent ->- NontermIdent ->- T_NontSet -sem_NontSet_Path from_ to_ =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOerrors :: (Seq Error)- _lhsOcollectedNames :: (Set Identifier)- -- "Transform.ag"(line 683, column 16)- _lhsOnontSet =- ({-# LINE 683 "Transform.ag" #-}- let table = flattenDatas _lhsIallFields- in path table from_ to_- {-# LINE 4892 "Transform.hs" #-}- )- -- "Transform.ag"(line 685, column 16)- _lhsOerrors =- ({-# LINE 685 "Transform.ag" #-}- let check name | Set.member name _lhsIallNonterminals- = Seq.empty- | otherwise = Seq.singleton (UndefNont name)- in check from_ >< check to_- {-# LINE 4901 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 4907 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Union :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Union (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 680, column 16)- _lhsOnontSet =- ({-# LINE 680 "Transform.ag" #-}- Set.union _set1InontSet _set2InontSet- {-# LINE 4936 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4942 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4948 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4954 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4960 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4966 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4972 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4978 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4984 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )--- Pattern ------------------------------------------------------{-- visit 0:- synthesized attributes:- copy : SELF - definedAttrs : [AttrName]- definedInsts : [Identifier]- patunder : [AttrName]->Pattern- stpos : Pos- alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - child parts : Patterns - visit 0:- local copy : _- alternative Constr:- child name : {ConstructorIdent}- child pats : Patterns - visit 0:- local copy : _- alternative Irrefutable:- child pat : Pattern - visit 0:- local copy : _- alternative Product:- child pos : {Pos}- child pats : Patterns - visit 0:- local copy : _- alternative Underscore:- child pos : {Pos}- visit 0:- local copy : _--}--- cata-sem_Pattern :: Pattern ->- T_Pattern -sem_Pattern (Alias _field _attr _pat _parts ) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )-sem_Pattern (Constr _name _pats ) =- (sem_Pattern_Constr _name (sem_Patterns _pats ) )-sem_Pattern (Irrefutable _pat ) =- (sem_Pattern_Irrefutable (sem_Pattern _pat ) )-sem_Pattern (Product _pos _pats ) =- (sem_Pattern_Product _pos (sem_Patterns _pats ) )-sem_Pattern (Underscore _pos ) =- (sem_Pattern_Underscore _pos )--- semantic domain-newtype T_Pattern = T_Pattern (( Pattern ,([AttrName]),([Identifier]),([AttrName]->Pattern),Pos))-data Inh_Pattern = Inh_Pattern {}-data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !(([AttrName])),definedInsts_Syn_Pattern :: !(([Identifier])),patunder_Syn_Pattern :: !(([AttrName]->Pattern)),stpos_Syn_Pattern :: !(Pos)}-wrap_Pattern :: T_Pattern ->- Inh_Pattern ->- Syn_Pattern -wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =- (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos) = sem - in (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos ))-sem_Pattern_Alias :: Identifier ->- Identifier ->- T_Pattern ->- T_Patterns ->- T_Pattern -sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =- (T_Pattern (let _lhsOdefinedAttrs :: ([AttrName])- _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOdefinedInsts :: ([Identifier])- _lhsOstpos :: Pos- _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedAttrs :: ([AttrName])- _patIdefinedInsts :: ([Identifier])- _patIpatunder :: ([AttrName]->Pattern)- _patIstpos :: Pos- _partsIcopy :: Patterns - _partsIdefinedAttrs :: ([AttrName])- _partsIdefinedInsts :: ([Identifier])- _partsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1065, column 11)- _lhsOdefinedAttrs =- ({-# LINE 1065 "Transform.ag" #-}- (field_, attr_) : _patIdefinedAttrs- {-# LINE 5074 "Transform.hs" #-}- )- -- "Transform.ag"(line 1066, column 11)- _lhsOpatunder =- ({-# LINE 1066 "Transform.ag" #-}- \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy- {-# LINE 5080 "Transform.hs" #-}- )- -- "Transform.ag"(line 1067, column 11)- _lhsOdefinedInsts =- ({-# LINE 1067 "Transform.ag" #-}- (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts- {-# LINE 5086 "Transform.hs" #-}- )- -- "Transform.ag"(line 1082, column 16)- _lhsOstpos =- ({-# LINE 1082 "Transform.ag" #-}- getPos field_- {-# LINE 5092 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Alias field_ attr_ _patIcopy _partsIcopy- {-# LINE 5098 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5104 "Transform.hs" #-}- )- ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =- pat_ - ( _partsIcopy,_partsIdefinedAttrs,_partsIdefinedInsts,_partsIpatunder) =- parts_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Constr :: ConstructorIdent ->- T_Patterns ->- T_Pattern -sem_Pattern_Constr name_ (T_Patterns pats_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedAttrs :: ([AttrName])- _patsIdefinedInsts :: ([Identifier])- _patsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1069, column 12)- _lhsOpatunder =- ({-# LINE 1069 "Transform.ag" #-}- \us -> Constr name_ (_patsIpatunder us)- {-# LINE 5128 "Transform.hs" #-}- )- -- "Transform.ag"(line 1080, column 16)- _lhsOstpos =- ({-# LINE 1080 "Transform.ag" #-}- getPos name_- {-# LINE 5134 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1060, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1060 "Transform.ag" #-}- _patsIdefinedAttrs- {-# LINE 5140 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- _patsIdefinedInsts- {-# LINE 5146 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 5152 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5158 "Transform.hs" #-}- )- ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =- pats_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Irrefutable :: T_Pattern ->- T_Pattern -sem_Pattern_Irrefutable (T_Pattern pat_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _lhsOstpos :: Pos- _patIcopy :: Pattern - _patIdefinedAttrs :: ([AttrName])- _patIdefinedInsts :: ([Identifier])- _patIpatunder :: ([AttrName]->Pattern)- _patIstpos :: Pos- -- "Transform.ag"(line 1071, column 17)- _lhsOpatunder =- ({-# LINE 1071 "Transform.ag" #-}- \us -> Irrefutable (_patIpatunder us)- {-# LINE 5180 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1060, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1060 "Transform.ag" #-}- _patIdefinedAttrs- {-# LINE 5186 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- _patIdefinedInsts- {-# LINE 5192 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 5198 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5204 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOstpos =- ({-# LINE 1077 "Transform.ag" #-}- _patIstpos- {-# LINE 5210 "Transform.hs" #-}- )- ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =- pat_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Product :: Pos ->- T_Patterns ->- T_Pattern -sem_Pattern_Product pos_ (T_Patterns pats_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedAttrs :: ([AttrName])- _patsIdefinedInsts :: ([Identifier])- _patsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1070, column 13)- _lhsOpatunder =- ({-# LINE 1070 "Transform.ag" #-}- \us -> Product pos_ (_patsIpatunder us)- {-# LINE 5232 "Transform.hs" #-}- )- -- "Transform.ag"(line 1081, column 16)- _lhsOstpos =- ({-# LINE 1081 "Transform.ag" #-}- pos_- {-# LINE 5238 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1060, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1060 "Transform.ag" #-}- _patsIdefinedAttrs- {-# LINE 5244 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- _patsIdefinedInsts- {-# LINE 5250 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 5256 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5262 "Transform.hs" #-}- )- ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =- pats_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Underscore :: Pos ->- T_Pattern -sem_Pattern_Underscore pos_ =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - -- "Transform.ag"(line 1068, column 16)- _lhsOpatunder =- ({-# LINE 1068 "Transform.ag" #-}- \us -> _copy- {-# LINE 5279 "Transform.hs" #-}- )- -- "Transform.ag"(line 1083, column 16)- _lhsOstpos =- ({-# LINE 1083 "Transform.ag" #-}- pos_- {-# LINE 5285 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1060, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1060 "Transform.ag" #-}- []- {-# LINE 5291 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 5297 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Underscore pos_- {-# LINE 5303 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5309 "Transform.hs" #-}- )- in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )--- Patterns -----------------------------------------------------{-- visit 0:- synthesized attributes:- copy : SELF - definedAttrs : [AttrName]- definedInsts : [Identifier]- patunder : [AttrName]->Patterns- alternatives:- alternative Cons:- child hd : Pattern - child tl : Patterns - visit 0:- local copy : _- alternative Nil:- visit 0:- local copy : _--}--- cata-sem_Patterns :: Patterns ->- T_Patterns -sem_Patterns list =- (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )--- semantic domain-newtype T_Patterns = T_Patterns (( Patterns ,([AttrName]),([Identifier]),([AttrName]->Patterns)))-data Inh_Patterns = Inh_Patterns {}-data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !(([AttrName])),definedInsts_Syn_Patterns :: !(([Identifier])),patunder_Syn_Patterns :: !(([AttrName]->Patterns))}-wrap_Patterns :: T_Patterns ->- Inh_Patterns ->- Syn_Patterns -wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =- (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder) = sem - in (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder ))-sem_Patterns_Cons :: T_Pattern ->- T_Patterns ->- T_Patterns -sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =- (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Patterns - _hdIcopy :: Pattern - _hdIdefinedAttrs :: ([AttrName])- _hdIdefinedInsts :: ([Identifier])- _hdIpatunder :: ([AttrName]->Pattern)- _hdIstpos :: Pos- _tlIcopy :: Patterns - _tlIdefinedAttrs :: ([AttrName])- _tlIdefinedInsts :: ([Identifier])- _tlIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1075, column 10)- _lhsOpatunder =- ({-# LINE 1075 "Transform.ag" #-}- \us -> (_hdIpatunder us) : (_tlIpatunder us)- {-# LINE 5366 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1060, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1060 "Transform.ag" #-}- _hdIdefinedAttrs ++ _tlIdefinedAttrs- {-# LINE 5372 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 5378 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 5384 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5390 "Transform.hs" #-}- )- ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) =- hd_ - ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) =- tl_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )-sem_Patterns_Nil :: T_Patterns -sem_Patterns_Nil =- (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Patterns - -- "Transform.ag"(line 1074, column 9)- _lhsOpatunder =- ({-# LINE 1074 "Transform.ag" #-}- \us -> []- {-# LINE 5407 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1060, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1060 "Transform.ag" #-}- []- {-# LINE 5413 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 5419 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- []- {-# LINE 5425 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5431 "Transform.hs" #-}- )- in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )--- SemAlt -------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allFields : DataTypes- nts : Set NontermIdent- options : Options- synthesized attributes:- attrOrderCollect : AttrOrderMap- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- errors : Seq Error- semPragmasCollect : PragmaMap- alternatives:- alternative SemAlt:- child pos : {Pos}- child constructorSet : ConstructorSet - child rules : SemDefs - visit 0:- local pragmaNames : _- local attrOrders : _- local coninfo : _--}--- cata-sem_SemAlt :: SemAlt ->- T_SemAlt -sem_SemAlt (SemAlt _pos _constructorSet _rules ) =- (sem_SemAlt_SemAlt _pos (sem_ConstructorSet _constructorSet ) (sem_SemDefs _rules ) )--- semantic domain-newtype T_SemAlt = T_SemAlt ((Map NontermIdent (Attributes, Attributes)) ->- DataTypes ->- (Set NontermIdent) ->- Options ->- ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))-data Inh_SemAlt = Inh_SemAlt {allAttrDecls_Inh_SemAlt :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlt :: !(DataTypes),nts_Inh_SemAlt :: !((Set NontermIdent)),options_Inh_SemAlt :: !(Options)}-data Syn_SemAlt = Syn_SemAlt {attrOrderCollect_Syn_SemAlt :: !(AttrOrderMap),collectedArounds_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlt :: !((Seq Error)),semPragmasCollect_Syn_SemAlt :: !(PragmaMap)}-wrap_SemAlt :: T_SemAlt ->- Inh_SemAlt ->- Syn_SemAlt -wrap_SemAlt (T_SemAlt sem ) (Inh_SemAlt _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =- (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions - in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))-sem_SemAlt_SemAlt :: Pos ->- T_ConstructorSet ->- T_SemDefs ->- T_SemAlt -sem_SemAlt_SemAlt pos_ (T_ConstructorSet constructorSet_ ) (T_SemDefs rules_ ) =- (T_SemAlt (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts- _lhsIoptions ->- (let _lhsOsemPragmasCollect :: PragmaMap- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOerrors :: (Seq Error)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _rulesOoptions :: Options- _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent)- _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _constructorSetIerrors :: (Seq Error)- _rulesIaroundInfos :: ([AroundInfo])- _rulesIaugmentInfos :: ([AugmentInfo])- _rulesIdefinedInsts :: ([Identifier])- _rulesIerrors :: (Seq Error)- _rulesImergeInfos :: ([MergeInfo])- _rulesIorderDepsCollect :: (Set Dependency)- _rulesIpragmaNamesCollect :: ([Identifier])- _rulesIruleInfos :: ([RuleInfo])- _rulesIsigInfos :: ([SigInfo])- _rulesIuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 789, column 7)- _pragmaNames =- ({-# LINE 789 "Transform.ag" #-}- Set.fromList _rulesIpragmaNamesCollect- {-# LINE 5519 "Transform.hs" #-}- )- -- "Transform.ag"(line 790, column 7)- _lhsOsemPragmasCollect =- ({-# LINE 790 "Transform.ag" #-}- foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5528 "Transform.hs" #-}- )- -- "Transform.ag"(line 818, column 7)- _attrOrders =- ({-# LINE 818 "Transform.ag" #-}- [ orderMapSingle nt con _rulesIorderDepsCollect- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5537 "Transform.hs" #-}- )- -- "Transform.ag"(line 824, column 7)- _lhsOattrOrderCollect =- ({-# LINE 824 "Transform.ag" #-}- foldr orderMapUnion Map.empty _attrOrders- {-# LINE 5543 "Transform.hs" #-}- )- -- "Transform.ag"(line 984, column 12)- _coninfo =- ({-# LINE 984 "Transform.ag" #-}- [ (nt, conset, conkeys)- | nt <- Set.toList _lhsInts- , let conmap = Map.findWithDefault Map.empty nt _lhsIallFields- , let conkeys = Set.fromList (Map.keys conmap)- , let conset = _constructorSetIconstructors conkeys- ]- {-# LINE 5554 "Transform.hs" #-}- )- -- "Transform.ag"(line 991, column 12)- _lhsOerrors =- ({-# LINE 991 "Transform.ag" #-}- Seq.fromList- [ UndefAlt nt con- | (nt, conset, conkeys) <- _coninfo- , con <- Set.toList (Set.difference conset conkeys)- ]- Seq.>< _rulesIerrors- {-# LINE 5565 "Transform.hs" #-}- )- -- "Transform.ag"(line 997, column 12)- _lhsOcollectedRules =- ({-# LINE 997 "Transform.ag" #-}- [ (nt,con,r)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- , r <- _rulesIruleInfos- ]- {-# LINE 5575 "Transform.hs" #-}- )- -- "Transform.ag"(line 1003, column 12)- _lhsOcollectedSigs =- ({-# LINE 1003 "Transform.ag" #-}- [ (nt,con,ts)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- , ts <- _rulesIsigInfos- ]- {-# LINE 5585 "Transform.hs" #-}- )- -- "Transform.ag"(line 1010, column 12)- _lhsOcollectedInsts =- ({-# LINE 1010 "Transform.ag" #-}- [ (nt,con,_rulesIdefinedInsts)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5594 "Transform.hs" #-}- )- -- "Transform.ag"(line 1016, column 12)- _lhsOcollectedUniques =- ({-# LINE 1016 "Transform.ag" #-}- [ (nt,con,_rulesIuniqueInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5603 "Transform.hs" #-}- )- -- "Transform.ag"(line 1022, column 12)- _lhsOcollectedAugments =- ({-# LINE 1022 "Transform.ag" #-}- [ (nt, con, _rulesIaugmentInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5612 "Transform.hs" #-}- )- -- "Transform.ag"(line 1028, column 12)- _lhsOcollectedArounds =- ({-# LINE 1028 "Transform.ag" #-}- [ (nt, con, _rulesIaroundInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5621 "Transform.hs" #-}- )- -- "Transform.ag"(line 1034, column 12)- _lhsOcollectedMerges =- ({-# LINE 1034 "Transform.ag" #-}- [ (nt, con, _rulesImergeInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5630 "Transform.hs" #-}- )- -- copy rule (down)- _rulesOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 5636 "Transform.hs" #-}- )- ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) =- constructorSet_ - ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIerrors,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) =- rules_ _rulesOoptions - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )--- SemAlts ------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allFields : DataTypes- nts : Set NontermIdent- options : Options- synthesized attributes:- attrOrderCollect : AttrOrderMap- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- errors : Seq Error- semPragmasCollect : PragmaMap- alternatives:- alternative Cons:- child hd : SemAlt - child tl : SemAlts - alternative Nil:--}--- cata-sem_SemAlts :: SemAlts ->- T_SemAlts -sem_SemAlts list =- (Prelude.foldr sem_SemAlts_Cons sem_SemAlts_Nil (Prelude.map sem_SemAlt list) )--- semantic domain-newtype T_SemAlts = T_SemAlts ((Map NontermIdent (Attributes, Attributes)) ->- DataTypes ->- (Set NontermIdent) ->- Options ->- ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))-data Inh_SemAlts = Inh_SemAlts {allAttrDecls_Inh_SemAlts :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlts :: !(DataTypes),nts_Inh_SemAlts :: !((Set NontermIdent)),options_Inh_SemAlts :: !(Options)}-data Syn_SemAlts = Syn_SemAlts {attrOrderCollect_Syn_SemAlts :: !(AttrOrderMap),collectedArounds_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlts :: !((Seq Error)),semPragmasCollect_Syn_SemAlts :: !(PragmaMap)}-wrap_SemAlts :: T_SemAlts ->- Inh_SemAlts ->- Syn_SemAlts -wrap_SemAlts (T_SemAlts sem ) (Inh_SemAlts _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =- (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions - in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))-sem_SemAlts_Cons :: T_SemAlt ->- T_SemAlts ->- T_SemAlts -sem_SemAlts_Cons (T_SemAlt hd_ ) (T_SemAlts tl_ ) =- (T_SemAlts (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOerrors :: (Seq Error)- _lhsOsemPragmasCollect :: PragmaMap- _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOallFields :: DataTypes- _hdOnts :: (Set NontermIdent)- _hdOoptions :: Options- _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOallFields :: DataTypes- _tlOnts :: (Set NontermIdent)- _tlOoptions :: Options- _hdIattrOrderCollect :: AttrOrderMap- _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _hdIerrors :: (Seq Error)- _hdIsemPragmasCollect :: PragmaMap- _tlIattrOrderCollect :: AttrOrderMap- _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _tlIerrors :: (Seq Error)- _tlIsemPragmasCollect :: PragmaMap- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect- {-# LINE 5737 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- _hdIcollectedArounds ++ _tlIcollectedArounds- {-# LINE 5743 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- _hdIcollectedAugments ++ _tlIcollectedAugments- {-# LINE 5749 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- _hdIcollectedInsts ++ _tlIcollectedInsts- {-# LINE 5755 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- _hdIcollectedMerges ++ _tlIcollectedMerges- {-# LINE 5761 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- _hdIcollectedRules ++ _tlIcollectedRules- {-# LINE 5767 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- _hdIcollectedSigs ++ _tlIcollectedSigs- {-# LINE 5773 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- _hdIcollectedUniques ++ _tlIcollectedUniques- {-# LINE 5779 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 5785 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect- {-# LINE 5791 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallAttrDecls =- ({-# LINE 814 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 5797 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 5803 "Transform.hs" #-}- )- -- copy rule (down)- _hdOnts =- ({-# LINE 167 "Transform.ag" #-}- _lhsInts- {-# LINE 5809 "Transform.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 5815 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallAttrDecls =- ({-# LINE 814 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 5821 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 5827 "Transform.hs" #-}- )- -- copy rule (down)- _tlOnts =- ({-# LINE 167 "Transform.ag" #-}- _lhsInts- {-# LINE 5833 "Transform.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 5839 "Transform.hs" #-}- )- ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) =- hd_ _hdOallAttrDecls _hdOallFields _hdOnts _hdOoptions - ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) =- tl_ _tlOallAttrDecls _tlOallFields _tlOnts _tlOoptions - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )-sem_SemAlts_Nil :: T_SemAlts -sem_SemAlts_Nil =- (T_SemAlts (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOerrors :: (Seq Error)- _lhsOsemPragmasCollect :: PragmaMap- -- use rule "Transform.ag"(line 813, column 55)- _lhsOattrOrderCollect =- ({-# LINE 813 "Transform.ag" #-}- Map.empty- {-# LINE 5866 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 5872 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 5878 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 5884 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 5890 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 5896 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 5902 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 5908 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 5914 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 785, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 785 "Transform.ag" #-}- Map.empty- {-# LINE 5920 "Transform.hs" #-}- )- in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )--- SemDef -------------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- aroundInfos : [AroundInfo]- augmentInfos : [AugmentInfo]- definedInsts : [Identifier]- errors : Seq Error- mergeInfos : [MergeInfo]- orderDepsCollect : Set Dependency- pragmaNamesCollect : [Identifier]- ruleInfos : [RuleInfo]- sigInfos : [SigInfo]- uniqueInfos : [UniqueInfo]- alternatives:- alternative AroundDef:- child ident : {Identifier}- child rhs : {Expression}- alternative AttrOrderBefore:- child before : {[Occurrence]}- child after : {[Occurrence]}- visit 0:- local dependency : _- alternative AugmentDef:- child ident : {Identifier}- child rhs : {Expression}- alternative Def:- child pos : {Pos}- child mbName : {Maybe Identifier}- child pattern : Pattern - child rhs : {Expression}- child owrt : {Bool}- alternative MergeDef:- child target : {Identifier}- child nt : {Identifier}- child sources : {[Identifier]}- child rhs : {Expression}- alternative SemPragma:- child names : {[NontermIdent]}- alternative TypeDef:- child pos : {Pos}- child ident : {Identifier}- child tp : {Type}- alternative UniqueDef:- child ident : {Identifier}- child ref : {Identifier}--}--- cata-sem_SemDef :: SemDef ->- T_SemDef -sem_SemDef (AroundDef _ident _rhs ) =- (sem_SemDef_AroundDef _ident _rhs )-sem_SemDef (AttrOrderBefore _before _after ) =- (sem_SemDef_AttrOrderBefore _before _after )-sem_SemDef (AugmentDef _ident _rhs ) =- (sem_SemDef_AugmentDef _ident _rhs )-sem_SemDef (Def _pos _mbName _pattern _rhs _owrt ) =- (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern ) _rhs _owrt )-sem_SemDef (MergeDef _target _nt _sources _rhs ) =- (sem_SemDef_MergeDef _target _nt _sources _rhs )-sem_SemDef (SemPragma _names ) =- (sem_SemDef_SemPragma _names )-sem_SemDef (TypeDef _pos _ident _tp ) =- (sem_SemDef_TypeDef _pos _ident _tp )-sem_SemDef (UniqueDef _ident _ref ) =- (sem_SemDef_UniqueDef _ident _ref )--- semantic domain-newtype T_SemDef = T_SemDef (Options ->- ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))-data Inh_SemDef = Inh_SemDef {options_Inh_SemDef :: !(Options)}-data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),errors_Syn_SemDef :: !((Seq Error)),mergeInfos_Syn_SemDef :: !(([MergeInfo])),orderDepsCollect_Syn_SemDef :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDef :: !(([Identifier])),ruleInfos_Syn_SemDef :: !(([RuleInfo])),sigInfos_Syn_SemDef :: !(([SigInfo])),uniqueInfos_Syn_SemDef :: !(([UniqueInfo]))}-wrap_SemDef :: T_SemDef ->- Inh_SemDef ->- Syn_SemDef -wrap_SemDef (T_SemDef sem ) (Inh_SemDef _lhsIoptions ) =- (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions - in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))-sem_SemDef_AroundDef :: Identifier ->- Expression ->- T_SemDef -sem_SemDef_AroundDef ident_ rhs_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 1053, column 17)- _lhsOaroundInfos =- ({-# LINE 1053 "Transform.ag" #-}- [ (ident_, rhs_) ]- {-# LINE 6021 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- []- {-# LINE 6027 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 6033 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6039 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- []- {-# LINE 6045 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- Set.empty- {-# LINE 6051 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- []- {-# LINE 6057 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6063 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6069 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- []- {-# LINE 6075 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_AttrOrderBefore :: ([Occurrence]) ->- ([Occurrence]) ->- T_SemDef -sem_SemDef_AttrOrderBefore before_ after_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOorderDepsCollect :: (Set Dependency)- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 830, column 7)- _dependency =- ({-# LINE 830 "Transform.ag" #-}- [ Dependency b a | b <- before_, a <- after_ ]- {-# LINE 6097 "Transform.hs" #-}- )- -- "Transform.ag"(line 831, column 7)- _lhsOorderDepsCollect =- ({-# LINE 831 "Transform.ag" #-}- Set.fromList _dependency- {-# LINE 6103 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- []- {-# LINE 6109 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- []- {-# LINE 6115 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 6121 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6127 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- []- {-# LINE 6133 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- []- {-# LINE 6139 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6145 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6151 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- []- {-# LINE 6157 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_AugmentDef :: Identifier ->- Expression ->- T_SemDef -sem_SemDef_AugmentDef ident_ rhs_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 1050, column 17)- _lhsOaugmentInfos =- ({-# LINE 1050 "Transform.ag" #-}- [ (ident_, rhs_) ]- {-# LINE 6179 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- []- {-# LINE 6185 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 6191 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6197 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- []- {-# LINE 6203 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- Set.empty- {-# LINE 6209 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- []- {-# LINE 6215 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6221 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6227 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- []- {-# LINE 6233 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_Def :: Pos ->- (Maybe Identifier) ->- T_Pattern ->- Expression ->- Bool ->- T_SemDef -sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_ ) rhs_ owrt_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOerrors :: (Seq Error)- _lhsOruleInfos :: ([RuleInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- _patternIcopy :: Pattern - _patternIdefinedAttrs :: ([AttrName])- _patternIdefinedInsts :: ([Identifier])- _patternIpatunder :: ([AttrName]->Pattern)- _patternIstpos :: Pos- -- "Transform.ag"(line 527, column 3)- _lhsOerrors =- ({-# LINE 527 "Transform.ag" #-}- if checkParseRhs _lhsIoptions- then Seq.fromList $ checkRhs rhs_- else Seq.empty- {-# LINE 6265 "Transform.hs" #-}- )- -- "Transform.ag"(line 1041, column 10)- _lhsOruleInfos =- ({-# LINE 1041 "Transform.ag" #-}- [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ]- {-# LINE 6271 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- []- {-# LINE 6277 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- []- {-# LINE 6283 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- _patternIdefinedInsts- {-# LINE 6289 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- []- {-# LINE 6295 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- Set.empty- {-# LINE 6301 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- []- {-# LINE 6307 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6313 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- []- {-# LINE 6319 "Transform.hs" #-}- )- ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) =- pattern_ - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_MergeDef :: Identifier ->- Identifier ->- ([Identifier]) ->- Expression ->- T_SemDef -sem_SemDef_MergeDef target_ nt_ sources_ rhs_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 527, column 3)- _lhsOerrors =- ({-# LINE 527 "Transform.ag" #-}- if checkParseRhs _lhsIoptions- then Seq.fromList $ checkRhs rhs_- else Seq.empty- {-# LINE 6347 "Transform.hs" #-}- )- -- "Transform.ag"(line 1056, column 17)- _lhsOmergeInfos =- ({-# LINE 1056 "Transform.ag" #-}- [ (target_, nt_, sources_, rhs_) ]- {-# LINE 6353 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- []- {-# LINE 6359 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- []- {-# LINE 6365 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 6371 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- Set.empty- {-# LINE 6377 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- []- {-# LINE 6383 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6389 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6395 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- []- {-# LINE 6401 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_SemPragma :: ([NontermIdent]) ->- T_SemDef -sem_SemDef_SemPragma names_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 799, column 7)- _lhsOpragmaNamesCollect =- ({-# LINE 799 "Transform.ag" #-}- names_- {-# LINE 6422 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- []- {-# LINE 6428 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- []- {-# LINE 6434 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 6440 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6446 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- []- {-# LINE 6452 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- Set.empty- {-# LINE 6458 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6464 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6470 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- []- {-# LINE 6476 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_TypeDef :: Pos ->- Identifier ->- Type ->- T_SemDef -sem_SemDef_TypeDef pos_ ident_ tp_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOerrors :: (Seq Error)- _lhsOsigInfos :: ([SigInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 534, column 3)- _lhsOerrors =- ({-# LINE 534 "Transform.ag" #-}- if checkParseTy _lhsIoptions- then case tp_ of- Haskell s -> let exp = Expression pos_ tks- tks = [tk]- tk = HsToken s pos_- in Seq.fromList $ checkTy exp- _ -> Seq.empty- else Seq.empty- {-# LINE 6506 "Transform.hs" #-}- )- -- "Transform.ag"(line 1044, column 14)- _lhsOsigInfos =- ({-# LINE 1044 "Transform.ag" #-}- [ (ident_, tp_) ]- {-# LINE 6512 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- []- {-# LINE 6518 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- []- {-# LINE 6524 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 6530 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- []- {-# LINE 6536 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- Set.empty- {-# LINE 6542 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- []- {-# LINE 6548 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6554 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- []- {-# LINE 6560 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_UniqueDef :: Identifier ->- Identifier ->- T_SemDef -sem_SemDef_UniqueDef ident_ ref_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOuniqueInfos :: ([UniqueInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- -- "Transform.ag"(line 1047, column 16)- _lhsOuniqueInfos =- ({-# LINE 1047 "Transform.ag" #-}- [ (ident_, ref_) ]- {-# LINE 6582 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- []- {-# LINE 6588 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- []- {-# LINE 6594 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 6600 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6606 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- []- {-# LINE 6612 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- Set.empty- {-# LINE 6618 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- []- {-# LINE 6624 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6630 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6636 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )--- SemDefs ------------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- aroundInfos : [AroundInfo]- augmentInfos : [AugmentInfo]- definedInsts : [Identifier]- errors : Seq Error- mergeInfos : [MergeInfo]- orderDepsCollect : Set Dependency- pragmaNamesCollect : [Identifier]- ruleInfos : [RuleInfo]- sigInfos : [SigInfo]- uniqueInfos : [UniqueInfo]- alternatives:- alternative Cons:- child hd : SemDef - child tl : SemDefs - alternative Nil:--}--- cata-sem_SemDefs :: SemDefs ->- T_SemDefs -sem_SemDefs list =- (Prelude.foldr sem_SemDefs_Cons sem_SemDefs_Nil (Prelude.map sem_SemDef list) )--- semantic domain-newtype T_SemDefs = T_SemDefs (Options ->- ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))-data Inh_SemDefs = Inh_SemDefs {options_Inh_SemDefs :: !(Options)}-data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),errors_Syn_SemDefs :: !((Seq Error)),mergeInfos_Syn_SemDefs :: !(([MergeInfo])),orderDepsCollect_Syn_SemDefs :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDefs :: !(([Identifier])),ruleInfos_Syn_SemDefs :: !(([RuleInfo])),sigInfos_Syn_SemDefs :: !(([SigInfo])),uniqueInfos_Syn_SemDefs :: !(([UniqueInfo]))}-wrap_SemDefs :: T_SemDefs ->- Inh_SemDefs ->- Syn_SemDefs -wrap_SemDefs (T_SemDefs sem ) (Inh_SemDefs _lhsIoptions ) =- (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions - in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))-sem_SemDefs_Cons :: T_SemDef ->- T_SemDefs ->- T_SemDefs -sem_SemDefs_Cons (T_SemDef hd_ ) (T_SemDefs tl_ ) =- (T_SemDefs (\ _lhsIoptions ->- (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- _hdOoptions :: Options- _tlOoptions :: Options- _hdIaroundInfos :: ([AroundInfo])- _hdIaugmentInfos :: ([AugmentInfo])- _hdIdefinedInsts :: ([Identifier])- _hdIerrors :: (Seq Error)- _hdImergeInfos :: ([MergeInfo])- _hdIorderDepsCollect :: (Set Dependency)- _hdIpragmaNamesCollect :: ([Identifier])- _hdIruleInfos :: ([RuleInfo])- _hdIsigInfos :: ([SigInfo])- _hdIuniqueInfos :: ([UniqueInfo])- _tlIaroundInfos :: ([AroundInfo])- _tlIaugmentInfos :: ([AugmentInfo])- _tlIdefinedInsts :: ([Identifier])- _tlIerrors :: (Seq Error)- _tlImergeInfos :: ([MergeInfo])- _tlIorderDepsCollect :: (Set Dependency)- _tlIpragmaNamesCollect :: ([Identifier])- _tlIruleInfos :: ([RuleInfo])- _tlIsigInfos :: ([SigInfo])- _tlIuniqueInfos :: ([UniqueInfo])- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- _hdIaroundInfos ++ _tlIaroundInfos- {-# LINE 6718 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- _hdIaugmentInfos ++ _tlIaugmentInfos- {-# LINE 6724 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 6730 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 6736 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- _hdImergeInfos ++ _tlImergeInfos- {-# LINE 6742 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect- {-# LINE 6748 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect- {-# LINE 6754 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- _hdIruleInfos ++ _tlIruleInfos- {-# LINE 6760 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- _hdIsigInfos ++ _tlIsigInfos- {-# LINE 6766 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- _hdIuniqueInfos ++ _tlIuniqueInfos- {-# LINE 6772 "Transform.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 6778 "Transform.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 6784 "Transform.hs" #-}- )- ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIerrors,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) =- hd_ _hdOoptions - ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIerrors,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) =- tl_ _tlOoptions - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDefs_Nil :: T_SemDefs -sem_SemDefs_Nil =- (T_SemDefs (\ _lhsIoptions ->- (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- use rule "Transform.ag"(line 978, column 40)- _lhsOaroundInfos =- ({-# LINE 978 "Transform.ag" #-}- []- {-# LINE 6808 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 977, column 40)- _lhsOaugmentInfos =- ({-# LINE 977 "Transform.ag" #-}- []- {-# LINE 6814 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1059, column 55)- _lhsOdefinedInsts =- ({-# LINE 1059 "Transform.ag" #-}- []- {-# LINE 6820 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6826 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 979, column 40)- _lhsOmergeInfos =- ({-# LINE 979 "Transform.ag" #-}- []- {-# LINE 6832 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 826, column 44)- _lhsOorderDepsCollect =- ({-# LINE 826 "Transform.ag" #-}- Set.empty- {-# LINE 6838 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 795, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- []- {-# LINE 6844 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOruleInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6850 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOsigInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6856 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 976, column 40)- _lhsOuniqueInfos =- ({-# LINE 976 "Transform.ag" #-}- []- {-# LINE 6862 "Transform.hs" #-}+-- UUAGC 0.9.37.2 (Transform.ag)+module Transform where+{-# LINE 8 "Transform.ag" #-}++import Control.Monad(mplus,mzero)+import List (partition, elem, nub,intersperse)+import Data.Maybe+import qualified Data.Map as Map+import Data.Map (Map)+import Data.Set as Set (Set, member, union, toList, fromList, empty, singleton, member, unions, size, fold, intersection, difference, insert)+import qualified Data.Sequence as Seq+import Data.Sequence(Seq, empty, (><),fromList)+import Data.Foldable(toList)+import UU.Scanner.Position(noPos)++import ConcreteSyntax+import AbstractSyntax+import ErrorMessages+import Patterns (Patterns(..),Pattern(..))+import Expression (Expression(..))+import HsToken++import Options+import CommonTypes+import RhsCheck+{-# LINE 29 "../src-derived/Transform.hs" #-}++{-# LINE 2 "./ConcreteSyntax.ag" #-}++import UU.Scanner.Position (Pos)+import Patterns (Pattern)+import Expression (Expression)+import CommonTypes+{-# LINE 37 "../src-derived/Transform.hs" #-}++{-# LINE 2 "./Patterns.ag" #-}++-- Patterns.ag imports+import UU.Scanner.Position(Pos)+import CommonTypes (ConstructorIdent,Identifier)+{-# LINE 44 "../src-derived/Transform.hs" #-}+{-# LINE 101 "Transform.ag" #-}+type DefinedSets = Map Identifier (Set NontermIdent) +{-# LINE 47 "../src-derived/Transform.hs" #-}++{-# LINE 121 "Transform.ag" #-}+type FieldMap = [(Identifier, Type)] +{-# LINE 51 "../src-derived/Transform.hs" #-}++{-# LINE 122 "Transform.ag" #-}+type DataTypes = Map.Map NontermIdent (Map.Map ConstructorIdent FieldMap) +{-# LINE 55 "../src-derived/Transform.hs" #-}++{-# LINE 142 "Transform.ag" #-}+type AttrName = (Identifier,Identifier) +{-# LINE 59 "../src-derived/Transform.hs" #-}++{-# LINE 143 "Transform.ag" #-}+type RuleInfo = (Maybe Identifier, [AttrName]->Pattern, Expression, [AttrName], Bool, String) +{-# LINE 63 "../src-derived/Transform.hs" #-}++{-# LINE 144 "Transform.ag" #-}+type SigInfo = (Identifier,Type) +{-# LINE 67 "../src-derived/Transform.hs" #-}++{-# LINE 145 "Transform.ag" #-}+type UniqueInfo = (Identifier,Identifier) +{-# LINE 71 "../src-derived/Transform.hs" #-}++{-# LINE 146 "Transform.ag" #-}+type AugmentInfo = (Identifier,Expression)+{-# LINE 75 "../src-derived/Transform.hs" #-}++{-# LINE 147 "Transform.ag" #-}+type AroundInfo = (Identifier,Expression)+{-# LINE 79 "../src-derived/Transform.hs" #-}++{-# LINE 148 "Transform.ag" #-}+type MergeInfo = (Identifier, Identifier, [Identifier], Expression)+{-# LINE 83 "../src-derived/Transform.hs" #-}++{-# LINE 202 "Transform.ag" #-}+++checkDuplicate :: (Identifier -> Identifier -> Error)+ -> Identifier -> val -> Map Identifier val -> (Map Identifier val,Seq Error)+checkDuplicate dupError key val m+ = case Map.lookupIndex key m of+ Just ix -> let (key',_) = Map.elemAt ix m+ in (m,Seq.singleton (dupError key key'))+ Nothing -> (Map.insert key val m,Seq.empty)++checkDuplicates :: (Identifier -> Identifier -> Error)+ -> [(Identifier, val)] -> Map Identifier val -> (Map Identifier val,Seq Error)+checkDuplicates dupError new m = foldErrors check m new+ where check = uncurry (checkDuplicate dupError)++foldErrors f e xs = foldl g (e,Seq.empty) xs+ where g ~(e,es) x = let (e',es') = f x e+ in (e', es >< es')+++checkForDuplicates :: (Identifier -> Identifier -> Error) -> [Identifier] -> [Error]+checkForDuplicates err [] = []+checkForDuplicates err (x:xs) = let (same,other) = List.partition (equalId x) xs+ in map (err x) same ++ checkForDuplicates err other++equalId :: Identifier -> Identifier -> Bool+equalId x y = getName x == getName y++{-# LINE 114 "../src-derived/Transform.hs" #-}++{-# LINE 338 "Transform.ag" #-}++type RulesAndErrors = ([Rule], Seq Error)+type SigsAndErrors = ([TypeSig], Seq Error)+type InstsAndErrors = ([(Identifier, Type)], Seq Error)+type UniquesAndErrors = (Map Identifier Identifier, Seq Error)+type AugmentsAndErrors = (Map Identifier [Expression], Seq Error)+type AroundsAndErrors = (Map Identifier [Expression], Seq Error)+type MergesAndErrors = (Map Identifier (Identifier, [Identifier], Expression), Seq Error)+type AttrOverwrite = Map AttrName Bool+type AccumRuleCheck = (RulesAndErrors, AttrOverwrite)+type AccumDefiCheck = (Seq Error, AttrOverwrite, [AttrName], [AttrName])++checkRules :: Map NontermIdent (Attributes, Attributes) -> Map NontermIdent (Map ConstructorIdent FieldMap) ->+ Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [SigInfo]) ->+ Map NontermIdent (Map ConstructorIdent [MergeInfo]) ->+ NontermIdent -> ConstructorIdent -> [RuleInfo] -> RulesAndErrors+checkRules attributes fields allinsts allsigs allmerges nt con rs+ = let fieldmap :: FieldMap+ fieldmap = (_LHS,NT nt undefined) : (_LOC,NT undefined undefined) : (_INST, NT undefined undefined) : (_FIRST, NT undefined undefined) : (_LAST, NT undefined undefined)+ : Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fields)+ ++ mapMaybe (\instNm -> lookup instNm sigs >>= \tp -> return (instNm, tp)) (Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allinsts))+ -- merged children are not allowed to have any inherited attrs defined: do not include+ + sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allsigs)++ hasAttrib f tp attr = Map.member attr (f (Map.findWithDefault (Map.empty,Map.empty) tp attributes))+ + checkRule :: RuleInfo -> AccumRuleCheck -> AccumRuleCheck+ checkRule (mbNm, pat,exp,as,owrt,str) ((r1,e1),m1) + = let (e2,m2,u2,b2) = foldr (checkDefi owrt) (e1,m1,[],[]) as+ in ( (Rule mbNm (pat u2) exp owrt str True : r1, e2), m2)++ checkDefi :: Bool -> AttrName -> AccumDefiCheck -> AccumDefiCheck+ checkDefi owrt fa@(field,attr) (e,m,u,bs)+ = case lookup field fieldmap+ of Just (NT tp _) -> + let tp' = maybe tp id (deforestedNt tp)+ in if field == _LOC || field == _INST || field == _FIRST || field == _LAST+ || hasAttrib (if getName field==getName _LHS then snd else fst) tp' attr+ then case Map.lookupIndex fa m of+ Just ix -> let ((_,attr2),b) = Map.elemAt ix m+ in if b && not (fa `elem` bs)+ then ( e, Map.insert fa owrt m, fa:u, fa:bs)+ else (((Seq.<|)) (DupRule nt con field attr2 attr) e, m, fa:u, bs)+ Nothing -> ( e, Map.insert fa owrt m, u, fa:bs)+ else (((Seq.<|)) (SuperfluousRule nt con field attr) e, m, fa:u, bs)+ _ -> (((Seq.<|)) (UndefChild nt con field) e, m, fa:u, bs )++ in fst (foldr checkRule (([],Seq.empty),Map.empty) rs)++checkRuleNames :: NontermIdent -> ConstructorIdent -> [RuleInfo] -> Seq Error+checkRuleNames nt con+ = fst . foldr checkRule (Seq.empty, Set.empty)+ where+ checkRule (Just nm,_,_,_,_,_) (errs, nms)+ | nm `Set.member` nms = (DupRuleName nt con nm Seq.<| errs, nms)+ | otherwise = (errs, Set.insert nm nms)+ checkRule (Nothing,_,_,_,_,_) inp = inp++checkSigs :: NontermIdent -> ConstructorIdent -> [SigInfo] -> SigsAndErrors+checkSigs nt con sis + = let checkSig (ide,typ) (sigs,errs)+ = if ide `elem` map (\(TypeSig n t)-> n) sigs+ then (sigs, ((Seq.<|)) (DupSig nt con ide) errs)+ -- else if not (ide `elem` locattrdefs)+ -- then (sigs, ((Seq.<|)) (SupSig nt con ide) errs)+ else (TypeSig ide typ:sigs, errs)+ in foldr checkSig ([],Seq.empty) sis++checkInsts :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [SigInfo]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [Identifier] -> InstsAndErrors+checkInsts allNts sigMap fieldMap nt con+ = foldr (\inst (insts, errs) ->+ maybe (insts, Seq.singleton (MissingInstSig nt con inst) >< errs)+ (\info@(k, NT nm _) ->+ case findInst k insts of+ Just k' -> (insts, Seq.singleton (DupChild nt con k k') >< errs)+ Nothing -> case nm `Set.member` allNts of+ True -> (info : insts, errs)+ False | take 2 (getName nm) == "T_" -> let nm' = Ident (drop 2 (getName nm)) (getPos nm)+ in case nm' `Set.member` allNts of+ True -> (info : insts, errs)+ False -> (insts, Seq.singleton (UndefNont nm') >< errs)+ | otherwise -> (insts, Seq.singleton (UndefNont nm) >< errs)+ ) + $ findSig inst+ ) ([], Seq.empty)+ where+ sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt sigMap)+ + findSig name+ = do tp@(NT _ _) <- lookup name sigs+ return (name, tp)+ + findInst _ [] = Nothing+ findInst k ((k', _): r)+ | k == k' = Just k'+ | otherwise = findInst k r++checkUniques :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [UniqueInfo] -> UniquesAndErrors+checkUniques allAttrs nt con uniques+ = let checkUnique (ident,ref) (us,errs)+ = if ident `Map.member` us+ then (us, ((Seq.<|)) (DupUnique nt con ident) errs)+ else if Map.member ref inhs && Map.member ref syns+ then (Map.insert ident ref us, errs)+ else (us, ((Seq.<|)) (MissingUnique nt ref) errs)++ (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs+ in foldr checkUnique (Map.empty, Seq.empty) uniques++checkAugments :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [AugmentInfo] -> AugmentsAndErrors+checkAugments allAttrs nt con augments+ = let checkAugment (ident,expr) (as,errs)+ = if ident `Map.member` as+ then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs)+ else if Map.member ident syns+ then (Map.insert ident [expr] as, errs)+ else (as, ((Seq.<|)) (MissingSyn nt ident) errs)++ (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs+ in foldr checkAugment (Map.empty, Seq.empty) augments++checkArounds :: Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [AroundInfo] -> AroundsAndErrors+checkArounds fieldMap nt con arounds+ = let checkAround (ident,expr) (as,errs)+ = if ident `Map.member` as+ then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs)+ else case lookup ident fields of+ Just (NT _ _) -> (Map.insert ident [expr] as, errs)+ _ -> (as, ((Seq.<|)) (UndefChild nt con ident) errs)+ fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap)+ in foldr checkAround (Map.empty, Seq.empty) arounds++checkMerges :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [MergeInfo] -> MergesAndErrors+checkMerges allNts allInsts fieldMap nt con merges+ = let checkMerge (target,nt,sources,expr) (m,errs)+ = let fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap)+ insts = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts)+ allFields = insts ++ map fst fields -- note: sources of merge may not contain a target (for simplicity)+ in if target `Map.member` m -- check for duplicate with self+ then (m, DupChild nt con target (fst $ Map.elemAt (Map.findIndex target m) m) Seq.<| errs)+ else if target `elem` allFields+ then (m, DupChild nt con target (head $ filter (== target) allFields) Seq.<| errs)+ else let missing = filter (\s -> not (s `elem` allFields)) sources+ in if null missing+ then if nt `Set.member` allNts -- check if the nonterm is defined+ then (Map.insert target (nt, sources, expr) m, errs) -- all ok..+ else (m, UndefNont nt Seq.<| errs)+ else (m, (Seq.fromList $ map (UndefChild nt con) missing) Seq.>< errs)+ in foldr checkMerge (Map.empty, Seq.empty) merges++unionunionplusplus = Map.unionWith (Map.unionWith (++))+{-# LINE 269 "../src-derived/Transform.hs" #-}++{-# LINE 493 "Transform.ag" #-}++mkUniqueRules :: Options -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Attributes,Attributes) -> NontermIdent -> ConstructorIdent -> Map Identifier Identifier -> [Rule]+mkUniqueRules opts allFields allInsts allAttrDecls nt con usMap+ = map apply groups+ where+ fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allFields)+ ++ Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts)+ -- may have duplicates++ groups = Map.assocs $ Map.foldrWithKey (\i r m -> Map.insertWith (++) r [i] m) Map.empty usMap+ apply (ref,us) = mkRule ref (findOutField ref) us+ findOutField ref = case [ chld | (chld,NT tp _) <- fields, tp `hasSyn` ref] of+ [] -> _LHS+ (x:_) -> x+ hasSyn tp ref = Map.member ref $ snd $ Map.findWithDefault (Map.empty,Map.empty) tp allAttrDecls+ mkRule ref outFld locAttrs+ = let pat = Product noPos (attr outFld ref : [attr _LOC u | u <- locAttrs ])+ rhs = Expression noPos $ wrap ref $ foldr gencase (finalout locAttrs) locAttrs+ -- [HsToken ("mkUniques" ++ show (length locAttrs) ++ " ") noPos, AGField _LHS ref noPos Nothing]+ in Rule Nothing pat rhs False "-- generated by the unique rule mechanism." False+ attr fld a = Alias fld a (Underscore noPos) []+ gencase nm outp+ = h ("case " ++ uniqueDispenser opts ++ " __cont of { (__cont, " ++ getName nm ++ ") -> ") ++ outp ++ h "}"+ h s = [HsToken s noPos]+ finalout us = h ("(__cont, " ++ concat (intersperse "," (map getName us)) ++ ")")+ wrap ref inp = h "case " ++ [AGField _LHS ref noPos Nothing] ++ h " of { __cont | __cont `seq` True -> " ++ inp ++ h "}"+{-# LINE 298 "../src-derived/Transform.hs" #-}++{-# LINE 691 "Transform.ag" #-}++flattenDatas :: DataTypes -> Map NontermIdent (Set NontermIdent)+flattenDatas ds = Map.map flatten ds+ where flatten cs = Set.fromList [ nt | (_,NT nt _) <- concatMap snd (Map.toList cs)]++reachableFrom :: Map NontermIdent (Set NontermIdent) -> Set NontermIdent -> Set NontermIdent+reachableFrom table nts = reach nts+ where reach nts = let nts' = Set.unions (nts : [ ns | nt <- Set.toList nts+ , let ns = Map.findWithDefault Set.empty nt table ])+ in if Set.size nts' > Set.size nts+ then reach nts'+ else nts+invert :: Map NontermIdent (Set NontermIdent) -> Map NontermIdent (Set NontermIdent)+invert m = foldr inv Map.empty (Map.toList m)+ where inv (x,ns) m = fold (\n m -> Map.insertWith Set.union n (Set.singleton x) m) m ns++path :: Map NontermIdent (Set NontermIdent) -> NontermIdent -> NontermIdent -> Set NontermIdent+path table from to = let children = Map.findWithDefault Set.empty from table+ forward = reachableFrom table children+ backward = reachableFrom (invert table)+ (Set.singleton to)+ in Set.intersection forward backward+{-# LINE 323 "../src-derived/Transform.hs" #-}++{-# LINE 808 "Transform.ag" #-}++pragmaMapUnion :: PragmaMap -> PragmaMap -> PragmaMap+pragmaMapUnion = Map.unionWith (Map.unionWith Set.union)++pragmaMapSingle :: NontermIdent -> ConstructorIdent -> Set Identifier -> PragmaMap+pragmaMapSingle nt con nms = Map.singleton nt (Map.singleton con nms)+{-# LINE 332 "../src-derived/Transform.hs" #-}++{-# LINE 840 "Transform.ag" #-}++orderMapUnion :: AttrOrderMap -> AttrOrderMap -> AttrOrderMap+orderMapUnion = Map.unionWith (Map.unionWith Set.union)++orderMapSingle :: NontermIdent -> ConstructorIdent -> Set Dependency -> AttrOrderMap+orderMapSingle nt con deps = Map.singleton nt (Map.singleton con deps)+{-# LINE 341 "../src-derived/Transform.hs" #-}++{-# LINE 866 "Transform.ag" #-}++mergeParams :: ParamMap -> ParamMap -> ParamMap+mergeParams = Map.unionWith (++)+{-# LINE 347 "../src-derived/Transform.hs" #-}++{-# LINE 889 "Transform.ag" #-}++mergeCtx :: ContextMap -> ContextMap -> ContextMap+mergeCtx+ = Map.unionWith nubconcat+ where nubconcat a b = nub (a ++ b)+{-# LINE 355 "../src-derived/Transform.hs" #-}++{-# LINE 902 "Transform.ag" #-}++mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1)+{-# LINE 360 "../src-derived/Transform.hs" #-}++{-# LINE 913 "Transform.ag" #-}++merge x y = foldr f y (Map.toList x)+ where f ~(k,v) m = Map.insertWith (Map.union) k v m+{-# LINE 366 "../src-derived/Transform.hs" #-}++{-# LINE 954 "Transform.ag" #-}++checkAttrs allFields nts inherited synthesized decls = foldErrors check decls nts where+ check nt decls | not (nt `Map.member` allFields) = (decls,Seq.singleton(UndefNont nt))+ | otherwise = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt decls+ (inh',einh) = checkDuplicates (DupInhAttr nt) inherited inh+ (syn',esyn) = checkDuplicates (DupSynAttr nt) synthesized syn+ in (Map.insert nt (inh',syn') decls,einh >< esyn)+{-# LINE 376 "../src-derived/Transform.hs" #-}++{-# LINE 965 "Transform.ag" #-}++addSelf name atMap = let (eInh,eSyn) = Map.findWithDefault(Map.empty,Map.empty) name atMap+ in Map.insert name (eInh, Map.insert (Ident "self" noPos) (NT _SELF []) eSyn)atMap+{-# LINE 382 "../src-derived/Transform.hs" #-}++{-# LINE 1106 "Transform.ag" #-}++makeType :: Set NontermIdent -> Type -> Type+makeType nts tp@(NT x _) | x == _SELF = tp+ | Set.member x nts = tp+ | otherwise = Haskell (typeToHaskellString Nothing [] tp)+makeType _ tp = tp+{-# LINE 391 "../src-derived/Transform.hs" #-}++{-# LINE 1113 "Transform.ag" #-}++constructGrammar :: Set NontermIdent+ -> ParamMap+ -> DataTypes+ -> Map NontermIdent (Attributes, Attributes)+ -> Map NontermIdent (Map Identifier (String, String, String))+ -> Derivings+ -> Set NontermIdent+ -> Map NontermIdent (Map ConstructorIdent [Rule])+ -> Map NontermIdent (Map ConstructorIdent [TypeSig])+ -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)])+ -> TypeSyns+ -> PragmaMap+ -> AttrOrderMap+ -> ContextMap+ -> UniqueMap+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))+ -> Grammar++constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap mergeMap =+ let gr = [ (nt,Map.toList alts) | (nt,alts) <- Map.toList gram]+ nonts = map nont gr+ nont (nt,alts) = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt attrs+ rmap = Map.findWithDefault Map.empty nt allrules+ tsmap = Map.findWithDefault Map.empty nt tsigs+ instsmap = Map.findWithDefault Map.empty nt allinsts+ params = Map.findWithDefault [] nt ntParams+ mergemap = Map.findWithDefault Map.empty nt mergeMap+ alt (con,flds) =+ let rules = maybe [] id (Map.lookup con rmap)+ tsigs = maybe [] id (Map.lookup con tsmap)+ insts = maybe [] id (Map.lookup con instsmap)+ merges = [ (n, NT t []) | (n, (t, _, _)) <- Map.assocs $ maybe Map.empty id (Map.lookup con mergemap) ]++ -- important: keep order of children+ cldrn = map child (flds ++ filter (not . existsAsField) insts ++ merges)+ child (nm, tp) =+ let tpI = if existsAsInst nm+ then fromJust $ lookup nm insts+ else tp+ (inh,syn) = case tpI of+ NT nt _ -> let nt' = maybe nt id (deforestedNt nt)+ in Map.findWithDefault (Map.empty,Map.empty) nt' attrs+ _ -> (Map.empty,Map.empty)+ virt = if existsAsInst nm+ then case lookup nm flds of+ Just tp' -> Just (Just tp')+ Nothing -> Just Nothing+ else if existsAsMerge nm+ then (Just Nothing)+ else Nothing+ in Child nm tpI inh syn virt+ existsAsInst nm = maybe False (const True) (lookup nm insts)+ existsAsField (nm,_) = maybe False (const True) (lookup nm flds)+ existsAsMerge nm = maybe False (const True) (lookup nm merges)+ in Production con cldrn rules tsigs+ in Nonterminal nt params inh syn (map alt alts)+ in Grammar tsyns uses derivings wrappers nonts pragmaMap orderMap ntParams contextMap uniqueMap augmentsMap aroundsMap mergeMap+{-# LINE 454 "../src-derived/Transform.hs" #-}++{-# LINE 1175 "Transform.ag" #-}++mapUnionWithSetUnion = Map.unionWith Set.union+mapUnionWithPlusPlus = Map.unionWith (++)+{-# LINE 460 "../src-derived/Transform.hs" #-}+-- AG ----------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ blocks : Blocks+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ output : Grammar+ pragmas : Options -> Options+ alternatives:+ alternative AG:+ child elems : Elems + visit 0:+ local allFields : _+ local allConstrs : _+ local allRules : _+ local allSigs : _+ local allInsts : _+ local allUniques : _+ local allAugments : _+ local allArounds : _+ local allMerges : _+ local augmentSigs : _+ local allRulesErrs : _+ local allNamesErrs : _+ local allSigsErrs : _+ local allInstsErrs : _+ local allUniquesErrs : _+ local allAugmentErrs : _+ local allAroundsErrs : _+ local allMergesErrs : _+ local checkedRulesPre : _+ local checkedSigs : _+ local checkedInsts : _+ local checkedUniques : _+ local checkedAugments : _+ local checkedArounds : _+ local checkedRules : _+ local checkedMerges : _+ local errs1 : _+ local errs2 : _+ local errs3 : _+ local errs4 : _+ local errs5 : _+ local errs6 : _+ local errs7 : _+ local errs8 : _+ local errs9 : _+ local errs10 : _+ local errs11 : _+ local allNonterminals : _+ local allAttrDecls : _+-}+-- cata+sem_AG :: AG ->+ T_AG +sem_AG (AG _elems ) =+ (sem_AG_AG (sem_Elems _elems ) )+-- semantic domain+newtype T_AG = T_AG (Options ->+ ( Blocks,(Seq Error),(Maybe (String,String,String)),Grammar,(Options -> Options)))+data Inh_AG = Inh_AG {options_Inh_AG :: !(Options)}+data Syn_AG = Syn_AG {blocks_Syn_AG :: !(Blocks),errors_Syn_AG :: !((Seq Error)),moduleDecl_Syn_AG :: !((Maybe (String,String,String))),output_Syn_AG :: !(Grammar),pragmas_Syn_AG :: !((Options -> Options))}+wrap_AG :: T_AG ->+ Inh_AG ->+ Syn_AG +wrap_AG (T_AG sem ) (Inh_AG _lhsIoptions ) =+ (let ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas) = sem _lhsIoptions + in (Syn_AG _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas ))+sem_AG_AG :: T_Elems ->+ T_AG +sem_AG_AG (T_Elems elems_ ) =+ (T_AG (\ _lhsIoptions ->+ (let _lhsOoutput :: Grammar+ _lhsOerrors :: (Seq Error)+ _elemsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _elemsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _elemsOdefinedSets :: DefinedSets+ _elemsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOblocks :: Blocks+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _elemsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _elemsOallFields :: DataTypes+ _elemsOallNonterminals :: (Set NontermIdent)+ _elemsOoptions :: Options+ _elemsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _elemsIattrOrderCollect :: AttrOrderMap+ _elemsIblocks :: Blocks+ _elemsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _elemsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _elemsIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _elemsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _elemsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _elemsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _elemsIcollectedNames :: (Set Identifier)+ _elemsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _elemsIcollectedSetNames :: (Set Identifier)+ _elemsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _elemsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _elemsIctxCollect :: ContextMap+ _elemsIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _elemsIderivings :: Derivings+ _elemsIerrors :: (Seq Error)+ _elemsImoduleDecl :: (Maybe (String,String,String))+ _elemsIparamsCollect :: ParamMap+ _elemsIpragmas :: (Options -> Options)+ _elemsIsemPragmasCollect :: PragmaMap+ _elemsItypeSyns :: TypeSyns+ _elemsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _elemsIwrappers :: (Set NontermIdent)+ -- "Transform.ag"(line 52, column 8)+ _lhsOoutput =+ ({-# LINE 52 "Transform.ag" #-}+ constructGrammar _allNonterminals+ _elemsIparamsCollect+ _allFields+ _allAttrDecls+ _elemsIuseMap+ _elemsIderivings+ (if wrappers _lhsIoptions then _allNonterminals else _elemsIwrappers)+ _checkedRules+ _checkedSigs+ _checkedInsts+ _elemsItypeSyns+ _elemsIsemPragmasCollect+ _elemsIattrOrderCollect+ _elemsIctxCollect+ _checkedUniques+ _checkedAugments+ _checkedArounds+ _checkedMerges+ {-# LINE 595 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 253, column 10)+ _allFields =+ ({-# LINE 253 "Transform.ag" #-}+ let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm)+ in foldr f (Map.empty) _elemsIcollectedFields+ {-# LINE 602 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 256, column 10)+ _allConstrs =+ ({-# LINE 256 "Transform.ag" #-}+ let f (nt,con,_) = Map.insertWith (++) nt [con]+ in foldr f (Map.empty) _elemsIcollectedFields+ {-# LINE 609 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 259, column 10)+ _allRules =+ ({-# LINE 259 "Transform.ag" #-}+ let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r])+ in foldr f (Map.empty) _elemsIcollectedRules+ {-# LINE 616 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 262, column 10)+ _allSigs =+ ({-# LINE 262 "Transform.ag" #-}+ let f (nt,con,t) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [t])+ typeof nt r = Map.findWithDefault (Haskell "<unknown>") r $ fst $ Map.findWithDefault (Map.empty,Map.empty) nt _allAttrDecls+ in foldr f (Map.empty) ( _elemsIcollectedSigs+ ++ [ (nt, con, (ident,typeof nt ref)) | (nt, con, us) <- _elemsIcollectedUniques, (ident,ref) <- us ]+ )+ {-# LINE 626 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 268, column 10)+ _allInsts =+ ({-# LINE 268 "Transform.ag" #-}+ let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is)+ in foldr f (Map.empty) _elemsIcollectedInsts+ {-# LINE 633 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 271, column 10)+ _allUniques =+ ({-# LINE 271 "Transform.ag" #-}+ let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us)+ in foldr f (Map.empty) _elemsIcollectedUniques+ {-# LINE 640 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 273, column 10)+ _allAugments =+ ({-# LINE 273 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedAugments+ {-# LINE 647 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 275, column 10)+ _allArounds =+ ({-# LINE 275 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedArounds+ {-# LINE 654 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 277, column 10)+ _allMerges =+ ({-# LINE 277 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedMerges+ {-# LINE 661 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 280, column 10)+ _augmentSigs =+ ({-# LINE 280 "Transform.ag" #-}+ let gen mp = []+ in Map.map (Map.map gen) _allAugments+ {-# LINE 668 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 283, column 10)+ _allRulesErrs =+ ({-# LINE 283 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs _allMerges )) _allRules+ {-# LINE 674 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 284, column 10)+ _allNamesErrs =+ ({-# LINE 284 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules+ {-# LINE 680 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 285, column 10)+ _allSigsErrs =+ ({-# LINE 285 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs+ {-# LINE 686 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 286, column 10)+ _allInstsErrs =+ ({-# LINE 286 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts+ {-# LINE 692 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 287, column 10)+ _allUniquesErrs =+ ({-# LINE 287 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques+ {-# LINE 698 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 288, column 10)+ _allAugmentErrs =+ ({-# LINE 288 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments+ {-# LINE 704 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 289, column 10)+ _allAroundsErrs =+ ({-# LINE 289 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds+ {-# LINE 710 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 290, column 10)+ _allMergesErrs =+ ({-# LINE 290 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkMerges _allNonterminals _allInsts _allFields )) _allMerges+ {-# LINE 716 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 292, column 10)+ _checkedRulesPre =+ ({-# LINE 292 "Transform.ag" #-}+ Map.map (Map.map fst) _allRulesErrs+ {-# LINE 722 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 293, column 10)+ _checkedSigs =+ ({-# LINE 293 "Transform.ag" #-}+ Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs+ {-# LINE 728 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 294, column 10)+ _checkedInsts =+ ({-# LINE 294 "Transform.ag" #-}+ Map.map (Map.map fst) _allInstsErrs+ {-# LINE 734 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 295, column 10)+ _checkedUniques =+ ({-# LINE 295 "Transform.ag" #-}+ Map.map (Map.map fst) _allUniquesErrs+ {-# LINE 740 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 296, column 10)+ _checkedAugments =+ ({-# LINE 296 "Transform.ag" #-}+ Map.map (Map.map fst) _allAugmentErrs+ {-# LINE 746 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 297, column 10)+ _checkedArounds =+ ({-# LINE 297 "Transform.ag" #-}+ Map.map (Map.map fst) _allAroundsErrs+ {-# LINE 752 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 298, column 10)+ _checkedRules =+ ({-# LINE 298 "Transform.ag" #-}+ Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques )+ {-# LINE 758 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 299, column 10)+ _checkedMerges =+ ({-# LINE 299 "Transform.ag" #-}+ Map.map (Map.map fst) _allMergesErrs+ {-# LINE 764 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 301, column 10)+ _errs1 =+ ({-# LINE 301 "Transform.ag" #-}+ let f = checkForDuplicates (DupSynonym)+ in Seq.fromList . f . map fst $ _elemsItypeSyns+ {-# LINE 771 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 304, column 10)+ _errs2 =+ ({-# LINE 304 "Transform.ag" #-}+ let g nt (con,fm) = checkForDuplicates (DupChild nt con) (map fst fm)+ f (nt,cfm) = concat . map (g nt) . Map.toList $ cfm+ in Seq.fromList . concat . map f . Map.toList $ _allFields+ {-# LINE 779 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 308, column 10)+ _errs3 =+ ({-# LINE 308 "Transform.ag" #-}+ let f (nt,cons) = checkForDuplicates (DupAlt nt) cons+ in Seq.empty+ {-# LINE 786 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 312, column 10)+ _errs4 =+ ({-# LINE 312 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allRulesErrs+ {-# LINE 793 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 315, column 10)+ _errs5 =+ ({-# LINE 315 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allSigsErrs+ {-# LINE 800 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 318, column 10)+ _errs6 =+ ({-# LINE 318 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allInstsErrs+ {-# LINE 807 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 321, column 10)+ _errs7 =+ ({-# LINE 321 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allUniquesErrs+ {-# LINE 814 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 324, column 10)+ _errs8 =+ ({-# LINE 324 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allAugmentErrs+ {-# LINE 821 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 327, column 10)+ _errs9 =+ ({-# LINE 327 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allAroundsErrs+ {-# LINE 828 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 330, column 10)+ _errs10 =+ ({-# LINE 330 "Transform.ag" #-}+ let f m s = Map.fold ((><)) s m+ in Map.fold f Seq.empty _allNamesErrs+ {-# LINE 835 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 333, column 10)+ _errs11 =+ ({-# LINE 333 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allMergesErrs+ {-# LINE 842 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 336, column 10)+ _lhsOerrors =+ ({-# LINE 336 "Transform.ag" #-}+ _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 >< _errs11+ {-# LINE 848 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 560, column 10)+ _allNonterminals =+ ({-# LINE 560 "Transform.ag" #-}+ _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames+ {-# LINE 854 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 580, column 8)+ _elemsOallConstructors =+ ({-# LINE 580 "Transform.ag" #-}+ _elemsIcollectedConstructorsMap+ {-# LINE 860 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 653, column 8)+ _elemsOdefSets =+ ({-# LINE 653 "Transform.ag" #-}+ Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals ))+ {-# LINE 866 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 654, column 8)+ _elemsOdefinedSets =+ ({-# LINE 654 "Transform.ag" #-}+ Map.map fst _elemsIdefSets+ {-# LINE 872 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 919, column 8)+ _elemsOattrDecls =+ ({-# LINE 919 "Transform.ag" #-}+ Map.empty+ {-# LINE 878 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 972, column 9)+ _allAttrDecls =+ ({-# LINE 972 "Transform.ag" #-}+ if withSelf _lhsIoptions+ then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals )+ else _elemsIattrDecls+ {-# LINE 886 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ _elemsIblocks+ {-# LINE 892 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ _elemsImoduleDecl+ {-# LINE 898 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ _elemsIpragmas+ {-# LINE 904 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallAttrDecls =+ ({-# LINE 821 "Transform.ag" #-}+ _allAttrDecls+ {-# LINE 910 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _allFields+ {-# LINE 916 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _allNonterminals+ {-# LINE 922 "Transform.hs" #-}+ )+ -- copy rule (down)+ _elemsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 928 "Transform.hs" #-}+ )+ ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) =+ elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets _elemsOoptions + in ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))) )+-- Alt ---------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ alternatives:+ alternative Alt:+ child pos : {Pos}+ child names : ConstructorSet + child fields : {Fields}+-}+-- cata+sem_Alt :: Alt ->+ T_Alt +sem_Alt (Alt _pos _names _fields ) =+ (sem_Alt_Alt _pos (sem_ConstructorSet _names ) _fields )+-- semantic domain+newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) ->+ (Set NontermIdent) ->+ (Set NontermIdent) ->+ ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))+data Inh_Alt = Inh_Alt {allConstructors_Inh_Alt :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alt :: !((Set NontermIdent)),nts_Inh_Alt :: !((Set NontermIdent))}+data Syn_Alt = Syn_Alt {collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}+wrap_Alt :: T_Alt ->+ Inh_Alt ->+ Syn_Alt +wrap_Alt (T_Alt sem ) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts + in (Syn_Alt _lhsOcollectedConstructorNames _lhsOcollectedFields ))+sem_Alt_Alt :: Pos ->+ T_ConstructorSet ->+ Fields ->+ T_Alt +sem_Alt_Alt pos_ (T_ConstructorSet names_ ) fields_ =+ (T_Alt (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _namesIcollectedConstructorNames :: (Set ConstructorIdent)+ _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _namesIerrors :: (Seq Error)+ -- "Transform.ag"(line 238, column 10)+ _lhsOcollectedFields =+ ({-# LINE 238 "Transform.ag" #-}+ let fieldTable =+ [ (attr, makeType _lhsIallNonterminals tp)+ | (attr, tp) <- fields_+ ]+ in [ (nt, con, fieldTable)+ | nt <- Set.toList _lhsInts+ , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))+ ]+ {-# LINE 991 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _namesIcollectedConstructorNames+ {-# LINE 997 "Transform.hs" #-}+ )+ ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) =+ names_ + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+-- Alts --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ alternatives:+ alternative Cons:+ child hd : Alt + child tl : Alts + alternative Nil:+-}+-- cata+sem_Alts :: Alts ->+ T_Alts +sem_Alts list =+ (Prelude.foldr sem_Alts_Cons sem_Alts_Nil (Prelude.map sem_Alt list) )+-- semantic domain+newtype T_Alts = T_Alts ((Map NontermIdent (Set ConstructorIdent)) ->+ (Set NontermIdent) ->+ (Set NontermIdent) ->+ ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))+data Inh_Alts = Inh_Alts {allConstructors_Inh_Alts :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alts :: !((Set NontermIdent)),nts_Inh_Alts :: !((Set NontermIdent))}+data Syn_Alts = Syn_Alts {collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}+wrap_Alts :: T_Alts ->+ Inh_Alts ->+ Syn_Alts +wrap_Alts (T_Alts sem ) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts + in (Syn_Alts _lhsOcollectedConstructorNames _lhsOcollectedFields ))+sem_Alts_Cons :: T_Alt ->+ T_Alts ->+ T_Alts +sem_Alts_Cons (T_Alt hd_ ) (T_Alts tl_ ) =+ (T_Alts (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _hdOallNonterminals :: (Set NontermIdent)+ _hdOnts :: (Set NontermIdent)+ _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _tlOallNonterminals :: (Set NontermIdent)+ _tlOnts :: (Set NontermIdent)+ _hdIcollectedConstructorNames :: (Set ConstructorIdent)+ _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _tlIcollectedConstructorNames :: (Set ConstructorIdent)+ _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames+ {-# LINE 1059 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 1065 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 1071 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1077 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 1083 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 1089 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1095 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 1101 "Transform.hs" #-}+ )+ ( _hdIcollectedConstructorNames,_hdIcollectedFields) =+ hd_ _hdOallConstructors _hdOallNonterminals _hdOnts + ( _tlIcollectedConstructorNames,_tlIcollectedFields) =+ tl_ _tlOallConstructors _tlOallNonterminals _tlOnts + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+sem_Alts_Nil :: T_Alts +sem_Alts_Nil =+ (T_Alts (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ Set.empty+ {-# LINE 1119 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 1125 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+-- Attrs -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ options : Options+ chained attribute:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ synthesized attributes:+ errors : Seq Error+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ alternatives:+ alternative Attrs:+ child pos : {Pos}+ child inh : {AttrNames}+ child chn : {AttrNames}+ child syn : {AttrNames}+ visit 0:+ local _tup1 : _+ local attrDecls : _+ local errors : _+ local _tup2 : _+ local inherited : _+ local synthesized : _+ local useMap : _+ local errors1 : _+-}+-- cata+sem_Attrs :: Attrs ->+ T_Attrs +sem_Attrs (Attrs _pos _inh _chn _syn ) =+ (sem_Attrs_Attrs _pos _inh _chn _syn )+-- semantic domain+newtype T_Attrs = T_Attrs (DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Set NontermIdent) ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),(Seq Error),(Map NontermIdent (Map Identifier (String,String,String)))))+data Inh_Attrs = Inh_Attrs {allFields_Inh_Attrs :: !(DataTypes),allNonterminals_Inh_Attrs :: !((Set NontermIdent)),attrDecls_Inh_Attrs :: !((Map NontermIdent (Attributes, Attributes))),nts_Inh_Attrs :: !((Set NontermIdent)),options_Inh_Attrs :: !(Options)}+data Syn_Attrs = Syn_Attrs {attrDecls_Syn_Attrs :: !((Map NontermIdent (Attributes, Attributes))),errors_Syn_Attrs :: !((Seq Error)),useMap_Syn_Attrs :: !((Map NontermIdent (Map Identifier (String,String,String))))}+wrap_Attrs :: T_Attrs ->+ Inh_Attrs ->+ Syn_Attrs +wrap_Attrs (T_Attrs sem ) (Inh_Attrs _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions + in (Syn_Attrs _lhsOattrDecls _lhsOerrors _lhsOuseMap ))+sem_Attrs_Attrs :: Pos ->+ AttrNames ->+ AttrNames ->+ AttrNames ->+ T_Attrs +sem_Attrs_Attrs pos_ inh_ chn_ syn_ =+ (T_Attrs (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsInts+ _lhsIoptions ->+ (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOerrors :: (Seq Error)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ -- "Transform.ag"(line 927, column 15)+ __tup1 =+ ({-# LINE 927 "Transform.ag" #-}+ checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls+ {-# LINE 1195 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 927, column 15)+ (_attrDecls,_) =+ ({-# LINE 927 "Transform.ag" #-}+ __tup1+ {-# LINE 1201 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 927, column 15)+ (_,_errors) =+ ({-# LINE 927 "Transform.ag" #-}+ __tup1+ {-# LINE 1207 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 929, column 15)+ __tup2 =+ ({-# LINE 929 "Transform.ag" #-}+ let splitAttrs xs = unzip [ ((n,makeType _lhsIallNonterminals t),(n,ud))+ | (n,t,ud) <- xs+ ]+ (inh,_) = splitAttrs inh_+ (chn,uses1) = splitAttrs chn_+ (syn,uses2) = splitAttrs syn_+ isUse (n,(e1,e2,_)) = not (null e1 || null e2)+ in (inh++chn,chn++syn, Map.fromList (Prelude.filter isUse (uses1++uses2)))+ {-# LINE 1220 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 929, column 15)+ (_inherited,_,_) =+ ({-# LINE 929 "Transform.ag" #-}+ __tup2+ {-# LINE 1226 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 929, column 15)+ (_,_synthesized,_) =+ ({-# LINE 929 "Transform.ag" #-}+ __tup2+ {-# LINE 1232 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 929, column 15)+ (_,_,_useMap) =+ ({-# LINE 929 "Transform.ag" #-}+ __tup2+ {-# LINE 1238 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 937, column 11)+ _lhsOuseMap =+ ({-# LINE 937 "Transform.ag" #-}+ Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap))+ {-# LINE 1244 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 939, column 11)+ _errors1 =+ ({-# LINE 939 "Transform.ag" #-}+ if checkParseTy _lhsIoptions+ then let attrs = inh_ ++ syn_ ++ chn_+ items = map (\(ident,tp,_) -> (getPos ident, tp)) attrs+ errs = map check items+ check (pos,Haskell s) =+ let exp = Expression pos tks+ tks = [tk]+ tk = HsToken s pos+ in Seq.fromList $ checkTy exp+ check _ = Seq.empty+ in foldr (Seq.><) Seq.empty errs+ else Seq.empty+ {-# LINE 1261 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 951, column 11)+ _lhsOerrors =+ ({-# LINE 951 "Transform.ag" #-}+ _errors Seq.>< _errors1+ {-# LINE 1267 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrDecls+ {-# LINE 1273 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap))) )+-- ConstructorSet ----------------------------------------------+{-+ visit 0:+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ constructors : (Set ConstructorIdent->Set ConstructorIdent)+ errors : Seq Error+ alternatives:+ alternative CAll:+ alternative CDifference:+ child set1 : ConstructorSet + child set2 : ConstructorSet + alternative CName:+ child name : {ConstructorIdent}+ alternative CUnion:+ child set1 : ConstructorSet + child set2 : ConstructorSet +-}+-- cata+sem_ConstructorSet :: ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet (CAll ) =+ (sem_ConstructorSet_CAll )+sem_ConstructorSet (CDifference _set1 _set2 ) =+ (sem_ConstructorSet_CDifference (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )+sem_ConstructorSet (CName _name ) =+ (sem_ConstructorSet_CName _name )+sem_ConstructorSet (CUnion _set1 _set2 ) =+ (sem_ConstructorSet_CUnion (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )+-- semantic domain+newtype T_ConstructorSet = T_ConstructorSet (( (Set ConstructorIdent),((Set ConstructorIdent->Set ConstructorIdent)),(Seq Error)))+data Inh_ConstructorSet = Inh_ConstructorSet {}+data Syn_ConstructorSet = Syn_ConstructorSet {collectedConstructorNames_Syn_ConstructorSet :: !((Set ConstructorIdent)),constructors_Syn_ConstructorSet :: !(((Set ConstructorIdent->Set ConstructorIdent))),errors_Syn_ConstructorSet :: !((Seq Error))}+wrap_ConstructorSet :: T_ConstructorSet ->+ Inh_ConstructorSet ->+ Syn_ConstructorSet +wrap_ConstructorSet (T_ConstructorSet sem ) (Inh_ConstructorSet ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors) = sem + in (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors ))+sem_ConstructorSet_CAll :: T_ConstructorSet +sem_ConstructorSet_CAll =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 724, column 17)+ _lhsOconstructors =+ ({-# LINE 724 "Transform.ag" #-}+ \ds -> ds+ {-# LINE 1324 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ Set.empty+ {-# LINE 1330 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 1336 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CDifference :: T_ConstructorSet ->+ T_ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet_CDifference (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ _set1IcollectedConstructorNames :: (Set ConstructorIdent)+ _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set1Ierrors :: (Seq Error)+ _set2IcollectedConstructorNames :: (Set ConstructorIdent)+ _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set2Ierrors :: (Seq Error)+ -- "Transform.ag"(line 723, column 17)+ _lhsOconstructors =+ ({-# LINE 723 "Transform.ag" #-}+ \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds+ {-# LINE 1356 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames+ {-# LINE 1362 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 1368 "Transform.hs" #-}+ )+ ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =+ set1_ + ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =+ set2_ + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CName :: ConstructorIdent ->+ T_ConstructorSet +sem_ConstructorSet_CName name_ =+ (T_ConstructorSet (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 568, column 11)+ _lhsOcollectedConstructorNames =+ ({-# LINE 568 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 1385 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 721, column 17)+ _lhsOconstructors =+ ({-# LINE 721 "Transform.ag" #-}+ \ds -> Set.singleton name_+ {-# LINE 1391 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 1397 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CUnion :: T_ConstructorSet ->+ T_ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet_CUnion (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ _set1IcollectedConstructorNames :: (Set ConstructorIdent)+ _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set1Ierrors :: (Seq Error)+ _set2IcollectedConstructorNames :: (Set ConstructorIdent)+ _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set2Ierrors :: (Seq Error)+ -- "Transform.ag"(line 722, column 17)+ _lhsOconstructors =+ ({-# LINE 722 "Transform.ag" #-}+ \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds+ {-# LINE 1417 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames+ {-# LINE 1423 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 1429 "Transform.hs" #-}+ )+ ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =+ set1_ + ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =+ set2_ + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+-- Elem --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ options : Options+ chained attributes:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ defSets : Map Identifier (Set NontermIdent,Set Identifier)+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ blocks : Blocks+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedNames : Set Identifier+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSetNames : Set Identifier+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ ctxCollect : ContextMap+ derivings : Derivings+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ paramsCollect : ParamMap+ pragmas : Options -> Options+ semPragmasCollect : PragmaMap+ typeSyns : TypeSyns+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ wrappers : Set NontermIdent+ alternatives:+ alternative Attr:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child attrs : Attrs + alternative Data:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child params : {[Identifier]}+ child attrs : Attrs + child alts : Alts + child ext : {Bool}+ alternative Deriving:+ child pos : {Pos}+ child set : NontSet + child classes : {[NontermIdent]}+ alternative Module:+ child pos : {Pos}+ child name : {String}+ child exports : {String}+ child imports : {String}+ alternative Nocatas:+ child pos : {Pos}+ child set : NontSet + alternative Pragma:+ child pos : {Pos}+ child names : {[NontermIdent]}+ alternative Sem:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child attrs : Attrs + child alts : SemAlts + alternative Set:+ child pos : {Pos}+ child name : {NontermIdent}+ child merge : {Bool}+ child set : NontSet + visit 0:+ local _tup3 : _+ local defSets2 : _+ local errs : _+ alternative Txt:+ child pos : {Pos}+ child name : {Identifier}+ child mbNt : {Maybe NontermIdent}+ child lines : {[String]}+ visit 0:+ local blockInfo : _+ local blockValue : _+ alternative Type:+ child pos : {Pos}+ child ctx : {ClassContext}+ child name : {NontermIdent}+ child params : {[Identifier]}+ child type : {ComplexType}+ visit 0:+ local expanded : _+ local argType : _+ alternative Wrapper:+ child pos : {Pos}+ child set : NontSet +-}+-- cata+sem_Elem :: Elem ->+ T_Elem +sem_Elem (Attr _pos _ctx _names _attrs ) =+ (sem_Elem_Attr _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) )+sem_Elem (Data _pos _ctx _names _params _attrs _alts _ext ) =+ (sem_Elem_Data _pos _ctx (sem_NontSet _names ) _params (sem_Attrs _attrs ) (sem_Alts _alts ) _ext )+sem_Elem (Deriving _pos _set _classes ) =+ (sem_Elem_Deriving _pos (sem_NontSet _set ) _classes )+sem_Elem (Module _pos _name _exports _imports ) =+ (sem_Elem_Module _pos _name _exports _imports )+sem_Elem (Nocatas _pos _set ) =+ (sem_Elem_Nocatas _pos (sem_NontSet _set ) )+sem_Elem (Pragma _pos _names ) =+ (sem_Elem_Pragma _pos _names )+sem_Elem (Sem _pos _ctx _names _attrs _alts ) =+ (sem_Elem_Sem _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) (sem_SemAlts _alts ) )+sem_Elem (Set _pos _name _merge _set ) =+ (sem_Elem_Set _pos _name _merge (sem_NontSet _set ) )+sem_Elem (Txt _pos _name _mbNt _lines ) =+ (sem_Elem_Txt _pos _name _mbNt _lines )+sem_Elem (Type _pos _ctx _name _params _type ) =+ (sem_Elem_Type _pos _ctx _name _params _type )+sem_Elem (Wrapper _pos _set ) =+ (sem_Elem_Wrapper _pos (sem_NontSet _set ) )+-- semantic domain+newtype T_Elem = T_Elem ((Map NontermIdent (Attributes, Attributes)) ->+ (Map NontermIdent (Set ConstructorIdent)) ->+ DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map Identifier (Set NontermIdent,Set Identifier)) ->+ DefinedSets ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))+data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elem :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elem :: !(DataTypes),allNonterminals_Inh_Elem :: !((Set NontermIdent)),attrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elem :: !(DefinedSets),options_Inh_Elem :: !(Options)}+data Syn_Elem = Syn_Elem {attrDecls_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elem :: !(AttrOrderMap),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elem :: !((Set Identifier)),collectedRules_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elem :: !((Set Identifier)),collectedSigs_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elem :: !(ContextMap),defSets_Syn_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elem :: !(Derivings),errors_Syn_Elem :: !((Seq Error)),moduleDecl_Syn_Elem :: !((Maybe (String,String,String))),paramsCollect_Syn_Elem :: !(ParamMap),pragmas_Syn_Elem :: !((Options -> Options)),semPragmasCollect_Syn_Elem :: !(PragmaMap),typeSyns_Syn_Elem :: !(TypeSyns),useMap_Syn_Elem :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elem :: !((Set NontermIdent))}+wrap_Elem :: T_Elem ->+ Inh_Elem ->+ Syn_Elem +wrap_Elem (T_Elem sem ) (Inh_Elem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions + in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))+sem_Elem_Attr :: Pos ->+ ClassContext ->+ T_NontSet ->+ T_Attrs ->+ T_Elem +sem_Elem_Attr pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ -- "Transform.ag"(line 879, column 7)+ _lhsOctxCollect =+ ({-# LINE 879 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1640 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 923, column 10)+ _attrsOnts =+ ({-# LINE 923 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1646 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 1652 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 1658 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 1664 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 1670 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 1676 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 1682 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 1688 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 1694 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 1700 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 1706 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 1712 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 1718 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 1724 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 1730 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors+ {-# LINE 1736 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 1742 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 1748 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 1754 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 1760 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 1766 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 1772 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 1778 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 1784 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 1790 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 1796 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1802 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 1808 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 1814 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1820 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 1826 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 1832 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Data :: Pos ->+ ClassContext ->+ T_NontSet ->+ ([Identifier]) ->+ T_Attrs ->+ T_Alts ->+ Bool ->+ T_Elem +sem_Elem_Data pos_ ctx_ (T_NontSet names_ ) params_ (T_Attrs attrs_ ) (T_Alts alts_ ) ext_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _altsOnts :: (Set NontermIdent)+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOparamsCollect :: ParamMap+ _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _altsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _altsOallNonterminals :: (Set NontermIdent)+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _altsIcollectedConstructorNames :: (Set ConstructorIdent)+ _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- "Transform.ag"(line 170, column 10)+ _altsOnts =+ ({-# LINE 170 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1904 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 574, column 11)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 574 "Transform.ag" #-}+ Map.fromList+ [ (n, _altsIcollectedConstructorNames)+ | n <- Set.toList _namesInontSet+ ]+ {-# LINE 1913 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 856, column 7)+ _lhsOparamsCollect =+ ({-# LINE 856 "Transform.ag" #-}+ if null params_+ then Map.empty+ else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1921 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 879, column 7)+ _lhsOctxCollect =+ ({-# LINE 879 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1929 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 922, column 10)+ _attrsOnts =+ ({-# LINE 922 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1935 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 1941 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 1947 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 1953 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 1959 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _altsIcollectedFields+ {-# LINE 1965 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 1971 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 1977 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 1983 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 1989 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 1995 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2001 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2007 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 2013 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors+ {-# LINE 2019 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 2025 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 2031 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 2037 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2043 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 2049 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2055 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 2061 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2067 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2073 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2079 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2085 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2091 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2097 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2103 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 2109 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 2115 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2121 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + ( _altsIcollectedConstructorNames,_altsIcollectedFields) =+ alts_ _altsOallConstructors _altsOallNonterminals _altsOnts + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Deriving :: Pos ->+ T_NontSet ->+ ([NontermIdent]) ->+ T_Elem +sem_Elem_Deriving pos_ (T_NontSet set_ ) classes_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOderivings :: Derivings+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 907, column 14)+ _lhsOderivings =+ ({-# LINE 907 "Transform.ag" #-}+ Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet]+ {-# LINE 2178 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 2184 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2190 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2196 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2202 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2208 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2214 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2220 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2226 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 2232 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2238 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2244 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2250 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2256 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ Map.empty+ {-# LINE 2262 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _setIerrors+ {-# LINE 2268 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 2274 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 2280 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 2286 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 2292 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2298 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2304 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2310 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2316 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2322 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2328 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2334 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2340 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Module :: Pos ->+ String ->+ String ->+ String ->+ T_Elem +sem_Elem_Module pos_ name_ exports_ imports_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 1100, column 7)+ _lhsOmoduleDecl =+ ({-# LINE 1100 "Transform.ag" #-}+ Just (name_, exports_, imports_)+ {-# LINE 2388 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 2394 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2400 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2406 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2412 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2418 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2424 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2430 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2436 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 2442 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2448 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2454 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2460 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2466 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ Map.empty+ {-# LINE 2472 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 2478 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 2484 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 2490 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 2496 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 2502 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2508 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2514 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2520 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2526 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2532 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Nocatas :: Pos ->+ T_NontSet ->+ T_Elem +sem_Elem_Nocatas pos_ (T_NontSet set_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOpragmas :: (Options -> Options)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 740, column 14)+ _lhsOpragmas =+ ({-# LINE 740 "Transform.ag" #-}+ \o -> o { nocatas = _setInontSet `Set.union` nocatas o }+ {-# LINE 2582 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 2588 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2594 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2600 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2606 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2612 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2618 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2624 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2630 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 2636 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2642 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2648 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2654 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2660 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ Map.empty+ {-# LINE 2666 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 2672 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _setIerrors+ {-# LINE 2678 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 2684 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 2690 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 2696 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2702 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2708 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2714 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2720 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2726 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2732 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2738 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2744 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Pragma :: Pos ->+ ([NontermIdent]) ->+ T_Elem +sem_Elem_Pragma pos_ names_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOpragmas :: (Options -> Options)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 749, column 13)+ _lhsOpragmas =+ ({-# LINE 749 "Transform.ag" #-}+ let mk n o = case getName n of+ "gencatas" -> o { folds = True }+ "nogencatas" -> o { folds = False }+ "gendatas" -> o { dataTypes = True }+ "nogendatas" -> o { dataTypes = False }+ "gensems" -> o { semfuns = True }+ "nogensems" -> o { semfuns = False }+ "gentypesigs" -> o { typeSigs = True }+ "nogentypesigs"-> o { typeSigs = False }+ "nocycle" -> o { withCycle = False }+ "cycle" -> o { withCycle = True }+ "nostrictdata" -> o { strictData = False }+ "strictdata" -> o { strictData = True }+ "nostrictcase" -> o { strictCases = False }+ "strictcase" -> o { strictCases = True }+ "strictercase" -> o { strictCases = True, stricterCases = True }+ "nostrictwrap" -> o { strictWrap = False }+ "strictwrap" -> o { strictWrap = True }+ "novisit" -> o { visit = False }+ "visit" -> o { visit = True }+ "nocase" -> o { cases = False }+ "case" -> o { cases = True }+ "noseq" -> o { withSeq = False }+ "seq" -> o { withSeq = True }+ "nounbox" -> o { unbox = False }+ "unbox" -> o { unbox = True }+ "bangpats" -> o { bangpats = True }+ "breadthfirst" -> o { breadthFirst = True }+ "breadthfirstStrict" -> o { breadthFirstStrict = True }+ "nooptimize" -> o { cases = False , visit = False }+ "optimize" -> o { cases = True , visit = True }+ "strictsem" -> o { strictSems = True }+ "gentraces" -> o { genTraces = True }+ "genusetraces" -> o { genUseTraces = True }+ "splitsems" -> o { splitSems = True }+ "gencostcentres" -> o { genCostCentres = True }+ "sepsemmods" -> o { sepSemMods = True }+ "genlinepragmas" -> o { genLinePragmas = True }+ "newtypes" -> o { newtypes = True }+ "nonewtypes" -> o { newtypes = False }+ _ -> o+ in \o -> foldr mk o names_+ {-# LINE 2831 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 2837 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2843 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2849 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2855 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2861 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2867 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2873 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2879 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 2885 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2891 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2897 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2903 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2909 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ Map.empty+ {-# LINE 2915 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 2921 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 2927 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 2933 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 2939 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 2945 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2951 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2957 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2963 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2969 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2975 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Sem :: Pos ->+ ClassContext ->+ T_NontSet ->+ T_Attrs ->+ T_SemAlts ->+ T_Elem +sem_Elem_Sem pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) (T_SemAlts alts_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _altsOnts :: (Set NontermIdent)+ _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _altsOallFields :: DataTypes+ _altsOoptions :: Options+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _altsIattrOrderCollect :: AttrOrderMap+ _altsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _altsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _altsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _altsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _altsIerrors :: (Seq Error)+ _altsIsemPragmasCollect :: PragmaMap+ -- "Transform.ag"(line 171, column 10)+ _altsOnts =+ ({-# LINE 171 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 3050 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 879, column 7)+ _lhsOctxCollect =+ ({-# LINE 879 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 3058 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 924, column 10)+ _attrsOnts =+ ({-# LINE 924 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 3064 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ _altsIattrOrderCollect+ {-# LINE 3070 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3076 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _altsIcollectedArounds+ {-# LINE 3082 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _altsIcollectedAugments+ {-# LINE 3088 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3094 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3100 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _altsIcollectedInsts+ {-# LINE 3106 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _altsIcollectedMerges+ {-# LINE 3112 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 3118 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _altsIcollectedRules+ {-# LINE 3124 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3130 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _altsIcollectedSigs+ {-# LINE 3136 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _altsIcollectedUniques+ {-# LINE 3142 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 3148 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors+ {-# LINE 3154 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 3160 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 3166 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 3172 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ _altsIsemPragmasCollect+ {-# LINE 3178 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3184 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 3190 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 3196 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 3202 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3208 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3214 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3220 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3226 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3232 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3238 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3244 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 3250 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallAttrDecls =+ ({-# LINE 821 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 3256 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3262 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 3268 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) =+ alts_ _altsOallAttrDecls _altsOallFields _altsOnts _altsOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Set :: Pos ->+ NontermIdent ->+ Bool ->+ T_NontSet ->+ T_Elem +sem_Elem_Set pos_ name_ merge_ (T_NontSet set_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _lhsOerrors :: (Seq Error)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 551, column 10)+ _lhsOcollectedSetNames =+ ({-# LINE 551 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 3326 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ __tup3 =+ ({-# LINE 658 "Transform.ag" #-}+ let allUsedNames = Set.unions [ maybe (Set.singleton n)+ snd+ (Map.lookup n _lhsIdefSets)+ | n <- Set.toList _setIcollectedNames+ ]+ (nontSet,e1) | Set.member name_ allUsedNames+ = (Set.empty, Seq.singleton(CyclicSet name_))+ | otherwise = (_setInontSet, Seq.empty)+ (res, e2) = let toAdd = (nontSet,Set.insert name_ allUsedNames)+ union (a,b) (c,d) = (a `Set.union` c, b `Set.union` d)+ in if Set.member name_ _lhsIallNonterminals || not merge_+ then checkDuplicate DupSet name_ toAdd _lhsIdefSets+ else (Map.insertWith union name_ toAdd _lhsIdefSets, Seq.empty)+ in (res, e1 Seq.>< e2)+ {-# LINE 3345 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ (_defSets2,_) =+ ({-# LINE 658 "Transform.ag" #-}+ __tup3+ {-# LINE 3351 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ (_,_errs) =+ ({-# LINE 658 "Transform.ag" #-}+ __tup3+ {-# LINE 3357 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 672, column 9)+ _lhsOdefSets =+ ({-# LINE 672 "Transform.ag" #-}+ _defSets2+ {-# LINE 3363 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 672, column 9)+ _lhsOerrors =+ ({-# LINE 673 "Transform.ag" #-}+ _errs >< _setIerrors+ {-# LINE 3369 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 3375 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3381 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3387 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3393 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3399 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3405 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3411 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3417 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 3423 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3429 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3435 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3441 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ Map.empty+ {-# LINE 3447 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 3453 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 3459 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 3465 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 3471 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 3477 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3483 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3489 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 3495 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3501 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3507 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3513 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3519 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Txt :: Pos ->+ Identifier ->+ (Maybe NontermIdent) ->+ ([String]) ->+ T_Elem +sem_Elem_Txt pos_ name_ mbNt_ lines_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOblocks :: Blocks+ _lhsOerrors :: (Seq Error)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 180, column 10)+ _blockInfo =+ ({-# LINE 180 "Transform.ag" #-}+ ( let nm = getName name_+ in if nm == "imports"+ then BlockImport+ else if nm == "optpragmas"+ then BlockPragma+ else BlockOther+ , mbNt_+ )+ {-# LINE 3574 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 188, column 10)+ _blockValue =+ ({-# LINE 188 "Transform.ag" #-}+ [(lines_, pos_)]+ {-# LINE 3580 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 189, column 10)+ _lhsOblocks =+ ({-# LINE 189 "Transform.ag" #-}+ Map.singleton _blockInfo _blockValue+ {-# LINE 3586 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 190, column 10)+ _lhsOerrors =+ ({-# LINE 190 "Transform.ag" #-}+ if checkParseBlock _lhsIoptions+ then let exp = Expression pos_ tks+ tks = [tk]+ tk = HsToken (unlines lines_) pos_+ in Seq.fromList $ checkBlock $ exp+ else Seq.empty+ {-# LINE 3597 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 3603 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3609 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3615 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3621 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3627 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3633 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3639 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 3645 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3651 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3657 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3663 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3669 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ Map.empty+ {-# LINE 3675 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 3681 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 3687 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 3693 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 3699 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 3705 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3711 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3717 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 3723 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3729 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3735 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Type :: Pos ->+ ClassContext ->+ NontermIdent ->+ ([Identifier]) ->+ ComplexType ->+ T_Elem +sem_Elem_Type pos_ ctx_ name_ params_ type_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOtypeSyns :: TypeSyns+ _lhsOparamsCollect :: ParamMap+ _lhsOctxCollect :: ContextMap+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 248, column 10)+ _lhsOcollectedFields =+ ({-# LINE 248 "Transform.ag" #-}+ map (\(x,y)->(name_, x, y)) _expanded+ {-# LINE 3782 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 554, column 11)+ _lhsOcollectedNames =+ ({-# LINE 554 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 3788 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 608, column 11)+ _expanded =+ ({-# LINE 608 "Transform.ag" #-}+ case _argType of+ List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp)+ ,(Ident "tl" pos_, NT name_ (map getName params_))+ ]+ )+ ,(Ident "Nil" pos_, [])+ ]+ Maybe tp -> [(Ident "Just" pos_, [(Ident "just" pos_, tp)+ ]+ )+ ,(Ident "Nothing" pos_, [])+ ]+ Either tp1 tp2 -> [+ (Ident "Left" pos_, [(Ident "left" pos_, tp1) ])+ , (Ident "Right" pos_, [(Ident "right" pos_, tp2) ])+ ]+ Map tp1 tp2 -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, tp1)+ , (Ident "val" pos_, tp2)+ , (Ident "tl" pos_, NT name_ (map getName params_))+ ])+ , (Ident "Nil" pos_, [])+ ]+ IntMap tp -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, Haskell "Int")+ , (Ident "val" pos_, tp)+ , (Ident "tl" pos_, NT name_ (map getName params_))+ ])+ , (Ident "Nil" pos_, [])+ ]+ Tuple xs -> [(Ident "Tuple" pos_, xs)]+ {-# LINE 3822 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 637, column 11)+ _argType =+ ({-# LINE 637 "Transform.ag" #-}+ case type_ of+ Maybe tp -> Maybe ( makeType _lhsIallNonterminals tp)+ Either tp1 tp2 -> Either ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)+ List tp -> List ( makeType _lhsIallNonterminals tp)+ Tuple xs -> Tuple [(f,makeType _lhsIallNonterminals tp) | (f,tp) <- xs]+ Map tp1 tp2 -> Map ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)+ IntMap tp -> IntMap ( makeType _lhsIallNonterminals tp)+ {-# LINE 3834 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 644, column 11)+ _lhsOtypeSyns =+ ({-# LINE 644 "Transform.ag" #-}+ [(name_,_argType)]+ {-# LINE 3840 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 862, column 7)+ _lhsOparamsCollect =+ ({-# LINE 862 "Transform.ag" #-}+ if null params_+ then Map.empty+ else Map.singleton name_ params_+ {-# LINE 3848 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 885, column 7)+ _lhsOctxCollect =+ ({-# LINE 885 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.singleton name_ ctx_+ {-# LINE 3856 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 3862 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3868 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3874 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3880 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3886 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3892 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3898 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3904 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3910 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3916 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3922 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 3928 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 3934 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 3940 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 3946 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 3952 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3958 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 3964 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3970 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3976 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Wrapper :: Pos ->+ T_NontSet ->+ T_Elem +sem_Elem_Wrapper pos_ (T_NontSet set_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 733, column 13)+ _lhsOwrappers =+ ({-# LINE 733 "Transform.ag" #-}+ _setInontSet+ {-# LINE 4026 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 4032 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 4038 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 4044 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 4050 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 4056 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 4062 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 4068 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 4074 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 4080 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 4086 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 4092 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 4098 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 4104 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ Map.empty+ {-# LINE 4110 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 4116 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _setIerrors+ {-# LINE 4122 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 4128 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 4134 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 4140 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 4146 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 4152 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 4158 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4164 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4170 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4176 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4182 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4188 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+-- Elems -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ options : Options+ chained attributes:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ defSets : Map Identifier (Set NontermIdent,Set Identifier)+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ blocks : Blocks+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedNames : Set Identifier+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSetNames : Set Identifier+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ ctxCollect : ContextMap+ derivings : Derivings+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ paramsCollect : ParamMap+ pragmas : Options -> Options+ semPragmasCollect : PragmaMap+ typeSyns : TypeSyns+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ wrappers : Set NontermIdent+ alternatives:+ alternative Cons:+ child hd : Elem + child tl : Elems + alternative Nil:+-}+-- cata+sem_Elems :: Elems ->+ T_Elems +sem_Elems list =+ (Prelude.foldr sem_Elems_Cons sem_Elems_Nil (Prelude.map sem_Elem list) )+-- semantic domain+newtype T_Elems = T_Elems ((Map NontermIdent (Attributes, Attributes)) ->+ (Map NontermIdent (Set ConstructorIdent)) ->+ DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map Identifier (Set NontermIdent,Set Identifier)) ->+ DefinedSets ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))+data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elems :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elems :: !(DataTypes),allNonterminals_Inh_Elems :: !((Set NontermIdent)),attrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elems :: !(DefinedSets),options_Inh_Elems :: !(Options)}+data Syn_Elems = Syn_Elems {attrDecls_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elems :: !(AttrOrderMap),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elems :: !((Set Identifier)),collectedRules_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elems :: !((Set Identifier)),collectedSigs_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elems :: !(ContextMap),defSets_Syn_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elems :: !(Derivings),errors_Syn_Elems :: !((Seq Error)),moduleDecl_Syn_Elems :: !((Maybe (String,String,String))),paramsCollect_Syn_Elems :: !(ParamMap),pragmas_Syn_Elems :: !((Options -> Options)),semPragmasCollect_Syn_Elems :: !(PragmaMap),typeSyns_Syn_Elems :: !(TypeSyns),useMap_Syn_Elems :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elems :: !((Set NontermIdent))}+wrap_Elems :: T_Elems ->+ Inh_Elems ->+ Syn_Elems +wrap_Elems (T_Elems sem ) (Inh_Elems _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions + in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))+sem_Elems_Cons :: T_Elem ->+ T_Elems ->+ T_Elems +sem_Elems_Cons (T_Elem hd_ ) (T_Elems tl_ ) =+ (T_Elems (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _hdOallFields :: DataTypes+ _hdOallNonterminals :: (Set NontermIdent)+ _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdOdefinedSets :: DefinedSets+ _hdOoptions :: Options+ _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _tlOallFields :: DataTypes+ _tlOallNonterminals :: (Set NontermIdent)+ _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _tlOdefinedSets :: DefinedSets+ _tlOoptions :: Options+ _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdIattrOrderCollect :: AttrOrderMap+ _hdIblocks :: Blocks+ _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _hdIcollectedNames :: (Set Identifier)+ _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _hdIcollectedSetNames :: (Set Identifier)+ _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _hdIctxCollect :: ContextMap+ _hdIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdIderivings :: Derivings+ _hdIerrors :: (Seq Error)+ _hdImoduleDecl :: (Maybe (String,String,String))+ _hdIparamsCollect :: ParamMap+ _hdIpragmas :: (Options -> Options)+ _hdIsemPragmasCollect :: PragmaMap+ _hdItypeSyns :: TypeSyns+ _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _hdIwrappers :: (Set NontermIdent)+ _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlIattrOrderCollect :: AttrOrderMap+ _tlIblocks :: Blocks+ _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _tlIcollectedNames :: (Set Identifier)+ _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _tlIcollectedSetNames :: (Set Identifier)+ _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _tlIctxCollect :: ContextMap+ _tlIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _tlIderivings :: Derivings+ _tlIerrors :: (Seq Error)+ _tlImoduleDecl :: (Maybe (String,String,String))+ _tlIparamsCollect :: ParamMap+ _tlIpragmas :: (Options -> Options)+ _tlIsemPragmasCollect :: PragmaMap+ _tlItypeSyns :: TypeSyns+ _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _tlIwrappers :: (Set NontermIdent)+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect+ {-# LINE 4366 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ _hdIblocks `mapUnionWithPlusPlus` _tlIblocks+ {-# LINE 4372 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _hdIcollectedArounds ++ _tlIcollectedArounds+ {-# LINE 4378 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _hdIcollectedAugments ++ _tlIcollectedAugments+ {-# LINE 4384 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap+ {-# LINE 4390 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 4396 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _hdIcollectedInsts ++ _tlIcollectedInsts+ {-# LINE 4402 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _hdIcollectedMerges ++ _tlIcollectedMerges+ {-# LINE 4408 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _hdIcollectedNames `Set.union` _tlIcollectedNames+ {-# LINE 4414 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _hdIcollectedRules ++ _tlIcollectedRules+ {-# LINE 4420 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames+ {-# LINE 4426 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _hdIcollectedSigs ++ _tlIcollectedSigs+ {-# LINE 4432 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _hdIcollectedUniques ++ _tlIcollectedUniques+ {-# LINE 4438 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ _hdIctxCollect `mergeCtx` _tlIctxCollect+ {-# LINE 4444 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ _hdIderivings `mergeDerivings` _tlIderivings+ {-# LINE 4450 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 4456 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ _hdImoduleDecl `mplus` _tlImoduleDecl+ {-# LINE 4462 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ _hdIparamsCollect `mergeParams` _tlIparamsCollect+ {-# LINE 4468 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ _hdIpragmas . _tlIpragmas+ {-# LINE 4474 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect+ {-# LINE 4480 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ _hdItypeSyns ++ _tlItypeSyns+ {-# LINE 4486 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _hdIuseMap `merge` _tlIuseMap+ {-# LINE 4492 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ _hdIwrappers `Set.union` _tlIwrappers+ {-# LINE 4498 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _tlIattrDecls+ {-# LINE 4504 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _tlIdefSets+ {-# LINE 4510 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallAttrDecls =+ ({-# LINE 821 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 4516 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 4522 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4528 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4534 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4540 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4546 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4552 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 4558 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallAttrDecls =+ ({-# LINE 821 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 4564 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 4570 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4576 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4582 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _tlOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _hdIattrDecls+ {-# LINE 4588 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _tlOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _hdIdefSets+ {-# LINE 4594 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4600 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 4606 "Transform.hs" #-}+ )+ ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) =+ hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets _hdOoptions + ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) =+ tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets _tlOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elems_Nil :: T_Elems +sem_Elems_Nil =+ (T_Elems (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 4652 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 4658 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 4664 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 4670 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 4676 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 4682 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 4688 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 4694 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 4700 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 4706 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 4712 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 4718 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 4724 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 875, column 34)+ _lhsOctxCollect =+ ({-# LINE 875 "Transform.ag" #-}+ Map.empty+ {-# LINE 4730 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 900, column 33)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.empty+ {-# LINE 4736 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 4742 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1096, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1096 "Transform.ag" #-}+ mzero+ {-# LINE 4748 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 852, column 37)+ _lhsOparamsCollect =+ ({-# LINE 852 "Transform.ag" #-}+ Map.empty+ {-# LINE 4754 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 746, column 34)+ _lhsOpragmas =+ ({-# LINE 746 "Transform.ag" #-}+ id+ {-# LINE 4760 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 4766 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 4772 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 4778 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 4784 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4790 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4796 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+-- NontSet -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ synthesized attributes:+ collectedNames : Set Identifier+ errors : Seq Error+ nontSet : Set NontermIdent+ alternatives:+ alternative All:+ alternative Difference:+ child set1 : NontSet + child set2 : NontSet + alternative Intersect:+ child set1 : NontSet + child set2 : NontSet + alternative NamedSet:+ child name : {NontermIdent}+ visit 0:+ local _tup4 : _+ local nontSet : _+ local errors : _+ alternative Path:+ child from : {NontermIdent}+ child to : {NontermIdent}+ alternative Union:+ child set1 : NontSet + child set2 : NontSet +-}+-- cata+sem_NontSet :: NontSet ->+ T_NontSet +sem_NontSet (All ) =+ (sem_NontSet_All )+sem_NontSet (Difference _set1 _set2 ) =+ (sem_NontSet_Difference (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+sem_NontSet (Intersect _set1 _set2 ) =+ (sem_NontSet_Intersect (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+sem_NontSet (NamedSet _name ) =+ (sem_NontSet_NamedSet _name )+sem_NontSet (Path _from _to ) =+ (sem_NontSet_Path _from _to )+sem_NontSet (Union _set1 _set2 ) =+ (sem_NontSet_Union (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+-- semantic domain+newtype T_NontSet = T_NontSet (DataTypes ->+ (Set NontermIdent) ->+ DefinedSets ->+ ( (Set Identifier),(Seq Error),(Set NontermIdent)))+data Inh_NontSet = Inh_NontSet {allFields_Inh_NontSet :: !(DataTypes),allNonterminals_Inh_NontSet :: !((Set NontermIdent)),definedSets_Inh_NontSet :: !(DefinedSets)}+data Syn_NontSet = Syn_NontSet {collectedNames_Syn_NontSet :: !((Set Identifier)),errors_Syn_NontSet :: !((Seq Error)),nontSet_Syn_NontSet :: !((Set NontermIdent))}+wrap_NontSet :: T_NontSet ->+ Inh_NontSet ->+ Syn_NontSet +wrap_NontSet (T_NontSet sem ) (Inh_NontSet _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets ) =+ (let ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet) = sem _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets + in (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet ))+sem_NontSet_All :: T_NontSet +sem_NontSet_All =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 676, column 16)+ _lhsOnontSet =+ ({-# LINE 676 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4871 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 4877 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 4883 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Difference :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Difference (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 682, column 16)+ _lhsOnontSet =+ ({-# LINE 682 "Transform.ag" #-}+ Set.difference _set1InontSet _set2InontSet+ {-# LINE 4912 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 4918 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 4924 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4930 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4936 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4942 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4948 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4954 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4960 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Intersect :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Intersect (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 681, column 16)+ _lhsOnontSet =+ ({-# LINE 681 "Transform.ag" #-}+ Set.intersection _set1InontSet _set2InontSet+ {-# LINE 4993 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 4999 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 5005 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5011 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5017 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5023 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5029 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5035 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5041 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_NamedSet :: NontermIdent ->+ T_NontSet +sem_NontSet_NamedSet name_ =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _lhsOnontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 557, column 14)+ _lhsOcollectedNames =+ ({-# LINE 557 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 5061 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 677, column 20)+ __tup4 =+ ({-# LINE 677 "Transform.ag" #-}+ case Map.lookup name_ _lhsIdefinedSets of+ Nothing -> (Set.empty, Seq.singleton (UndefNont name_))+ Just set -> (set, Seq.empty)+ {-# LINE 5069 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 677, column 20)+ (_nontSet,_) =+ ({-# LINE 677 "Transform.ag" #-}+ __tup4+ {-# LINE 5075 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 677, column 20)+ (_,_errors) =+ ({-# LINE 677 "Transform.ag" #-}+ __tup4+ {-# LINE 5081 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _errors+ {-# LINE 5087 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _lhsOnontSet =+ ({-# LINE 112 "Transform.ag" #-}+ _nontSet+ {-# LINE 5093 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Path :: NontermIdent ->+ NontermIdent ->+ T_NontSet +sem_NontSet_Path from_ to_ =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOerrors :: (Seq Error)+ _lhsOcollectedNames :: (Set Identifier)+ -- "Transform.ag"(line 683, column 16)+ _lhsOnontSet =+ ({-# LINE 683 "Transform.ag" #-}+ let table = flattenDatas _lhsIallFields+ in path table from_ to_+ {-# LINE 5111 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 685, column 16)+ _lhsOerrors =+ ({-# LINE 685 "Transform.ag" #-}+ let check name | Set.member name _lhsIallNonterminals+ = Seq.empty+ | otherwise = Seq.singleton (UndefNont name)+ in check from_ >< check to_+ {-# LINE 5120 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 5126 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Union :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Union (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 680, column 16)+ _lhsOnontSet =+ ({-# LINE 680 "Transform.ag" #-}+ Set.union _set1InontSet _set2InontSet+ {-# LINE 5155 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 5161 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 5167 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5173 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5179 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5185 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5191 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5197 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5203 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+-- Pattern -----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : SELF + definedAttrs : [AttrName]+ definedInsts : [Identifier]+ patunder : [AttrName]->Pattern+ stpos : Pos+ alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + child parts : Patterns + visit 0:+ local copy : _+ alternative Constr:+ child name : {ConstructorIdent}+ child pats : Patterns + visit 0:+ local copy : _+ alternative Irrefutable:+ child pat : Pattern + visit 0:+ local copy : _+ alternative Product:+ child pos : {Pos}+ child pats : Patterns + visit 0:+ local copy : _+ alternative Underscore:+ child pos : {Pos}+ visit 0:+ local copy : _+-}+-- cata+sem_Pattern :: Pattern ->+ T_Pattern +sem_Pattern (Alias _field _attr _pat _parts ) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )+sem_Pattern (Constr _name _pats ) =+ (sem_Pattern_Constr _name (sem_Patterns _pats ) )+sem_Pattern (Irrefutable _pat ) =+ (sem_Pattern_Irrefutable (sem_Pattern _pat ) )+sem_Pattern (Product _pos _pats ) =+ (sem_Pattern_Product _pos (sem_Patterns _pats ) )+sem_Pattern (Underscore _pos ) =+ (sem_Pattern_Underscore _pos )+-- semantic domain+newtype T_Pattern = T_Pattern (( Pattern ,([AttrName]),([Identifier]),([AttrName]->Pattern),Pos))+data Inh_Pattern = Inh_Pattern {}+data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !(([AttrName])),definedInsts_Syn_Pattern :: !(([Identifier])),patunder_Syn_Pattern :: !(([AttrName]->Pattern)),stpos_Syn_Pattern :: !(Pos)}+wrap_Pattern :: T_Pattern ->+ Inh_Pattern ->+ Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =+ (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos) = sem + in (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos ))+sem_Pattern_Alias :: Identifier ->+ Identifier ->+ T_Pattern ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =+ (T_Pattern (let _lhsOdefinedAttrs :: ([AttrName])+ _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOstpos :: Pos+ _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedAttrs :: ([AttrName])+ _patIdefinedInsts :: ([Identifier])+ _patIpatunder :: ([AttrName]->Pattern)+ _patIstpos :: Pos+ _partsIcopy :: Patterns + _partsIdefinedAttrs :: ([AttrName])+ _partsIdefinedInsts :: ([Identifier])+ _partsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1072, column 11)+ _lhsOdefinedAttrs =+ ({-# LINE 1072 "Transform.ag" #-}+ (field_, attr_) : _patIdefinedAttrs+ {-# LINE 5293 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1073, column 11)+ _lhsOpatunder =+ ({-# LINE 1073 "Transform.ag" #-}+ \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy+ {-# LINE 5299 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1074, column 11)+ _lhsOdefinedInsts =+ ({-# LINE 1074 "Transform.ag" #-}+ (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts+ {-# LINE 5305 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1089, column 16)+ _lhsOstpos =+ ({-# LINE 1089 "Transform.ag" #-}+ getPos field_+ {-# LINE 5311 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Alias field_ attr_ _patIcopy _partsIcopy+ {-# LINE 5317 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5323 "Transform.hs" #-}+ )+ ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =+ pat_ + ( _partsIcopy,_partsIdefinedAttrs,_partsIdefinedInsts,_partsIpatunder) =+ parts_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Constr :: ConstructorIdent ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedAttrs :: ([AttrName])+ _patsIdefinedInsts :: ([Identifier])+ _patsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1076, column 12)+ _lhsOpatunder =+ ({-# LINE 1076 "Transform.ag" #-}+ \us -> Constr name_ (_patsIpatunder us)+ {-# LINE 5347 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1087, column 16)+ _lhsOstpos =+ ({-# LINE 1087 "Transform.ag" #-}+ getPos name_+ {-# LINE 5353 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1067, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1067 "Transform.ag" #-}+ _patsIdefinedAttrs+ {-# LINE 5359 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ _patsIdefinedInsts+ {-# LINE 5365 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 5371 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5377 "Transform.hs" #-}+ )+ ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =+ pats_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Irrefutable :: T_Pattern ->+ T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _lhsOstpos :: Pos+ _patIcopy :: Pattern + _patIdefinedAttrs :: ([AttrName])+ _patIdefinedInsts :: ([Identifier])+ _patIpatunder :: ([AttrName]->Pattern)+ _patIstpos :: Pos+ -- "Transform.ag"(line 1078, column 17)+ _lhsOpatunder =+ ({-# LINE 1078 "Transform.ag" #-}+ \us -> Irrefutable (_patIpatunder us)+ {-# LINE 5399 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1067, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1067 "Transform.ag" #-}+ _patIdefinedAttrs+ {-# LINE 5405 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ _patIdefinedInsts+ {-# LINE 5411 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 5417 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5423 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOstpos =+ ({-# LINE 1084 "Transform.ag" #-}+ _patIstpos+ {-# LINE 5429 "Transform.hs" #-}+ )+ ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =+ pat_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Product :: Pos ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedAttrs :: ([AttrName])+ _patsIdefinedInsts :: ([Identifier])+ _patsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1077, column 13)+ _lhsOpatunder =+ ({-# LINE 1077 "Transform.ag" #-}+ \us -> Product pos_ (_patsIpatunder us)+ {-# LINE 5451 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1088, column 16)+ _lhsOstpos =+ ({-# LINE 1088 "Transform.ag" #-}+ pos_+ {-# LINE 5457 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1067, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1067 "Transform.ag" #-}+ _patsIdefinedAttrs+ {-# LINE 5463 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ _patsIdefinedInsts+ {-# LINE 5469 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 5475 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5481 "Transform.hs" #-}+ )+ ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =+ pats_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Underscore :: Pos ->+ T_Pattern +sem_Pattern_Underscore pos_ =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + -- "Transform.ag"(line 1075, column 16)+ _lhsOpatunder =+ ({-# LINE 1075 "Transform.ag" #-}+ \us -> _copy+ {-# LINE 5498 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1090, column 16)+ _lhsOstpos =+ ({-# LINE 1090 "Transform.ag" #-}+ pos_+ {-# LINE 5504 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1067, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1067 "Transform.ag" #-}+ []+ {-# LINE 5510 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 5516 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Underscore pos_+ {-# LINE 5522 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5528 "Transform.hs" #-}+ )+ in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+-- Patterns ----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : SELF + definedAttrs : [AttrName]+ definedInsts : [Identifier]+ patunder : [AttrName]->Patterns+ alternatives:+ alternative Cons:+ child hd : Pattern + child tl : Patterns + visit 0:+ local copy : _+ alternative Nil:+ visit 0:+ local copy : _+-}+-- cata+sem_Patterns :: Patterns ->+ T_Patterns +sem_Patterns list =+ (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )+-- semantic domain+newtype T_Patterns = T_Patterns (( Patterns ,([AttrName]),([Identifier]),([AttrName]->Patterns)))+data Inh_Patterns = Inh_Patterns {}+data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !(([AttrName])),definedInsts_Syn_Patterns :: !(([Identifier])),patunder_Syn_Patterns :: !(([AttrName]->Patterns))}+wrap_Patterns :: T_Patterns ->+ Inh_Patterns ->+ Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =+ (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder) = sem + in (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder ))+sem_Patterns_Cons :: T_Pattern ->+ T_Patterns ->+ T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =+ (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Patterns + _hdIcopy :: Pattern + _hdIdefinedAttrs :: ([AttrName])+ _hdIdefinedInsts :: ([Identifier])+ _hdIpatunder :: ([AttrName]->Pattern)+ _hdIstpos :: Pos+ _tlIcopy :: Patterns + _tlIdefinedAttrs :: ([AttrName])+ _tlIdefinedInsts :: ([Identifier])+ _tlIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1082, column 10)+ _lhsOpatunder =+ ({-# LINE 1082 "Transform.ag" #-}+ \us -> (_hdIpatunder us) : (_tlIpatunder us)+ {-# LINE 5585 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1067, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1067 "Transform.ag" #-}+ _hdIdefinedAttrs ++ _tlIdefinedAttrs+ {-# LINE 5591 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 5597 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 5603 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5609 "Transform.hs" #-}+ )+ ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) =+ hd_ + ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) =+ tl_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )+sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil =+ (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Patterns + -- "Transform.ag"(line 1081, column 9)+ _lhsOpatunder =+ ({-# LINE 1081 "Transform.ag" #-}+ \us -> []+ {-# LINE 5626 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1067, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1067 "Transform.ag" #-}+ []+ {-# LINE 5632 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 5638 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ []+ {-# LINE 5644 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5650 "Transform.hs" #-}+ )+ in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )+-- SemAlt ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allFields : DataTypes+ nts : Set NontermIdent+ options : Options+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ errors : Seq Error+ semPragmasCollect : PragmaMap+ alternatives:+ alternative SemAlt:+ child pos : {Pos}+ child constructorSet : ConstructorSet + child rules : SemDefs + visit 0:+ local pragmaNames : _+ local attrOrders : _+ local coninfo : _+-}+-- cata+sem_SemAlt :: SemAlt ->+ T_SemAlt +sem_SemAlt (SemAlt _pos _constructorSet _rules ) =+ (sem_SemAlt_SemAlt _pos (sem_ConstructorSet _constructorSet ) (sem_SemDefs _rules ) )+-- semantic domain+newtype T_SemAlt = T_SemAlt ((Map NontermIdent (Attributes, Attributes)) ->+ DataTypes ->+ (Set NontermIdent) ->+ Options ->+ ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))+data Inh_SemAlt = Inh_SemAlt {allAttrDecls_Inh_SemAlt :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlt :: !(DataTypes),nts_Inh_SemAlt :: !((Set NontermIdent)),options_Inh_SemAlt :: !(Options)}+data Syn_SemAlt = Syn_SemAlt {attrOrderCollect_Syn_SemAlt :: !(AttrOrderMap),collectedArounds_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlt :: !((Seq Error)),semPragmasCollect_Syn_SemAlt :: !(PragmaMap)}+wrap_SemAlt :: T_SemAlt ->+ Inh_SemAlt ->+ Syn_SemAlt +wrap_SemAlt (T_SemAlt sem ) (Inh_SemAlt _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions + in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))+sem_SemAlt_SemAlt :: Pos ->+ T_ConstructorSet ->+ T_SemDefs ->+ T_SemAlt +sem_SemAlt_SemAlt pos_ (T_ConstructorSet constructorSet_ ) (T_SemDefs rules_ ) =+ (T_SemAlt (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOsemPragmasCollect :: PragmaMap+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOerrors :: (Seq Error)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _rulesOoptions :: Options+ _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent)+ _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _constructorSetIerrors :: (Seq Error)+ _rulesIaroundInfos :: ([AroundInfo])+ _rulesIaugmentInfos :: ([AugmentInfo])+ _rulesIdefinedInsts :: ([Identifier])+ _rulesIerrors :: (Seq Error)+ _rulesImergeInfos :: ([MergeInfo])+ _rulesIorderDepsCollect :: (Set Dependency)+ _rulesIpragmaNamesCollect :: ([Identifier])+ _rulesIruleInfos :: ([RuleInfo])+ _rulesIsigInfos :: ([SigInfo])+ _rulesIuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 796, column 7)+ _pragmaNames =+ ({-# LINE 796 "Transform.ag" #-}+ Set.fromList _rulesIpragmaNamesCollect+ {-# LINE 5738 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 797, column 7)+ _lhsOsemPragmasCollect =+ ({-# LINE 797 "Transform.ag" #-}+ foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5747 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 825, column 7)+ _attrOrders =+ ({-# LINE 825 "Transform.ag" #-}+ [ orderMapSingle nt con _rulesIorderDepsCollect+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5756 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 831, column 7)+ _lhsOattrOrderCollect =+ ({-# LINE 831 "Transform.ag" #-}+ foldr orderMapUnion Map.empty _attrOrders+ {-# LINE 5762 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 991, column 12)+ _coninfo =+ ({-# LINE 991 "Transform.ag" #-}+ [ (nt, conset, conkeys)+ | nt <- Set.toList _lhsInts+ , let conmap = Map.findWithDefault Map.empty nt _lhsIallFields+ , let conkeys = Set.fromList (Map.keys conmap)+ , let conset = _constructorSetIconstructors conkeys+ ]+ {-# LINE 5773 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 998, column 12)+ _lhsOerrors =+ ({-# LINE 998 "Transform.ag" #-}+ Seq.fromList+ [ UndefAlt nt con+ | (nt, conset, conkeys) <- _coninfo+ , con <- Set.toList (Set.difference conset conkeys)+ ]+ Seq.>< _rulesIerrors+ {-# LINE 5784 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1004, column 12)+ _lhsOcollectedRules =+ ({-# LINE 1004 "Transform.ag" #-}+ [ (nt,con,r)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ , r <- _rulesIruleInfos+ ]+ {-# LINE 5794 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1010, column 12)+ _lhsOcollectedSigs =+ ({-# LINE 1010 "Transform.ag" #-}+ [ (nt,con,ts)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ , ts <- _rulesIsigInfos+ ]+ {-# LINE 5804 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1017, column 12)+ _lhsOcollectedInsts =+ ({-# LINE 1017 "Transform.ag" #-}+ [ (nt,con,_rulesIdefinedInsts)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5813 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1023, column 12)+ _lhsOcollectedUniques =+ ({-# LINE 1023 "Transform.ag" #-}+ [ (nt,con,_rulesIuniqueInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5822 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1029, column 12)+ _lhsOcollectedAugments =+ ({-# LINE 1029 "Transform.ag" #-}+ [ (nt, con, _rulesIaugmentInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5831 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1035, column 12)+ _lhsOcollectedArounds =+ ({-# LINE 1035 "Transform.ag" #-}+ [ (nt, con, _rulesIaroundInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5840 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1041, column 12)+ _lhsOcollectedMerges =+ ({-# LINE 1041 "Transform.ag" #-}+ [ (nt, con, _rulesImergeInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5849 "Transform.hs" #-}+ )+ -- copy rule (down)+ _rulesOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5855 "Transform.hs" #-}+ )+ ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) =+ constructorSet_ + ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIerrors,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) =+ rules_ _rulesOoptions + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+-- SemAlts -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allFields : DataTypes+ nts : Set NontermIdent+ options : Options+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ errors : Seq Error+ semPragmasCollect : PragmaMap+ alternatives:+ alternative Cons:+ child hd : SemAlt + child tl : SemAlts + alternative Nil:+-}+-- cata+sem_SemAlts :: SemAlts ->+ T_SemAlts +sem_SemAlts list =+ (Prelude.foldr sem_SemAlts_Cons sem_SemAlts_Nil (Prelude.map sem_SemAlt list) )+-- semantic domain+newtype T_SemAlts = T_SemAlts ((Map NontermIdent (Attributes, Attributes)) ->+ DataTypes ->+ (Set NontermIdent) ->+ Options ->+ ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))+data Inh_SemAlts = Inh_SemAlts {allAttrDecls_Inh_SemAlts :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlts :: !(DataTypes),nts_Inh_SemAlts :: !((Set NontermIdent)),options_Inh_SemAlts :: !(Options)}+data Syn_SemAlts = Syn_SemAlts {attrOrderCollect_Syn_SemAlts :: !(AttrOrderMap),collectedArounds_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlts :: !((Seq Error)),semPragmasCollect_Syn_SemAlts :: !(PragmaMap)}+wrap_SemAlts :: T_SemAlts ->+ Inh_SemAlts ->+ Syn_SemAlts +wrap_SemAlts (T_SemAlts sem ) (Inh_SemAlts _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions + in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))+sem_SemAlts_Cons :: T_SemAlt ->+ T_SemAlts ->+ T_SemAlts +sem_SemAlts_Cons (T_SemAlt hd_ ) (T_SemAlts tl_ ) =+ (T_SemAlts (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOerrors :: (Seq Error)+ _lhsOsemPragmasCollect :: PragmaMap+ _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOallFields :: DataTypes+ _hdOnts :: (Set NontermIdent)+ _hdOoptions :: Options+ _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOallFields :: DataTypes+ _tlOnts :: (Set NontermIdent)+ _tlOoptions :: Options+ _hdIattrOrderCollect :: AttrOrderMap+ _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _hdIerrors :: (Seq Error)+ _hdIsemPragmasCollect :: PragmaMap+ _tlIattrOrderCollect :: AttrOrderMap+ _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _tlIerrors :: (Seq Error)+ _tlIsemPragmasCollect :: PragmaMap+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect+ {-# LINE 5956 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _hdIcollectedArounds ++ _tlIcollectedArounds+ {-# LINE 5962 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _hdIcollectedAugments ++ _tlIcollectedAugments+ {-# LINE 5968 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _hdIcollectedInsts ++ _tlIcollectedInsts+ {-# LINE 5974 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _hdIcollectedMerges ++ _tlIcollectedMerges+ {-# LINE 5980 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _hdIcollectedRules ++ _tlIcollectedRules+ {-# LINE 5986 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _hdIcollectedSigs ++ _tlIcollectedSigs+ {-# LINE 5992 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _hdIcollectedUniques ++ _tlIcollectedUniques+ {-# LINE 5998 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 6004 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect+ {-# LINE 6010 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallAttrDecls =+ ({-# LINE 821 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 6016 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 6022 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 6028 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 6034 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallAttrDecls =+ ({-# LINE 821 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 6040 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 6046 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 6052 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 6058 "Transform.hs" #-}+ )+ ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) =+ hd_ _hdOallAttrDecls _hdOallFields _hdOnts _hdOoptions + ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) =+ tl_ _tlOallAttrDecls _tlOallFields _tlOnts _tlOoptions + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+sem_SemAlts_Nil :: T_SemAlts +sem_SemAlts_Nil =+ (T_SemAlts (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOerrors :: (Seq Error)+ _lhsOsemPragmasCollect :: PragmaMap+ -- use rule "Transform.ag"(line 820, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ Map.empty+ {-# LINE 6085 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 6091 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 6097 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 6103 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 6109 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 6115 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 6121 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 6127 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6133 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 792, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 792 "Transform.ag" #-}+ Map.empty+ {-# LINE 6139 "Transform.hs" #-}+ )+ in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+-- SemDef ------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ aroundInfos : [AroundInfo]+ augmentInfos : [AugmentInfo]+ definedInsts : [Identifier]+ errors : Seq Error+ mergeInfos : [MergeInfo]+ orderDepsCollect : Set Dependency+ pragmaNamesCollect : [Identifier]+ ruleInfos : [RuleInfo]+ sigInfos : [SigInfo]+ uniqueInfos : [UniqueInfo]+ alternatives:+ alternative AroundDef:+ child ident : {Identifier}+ child rhs : {Expression}+ alternative AttrOrderBefore:+ child before : {[Occurrence]}+ child after : {[Occurrence]}+ visit 0:+ local dependency : _+ alternative AugmentDef:+ child ident : {Identifier}+ child rhs : {Expression}+ alternative Def:+ child pos : {Pos}+ child mbName : {Maybe Identifier}+ child pattern : Pattern + child rhs : {Expression}+ child owrt : {Bool}+ alternative MergeDef:+ child target : {Identifier}+ child nt : {Identifier}+ child sources : {[Identifier]}+ child rhs : {Expression}+ alternative SemPragma:+ child names : {[NontermIdent]}+ alternative TypeDef:+ child pos : {Pos}+ child ident : {Identifier}+ child tp : {Type}+ alternative UniqueDef:+ child ident : {Identifier}+ child ref : {Identifier}+-}+-- cata+sem_SemDef :: SemDef ->+ T_SemDef +sem_SemDef (AroundDef _ident _rhs ) =+ (sem_SemDef_AroundDef _ident _rhs )+sem_SemDef (AttrOrderBefore _before _after ) =+ (sem_SemDef_AttrOrderBefore _before _after )+sem_SemDef (AugmentDef _ident _rhs ) =+ (sem_SemDef_AugmentDef _ident _rhs )+sem_SemDef (Def _pos _mbName _pattern _rhs _owrt ) =+ (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern ) _rhs _owrt )+sem_SemDef (MergeDef _target _nt _sources _rhs ) =+ (sem_SemDef_MergeDef _target _nt _sources _rhs )+sem_SemDef (SemPragma _names ) =+ (sem_SemDef_SemPragma _names )+sem_SemDef (TypeDef _pos _ident _tp ) =+ (sem_SemDef_TypeDef _pos _ident _tp )+sem_SemDef (UniqueDef _ident _ref ) =+ (sem_SemDef_UniqueDef _ident _ref )+-- semantic domain+newtype T_SemDef = T_SemDef (Options ->+ ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))+data Inh_SemDef = Inh_SemDef {options_Inh_SemDef :: !(Options)}+data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),errors_Syn_SemDef :: !((Seq Error)),mergeInfos_Syn_SemDef :: !(([MergeInfo])),orderDepsCollect_Syn_SemDef :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDef :: !(([Identifier])),ruleInfos_Syn_SemDef :: !(([RuleInfo])),sigInfos_Syn_SemDef :: !(([SigInfo])),uniqueInfos_Syn_SemDef :: !(([UniqueInfo]))}+wrap_SemDef :: T_SemDef ->+ Inh_SemDef ->+ Syn_SemDef +wrap_SemDef (T_SemDef sem ) (Inh_SemDef _lhsIoptions ) =+ (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions + in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))+sem_SemDef_AroundDef :: Identifier ->+ Expression ->+ T_SemDef +sem_SemDef_AroundDef ident_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 1060, column 17)+ _lhsOaroundInfos =+ ({-# LINE 1060 "Transform.ag" #-}+ [ (ident_, rhs_) ]+ {-# LINE 6240 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ []+ {-# LINE 6246 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 6252 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6258 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ []+ {-# LINE 6264 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ Set.empty+ {-# LINE 6270 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ []+ {-# LINE 6276 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ []+ {-# LINE 6282 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ []+ {-# LINE 6288 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ []+ {-# LINE 6294 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_AttrOrderBefore :: ([Occurrence]) ->+ ([Occurrence]) ->+ T_SemDef +sem_SemDef_AttrOrderBefore before_ after_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 837, column 7)+ _dependency =+ ({-# LINE 837 "Transform.ag" #-}+ [ Dependency b a | b <- before_, a <- after_ ]+ {-# LINE 6316 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 838, column 7)+ _lhsOorderDepsCollect =+ ({-# LINE 838 "Transform.ag" #-}+ Set.fromList _dependency+ {-# LINE 6322 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ []+ {-# LINE 6328 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ []+ {-# LINE 6334 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 6340 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6346 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ []+ {-# LINE 6352 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ []+ {-# LINE 6358 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ []+ {-# LINE 6364 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ []+ {-# LINE 6370 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ []+ {-# LINE 6376 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_AugmentDef :: Identifier ->+ Expression ->+ T_SemDef +sem_SemDef_AugmentDef ident_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 1057, column 17)+ _lhsOaugmentInfos =+ ({-# LINE 1057 "Transform.ag" #-}+ [ (ident_, rhs_) ]+ {-# LINE 6398 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ []+ {-# LINE 6404 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 6410 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6416 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ []+ {-# LINE 6422 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ Set.empty+ {-# LINE 6428 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ []+ {-# LINE 6434 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ []+ {-# LINE 6440 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ []+ {-# LINE 6446 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ []+ {-# LINE 6452 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_Def :: Pos ->+ (Maybe Identifier) ->+ T_Pattern ->+ Expression ->+ Bool ->+ T_SemDef +sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_ ) rhs_ owrt_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ _patternIcopy :: Pattern + _patternIdefinedAttrs :: ([AttrName])+ _patternIdefinedInsts :: ([Identifier])+ _patternIpatunder :: ([AttrName]->Pattern)+ _patternIstpos :: Pos+ -- "Transform.ag"(line 527, column 3)+ _lhsOerrors =+ ({-# LINE 527 "Transform.ag" #-}+ if checkParseRhs _lhsIoptions+ then Seq.fromList $ checkRhs rhs_+ else Seq.empty+ {-# LINE 6484 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1048, column 10)+ _lhsOruleInfos =+ ({-# LINE 1048 "Transform.ag" #-}+ [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ]+ {-# LINE 6490 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ []+ {-# LINE 6496 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ []+ {-# LINE 6502 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ _patternIdefinedInsts+ {-# LINE 6508 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ []+ {-# LINE 6514 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ Set.empty+ {-# LINE 6520 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ []+ {-# LINE 6526 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ []+ {-# LINE 6532 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ []+ {-# LINE 6538 "Transform.hs" #-}+ )+ ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) =+ pattern_ + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_MergeDef :: Identifier ->+ Identifier ->+ ([Identifier]) ->+ Expression ->+ T_SemDef +sem_SemDef_MergeDef target_ nt_ sources_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 527, column 3)+ _lhsOerrors =+ ({-# LINE 527 "Transform.ag" #-}+ if checkParseRhs _lhsIoptions+ then Seq.fromList $ checkRhs rhs_+ else Seq.empty+ {-# LINE 6566 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1063, column 17)+ _lhsOmergeInfos =+ ({-# LINE 1063 "Transform.ag" #-}+ [ (target_, nt_, sources_, rhs_) ]+ {-# LINE 6572 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ []+ {-# LINE 6578 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ []+ {-# LINE 6584 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 6590 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ Set.empty+ {-# LINE 6596 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ []+ {-# LINE 6602 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ []+ {-# LINE 6608 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ []+ {-# LINE 6614 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ []+ {-# LINE 6620 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_SemPragma :: ([NontermIdent]) ->+ T_SemDef +sem_SemDef_SemPragma names_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 806, column 7)+ _lhsOpragmaNamesCollect =+ ({-# LINE 806 "Transform.ag" #-}+ names_+ {-# LINE 6641 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ []+ {-# LINE 6647 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ []+ {-# LINE 6653 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 6659 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6665 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ []+ {-# LINE 6671 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ Set.empty+ {-# LINE 6677 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ []+ {-# LINE 6683 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ []+ {-# LINE 6689 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ []+ {-# LINE 6695 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_TypeDef :: Pos ->+ Identifier ->+ Type ->+ T_SemDef +sem_SemDef_TypeDef pos_ ident_ tp_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOsigInfos :: ([SigInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 534, column 3)+ _lhsOerrors =+ ({-# LINE 534 "Transform.ag" #-}+ if checkParseTy _lhsIoptions+ then case tp_ of+ Haskell s -> let exp = Expression pos_ tks+ tks = [tk]+ tk = HsToken s pos_+ in Seq.fromList $ checkTy exp+ _ -> Seq.empty+ else Seq.empty+ {-# LINE 6725 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1051, column 14)+ _lhsOsigInfos =+ ({-# LINE 1051 "Transform.ag" #-}+ [ (ident_, tp_) ]+ {-# LINE 6731 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ []+ {-# LINE 6737 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ []+ {-# LINE 6743 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 6749 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ []+ {-# LINE 6755 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ Set.empty+ {-# LINE 6761 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ []+ {-# LINE 6767 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ []+ {-# LINE 6773 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ []+ {-# LINE 6779 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_UniqueDef :: Identifier ->+ Identifier ->+ T_SemDef +sem_SemDef_UniqueDef ident_ ref_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOuniqueInfos :: ([UniqueInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ -- "Transform.ag"(line 1054, column 16)+ _lhsOuniqueInfos =+ ({-# LINE 1054 "Transform.ag" #-}+ [ (ident_, ref_) ]+ {-# LINE 6801 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ []+ {-# LINE 6807 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ []+ {-# LINE 6813 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 6819 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6825 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ []+ {-# LINE 6831 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ Set.empty+ {-# LINE 6837 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ []+ {-# LINE 6843 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ []+ {-# LINE 6849 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ []+ {-# LINE 6855 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+-- SemDefs -----------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ aroundInfos : [AroundInfo]+ augmentInfos : [AugmentInfo]+ definedInsts : [Identifier]+ errors : Seq Error+ mergeInfos : [MergeInfo]+ orderDepsCollect : Set Dependency+ pragmaNamesCollect : [Identifier]+ ruleInfos : [RuleInfo]+ sigInfos : [SigInfo]+ uniqueInfos : [UniqueInfo]+ alternatives:+ alternative Cons:+ child hd : SemDef + child tl : SemDefs + alternative Nil:+-}+-- cata+sem_SemDefs :: SemDefs ->+ T_SemDefs +sem_SemDefs list =+ (Prelude.foldr sem_SemDefs_Cons sem_SemDefs_Nil (Prelude.map sem_SemDef list) )+-- semantic domain+newtype T_SemDefs = T_SemDefs (Options ->+ ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))+data Inh_SemDefs = Inh_SemDefs {options_Inh_SemDefs :: !(Options)}+data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),errors_Syn_SemDefs :: !((Seq Error)),mergeInfos_Syn_SemDefs :: !(([MergeInfo])),orderDepsCollect_Syn_SemDefs :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDefs :: !(([Identifier])),ruleInfos_Syn_SemDefs :: !(([RuleInfo])),sigInfos_Syn_SemDefs :: !(([SigInfo])),uniqueInfos_Syn_SemDefs :: !(([UniqueInfo]))}+wrap_SemDefs :: T_SemDefs ->+ Inh_SemDefs ->+ Syn_SemDefs +wrap_SemDefs (T_SemDefs sem ) (Inh_SemDefs _lhsIoptions ) =+ (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions + in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))+sem_SemDefs_Cons :: T_SemDef ->+ T_SemDefs ->+ T_SemDefs +sem_SemDefs_Cons (T_SemDef hd_ ) (T_SemDefs tl_ ) =+ (T_SemDefs (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ _hdOoptions :: Options+ _tlOoptions :: Options+ _hdIaroundInfos :: ([AroundInfo])+ _hdIaugmentInfos :: ([AugmentInfo])+ _hdIdefinedInsts :: ([Identifier])+ _hdIerrors :: (Seq Error)+ _hdImergeInfos :: ([MergeInfo])+ _hdIorderDepsCollect :: (Set Dependency)+ _hdIpragmaNamesCollect :: ([Identifier])+ _hdIruleInfos :: ([RuleInfo])+ _hdIsigInfos :: ([SigInfo])+ _hdIuniqueInfos :: ([UniqueInfo])+ _tlIaroundInfos :: ([AroundInfo])+ _tlIaugmentInfos :: ([AugmentInfo])+ _tlIdefinedInsts :: ([Identifier])+ _tlIerrors :: (Seq Error)+ _tlImergeInfos :: ([MergeInfo])+ _tlIorderDepsCollect :: (Set Dependency)+ _tlIpragmaNamesCollect :: ([Identifier])+ _tlIruleInfos :: ([RuleInfo])+ _tlIsigInfos :: ([SigInfo])+ _tlIuniqueInfos :: ([UniqueInfo])+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ _hdIaroundInfos ++ _tlIaroundInfos+ {-# LINE 6937 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ _hdIaugmentInfos ++ _tlIaugmentInfos+ {-# LINE 6943 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 6949 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 6955 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ _hdImergeInfos ++ _tlImergeInfos+ {-# LINE 6961 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect+ {-# LINE 6967 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect+ {-# LINE 6973 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ _hdIruleInfos ++ _tlIruleInfos+ {-# LINE 6979 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ _hdIsigInfos ++ _tlIsigInfos+ {-# LINE 6985 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ _hdIuniqueInfos ++ _tlIuniqueInfos+ {-# LINE 6991 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 6997 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 7003 "Transform.hs" #-}+ )+ ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIerrors,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) =+ hd_ _hdOoptions + ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIerrors,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) =+ tl_ _tlOoptions + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDefs_Nil :: T_SemDefs +sem_SemDefs_Nil =+ (T_SemDefs (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- use rule "Transform.ag"(line 985, column 40)+ _lhsOaroundInfos =+ ({-# LINE 985 "Transform.ag" #-}+ []+ {-# LINE 7027 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 984, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 984 "Transform.ag" #-}+ []+ {-# LINE 7033 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1066, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1066 "Transform.ag" #-}+ []+ {-# LINE 7039 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 7045 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 986, column 40)+ _lhsOmergeInfos =+ ({-# LINE 986 "Transform.ag" #-}+ []+ {-# LINE 7051 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 833, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 833 "Transform.ag" #-}+ Set.empty+ {-# LINE 7057 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 802, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 802 "Transform.ag" #-}+ []+ {-# LINE 7063 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 981, column 40)+ _lhsOruleInfos =+ ({-# LINE 981 "Transform.ag" #-}+ []+ {-# LINE 7069 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 982, column 40)+ _lhsOsigInfos =+ ({-# LINE 982 "Transform.ag" #-}+ []+ {-# LINE 7075 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 983, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 983 "Transform.ag" #-}+ []+ {-# LINE 7081 "Transform.hs" #-} ) in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )
src/Options.hs view
@@ -1,6 +1,9 @@ module Options where import System.Console.GetOpt+import CommonTypes+import Data.Set(Set)+import qualified Data.Set as Set options :: [OptDescr (Options -> Options)] options = [ Option ['m'] [] (NoArg (moduleOpt Nothing)) "generate default module header"@@ -67,6 +70,7 @@ , Option [] ["checkParseTys"] (NoArg parseHsTpOpt) "Parse types of attrs with Haskell parser" , Option [] ["checkParseBlocks"] (NoArg parseHsBlockOpt) "Parse blocks with Haskell parser" , Option [] ["checkParseHaskell"] (NoArg parseHsOpt) "Parse Haskell code (recognizer)"+ , Option [] ["nocatas"] (ReqArg nocatasOpt "list of nonterms") "Nonterminals not to generate catas for" ] allc = "dcfsprm"@@ -130,6 +134,7 @@ , checkParseRhs :: Bool , checkParseTy :: Bool , checkParseBlock :: Bool+ , nocatas :: Set NontermIdent } deriving Show noOptions = Options { moduleName = NoName , dataTypes = False@@ -190,6 +195,7 @@ , checkParseRhs = False , checkParseTy = False , checkParseBlock = False+ , nocatas = Set.empty } moduleOpt nm opts = opts{moduleName = maybe Default Name nm} @@ -251,6 +257,14 @@ parseHsTpOpt opts = opts { checkParseTy = True } parseHsBlockOpt opts = opts { checkParseBlock = True } parseHsOpt = parseHsRhsOpt . parseHsTpOpt . parseHsBlockOpt+nocatasOpt str opts = opts { nocatas = set `Set.union` nocatas opts } where+ set = Set.fromList ids+ ids = map identifier lst+ lst = split str++ split str | null p = []+ | otherwise = p : split ps+ where (p,ps) = break (== ',') str outputOpt file opts = opts{outputFiles = file : outputFiles opts} searchPathOpt path opts = opts{searchPath = extract path ++ searchPath opts}
src/Parser.hs view
@@ -142,6 +142,9 @@ <|> Wrapper <$> pWRAPPER <*> pNontSet+ <|> Nocatas+ <$> pNOCATAS+ <*> pNontSet <|> Pragma <$> pPRAGMA <*> pNames@@ -436,12 +439,13 @@ pSEM, pATTR, pDATA, pUSE, pLOC,pINCLUDE, pTYPE, pEquals, pColonEquals, pTilde, pBar, pColon, pLHS,pINST,pSET,pDERIVING,pMinus,pIntersect,pDoubleArrow,pArrow,- pDot, pUScore, pEXT,pAt,pStar, pSmaller, pWRAPPER, pPRAGMA, pMAYBE, pEITHER, pMAP, pINTMAP,+ pDot, pUScore, pEXT,pAt,pStar, pSmaller, pWRAPPER, pNOCATAS, pPRAGMA, pMAYBE, pEITHER, pMAP, pINTMAP, pMODULE, pATTACH, pUNIQUEREF, pINH, pSYN, pAUGMENT, pPlus, pAROUND, pSEMPRAGMA, pMERGE, pAS :: AGParser Pos pSET = pCostReserved 90 "SET" <?> "SET" pDERIVING = pCostReserved 90 "DERIVING"<?> "DERIVING" pWRAPPER = pCostReserved 90 "WRAPPER" <?> "WRAPPER"+pNOCATAS = pCostReserved 90 "NOCATAS" <?> "NOCATAS" pPRAGMA = pCostReserved 90 "PRAGMA" <?> "PRAGMA" pSEMPRAGMA = pCostReserved 90 "SEMPRAGMA" <?> "SEMPRAGMA" pATTACH = pCostReserved 90 "ATTACH" <?> "ATTACH"
src/Scanner.hs view
@@ -132,7 +132,7 @@ lowercaseKeywords = ["loc","lhs", "inst"] keywords = lowercaseKeywords ++ [ "DATA", "EXT", "ATTR", "SEM","TYPE", "USE", "INCLUDE" - , "SET","DERIVING","FOR", "WRAPPER", "MAYBE", "EITHER", "MAP", "INTMAP" + , "SET","DERIVING","FOR", "WRAPPER", "NOCATAS", "MAYBE", "EITHER", "MAP", "INTMAP" , "PRAGMA", "SEMPRAGMA", "MODULE", "ATTACH", "UNIQUEREF", "INH", "SYN", "CHN" , "AUGMENT", "AROUND", "MERGE", "AS" ]
src/Version.hs view
@@ -1,4 +1,4 @@ module Version where banner :: String -banner = "Attribute Grammar compiler / HUT project. Version 0.9.37.2" +banner = "Attribute Grammar compiler / HUT project. Version 0.9.38.0"
uuagc.cabal view
@@ -1,7 +1,7 @@ cabal-version: >=1.2 build-type: Simple name: uuagc-version: 0.9.37.2+version: 0.9.38.0 license: GPL license-file: LICENSE maintainer: Arie Middelkoop <ariem@cs.uu.nl>
uuagc.cabal-for-ghc-6.6 view
@@ -1,5 +1,5 @@ name: uuagc-version: 0.9.37.2+version: 0.9.38.0 license: GPL license-file: LICENSE maintainer: Arie Middelkoop <ariem@cs.uu.nl>