diff --git a/src-derived/AbstractSyntax.hs b/src-derived/AbstractSyntax.hs --- a/src-derived/AbstractSyntax.hs +++ b/src-derived/AbstractSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (AbstractSyntax.ag) +-- UUAGC 0.9.28 (AbstractSyntax.ag) module AbstractSyntax where {-# LINE 2 "AbstractSyntax.ag" #-} diff --git a/src-derived/AbstractSyntaxDump.hs b/src-derived/AbstractSyntaxDump.hs --- a/src-derived/AbstractSyntaxDump.hs +++ b/src-derived/AbstractSyntaxDump.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (AbstractSyntaxDump.ag) +-- UUAGC 0.9.28 (AbstractSyntaxDump.ag) module AbstractSyntaxDump where {-# LINE 6 "AbstractSyntaxDump.ag" #-} diff --git a/src-derived/Code.hs b/src-derived/Code.hs --- a/src-derived/Code.hs +++ b/src-derived/Code.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (Code.ag) +-- UUAGC 0.9.28 (Code.ag) module Code where {-# LINE 2 "Code.ag" #-} diff --git a/src-derived/CodeSyntax.hs b/src-derived/CodeSyntax.hs --- a/src-derived/CodeSyntax.hs +++ b/src-derived/CodeSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (CodeSyntax.ag) +-- UUAGC 0.9.28 (CodeSyntax.ag) module CodeSyntax where {-# LINE 2 "CodeSyntax.ag" #-} diff --git a/src-derived/CodeSyntaxDump.hs b/src-derived/CodeSyntaxDump.hs --- a/src-derived/CodeSyntaxDump.hs +++ b/src-derived/CodeSyntaxDump.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (CodeSyntaxDump.ag) +-- UUAGC 0.9.28 (CodeSyntaxDump.ag) module CodeSyntaxDump where {-# LINE 5 "CodeSyntaxDump.ag" #-} 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.26 (ConcreteSyntax.ag) +-- UUAGC 0.9.28 (ConcreteSyntax.ag) module ConcreteSyntax where {-# LINE 2 "ConcreteSyntax.ag" #-} diff --git a/src-derived/DeclBlocks.hs b/src-derived/DeclBlocks.hs --- a/src-derived/DeclBlocks.hs +++ b/src-derived/DeclBlocks.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (DeclBlocks.ag) +-- UUAGC 0.9.28 (DeclBlocks.ag) module DeclBlocks where {-# LINE 2 "DeclBlocks.ag" #-} diff --git a/src-derived/DefaultRules.hs b/src-derived/DefaultRules.hs --- a/src-derived/DefaultRules.hs +++ b/src-derived/DefaultRules.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.26 (DefaultRules.ag) +-- UUAGC 0.9.28 (DefaultRules.ag) module DefaultRules where {-# LINE 10 "DefaultRules.ag" #-} diff --git a/src-derived/Desugar.hs b/src-derived/Desugar.hs --- a/src-derived/Desugar.hs +++ b/src-derived/Desugar.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.26 (Desugar.ag) +-- UUAGC 0.9.28 (Desugar.ag) module Desugar where {-# LINE 13 "Desugar.ag" #-} diff --git a/src-derived/ErrorMessages.hs b/src-derived/ErrorMessages.hs --- a/src-derived/ErrorMessages.hs +++ b/src-derived/ErrorMessages.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (ErrorMessages.ag) +-- UUAGC 0.9.28 (ErrorMessages.ag) module ErrorMessages where {-# LINE 2 "ErrorMessages.ag" #-} diff --git a/src-derived/Expression.hs b/src-derived/Expression.hs --- a/src-derived/Expression.hs +++ b/src-derived/Expression.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (Expression.ag) +-- UUAGC 0.9.28 (Expression.ag) module Expression where {-# LINE 2 "Expression.ag" #-} diff --git a/src-derived/GenerateCode.hs b/src-derived/GenerateCode.hs --- a/src-derived/GenerateCode.hs +++ b/src-derived/GenerateCode.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (GenerateCode.ag) +-- UUAGC 0.9.28 (GenerateCode.ag) module GenerateCode where {-# LINE 9 "GenerateCode.ag" #-} diff --git a/src-derived/HsToken.hs b/src-derived/HsToken.hs --- a/src-derived/HsToken.hs +++ b/src-derived/HsToken.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (HsToken.ag) +-- UUAGC 0.9.28 (HsToken.ag) module HsToken where {-# LINE 2 "HsToken.ag" #-} diff --git a/src-derived/Interfaces.hs b/src-derived/Interfaces.hs --- a/src-derived/Interfaces.hs +++ b/src-derived/Interfaces.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (Interfaces.ag) +-- UUAGC 0.9.28 (Interfaces.ag) module Interfaces where {-# LINE 2 "Interfaces.ag" #-} diff --git a/src-derived/InterfacesRules.hs b/src-derived/InterfacesRules.hs --- a/src-derived/InterfacesRules.hs +++ b/src-derived/InterfacesRules.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.26 (InterfacesRules.lag) +-- UUAGC 0.9.28 (InterfacesRules.lag) module InterfacesRules where {-# LINE 10 "InterfacesRules.lag" #-} diff --git a/src-derived/Order.hs b/src-derived/Order.hs --- a/src-derived/Order.hs +++ b/src-derived/Order.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (Order.ag) +-- UUAGC 0.9.28 (Order.ag) module Order where {-# LINE 9 "Order.ag" #-} diff --git a/src-derived/Patterns.hs b/src-derived/Patterns.hs --- a/src-derived/Patterns.hs +++ b/src-derived/Patterns.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (Patterns.ag) +-- UUAGC 0.9.28 (Patterns.ag) module Patterns where {-# LINE 2 "Patterns.ag" #-} diff --git a/src-derived/PrintCode.hs b/src-derived/PrintCode.hs --- a/src-derived/PrintCode.hs +++ b/src-derived/PrintCode.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.26 (PrintCode.ag) +-- UUAGC 0.9.28 (PrintCode.ag) module PrintCode where {-# LINE 10 "PrintCode.ag" #-} diff --git a/src-derived/PrintErrorMessages.hs b/src-derived/PrintErrorMessages.hs --- a/src-derived/PrintErrorMessages.hs +++ b/src-derived/PrintErrorMessages.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (PrintErrorMessages.ag) +-- UUAGC 0.9.28 (PrintErrorMessages.ag) module PrintErrorMessages where {-# LINE 4 "PrintErrorMessages.ag" #-} diff --git a/src-derived/PrintOcamlCode.hs b/src-derived/PrintOcamlCode.hs --- a/src-derived/PrintOcamlCode.hs +++ b/src-derived/PrintOcamlCode.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.26 (PrintOcamlCode.ag) +-- UUAGC 0.9.28 (PrintOcamlCode.ag) module PrintOcamlCode where {-# LINE 10 "PrintOcamlCode.ag" #-} diff --git a/src-derived/PrintVisitCode.hs b/src-derived/PrintVisitCode.hs --- a/src-derived/PrintVisitCode.hs +++ b/src-derived/PrintVisitCode.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (PrintVisitCode.ag) +-- UUAGC 0.9.28 (PrintVisitCode.ag) module PrintVisitCode where {-# LINE 10 "PrintVisitCode.ag" #-} diff --git a/src-derived/SemHsTokens.hs b/src-derived/SemHsTokens.hs --- a/src-derived/SemHsTokens.hs +++ b/src-derived/SemHsTokens.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (SemHsTokens.ag) +-- UUAGC 0.9.28 (SemHsTokens.ag) module SemHsTokens where {-# LINE 4 "SemHsTokens.ag" #-} diff --git a/src-derived/TfmToVisage.hs b/src-derived/TfmToVisage.hs --- a/src-derived/TfmToVisage.hs +++ b/src-derived/TfmToVisage.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (TfmToVisage.ag) +-- UUAGC 0.9.28 (TfmToVisage.ag) module TfmToVisage where {-# LINE 8 "TfmToVisage.ag" #-} diff --git a/src-derived/Transform.hs b/src-derived/Transform.hs --- a/src-derived/Transform.hs +++ b/src-derived/Transform.hs @@ -1,5689 +1,5691 @@ --- UUAGC 0.9.26 (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 -{-# LINE 28 "../src-derived/Transform.hs" #-} - -{-# LINE 2 "./ConcreteSyntax.ag" #-} - -import UU.Scanner.Position (Pos) -import Patterns (Pattern) -import Expression (Expression) -import CommonTypes -{-# LINE 36 "../src-derived/Transform.hs" #-} - -{-# LINE 2 "./Patterns.ag" #-} - --- Patterns.ag imports -import UU.Scanner.Position(Pos) -import CommonTypes (ConstructorIdent,Identifier) -{-# LINE 43 "../src-derived/Transform.hs" #-} -{-# LINE 99 "Transform.ag" #-} -type DefinedSets = Map Identifier (Set NontermIdent) -{-# LINE 46 "../src-derived/Transform.hs" #-} - -{-# LINE 119 "Transform.ag" #-} -type FieldMap = [(Identifier, Type)] -{-# LINE 50 "../src-derived/Transform.hs" #-} - -{-# LINE 120 "Transform.ag" #-} -type DataTypes = Map.Map NontermIdent (Map.Map ConstructorIdent FieldMap) -{-# LINE 54 "../src-derived/Transform.hs" #-} - -{-# LINE 140 "Transform.ag" #-} -type AttrName = (Identifier,Identifier) -{-# LINE 58 "../src-derived/Transform.hs" #-} - -{-# LINE 141 "Transform.ag" #-} -type RuleInfo = (Maybe Identifier, [AttrName]->Pattern, Expression, [AttrName], Bool, String) -{-# LINE 62 "../src-derived/Transform.hs" #-} - -{-# LINE 142 "Transform.ag" #-} -type SigInfo = (Identifier,Type) -{-# LINE 66 "../src-derived/Transform.hs" #-} - -{-# LINE 143 "Transform.ag" #-} -type UniqueInfo = (Identifier,Identifier) -{-# LINE 70 "../src-derived/Transform.hs" #-} - -{-# LINE 144 "Transform.ag" #-} -type AugmentInfo = (Identifier,Expression) -{-# LINE 74 "../src-derived/Transform.hs" #-} - -{-# LINE 145 "Transform.ag" #-} -type AroundInfo = (Identifier,Expression) -{-# LINE 78 "../src-derived/Transform.hs" #-} - -{-# LINE 192 "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 109 "../src-derived/Transform.hs" #-} - -{-# LINE 321 "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 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]) -> - NontermIdent -> ConstructorIdent -> [RuleInfo] -> RulesAndErrors -checkRules attributes fields allinsts allsigs 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)) - - 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 - -unionunionplusplus = Map.unionWith (Map.unionWith (++)) -{-# LINE 243 "../src-derived/Transform.hs" #-} - -{-# LINE 455 "Transform.ag" #-} - -mkUniqueRules :: Options -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Attributes,Attributes) -> NontermIdent -> ConstructorIdent -> Map Identifier Identifier -> [Rule] -mkUniqueRules opts allFields allAttrDecls nt con usMap - = map apply groups - where - fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allFields) - - groups = Map.assocs $ Map.foldWithKey (\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 270 "../src-derived/Transform.hs" #-} - -{-# LINE 625 "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 295 "../src-derived/Transform.hs" #-} - -{-# LINE 733 "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 304 "../src-derived/Transform.hs" #-} - -{-# LINE 765 "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 313 "../src-derived/Transform.hs" #-} - -{-# LINE 791 "Transform.ag" #-} - -mergeParams :: ParamMap -> ParamMap -> ParamMap -mergeParams = Map.unionWith (++) -{-# LINE 319 "../src-derived/Transform.hs" #-} - -{-# LINE 814 "Transform.ag" #-} - -mergeCtx :: ContextMap -> ContextMap -> ContextMap -mergeCtx - = Map.unionWith nubconcat - where nubconcat a b = nub (a ++ b) -{-# LINE 327 "../src-derived/Transform.hs" #-} - -{-# LINE 827 "Transform.ag" #-} - -mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1) -{-# LINE 332 "../src-derived/Transform.hs" #-} - -{-# LINE 838 "Transform.ag" #-} - -merge x y = foldr f y (Map.toList x) - where f ~(k,v) m = Map.insertWith (Map.union) k v m -{-# LINE 338 "../src-derived/Transform.hs" #-} - -{-# LINE 865 "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 348 "../src-derived/Transform.hs" #-} - -{-# LINE 876 "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 354 "../src-derived/Transform.hs" #-} - -{-# LINE 1006 "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 363 "../src-derived/Transform.hs" #-} - -{-# LINE 1013 "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])) - -> Grammar - -constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap = - 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 - 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) - - -- important: keep order of children - cldrn = map child (flds ++ filter (not . existsAsField) insts) - 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 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) - 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 -{-# LINE 420 "../src-derived/Transform.hs" #-} - -{-# LINE 1069 "Transform.ag" #-} - -mapUnionWithSetUnion = Map.unionWith Set.union -mapUnionWithPlusPlus = Map.unionWith (++) -{-# LINE 426 "../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 augmentSigs : _ - local allRulesErrs : _ - local allNamesErrs : _ - local allSigsErrs : _ - local allInstsErrs : _ - local allUniquesErrs : _ - local allAugmentErrs : _ - local allAroundsErrs : _ - local checkedRulesPre : _ - local checkedSigs : _ - local checkedInsts : _ - local checkedUniques : _ - local checkedAugments : _ - local checkedArounds : _ - local checkedRules : _ - local errs1 : _ - local errs2 : _ - local errs3 : _ - local errs4 : _ - local errs5 : _ - local errs6 : _ - local errs7 : _ - local errs8 : _ - local errs9 : _ - local errs10 : _ - 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) - _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]) ]) - _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 51, column 8) - _lhsOoutput = - ({-# LINE 51 "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 - {-# LINE 555 "Transform.hs" #-}) - -- "Transform.ag"(line 243, column 10) - _allFields = - ({-# LINE 243 "Transform.ag" #-} - let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm) - in foldr f (Map.empty) _elemsIcollectedFields - {-# LINE 561 "Transform.hs" #-}) - -- "Transform.ag"(line 246, column 10) - _allConstrs = - ({-# LINE 246 "Transform.ag" #-} - let f (nt,con,_) = Map.insertWith (++) nt [con] - in foldr f (Map.empty) _elemsIcollectedFields - {-# LINE 567 "Transform.hs" #-}) - -- "Transform.ag"(line 249, column 10) - _allRules = - ({-# LINE 249 "Transform.ag" #-} - let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r]) - in foldr f (Map.empty) _elemsIcollectedRules - {-# LINE 573 "Transform.hs" #-}) - -- "Transform.ag"(line 252, column 10) - _allSigs = - ({-# LINE 252 "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 582 "Transform.hs" #-}) - -- "Transform.ag"(line 258, column 10) - _allInsts = - ({-# LINE 258 "Transform.ag" #-} - let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is) - in foldr f (Map.empty) _elemsIcollectedInsts - {-# LINE 588 "Transform.hs" #-}) - -- "Transform.ag"(line 261, column 10) - _allUniques = - ({-# LINE 261 "Transform.ag" #-} - let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us) - in foldr f (Map.empty) _elemsIcollectedUniques - {-# LINE 594 "Transform.hs" #-}) - -- "Transform.ag"(line 263, column 10) - _allAugments = - ({-# LINE 263 "Transform.ag" #-} - let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) - in foldr f Map.empty _elemsIcollectedAugments - {-# LINE 600 "Transform.hs" #-}) - -- "Transform.ag"(line 265, column 10) - _allArounds = - ({-# LINE 265 "Transform.ag" #-} - let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) - in foldr f Map.empty _elemsIcollectedArounds - {-# LINE 606 "Transform.hs" #-}) - -- "Transform.ag"(line 268, column 10) - _augmentSigs = - ({-# LINE 268 "Transform.ag" #-} - let gen mp = [] - in Map.map (Map.map gen) _allAugments - {-# LINE 612 "Transform.hs" #-}) - -- "Transform.ag"(line 271, column 10) - _allRulesErrs = - ({-# LINE 271 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs )) _allRules - {-# LINE 617 "Transform.hs" #-}) - -- "Transform.ag"(line 272, column 10) - _allNamesErrs = - ({-# LINE 272 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules - {-# LINE 622 "Transform.hs" #-}) - -- "Transform.ag"(line 273, column 10) - _allSigsErrs = - ({-# LINE 273 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs - {-# LINE 627 "Transform.hs" #-}) - -- "Transform.ag"(line 274, column 10) - _allInstsErrs = - ({-# LINE 274 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts - {-# LINE 632 "Transform.hs" #-}) - -- "Transform.ag"(line 275, column 10) - _allUniquesErrs = - ({-# LINE 275 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques - {-# LINE 637 "Transform.hs" #-}) - -- "Transform.ag"(line 276, column 10) - _allAugmentErrs = - ({-# LINE 276 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments - {-# LINE 642 "Transform.hs" #-}) - -- "Transform.ag"(line 277, column 10) - _allAroundsErrs = - ({-# LINE 277 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds - {-# LINE 647 "Transform.hs" #-}) - -- "Transform.ag"(line 279, column 10) - _checkedRulesPre = - ({-# LINE 279 "Transform.ag" #-} - Map.map (Map.map fst) _allRulesErrs - {-# LINE 652 "Transform.hs" #-}) - -- "Transform.ag"(line 280, column 10) - _checkedSigs = - ({-# LINE 280 "Transform.ag" #-} - Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs - {-# LINE 657 "Transform.hs" #-}) - -- "Transform.ag"(line 281, column 10) - _checkedInsts = - ({-# LINE 281 "Transform.ag" #-} - Map.map (Map.map fst) _allInstsErrs - {-# LINE 662 "Transform.hs" #-}) - -- "Transform.ag"(line 282, column 10) - _checkedUniques = - ({-# LINE 282 "Transform.ag" #-} - Map.map (Map.map fst) _allUniquesErrs - {-# LINE 667 "Transform.hs" #-}) - -- "Transform.ag"(line 283, column 10) - _checkedAugments = - ({-# LINE 283 "Transform.ag" #-} - Map.map (Map.map fst) _allAugmentErrs - {-# LINE 672 "Transform.hs" #-}) - -- "Transform.ag"(line 284, column 10) - _checkedArounds = - ({-# LINE 284 "Transform.ag" #-} - Map.map (Map.map fst) _allAroundsErrs - {-# LINE 677 "Transform.hs" #-}) - -- "Transform.ag"(line 285, column 10) - _checkedRules = - ({-# LINE 285 "Transform.ag" #-} - Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _allAttrDecls )) _checkedUniques ) - {-# LINE 682 "Transform.hs" #-}) - -- "Transform.ag"(line 287, column 10) - _errs1 = - ({-# LINE 287 "Transform.ag" #-} - let f = checkForDuplicates (DupSynonym) - in Seq.fromList . f . map fst $ _elemsItypeSyns - {-# LINE 688 "Transform.hs" #-}) - -- "Transform.ag"(line 290, column 10) - _errs2 = - ({-# LINE 290 "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 695 "Transform.hs" #-}) - -- "Transform.ag"(line 294, column 10) - _errs3 = - ({-# LINE 294 "Transform.ag" #-} - let f (nt,cons) = checkForDuplicates (DupAlt nt) cons - in Seq.empty - {-# LINE 701 "Transform.hs" #-}) - -- "Transform.ag"(line 298, column 10) - _errs4 = - ({-# LINE 298 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allRulesErrs - {-# LINE 707 "Transform.hs" #-}) - -- "Transform.ag"(line 301, column 10) - _errs5 = - ({-# LINE 301 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allSigsErrs - {-# LINE 713 "Transform.hs" #-}) - -- "Transform.ag"(line 304, column 10) - _errs6 = - ({-# LINE 304 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allInstsErrs - {-# LINE 719 "Transform.hs" #-}) - -- "Transform.ag"(line 307, column 10) - _errs7 = - ({-# LINE 307 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allUniquesErrs - {-# LINE 725 "Transform.hs" #-}) - -- "Transform.ag"(line 310, column 10) - _errs8 = - ({-# LINE 310 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allAugmentErrs - {-# LINE 731 "Transform.hs" #-}) - -- "Transform.ag"(line 313, column 10) - _errs9 = - ({-# LINE 313 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allAroundsErrs - {-# LINE 737 "Transform.hs" #-}) - -- "Transform.ag"(line 316, column 10) - _errs10 = - ({-# LINE 316 "Transform.ag" #-} - let f m s = Map.fold ((><)) s m - in Map.fold f Seq.empty _allNamesErrs - {-# LINE 743 "Transform.hs" #-}) - -- "Transform.ag"(line 319, column 10) - _lhsOerrors = - ({-# LINE 319 "Transform.ag" #-} - _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 - {-# LINE 748 "Transform.hs" #-}) - -- "Transform.ag"(line 498, column 10) - _allNonterminals = - ({-# LINE 498 "Transform.ag" #-} - _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames - {-# LINE 753 "Transform.hs" #-}) - -- "Transform.ag"(line 518, column 8) - _elemsOallConstructors = - ({-# LINE 518 "Transform.ag" #-} - _elemsIcollectedConstructorsMap - {-# LINE 758 "Transform.hs" #-}) - -- "Transform.ag"(line 591, column 8) - _elemsOdefSets = - ({-# LINE 591 "Transform.ag" #-} - Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals )) - {-# LINE 763 "Transform.hs" #-}) - -- "Transform.ag"(line 592, column 8) - _elemsOdefinedSets = - ({-# LINE 592 "Transform.ag" #-} - Map.map fst _elemsIdefSets - {-# LINE 768 "Transform.hs" #-}) - -- "Transform.ag"(line 844, column 8) - _elemsOattrDecls = - ({-# LINE 844 "Transform.ag" #-} - Map.empty - {-# LINE 773 "Transform.hs" #-}) - -- "Transform.ag"(line 883, column 9) - _allAttrDecls = - ({-# LINE 883 "Transform.ag" #-} - if withSelf _lhsIoptions - then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals ) - else _elemsIattrDecls - {-# LINE 780 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - _elemsIblocks - {-# LINE 785 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - _elemsImoduleDecl - {-# LINE 790 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - _elemsIpragmas - {-# LINE 795 "Transform.hs" #-}) - -- copy rule (from local) - _elemsOallAttrDecls = - ({-# LINE 746 "Transform.ag" #-} - _allAttrDecls - {-# LINE 800 "Transform.hs" #-}) - -- copy rule (from local) - _elemsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _allFields - {-# LINE 805 "Transform.hs" #-}) - -- copy rule (from local) - _elemsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _allNonterminals - {-# LINE 810 "Transform.hs" #-}) - ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) = - (elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets ) - 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 228, column 10) - _lhsOcollectedFields = - ({-# LINE 228 "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 873 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - _namesIcollectedConstructorNames - {-# LINE 878 "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 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames - {-# LINE 940 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - _hdIcollectedFields ++ _tlIcollectedFields - {-# LINE 945 "Transform.hs" #-}) - -- copy rule (down) - _hdOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 950 "Transform.hs" #-}) - -- copy rule (down) - _hdOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 955 "Transform.hs" #-}) - -- copy rule (down) - _hdOnts = - ({-# LINE 163 "Transform.ag" #-} - _lhsInts - {-# LINE 960 "Transform.hs" #-}) - -- copy rule (down) - _tlOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 965 "Transform.hs" #-}) - -- copy rule (down) - _tlOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 970 "Transform.hs" #-}) - -- copy rule (down) - _tlOnts = - ({-# LINE 163 "Transform.ag" #-} - _lhsInts - {-# LINE 975 "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 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - Set.empty - {-# LINE 992 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 997 "Transform.hs" #-}) - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) ) --- Attrs ------------------------------------------------------- -{- - visit 0: - inherited attributes: - allFields : DataTypes - allNonterminals : Set NontermIdent - nts : Set NontermIdent - 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 : _ --} --- 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) -> - ( (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))} -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 ) = - (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = - (sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts ) - 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 -> - (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOerrors :: (Seq Error) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - -- "Transform.ag"(line 852, column 15) - __tup1 = - ({-# LINE 852 "Transform.ag" #-} - checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls - {-# LINE 1063 "Transform.hs" #-}) - -- "Transform.ag"(line 852, column 15) - (_attrDecls,_) = - ({-# LINE 852 "Transform.ag" #-} - __tup1 - {-# LINE 1068 "Transform.hs" #-}) - -- "Transform.ag"(line 852, column 15) - (_,_errors) = - ({-# LINE 852 "Transform.ag" #-} - __tup1 - {-# LINE 1073 "Transform.hs" #-}) - -- "Transform.ag"(line 854, column 15) - __tup2 = - ({-# LINE 854 "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 1085 "Transform.hs" #-}) - -- "Transform.ag"(line 854, column 15) - (_inherited,_,_) = - ({-# LINE 854 "Transform.ag" #-} - __tup2 - {-# LINE 1090 "Transform.hs" #-}) - -- "Transform.ag"(line 854, column 15) - (_,_synthesized,_) = - ({-# LINE 854 "Transform.ag" #-} - __tup2 - {-# LINE 1095 "Transform.hs" #-}) - -- "Transform.ag"(line 854, column 15) - (_,_,_useMap) = - ({-# LINE 854 "Transform.ag" #-} - __tup2 - {-# LINE 1100 "Transform.hs" #-}) - -- "Transform.ag"(line 862, column 11) - _lhsOuseMap = - ({-# LINE 862 "Transform.ag" #-} - Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap)) - {-# LINE 1105 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _errors - {-# LINE 1110 "Transform.hs" #-}) - -- copy rule (from local) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _attrDecls - {-# LINE 1115 "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 658, column 17) - _lhsOconstructors = - ({-# LINE 658 "Transform.ag" #-} - \ds -> ds - {-# LINE 1166 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - Set.empty - {-# LINE 1171 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 1176 "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 657, column 17) - _lhsOconstructors = - ({-# LINE 657 "Transform.ag" #-} - \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds - {-# LINE 1195 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames - {-# LINE 1200 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 1205 "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 506, column 11) - _lhsOcollectedConstructorNames = - ({-# LINE 506 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 1221 "Transform.hs" #-}) - -- "Transform.ag"(line 655, column 17) - _lhsOconstructors = - ({-# LINE 655 "Transform.ag" #-} - \ds -> Set.singleton name_ - {-# LINE 1226 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 1231 "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 656, column 17) - _lhsOconstructors = - ({-# LINE 656 "Transform.ag" #-} - \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds - {-# LINE 1250 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames - {-# LINE 1255 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 1260 "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 - 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]) ] - 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 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 _set ) = - (sem_Elem_Set _pos _name (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 -> - ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),(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)} -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]) ])),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 ) = - (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = - (sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets ) - in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _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 -> - (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]) ]) - _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)) - _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 804, column 7) - _lhsOctxCollect = - ({-# LINE 804 "Transform.ag" #-} - if null ctx_ - then Map.empty - else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] - {-# LINE 1459 "Transform.hs" #-}) - -- "Transform.ag"(line 848, column 10) - _attrsOnts = - ({-# LINE 848 "Transform.ag" #-} - _namesInontSet - {-# LINE 1464 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 1469 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 1474 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 1479 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 1484 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 1489 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 1494 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 1499 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 1504 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 1509 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 1514 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 1519 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 1524 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 1529 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors - {-# LINE 1534 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 1539 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 1544 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 1549 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 1554 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 1559 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 1564 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 1569 "Transform.hs" #-}) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 1574 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 1579 "Transform.hs" #-}) - -- copy rule (down) - _namesOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1584 "Transform.hs" #-}) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1589 "Transform.hs" #-}) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 1594 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1599 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1604 "Transform.hs" #-}) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 1609 "Transform.hs" #-}) - ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = - (names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets ) - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = - (attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (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]) ]) - _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)) - _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 166, column 10) - _altsOnts = - ({-# LINE 166 "Transform.ag" #-} - _namesInontSet - {-# LINE 1677 "Transform.hs" #-}) - -- "Transform.ag"(line 512, column 11) - _lhsOcollectedConstructorsMap = - ({-# LINE 512 "Transform.ag" #-} - Map.fromList - [ (n, _altsIcollectedConstructorNames) - | n <- Set.toList _namesInontSet - ] - {-# LINE 1685 "Transform.hs" #-}) - -- "Transform.ag"(line 781, column 7) - _lhsOparamsCollect = - ({-# LINE 781 "Transform.ag" #-} - if null params_ - then Map.empty - else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet] - {-# LINE 1692 "Transform.hs" #-}) - -- "Transform.ag"(line 804, column 7) - _lhsOctxCollect = - ({-# LINE 804 "Transform.ag" #-} - if null ctx_ - then Map.empty - else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] - {-# LINE 1699 "Transform.hs" #-}) - -- "Transform.ag"(line 847, column 10) - _attrsOnts = - ({-# LINE 847 "Transform.ag" #-} - _namesInontSet - {-# LINE 1704 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 1709 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 1714 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 1719 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 1724 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - _altsIcollectedFields - {-# LINE 1729 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 1734 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 1739 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 1744 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 1749 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 1754 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 1759 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 1764 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors - {-# LINE 1769 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 1774 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 1779 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 1784 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 1789 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 1794 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 1799 "Transform.hs" #-}) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 1804 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 1809 "Transform.hs" #-}) - -- copy rule (down) - _namesOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1814 "Transform.hs" #-}) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1819 "Transform.hs" #-}) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 1824 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1829 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1834 "Transform.hs" #-}) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 1839 "Transform.hs" #-}) - -- copy rule (down) - _altsOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 1844 "Transform.hs" #-}) - -- copy rule (down) - _altsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1849 "Transform.hs" #-}) - ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = - (names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets ) - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = - (attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts ) - ( _altsIcollectedConstructorNames,_altsIcollectedFields) = - (alts_ _altsOallConstructors _altsOallNonterminals _altsOnts ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (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]) ]) - _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 832, column 14) - _lhsOderivings = - ({-# LINE 832 "Transform.ag" #-} - Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet] - {-# LINE 1903 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 1908 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 1913 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 1918 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 1923 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 1928 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 1933 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 1938 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 1943 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 1948 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 1953 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 1958 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 1963 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 800, column 34) - _lhsOctxCollect = - ({-# LINE 800 "Transform.ag" #-} - Map.empty - {-# LINE 1968 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _setIerrors - {-# LINE 1973 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 1978 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 1983 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 1988 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 1993 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 1998 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2003 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 2008 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2013 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2018 "Transform.hs" #-}) - -- copy rule (down) - _setOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2023 "Transform.hs" #-}) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2028 "Transform.hs" #-}) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2033 "Transform.hs" #-}) - ( _setIcollectedNames,_setIerrors,_setInontSet) = - (set_ _setOallFields _setOallNonterminals _setOdefinedSets ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (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]) ]) - _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 1000, column 7) - _lhsOmoduleDecl = - ({-# LINE 1000 "Transform.ag" #-} - Just (name_, exports_, imports_) - {-# LINE 2078 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 2083 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 2088 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2093 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2098 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2103 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2108 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 2113 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 2118 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 2123 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 2128 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 2133 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2138 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 800, column 34) - _lhsOctxCollect = - ({-# LINE 800 "Transform.ag" #-} - Map.empty - {-# LINE 2143 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 2148 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 2153 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 2158 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 2163 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 2168 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 2173 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2178 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 2183 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2188 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2193 "Transform.hs" #-}) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (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]) ]) - _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 676, column 13) - _lhsOpragmas = - ({-# LINE 676 "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 } - "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 2273 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 2278 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 2283 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2288 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2293 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2298 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2303 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 2308 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 2313 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 2318 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 2323 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 2328 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2333 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 800, column 34) - _lhsOctxCollect = - ({-# LINE 800 "Transform.ag" #-} - Map.empty - {-# LINE 2338 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 2343 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 2348 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 2353 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 2358 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 2363 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 2368 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2373 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 2378 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2383 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2388 "Transform.hs" #-}) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (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]) ]) - _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)) - _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) - _altsOallFields :: DataTypes - _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]) ]) - _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _altsIerrors :: (Seq Error) - _altsIsemPragmasCollect :: PragmaMap - -- "Transform.ag"(line 167, column 10) - _altsOnts = - ({-# LINE 167 "Transform.ag" #-} - _namesInontSet - {-# LINE 2457 "Transform.hs" #-}) - -- "Transform.ag"(line 804, column 7) - _lhsOctxCollect = - ({-# LINE 804 "Transform.ag" #-} - if null ctx_ - then Map.empty - else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] - {-# LINE 2464 "Transform.hs" #-}) - -- "Transform.ag"(line 849, column 10) - _attrsOnts = - ({-# LINE 849 "Transform.ag" #-} - _namesInontSet - {-# LINE 2469 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - _altsIattrOrderCollect - {-# LINE 2474 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 2479 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - _altsIcollectedArounds - {-# LINE 2484 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - _altsIcollectedAugments - {-# LINE 2489 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2494 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2499 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - _altsIcollectedInsts - {-# LINE 2504 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 2509 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - _altsIcollectedRules - {-# LINE 2514 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 2519 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - _altsIcollectedSigs - {-# LINE 2524 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - _altsIcollectedUniques - {-# LINE 2529 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 2534 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors - {-# LINE 2539 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 2544 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 2549 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 2554 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - _altsIsemPragmasCollect - {-# LINE 2559 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 2564 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 2569 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 2574 "Transform.hs" #-}) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 2579 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2584 "Transform.hs" #-}) - -- copy rule (down) - _namesOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2589 "Transform.hs" #-}) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2594 "Transform.hs" #-}) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2599 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2604 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2609 "Transform.hs" #-}) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2614 "Transform.hs" #-}) - -- copy rule (down) - _altsOallAttrDecls = - ({-# LINE 746 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 2619 "Transform.hs" #-}) - -- copy rule (down) - _altsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2624 "Transform.hs" #-}) - ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = - (names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets ) - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = - (attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts ) - ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) = - (alts_ _altsOallAttrDecls _altsOallFields _altsOnts ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Set :: Pos -> - NontermIdent -> - T_NontSet -> - T_Elem -sem_Elem_Set pos_ name_ (T_NontSet set_ ) = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets -> - (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]) ]) - _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 489, column 10) - _lhsOcollectedSetNames = - ({-# LINE 489 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 2678 "Transform.hs" #-}) - -- "Transform.ag"(line 596, column 13) - __tup3 = - ({-# LINE 596 "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) = checkDuplicate DupSet name_ (nontSet,Set.insert name_ allUsedNames) _lhsIdefSets - in (res, e1 Seq.>< e2) - {-# LINE 2692 "Transform.hs" #-}) - -- "Transform.ag"(line 596, column 13) - (_defSets2,_) = - ({-# LINE 596 "Transform.ag" #-} - __tup3 - {-# LINE 2697 "Transform.hs" #-}) - -- "Transform.ag"(line 596, column 13) - (_,_errs) = - ({-# LINE 596 "Transform.ag" #-} - __tup3 - {-# LINE 2702 "Transform.hs" #-}) - -- "Transform.ag"(line 606, column 9) - _lhsOdefSets = - ({-# LINE 606 "Transform.ag" #-} - _defSets2 - {-# LINE 2707 "Transform.hs" #-}) - -- "Transform.ag"(line 606, column 9) - _lhsOerrors = - ({-# LINE 607 "Transform.ag" #-} - _errs >< _setIerrors - {-# LINE 2712 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 2717 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 2722 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2727 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2732 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2737 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2742 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 2747 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 2752 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 2757 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 2762 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2767 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 800, column 34) - _lhsOctxCollect = - ({-# LINE 800 "Transform.ag" #-} - Map.empty - {-# LINE 2772 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 2777 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 2782 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 2787 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 2792 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 2797 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 2802 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2807 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 2812 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2817 "Transform.hs" #-}) - -- copy rule (down) - _setOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2822 "Transform.hs" #-}) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2827 "Transform.hs" #-}) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2832 "Transform.hs" #-}) - ( _setIcollectedNames,_setIerrors,_setInontSet) = - (set_ _setOallFields _setOallNonterminals _setOdefinedSets ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (let _lhsOblocks :: Blocks - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _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)) - -- "Transform.ag"(line 176, column 10) - _blockInfo = - ({-# LINE 176 "Transform.ag" #-} - ( let nm = getName name_ - in if nm == "imports" - then BlockImport - else if nm == "optpragmas" - then BlockPragma - else BlockOther - , mbNt_ - ) - {-# LINE 2884 "Transform.hs" #-}) - -- "Transform.ag"(line 184, column 10) - _blockValue = - ({-# LINE 184 "Transform.ag" #-} - [(lines_, pos_)] - {-# LINE 2889 "Transform.hs" #-}) - -- "Transform.ag"(line 185, column 10) - _lhsOblocks = - ({-# LINE 185 "Transform.ag" #-} - Map.singleton _blockInfo _blockValue - {-# LINE 2894 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 2899 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2904 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2909 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2914 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2919 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 2924 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 2929 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 2934 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 2939 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 2944 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2949 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 800, column 34) - _lhsOctxCollect = - ({-# LINE 800 "Transform.ag" #-} - Map.empty - {-# LINE 2954 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 2959 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 2964 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 2969 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 2974 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 2979 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 2984 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 2989 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2994 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 2999 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3004 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3009 "Transform.hs" #-}) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (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]) ]) - _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 238, column 10) - _lhsOcollectedFields = - ({-# LINE 238 "Transform.ag" #-} - map (\(x,y)->(name_, x, y)) _expanded - {-# LINE 3053 "Transform.hs" #-}) - -- "Transform.ag"(line 492, column 11) - _lhsOcollectedNames = - ({-# LINE 492 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 3058 "Transform.hs" #-}) - -- "Transform.ag"(line 546, column 11) - _expanded = - ({-# LINE 546 "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 3091 "Transform.hs" #-}) - -- "Transform.ag"(line 575, column 11) - _argType = - ({-# LINE 575 "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 3102 "Transform.hs" #-}) - -- "Transform.ag"(line 582, column 11) - _lhsOtypeSyns = - ({-# LINE 582 "Transform.ag" #-} - [(name_,_argType)] - {-# LINE 3107 "Transform.hs" #-}) - -- "Transform.ag"(line 787, column 7) - _lhsOparamsCollect = - ({-# LINE 787 "Transform.ag" #-} - if null params_ - then Map.empty - else Map.singleton name_ params_ - {-# LINE 3114 "Transform.hs" #-}) - -- "Transform.ag"(line 810, column 7) - _lhsOctxCollect = - ({-# LINE 810 "Transform.ag" #-} - if null ctx_ - then Map.empty - else Map.singleton name_ ctx_ - {-# LINE 3121 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 3126 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 3131 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3136 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3141 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 3146 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 3151 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 3156 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 3161 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 3166 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3171 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 3176 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 3181 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 3186 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 3191 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 3196 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 3201 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 3206 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3211 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3216 "Transform.hs" #-}) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (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]) ]) - _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 667, column 13) - _lhsOwrappers = - ({-# LINE 667 "Transform.ag" #-} - _setInontSet - {-# LINE 3263 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 3268 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 3273 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3278 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3283 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 3288 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 3293 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 3298 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 3303 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 3308 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 3313 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 3318 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3323 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 800, column 34) - _lhsOctxCollect = - ({-# LINE 800 "Transform.ag" #-} - Map.empty - {-# LINE 3328 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 3333 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _setIerrors - {-# LINE 3338 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 3343 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 3348 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 3353 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 3358 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 3363 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 3368 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3373 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3378 "Transform.hs" #-}) - -- copy rule (down) - _setOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3383 "Transform.hs" #-}) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3388 "Transform.hs" #-}) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 3393 "Transform.hs" #-}) - ( _setIcollectedNames,_setIerrors,_setInontSet) = - (set_ _setOallFields _setOallNonterminals _setOdefinedSets ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 - 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]) ] - 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 -> - ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),(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)} -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]) ])),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 ) = - (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = - (sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets ) - in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _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 -> - (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]) ]) - _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 - _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 - _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]) ]) - _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]) ]) - _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 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect - {-# LINE 3562 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - _hdIblocks `mapUnionWithPlusPlus` _tlIblocks - {-# LINE 3567 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - _hdIcollectedArounds ++ _tlIcollectedArounds - {-# LINE 3572 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - _hdIcollectedAugments ++ _tlIcollectedAugments - {-# LINE 3577 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap - {-# LINE 3582 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - _hdIcollectedFields ++ _tlIcollectedFields - {-# LINE 3587 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - _hdIcollectedInsts ++ _tlIcollectedInsts - {-# LINE 3592 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _hdIcollectedNames `Set.union` _tlIcollectedNames - {-# LINE 3597 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - _hdIcollectedRules ++ _tlIcollectedRules - {-# LINE 3602 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames - {-# LINE 3607 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - _hdIcollectedSigs ++ _tlIcollectedSigs - {-# LINE 3612 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - _hdIcollectedUniques ++ _tlIcollectedUniques - {-# LINE 3617 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 800, column 34) - _lhsOctxCollect = - ({-# LINE 800 "Transform.ag" #-} - _hdIctxCollect `mergeCtx` _tlIctxCollect - {-# LINE 3622 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - _hdIderivings `mergeDerivings` _tlIderivings - {-# LINE 3627 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 3632 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - _hdImoduleDecl `mplus` _tlImoduleDecl - {-# LINE 3637 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - _hdIparamsCollect `mergeParams` _tlIparamsCollect - {-# LINE 3642 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - _hdIpragmas . _tlIpragmas - {-# LINE 3647 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect - {-# LINE 3652 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - _hdItypeSyns ++ _tlItypeSyns - {-# LINE 3657 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - _hdIuseMap `merge` _tlIuseMap - {-# LINE 3662 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - _hdIwrappers `Set.union` _tlIwrappers - {-# LINE 3667 "Transform.hs" #-}) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _tlIattrDecls - {-# LINE 3672 "Transform.hs" #-}) - -- copy rule (up) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _tlIdefSets - {-# LINE 3677 "Transform.hs" #-}) - -- copy rule (down) - _hdOallAttrDecls = - ({-# LINE 746 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 3682 "Transform.hs" #-}) - -- copy rule (down) - _hdOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 3687 "Transform.hs" #-}) - -- copy rule (down) - _hdOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3692 "Transform.hs" #-}) - -- copy rule (down) - _hdOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3697 "Transform.hs" #-}) - -- copy rule (down) - _hdOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3702 "Transform.hs" #-}) - -- copy rule (down) - _hdOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3707 "Transform.hs" #-}) - -- copy rule (down) - _hdOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 3712 "Transform.hs" #-}) - -- copy rule (down) - _tlOallAttrDecls = - ({-# LINE 746 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 3717 "Transform.hs" #-}) - -- copy rule (down) - _tlOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 3722 "Transform.hs" #-}) - -- copy rule (down) - _tlOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3727 "Transform.hs" #-}) - -- copy rule (down) - _tlOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3732 "Transform.hs" #-}) - -- copy rule (chain) - _tlOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _hdIattrDecls - {-# LINE 3737 "Transform.hs" #-}) - -- copy rule (chain) - _tlOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _hdIdefSets - {-# LINE 3742 "Transform.hs" #-}) - -- copy rule (down) - _tlOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 3747 "Transform.hs" #-}) - ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) = - (hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets ) - ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) = - (tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> - (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]) ]) - _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 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 3790 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 3795 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3800 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3805 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 3810 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 3815 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 3820 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 3825 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 3830 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 3835 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 3840 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3845 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 800, column 34) - _lhsOctxCollect = - ({-# LINE 800 "Transform.ag" #-} - Map.empty - {-# LINE 3850 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 825, column 33) - _lhsOderivings = - ({-# LINE 825 "Transform.ag" #-} - Map.empty - {-# LINE 3855 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 3860 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 996, column 37) - _lhsOmoduleDecl = - ({-# LINE 996 "Transform.ag" #-} - mzero - {-# LINE 3865 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 777, column 37) - _lhsOparamsCollect = - ({-# LINE 777 "Transform.ag" #-} - Map.empty - {-# LINE 3870 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 673, column 34) - _lhsOpragmas = - ({-# LINE 673 "Transform.ag" #-} - id - {-# LINE 3875 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 3880 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 533, column 32) - _lhsOtypeSyns = - ({-# LINE 533 "Transform.ag" #-} - [] - {-# LINE 3885 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 3890 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 664, column 32) - _lhsOwrappers = - ({-# LINE 664 "Transform.ag" #-} - Set.empty - {-# LINE 3895 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3900 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3905 "Transform.hs" #-}) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 610, column 16) - _lhsOnontSet = - ({-# LINE 610 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3980 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 3985 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 3990 "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 616, column 16) - _lhsOnontSet = - ({-# LINE 616 "Transform.ag" #-} - Set.difference _set1InontSet _set2InontSet - {-# LINE 4018 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 4023 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 4028 "Transform.hs" #-}) - -- copy rule (down) - _set1OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4033 "Transform.hs" #-}) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4038 "Transform.hs" #-}) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4043 "Transform.hs" #-}) - -- copy rule (down) - _set2OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4048 "Transform.hs" #-}) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4053 "Transform.hs" #-}) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4058 "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 615, column 16) - _lhsOnontSet = - ({-# LINE 615 "Transform.ag" #-} - Set.intersection _set1InontSet _set2InontSet - {-# LINE 4090 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 4095 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 4100 "Transform.hs" #-}) - -- copy rule (down) - _set1OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4105 "Transform.hs" #-}) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4110 "Transform.hs" #-}) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4115 "Transform.hs" #-}) - -- copy rule (down) - _set2OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4120 "Transform.hs" #-}) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4125 "Transform.hs" #-}) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4130 "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 495, column 14) - _lhsOcollectedNames = - ({-# LINE 495 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 4149 "Transform.hs" #-}) - -- "Transform.ag"(line 611, column 20) - __tup4 = - ({-# LINE 611 "Transform.ag" #-} - case Map.lookup name_ _lhsIdefinedSets of - Nothing -> (Set.empty, Seq.singleton (UndefNont name_)) - Just set -> (set, Seq.empty) - {-# LINE 4156 "Transform.hs" #-}) - -- "Transform.ag"(line 611, column 20) - (_nontSet,_) = - ({-# LINE 611 "Transform.ag" #-} - __tup4 - {-# LINE 4161 "Transform.hs" #-}) - -- "Transform.ag"(line 611, column 20) - (_,_errors) = - ({-# LINE 611 "Transform.ag" #-} - __tup4 - {-# LINE 4166 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _errors - {-# LINE 4171 "Transform.hs" #-}) - -- copy rule (from local) - _lhsOnontSet = - ({-# LINE 110 "Transform.ag" #-} - _nontSet - {-# LINE 4176 "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 617, column 16) - _lhsOnontSet = - ({-# LINE 617 "Transform.ag" #-} - let table = flattenDatas _lhsIallFields - in path table from_ to_ - {-# LINE 4193 "Transform.hs" #-}) - -- "Transform.ag"(line 619, column 16) - _lhsOerrors = - ({-# LINE 619 "Transform.ag" #-} - let check name | Set.member name _lhsIallNonterminals - = Seq.empty - | otherwise = Seq.singleton (UndefNont name) - in check from_ >< check to_ - {-# LINE 4201 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 4206 "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 614, column 16) - _lhsOnontSet = - ({-# LINE 614 "Transform.ag" #-} - Set.union _set1InontSet _set2InontSet - {-# LINE 4234 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 4239 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 4244 "Transform.hs" #-}) - -- copy rule (down) - _set1OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4249 "Transform.hs" #-}) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4254 "Transform.hs" #-}) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4259 "Transform.hs" #-}) - -- copy rule (down) - _set2OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4264 "Transform.hs" #-}) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4269 "Transform.hs" #-}) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4274 "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 972, column 11) - _lhsOdefinedAttrs = - ({-# LINE 972 "Transform.ag" #-} - (field_, attr_) : _patIdefinedAttrs - {-# LINE 4364 "Transform.hs" #-}) - -- "Transform.ag"(line 973, column 11) - _lhsOpatunder = - ({-# LINE 973 "Transform.ag" #-} - \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy - {-# LINE 4369 "Transform.hs" #-}) - -- "Transform.ag"(line 974, column 11) - _lhsOdefinedInsts = - ({-# LINE 974 "Transform.ag" #-} - (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts - {-# LINE 4374 "Transform.hs" #-}) - -- "Transform.ag"(line 989, column 16) - _lhsOstpos = - ({-# LINE 989 "Transform.ag" #-} - getPos field_ - {-# LINE 4379 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 4384 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4389 "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 976, column 12) - _lhsOpatunder = - ({-# LINE 976 "Transform.ag" #-} - \us -> Constr name_ (_patsIpatunder us) - {-# LINE 4412 "Transform.hs" #-}) - -- "Transform.ag"(line 987, column 16) - _lhsOstpos = - ({-# LINE 987 "Transform.ag" #-} - getPos name_ - {-# LINE 4417 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 967, column 42) - _lhsOdefinedAttrs = - ({-# LINE 967 "Transform.ag" #-} - _patsIdefinedAttrs - {-# LINE 4422 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - _patsIdefinedInsts - {-# LINE 4427 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Constr name_ _patsIcopy - {-# LINE 4432 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4437 "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 978, column 17) - _lhsOpatunder = - ({-# LINE 978 "Transform.ag" #-} - \us -> Irrefutable (_patIpatunder us) - {-# LINE 4458 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 967, column 42) - _lhsOdefinedAttrs = - ({-# LINE 967 "Transform.ag" #-} - _patIdefinedAttrs - {-# LINE 4463 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - _patIdefinedInsts - {-# LINE 4468 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Irrefutable _patIcopy - {-# LINE 4473 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4478 "Transform.hs" #-}) - -- copy rule (up) - _lhsOstpos = - ({-# LINE 984 "Transform.ag" #-} - _patIstpos - {-# LINE 4483 "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 977, column 13) - _lhsOpatunder = - ({-# LINE 977 "Transform.ag" #-} - \us -> Product pos_ (_patsIpatunder us) - {-# LINE 4504 "Transform.hs" #-}) - -- "Transform.ag"(line 988, column 16) - _lhsOstpos = - ({-# LINE 988 "Transform.ag" #-} - pos_ - {-# LINE 4509 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 967, column 42) - _lhsOdefinedAttrs = - ({-# LINE 967 "Transform.ag" #-} - _patsIdefinedAttrs - {-# LINE 4514 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - _patsIdefinedInsts - {-# LINE 4519 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Product pos_ _patsIcopy - {-# LINE 4524 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4529 "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 975, column 16) - _lhsOpatunder = - ({-# LINE 975 "Transform.ag" #-} - \us -> _copy - {-# LINE 4545 "Transform.hs" #-}) - -- "Transform.ag"(line 990, column 16) - _lhsOstpos = - ({-# LINE 990 "Transform.ag" #-} - pos_ - {-# LINE 4550 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 967, column 42) - _lhsOdefinedAttrs = - ({-# LINE 967 "Transform.ag" #-} - [] - {-# LINE 4555 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 4560 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Underscore pos_ - {-# LINE 4565 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4570 "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 982, column 10) - _lhsOpatunder = - ({-# LINE 982 "Transform.ag" #-} - \us -> (_hdIpatunder us) : (_tlIpatunder us) - {-# LINE 4627 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 967, column 42) - _lhsOdefinedAttrs = - ({-# LINE 967 "Transform.ag" #-} - _hdIdefinedAttrs ++ _tlIdefinedAttrs - {-# LINE 4632 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 4637 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 4642 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4647 "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 981, column 9) - _lhsOpatunder = - ({-# LINE 981 "Transform.ag" #-} - \us -> [] - {-# LINE 4663 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 967, column 42) - _lhsOdefinedAttrs = - ({-# LINE 967 "Transform.ag" #-} - [] - {-# LINE 4668 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 4673 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - [] - {-# LINE 4678 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4683 "Transform.hs" #-}) - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) ) --- SemAlt ------------------------------------------------------ -{- - visit 0: - inherited attributes: - allAttrDecls : Map NontermIdent (Attributes, Attributes) - allFields : DataTypes - nts : Set NontermIdent - synthesized attributes: - attrOrderCollect : AttrOrderMap - collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] - collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] - collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] - 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) -> - ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (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))} -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]) ])),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 ) = - (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = - (sem _lhsIallAttrDecls _lhsIallFields _lhsInts ) - in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _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 -> - (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]) ]) - _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent) - _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _constructorSetIerrors :: (Seq Error) - _rulesIaroundInfos :: ([AroundInfo]) - _rulesIaugmentInfos :: ([AugmentInfo]) - _rulesIdefinedInsts :: ([Identifier]) - _rulesIorderDepsCollect :: (Set Dependency) - _rulesIpragmaNamesCollect :: ([Identifier]) - _rulesIruleInfos :: ([RuleInfo]) - _rulesIsigInfos :: ([SigInfo]) - _rulesIuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 721, column 7) - _pragmaNames = - ({-# LINE 721 "Transform.ag" #-} - Set.fromList _rulesIpragmaNamesCollect - {-# LINE 4763 "Transform.hs" #-}) - -- "Transform.ag"(line 722, column 7) - _lhsOsemPragmasCollect = - ({-# LINE 722 "Transform.ag" #-} - foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4771 "Transform.hs" #-}) - -- "Transform.ag"(line 750, column 7) - _attrOrders = - ({-# LINE 750 "Transform.ag" #-} - [ orderMapSingle nt con _rulesIorderDepsCollect - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4779 "Transform.hs" #-}) - -- "Transform.ag"(line 756, column 7) - _lhsOattrOrderCollect = - ({-# LINE 756 "Transform.ag" #-} - foldr orderMapUnion Map.empty _attrOrders - {-# LINE 4784 "Transform.hs" #-}) - -- "Transform.ag"(line 901, column 12) - _coninfo = - ({-# LINE 901 "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 4794 "Transform.hs" #-}) - -- "Transform.ag"(line 908, column 12) - _lhsOerrors = - ({-# LINE 908 "Transform.ag" #-} - Seq.fromList - [ UndefAlt nt con - | (nt, conset, conkeys) <- _coninfo - , con <- Set.toList (Set.difference conset conkeys) - ] - {-# LINE 4803 "Transform.hs" #-}) - -- "Transform.ag"(line 913, column 12) - _lhsOcollectedRules = - ({-# LINE 913 "Transform.ag" #-} - [ (nt,con,r) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - , r <- _rulesIruleInfos - ] - {-# LINE 4812 "Transform.hs" #-}) - -- "Transform.ag"(line 919, column 12) - _lhsOcollectedSigs = - ({-# LINE 919 "Transform.ag" #-} - [ (nt,con,ts) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - , ts <- _rulesIsigInfos - ] - {-# LINE 4821 "Transform.hs" #-}) - -- "Transform.ag"(line 926, column 12) - _lhsOcollectedInsts = - ({-# LINE 926 "Transform.ag" #-} - [ (nt,con,_rulesIdefinedInsts) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4829 "Transform.hs" #-}) - -- "Transform.ag"(line 932, column 12) - _lhsOcollectedUniques = - ({-# LINE 932 "Transform.ag" #-} - [ (nt,con,_rulesIuniqueInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4837 "Transform.hs" #-}) - -- "Transform.ag"(line 938, column 12) - _lhsOcollectedAugments = - ({-# LINE 938 "Transform.ag" #-} - [ (nt, con, _rulesIaugmentInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4845 "Transform.hs" #-}) - -- "Transform.ag"(line 944, column 12) - _lhsOcollectedArounds = - ({-# LINE 944 "Transform.ag" #-} - [ (nt, con, _rulesIaroundInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4853 "Transform.hs" #-}) - ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) = - (constructorSet_ ) - ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) = - (rules_ ) - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) --- SemAlts ----------------------------------------------------- -{- - visit 0: - inherited attributes: - allAttrDecls : Map NontermIdent (Attributes, Attributes) - allFields : DataTypes - nts : Set NontermIdent - synthesized attributes: - attrOrderCollect : AttrOrderMap - collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] - collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] - collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] - 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) -> - ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (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))} -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]) ])),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 ) = - (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = - (sem _lhsIallAttrDecls _lhsIallFields _lhsInts ) - in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _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 -> - (let _lhsOattrOrderCollect :: AttrOrderMap - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _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) - _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) - _tlOallFields :: DataTypes - _tlOnts :: (Set NontermIdent) - _hdIattrOrderCollect :: AttrOrderMap - _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _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]) ]) - _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _tlIerrors :: (Seq Error) - _tlIsemPragmasCollect :: PragmaMap - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect - {-# LINE 4945 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - _hdIcollectedArounds ++ _tlIcollectedArounds - {-# LINE 4950 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - _hdIcollectedAugments ++ _tlIcollectedAugments - {-# LINE 4955 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - _hdIcollectedInsts ++ _tlIcollectedInsts - {-# LINE 4960 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - _hdIcollectedRules ++ _tlIcollectedRules - {-# LINE 4965 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - _hdIcollectedSigs ++ _tlIcollectedSigs - {-# LINE 4970 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - _hdIcollectedUniques ++ _tlIcollectedUniques - {-# LINE 4975 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 4980 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect - {-# LINE 4985 "Transform.hs" #-}) - -- copy rule (down) - _hdOallAttrDecls = - ({-# LINE 746 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 4990 "Transform.hs" #-}) - -- copy rule (down) - _hdOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4995 "Transform.hs" #-}) - -- copy rule (down) - _hdOnts = - ({-# LINE 163 "Transform.ag" #-} - _lhsInts - {-# LINE 5000 "Transform.hs" #-}) - -- copy rule (down) - _tlOallAttrDecls = - ({-# LINE 746 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 5005 "Transform.hs" #-}) - -- copy rule (down) - _tlOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 5010 "Transform.hs" #-}) - -- copy rule (down) - _tlOnts = - ({-# LINE 163 "Transform.ag" #-} - _lhsInts - {-# LINE 5015 "Transform.hs" #-}) - ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) = - (hd_ _hdOallAttrDecls _hdOallFields _hdOnts ) - ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) = - (tl_ _tlOallAttrDecls _tlOallFields _tlOnts ) - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) -sem_SemAlts_Nil :: T_SemAlts -sem_SemAlts_Nil = - (T_SemAlts (\ _lhsIallAttrDecls - _lhsIallFields - _lhsInts -> - (let _lhsOattrOrderCollect :: AttrOrderMap - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOerrors :: (Seq Error) - _lhsOsemPragmasCollect :: PragmaMap - -- use rule "Transform.ag"(line 745, column 55) - _lhsOattrOrderCollect = - ({-# LINE 745 "Transform.ag" #-} - Map.empty - {-# LINE 5039 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 5044 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 5049 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 5054 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 5059 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 5064 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 5069 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 5074 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 717, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 717 "Transform.ag" #-} - Map.empty - {-# LINE 5079 "Transform.hs" #-}) - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) --- SemDef ------------------------------------------------------ -{- - visit 0: - synthesized attributes: - aroundInfos : [AroundInfo] - augmentInfos : [AugmentInfo] - definedInsts : [Identifier] - 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 SemPragma: - child names : {[NontermIdent]} - alternative TypeDef: - 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 (SemPragma _names ) = - (sem_SemDef_SemPragma _names ) -sem_SemDef (TypeDef _ident _tp ) = - (sem_SemDef_TypeDef _ident _tp ) -sem_SemDef (UniqueDef _ident _ref ) = - (sem_SemDef_UniqueDef _ident _ref ) --- semantic domain -newtype T_SemDef = T_SemDef (( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo]))) -data Inh_SemDef = Inh_SemDef {} -data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),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 ) = - (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = - (sem ) - in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos )) -sem_SemDef_AroundDef :: Identifier -> - Expression -> - T_SemDef -sem_SemDef_AroundDef ident_ rhs_ = - (T_SemDef (let _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 963, column 17) - _lhsOaroundInfos = - ({-# LINE 963 "Transform.ag" #-} - [ (ident_, rhs_) ] - {-# LINE 5164 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOaugmentInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5169 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 5174 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 758, column 44) - _lhsOorderDepsCollect = - ({-# LINE 758 "Transform.ag" #-} - Set.empty - {-# LINE 5179 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 727, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 727 "Transform.ag" #-} - [] - {-# LINE 5184 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 892, column 40) - _lhsOruleInfos = - ({-# LINE 892 "Transform.ag" #-} - [] - {-# LINE 5189 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 893, column 40) - _lhsOsigInfos = - ({-# LINE 893 "Transform.ag" #-} - [] - {-# LINE 5194 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOuniqueInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5199 "Transform.hs" #-}) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) -sem_SemDef_AttrOrderBefore :: ([Occurrence]) -> - ([Occurrence]) -> - T_SemDef -sem_SemDef_AttrOrderBefore before_ after_ = - (T_SemDef (let _lhsOorderDepsCollect :: (Set Dependency) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 762, column 7) - _dependency = - ({-# LINE 762 "Transform.ag" #-} - [ Dependency b a | b <- before_, a <- after_ ] - {-# LINE 5217 "Transform.hs" #-}) - -- "Transform.ag"(line 763, column 7) - _lhsOorderDepsCollect = - ({-# LINE 763 "Transform.ag" #-} - Set.fromList _dependency - {-# LINE 5222 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOaroundInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5227 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOaugmentInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5232 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 5237 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 727, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 727 "Transform.ag" #-} - [] - {-# LINE 5242 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 892, column 40) - _lhsOruleInfos = - ({-# LINE 892 "Transform.ag" #-} - [] - {-# LINE 5247 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 893, column 40) - _lhsOsigInfos = - ({-# LINE 893 "Transform.ag" #-} - [] - {-# LINE 5252 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOuniqueInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5257 "Transform.hs" #-}) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) -sem_SemDef_AugmentDef :: Identifier -> - Expression -> - T_SemDef -sem_SemDef_AugmentDef ident_ rhs_ = - (T_SemDef (let _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 960, column 17) - _lhsOaugmentInfos = - ({-# LINE 960 "Transform.ag" #-} - [ (ident_, rhs_) ] - {-# LINE 5275 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOaroundInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5280 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 5285 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 758, column 44) - _lhsOorderDepsCollect = - ({-# LINE 758 "Transform.ag" #-} - Set.empty - {-# LINE 5290 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 727, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 727 "Transform.ag" #-} - [] - {-# LINE 5295 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 892, column 40) - _lhsOruleInfos = - ({-# LINE 892 "Transform.ag" #-} - [] - {-# LINE 5300 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 893, column 40) - _lhsOsigInfos = - ({-# LINE 893 "Transform.ag" #-} - [] - {-# LINE 5305 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOuniqueInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5310 "Transform.hs" #-}) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_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 (let _lhsOruleInfos :: ([RuleInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - _patternIcopy :: Pattern - _patternIdefinedAttrs :: ([AttrName]) - _patternIdefinedInsts :: ([Identifier]) - _patternIpatunder :: ([AttrName]->Pattern) - _patternIstpos :: Pos - -- "Transform.ag"(line 951, column 10) - _lhsOruleInfos = - ({-# LINE 951 "Transform.ag" #-} - [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ] - {-# LINE 5336 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOaroundInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5341 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOaugmentInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5346 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - _patternIdefinedInsts - {-# LINE 5351 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 758, column 44) - _lhsOorderDepsCollect = - ({-# LINE 758 "Transform.ag" #-} - Set.empty - {-# LINE 5356 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 727, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 727 "Transform.ag" #-} - [] - {-# LINE 5361 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 893, column 40) - _lhsOsigInfos = - ({-# LINE 893 "Transform.ag" #-} - [] - {-# LINE 5366 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOuniqueInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5371 "Transform.hs" #-}) - ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) = - (pattern_ ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) -sem_SemDef_SemPragma :: ([NontermIdent]) -> - T_SemDef -sem_SemDef_SemPragma names_ = - (T_SemDef (let _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 731, column 7) - _lhsOpragmaNamesCollect = - ({-# LINE 731 "Transform.ag" #-} - names_ - {-# LINE 5390 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOaroundInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5395 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOaugmentInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5400 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 5405 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 758, column 44) - _lhsOorderDepsCollect = - ({-# LINE 758 "Transform.ag" #-} - Set.empty - {-# LINE 5410 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 892, column 40) - _lhsOruleInfos = - ({-# LINE 892 "Transform.ag" #-} - [] - {-# LINE 5415 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 893, column 40) - _lhsOsigInfos = - ({-# LINE 893 "Transform.ag" #-} - [] - {-# LINE 5420 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOuniqueInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5425 "Transform.hs" #-}) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) -sem_SemDef_TypeDef :: Identifier -> - Type -> - T_SemDef -sem_SemDef_TypeDef ident_ tp_ = - (T_SemDef (let _lhsOsigInfos :: ([SigInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 954, column 14) - _lhsOsigInfos = - ({-# LINE 954 "Transform.ag" #-} - [ (ident_, tp_) ] - {-# LINE 5443 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOaroundInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5448 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOaugmentInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5453 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 5458 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 758, column 44) - _lhsOorderDepsCollect = - ({-# LINE 758 "Transform.ag" #-} - Set.empty - {-# LINE 5463 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 727, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 727 "Transform.ag" #-} - [] - {-# LINE 5468 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 892, column 40) - _lhsOruleInfos = - ({-# LINE 892 "Transform.ag" #-} - [] - {-# LINE 5473 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOuniqueInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5478 "Transform.hs" #-}) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) -sem_SemDef_UniqueDef :: Identifier -> - Identifier -> - T_SemDef -sem_SemDef_UniqueDef ident_ ref_ = - (T_SemDef (let _lhsOuniqueInfos :: ([UniqueInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - -- "Transform.ag"(line 957, column 16) - _lhsOuniqueInfos = - ({-# LINE 957 "Transform.ag" #-} - [ (ident_, ref_) ] - {-# LINE 5496 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOaroundInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5501 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOaugmentInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5506 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 5511 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 758, column 44) - _lhsOorderDepsCollect = - ({-# LINE 758 "Transform.ag" #-} - Set.empty - {-# LINE 5516 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 727, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 727 "Transform.ag" #-} - [] - {-# LINE 5521 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 892, column 40) - _lhsOruleInfos = - ({-# LINE 892 "Transform.ag" #-} - [] - {-# LINE 5526 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 893, column 40) - _lhsOsigInfos = - ({-# LINE 893 "Transform.ag" #-} - [] - {-# LINE 5531 "Transform.hs" #-}) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) --- SemDefs ----------------------------------------------------- -{- - visit 0: - synthesized attributes: - aroundInfos : [AroundInfo] - augmentInfos : [AugmentInfo] - definedInsts : [Identifier] - 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 (( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo]))) -data Inh_SemDefs = Inh_SemDefs {} -data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),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 ) = - (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = - (sem ) - in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _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 (let _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - _hdIaroundInfos :: ([AroundInfo]) - _hdIaugmentInfos :: ([AugmentInfo]) - _hdIdefinedInsts :: ([Identifier]) - _hdIorderDepsCollect :: (Set Dependency) - _hdIpragmaNamesCollect :: ([Identifier]) - _hdIruleInfos :: ([RuleInfo]) - _hdIsigInfos :: ([SigInfo]) - _hdIuniqueInfos :: ([UniqueInfo]) - _tlIaroundInfos :: ([AroundInfo]) - _tlIaugmentInfos :: ([AugmentInfo]) - _tlIdefinedInsts :: ([Identifier]) - _tlIorderDepsCollect :: (Set Dependency) - _tlIpragmaNamesCollect :: ([Identifier]) - _tlIruleInfos :: ([RuleInfo]) - _tlIsigInfos :: ([SigInfo]) - _tlIuniqueInfos :: ([UniqueInfo]) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOaroundInfos = - ({-# LINE 896 "Transform.ag" #-} - _hdIaroundInfos ++ _tlIaroundInfos - {-# LINE 5599 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOaugmentInfos = - ({-# LINE 895 "Transform.ag" #-} - _hdIaugmentInfos ++ _tlIaugmentInfos - {-# LINE 5604 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 5609 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 758, column 44) - _lhsOorderDepsCollect = - ({-# LINE 758 "Transform.ag" #-} - _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect - {-# LINE 5614 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 727, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 727 "Transform.ag" #-} - _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect - {-# LINE 5619 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 892, column 40) - _lhsOruleInfos = - ({-# LINE 892 "Transform.ag" #-} - _hdIruleInfos ++ _tlIruleInfos - {-# LINE 5624 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 893, column 40) - _lhsOsigInfos = - ({-# LINE 893 "Transform.ag" #-} - _hdIsigInfos ++ _tlIsigInfos - {-# LINE 5629 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOuniqueInfos = - ({-# LINE 894 "Transform.ag" #-} - _hdIuniqueInfos ++ _tlIuniqueInfos - {-# LINE 5634 "Transform.hs" #-}) - ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) = - (hd_ ) - ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) = - (tl_ ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) -sem_SemDefs_Nil :: T_SemDefs -sem_SemDefs_Nil = - (T_SemDefs (let _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOaroundInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5654 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOaugmentInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5659 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 966, column 55) - _lhsOdefinedInsts = - ({-# LINE 966 "Transform.ag" #-} - [] - {-# LINE 5664 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 758, column 44) - _lhsOorderDepsCollect = - ({-# LINE 758 "Transform.ag" #-} - Set.empty - {-# LINE 5669 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 727, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 727 "Transform.ag" #-} - [] - {-# LINE 5674 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 892, column 40) - _lhsOruleInfos = - ({-# LINE 892 "Transform.ag" #-} - [] - {-# LINE 5679 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 893, column 40) - _lhsOsigInfos = - ({-# LINE 893 "Transform.ag" #-} - [] - {-# LINE 5684 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOuniqueInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5689 "Transform.hs" #-}) +-- UUAGC 0.9.28 (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 +{-# LINE 28 "../src-derived/Transform.hs" #-} + +{-# LINE 2 "./ConcreteSyntax.ag" #-} + +import UU.Scanner.Position (Pos) +import Patterns (Pattern) +import Expression (Expression) +import CommonTypes +{-# LINE 36 "../src-derived/Transform.hs" #-} + +{-# LINE 2 "./Patterns.ag" #-} + +-- Patterns.ag imports +import UU.Scanner.Position(Pos) +import CommonTypes (ConstructorIdent,Identifier) +{-# LINE 43 "../src-derived/Transform.hs" #-} +{-# LINE 99 "Transform.ag" #-} +type DefinedSets = Map Identifier (Set NontermIdent) +{-# LINE 46 "../src-derived/Transform.hs" #-} + +{-# LINE 119 "Transform.ag" #-} +type FieldMap = [(Identifier, Type)] +{-# LINE 50 "../src-derived/Transform.hs" #-} + +{-# LINE 120 "Transform.ag" #-} +type DataTypes = Map.Map NontermIdent (Map.Map ConstructorIdent FieldMap) +{-# LINE 54 "../src-derived/Transform.hs" #-} + +{-# LINE 140 "Transform.ag" #-} +type AttrName = (Identifier,Identifier) +{-# LINE 58 "../src-derived/Transform.hs" #-} + +{-# LINE 141 "Transform.ag" #-} +type RuleInfo = (Maybe Identifier, [AttrName]->Pattern, Expression, [AttrName], Bool, String) +{-# LINE 62 "../src-derived/Transform.hs" #-} + +{-# LINE 142 "Transform.ag" #-} +type SigInfo = (Identifier,Type) +{-# LINE 66 "../src-derived/Transform.hs" #-} + +{-# LINE 143 "Transform.ag" #-} +type UniqueInfo = (Identifier,Identifier) +{-# LINE 70 "../src-derived/Transform.hs" #-} + +{-# LINE 144 "Transform.ag" #-} +type AugmentInfo = (Identifier,Expression) +{-# LINE 74 "../src-derived/Transform.hs" #-} + +{-# LINE 145 "Transform.ag" #-} +type AroundInfo = (Identifier,Expression) +{-# LINE 78 "../src-derived/Transform.hs" #-} + +{-# LINE 192 "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 109 "../src-derived/Transform.hs" #-} + +{-# LINE 321 "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 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]) -> + NontermIdent -> ConstructorIdent -> [RuleInfo] -> RulesAndErrors +checkRules attributes fields allinsts allsigs 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)) + + 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 + +unionunionplusplus = Map.unionWith (Map.unionWith (++)) +{-# LINE 243 "../src-derived/Transform.hs" #-} + +{-# LINE 455 "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.foldWithKey (\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 272 "../src-derived/Transform.hs" #-} + +{-# LINE 627 "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 297 "../src-derived/Transform.hs" #-} + +{-# LINE 735 "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 306 "../src-derived/Transform.hs" #-} + +{-# LINE 767 "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 315 "../src-derived/Transform.hs" #-} + +{-# LINE 793 "Transform.ag" #-} + +mergeParams :: ParamMap -> ParamMap -> ParamMap +mergeParams = Map.unionWith (++) +{-# LINE 321 "../src-derived/Transform.hs" #-} + +{-# LINE 816 "Transform.ag" #-} + +mergeCtx :: ContextMap -> ContextMap -> ContextMap +mergeCtx + = Map.unionWith nubconcat + where nubconcat a b = nub (a ++ b) +{-# LINE 329 "../src-derived/Transform.hs" #-} + +{-# LINE 829 "Transform.ag" #-} + +mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1) +{-# LINE 334 "../src-derived/Transform.hs" #-} + +{-# LINE 840 "Transform.ag" #-} + +merge x y = foldr f y (Map.toList x) + where f ~(k,v) m = Map.insertWith (Map.union) k v m +{-# LINE 340 "../src-derived/Transform.hs" #-} + +{-# LINE 867 "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 350 "../src-derived/Transform.hs" #-} + +{-# LINE 878 "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 356 "../src-derived/Transform.hs" #-} + +{-# LINE 1008 "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 365 "../src-derived/Transform.hs" #-} + +{-# LINE 1015 "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])) + -> Grammar + +constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap = + 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 + 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) + + -- important: keep order of children + cldrn = map child (flds ++ filter (not . existsAsField) insts) + 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 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) + 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 +{-# LINE 422 "../src-derived/Transform.hs" #-} + +{-# LINE 1071 "Transform.ag" #-} + +mapUnionWithSetUnion = Map.unionWith Set.union +mapUnionWithPlusPlus = Map.unionWith (++) +{-# LINE 428 "../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 augmentSigs : _ + local allRulesErrs : _ + local allNamesErrs : _ + local allSigsErrs : _ + local allInstsErrs : _ + local allUniquesErrs : _ + local allAugmentErrs : _ + local allAroundsErrs : _ + local checkedRulesPre : _ + local checkedSigs : _ + local checkedInsts : _ + local checkedUniques : _ + local checkedAugments : _ + local checkedArounds : _ + local checkedRules : _ + local errs1 : _ + local errs2 : _ + local errs3 : _ + local errs4 : _ + local errs5 : _ + local errs6 : _ + local errs7 : _ + local errs8 : _ + local errs9 : _ + local errs10 : _ + 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) + _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]) ]) + _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 51, column 8) + _lhsOoutput = + ({-# LINE 51 "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 + {-# LINE 557 "Transform.hs" #-}) + -- "Transform.ag"(line 243, column 10) + _allFields = + ({-# LINE 243 "Transform.ag" #-} + let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm) + in foldr f (Map.empty) _elemsIcollectedFields + {-# LINE 563 "Transform.hs" #-}) + -- "Transform.ag"(line 246, column 10) + _allConstrs = + ({-# LINE 246 "Transform.ag" #-} + let f (nt,con,_) = Map.insertWith (++) nt [con] + in foldr f (Map.empty) _elemsIcollectedFields + {-# LINE 569 "Transform.hs" #-}) + -- "Transform.ag"(line 249, column 10) + _allRules = + ({-# LINE 249 "Transform.ag" #-} + let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r]) + in foldr f (Map.empty) _elemsIcollectedRules + {-# LINE 575 "Transform.hs" #-}) + -- "Transform.ag"(line 252, column 10) + _allSigs = + ({-# LINE 252 "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 584 "Transform.hs" #-}) + -- "Transform.ag"(line 258, column 10) + _allInsts = + ({-# LINE 258 "Transform.ag" #-} + let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is) + in foldr f (Map.empty) _elemsIcollectedInsts + {-# LINE 590 "Transform.hs" #-}) + -- "Transform.ag"(line 261, column 10) + _allUniques = + ({-# LINE 261 "Transform.ag" #-} + let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us) + in foldr f (Map.empty) _elemsIcollectedUniques + {-# LINE 596 "Transform.hs" #-}) + -- "Transform.ag"(line 263, column 10) + _allAugments = + ({-# LINE 263 "Transform.ag" #-} + let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) + in foldr f Map.empty _elemsIcollectedAugments + {-# LINE 602 "Transform.hs" #-}) + -- "Transform.ag"(line 265, column 10) + _allArounds = + ({-# LINE 265 "Transform.ag" #-} + let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) + in foldr f Map.empty _elemsIcollectedArounds + {-# LINE 608 "Transform.hs" #-}) + -- "Transform.ag"(line 268, column 10) + _augmentSigs = + ({-# LINE 268 "Transform.ag" #-} + let gen mp = [] + in Map.map (Map.map gen) _allAugments + {-# LINE 614 "Transform.hs" #-}) + -- "Transform.ag"(line 271, column 10) + _allRulesErrs = + ({-# LINE 271 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs )) _allRules + {-# LINE 619 "Transform.hs" #-}) + -- "Transform.ag"(line 272, column 10) + _allNamesErrs = + ({-# LINE 272 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules + {-# LINE 624 "Transform.hs" #-}) + -- "Transform.ag"(line 273, column 10) + _allSigsErrs = + ({-# LINE 273 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs + {-# LINE 629 "Transform.hs" #-}) + -- "Transform.ag"(line 274, column 10) + _allInstsErrs = + ({-# LINE 274 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts + {-# LINE 634 "Transform.hs" #-}) + -- "Transform.ag"(line 275, column 10) + _allUniquesErrs = + ({-# LINE 275 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques + {-# LINE 639 "Transform.hs" #-}) + -- "Transform.ag"(line 276, column 10) + _allAugmentErrs = + ({-# LINE 276 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments + {-# LINE 644 "Transform.hs" #-}) + -- "Transform.ag"(line 277, column 10) + _allAroundsErrs = + ({-# LINE 277 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds + {-# LINE 649 "Transform.hs" #-}) + -- "Transform.ag"(line 279, column 10) + _checkedRulesPre = + ({-# LINE 279 "Transform.ag" #-} + Map.map (Map.map fst) _allRulesErrs + {-# LINE 654 "Transform.hs" #-}) + -- "Transform.ag"(line 280, column 10) + _checkedSigs = + ({-# LINE 280 "Transform.ag" #-} + Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs + {-# LINE 659 "Transform.hs" #-}) + -- "Transform.ag"(line 281, column 10) + _checkedInsts = + ({-# LINE 281 "Transform.ag" #-} + Map.map (Map.map fst) _allInstsErrs + {-# LINE 664 "Transform.hs" #-}) + -- "Transform.ag"(line 282, column 10) + _checkedUniques = + ({-# LINE 282 "Transform.ag" #-} + Map.map (Map.map fst) _allUniquesErrs + {-# LINE 669 "Transform.hs" #-}) + -- "Transform.ag"(line 283, column 10) + _checkedAugments = + ({-# LINE 283 "Transform.ag" #-} + Map.map (Map.map fst) _allAugmentErrs + {-# LINE 674 "Transform.hs" #-}) + -- "Transform.ag"(line 284, column 10) + _checkedArounds = + ({-# LINE 284 "Transform.ag" #-} + Map.map (Map.map fst) _allAroundsErrs + {-# LINE 679 "Transform.hs" #-}) + -- "Transform.ag"(line 285, column 10) + _checkedRules = + ({-# LINE 285 "Transform.ag" #-} + Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques ) + {-# LINE 684 "Transform.hs" #-}) + -- "Transform.ag"(line 287, column 10) + _errs1 = + ({-# LINE 287 "Transform.ag" #-} + let f = checkForDuplicates (DupSynonym) + in Seq.fromList . f . map fst $ _elemsItypeSyns + {-# LINE 690 "Transform.hs" #-}) + -- "Transform.ag"(line 290, column 10) + _errs2 = + ({-# LINE 290 "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 697 "Transform.hs" #-}) + -- "Transform.ag"(line 294, column 10) + _errs3 = + ({-# LINE 294 "Transform.ag" #-} + let f (nt,cons) = checkForDuplicates (DupAlt nt) cons + in Seq.empty + {-# LINE 703 "Transform.hs" #-}) + -- "Transform.ag"(line 298, column 10) + _errs4 = + ({-# LINE 298 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allRulesErrs + {-# LINE 709 "Transform.hs" #-}) + -- "Transform.ag"(line 301, column 10) + _errs5 = + ({-# LINE 301 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allSigsErrs + {-# LINE 715 "Transform.hs" #-}) + -- "Transform.ag"(line 304, column 10) + _errs6 = + ({-# LINE 304 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allInstsErrs + {-# LINE 721 "Transform.hs" #-}) + -- "Transform.ag"(line 307, column 10) + _errs7 = + ({-# LINE 307 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allUniquesErrs + {-# LINE 727 "Transform.hs" #-}) + -- "Transform.ag"(line 310, column 10) + _errs8 = + ({-# LINE 310 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allAugmentErrs + {-# LINE 733 "Transform.hs" #-}) + -- "Transform.ag"(line 313, column 10) + _errs9 = + ({-# LINE 313 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allAroundsErrs + {-# LINE 739 "Transform.hs" #-}) + -- "Transform.ag"(line 316, column 10) + _errs10 = + ({-# LINE 316 "Transform.ag" #-} + let f m s = Map.fold ((><)) s m + in Map.fold f Seq.empty _allNamesErrs + {-# LINE 745 "Transform.hs" #-}) + -- "Transform.ag"(line 319, column 10) + _lhsOerrors = + ({-# LINE 319 "Transform.ag" #-} + _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 + {-# LINE 750 "Transform.hs" #-}) + -- "Transform.ag"(line 500, column 10) + _allNonterminals = + ({-# LINE 500 "Transform.ag" #-} + _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames + {-# LINE 755 "Transform.hs" #-}) + -- "Transform.ag"(line 520, column 8) + _elemsOallConstructors = + ({-# LINE 520 "Transform.ag" #-} + _elemsIcollectedConstructorsMap + {-# LINE 760 "Transform.hs" #-}) + -- "Transform.ag"(line 593, column 8) + _elemsOdefSets = + ({-# LINE 593 "Transform.ag" #-} + Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals )) + {-# LINE 765 "Transform.hs" #-}) + -- "Transform.ag"(line 594, column 8) + _elemsOdefinedSets = + ({-# LINE 594 "Transform.ag" #-} + Map.map fst _elemsIdefSets + {-# LINE 770 "Transform.hs" #-}) + -- "Transform.ag"(line 846, column 8) + _elemsOattrDecls = + ({-# LINE 846 "Transform.ag" #-} + Map.empty + {-# LINE 775 "Transform.hs" #-}) + -- "Transform.ag"(line 885, column 9) + _allAttrDecls = + ({-# LINE 885 "Transform.ag" #-} + if withSelf _lhsIoptions + then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals ) + else _elemsIattrDecls + {-# LINE 782 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + _elemsIblocks + {-# LINE 787 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + _elemsImoduleDecl + {-# LINE 792 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + _elemsIpragmas + {-# LINE 797 "Transform.hs" #-}) + -- copy rule (from local) + _elemsOallAttrDecls = + ({-# LINE 748 "Transform.ag" #-} + _allAttrDecls + {-# LINE 802 "Transform.hs" #-}) + -- copy rule (from local) + _elemsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _allFields + {-# LINE 807 "Transform.hs" #-}) + -- copy rule (from local) + _elemsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _allNonterminals + {-# LINE 812 "Transform.hs" #-}) + ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) = + (elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets ) + 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 228, column 10) + _lhsOcollectedFields = + ({-# LINE 228 "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 875 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + _namesIcollectedConstructorNames + {-# LINE 880 "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 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames + {-# LINE 942 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + _hdIcollectedFields ++ _tlIcollectedFields + {-# LINE 947 "Transform.hs" #-}) + -- copy rule (down) + _hdOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 952 "Transform.hs" #-}) + -- copy rule (down) + _hdOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 957 "Transform.hs" #-}) + -- copy rule (down) + _hdOnts = + ({-# LINE 163 "Transform.ag" #-} + _lhsInts + {-# LINE 962 "Transform.hs" #-}) + -- copy rule (down) + _tlOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 967 "Transform.hs" #-}) + -- copy rule (down) + _tlOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 972 "Transform.hs" #-}) + -- copy rule (down) + _tlOnts = + ({-# LINE 163 "Transform.ag" #-} + _lhsInts + {-# LINE 977 "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 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + Set.empty + {-# LINE 994 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 999 "Transform.hs" #-}) + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) ) +-- Attrs ------------------------------------------------------- +{- + visit 0: + inherited attributes: + allFields : DataTypes + allNonterminals : Set NontermIdent + nts : Set NontermIdent + 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 : _ +-} +-- 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) -> + ( (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))} +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 ) = + (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = + (sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts ) + 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 -> + (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOerrors :: (Seq Error) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + -- "Transform.ag"(line 854, column 15) + __tup1 = + ({-# LINE 854 "Transform.ag" #-} + checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls + {-# LINE 1065 "Transform.hs" #-}) + -- "Transform.ag"(line 854, column 15) + (_attrDecls,_) = + ({-# LINE 854 "Transform.ag" #-} + __tup1 + {-# LINE 1070 "Transform.hs" #-}) + -- "Transform.ag"(line 854, column 15) + (_,_errors) = + ({-# LINE 854 "Transform.ag" #-} + __tup1 + {-# LINE 1075 "Transform.hs" #-}) + -- "Transform.ag"(line 856, column 15) + __tup2 = + ({-# LINE 856 "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 1087 "Transform.hs" #-}) + -- "Transform.ag"(line 856, column 15) + (_inherited,_,_) = + ({-# LINE 856 "Transform.ag" #-} + __tup2 + {-# LINE 1092 "Transform.hs" #-}) + -- "Transform.ag"(line 856, column 15) + (_,_synthesized,_) = + ({-# LINE 856 "Transform.ag" #-} + __tup2 + {-# LINE 1097 "Transform.hs" #-}) + -- "Transform.ag"(line 856, column 15) + (_,_,_useMap) = + ({-# LINE 856 "Transform.ag" #-} + __tup2 + {-# LINE 1102 "Transform.hs" #-}) + -- "Transform.ag"(line 864, column 11) + _lhsOuseMap = + ({-# LINE 864 "Transform.ag" #-} + Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap)) + {-# LINE 1107 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _errors + {-# LINE 1112 "Transform.hs" #-}) + -- copy rule (from local) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _attrDecls + {-# LINE 1117 "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 660, column 17) + _lhsOconstructors = + ({-# LINE 660 "Transform.ag" #-} + \ds -> ds + {-# LINE 1168 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + Set.empty + {-# LINE 1173 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 1178 "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 659, column 17) + _lhsOconstructors = + ({-# LINE 659 "Transform.ag" #-} + \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds + {-# LINE 1197 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames + {-# LINE 1202 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 1207 "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 508, column 11) + _lhsOcollectedConstructorNames = + ({-# LINE 508 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 1223 "Transform.hs" #-}) + -- "Transform.ag"(line 657, column 17) + _lhsOconstructors = + ({-# LINE 657 "Transform.ag" #-} + \ds -> Set.singleton name_ + {-# LINE 1228 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 1233 "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 658, column 17) + _lhsOconstructors = + ({-# LINE 658 "Transform.ag" #-} + \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds + {-# LINE 1252 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames + {-# LINE 1257 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 1262 "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 + 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]) ] + 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 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 _set ) = + (sem_Elem_Set _pos _name (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 -> + ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),(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)} +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]) ])),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 ) = + (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = + (sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets ) + in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _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 -> + (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]) ]) + _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)) + _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 806, column 7) + _lhsOctxCollect = + ({-# LINE 806 "Transform.ag" #-} + if null ctx_ + then Map.empty + else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] + {-# LINE 1461 "Transform.hs" #-}) + -- "Transform.ag"(line 850, column 10) + _attrsOnts = + ({-# LINE 850 "Transform.ag" #-} + _namesInontSet + {-# LINE 1466 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 1471 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 1476 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 1481 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 1486 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 1491 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 1496 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 1501 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 1506 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 1511 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 1516 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 1521 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 1526 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 1531 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors + {-# LINE 1536 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 1541 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 1546 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 1551 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 1556 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 1561 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 1566 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 1571 "Transform.hs" #-}) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 1576 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 1581 "Transform.hs" #-}) + -- copy rule (down) + _namesOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1586 "Transform.hs" #-}) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1591 "Transform.hs" #-}) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 1596 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1601 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1606 "Transform.hs" #-}) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 1611 "Transform.hs" #-}) + ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = + (names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets ) + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = + (attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (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]) ]) + _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)) + _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 166, column 10) + _altsOnts = + ({-# LINE 166 "Transform.ag" #-} + _namesInontSet + {-# LINE 1679 "Transform.hs" #-}) + -- "Transform.ag"(line 514, column 11) + _lhsOcollectedConstructorsMap = + ({-# LINE 514 "Transform.ag" #-} + Map.fromList + [ (n, _altsIcollectedConstructorNames) + | n <- Set.toList _namesInontSet + ] + {-# LINE 1687 "Transform.hs" #-}) + -- "Transform.ag"(line 783, column 7) + _lhsOparamsCollect = + ({-# LINE 783 "Transform.ag" #-} + if null params_ + then Map.empty + else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet] + {-# LINE 1694 "Transform.hs" #-}) + -- "Transform.ag"(line 806, column 7) + _lhsOctxCollect = + ({-# LINE 806 "Transform.ag" #-} + if null ctx_ + then Map.empty + else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] + {-# LINE 1701 "Transform.hs" #-}) + -- "Transform.ag"(line 849, column 10) + _attrsOnts = + ({-# LINE 849 "Transform.ag" #-} + _namesInontSet + {-# LINE 1706 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 1711 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 1716 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 1721 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 1726 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + _altsIcollectedFields + {-# LINE 1731 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 1736 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 1741 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 1746 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 1751 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 1756 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 1761 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 1766 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors + {-# LINE 1771 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 1776 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 1781 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 1786 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 1791 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 1796 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 1801 "Transform.hs" #-}) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 1806 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 1811 "Transform.hs" #-}) + -- copy rule (down) + _namesOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1816 "Transform.hs" #-}) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1821 "Transform.hs" #-}) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 1826 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1831 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1836 "Transform.hs" #-}) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 1841 "Transform.hs" #-}) + -- copy rule (down) + _altsOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 1846 "Transform.hs" #-}) + -- copy rule (down) + _altsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1851 "Transform.hs" #-}) + ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = + (names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets ) + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = + (attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts ) + ( _altsIcollectedConstructorNames,_altsIcollectedFields) = + (alts_ _altsOallConstructors _altsOallNonterminals _altsOnts ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (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]) ]) + _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 834, column 14) + _lhsOderivings = + ({-# LINE 834 "Transform.ag" #-} + Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet] + {-# LINE 1905 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 1910 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 1915 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 1920 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 1925 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 1930 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 1935 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 1940 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 1945 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 1950 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 1955 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 1960 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 1965 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 802, column 34) + _lhsOctxCollect = + ({-# LINE 802 "Transform.ag" #-} + Map.empty + {-# LINE 1970 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _setIerrors + {-# LINE 1975 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 1980 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 1985 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 1990 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 1995 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 2000 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2005 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 2010 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2015 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2020 "Transform.hs" #-}) + -- copy rule (down) + _setOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2025 "Transform.hs" #-}) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2030 "Transform.hs" #-}) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2035 "Transform.hs" #-}) + ( _setIcollectedNames,_setIerrors,_setInontSet) = + (set_ _setOallFields _setOallNonterminals _setOdefinedSets ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (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]) ]) + _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 1002, column 7) + _lhsOmoduleDecl = + ({-# LINE 1002 "Transform.ag" #-} + Just (name_, exports_, imports_) + {-# LINE 2080 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 2085 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 2090 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2095 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2100 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2105 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2110 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 2115 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 2120 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 2125 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 2130 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 2135 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 2140 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 802, column 34) + _lhsOctxCollect = + ({-# LINE 802 "Transform.ag" #-} + Map.empty + {-# LINE 2145 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 2150 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 2155 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 2160 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 2165 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 2170 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 2175 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2180 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 2185 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2190 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2195 "Transform.hs" #-}) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (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]) ]) + _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 678, column 13) + _lhsOpragmas = + ({-# LINE 678 "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 } + "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 2275 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 2280 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 2285 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2290 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2295 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2300 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2305 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 2310 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 2315 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 2320 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 2325 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 2330 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 2335 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 802, column 34) + _lhsOctxCollect = + ({-# LINE 802 "Transform.ag" #-} + Map.empty + {-# LINE 2340 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 2345 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 2350 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 2355 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 2360 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 2365 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 2370 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2375 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 2380 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2385 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2390 "Transform.hs" #-}) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (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]) ]) + _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)) + _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) + _altsOallFields :: DataTypes + _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]) ]) + _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _altsIerrors :: (Seq Error) + _altsIsemPragmasCollect :: PragmaMap + -- "Transform.ag"(line 167, column 10) + _altsOnts = + ({-# LINE 167 "Transform.ag" #-} + _namesInontSet + {-# LINE 2459 "Transform.hs" #-}) + -- "Transform.ag"(line 806, column 7) + _lhsOctxCollect = + ({-# LINE 806 "Transform.ag" #-} + if null ctx_ + then Map.empty + else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] + {-# LINE 2466 "Transform.hs" #-}) + -- "Transform.ag"(line 851, column 10) + _attrsOnts = + ({-# LINE 851 "Transform.ag" #-} + _namesInontSet + {-# LINE 2471 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + _altsIattrOrderCollect + {-# LINE 2476 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 2481 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + _altsIcollectedArounds + {-# LINE 2486 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + _altsIcollectedAugments + {-# LINE 2491 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2496 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2501 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + _altsIcollectedInsts + {-# LINE 2506 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 2511 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + _altsIcollectedRules + {-# LINE 2516 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 2521 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + _altsIcollectedSigs + {-# LINE 2526 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + _altsIcollectedUniques + {-# LINE 2531 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 2536 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors + {-# LINE 2541 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 2546 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 2551 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 2556 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + _altsIsemPragmasCollect + {-# LINE 2561 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 2566 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 2571 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 2576 "Transform.hs" #-}) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 2581 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2586 "Transform.hs" #-}) + -- copy rule (down) + _namesOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2591 "Transform.hs" #-}) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2596 "Transform.hs" #-}) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2601 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2606 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2611 "Transform.hs" #-}) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2616 "Transform.hs" #-}) + -- copy rule (down) + _altsOallAttrDecls = + ({-# LINE 748 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 2621 "Transform.hs" #-}) + -- copy rule (down) + _altsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2626 "Transform.hs" #-}) + ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = + (names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets ) + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = + (attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts ) + ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) = + (alts_ _altsOallAttrDecls _altsOallFields _altsOnts ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Set :: Pos -> + NontermIdent -> + T_NontSet -> + T_Elem +sem_Elem_Set pos_ name_ (T_NontSet set_ ) = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets -> + (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]) ]) + _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 491, column 10) + _lhsOcollectedSetNames = + ({-# LINE 491 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 2680 "Transform.hs" #-}) + -- "Transform.ag"(line 598, column 13) + __tup3 = + ({-# LINE 598 "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) = checkDuplicate DupSet name_ (nontSet,Set.insert name_ allUsedNames) _lhsIdefSets + in (res, e1 Seq.>< e2) + {-# LINE 2694 "Transform.hs" #-}) + -- "Transform.ag"(line 598, column 13) + (_defSets2,_) = + ({-# LINE 598 "Transform.ag" #-} + __tup3 + {-# LINE 2699 "Transform.hs" #-}) + -- "Transform.ag"(line 598, column 13) + (_,_errs) = + ({-# LINE 598 "Transform.ag" #-} + __tup3 + {-# LINE 2704 "Transform.hs" #-}) + -- "Transform.ag"(line 608, column 9) + _lhsOdefSets = + ({-# LINE 608 "Transform.ag" #-} + _defSets2 + {-# LINE 2709 "Transform.hs" #-}) + -- "Transform.ag"(line 608, column 9) + _lhsOerrors = + ({-# LINE 609 "Transform.ag" #-} + _errs >< _setIerrors + {-# LINE 2714 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 2719 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 2724 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2729 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2734 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2739 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2744 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 2749 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 2754 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 2759 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 2764 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 2769 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 802, column 34) + _lhsOctxCollect = + ({-# LINE 802 "Transform.ag" #-} + Map.empty + {-# LINE 2774 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 2779 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 2784 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 2789 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 2794 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 2799 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 2804 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2809 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 2814 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2819 "Transform.hs" #-}) + -- copy rule (down) + _setOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2824 "Transform.hs" #-}) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2829 "Transform.hs" #-}) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2834 "Transform.hs" #-}) + ( _setIcollectedNames,_setIerrors,_setInontSet) = + (set_ _setOallFields _setOallNonterminals _setOdefinedSets ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (let _lhsOblocks :: Blocks + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _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)) + -- "Transform.ag"(line 176, column 10) + _blockInfo = + ({-# LINE 176 "Transform.ag" #-} + ( let nm = getName name_ + in if nm == "imports" + then BlockImport + else if nm == "optpragmas" + then BlockPragma + else BlockOther + , mbNt_ + ) + {-# LINE 2886 "Transform.hs" #-}) + -- "Transform.ag"(line 184, column 10) + _blockValue = + ({-# LINE 184 "Transform.ag" #-} + [(lines_, pos_)] + {-# LINE 2891 "Transform.hs" #-}) + -- "Transform.ag"(line 185, column 10) + _lhsOblocks = + ({-# LINE 185 "Transform.ag" #-} + Map.singleton _blockInfo _blockValue + {-# LINE 2896 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 2901 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2906 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2911 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2916 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2921 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 2926 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 2931 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 2936 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 2941 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 2946 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 2951 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 802, column 34) + _lhsOctxCollect = + ({-# LINE 802 "Transform.ag" #-} + Map.empty + {-# LINE 2956 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 2961 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 2966 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 2971 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 2976 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 2981 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 2986 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 2991 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2996 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 3001 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3006 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3011 "Transform.hs" #-}) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (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]) ]) + _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 238, column 10) + _lhsOcollectedFields = + ({-# LINE 238 "Transform.ag" #-} + map (\(x,y)->(name_, x, y)) _expanded + {-# LINE 3055 "Transform.hs" #-}) + -- "Transform.ag"(line 494, column 11) + _lhsOcollectedNames = + ({-# LINE 494 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 3060 "Transform.hs" #-}) + -- "Transform.ag"(line 548, column 11) + _expanded = + ({-# LINE 548 "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 3093 "Transform.hs" #-}) + -- "Transform.ag"(line 577, column 11) + _argType = + ({-# LINE 577 "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 3104 "Transform.hs" #-}) + -- "Transform.ag"(line 584, column 11) + _lhsOtypeSyns = + ({-# LINE 584 "Transform.ag" #-} + [(name_,_argType)] + {-# LINE 3109 "Transform.hs" #-}) + -- "Transform.ag"(line 789, column 7) + _lhsOparamsCollect = + ({-# LINE 789 "Transform.ag" #-} + if null params_ + then Map.empty + else Map.singleton name_ params_ + {-# LINE 3116 "Transform.hs" #-}) + -- "Transform.ag"(line 812, column 7) + _lhsOctxCollect = + ({-# LINE 812 "Transform.ag" #-} + if null ctx_ + then Map.empty + else Map.singleton name_ ctx_ + {-# LINE 3123 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 3128 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 3133 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3138 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3143 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 3148 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 3153 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 3158 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 3163 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 3168 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 3173 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 3178 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 3183 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 3188 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 3193 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 3198 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 3203 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 3208 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3213 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3218 "Transform.hs" #-}) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (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]) ]) + _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 669, column 13) + _lhsOwrappers = + ({-# LINE 669 "Transform.ag" #-} + _setInontSet + {-# LINE 3265 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 3270 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 3275 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3280 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3285 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 3290 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 3295 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 3300 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 3305 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 3310 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 3315 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 3320 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 3325 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 802, column 34) + _lhsOctxCollect = + ({-# LINE 802 "Transform.ag" #-} + Map.empty + {-# LINE 3330 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 3335 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _setIerrors + {-# LINE 3340 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 3345 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 3350 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 3355 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 3360 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 3365 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 3370 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3375 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3380 "Transform.hs" #-}) + -- copy rule (down) + _setOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3385 "Transform.hs" #-}) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3390 "Transform.hs" #-}) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 3395 "Transform.hs" #-}) + ( _setIcollectedNames,_setIerrors,_setInontSet) = + (set_ _setOallFields _setOallNonterminals _setOdefinedSets ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 + 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]) ] + 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 -> + ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),(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)} +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]) ])),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 ) = + (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = + (sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets ) + in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _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 -> + (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]) ]) + _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 + _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 + _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]) ]) + _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]) ]) + _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 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect + {-# LINE 3564 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + _hdIblocks `mapUnionWithPlusPlus` _tlIblocks + {-# LINE 3569 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + _hdIcollectedArounds ++ _tlIcollectedArounds + {-# LINE 3574 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + _hdIcollectedAugments ++ _tlIcollectedAugments + {-# LINE 3579 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap + {-# LINE 3584 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + _hdIcollectedFields ++ _tlIcollectedFields + {-# LINE 3589 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + _hdIcollectedInsts ++ _tlIcollectedInsts + {-# LINE 3594 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _hdIcollectedNames `Set.union` _tlIcollectedNames + {-# LINE 3599 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + _hdIcollectedRules ++ _tlIcollectedRules + {-# LINE 3604 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames + {-# LINE 3609 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + _hdIcollectedSigs ++ _tlIcollectedSigs + {-# LINE 3614 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + _hdIcollectedUniques ++ _tlIcollectedUniques + {-# LINE 3619 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 802, column 34) + _lhsOctxCollect = + ({-# LINE 802 "Transform.ag" #-} + _hdIctxCollect `mergeCtx` _tlIctxCollect + {-# LINE 3624 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + _hdIderivings `mergeDerivings` _tlIderivings + {-# LINE 3629 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 3634 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + _hdImoduleDecl `mplus` _tlImoduleDecl + {-# LINE 3639 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + _hdIparamsCollect `mergeParams` _tlIparamsCollect + {-# LINE 3644 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + _hdIpragmas . _tlIpragmas + {-# LINE 3649 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect + {-# LINE 3654 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + _hdItypeSyns ++ _tlItypeSyns + {-# LINE 3659 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + _hdIuseMap `merge` _tlIuseMap + {-# LINE 3664 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + _hdIwrappers `Set.union` _tlIwrappers + {-# LINE 3669 "Transform.hs" #-}) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _tlIattrDecls + {-# LINE 3674 "Transform.hs" #-}) + -- copy rule (up) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _tlIdefSets + {-# LINE 3679 "Transform.hs" #-}) + -- copy rule (down) + _hdOallAttrDecls = + ({-# LINE 748 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 3684 "Transform.hs" #-}) + -- copy rule (down) + _hdOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 3689 "Transform.hs" #-}) + -- copy rule (down) + _hdOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3694 "Transform.hs" #-}) + -- copy rule (down) + _hdOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3699 "Transform.hs" #-}) + -- copy rule (down) + _hdOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3704 "Transform.hs" #-}) + -- copy rule (down) + _hdOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3709 "Transform.hs" #-}) + -- copy rule (down) + _hdOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 3714 "Transform.hs" #-}) + -- copy rule (down) + _tlOallAttrDecls = + ({-# LINE 748 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 3719 "Transform.hs" #-}) + -- copy rule (down) + _tlOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 3724 "Transform.hs" #-}) + -- copy rule (down) + _tlOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3729 "Transform.hs" #-}) + -- copy rule (down) + _tlOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3734 "Transform.hs" #-}) + -- copy rule (chain) + _tlOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _hdIattrDecls + {-# LINE 3739 "Transform.hs" #-}) + -- copy rule (chain) + _tlOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _hdIdefSets + {-# LINE 3744 "Transform.hs" #-}) + -- copy rule (down) + _tlOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 3749 "Transform.hs" #-}) + ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) = + (hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets ) + ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) = + (tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 -> + (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]) ]) + _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 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 3792 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 3797 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3802 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3807 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 3812 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 3817 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 3822 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 3827 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 3832 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 3837 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 3842 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 3847 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 802, column 34) + _lhsOctxCollect = + ({-# LINE 802 "Transform.ag" #-} + Map.empty + {-# LINE 3852 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 827, column 33) + _lhsOderivings = + ({-# LINE 827 "Transform.ag" #-} + Map.empty + {-# LINE 3857 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 3862 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 998, column 37) + _lhsOmoduleDecl = + ({-# LINE 998 "Transform.ag" #-} + mzero + {-# LINE 3867 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 779, column 37) + _lhsOparamsCollect = + ({-# LINE 779 "Transform.ag" #-} + Map.empty + {-# LINE 3872 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 675, column 34) + _lhsOpragmas = + ({-# LINE 675 "Transform.ag" #-} + id + {-# LINE 3877 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 3882 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 535, column 32) + _lhsOtypeSyns = + ({-# LINE 535 "Transform.ag" #-} + [] + {-# LINE 3887 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 3892 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 666, column 32) + _lhsOwrappers = + ({-# LINE 666 "Transform.ag" #-} + Set.empty + {-# LINE 3897 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3902 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3907 "Transform.hs" #-}) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_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 612, column 16) + _lhsOnontSet = + ({-# LINE 612 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3982 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 3987 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 3992 "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 618, column 16) + _lhsOnontSet = + ({-# LINE 618 "Transform.ag" #-} + Set.difference _set1InontSet _set2InontSet + {-# LINE 4020 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 4025 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 4030 "Transform.hs" #-}) + -- copy rule (down) + _set1OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4035 "Transform.hs" #-}) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4040 "Transform.hs" #-}) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4045 "Transform.hs" #-}) + -- copy rule (down) + _set2OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4050 "Transform.hs" #-}) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4055 "Transform.hs" #-}) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4060 "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 617, column 16) + _lhsOnontSet = + ({-# LINE 617 "Transform.ag" #-} + Set.intersection _set1InontSet _set2InontSet + {-# LINE 4092 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 4097 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 4102 "Transform.hs" #-}) + -- copy rule (down) + _set1OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4107 "Transform.hs" #-}) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4112 "Transform.hs" #-}) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4117 "Transform.hs" #-}) + -- copy rule (down) + _set2OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4122 "Transform.hs" #-}) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4127 "Transform.hs" #-}) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4132 "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 497, column 14) + _lhsOcollectedNames = + ({-# LINE 497 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 4151 "Transform.hs" #-}) + -- "Transform.ag"(line 613, column 20) + __tup4 = + ({-# LINE 613 "Transform.ag" #-} + case Map.lookup name_ _lhsIdefinedSets of + Nothing -> (Set.empty, Seq.singleton (UndefNont name_)) + Just set -> (set, Seq.empty) + {-# LINE 4158 "Transform.hs" #-}) + -- "Transform.ag"(line 613, column 20) + (_nontSet,_) = + ({-# LINE 613 "Transform.ag" #-} + __tup4 + {-# LINE 4163 "Transform.hs" #-}) + -- "Transform.ag"(line 613, column 20) + (_,_errors) = + ({-# LINE 613 "Transform.ag" #-} + __tup4 + {-# LINE 4168 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _errors + {-# LINE 4173 "Transform.hs" #-}) + -- copy rule (from local) + _lhsOnontSet = + ({-# LINE 110 "Transform.ag" #-} + _nontSet + {-# LINE 4178 "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 619, column 16) + _lhsOnontSet = + ({-# LINE 619 "Transform.ag" #-} + let table = flattenDatas _lhsIallFields + in path table from_ to_ + {-# LINE 4195 "Transform.hs" #-}) + -- "Transform.ag"(line 621, column 16) + _lhsOerrors = + ({-# LINE 621 "Transform.ag" #-} + let check name | Set.member name _lhsIallNonterminals + = Seq.empty + | otherwise = Seq.singleton (UndefNont name) + in check from_ >< check to_ + {-# LINE 4203 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 4208 "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 616, column 16) + _lhsOnontSet = + ({-# LINE 616 "Transform.ag" #-} + Set.union _set1InontSet _set2InontSet + {-# LINE 4236 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 4241 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 4246 "Transform.hs" #-}) + -- copy rule (down) + _set1OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4251 "Transform.hs" #-}) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4256 "Transform.hs" #-}) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4261 "Transform.hs" #-}) + -- copy rule (down) + _set2OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4266 "Transform.hs" #-}) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4271 "Transform.hs" #-}) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4276 "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 974, column 11) + _lhsOdefinedAttrs = + ({-# LINE 974 "Transform.ag" #-} + (field_, attr_) : _patIdefinedAttrs + {-# LINE 4366 "Transform.hs" #-}) + -- "Transform.ag"(line 975, column 11) + _lhsOpatunder = + ({-# LINE 975 "Transform.ag" #-} + \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy + {-# LINE 4371 "Transform.hs" #-}) + -- "Transform.ag"(line 976, column 11) + _lhsOdefinedInsts = + ({-# LINE 976 "Transform.ag" #-} + (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts + {-# LINE 4376 "Transform.hs" #-}) + -- "Transform.ag"(line 991, column 16) + _lhsOstpos = + ({-# LINE 991 "Transform.ag" #-} + getPos field_ + {-# LINE 4381 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Alias field_ attr_ _patIcopy _partsIcopy + {-# LINE 4386 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4391 "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 978, column 12) + _lhsOpatunder = + ({-# LINE 978 "Transform.ag" #-} + \us -> Constr name_ (_patsIpatunder us) + {-# LINE 4414 "Transform.hs" #-}) + -- "Transform.ag"(line 989, column 16) + _lhsOstpos = + ({-# LINE 989 "Transform.ag" #-} + getPos name_ + {-# LINE 4419 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 969, column 42) + _lhsOdefinedAttrs = + ({-# LINE 969 "Transform.ag" #-} + _patsIdefinedAttrs + {-# LINE 4424 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + _patsIdefinedInsts + {-# LINE 4429 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Constr name_ _patsIcopy + {-# LINE 4434 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4439 "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 980, column 17) + _lhsOpatunder = + ({-# LINE 980 "Transform.ag" #-} + \us -> Irrefutable (_patIpatunder us) + {-# LINE 4460 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 969, column 42) + _lhsOdefinedAttrs = + ({-# LINE 969 "Transform.ag" #-} + _patIdefinedAttrs + {-# LINE 4465 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + _patIdefinedInsts + {-# LINE 4470 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Irrefutable _patIcopy + {-# LINE 4475 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4480 "Transform.hs" #-}) + -- copy rule (up) + _lhsOstpos = + ({-# LINE 986 "Transform.ag" #-} + _patIstpos + {-# LINE 4485 "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 979, column 13) + _lhsOpatunder = + ({-# LINE 979 "Transform.ag" #-} + \us -> Product pos_ (_patsIpatunder us) + {-# LINE 4506 "Transform.hs" #-}) + -- "Transform.ag"(line 990, column 16) + _lhsOstpos = + ({-# LINE 990 "Transform.ag" #-} + pos_ + {-# LINE 4511 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 969, column 42) + _lhsOdefinedAttrs = + ({-# LINE 969 "Transform.ag" #-} + _patsIdefinedAttrs + {-# LINE 4516 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + _patsIdefinedInsts + {-# LINE 4521 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Product pos_ _patsIcopy + {-# LINE 4526 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4531 "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 977, column 16) + _lhsOpatunder = + ({-# LINE 977 "Transform.ag" #-} + \us -> _copy + {-# LINE 4547 "Transform.hs" #-}) + -- "Transform.ag"(line 992, column 16) + _lhsOstpos = + ({-# LINE 992 "Transform.ag" #-} + pos_ + {-# LINE 4552 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 969, column 42) + _lhsOdefinedAttrs = + ({-# LINE 969 "Transform.ag" #-} + [] + {-# LINE 4557 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 4562 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Underscore pos_ + {-# LINE 4567 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4572 "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 984, column 10) + _lhsOpatunder = + ({-# LINE 984 "Transform.ag" #-} + \us -> (_hdIpatunder us) : (_tlIpatunder us) + {-# LINE 4629 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 969, column 42) + _lhsOdefinedAttrs = + ({-# LINE 969 "Transform.ag" #-} + _hdIdefinedAttrs ++ _tlIdefinedAttrs + {-# LINE 4634 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 4639 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 4644 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4649 "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 983, column 9) + _lhsOpatunder = + ({-# LINE 983 "Transform.ag" #-} + \us -> [] + {-# LINE 4665 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 969, column 42) + _lhsOdefinedAttrs = + ({-# LINE 969 "Transform.ag" #-} + [] + {-# LINE 4670 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 4675 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + [] + {-# LINE 4680 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4685 "Transform.hs" #-}) + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) ) +-- SemAlt ------------------------------------------------------ +{- + visit 0: + inherited attributes: + allAttrDecls : Map NontermIdent (Attributes, Attributes) + allFields : DataTypes + nts : Set NontermIdent + synthesized attributes: + attrOrderCollect : AttrOrderMap + collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] + collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] + collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] + 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) -> + ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (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))} +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]) ])),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 ) = + (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = + (sem _lhsIallAttrDecls _lhsIallFields _lhsInts ) + in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _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 -> + (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]) ]) + _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent) + _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _constructorSetIerrors :: (Seq Error) + _rulesIaroundInfos :: ([AroundInfo]) + _rulesIaugmentInfos :: ([AugmentInfo]) + _rulesIdefinedInsts :: ([Identifier]) + _rulesIorderDepsCollect :: (Set Dependency) + _rulesIpragmaNamesCollect :: ([Identifier]) + _rulesIruleInfos :: ([RuleInfo]) + _rulesIsigInfos :: ([SigInfo]) + _rulesIuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 723, column 7) + _pragmaNames = + ({-# LINE 723 "Transform.ag" #-} + Set.fromList _rulesIpragmaNamesCollect + {-# LINE 4765 "Transform.hs" #-}) + -- "Transform.ag"(line 724, column 7) + _lhsOsemPragmasCollect = + ({-# LINE 724 "Transform.ag" #-} + foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4773 "Transform.hs" #-}) + -- "Transform.ag"(line 752, column 7) + _attrOrders = + ({-# LINE 752 "Transform.ag" #-} + [ orderMapSingle nt con _rulesIorderDepsCollect + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4781 "Transform.hs" #-}) + -- "Transform.ag"(line 758, column 7) + _lhsOattrOrderCollect = + ({-# LINE 758 "Transform.ag" #-} + foldr orderMapUnion Map.empty _attrOrders + {-# LINE 4786 "Transform.hs" #-}) + -- "Transform.ag"(line 903, column 12) + _coninfo = + ({-# LINE 903 "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 4796 "Transform.hs" #-}) + -- "Transform.ag"(line 910, column 12) + _lhsOerrors = + ({-# LINE 910 "Transform.ag" #-} + Seq.fromList + [ UndefAlt nt con + | (nt, conset, conkeys) <- _coninfo + , con <- Set.toList (Set.difference conset conkeys) + ] + {-# LINE 4805 "Transform.hs" #-}) + -- "Transform.ag"(line 915, column 12) + _lhsOcollectedRules = + ({-# LINE 915 "Transform.ag" #-} + [ (nt,con,r) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + , r <- _rulesIruleInfos + ] + {-# LINE 4814 "Transform.hs" #-}) + -- "Transform.ag"(line 921, column 12) + _lhsOcollectedSigs = + ({-# LINE 921 "Transform.ag" #-} + [ (nt,con,ts) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + , ts <- _rulesIsigInfos + ] + {-# LINE 4823 "Transform.hs" #-}) + -- "Transform.ag"(line 928, column 12) + _lhsOcollectedInsts = + ({-# LINE 928 "Transform.ag" #-} + [ (nt,con,_rulesIdefinedInsts) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4831 "Transform.hs" #-}) + -- "Transform.ag"(line 934, column 12) + _lhsOcollectedUniques = + ({-# LINE 934 "Transform.ag" #-} + [ (nt,con,_rulesIuniqueInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4839 "Transform.hs" #-}) + -- "Transform.ag"(line 940, column 12) + _lhsOcollectedAugments = + ({-# LINE 940 "Transform.ag" #-} + [ (nt, con, _rulesIaugmentInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4847 "Transform.hs" #-}) + -- "Transform.ag"(line 946, column 12) + _lhsOcollectedArounds = + ({-# LINE 946 "Transform.ag" #-} + [ (nt, con, _rulesIaroundInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4855 "Transform.hs" #-}) + ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) = + (constructorSet_ ) + ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) = + (rules_ ) + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) +-- SemAlts ----------------------------------------------------- +{- + visit 0: + inherited attributes: + allAttrDecls : Map NontermIdent (Attributes, Attributes) + allFields : DataTypes + nts : Set NontermIdent + synthesized attributes: + attrOrderCollect : AttrOrderMap + collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] + collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] + collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] + 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) -> + ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (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))} +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]) ])),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 ) = + (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = + (sem _lhsIallAttrDecls _lhsIallFields _lhsInts ) + in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _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 -> + (let _lhsOattrOrderCollect :: AttrOrderMap + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _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) + _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) + _tlOallFields :: DataTypes + _tlOnts :: (Set NontermIdent) + _hdIattrOrderCollect :: AttrOrderMap + _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _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]) ]) + _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _tlIerrors :: (Seq Error) + _tlIsemPragmasCollect :: PragmaMap + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect + {-# LINE 4947 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + _hdIcollectedArounds ++ _tlIcollectedArounds + {-# LINE 4952 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + _hdIcollectedAugments ++ _tlIcollectedAugments + {-# LINE 4957 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + _hdIcollectedInsts ++ _tlIcollectedInsts + {-# LINE 4962 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + _hdIcollectedRules ++ _tlIcollectedRules + {-# LINE 4967 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + _hdIcollectedSigs ++ _tlIcollectedSigs + {-# LINE 4972 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + _hdIcollectedUniques ++ _tlIcollectedUniques + {-# LINE 4977 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 4982 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect + {-# LINE 4987 "Transform.hs" #-}) + -- copy rule (down) + _hdOallAttrDecls = + ({-# LINE 748 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 4992 "Transform.hs" #-}) + -- copy rule (down) + _hdOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4997 "Transform.hs" #-}) + -- copy rule (down) + _hdOnts = + ({-# LINE 163 "Transform.ag" #-} + _lhsInts + {-# LINE 5002 "Transform.hs" #-}) + -- copy rule (down) + _tlOallAttrDecls = + ({-# LINE 748 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 5007 "Transform.hs" #-}) + -- copy rule (down) + _tlOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 5012 "Transform.hs" #-}) + -- copy rule (down) + _tlOnts = + ({-# LINE 163 "Transform.ag" #-} + _lhsInts + {-# LINE 5017 "Transform.hs" #-}) + ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) = + (hd_ _hdOallAttrDecls _hdOallFields _hdOnts ) + ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) = + (tl_ _tlOallAttrDecls _tlOallFields _tlOnts ) + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) +sem_SemAlts_Nil :: T_SemAlts +sem_SemAlts_Nil = + (T_SemAlts (\ _lhsIallAttrDecls + _lhsIallFields + _lhsInts -> + (let _lhsOattrOrderCollect :: AttrOrderMap + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOerrors :: (Seq Error) + _lhsOsemPragmasCollect :: PragmaMap + -- use rule "Transform.ag"(line 747, column 55) + _lhsOattrOrderCollect = + ({-# LINE 747 "Transform.ag" #-} + Map.empty + {-# LINE 5041 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 5046 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 5051 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 5056 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 5061 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 5066 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 5071 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 5076 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 719, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 719 "Transform.ag" #-} + Map.empty + {-# LINE 5081 "Transform.hs" #-}) + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) +-- SemDef ------------------------------------------------------ +{- + visit 0: + synthesized attributes: + aroundInfos : [AroundInfo] + augmentInfos : [AugmentInfo] + definedInsts : [Identifier] + 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 SemPragma: + child names : {[NontermIdent]} + alternative TypeDef: + 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 (SemPragma _names ) = + (sem_SemDef_SemPragma _names ) +sem_SemDef (TypeDef _ident _tp ) = + (sem_SemDef_TypeDef _ident _tp ) +sem_SemDef (UniqueDef _ident _ref ) = + (sem_SemDef_UniqueDef _ident _ref ) +-- semantic domain +newtype T_SemDef = T_SemDef (( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo]))) +data Inh_SemDef = Inh_SemDef {} +data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),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 ) = + (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = + (sem ) + in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos )) +sem_SemDef_AroundDef :: Identifier -> + Expression -> + T_SemDef +sem_SemDef_AroundDef ident_ rhs_ = + (T_SemDef (let _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 965, column 17) + _lhsOaroundInfos = + ({-# LINE 965 "Transform.ag" #-} + [ (ident_, rhs_) ] + {-# LINE 5166 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 897, column 40) + _lhsOaugmentInfos = + ({-# LINE 897 "Transform.ag" #-} + [] + {-# LINE 5171 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 5176 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 760, column 44) + _lhsOorderDepsCollect = + ({-# LINE 760 "Transform.ag" #-} + Set.empty + {-# LINE 5181 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 729, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 729 "Transform.ag" #-} + [] + {-# LINE 5186 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOruleInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5191 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOsigInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5196 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOuniqueInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5201 "Transform.hs" #-}) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) +sem_SemDef_AttrOrderBefore :: ([Occurrence]) -> + ([Occurrence]) -> + T_SemDef +sem_SemDef_AttrOrderBefore before_ after_ = + (T_SemDef (let _lhsOorderDepsCollect :: (Set Dependency) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 764, column 7) + _dependency = + ({-# LINE 764 "Transform.ag" #-} + [ Dependency b a | b <- before_, a <- after_ ] + {-# LINE 5219 "Transform.hs" #-}) + -- "Transform.ag"(line 765, column 7) + _lhsOorderDepsCollect = + ({-# LINE 765 "Transform.ag" #-} + Set.fromList _dependency + {-# LINE 5224 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 898, column 40) + _lhsOaroundInfos = + ({-# LINE 898 "Transform.ag" #-} + [] + {-# LINE 5229 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 897, column 40) + _lhsOaugmentInfos = + ({-# LINE 897 "Transform.ag" #-} + [] + {-# LINE 5234 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 5239 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 729, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 729 "Transform.ag" #-} + [] + {-# LINE 5244 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOruleInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5249 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOsigInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5254 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOuniqueInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5259 "Transform.hs" #-}) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) +sem_SemDef_AugmentDef :: Identifier -> + Expression -> + T_SemDef +sem_SemDef_AugmentDef ident_ rhs_ = + (T_SemDef (let _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 962, column 17) + _lhsOaugmentInfos = + ({-# LINE 962 "Transform.ag" #-} + [ (ident_, rhs_) ] + {-# LINE 5277 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 898, column 40) + _lhsOaroundInfos = + ({-# LINE 898 "Transform.ag" #-} + [] + {-# LINE 5282 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 5287 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 760, column 44) + _lhsOorderDepsCollect = + ({-# LINE 760 "Transform.ag" #-} + Set.empty + {-# LINE 5292 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 729, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 729 "Transform.ag" #-} + [] + {-# LINE 5297 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOruleInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5302 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOsigInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5307 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOuniqueInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5312 "Transform.hs" #-}) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_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 (let _lhsOruleInfos :: ([RuleInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + _patternIcopy :: Pattern + _patternIdefinedAttrs :: ([AttrName]) + _patternIdefinedInsts :: ([Identifier]) + _patternIpatunder :: ([AttrName]->Pattern) + _patternIstpos :: Pos + -- "Transform.ag"(line 953, column 10) + _lhsOruleInfos = + ({-# LINE 953 "Transform.ag" #-} + [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ] + {-# LINE 5338 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 898, column 40) + _lhsOaroundInfos = + ({-# LINE 898 "Transform.ag" #-} + [] + {-# LINE 5343 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 897, column 40) + _lhsOaugmentInfos = + ({-# LINE 897 "Transform.ag" #-} + [] + {-# LINE 5348 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + _patternIdefinedInsts + {-# LINE 5353 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 760, column 44) + _lhsOorderDepsCollect = + ({-# LINE 760 "Transform.ag" #-} + Set.empty + {-# LINE 5358 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 729, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 729 "Transform.ag" #-} + [] + {-# LINE 5363 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOsigInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5368 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOuniqueInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5373 "Transform.hs" #-}) + ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) = + (pattern_ ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) +sem_SemDef_SemPragma :: ([NontermIdent]) -> + T_SemDef +sem_SemDef_SemPragma names_ = + (T_SemDef (let _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 733, column 7) + _lhsOpragmaNamesCollect = + ({-# LINE 733 "Transform.ag" #-} + names_ + {-# LINE 5392 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 898, column 40) + _lhsOaroundInfos = + ({-# LINE 898 "Transform.ag" #-} + [] + {-# LINE 5397 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 897, column 40) + _lhsOaugmentInfos = + ({-# LINE 897 "Transform.ag" #-} + [] + {-# LINE 5402 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 5407 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 760, column 44) + _lhsOorderDepsCollect = + ({-# LINE 760 "Transform.ag" #-} + Set.empty + {-# LINE 5412 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOruleInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5417 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOsigInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5422 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOuniqueInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5427 "Transform.hs" #-}) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) +sem_SemDef_TypeDef :: Identifier -> + Type -> + T_SemDef +sem_SemDef_TypeDef ident_ tp_ = + (T_SemDef (let _lhsOsigInfos :: ([SigInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 956, column 14) + _lhsOsigInfos = + ({-# LINE 956 "Transform.ag" #-} + [ (ident_, tp_) ] + {-# LINE 5445 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 898, column 40) + _lhsOaroundInfos = + ({-# LINE 898 "Transform.ag" #-} + [] + {-# LINE 5450 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 897, column 40) + _lhsOaugmentInfos = + ({-# LINE 897 "Transform.ag" #-} + [] + {-# LINE 5455 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 5460 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 760, column 44) + _lhsOorderDepsCollect = + ({-# LINE 760 "Transform.ag" #-} + Set.empty + {-# LINE 5465 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 729, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 729 "Transform.ag" #-} + [] + {-# LINE 5470 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOruleInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5475 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOuniqueInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5480 "Transform.hs" #-}) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) +sem_SemDef_UniqueDef :: Identifier -> + Identifier -> + T_SemDef +sem_SemDef_UniqueDef ident_ ref_ = + (T_SemDef (let _lhsOuniqueInfos :: ([UniqueInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + -- "Transform.ag"(line 959, column 16) + _lhsOuniqueInfos = + ({-# LINE 959 "Transform.ag" #-} + [ (ident_, ref_) ] + {-# LINE 5498 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 898, column 40) + _lhsOaroundInfos = + ({-# LINE 898 "Transform.ag" #-} + [] + {-# LINE 5503 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 897, column 40) + _lhsOaugmentInfos = + ({-# LINE 897 "Transform.ag" #-} + [] + {-# LINE 5508 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 5513 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 760, column 44) + _lhsOorderDepsCollect = + ({-# LINE 760 "Transform.ag" #-} + Set.empty + {-# LINE 5518 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 729, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 729 "Transform.ag" #-} + [] + {-# LINE 5523 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOruleInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5528 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOsigInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5533 "Transform.hs" #-}) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) +-- SemDefs ----------------------------------------------------- +{- + visit 0: + synthesized attributes: + aroundInfos : [AroundInfo] + augmentInfos : [AugmentInfo] + definedInsts : [Identifier] + 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 (( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo]))) +data Inh_SemDefs = Inh_SemDefs {} +data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),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 ) = + (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = + (sem ) + in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _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 (let _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + _hdIaroundInfos :: ([AroundInfo]) + _hdIaugmentInfos :: ([AugmentInfo]) + _hdIdefinedInsts :: ([Identifier]) + _hdIorderDepsCollect :: (Set Dependency) + _hdIpragmaNamesCollect :: ([Identifier]) + _hdIruleInfos :: ([RuleInfo]) + _hdIsigInfos :: ([SigInfo]) + _hdIuniqueInfos :: ([UniqueInfo]) + _tlIaroundInfos :: ([AroundInfo]) + _tlIaugmentInfos :: ([AugmentInfo]) + _tlIdefinedInsts :: ([Identifier]) + _tlIorderDepsCollect :: (Set Dependency) + _tlIpragmaNamesCollect :: ([Identifier]) + _tlIruleInfos :: ([RuleInfo]) + _tlIsigInfos :: ([SigInfo]) + _tlIuniqueInfos :: ([UniqueInfo]) + -- use rule "Transform.ag"(line 898, column 40) + _lhsOaroundInfos = + ({-# LINE 898 "Transform.ag" #-} + _hdIaroundInfos ++ _tlIaroundInfos + {-# LINE 5601 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 897, column 40) + _lhsOaugmentInfos = + ({-# LINE 897 "Transform.ag" #-} + _hdIaugmentInfos ++ _tlIaugmentInfos + {-# LINE 5606 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 5611 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 760, column 44) + _lhsOorderDepsCollect = + ({-# LINE 760 "Transform.ag" #-} + _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect + {-# LINE 5616 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 729, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 729 "Transform.ag" #-} + _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect + {-# LINE 5621 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOruleInfos = + ({-# LINE 894 "Transform.ag" #-} + _hdIruleInfos ++ _tlIruleInfos + {-# LINE 5626 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOsigInfos = + ({-# LINE 895 "Transform.ag" #-} + _hdIsigInfos ++ _tlIsigInfos + {-# LINE 5631 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOuniqueInfos = + ({-# LINE 896 "Transform.ag" #-} + _hdIuniqueInfos ++ _tlIuniqueInfos + {-# LINE 5636 "Transform.hs" #-}) + ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) = + (hd_ ) + ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) = + (tl_ ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) +sem_SemDefs_Nil :: T_SemDefs +sem_SemDefs_Nil = + (T_SemDefs (let _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- use rule "Transform.ag"(line 898, column 40) + _lhsOaroundInfos = + ({-# LINE 898 "Transform.ag" #-} + [] + {-# LINE 5656 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 897, column 40) + _lhsOaugmentInfos = + ({-# LINE 897 "Transform.ag" #-} + [] + {-# LINE 5661 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 968, column 55) + _lhsOdefinedInsts = + ({-# LINE 968 "Transform.ag" #-} + [] + {-# LINE 5666 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 760, column 44) + _lhsOorderDepsCollect = + ({-# LINE 760 "Transform.ag" #-} + Set.empty + {-# LINE 5671 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 729, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 729 "Transform.ag" #-} + [] + {-# LINE 5676 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOruleInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5681 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOsigInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5686 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOuniqueInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5691 "Transform.hs" #-}) in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) ) diff --git a/src-derived/Visage.hs b/src-derived/Visage.hs --- a/src-derived/Visage.hs +++ b/src-derived/Visage.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (Visage.ag) +-- UUAGC 0.9.28 (Visage.ag) module Visage where {-# LINE 6 "Visage.ag" #-} diff --git a/src-derived/VisagePatterns.hs b/src-derived/VisagePatterns.hs --- a/src-derived/VisagePatterns.hs +++ b/src-derived/VisagePatterns.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (VisagePatterns.ag) +-- UUAGC 0.9.28 (VisagePatterns.ag) module VisagePatterns where {-# LINE 2 "VisagePatterns.ag" #-} diff --git a/src-derived/VisageSyntax.hs b/src-derived/VisageSyntax.hs --- a/src-derived/VisageSyntax.hs +++ b/src-derived/VisageSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.26 (VisageSyntax.ag) +-- UUAGC 0.9.28 (VisageSyntax.ag) module VisageSyntax where {-# LINE 2 "VisageSyntax.ag" #-} 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.28" +banner = "Attribute Grammar compiler / HUT project. Version 0.9.29" 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.28 +version: 0.9.29 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.28 +version: 0.9.29 license: GPL license-file: LICENSE maintainer: Arie Middelkoop