diff --git a/src-derived/ConcreteSyntax.hs b/src-derived/ConcreteSyntax.hs --- a/src-derived/ConcreteSyntax.hs +++ b/src-derived/ConcreteSyntax.hs @@ -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 ) diff --git a/src-derived/GenerateCode.hs b/src-derived/GenerateCode.hs --- a/src-derived/GenerateCode.hs +++ b/src-derived/GenerateCode.hs @@ -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))) ) diff --git a/src-derived/Transform.hs b/src-derived/Transform.hs --- a/src-derived/Transform.hs +++ b/src-derived/Transform.hs @@ -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 "") 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 "") 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))) ) diff --git a/src/Options.hs b/src/Options.hs --- a/src/Options.hs +++ b/src/Options.hs @@ -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} diff --git a/src/Parser.hs b/src/Parser.hs --- a/src/Parser.hs +++ b/src/Parser.hs @@ -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" diff --git a/src/Scanner.hs b/src/Scanner.hs --- a/src/Scanner.hs +++ b/src/Scanner.hs @@ -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" ] diff --git a/src/Version.hs b/src/Version.hs --- a/src/Version.hs +++ b/src/Version.hs @@ -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" diff --git a/uuagc.cabal b/uuagc.cabal --- a/uuagc.cabal +++ b/uuagc.cabal @@ -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 diff --git a/uuagc.cabal-for-ghc-6.6 b/uuagc.cabal-for-ghc-6.6 --- a/uuagc.cabal-for-ghc-6.6 +++ b/uuagc.cabal-for-ghc-6.6 @@ -1,5 +1,5 @@ name: uuagc -version: 0.9.37.2 +version: 0.9.38.0 license: GPL license-file: LICENSE maintainer: Arie Middelkoop